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,23 @@
+f = r5
+g = r4
+.globl k
+.globl errcom
+.globl ktab,ktat
+.globl putcall,kput
+
+putcall:
+	jsr	pc,kput
+	mov k(f),(g)+
+	rts	pc
+
+kput:
+	sub	$2,k(f)
+	mov	k(f),r1
+	neg	r1
+	mov	r0,ktab(r1)
+	cmp	r1,$ktat
+	bhis	1f
+	rts	pc
+1:
+	jsr	r0,errcom
+		<translation overflow\0>;.even