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,28 @@
+f = r5
+i = r3
+.globl ek,ep,ek.fs,ep.fs,si,x,fs
+.globl generate
+.globl .tq,gpar
+
+.tq:
+	mov	(i)+,r0
+	mov	i,si(f)
+	mov	ep(f),r1
+	mov	ep(r1),ep.fs(f)
+	mov	ek(r1),ek.fs(f)
+	mov	si(r1),r1
+	asl	r0
+	sub	r0,r1
+	mov	(r1),i
+	add	$fs,f
+	clr	x(f)
+	jsr	pc,generate
+	jmp	generate
+
+gpar:
+	mov	(i)+,r0
+	mov	ep(f),r1
+	asl	r0
+	add	r0,si(r1)
+	jmp	generate
+.globl gq;gq=.tq