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,106 @@
+/
+/
+
+/ PDP-11 assembler pass 0
+
+indir	= 0
+
+	jmp	start
+go:
+	jsr	pc,assem
+	movb	pof,r0
+	sys	write; outbuf; 512.
+	movb	pof,r0
+	sys	close
+	movb	fbfil,r0
+	sys	close
+	tstb	errflg
+	bne	aexit
+	jsr	r5,fcreat; a.tmp3
+	mov	r0,r1
+	mov	symend,0f
+	sub	$usymtab,0f
+	sys	indir; 9f
+	.data
+9:	sys	write; usymtab; 0:..
+	.text
+	mov	r1,r0
+	sys	close
+	sys	exec; 2f; 1f
+	mov	$2f,r0
+	jsr	r5,filerr; "?\n
+
+aexit:
+	sys	unlink; a.tmp1
+	sys	unlink; a.tmp2
+	sys	unlink; a.tmp3
+	sys	exit
+.data
+1:
+	2f
+	a.tmp1
+	a.tmp2
+	a.tmp3
+unglob:
+	3f
+	0
+	.text
+2:
+fpass2:
+	</lib/as2\0>
+3:
+	<-g\0>
+	.even
+
+filerr:
+	mov	r4,-(sp)
+	mov	r0,r4
+	mov	r4,0f
+	clr	r0
+1:
+	tstb	(r4)+
+	beq	1f
+	inc	r0
+	br	1b
+1:
+	mov	r0,1f
+	mov	$1,r0
+	sys	indir; 9f
+	.data
+9:	sys	write; 0:0; 1:0
+	.text
+	mov	r5,0f
+	mov	$1,r0
+	sys	indir; 9f
+	.data
+9:	sys	write; 0:0; 2
+	.text
+	tst	(r5)+
+	mov	(sp)+,r4
+	rts	r5
+
+fcreat:
+	mov	r4,-(sp)
+	mov	(r5)+,r4
+	mov	r4,0f
+1:
+	sys	indir; 9f
+	.data
+9:	sys	stat; 0:..; outbuf
+	.text
+	bec	2f
+	mov	r4,0f
+	sys	indir; 9f
+	.data
+9:	sys	creat; 0:..; 444
+	.text
+	bes	2f
+	mov	(sp)+,r4
+	rts	r5
+2:
+	incb	9.(r4)
+	cmpb	9.(r4),$'z
+	blos	1b
+	mov	r4,r0
+	jsr	r5,filerr; "?\n
+	sys	exit