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,31 @@
+.globl	backword
+.globl	lookchar
+.globl	w, r, a, l
+/
+/
+/	routine to get words backwards from string
+/
+/	mov	...,r1
+/	jsr	pc,backword
+/	mov	r0,...
+/
+backword:
+	cmp	a(r1),r(r1)
+	bhis	nochw
+	dec	r(r1)
+	jsr	pc,lookchar
+	movb	r0,nchar+1
+	cmp	a(r1),r(r1)
+	bhis	nochw
+	dec	r(r1)
+	jsr	pc,lookchar
+	movb	r0,nchar
+	mov	nchar,r0
+	rts	pc
+/
+nochw:
+	clr	r0
+	sec
+	rts	pc
+/
+nchar:	.=.+2