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,170 @@
+/
+/
+
+/ a5 -- pdp-11 assembler pass 1
+
+readop:
+	mov	savop,r4
+	beq	1f
+	clr	savop
+	rts	pc
+1:
+	jsr	pc,8f
+	jsr	pc,putw
+	rts	pc
+
+8:
+	jsr	pc,rch
+_readop:
+	mov	r0,r4
+	movb	chartab(r0),r1
+	bgt	rdname
+	jmp	*1f-2(r1)
+
+	fixor
+	escp
+	8b
+	retread
+	dquote
+	garb
+	squote
+	rdname
+	skip
+	rdnum
+	retread
+	string
+1:
+
+escp:
+	jsr	pc,rch
+	mov	$esctab,r1
+1:
+	cmpb	r0,(r1)+
+	beq	1f
+	tstb	(r1)+
+	bne	1b
+	rts	pc
+1:
+	movb	(r1),r4
+	rts	pc
+
+esctab:
+	.byte '/, '/
+	.byte '\<, 035
+	.byte '>, 036
+	.byte '%, 037
+	.byte 0, 0
+
+fixor:
+	mov	$037,r4
+retread:
+	rts	pc
+
+rdname:
+	movb	r0,ch
+	cmp	r1,$'0
+	blo	1f
+	cmp	r1,$'9
+	blos	rdnum
+1:
+	jmp	rname
+
+rdnum:
+	jsr	pc,number
+		br 1f
+	rts	pc
+
+squote:
+	jsr	pc,rsch
+	br	1f
+dquote:
+	jsr	pc,rsch
+	mov	r0,-(sp)
+	jsr	pc,rsch
+	swab	r0
+	bis	(sp)+,r0
+1:
+	mov	r0,numval
+	mov	$1,r4
+	jsr	pc,putw
+	mov	numval,r4
+	jsr	pc,putw
+	mov	$1,r4
+	tst	(sp)+
+	rts	pc
+
+skip:
+	jsr	pc,rch
+	mov	r0,r4
+	cmp	r0,$'\e
+	beq	1f
+	cmp	r0,$'\n
+	bne	skip
+1:
+	rts	pc
+
+garb:
+	jsr	r5,error; 'g
+	br	8b
+
+string:
+	mov	$'<,r4
+	jsr	pc,putw
+	clr	numval
+1:
+	jsr	pc,rsch
+	tst	r1
+	bne	1f
+	mov	r0,r4
+	bis	$400,r4
+	jsr	pc,putw
+	inc	 numval
+	br	1b
+1:
+	mov	$-1,r4
+	jsr	pc,putw
+	mov	$'<,r4
+	tst	(sp)+
+	rts	pc
+
+rsch:
+	jsr	pc,rch
+	cmp	r0,$'\e
+	beq	4f
+	cmp	r0,$'\n
+	beq	4f
+	clr	r1
+	cmp	r0,$'\\
+	bne	3f
+	jsr	pc,rch
+	mov	$schar,r2
+1:
+	cmpb	(r2)+,r0
+	beq	2f
+	tstb	(r2)+
+	bpl	1b
+	rts	pc
+2:
+	movb	(r2)+,r0
+	clr	r1
+	rts	pc
+3:
+	cmp	r0,$'>
+	bne	1f
+	inc	r1
+1:
+	rts	pc
+4:
+	jsr	r5,error; '<
+	jmp	aexit
+
+schar:
+	.byte 'n, 012
+	.byte 't, 011
+	.byte 'e, 004
+	.byte '0, 000
+	.byte 'r, 015
+	.byte 'a, 006
+	.byte 'p, 033
+	.byte 0,  -1
+