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