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,25 @@
+f = r5
+g = r4
+.globl g1
+.globl pbundle,iget
+.globl succ
+.globl bundle,reduce
+
+reduce:
+	jsr	pc,iget
+	mov	(r0),r1
+	mov	g,r0
+	asl	r1
+	sub	r1,r0
+	br	1f
+	br	1f
+bundle:
+	mov	f,r0
+	add	$g1,r0
+1:
+	jsr	pc,pbundle
+	tst	r0
+	beq	1f
+	mov	r0,(g)+
+1:
+	jmp	succ