MiniUnix/usr/source/fort/fx/fxf.s

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

/
/

/ fxf -- format statements

.globl	sform
.globl	sdata

.globl	ptemp
.globl	error

sform:
	cmp	progt,$6		/ block data
	bne	1f
	jsr	r5,error; 50.
1:
	jsr	r5,ptemp; 'f; efno; line
	rts	r5

sdata:
	jsr	r5,ptemp; 'd; efno; line
	rts	r5