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,62 @@
+/
+/
+
+/ Fortran binary I/O
+
+.globl	iowu
+.globl	ioru
+.globl	rewi
+.globl	enfl
+
+iowu:
+	tst	(sp)+
+	mov	(sp)+,r1		/ unit number
+	jsr	r5,setio; 42
+1:
+	jsr	r5,getitm
+		br 1f
+	movb	ilen,r1
+	mov	ilval,r2
+2:
+	movb	(r2)+,r0
+	jsr	r5,fputc
+	sob	r1,2b
+	br	1b
+1:
+	jsr	r5,fflush
+	jmp	*(r4)+
+
+ioru:
+	tst	(sp)+
+	mov	(sp)+,r1		/ unit number
+	jsr	r5,setio; 41
+	clr	nlflg
+	mov	pc,binflg
+1:
+	jsr	r5,getitm
+		br 1f
+	movb	ilen,r1
+	mov	ilval,r2
+2:
+	jsr	r5,fgetc
+	movb	r0,(r2)+
+	sob	r1,2b
+	br	1b
+1:
+	jmp	*(r4)+
+
+rewi:
+enfl:
+	tst	(sp)+
+	mov	(sp)+,r1		/ unit number
+	jsr	r5,chkunit
+	clrb	utable(r1)
+	asl	r1
+	mov	*btable(r1),r0
+	cmp	r0,$1
+	bhi	1f
+	sys	seek; 0; 0
+	jmp	*(r4)+
+1:
+	sys	close
+	jmp	*(r4)+