Trailing-Edge
-
PDP-10 Archives
-
ap-c796e-sb
-
pltprm.unv
There are 3 other files named pltprm.unv in the archive. Click here to see a list.
x
,@P C2}i P C@@ CJ>0 ah
ARG.L=1b5
CNT.=0
IRP b(A,<
A=ARG.L-CbHNT.
CNT.=CNT.+1bh>
IRP A,<
MOcVE ARG.L,-15-CNT.c((P)
ARG.L=ARG.LcH-1
CNT.=CNT.-1>G>t90P GC(P KK|@ vPE
IFE CONCvpEA,<
XCT 0,FOREwR.## ;PROCESS A w0ERROR
>
IFN CONwPCEA,<
XCT ER%Awp,FORER%## ;PROCESxS A ERROR
>
Cx0AI B,D(C) ;SEVxPERITY CODE AND ERROR D
LEJ1P LQJ1P M?}A M?}MVt= y]
SALL
y0C.....=0
IRP ByP,<C.....=C.....+1yp>
IF2,<IFNDEF zA,<EXTERNAL A>>
IFNB <B>,<
PzPUSH P,L
MOVEI Lzp,[XWD -C.....,0
{ IRP B,<B>]+1>{0
PUSHJ P,A
I{PFNB <B>,<
POP P,L>MVt= f
; SALL
f( T.....=0
ST...fH.=1
IF2,<IFNDEFfh A,<EXTERNAL A>g>
IFNB <B>,<
g( PUSH P,AP
IRP gHB,<IFIDN <B> <$gh1>, <ST....=0>
h IFIDN <B> <$h(2>, <ST....=-1>
hH IFDIF <B> <hh$1>,<
IFDIF <iB> <$2>,<
i( IFG ST....,<PUSHiH P,B
T...ih..=T.....+1
>
j ST....=1>>>
R.....=0
IjHRP B,<IFIDN <Bjh> <$1>, <ST....=0k>
IFIDN <Bk(> <$2>, <ST....=-kH1>
IFDIF <khB> <$1>,<
IFDlIF <B> <$2>,<
l( IFE ST....,<lHT......=T......+1lh
PUSH P,mB>
IFL STm(....,<T.....=T...mH..+1
PUSmhH P,[B]>
nIFG ST....,<T....n(..=T......+1
nH R.....=R.....+1nh
HRRZI AP,-oT.....+R.....+1(Po()
PUSH P,APoH
>
ST....oh=1>>>>
MOVEI APp,-T.....+R.....+1p((P)
PUSHJ P,A
IFNB <B>,<
SphUB P,[T.....,,T..q...]
POP P,AP>O>|H\ p
POPJ P,AQeK` |{
SALL
|0IFNB <B>,<IFIDN |P<B>,<.>,<SIXBIT |p/A/
ENTRY }A.
A.:>
}0 IFDIF <B>,<.}P>,<SIXBIT /B/
}p ENTRY A
~ A:>
>
IF~0B <B>,<SIXBIT /~PA/
ENTRY A~p
A:>
IFN F40LIB,<
CAIA
0PUSH P,CEXIT.##
>
Q&e}`P W
P W%
P X@ Y>=1 d,
C.....=d(0
IFNB <B>,< IdHRP B,<C.....=C..dh...+1
PUSH Pe,B>>
PUSHJ P,e(A
IFN C.....,<eH SUB P,[C.....,,C.....]>
YC P `@ a`P a+= +a? t(&
SUB P,[tH15,,15]
HRLZ APth,P
ADD AP,[1,,2]
BLT AP,16d@@ dD@ eKy r
IRP A,< POP P,A>e&\W sh
JRST RAX$##g4 rH
HRRZ R0rh,P
ADD R0,[2,,1s]
BLT R0,16(P)
ADD P,[15,,15]g4P qH
IRP A,< PUSH P,A>ggI;A ggh@@ hD@ m%P Xmk`P m
VQ Xm~+zP m6MkyP m^EpP S@P *D A *D *i@A *i@*
VA *
V*|A *|*|A *|*)6A *)6*8 A *8 *LA *L>}{woP