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,55 @@
+mts = 172520
+mtc = 172522
+mtbrc = 172524
+mtcma = 172526
+
+tread:
+1:
+	mov	ba,mtma
+	cmp	mtapa,tapa
+	beq	1f
+	bhi	2f
+	jsr	pc,rrec
+	br	1b
+2:
+	jsr	pc,rew
+	br	1b
+1:
+	mov	wc,r1
+1:
+	jsr	pc,rrec
+	add	$256.,r1
+	bmi	1b
+	rts	pc
+
+rrec:
+	mov	$mts,r0
+	bit	$2,(r0)+		/ rewind status
+	bne	rrec
+	tstb	(r0)+		/ cu ready
+	bpl	rrec
+	inc 	r0
+	mov	$-512.,(r0)+	/ byte count
+	mov	mtma,(r0)	/ bus address
+	mov	$mtc,r0
+	mov	$60003,(r0)		/ read 800bpi
+1:
+	tstb	(r0)
+	bpl	1b
+	tst	(r0)+
+	bpl	1f
+	mov	$-1,(r0)
+	mov	$60013,-(r0)		/ backspace
+	br	rrec
+1:
+	add	$512.,mtma
+	inc	mtapa
+	rts	pc
+
+rew:
+	mov	$60017,*$mtc
+	clr	mtapa
+	rts	pc
+
+mtapa:	0
+mtma:	0