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,37 @@
+/ format RK03/05 disk packs
+
+rkda = 177412
+
+	jsr	pc,4(r5)
+		<ready drive 0 and type y\n\0>; .even
+	jsr	pc,2(r5)
+	mov	r0,-(sp)
+	mov	$'\n,r0
+	jsr	pc,(r5)
+	cmp	(sp)+,$'y
+	beq	1f
+	rts	pc
+1:
+	mov	$203.*2,r4
+	clr	r3
+1:
+	mov	$rkda+2,r0
+	mov	r3,-(r0)
+	mov	$buf,-(r0)
+	mov	$-12.*256.,-(r0)
+	mov	$6003,-(r0)
+2:
+	tstb	(r0)
+	bge	2b
+	tst	(r0)
+	blt	1f
+	add	$20,r3
+	dec	r4
+	bne	1b
+	rts	pc
+1:
+	jsr	pc,4(r5)
+		<rkf: error\n\0>; .even
+	rts	pc
+
+buf:	.=.+2