MiniUnix/usr/source/fort/io/io2.s

/
/

/ io2 -- format cracker

.globl	iowf
.globl	iowp
.globl	iorf

iowp:
	mov	(sp)+,formp
	mov	$6,r1
	br	1f

iowf:
	mov	(sp)+,formp
	tst	(sp)+
	mov	(sp)+,r1
1:
	jsr	r5,setio; 2		/ write
	clr	rdflg
	br	1f

iorf:
	mov	(sp)+,formp
	tst	(sp)+
	mov	(sp)+,r1
	jsr	r5,setio; 1		/ read
	mov	pc,rdflg

1:
	clr	binflg
	clr	slcnt
	clr	itmfnd
	clr	scale
	clr	itmflg
	mov	$pbuf,ppar
	mov	$-1,llpcnt
	jsr	r5,fmtchr
	mov	formp,llp
	cmp	r0,$'(
	beq	crack
	jsr	r5,rerr; 106.
	sys	exit
crack:
	clr	ngflg
	mov	$1,rep
item:
	jsr	r5,fmtchr
	cmp	$' ,r0
	beq	item
	cmp	$'\t,r0
	beq	item
	jsr	r5,switch; mswitch
	jsr	r5,rerr; 105.
	sys	exit

mswitch:
	'a; afmt
	'f; ffmt
	'e; efmt
	'g; gfmt
	'd; dfmt
	'i; ifmt
	'l; lfmt
	'h; hfmt
	'x; xfmt
	'p; scal
	'-; minus
	'0; numb
	'1; numb
	'2; numb
	'3; numb
	'4; numb
	'5; numb
	'6; numb
	'7; numb
	'8; numb
	'9; numb
	',; crack
	'/; slash
	'(; lpar
	'); rpar
	'"; quote
	' ; item
	0; 0

minus:
	jsr	r5,gnum
	neg	r0
	br	1f
numb:
	dec	formp
	jsr	r5,gnum
1:
	mov	r0,rep
	br	item

scal:
	mov	rep,scale
	br	crack

elist:
	tst	_nocr
	beq	1f
	tst	rdflg
	bne	1f
	jsr	r5,eorec1
	br	2f
1:
	jsr	r5,eorec
2:
	jmp	*(r4)+

slash:
	jsr	r5,eorec
	br	crack

rpar:
	mov	ppar,r0
	cmp	r0,$pbuf		/ see if outer parens
	blos	2f
	dec	-2(r0)
	ble	1f		/ no repeats left
	mov	-4(r0),formp	/ reset scan
	br	crack
1:
	sub	$4,ppar
	br	crack		/ pop parens
2:
	jsr	r5,getitm
		br elist
	tst	itmfnd
	bne	1f
	jsr	r5,rerr; 107.
	sys	exit
1:
	jsr	r5,eorec
	inc	itmflg
	mov	llpcnt,r1
	bpl	1f
	mov	llp,formp
	jmp	crack
1:
	mov	llp,r2
	mov	r2,formp
	mov	ppar,r0
	mov	r2,(r0)+
	mov	r1,(r0)+
	mov	r0,ppar
	jbr	crack1

lpar:
	mov	ppar,r0
	cmp	r0,$pbuf+10
	blo	1f
	jsr	r5,rerr; 108.
	sys	exit
1:
	mov	formp,(r0)+
	mov	rep,(r0)+
	mov	r0,ppar
	cmp	r0,$pbuf+4
	bhi	1f
	mov	formp,llp
	mov	rep,llpcnt
1:
	jmp	crack
quote:
	inc	ngflg
	mov	$44,-(sp)
	br	3f

hfmt:
	inc	ngflg
	mov	$40,-(sp)
	br	3f

xfmt:
	inc	ngflg
	mov	$34,-(sp)
	br	3f

afmt:
	mov	$30,-(sp)
	br	1f

ifmt:
	clr	-(sp)
	br	1f

lfmt:
	mov	$4,-(sp)
1:
	jsr	r5,gnum
	mov	r0,width
	br	2f

ffmt:
	mov	$10,-(sp)
	br	1f

dfmt:
	mov	$14,-(sp)
	br	1f

gfmt:
	mov	$20,-(sp)
	br	1f

efmt:
	mov	$24,-(sp)

1:
	jsr	r5,gnum
	mov	r0,width
4:
	jsr	r5,fmtchr
	cmp	r0,$' /
	beq	4b
	cmp	r0,$'.
	bne	err1
	jsr	r5,gnum
	mov	r0,ndig
2:
	inc	itmfnd
3:
	add	$cvsw,(sp)
	tst	rdflg
	beq	1f
	add	$2,(sp)
1:
	mov	*(sp)+,-(sp)
1:
	tst	ngflg
	bne	2f
	jsr	r5,getitm
		br 1f
2:
	clr	gflg
	jsr	r5,*(sp)
	dec	rep
	bgt	1b
	tst	(sp)+
	br	crack1
1:
	tst	(sp)+
	jmp	elist

cvsw:
	iocv; iicv	/ 0
	locv; licv	/ 4
	focv; ficv	/ 10
	docv; dicv	/ 14
	gocv; gicv	/ 20
	eocv; eicv	/ 24
	aocv; aicv	/ 30
	xocv; xicv	/ 34
	hocv; hicv	/ 40
	qocv; qicv	/ 44

crack1:
	jmp	crack

err1:
	jsr	r5,rerr; 109.
	sys	exit