Add original unix v6

2018-01-27 22:35:41 +09:00
commit 2c7099ee50
664 changed files with 106254 additions and 0 deletions
@@ -0,0 +1,37 @@
+/
+/
+
+/ f16 -- extrn, equiv, data
+
+.globl	sextr
+.globl	sequi
+
+.globl	getsym
+.globl	putc
+.globl	error
+.globl	ptemp
+
+sextr:
+	jsr	r5,getsym
+	tst	r0
+	bne	1f
+	bit	$70,symtab(r3)
+	beq	2f
+	jsr	r5,error; 14.
+2:
+	bis	$30,symtab(r3)
+	jsr	r5,getsym
+	cmp	r0,$36.		/ ,
+	beq	sextr
+	cmp	r0,$40.		/ eos
+	beq	2f
+1:
+	jsr	r5,error; 15.
+2:
+	rts	r5
+
+sequi:
+	jsr	r5,ptemp; 'e; efno; line
+	rts	r5
+
+