Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0003/pforms.mac
There are 4 other files named pforms.mac in the archive. Click here to see a list.
	title PFORMS - subroutines for PFORM

	search pasunv

ifn tops10,< search uuosym>
ife tops10,< search monsym>

	entry rescan,reljfn,getnam


	twoseg 400000

ifn tops10,<

rescan:	movei a,0		;nothing
	ttcall 10,[exp 1]	;rescan and skip if nothing there
	movei a,1		;something
	movem a,1(p)
	popj p,

reljfn:	jrst rclose##

getnam:	move b,filnam(b)
	jrst from6##

> ;ifn tops10

ife tops10,<
ife tenex,<
rescan:	movei a,0
	rscan
	movem a,1(p)
	popj p,
> ;ife tenex

ifn tenex,<
rescan:	setzm 1(p)
	popj p,
> ;ifn tenex

reljfn:	hrrz a,filjfn(b)
	rljfn
	 jfcl
	popj p,


getnam:	hrro a,c
	move b,filjfn(b)
	movsi c,(1B8)
	jfns
	popj p,
> ;ife tops10

	end