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,36 @@
+.globl	rewind
+.globl	create
+.globl	fsfile
+.globl	w, r, a, l
+/
+/
+/	routine to rewind read pointer of string
+/	pointed to by r1
+/
+/	mov	...,r1
+/	jsr	pc,rewind
+/
+rewind:
+	mov	a(r1),r(r1)
+	rts	pc
+/
+/	routine to rewind write pointer of string
+/	pointed to by r1
+/
+/	mov	...,r1
+/	jsr	pc,create
+/
+create:
+	mov	a(r1),w(r1)
+	mov	a(r1),r(r1)
+	rts	pc
+/
+/
+/	routine to copy read pointer of string to end of string
+/
+/	mov	...,r1
+/	jsr	pc,fsfile
+/
+fsfile:
+	mov	w(r1),r(r1)
+	rts	pc