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,46 @@
+f = r5
+.globl j,n
+.globl input
+.globl classtab
+.globl jget
+
+jget:
+	inc	jgetc
+3:
+	mov	j(f),r1
+	mov	r1,r0
+	bic	$inpt-1,r0
+	bic	r0,r1
+	cmp	r0,inpr
+	beq	1f
+	inc	readc
+	mov	r0,inpr
+	mov	input,r0
+	sys	seek
+inpr:		1;0
+	sys	read;inpb;inpt
+2:
+	cmp	r0,$inpt
+	bge	1f
+	clrb	inpb(r0)
+	inc	r0
+	br	2b
+1:
+	movb	inpb(r1),r0
+	asl	r0
+	bit	n(f),classtab(r0)
+	beq	1f
+	inc	j(f)
+	inc	r1
+	cmp	r1,$inpt
+	blt	1b
+	br	3b
+1:
+	asr	r0
+	rts	pc
+inpt = 128.
+.bss
+inpb:	. = .+inpt
+.data
+jgetc:	0
+readc:	0