Trailing-Edge
-
PDP-10 Archives
-
BB-BT99U-BB_1990
-
10,7/galaxy/pulsar/plrmac.unv
There are 10 other files named plrmac.unv in the archive. Click here to see a list.
x
,Ui@P B@ K@|V
%A0A==KA&777
%A0B==B&J`777
A1 \%A0A,\%A0B
E%CHK A,BD Z}T
%A1A==EZ A%A&777
%A1B==Z@B&777
A2 \%A1A,\%A1B
C*5 BH [}\
%A2A==A[ S%A&777
%A2B==[@B&777
E \%A2B,\%A2A
=C*EC*P C*P C*P C*P >C*P `C* P aC* P aC*
P bC*
P bC*P cC*P cC* P C*(P dC*(P dC*)P hC*)P iC**P iC**P jC*+P jC*+P kC*@P C*HP kC*HP lC*IP lC*IP qC*JP qC*JP rC*KP rC*KP sC*`P C*hP sC*hP tC*iP tC*iP pC*jP$6C*jP hC*kP$'C*kP 6C*P C*P$>C*P @C* P AC* P AC*
P BC*
P BC*P CC*P CC* P
C*(P DC*(P DC*)P HC*)P IC**P IC**P JC*+P JC*+P KC*@P C*HP KC*HP LC*IP LC*IP QC*JP QC*JP RC*KP RC*KP SC*`P C*hP SC*hP TC*iP TC*iP `C*jP 'C*jP XC*kP$6C*kP C* P C*$P C*$ P
C*$@P C*$`P C*%P C*% P C*%@P C*%`P C*0P C*4P C*4 P
C*4@P C*5P C*5 P C*5@P C*5`P C*@P C*DP C*D P -C*D@P ?C*D`P =C*EP -C*E P 6C*E@P (C*E`P >C*PP C*TP &C*T P .C*T@P .C*T`P 'C*UP 5C*U P 0C*U@P %C*U`P 0C*`P C*dP xC*d P xC*d@P yC*d`P yC*eP zC*e P zC*e@P {C*e`P {C*pP C*tP |C*t P |C*t@P =C*t`P /C*uP &C*u P ?C*u@P 7C*u`P 7CL*P$CL*P$CL*P$CL*P CL*P CL* P CL* P CL*
P CL*
P CL*P CL*P CL* P$CL*(P CL*(P CL*)P CL*)P CL**P CL**P CL*+P CL*+P CL*@P$CL*HP CL*HP CL*IP CL*IP CL*JP CL*JP CL*KP CL*KP CL*`P$CL*hP CL*hP CL*iP CL*iP CL*jP CL*jP CL*kP CL*kP CL*P$CL*P$CL*P CL* P CL* P CL*
P CL*
P CL*P CL*P CL* P$CL*(P CL*(P CL*)P CL*)P CL**P CL**P CL*+P CL*+P CL*@P$CL*HP CL*HP CL*IP CL*IP CL*JP CL*JP CL*KP CL*KP CL*`P$CL*hP CL*hP CL*iP CL*iP$CL*jP$CL*jP$CL*kP$CL*kP$CL* P$CL*$P$CL*$ P$CL*$@P$CL*$`P$CL*%P$CL*% P$CL*%@P$CL*%`P$CL*0P$CL*4P$CL*4 P$CL*4@P$CL*4`P$CL*5P$CL*5 P$CL*5@P$CL*5`P$CL*@P$CL*DP CL*D P CL*D@P CL*D`P CL*EP CL*E P CL*E@P CL*E`P CL*PP$CL*TP CL*T P CL*T@P CL*T`P CL*UP CL*U P CL*U@P CL*U`P CL*`P$CL*dP CL*d P CL*d@P CL*d`P CL*eP
CL*e P
CL*e@P CL*e`P CL*pP$CL*tP
CL*t P
CL*t@P CL*u P CL*u@P CL*u`P CN,
hy/
..X==0
..Z==1
..W0==0
IRPC A,<
IFE ..Z-1,<..pW==..W!<"A"B7>>
IFE ..Z-2,<..0W==..W!<"A"B15>>P
IFE ..Z-3,<.p.W==..W!<"A"B23>>
IFE ..Z-4,<0..W==..W!<"A"B31P>>
IFE ..Z-5,p<
IFE ..X,<
B:
..X0==1
>
EPXP ..W
..pZ==1
..W=="A"B7
>
0 ..Z==..Z+1
P>
IFE ..X,<B:p>
EXP ..W
C: POINT 8,B
D@ E:=P
E2]I7P @E2]h6P E2};P EV0@ F({A F({F
2A F
2FMmA FMmF^
2A F^
2FlA FlFA FFA FFX{A FX{F[A F[F
VA F
VF[RA F[RFA FF
2A F
2G( 3 |
%%T1==0=`
IFIDN <A> <S>,><%%T1==77>
IFID> N <A> <A>,<%%T1==>@177>
IFIDN <A> >`<E>,<%%T1==377>
? IFE %%T1,<
PRI? NTX ?BAD CALL TO ?@MACRO "SET".
PA?`SS2
END
>
%%@T2==0
REPEAT %%@ T1+1,<%CAE \%%T2
%%T2==%%T2+1>
C*@PC*HG <`}
%%T1==0O`
IFIDN <A> <S>,P<%%T1==77>
IFIDP N <A> <A>,<%%T1==P@177>
IFIDN <A> P`<E>,<%%T1==377>
Q IFE %%T1,<
PRIQ NTX ?BAD CALL TO Q@MACRO "SET".
PAQ`SS2
END
>
%%RT2==0
REPEAT %%R T1+1,<%CAS \%%T2
%%T2==%%T2+1>
C*IPqC*JGx ~5GLOB A>G 4|$
%%T1==0A`
IFIDN <E> <S>,B<%%T1==77>
IFIDB N <E> <A>,<%%T1==B@177>
IFIDN <E> B`<E>,<%%T1==377>
C IFE %%T1,<
PRIC NTX ?BAD CALL TO C@MACRO "SET".
PAC`SS2
END
>
%%DT2==0
REPEAT %%D T1+1,<%CEA \%%T2
%%T2==%%T2+1>
C*5@PC*5`G \~
%%T1==0``
IFIDN <E> <S>,a<%%T1==77>
IFIDa N <E> <A>,<%%T1==a@177>
IFIDN <E> a`<E>,<%%T1==377>
b IFE %%T1,<
PRIb NTX ?BAD CALL TO b@MACRO "SET".
PAb`SS2
END
>
%%cT2==0
REPEAT %%c T1+1,<%CES \%%T2
%%T2==%%T2+1>
C*HPlC*IG"]K@ @yzIFL <A-B`>,<
PRINTX#ALLOCATEDBLOCKGSIZEPA>ISvTO'SMALLCFORBB>MALLLFOG"uP G#
PAGE`; (A Continued on next page)
SAL L; (A Continued @from previous page) previous pagGC& 0ylPOINT 8,<<P<A>+CHP8WD-1>/CHpP8WD>-1+B,<<<MOD@(<A>+CHP8WD-1,CHP8WD)>+1>*8>-1HGC&* ypCPTR (<A>-1,<B>)R (<A>GN = |t
%%T1==0K`
IFIDN <S> <S>,L<%%T1==77>
IFIDL N <S> <A>,<%%T1==L@177>
IFIDN <S> L`<E>,<%%T1==377>
M IFE %%T1,<
PRIM NTX ?BAD CALL TO M@MACRO "SET".
PAM`SS2
END
>
%%NT2==0
REPEAT %%N T1+1,<%CSA \%%T2
%%T2==%%T2+1>
K*PK*GN( \ }|
%%T1==0]
IFIDN <S> <S>,\`<%%T1==77>
IFID]@N <S> <A>,<%%T1==] 177>
IFIDN <S> ^<E>,<%%T1==377>
]` IFE %%T1,<
PRI^ NTX ?BAD CALL TO ^@MACRO "SET".
PA^`SS2
END
>
%%_T2==0
REPEAT %% T1+1,<%CSE \%%T2
%%T2==%%T2+1>
CL*PCL*I( 8{F
%%T1==8 A
REPEAT B-A+8@1,<%DAE \%%T1,\0
%%T1==%%T1+1>
iLvLVPxiLvkI F|6
%%T1==F A
REPEAT B-A+F@1,<%DAS \%%T1,\74F`
%%T1==%%T1+1>
*U@P%C*U`I :{V
%%T1==: A
REPEAT B-A+:@1,<%DEA \%%T1,\13:`4
%%T1==%%T1+1>
uX<Pi\u[ZI T}&
%%T1==T A
REPEAT B-A+T@1,<%DES \%%T1,\0
%%T1==%%T1+1>
C* PAC*
I?: hxb
IFNDEF G
$SCHD,<EXTERN G$S
(CHD>
SETOM G$SCHD
SETOM G$SCILtQ pILtvQ ILt9Q @ILv<vQ IN H|F
%%T1==H A
REPEAT B-A+H@1,<%DSA \%%T1,\0
%%T1==%%T1+1>
C*uP&C*u IN
P <{`
%DAE \A,\B
xl J.J:IN0 J|P
%DAS \A,\B
DdGIN( V}6
%%T1==V A
REPEAT B-A+V@1,<%DSE \%%T1,\0
%%T1==%%T1+1>
C*HPLC*IIN, <@{d
%DEA \A,\B
u[rIN.0 X}@
%DES \A,\B
TC*iIO J@|T
%DSA \A,\B
G#rIOP X@}D
%DSE \A,\B
6C*kJ E`{"
V1A==A4
V2A==B
%E1 \V1A,\V2A
%E1 K*P K*P K*P$.K*P K*P$.K* P$.K* P$.K*
P$.K*
P$.K*P$.K*P$.K* P$.K*(P$.K*(P$.K*)P$.K*)P K**P K**P K*+P K*+P >K*@P$.K*HP K*HP$.K*IP$.K*IP$.K*JP$.K*JP$.K*KP$.K*KP$.K*`P K*hP$.K*hP$.K*iP K*iP K*jP K*jP K*kP K*kP$.K*P K*P K*P K* P$.K* P$.K*
P$.K*
P$.K*P$.K*P$.K* P$.K*(P$.K*(P$.K*)P$.K*)P K**P K**P /K*+P K*+P K*@P$.K*HP$.K*HP$.K*IP$.K*IP$.K*JP$.K*JP$.K*KP$.K*KP$.K*`P$.K*hP$.K*hP$.K*iP K*iP K*jP K*jP K*kP K*kP K* P K*$P$.K*$P$.K*$P 0K*$ P 1K*$ P 1K*$
P 2K*$
P 2K*$P 3K*$P 3K*$ P$.K*$(P 4K*$(P 4K*$)P$.K*$)P$.K*$*P$.K*$*P$.K*$+P$.K*$+P$.K*$@P$.K*$HP$.K*$HP 5K*$IP 5K*$IP 6K*$JP 6K*$JP 7K*$KP 7K*$KP 8K*$`P K*$hP 8K*$hP 9K*$iP$.K*$iP$.K*$jP$.K*$jP$.K*$kP$.K*$kP$.K*%P K*%P$.K*%P$.K*% P 9K*% P :K*%
P :K*%
P ;K*%P ;K*%P <K*% P K*%(P <K*%(P =K*%)P$.K*%)P$.K*%*P$.K*%*P$.K*%+P$.K*%+P$.K*%@P K*%HP >K*%HP$.K*%IP$.K*%IP$.K*%JP$.K*%JP$.K*%KP$.K*%KP$.K*%`P K*%hP$.K*%hP$.K*%iP$.K*%iP$.K*%jP$.K*%jP$.K*%kP$.K*%kP$.K*0P K*4P$.K*4P =K*4P K*4 P !K*4 P !K*4
P "K*4
P "K*4P #K*4P #K*4 P
K*4(P $K*4(P $K*4)P$.K*4)P$.K*4*P$.K*4*P$.K*4+P$.K*4+P$.K*4@P$.K*4hP (K*4hP )K*4iP$.K*4iP$.K*4jP$.K*4jP$.K*4kP$.K*4kP$.K*5P$.K*5P -K*5P$.K*5 P )K*5 P *K*5
P *K*5
P +K*5P +K*5P ,K*5 P$.K*5(P ,K*5(P -K*5)P$.K*5)P$.K*5*P$.K*5*P$.K*5+P$.K*5+P$.K*5@P$.K*5HP K*5HP K*5IP K*5IP K*5JP K*5JP K*5KP K*5KP K*5`P$.K*5hP K*5hP K*5iP$.K*5iP$.K*5jP$.K*5jP$.K*5kP$.K*5kP$.K*@P
K*DP K*DP$K*D@P$K*D`P$.K*EP K*E P K*E@P K*E`P
K*T`P$.K*UP$.K*U P K*U@P K*U`P K*`P K*dP$.K*d P$.K*d@P$.K*d`P$.K*eP K*e P K*e@P K*e`P K*pP ?K*tP$.K*t P$.K*t@P$.K*t`P$.K*uP$.K*u P
K*u@P$.K*u`P$.K
ht Y}HSYM79(\A)SYM79(\A)KL*P KL*P KL*P KL*P KL*P KL* P KL* P KL*
P KL*
P*KL*P*KL*P*KL*P*KL*(P*KL*(P*KL*)P*KL*)P KL**P KL**P KL*+P KL*+P KL*@P KL*HP KL*HP KL*IP KL*IP KL*JP KL*JP KL*KP KL*KP KL*`P KL*hP KL*hP KL*iP KL*iP KL*jP KL*jP KL*kP
P KL*
P*KL*P*KL*P*KL*P*KL*(P*KL*(P*KL*)P*KL*)P*KL**P*KL**P*KL*+P*KL*+P*KL*@P KL*HP KL*HP KL*IP KL*IP KL*JP KL*JP KL*KP KL*KP KL*`P KL*hP KL*hP KL*iP
P KL*$
P KL*$P KL*$P KL*$ P KL*$(P KL*$(P KL*$)P KL*$)P KL*$*P KL*$*P KL*$+P KL*$+P KL*$@P KL*$HP KL*$HP KL*$IP KL*$IP KL*$JP KL*$JP KL*$KP KL*$KP KL*$`P KL*$hP KL*$hP KL*$iP KL*$iP KL*$jP KL*$jP KL*$kP KL*$kP KL*%P KL*%P KL*%P KL*% P KL*% P KL*%
P KL*%
P KL*%P KL*%P KL*% P KL*%(P KL*%(P KL*%)P KL*%)P KL*%*P KL*%*P KL*%+P KL*%+P KL*%@P KL*%HP KL*%HP KL*%IP KL*%IP KL*%JP KL*%JP KL*%KP KL*%KP KL*%`P KL*%hP KL*%hP KL*%iP KL*%iP KL*%jP KL*%jP KL*%kP KL*%kP KL*0P KL*4P KL*4P KL*4P KL*4 P KL*4 P KL*4
P KL*4
P KL*4P KL*4P KL*4 P KL*4(P KL*4(P KL*4)P KL*4)P KL*4*P KL*4*P KL*4+P KL*4+P KL*4@P KL*4HP KL*4HP KL*4IP KL*4IP KL*4JP KL*4JP KL*4KP KL*4KP KL*4`P KL*4hP KL*4hP KL*4iP KL*4iP KL*4jP KL*4jP KL*4kP KL*4kP KL*5P KL*5P KL*5P KL*5 P KL*5 P KL*5
P KL*5
P KL*5P KL*5P KL*5 P KL*5(P KL*5(P KL*5)P KL*5)P KL*5*P KL*5*P KL*5+P KL*5+P KL*5@P KL*5HP KL*5HP KL*5IP KL*5IP KL*5JP
KL*5JP
KL*5KP KL*5KP KL*5`P KL*5hP
KL*5hP
KL*5iPKL*5iP KL*5jP KL*5jP KL*5kP KL*5kP KL*@P KL*DP KL*D P KL*D@P KL*D`P KL*EP KL*E P KL*E@P KL*E`P KL*PP KL*TP KL*T P KL*T@P KL*T`P KL*UP KL*U P KL*U@P KL*U`P KL*`P KL*dP KL*d P KL*d@P KL*d`P KL*eP KL*e P KL*e@P KL*e`P KL*pP KL*tP KL*t P KL*t@P KL*t`P KL*uP KL*u P KL*u@P KL*u`P L
xA L
xL$[A L$[L&)6A L&)6L4:A L4:L4@A L4@LL-3A LL-3LL.:A LL.:LMiWA LMiWLM|A LM|L|-3A L|-3L|.:A L|.:L}|A L}|L|`A L|`L[A L[L[@A L[@L]`A L]`L)6A L)6M4P!M3I7P M<t:Q xMRxWP MRV>9P MS&(1Q MS.
WQ MS.[yQ MS6
WQ MVt=A MVt=O2| k8eIRP A,<
kX IF2,<IFDEF A,<.kxIFN A,EXTERN,<INlTERN A>>
l8IFNDEF A,<EXTERNlX A>
Q SUPPRESQA>>FSUPPRO3FQ>l,P Q>l,qP Q>l-P #Q>l9YP
Q>l:xP Q>l;P Q>l;XP Q>l;rP ?Q>l<YP Q>l=6P &Q>l=9P %Q>lXHP Q>lXIP Q>l[RP &Q>li0P Q>li1P Q>li6P Q>li9P !Q>lx9P
2P}Q>m9P Q>mvP Q>m;P Q>m;P "Q>mI7P Q>mKsP Q>mM7P Q>mYRP Q>m[ZP Q>m\zP $Q>mh6P Q>mnP Q>mzqP <Q>m|P $Q>m}YP
P Q>n
P Q>n
[P Q>n({P Q>n)3P Q>n*8P Q>n8:P Q>n8zP Q>n9P #Q>n9:P #Q>n:1P
Q>n:2P
Q>n;P Q>n;P ?Q>n;VP Q>n;XP Q>n<P
Q>n<QP>Q>n=3P?Q>n=7PQ>n=xPQ>nH1PQ>nHyP !Q>n[H@ Q>n]P Q>nj2P :Q>nl|P =Q>u
:A R/
:RE|zA RE|zRMj:A RMj:RMmA RMmRMm A RMm RMm A RMm RMySA RMySRM{@A RM{@RUSA RUSR]+qA R]+qRu}`A Ru}`RLA RLR|A R|R%9A R%9R>K`A R>K`S>}P S>BP S>$\BP S>-yBP S>5iBP S>6 BP
S>EI"P S>M|P S>NbP S>f("P S>fI"P S>u|P S?BP S?%I"P S?%]BP S?,YBP S?5I"P S?6 BP
S?=I"P U7[V
(xZ
CAXE A
H,LT.BLP
CAXN A
h,LT.LTM
JRST B
CAXE A,LT.NL
CAXN A,LT.NLV
JRST B
NLV@4@UVn<VuV@AV@V}:AV}:VYSAVYSV,:AV,:V5LtAV5LtV~ 7A$V~ 7V;qA%V;qV}:A5V}:VN8AdVN8VY:AtVY:V&yAV&yV'X);X[ZA X[ZXRA XRYt+zP Yt87P Yt;wP YtI9P YtMP Yt[sP YtkSP YtlP
Yu P YuxP YuLPP YuMP Yv
rP YvK;P YvLRP YvY3P YvkP YvlP
Yv{P Y2Q Y2 Q Y20Q Y2@Q Y2PQ Y2`Q Y"luQ xY&i1 #
LST8OF. XCREF
CDOX OTSINI
CDO x
CDO .ZPAGA
CDO .ZPAGN
CDO .ZCHNK
CDXO .SAVE1
CDO .SxAVE2
CDO .SAVE3
CDO .SAVE4
C8DO .SAVET
CDO .XSV13
CDO .SV14
CDO .SV15
CDO .SV16
NT .RETT8
NT .RETF
CDOX .RETE
CDO .AOSx
CDO .SOS
CDO .ZERO
NT8 .POPJ
CDO .SXTOP
CDO .SAVEx8
CDO .STKST
CDO .TRSET
NT .POPJ1
C XDO .UD2SC
CDO x .SC2UD
CDO .
CPUTY
CDO .DI
8E
CDO
CDO
X
CDO
CDO C
x%RPRM
CDO C%INTR
CDO C%SEND
8CDO C%RECV
CDO XC%BRCV
CDO C%RExL
CDO C%CPID
CDO C%KPID
CDO
8C%SPID
CDO C%MA
XXP
CDO C%PIDJ
x CDO C%PIDH
CDOIDX
CDO
C
CDO
CDO
CDO F
CDO F%AOPN
CDO F%OOPN
8CDO F%IBYT
CDO XF%OBYT
CDO F%IBxUF
CDO F%OBUF
CDO F%REL
CDO 8F%DREL
CDO F%RRXEL
CDO F%REW
xCDO F%POS
CDO F%CHKP
CDO F%INF8O
CDO F%FD
CDXO F%REN
CDO F%DxEL
CDO F%FCHN
CDO
CDO
CDO
CDO
CDO
CDOX
CDO
CDO
CDxO FUNCT.
CDO
CD8O M%ACQP
CDO M%XRELP
CDO M%IPSNx
CDO M%NXPG
CDO M%IPRC
CDO M8%IPRM
CDO M%AQNXP
CDO M%RLNP
xCDO M%CLNC
CDO M%FPGS
CDO M%GM8EM
CDO M%RMEM
X CDO
CDO
CDO
CDO
CDO
CDO
CDO M%GPAG
C8DO M%RPAG
CDO
X CDO
CDO
CDO
CDO
CDO
CDO
CDO
CDO 8
CDO T%TXEXT
CDO T%TTY
x CDO
CDO
CDO
CDO
CDO
CDO8
CDO
CDO
CDXO
CDO
CDO x
CDO L%CLST
CDO L%DLST8
CDO L%CENT
CXDO L%CBFR
CDO Lx%DENT
CDO L%NEXT
CDO L%FIRS
8CDO L%LAST
CDO XL%PREV
CDO L%PRxEM
CDO L%CURR
CDO L%RENT
CDO8 L%SIZE
CDO L%AXPOS
CDO
CDO
x CDO
CDO
CDO
CDO
CDO
CDO8
CDO
CDOX I%NOW
CDO I%EXxIT
CDO I%ION
CDO I%IOFF
CDO 8I%SLP
CDO I%INTX1
CDO I%INT2
xCDO I%INT3
CDO I%TIMR
CDO
CD8O
CDO I%SOPR
XCDO I%WTO
CDO
x CDO I%HOST
CDO I%JINF
CDO I%C8JOB
CDO I%KJOB
CDO S%U2DT
CDO S%DT2U
CDO S%DATI
CDO S%8SIXB
CDO S%CMNDX
CDO S%TBLK
CxDO S%SCMP
CDO S %ERR
CDO S%INTR 8
CDO S%EXIT
C XDO S%TBAD
CDO S x%TBDL
CDO S%NUM!I
CDO K%RCO!8C
CDO K%WCOC!X
CDO K%SUET
C!xDO K%STYP
CDO K"%TXTI
CDO K%SOU"8T
CDO K%BOUT
"XCDO K%BIN
CDO K"x%BACK
CDO K%TPO#S
CDO K%BUFF
#8CDO K%FLSH
CDO #XK%OPEN
CDO K%EC#xHO
CDO
CDO
$CDO
CDO
CDO
$8 CDO
CDO
CDO
LSTON.
YHWP YHt;P YHt;P YHt[zP YHt[{P YHtj7P YHtkzP YHuX<P YHu[zP YHvyP YHvK P YHv\XP YO%GP YO%yG (XO
IFNDEF (xLSTIN.,LSTIN.==0 )
IFE LSTIN.,<
)8 IFIDN <XCREF><A)X>,<.XCREF>
)x XLIST>
LSTIN.==LSTIN.+1STINYO%{G *8Y
IFG LST*XIN.,LSTIN.==LSTIN*x.-1
IFLE LSTIN+.,<.CREF
LIST>
YP@ YPt+P YPuP YPu6P YPuMP YPuX<P YPukP YPukP YPulvP YPv;P YPv=6P Z@ Z
<8A Z
<8ZXA ZXZKQA ZKQZ6 yA Z6 yZ=Y6A Z=Y6Z>3A Z>3ZN
QA ZN
QZN
VA ZN
VZN
wA ZN
wZw
A Zw
Z[A Z[ZKXA ZKXZY6A ZY6Z3A Z3[I; 0y[LEVA==1BALEVA==1B[FkvP [> py_<A>-<<<A>/<B>>*<B>>A] GH>IF2,<IFDEFGh A,<A==A>> IFNDEF A,<A==B>]P ~7CDO A _
Ql}p _
Qm7p _STA _ST`P a+= 5a3X1P a3XwP a3Y9P a3\P a3\ZP a3]P a3]P a3YP 2a3Z7P a3i9P a3zP aJ}Ks aX+
SALL ax
LSTOF. XCREbF
%%.GLX==b8%%.GLX
GLXVRbXS==GLXVRS
bxIFNB <A>,<%%.MODc==SIXBIT/A/>
c8IFNB <B>,<%%.OTScX==SIXBIT/B/>
cx
GLOB I%INIT
TOPS10 <
d8 SEARCH UUOSYM dX
%%UUOS==%%UUOdxS
>
TeOPS20 <
SEAe8RCH MONSYM
; eX%%MONS==%%MONS
>
IFB <fB>,<
IFN Gf8LXPUR,<
.TEXTfX |,REL:GLXLIB/SEAfxRCH/REQUIRE:I%INIgT/SEGMENT:LOW|
g8 >
DEFINE $gXDATA (NAM,SIZ<1>)gx,<
NAM: BLOChK SIZ
>
h8DEFINE CDO (X),<GhXLOB X>
DEFINEhx NT(X),<CDO X>
i LIBVEC
> i8
IFNB <B>,iX<
CHKEDT (ixB)
IFDIF <jB><INI>,<
IFj8N GLXPURE,<.PSECTjX .HIGH.>
IFE jxGLXPURE,<
TkWOSEG 400000
k8 RELOC 0
RELkXOC 400000
> kx
DEFINE $DAlTA(NAM,SIZ<1>),< l8
IFN GLXPURE,lX<.PSECT DATA>
lx IFE GLXPURE,<REmLOC>
IFNDEF m8B%D,<B%D::! B%mXDL==:0>
NAM: mxBLOCK SIZ
B%nDL==:B%DL+SIZ
n8 IFN GLXPURE,<.nXENDPS DATA>
nxIFE GLXPURE,<RELOoC>
>
Io8FDIF <B><OTS>,< oX
DEFINE CDO (oxX),<GLOB X>
DpEFINE NT(X),<CDO p8X>
LIBVEC
pX >
>
px
IFIDN <B><IqNI>,<
DEFINE q8$DATA (NAM,SIZ<1>qX),<
NAM: BLOqxCK SIZ
>
r>
>
LSTr8ON.
GLOB rX<.POPJ, .RETT, .RrxETF>
OPDEF $REsT [POPJ P,]
OPs8DEF $RETT [PJRST sX.RETT]
OPDEF $sxRETF [PJRST .RETFt]
OPDEF $RETITt8 [JUMPT .POPJ]
tX OPDEF $RETIF [JUtxMPF .POPJ]
.NOuDDT $RET,$RETT,$Ru8ETF,$RETIT,$RETIF
$RETIT,$RETIFe"luP'f[RA f[Rf$A f$f&DZA f&DZf.,@A f.,@f/
:A f/
:fMmA fMmfv[4A fv[4f;8A f;8fA ff$(2A f$(2f$)A f$)f$+A f$+f*)A f*)g*P g*P g*P g* P g*@P g*`P g*P g* P g*@P g*`P g* P g*$P g*$ P g*$@P g*$`P g*%P g*% P g*%@P g*%`P g*0P g*4P g*4 P g*4@P g*4`P g*5P g*5 P g*5@P g*5`P g*@P g*DP g*D P g*D@P !g*D`P !g*EP "g*E P "g*E@P #g*E`P #g*PP g*TP $g*T P $g*T@P %g*T`P %g*UP &g*U P &g*U@P 'g*U`P 'g*`P g*dP (g*d P (g*d@P )g*d`P )g*eP *g*e P *g*e@P +g*e`P +g*pP g*tP ,g*t P ,g*t@P -g*t`P -g*uP .g*u P .g*u@P /g*u`P /g*P g*P -g*P &g* P .g*@P .g*`P 'g*P 5g* P 0g*@P %g*`P 0g* P ?g*$P xg*$ P xg*$@P yg*$`P yg*%P zg*% P zg*%@P {g*%`P {g*0P =g*4P |g*4 P |g*4@P =g*4`P /g*5P &g*5 P ?g*5@P 7g*5`P 7g*@P -g*DP >g*D P `g*D@P ag*D`P ag*EP bg*E P bg*E@P cg*E`P cg*PP 6g*TP dg*T P dg*T@P hg*T`P ig*UP ig*U P jg*U@P jg*U`P kg*`P (g*dP kg*d P lg*d@P lg*d`P qg*eP qg*e P rg*e@P rg*e`P sg*pP >g*tP sg*t P tg*t@P tg*t`P pg*uP$6g*u P hg*u@P$?g*u`P 6g zb
DEFINE E (V1, @V2)<
V1A==V1
`V2A==V2
%E1 \V1!A,\V2A
>
DEF! INE %E1 (V1, V2)<!@
IFDEF AB%'V1!`,<
IFN AB%'V"1-V2,<
%RDF A" B%'V1',\AB%'V1"@',\V2>>
IFNDEF "`AB%'V1,<AB%'V#1==V2>
IFDEF B# A%'V2,<
IFN #@BA%'V2-V1,<
%#`RDF BA%'V2',\B$A%'V2',\V1>>
I$ FNDEF BA%'V2,<$@BA%'V2==V1>
>
$`
DEFINE %DAB (F, L)<
%% %T1==F
REPEAT L%@-F+1,<%DAB \%%T%`1,\C
%%T1==%%T&1+1>
>
DEFIN& E %DAB (T1,T2)<&@
IFNDEF AB%'T&`1,<AB%'T1==T2!1'B18>
>
'
DEFINE DBA ('@F, L)<
%%T1==F
REPEAT L-F+1,<%(DBA \%%T1,\D
( %%T1==%%T1+1>
>(@
DEFINE %DB(`A (T1,T2)<
IFND)EF BA%'T1,<BA) %'T1==T2!1B18>
>)@
DEFIN)`E DSAB (V, C)<
%DAB \V,\C
>*
DEFI*@NE DSBA (V, C)<*`
%DBA \V,\C
+>
DEF+ INE CAB <
%CH+@K A,B
CAB
+`>
DEF,INE CBA <
%CH, K B,A
CBA
>
CBA
gfjv {AE%Av;xh$^A h$^h&N A h&N i
tKHP i
tKIP i
tKIP i
tKJP i
tKJP i
v P i
vN8Q ~ih1p ih5p LihQp DihZp Yihtp MiiP 'iip ?iip Aiip SiiP ii1p Kii<p CiiQp &iiTP &iiWp GiiYp ZiiZP &ii[p Nii]p ii{p Cijp Xij1p *ij1p (ij4p ]ij6p \ij7p Lij7p %ij8p ^ij9p `ij;p ^ijQp Eikp Fikp Dikp BikP `ik[p Zikqp ikqp )iktp ]ik{p Filp Kilp ilp Eilp @ilp Ailp JilP ilSp BilTp YilXp @ilip Iilpp Xilsp Jilvp \ilwp ?ilxp [ilzp Iil}p `im6p [im7p WimQp _imVp OimWp MimXp _imqp 4imyp it<RQ xit^P'ivLVP iP it;P itKHP itKIP itKIP itKJP itKJP itMTQ xithzQ xiv)VP'ity7P'ivi9Q xi tm7P'i uI7Q xi$tWQ i$t+zQ i$tI1Q @i$t[sQ i$t[zQ i$uI:Q i$uKRQ i$uMQ i$ux;Q @i$u|Q i$v;xQ i0t+P'i0v)1Q xi2Al}p i2iip i2ijp i2ilzp i?4( !IFN FTUUOS,B ;DEFINE UNi?4H P!IFN FTJSYS, INTERN AEDT i@tI7Q xi@vyP'i@v
ZP'i@v,8P'i@v-vQu@iLtP'iLt+xQ @iLtD0Q iLt\YQ iLt^QxLiLtiSQiLtlrQuQiLuiLuiTQ iLuiWQ @iLuk{Q iLulXP iLumQ iLu|wQ iLu}:Q iLvyP'iLv
sQ iLv
wQ iLv,:P iLv;Q iLvLVP xiLvkQ @iLvlQ 0iLv{Q @iXt;ZQ piXtI7P `iXt\PQ iXuQ iXuHZP iXui;Q @iXukrQ iXu}YQ i\t+P i\uwP i\uVP i\uHVP i\uX<P i\u[ZP i\uyVP i\v-7Q ic&:=P 2lFP `lJP oAFkP oBkP pP H f0~3h(
A: BLOCK B
A,E~C~&1NITi J.@ ,~ J.I@P`5~_J.I@ J.J3P`4@~dB~
@ J.J:P`5@~dB~
@ J.MP`5~^J.M Sr 0yW
XLIST
P IF2,<IFNDEF G$DEpBUG,<EXTERN G$DEBUG>
IFNDEF STS0D.L,<EXTERNAL STSPD.L>>
SKIPN G$DpEBUG
JRST e
MOVX TF,LEV0B
TDNN TF,G$PDEBUG
JRST ep
$TEXT (,<A Device: ^W/TCB.D0V(B)/ ^A>)
PUSHPJ P,STSD.L
IFNpB <C>,<
$TEXT (,<^W/C/^A>)
>0
$TEXT (,<>)
IFNB <D>,<D> p
e:!
LIST
e:!
LIST
t{P
u[rQ a3X1
vP
"P
" P
.[yQ <-P ` P `
P =
P `P P `
P A|
IFNDEF A AE%A,<
PRINTX A@% AE%A IS NOT DEFINED.
>sC*`0 S}
IFNDEF S AS%A,<
PRINTX S@% AS%A IS NOT DEFINED.
>tC*i, E|,
IFNDEF E EA%A,<
PRINTX E@% EA%A IS NOT DEFINED.
>6C*E@.0 d~$
IFNDEF d ES%A,<
PRINTX d@% ES%A IS NOT DEFINED.
>sC*hE0 .{
DEFINE . CAB <
%%T1==0.@
IFIDN <A> <S>.`,<%%T1==77>
IFI/DN <A> <A>,<%%T1/ ==177>
IFIDN </@A> <E>,<%%T1==377/`>
IFE %%T1,<
0PRINTX ?BAD CALL 0 TO MACRO "SET".
0@ PASS2
END
>
0` %%T2==0
REPEAT1 %%T1+1,<%CAB \1 %%T2
%%T2==%%T21@+1>
>
DEFINE1` %CAB (VALUE)<
IFNDEF AB%'VA2 LUE,<
PRINTX % 2@AB%'VALUE IS NO2`T DEFINED.
>>
DEFINED.
>>
O||
IFNDEF O SA%A,<
PRINTX O@% SA%A IS NOT DEFINED.
>C*P `~
IFNDEF ` SE%A,<
PRINTX `@% SE%A IS NOT DEFINED.
>NBH
P 9 {L
IFNDEF 9@AE%A,<AE%A==B!1B18>
yiXu0 G |<
IFNDEF G@AS%A,<AS%A==B!1B18>
yC*e, ; {\
IFNDEF ;@EA%A,<EA%A==B!1B18>
H .0 U },
IFNDEF U@ES%A,<ES%A==B!1B18>
DC*(N:`P I |L
IFNDEF I@SA%A,<SA%A==B!1B18>
E2};P W }<
IFNDEF W@SE%A,<SE%A==B!1B18>
SC*`$P 4`{8
IFDEF E5S%A,<
IFN ES%5 A-B,<
%RDF E5@S%A,\ES%A,\B>>5`
IFNDEF ES%A,<6ES%A==B>
IFDE6 F SE%B,<
IFN 6@SE%B-A,<
%RD6`F SE%B,\SE%B,\7A>>
IFNDEF SE%B,<SE%B==A>
J$` ,`zl
IFN CKR-DF.,<
PRINTX %A- TTEMPT TO REDEFIN-@E A FROM B TO C.
>OM B TO JdWP R P ~0A ~0S@P ]A ]LPA LP|,TP |I;P |kQP }yP B~
@A B~
@B~
HA B~
HJ.I A J.I J.I@A J.I@J.MA J.MJ4I3P N
0P Ni(A Ni(Ni)A Ni)Ni)A Ni)Ni*A Ni*Ni,A Ni,Ni:A Ni:N-2A N-2N~0A N~0O%<zA O%<zO%|A O%|O2`A O2`O2A O2O2 A O2 O2@A O2@R486P R4;<P SiP Sk<P Sm7P S9:A S9:SWP SuP S
WP V",qA V",qjUA jUj.+`A j.+`kpA kpkwA kw>}{woP