1972_stuff/s1/frag48

Find at most related files.
including files from this version of Unix.

/ a1 -- pdp-11 assembler pass 1


main:
ecore = main+8192.
	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	$txtsiz,r1		/ even up
	inc	(r1)
	bic	$1,(r1)+
	inc	(r1)
	bic	$1,(r1)+
	inc	(r1)
	bic	$1,(r1)+
	mov	r0,r1
	sys	write; txtsiz; 6
	mov	symend,0f
	sub	$usymtab,0f
	mov	r1,r0
	sys	write; usymtab; 0:..
	mov	r1,r0
	sys	close
	sys	exec; 2f; 1f

aexit:
	sys	unlink; a.tmp1
	sys	unlink; a.tmp2
	sys	unlink; a.tmp3
	sys	exit
1:
	2f
	a.tmp1
	a.tmp2
	a.tmp3
unglob:
	3f
	0
2:
	</etc/as2\0>
3:
	<-g\0>
	.even

filerr:
	mov	r4,-(sp)
	mov	(r5)+,r4
	mov	r4,0f
	clr	r0
1:
	tstb	(r4)+
	beq	1f
	inc	r0
	br	1b
1:
	mov	r0,1f
	mov	$1,r0
	sys	write; 0:0; 1:0
	mov	r5,0f
	mov	$1,r0
	sys	write; 0:0; 2
	tst	(r5)+
	mov	(sp)+,r4
	rts	r5

fcreat:
	mov	r4,-(sp)
	mov	(r5)+,r4
	mov	r4,0f
1:
	sys	creat; 0:..; 12
	bes	2f
	mov	(sp)+,r4
	rts	r5
2:
	incb	9.(r4)
	cmpb	9.(r4),$'z
	blos	1b
	mov	0b,0f
	jsr	r5,filerr; 0:..; "?\n
	sys	exit
unlink; a.tmp3
	sys	exit
1:
	2f
	a.tmp1
	a.tmp2
	a.tmp3
unglob:
	3f
	0
2:
	</etc/as2\0>
3:
	<-g\0>
	.even

filerr:
	mov	r4,-(sp)
	mov	(r5)+,r4
	mov	r4,0f
	clr	r0
1:
	tstb	(r4)+
	beq	1f
	inc	r0
	br	1b
1:
	mov	r0,1f
	mov	$1,r0
	sys	write; 0:0; 1:0
	mov	r5,0f
	mov	$1,r0
	sys	write; 0:0; 2
	tst	(r5)+
	mov	(sp)+,r4
	rts	r5

fcreat:
	mov	r4,-(sp)
	mov	(r5)+,r4
	mov	r4,0f
1:
	sys	creat; 0:..; 12
	bes	2f
	mov	(sp)+,r4
	rts	r5
2:
	incb	9.(r4)
	cmpb	9.(r4),$'z
	blos	1b
	mov	0b,0f
	jsr	r5,filerr; 0:..; "?\n
	sys