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,19 @@
+.globl	getchar
+.globl	lookchar
+.globl	w, r, a, l
+/
+/
+/	routine to read next character from string
+/	pointer to by r1; character returned in r0
+/	c-bit set if character not availiable (eof)
+/
+/	mov	...,r1
+/	jsr	pc,getchar
+/	movb	r0,...
+/
+getchar:
+	jsr	pc,lookchar
+	bes	1f
+	inc	r(r1)
+	tst	r0
+1:	rts	pc