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 @@
+.globl succ
+.globl iget
+.globl push
+
+push:
+	jsr	pc,iget
+	mov	(r0),r2
+	mov	r2,r1
+1:
+	mov	r1,-(sp)
+	jsr	pc,iget
+	mov	(sp)+,r1
+	mov	r0,-(sp)
+	mov	(r0),-(sp)
+	dec	r2
+	bgt	1b
+	mov	r1,-(sp)
+	jsr	pc,succ
+/			preserve c bit from here on
+	mov	(sp)+,r2
+1:
+	mov	(sp)+,*(sp)+
+	dec	r2
+	bgt	1b
+	rts	pc	/pass sret or fret back to invoking rule