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