Trailing-Edge
-
PDP-10 Archives
-
BB-KL11L-BM_1990
-
galsys/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,U _@ P C4 @ *Q:Y
..NAC==*q0
IRP A,<
+ .ACV1 (A)>
.ACV3 (\..NAC)C' TQ5% ..AS(A,B ,ADD,SUB)(A,BC, 6I34 LSH A,-^D 9 LSH A,-^DC.:=p C2f} 9yCg
.EAWTO(:MTY,0)
.EAWTO(T:8YP,2)
.EAWTO(TX:XT,2)
.EAWTO(OBJ:x,0)
.EAWTO(ACK,;0)
.EAWTO(FLG,1;8)
.EAWTO(NOD,0);X
.EAWTO(JBN,0)
.EAWTO(ACD,0)
< .EAWTO(OCD,0)
<8.EAWTO(MFL,1)
.<XEAWTO(NHD,0)
<x
.EAWTO(PID,0)
AWTO(PID,0) C:' y7I
TXZ A, <^-<B>>TXZ A,CHuI7Q x CHvN8P 'CJ9ip CJ9jp CJ9l}p E2"@ `>
IFE `1B,<..TA==0>
`PIFN B,<EXP ..TA`p
PURGE ..T A>
PURGE ..TE2&i1 mi.u:
IFIDN <nE><C>,<EXTERNAL n8BMAN,BDEV>
SInXXBIT /A/
XWD BMAN,BDEV
D SR SM ELp E@tP 'E@v yQ ~ E@v:=Q | F:<P F; z:Q @ G@ MQ4m
..C X(,A,B) ..CGD Q5
..C X(A,A,B) ..CGDP O4y
..C X(E,A,B) ..CGDp OQ4}
..C X(G,A,B) ..CGDy P5
..C X(GE,A,B) ..CGE@ N4q
..C X(L,A,B) ..CGEI NQ4u
..C X(LE,A,B) ..CGE` PQ5
..C X(N,A,B) ..CGH :yK[
LST:OF.
X CRE
:YX GEN
X PRT
9y X CLS
X9AUT
X USW
X SPL ;
X SIZ
X M;8OD
X CHN
LSTON.
G3.= q/ IFN C.GALA , IFN C.GALAG4,m:Q G4-ZQ G4.
zQ G:YlP
G>vC@ wA/D LALL
PAGEwa; (A Continued ox n next page)
SALx L; (A Continued x@from previous pag e) previous pagGHt;rP GHtkP GHv P GHv)9P GHv:=P Iu Q @ IukyP Iv>9Q I!k7P I!k<P I m P I$P 'p IY{P .I Jq<]
IFNB <KB>,<..STR0 (.DECRK00,,<B>,A)>
IFKPB <B>,<SOS A> <B>,<SOS A>I6= 8-
A==<-11B<C>+1B<C-D>> P
IF1,<IFDEF %Ap,<PRINTX ?A ALREADY DEFINED>>
D0EFINE %A (OP,AC,PY,MSK)<
IFDIF p<Y><>,<
OP (<AC>,B+'Y,MSK)>
I0FIDN <Y><>,<
OPP (<AC>,B'Y,MSK)> >AC>,B'Y,MSK)>I'7 W59 ..OP(A,B ,DIV)..OP(A,BIOH1 3qS)
IFB <D4>,<
XWD [ASCIZ\40C\],[XWD B,A]>4P
IFNB <D>,<
4pXWD [EXP CM%FW!D5
ASCIZ\C\],[X WD B,A]>
,[XKH(Q P 3KJ
,bP KJ)bP KJIBP KJLbP !KJ=P ,KJ{P KJIBP !KJ =bP )KJ IP 'KJ Z"P 1KJ X"P KJ 9P &KJ$\BP +KJ$kP KJ$nBP KJ$|bP KJ%bP KJ%h"P KJ%i"P KJ%|BP KJ&I"P +KJ&K"P KJ&mP #KJ- P
KJ-iBP 1KJ-l"P *KJ-yBP KJ-{P
KJ.;P (KJ4"P KJ4"P 0KJ4+"P %KJ49BP KJ4="P )KJ4I"P KJ4LbP KJ5bP %KJ5iP KJ5iBP KJ6;"P KJL;BP KJLMP KJLh"P 0KJLkBP KJLlP KJLlbP KJM+BP KJMHbP -KJMLBP KJMmP KJMmbP KJN
P ,KJN
bP I KJNI"P \ P KJfkP (KJlIP KJlLbP KJt1 P KJt9"P KJt:"P $KJtlP 2KJtmP .KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv BP KJv
"P 3KJv
bP .KJv bP KJv)"P KJv9P KJv;P 2KJv;BP KJv<P KJv=bP KJv[P KJv["P KK-P KK
YBP 89KK
IF1,<IF8YDEF ERA$,PRINTX 8x?Duplicate error 9code A>
ERA$=98=ER%%%
ER%%%==E R%%%+1
R%%%==EKKP KK,}P KKLP KK|Y ~K?
ERR EOF~9,<End of file>
~XERR IFP,<Illegal ~xfile position>
ERR FDE,<File dat8a error>
ERR FNXD,<File is not onx disk>
ERR FSM, <File still mappe 8d> ;[301]
ERR X NSD,<No such dev xice>
ERR FCF,<File checkpoint fa8iled>
ERR SLE,<XA system limit waxs exceeded>
ERR IFS,<Illegal fil8e specification>
ERR FNF,<File nxot found>
ERR PRT,<Protection vi8olation>
ERR DNXA,<Device not avaxilable>
ERR NCE,<No "current" en8try in list>
ERXR NMA,<No IPCF mexssage is available>
ERR FDS,<Fil8es are on differeXnt structures>
xERR FAE,<File already exists>
ER8R USE,<UnexpectedX system error>
xERR NSP,<No such pid>
ERR BOL,<B8eginning of list Xreached>
ERR EOxL,<End of list reached>
ERR RQF,8<Receivers quota Xfull>
ERR SQF,<xSenders quota ful l>
ERR NRE,<No 8remembered entry> X
ERR TBF,<Table x is full>
ERR E
IT,<Table entry a
8lready exists>
XERR ITE,<Invalid
xtable entry>
ER R QEF,<Quota exce 8eded or disk full X>
ERR ARG,<Inva xlid argument spec
ified>
ERR IFN,
8<Invalid function
X specified>
ERR
x IJN,<Invalidfjob
ERR RAD,<Invaifi
ERR NUM,<Invalid numeric arg8ument>
ERR IDT,X<Invalid date fiexld specified>
ERR ITF,<Invalid t8ime field specifiXed>
ERR DOR,<Daxte/time out of range>
ERR DTM,<V8alue missing in dXate/time>
ERR MxDD,<Missing day in date/time>
ER8R DFZ,<Field zeroX in date/time>
xERR MDS,<Mnemonic date/time switch8 not implemented>X
ERR DFL,<Fieldx too large in date/time>
ERR ILR8,<Illegal year foXrmat in date/timex>
ERR NND,<Negative number in da8te/time>
ERR NPXF,<Not known whetxher past or future in date/time>
8 ERR RDP,<RelativXe date parse requxired>
ERR NSW,<Switch does not b8egin with slash>
ERR NOM,<Unrecoxgnized switch or keyword>
ERR NU8L,<Null switch orX keyword given>
x ERR INW,<Invalid guide word>
ER8R NC,<Not confirmXed>
ERR ICN,<Inxvalid character in number>
ERR N8QS,<Invalid quoteXd string - does nxot begin with quote>
ERR AMB,<Am8biguous switch orX keyword>
ERR NxMT,<Does not match token>
ERR CM8A,<Comma not giveXn>
ERR NNC,<Nodxe name may not ex ceed 6 characters 8>
ERR INT,<Node X terminator "::" xmust be specified >
ERR NSN,<Unkn 8own node name>
XERR IPS,<Invalid xpath specificatio n>
ERR IUS,<Inv 8alid user specifi Xcation>
ERR DGS x,<Device name may not exceed 6 cha 8racters>
ERR DN XE,<Unknown device x>
ERR DIO,<Devi ce can not do inp 8ut or output>
E XRR BDF,<Invalid d xate/time format>
ERR ABS,<Field !8too long for inte!Xrnal buffer>
ER!xR TMT,<Command to"o long for intern"8al buffer>
ERR "XBDS,<Invalid defa"xult string>
ERR# BTF,<Invalid tab#8le format>
ERR #XTME,<Date/time mu#xst be in the futu$re>
ERR TMN,<No$8 timer entry has $Xexpired>
ERR TM$xA,<Timer entry al%ready exists>
E%8RR DVT,<Device te%Xrminator ":" must%x be specified>
&ERR NCI,<Argument&8 block may not be&X in the ACs>
ER&xR TLU,<Terminal l'ocation is unknow'8n>
ERR FIO,<Fil'Xe is offline>
E'xRR FBM,<File bein(g modified>
ERR(8 WLK,<Write-locke(Xd device>
ERR C(xSD,<Cannot supers)ede a directory>
ERR CDD,<Cannot)X delete a non-emp)xty directory>
E*RR SNF,<Sub-file *8directory not fou*Xnd>
ERR ESL,<Se*xarch list is empt+y>
ERR LVL,<SFD+8 level nested dee+Xper than the maxi+xmum allowed>
ER,R CCW,<Cannot cre,8ate/write on any ,Xstructure in sear,xch list>
ERR FC-U,<Cannot update -8file>
ERR ENQ,<-XFile has outstand-xing Enqueue locke.s set>
ERR SWS,.8<Software write-l.Xock on structure>.x
ERR DER,<Hardw/are device error>/8
ERR DTE,<Hard /Xdata error>
ERR/x BKT,<Block too l0arge>
ERR IPP,<08Non-existant UFD>0X
ERR TRN,<RIB o0xr transmission er1ror>
ERR ILC,<I18llegal character 1Xin date/time>
E1xRR NFT,<Date/time2 must be in the f28uture>
ERR NPS,2X<Date/time must b2xe in the past>
3ERR UDM,<Unrecogn38ized month in dat3Xe/time>
ERR UDN3x,<Unrecognized na4me in date/time>
ERR IFA,<Illega4Xl file attribute>4x
ERR FAI,<File 5attribute inconsi58stancy>
ERR CEI5X,<Can't enable/di5xsable interrupt s6ystem>
ERR ENF,68<Linked list entr6Xy not found>
ER6xR NSL,<No such li7nked list>
ERR 78NFP,<No free page7Xs>
ERR NPI,<No 7xfree pages for IP CF reception>
KKBP
KK I"P KK iBP 'KK BP KK |bP *KK$)BP
KK%M"P $KK%X"P #KK%Y"P "KK%[BP "KK%]P KK&+BP -KK,K"P /KK,KBP /KK-*"P KK.9"P KK=JbP &KZ` m)>|
IFIDN <mIBC><>,<EXP <A>mh>
IFDIF <BC><n>,<
IFE <A+1>n(,<<POINT 7,C>>
nH IFN <A+1>,<
nh IFIDN <C><>,<oEXP <A,B>>
o( IFDIF <C><>,<EXoHP <A,B,C>>
> >A,B,C>>
>Kc u/* IRP A,<
u! IF2,<IFNDEF A,< EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP Mv
P Mv=8P MuI7Q x MvN8P 'Mn:=p MF:=P M$pQ"P M$t P 'M$t :P M$t:P M$t;P M$t<RP M$ty7P M$u6Q @ M$uI7Q x M$u[rP M$v
ZP M$v:=P M$v<P M$v\{P M2 :q3W <<<A>B<PO S(<B>)>>&<B>>M>h1p M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MHuiWQ @ MHv
Q MJh1p MJhrp MJip MJiVp MJk=p MJlsp MJl}p MJm9p MR4zP MR6L`P MRV>9Q MS.[yP M^l uQ O2| ua/8 IRP A,<
v IF2,<IFDEF A,<.v IFN A,EXTERN,<INv@TERN A>>
v`IFNDEF A,<EXTERNw A>
Q SUPPR ESPA>> YSUPPRO3FX7P mQf@ + QfI@ <StLQ St\Yp Stkp SuZp Suh1Q SulQ Su}:p Sv
1p Sv
Sp Sv>9Q Sv>@p SNn VQ55 ..OP(A,B ,IDIV).OP(A,BS7-N UQ5- ..OP(A,B ,IMUL).OP(A,BS: Gq<E
IFNB <HB>,<..STR0 (.INCRH00,,<B>,A)>
IFHPB <B>,<AOS A> <B>,<AOS A>S; k =13k <<<A>B<PO S(<B>)>>&<B>>S;!kP S;!k<P S? xQ7E
TXO A, <B>
TXO A,S@,9QQ @ S@,9QP S@,9RP `S@,9VP S@,9XP$ S@,9YQ S@,9YQ S@,9[P" [email protected]Q S@t,:P 'S@t9QQ @ S@t9QP S@t9RP `S@t9VP S@t9XP $ S@t9YQ S@t9YQ S@t9[P " S@t:P S@u-xQ S@u[XQ x S@v
tQ @ S@v,:P S@v,rQ S@v<Q S@v<Q S@v<Q x S@v<:P '~ S@v=Q S@vMQ SB d+@&SB n @&SB n
@&SB n
@& SB n @& SB n @&
SB n
@&
SB 2P SB)iP & SB)iP &SB)kVP &SB)kYP 'SB)lXP &
SB)lsP &
SB)lxP & SB)lyP &SPuxzQ @ SR/
LSTOF. p)XCREF
..TEXT<ApH>
EXP 0
LSTON.
0
Uv98Q | U $@ YL
LST<OF.
X JNO,.JI<8JNO,<-1,,GJBJNO> <X
X TNO,.JITNO,<<x-1,,GJBTTY>
X =USR,.JIUNO,.GTPPN=8
X CDN,.JIDNO=X,<-1,,GJBPTH>
=xX PRG,.JIPNM,.GTP>RG
XXCJN,.JIC>8PJ,<-1,,GJBCJB>
X BAT,.JIBCH,.G>xTOBI
X JLT,.J?ISTM,.GTJLT
X?8 LOC,<-1,,GJBLOC>?X,<-1,,GJBLOC>
?xX RTM,.JIRT,<-1,,@GJBRTM>
X TLC,@8<-1,,GJBTLC>,<-1,@X,GJBTLC>
LST ON.
LSTU +, U +( U +$ Up + U~` +" U$t(:P U$t9P U$t:WP U$u+P U$u+WP U$uKqP U$uX<P U$uZ7P U$v
SP U$v-P N U$vKP Q U$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0 UK I@ + UVn @ 4@ UVn
IFB <C5q>,<
XWD [ASCIZ\6B\],A>
IFNB <60C>,<
XWD [EXP 6PCM%FW!C
ASCIZ \B\],A>
SCIZY"l uQ x Y&i1 3,
LST)OF. XCREF
CDOH OTSINI
CDO h
CDO .ZPAGA
CDO .ZPAGN
CDO .ZCHNK
CDHO .SAVE1
CDO .ShAVE2
CDO .SAVE3
CDO .SAVE4
C(DO .SAVET
CDO .HSV13
CDO .SV14
CDO .SV15
CDO .SV16
CDO .RET(T
CDO .RETF
CHDO .RETE
CDO .AhOS
CDO .SOS
CDO .ZERO
(CDO .POPJ
CDOH .STOP
CDO .ShAVE8
CDO .STKST
CDO .TRSET(
CDO .POPJ1 H
CDO .UD2SC
h CDO .SC2UD
C DO .CPUTY
CDO (
CDO
CDO
HCDO
CDO C%RP hRM
CDO C%INTR
CDO C%SEND
CDO ( C%RECV
CDO C%B HRCV
CDO C%REL
h CDO C%CPID
CDO C%KPID
CDO C%S (PID
CDO C%MAXP
CDO C%PIDJ
CD hO
CDO
CDO
C DO
CDO
CDO (
CDO F H%IOPN
CDO F%AOP hN
CDO F%OOPN
CDO F%IBYT
CDO (F%OBYT
CDO F%IB HUF
CDO F%OBUF
h CDO F%REL
CDO !F%DREL
CDO F%RR!(EL
CDO F%REW
!HCDO F%POS
CDO F!h%CHKP
CDO F%INF"O
CDO F%FD
CD"(O F%REN
CDO F%D"HEL
CDO F%FCHN
"h CDO
CDO
CDO
CDO
CDO
CDO#(
CDO
CDO
CD#HO
CDO #h
CDO M%ACQP
$ CDO M%RELP
CDO$( M%IPSN
CDO M%N$HXPG
CDO M%IPRC
CDO M%IPRM
CD%O M%AQNP
CDO M%%(RLNP
CDO M%CLNC%H
CDO M%FPGS
C%hDO M%GMEM
CDO M&%RMEM
CDO
CDO&(
CDO
CDO
CD&HO
CDO
CDO M%G&hPAG
CDO M%RPAG
CDO
CDO
CDO'(
CDO
CDO
CD'HO
CDO
CDO
'h CDO
(CDO T%TEXT
CDO ((T%TTY
CDO
CDO(H
CDO
CDO
CD(hO
CDO
CDO
C)DO
CDO
CDO
)(
CDO
)H CDO L%CLST
CDO)h L%DLST
CDO L%C*ENT
CDO L%CBFR
CDO L%DENT
CD*HO L%NEXT
CDO L%*hFIRS
CDO L%LAST+
CDO L%PREV
C+(DO L%PREM
CDO L+H%CURR
CDO L%REN+hT
CDO L%SIZE
,CDO L%APOS
CDO
CDO
CDO
CDO,H
CDO
CDO
CD,hO
CDO
CDO -
CDO I%NOW
C-(DO I%EXIT
CDO I-H%ION
CDO I%IOFF-h
CDO I%SLP
CD.O I%INT1
CDO I%.(INT2
CDO I%INT3.H
CDO I%TIMR
C.hDO
CDO
CDO I%/SOPR
CDO I%WTO
CDO
CDO I%HOS/HT
CDO I%JINF
/hCDO
CDO
CDO0
CDO
CDO S0(%DATI
CDO S%SIX0HB
CDO S%CMND
0hCDO S%TBLK
CDO 1S%SCMP
CDO S%ER1(R
CDO S%INTR
1HCDO S%EXIT
CDO 1hS%TBAD
CDO S%TB2DL
CDO S%NUMI
2(
CDO K%RCOC 2H
CDO K%WCOC
2hCDO K%SUET
CDO 3K%STYP
CDO K%TX3(TI
CDO K%SOUT
3H CDO K%BOUT
CDO3h K%BIN
CDO K%BA4CK
CDO K%TPOS
4( CDO K%BUFF
CDO4H K%FLSH
CDO K%O4hPEN
CDO
CDO
5 CDO
CDO
CDO
CDO
CDO
CDO5H
CDO
LSTON.
LSTON.Y>
@ A1<
IFNB <AQC>,<..STR0 (..LDBAp,A,C,B)>
IFBB <C>,<MOVE A, B>C>,<MOVE A,Y>%I;P YO%GP YO%yG y/R
IFNDEF y!LSTIN.,LSTIN.==0 y@
IFE LSTIN.,<
y` IFIDN <XCREF><Az >,<.XCREF>
z XLIST>
LSTIN .==LSTIN.+1STINYO%{G za/\
IFG LST{IN.,LSTIN.==LSTIN{ .-1
IFLE LSTIN{@.,<.CREF
LIST>
[ 3@ <q3g <<<1_<A>> -1>B<B>>_<A>>[ 8@ ;q3_ 1B<<A>-1> -1B<B><<A>-1>[@ I1
IFB <Bi>,<MAXSIZ==0
IRP A,<IFG <A-MA(XSIZ>,<MAXSIZ==AH>>>
IFNB <B>,<hB==0
IRP A,<IFG <A-B>,<B== A>>>
B>,<B==[tP '[t;ZQ x [v
QP '[v :Q v [v xQ p [viSp [k9p [lp [lp [lXp [lrp [ltp [lxp [l}p [n:=P [tuQ @ [th:Q [u[yQ [ui1Q [ukvQ [v)Q [v=3P '[v|WQ [v}Q [v}Q @ [&p I1,
IFB <Bi>,<MINSIZ==377777,,777777
IRP (A,<IFG <MINSIZ-AH>,<MINSIZ==A>>>
IFNB <B>,<B==377777,,777777
( IRP A,<IFG <B-HA>,<B==A>>>
A>,<B==A>>>
[>!` <13c <A-<A/B >*B><A-<A/B[>w @&
..MX1>==B
IFDEF .P>0SECT,<
.IFN .>P.MX1,ABSOLUTE,<
>p MOVE A,[B]>
? .IF ..MX1,ABSOL?0UTE,<
..MX2==0 ?P
IFE <..MX1>B5?p3,<
@..MX2==1
MOVEI A,..MX@01>
IFE ..MX2,<@P
IFE <..MX1>B@p17,<
..MX2==1A
MOVSI A,(..A0MX1)>>
IFE ..MAPX2,<
IFE <<..ApMX1>B53-^O777777>B,<
..MX2==1
B0 HRROI A,<..MXBP1>>>
IFE ..MX2Bp,<
IFE <<..MXC1>B17-^O777777B17C0>,<
CP..MX2==1
HRLOI A,(..MCpX1-^O777777)>>
D IFE ..MX2,<
D0 MOVE A,[..MX1]DP>
>>
IFNDEFDp .PSECT,<
..MX2E==0
IFE <..MXE01>B53,<
..MX2EP==1
MOVEI A,Ep..MX1>
IFE ..MFX2,<
IFE <..MF0X1>B17,<
..MXFP2==1
MOVSI AFp,(..MX1)>>
IFEG ..MX2,<
IFE G0<<..MX1>B53-^O777GP777>,<
..MX2=Gp=1
HRROI A,<H..MX1>>>
IFE .H0.MX2,<
IFE <<HP..MX1>B17-^O77777Hp7B17>,<
..MX2I==1
HRLOI A,I0(..MX1-^O777777)>IP>
IFE ..MX2,< Ip
MOVE A,[..JMX1]>
>
PURGE ..MX1,..MX2RGE[Lt;ZQ x [LvN8P '[NF:=p [N^= 8C
A==C 1
IF1,<IFDEF %PA,<PRINTX ?A ALRpEADY DEFINED>>
DEFINE %A (OP,AC0,Y,MSK)<
IFDIFP <Y><>,<
OP (<ApC>,B+'Y,MSK)>
IFIDN <Y><>,<
O0P (<AC>,B'Y,MSK) >>AC>,B'Y,MSK)[PuySP ' [PvNP ' [Vg V51 ..OP(A,B ,MUL)..OP(A,B[`v
2P [b6<P F] sA/ IF2,<IFDEFsa A,<A==A>> IFN DEF A,<A==B>]F@ N^ TEMFDB##_
Qh5p _
QkRp _
Ql7p _
Qlxp _
Ql}p _
Qm p _
Qm7p _
Tpp _
T= GALy
X .OTRDR,Reader
X .O;yTNCU,Network-ContGaroller
X .OTLPTG!,Printer
X .OTBIQAT,Batch-Stream
Ip X .OTCDP,Card-PuJnch
X .OTPTP,PaJ0pertape
X .OTPLJPT,Plotter
X .OTJpJOB,Job
X .OTTRKM,Terminal
X .OK0TOPR,Operator
XKP .OTIBM,<IBM RemoKpte>
X .OTMNT,<DLevice>
X .OTFTSL0,<File Transfer>
X .OTBIN,<Card LpReader InterpreteMr>
X .OTRET,<FiM0le Retrieval>
XMP .OTNOT,<RetrievaMpl Notification>
N X .OTDBM,<DBMS SN0ystem>
X .OTFALNP,<File Access LisNptener>
X .OTSNAO,<SNA Workstation >
Workstation_
Uh6p _
Ukrp _
VLp _
V[Tp _S h6 WiM> [ASCIZ \G LXLIB.EXE\]Z \G_Tu
SQ x _TuLSP '` P `D P `H P `L P `P P a< VP a>:=P a,I3p a,\Yp a- P a-np a.-p a.:=p atzp atiP 'atkp au p auZp auI7Q x auKqp au[Yp au^p auh6p av Q x av
2p av>9p a
,TQ a
, Q a
,*9Q a
,>(Q a
,>(Q a
,k{Q a
,m3Q a
-J8Q @ a
-iQ a
-}SQ @ a
.Z7Q a
.\yQ a
tTQ a
t Q a
t*9Q a
t>(Q a
t>(Q a
tk{Q a
tm3Q a
uJ8Q @ a
uiQ a
u}SQ @ a
vZ7Q a
v\yQ al}P aI3 XIM~
..XX=YI=<FLD(A,CM%FNC)>Xi+B+<Z F>
Y) IFNB <D>,<..XX=Z!..XX!CM%HPP>
Z@ IFNB <E>,<..XX=Z`..XX!CM%DPP>
[ EXP ..XX
[ IFNB <C>,<EXP [@C>
IFB <C>,<[`EXP 0>
IFNB\ <D>,<POINT 7,[A\ SCIZ \D\]>
I\@FB <D>,<0>
]\` IFNB <E>,<POINT] 7,[ASCIZ \E\]>
]@IFB <E>,<0>
IFB <I]`>,<0>
IFNB <^ I>,<EXP I>
^ IFB <J>,<0>
^@ IFNB <J>,<EXP ^`J>
IFB <H>_ ,<0>
IFNB <H_ >,<EXP H>
_@IFB <G>,<0>
_`IFNB <G>,<EXP G >
G>,<EXP Ga 6 30 LSH A,^D9 LSH A,^D9a+= 5 a;& yA'
IFB <B>,<..STR0(..PNT8,,<FWMASK>,A)>
X IFNB <B>,<..STxR0(..PNT,,<B>,A )>.PNT,,<B>,Aa>Mm :3S <POINT WID:1(B),A,POS(B)> B),A,POS(B)>a?H6 + a? 83@ <^L<<A>&< -<A>>>><<A>&<aJNh6P aJ}Ks | 0~
SALL |)
LSTOF. XCRE|HF
LOC 0 |h
ASCIZ \
COPYR}IGHT (c) DIGITAL }(EQUIPMENT CORPORA}HTION 1975,1988.
}hALL RIGHTS RESERV~ED.
\
RELO~(C
%%.GLX==~H%%.GLX
I~hFNB <A>,<%%.MOD==SIXBIT/A/>
I(FNB <B>,<%%.OTS=H=SIXBIT/B/>
h GLOB I%INIT
TOPS10 <
( SEARCH UUOSYM
%%UUOS==%%UUOS h
>
TOPS20 <
SEAR(CH MONSYM
; %H%MONS==%%MONS
h >
IFB <B>,<
.TEXT (|,REL:GLXLIB/SEARHCH/REQUIRE:I%INITh|
DEFINE $DATA (NAM,SIZ<1>),<
NAM: BLOCK SIHZ
>
DEFIhNE CDO (X),<GLOB X>
LIBVEC
>
IFNB H<B>,<IFDIF <B><hINI>,<
IFN GLXPURE,<.PSECT .HI(GH.>
IFE GLXPHURE,<
TWOSEhG 400000
RELOC 0
RELOC 4(00000
>
H
DEFINE $DATA(NhAM,SIZ<1>),<
IFN GLXPURE,<.PS(ECT DATA>
IFHE GLXPURE,<RELOC>h
IFNDEF B%D,<B%D::! B%DL==(:0>
NAM: BLOCHK SIZ
B%DL==h:B%DL+SIZ
I FN GLXPURE,<.ENDP (S DATA>
IFE HGLXPURE,<RELOC>
>
IFDI
F <B><OTS>,<
( DEFINE CDO (X),
H<GLOB X>
LIB
hVEC
>
>>
IFNB (<B>,<IFIDN <B>< HINI>,<
DEFINE h $DATA (NAM,SIZ<1
>),<
NAM: BL
(OCK SIZ
>
H >>
LSTON
h.
GLOB <.ETT, .RET
OPDEF $RET
OPDETT [PJRST .RETT]
OPDEF $RE(TF [PJRST .RETF] H
OPDEF $RETIT [hJUMPT .POPJ]
OPDEF $RETIF [JUMP(F .POPJ]
.NODDHT $RET,$RETT,$REThF,$RETIT,$RETIF
$RETIT,$RETIF
aPtP aPtkP aPuTP aPu92Q @ aPv\rP D cv fH P gkp gk9p glp glp gltp gl}p g"@ a1>
IFN <<.aQ.TA>&B>,<PRINTXap ?Initial field nbot zero in $SET>
bP..TVAL==<C>
bp..TMSK==<B>
..TA==..TA!c<FLD(..TVAL,..TMSc0K)>
PURGE ..T VAL,..TMSK
.Tg#=z @ nqNw C.SWIT+PDB CPY##C.SWIT+PDBg$tkQ B @ g$u P 'g$uh6Q g&t{ qa/ IFE C.GALA , IFE C.GALAg.N @ 6@ g.N
.SPID (SQIP.QSR,.IPCPQ,.SPQQhSR,QUASAR)
.SPIRD (SP.OPR,.IPCPO,R(.SPOPR,ORION)
.RHSPID (SP.INF,.IPCRhPI,.SPINF,INFO)
.SPID (SP.MDA,.IS(PCPM,.SPMDA,MDA) SH
.SPID (SP.NEB,,Sh.SPNEB,NEBULA)
TOPS10<
.SPID (T(SP.IPC,.IPCPS,,IPTHCC)
.SPID (SP.ThACT,.IPCPA,,ACTDAUE)
.SPID (SP.TU(LP,.IPCPT,,TAPLABUH)
.SPID (SP.TOUhL,.IPCPC,,TAPAVR)V
.SPID (SP.DOLV(,.IPCPD,,DSKAVR) VH
.SPID (SP.FIL,Vh.IPCPF,,FILDAE)
>
,FILDAE) gR^h9 1:
..STKR= Q=10
RADIX 8
p ..STKN==0
IRP A,<
.STKV1 ( 0A)>
$CALL .STK PST
..STKN,,..S pTKN
RADIX ..STK R
PURGE ..STKN, 0..STKR,..STKQ
TKR,..STKQ
gR~) DQ<+
IFNB <DqC>,<..STR0 (..DPBE,A,C,B)>
IFBE0 <C>,<MOVEM A, B>>,<MOVEM A,gV U5) ..AS(A,B ,SUB,ADD)(A,Bgg
V )1
IFNB <IB>,<TOPS10<A==Bh>>
IFNB <C>,<TOPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hD P hH P hL P hP P i P i$tkQP 'i$tlUQ x i?4( 8ySG IFN FTUUOS , _
Qm p i?4H 99SK IFN FTJSYS , L<_
Uh6p iD { ?d
IFNB{) <A>,<.TQCHA==^{HD<B>B17+ZZ>
I{hFNB <D>,<DEFINE| ..TQMA<D>>
|(IFNB <C>,<.TQC=|H=^D<B>B17+ZZ>
ZZ==ZZ+1ZZ>
iG, q ?T
LSTOF.
TQ(T,2,ASCIZ) qH
TQ(O,2,OCTAL)qh
TQ(D,2,DECIrMAL)
TQ(F,2,r(FILE)
TQ(7,2rH,CSEVEN)
TQ(rh6,2,CSIXBIT)
s TQ(W,2,SIXBIT) s(
TQ(5,2,SVNBITsH)
TQ(P,2,USEshR)
TQ(U,2,DItRECTORY)
TQ(t(H,2,DAYTIME)
tH TQ(C,2,TIME)
TQ(E,2,ERROR) u
TQ(I,1,INDIREu(CT)
TQ(M,0,CRuH,..TXC0(\".CHCRT)uh)
TQ(J,0,LF,..vTXC0(\".CHLFD))
TQ(L,0,FF,..TXCvH0(\".CHFFD))
TvhQ(K,0,VT,..TXC0(\w".CHVTB))
TQ(Aw(,0,NOCRLF,..TXA(.wHTQCHA))
TQ(0,0wh,NULL,..TXA(.TQCHx0))
TQ(3,0,STRx(ING,..TXER(IQU)) xH
TQ(V,2,VERSIONxh)
TQ(2,0,CARyET,..TXER(IQU))
TQ(Q,2,POINTER)yH
TQ(B,2,ROB)yh
TQ(1,2,OBJEzCT)
TQ(N,2,Nz(ODE)
TQ(R,2,zHJIB)
LSTON.
)
LSTON. 9L4
LSTOF.
X(33,TTY33,33,)AY
X(35,TTY35B,35,)
TOPS20Ay<
X(37,TTY37,37BA,)
X(EXECUPB`ORT,EXEC,EXE,) C
>
TOPS10<
X(C LA120,LA120,L12,)C@
>
X(LA36,LC`A36,L36,)
X(D VT05,VT05,V05,<37D ,177,177,177>)
D@ X(VT100,VT100,10D`0,<.CHESC,"[","K"E >)
X(VT50,VT50E ,V50,<.CHESC,"J">E@)
X(VT52,VT52E`,V52,<.CHESC,"J">F )
TOPS10< X(VTF 61,VT61,V61,<.CHEF@SC,"J">)>
LST ON.
)>
LSTiK,P A iK4 @ $q:5
..TRR==%10
RADIX 8
%0..NV==1
IRP %PA,<
.TRV1 (%pA)>
$CALL .TR&SET
..NV-1,,&0..NV-1
RADIX ..&PTRR
PURGE ..T RR,..NVURGE ..Tib n6q
..TX(C ,A,<B>)..TX(Cib oQ6}
..TX(C A,A,<B>).TX(Cib P nQ6u
..TX(C E,A,<B>).TX(Cib ` o6y
..TX(C N,A,<B>).TX(Cibp h6A
..TX(N ,A,<B>)..TX(Nibt iQ6M
..TX(N A,A,<B>).TX(NibtP hQ6E
..TX(N E,A,<B>).TX(Nibu` i6I
..TX(N N,A,<B>).TX(Nibx j6Q
..TX(O ,A,<B>)..TX(Oib| kQ6]
..TX(O A,A,<B>).TX(Oib|P jQ6U
..TX(O E,A,<B>).TX(Oib}` k6Y
..TX(O N,A,<B>).TX(Oic!h2Q ic!i0Q ic!iQP ic!iWQ ` ic!j6Q ic!jZQ ic!k Q ` ic!kPQ @ ic!l Q ic!lQ | ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP 'ic!lyP ic!lyQ ic!mrQ p ic!nQ icP l6a
..TX(Z ,A,<B>)..TX(ZicT mQ6m
..TX(Z A,A,<B>).TX(ZicTP lQ6e
..TX(Z E,A,<B>).TX(ZicU` m6i
..TX(Z N,A,<B>).TX(Zm:7 o.
IFG <o9AMAN-ADEV>,<AEDoXT==:AMAN>
IFLEox <AMAN-ADEV>,< AEDT==:ADEV>
mK c@ p9/ BYTE (3)ApYWHO (9)AVER (6) AMIN (18)AEDTotM P otkP ouxZP o& 7A3< <^L<-<<A> _<^L<A>>>-1>>>o<trP o<tuP o<tkP o<u(WP o<uX<P o<uYVP o<uZ7P o<u] P o<ujP o<ukrP o<uxUP o<uxrP o<v
2P o<vNP o<vN8P p @yL
.TIC==. .Z
..Z==..Z+1=q"eJ P q*-` +
q+= +
q6~i4 C q? yQ7M
TXC A, <B>
TXC A,q@ t!/$ IFB <C>,<tAA==:B> IFNB <C >,<A=:B>B <CqB p + qN5P + up Mq<u
IFNB <NB>,<..STR1 (..TQZN0,,<B>,A,..STR4)NP>
IFB <B>,<SE TZM A><B>,<SEuh P ;z /QS
.$RESET/q
$TYPE (.CMACT)0
$HELP (<>)
$00NEXT (A)
IFIDN 0P<B> <>,< IRP C,0p<C>
.$BUILD>1
IFDIF <B> <>,<10
$HELP (B)
I1PRP C,<C>
.$BU ILD><C>
.$BU 0 iYFQ
.WTOX.(.OMiyACK,<A>,<B>,<Cj>,<D>,<$WTFLG(WT .SJI),E>)LG(WT J7 jINV DEFINE .$RjiTN <A>
.%RTN ==1A>
.%RTN fI9 eIN. DEFINE .$LeiST <A+1>
.%L ST==11>
.%L
=Z R1=
IFG RQA-INT.LV,<PRINTX Rp?Level A interruSpts not supportedS0>
.BGINT.(\A ) .BGINT.(\A X5 giN@ DEFINE .$Bh REA <A>
.%BR EA==1>
.%BR - U=9
IFDEFU1 ..BSIZ,<PRINTX ?UPMissing $EOB afteUpr a $BUILD>
.V.BSIZ==0
.V0.BLOC==.
RVPEPEAT A,<
VpBLD0.(\..BSIZ,0) W
..BSIZ==..BSI Z+1>
==..BSI }[0 QQK
.$RESETq
$TYPE (.CMCMA)
$NEXT (A)
I0RP B,<B>
.$BU ILD,<B>
.$BU I@ Q-
.$RESET1
$TYPE (.CMCFM)P
IRP A,<A>
.$BUILD,<A>
$^ QR
.$RESET q
$TYPE (.CMTXT)!
$HELP (<>)
$!0NEXT (A)
IFIDN !P<B> <>,< IRP C,!p<C>
.$BUILD>"
IFDIF <B> <>,<"0
$HELP (B)
I"PRP C,<C>
.$BU ILD><C>
.$BU I #R!
.$RESET#1
$TYPE (.CMTAD)#P
$PDATA (CM%IDA#p)
$NEXT (A)
$IRP B,<B>
.$B UILD,<B>
.$B ,,U T1=%
$RET TQ ;WILL INVOKE R IGHT ROUTINE
,h: ciN" DEFINE .$Dd EFM <POINT 7,[ASCd(IZ\A\]>
.%DE FM==1>
.%DE .` QR
.$RESET q
$TYPE (.CMDEV)
;**;[323]At DEF 0INE $DEV +3L chan Pge the $DEV macro p to by pass the : check
$FLAGS ( 0CM%PO!CM%NSF) ;[3 P23]By pass : chec pk
$NEXT (A)
IRP B,<B>
.$B UILD,<B>
.$B Lz: QP/
.$RESETq
$TYPE (.CMNUX)
$PDATA (B)
0$HELP (<>)
$NEXPT (A)
IFIDN <Cp> <>,< IRP D,<D>
.$BUILD>
I0FDIF <C> <>,<
P$HELP (C)
IRP pD,<D>
.$BUILD ><D>
.$BUILD N Q7
.$RESET1
$TYPE (.CMDIR)P
$NEXT (A)
IpRP B,<B>
.$BU ILD,<B>
.$BU | \=}
IFNDE\1F ..BSIZ,<PRINTX \P?$EOB without pre\pvious $BUILD>
] IFN <.-..BLOC>,<]0PRINTX ?Address c]Phange between $BU]pILD and $EOB>
^ LSTOF.
..^0T==0
REPEAT .^P.BSIZ,<
BLD^p0.(\..T,1)
_ ..T==..T+1 >
_0 PURGE ..BSIZ,.._PT,..BLOC
LST ON.
LST +y g N: DEFINE .$Eg)RTN <A>
.%ER TN==1>
.%ER , hINF DEFINE .$EhiRTN <1B0+A+1>
.%ERTN==1>
- i)NP DEFINE .$EiIRTN <[MOVEI S2,[AihSCIZ\A\]
j $RETF]>
. %ERTN==1>
. H6 f >8
$CALL .f)STOP
LSTOF.
JfHUMP [XWD 0,[ITEXTfh (<A>)]
EXP g%%.MOD]
LSTON. .MOD]
LSTON. L[ QQ%
.$RESETq
$TYPE (.CMFLD)
$NEXT (A)
$0HELP (<>)
IFIDN P<B> <>,< IRP C,p<C>
.$BUILD>
IFDIF <B> <>,<0
$HELP (B)
IPRP C,<C>
.$BU ILD><C>
.$BU MI Q
.$RESET1
$TYPE (.CMFIL)P
$HELP (<>)
$pNEXT (A)
IFIDN <B> <>,< IRP C,0<C>
.$BUILD>P
IFDIF <B> <>,<p
$HELP (B)
IRP C,<C>
.$BU ILD><C>
.$BU dy a N
DEFINE .$Fa)LGS <A>
.%FL GS==1>
.%FL ex: Qi
.$RESET1
$TYPE (.CMFLT)P
$HELP (<>)
$pNEXT (A)
IFIDN <B> <>,< IRP C, 0<C>
.$BUILD> P
IFDIF <B> <>,< p
$HELP (B)
I RP C,<C>
.$BU ILD><C>
.$BU $ e>,A
INTEReIN A
$DATA(A ,<B>)
ATA(A T >% 1 / "
IFDIF <biA> <>,<
DEFINE c.$HLPM <POINT 7,[c(ASCIZ\A\]>
. %HLPM==1>
. &5 Pi
.$RESET 1
$TYPE (.CMIFI) P
$HELP (<>)
$ pNEXT (A)
IFIDN
<B> <>,< IRP C,
0<C>
.$BUILD>
P
IFDIF <B> <>,<
p
$HELP (B)
I C,<C>
.$BU ILD><C>
.$BU &u qQU
.$RESET
$NEXT (A)
$0TYPE (.CMINI)
IPRP B,<B>
.$BU ILD,<B>
.$BU ./ 1P
.$RESETQ
$TYPE (.CMKEY)p
$PDATA (B)
$NEXT (A)
IRP 0C,<C>
.$BUILD ,<C>
.$BUILD ./ }qOw
.$RESET~
$TYPE (.CMKEY)~0
$PDATA (A)
~P$NEXT (0)
IRP ~pB,<B>
.$BUILD ,<B>
.$BUILD />Ky D m9Fm .WTOX.(.OMmYWTR,,,,<A>,<$WTF LG(WT.KIL),B>) 2|p lYFg .WTOX.(.OMlyLOG,<A>,<B>,<C >,,<D>)B>,<C :/
.%NXT ==1A>
.%NXT :|KV ,qRy
.$RESET-
$TYPE (.CMNOD)-0
$HELP (<>)
$-PNEXT (A)
IFIDN -p<B> <>,< IRP C,.<C>
.$BUILD>.0
IFDIF <B> <>,<.P
$HELP (B)
; .p$FLAGS (CM%PO)
/IRP C,<C>
.$B UILD><C>
.$B :} r 1P=
.$RESETQ
$TYPE (.CMNOI)p
$PDATA (<POINT 7,[ASCIZ\B\]>)
$NEXT (A)
IRPP C,<C>
.$BUI LD,<C>
.$BUI ;-@ oyF .QWTO.(.OM NAK,,,,<A>).OM ;-XR qP
.$RESET
$TYPE (.CMNUM)0
$PDATA (B)
P$HELP (<>)
$NEXpT (A)
IFIDN <C> <>,< IRP D,<D0>
.$BUILD>
IPFDIF <C> <>,<
p$HELP (C)
IRP D,<D>
.$BUILD ><D>
.$BUILD >5
.$RESET
$TYPE (.CMOFI)
$NEXT (A)
$0HELP (<>)
IFIDN P<B> <>,< IRP C,p<C>
.$BUILD>
IFDIF <B> <>,<0
$HELP (B)
IPRP C,<C>
.$BU ILD><C>
.$BU B$ aiN DEFINE .$Db ATA <A>
.%DA TA==1>
.%DA B$YP diN( DEFINE .$De EFM <POINT 7,<A> >
.%DEFM==1 CYT k)N\ DEFINE .$DkIEFR <A>
.%DE FR==1>
.%DE F
:` jYFY
.QWTO.(.OMjyACK,<A>,<B>,<Ck>,<D>,<$WTFLG(WT .SJI),E>)LG(WT F^} p9G .QWTO.(.OMpYWTR,,,,<A>,<$WTF LG(WT.KIL),B>) G-} 'QRM
.$RESET'q
$TYPE (.CMQST)(
$HELP (<>)
$(0NEXT (A)
IFIDN (P<B> <>,< IRP C,(p<C>
.$BUILD>)
IFDIF <B> <>,<)0
$HELP (B)
I)PRP C,<C>
.$BU ILD><C>
.$BU G>K` gyFC .QWTO.(.OMhWTO,<A>,<B>,<Ch8>,,<$WTMFL(MF.WTO ),D>)FL(MF.WTO G>Ku nyF{ .QWTO.(.OMoWTO,<A>,<B>,<Co8>,,<$WTFLG(WT.JOB ),D>)LG(WT.JOB G>Ky nFs
.QWTO.(.OMn9WTR,<A>,<B>,<C >,<D>,<E>)<C J.I cy>#
$CALLd .RETE
LSTOd8F.
JUMP ERA$
LSTON.ERA$ Ni /;w
.NVR==0/1
.ACM==0
IRP A,<
/p ..TSAC(.ACB,A) 0
IFN .ACB,<.A00CM==.ACM!1B<A>> 0P
IFE .ACB,< 0p
IFE .NVR,< 1
CAIA
10 LSTOF.
1P JRST b>
1p..PUSH(A,\<.NVR+21>)>>
IFN .A20CM,<
IFE <2P.ACM-17B<T4>>,<.A2pCM==0
$CALL 3.SAVET>
IFE30 <.ACM-377B<.A16>3P>,<.ACM==0
$3pCALL .SAVE8>
4 IFE <.ACM-17B<P404>>,<.ACM==0
4P $CALL .SAVE4>
4p IFE <.ACM-7B<5P3>>,<.ACM==0
50 $CALL .SAVE3>
5P IFE .NVR,<
IFE <.ACM-36B<P2>>,<.ACM==0
60 $CALL .SAVE2>6P
7 IFE <.ACM-6p1B<P1>>,<.ACM==0
$CALL .SAVE170>
IFE <.ACM7P-1B<.A13>>,<.ACM=7p=0
$CALL .SV813>
IFE <.A80CM-1B<.A14>>,<.AC8PM==0
$CALL .8pSV14>
IFE <9.ACM-1B<.A15>>,<.90ACM==0
$CALL9P .SV15>
IFE9p <.ACM-1B<.A16>>,:<.ACM==0
$CA:0LL .SV16>
>:P>
IFN .ACM,< :p
IFE .NVR,<;
CAIA
;0 LSTOF.
JRST ;Pb>
.ACB==;p0
REPEAT ^D1<6,<
IFN <0<.ACM&1B<.ACB>>,<<P
..PUSH(\.ACB<p,\<.NVR+1>)>
.=ACB==.ACB+1>>
=0
IFN .NVR,<
=P PUSH P,[[CAIA=p
AOS -.>NVR(P)
REP>0EAT .NVR,<..POP(\>P.NVR)>
P>pOPJ P,0]]>
b:! LSTON.>
b:! N.@ WQ=M
IFNDEWqF ..BSIZ,<PRINTX X?$SET without preX0vious $BUILD>
XP IFNB <B>,<..STRXp0 (..SET,<C>,B,YA)>
IFB <BY0>,<..STR0 (..SET,YP<C>,FWMASK,A)>
,FWMASK,A)>
a==.
71 XWD b-1,b-1
7PDEFINE $ETAB <
b==.-a> <
O%| j)>Z
S..A::!jI $CALL .STOP
LjhSTOF.
JUMP [XWkD 'A',[ITEXT (<k(B>)]
EXP %%.M OD]
LSTON. M O= QPU
.$RESET q
$TYPE (.CMSWI)
$PDATA (A)
0$NEXT (0)
IRP
PB,<B>
.$BUILD ,<B>
.$BUILD O= PI
.$RESET1
$TYPE (.CMSWI)P
$PDATA (B)
p$NEXT (A)
IRP C,<C>
.$BUILD ,<C>
.$BUILD R
@ &R9
.$RESET&1
$TYPE (.CMTAD)&P
$PDATA (<CM%ID&pA!CM%ITM>)
$NEX'T (A)
IRP B,< B>
.$BUILD,< R/
$CALL Tl %TEXT
LSTOF. XCl(REF
JUMP [XWD 2lH,0
EVL (A)
lh ITEXT(<B>)]
LSTON.B>)]
.$RESET$q
$TYPE (.CMTAD)%
$PDATA (CM%ITM%0)
$NEXT (A)
%PIRP B,<B>
.$B UILD,<B>
.$B R}97 2S
.$RESET21
$TYPE (.CMTOK)2P
$PDATA (<POINT2p 7,[ASCIZ\B\]>)
$NEXT (A)
IR30P C,<C>
.$BUI LD,<C>
.$BUI S i?j
..TX~yA(.TQA,C,D,E,} B)
IFN .}I.TXEF,<
..TE})RR<$TQ(A,B,C, D,E)>>
C, S@I9 YAU
LSTOF.
X(UQU,Unknown qualifier)
X(IQU8,Invalid qualifieXr)
X(IJA,Invalixd justification argument)
X(IWA,8Invalid width argXument)
X(PEA,Prxemature end of argument)
X(JNA,J8ustification is nXot allowed)
X(AxNA,Arguments are not allowed)
X(8ADS,Address must Xbe specified)
L STON.
ied)
L SN `)N DEFINE .$T`IYP <A>
.%TYP E==1>
.%TYP W= *Rc
.$RESET*1
$TYPE (.CMUQS)*P
$HELP (<>)
$*pNEXT (A)
$PDAT+A (B)
IFIDN <C+0> <>,< IRP D,<D+P>
.$BUILD>
I+pFDIF <C> <>,<
,$HELP (C)
IRP ,0D,<D>
.$BUILD ><D>
.$BUILD W \@ 1QA
.$RESETQ
$TYPE (.CMUSR)p
$NEXT (A)
IRP B,<B>
.$BU ILD,<B>
.$BU ^+@ gI>N
IFE %%.OgiTS,<DEFINE $WARN h(MSG) <
$TEXT h((T%TTY,<% ^W6/[%%hH.MOD]/ MSG>)>>
IhhFN %%.OTS,<DEFINEi $WARN (MSG) <
i( $TEXT (T%TTY,<% iH^W6/IIB+IB.PRG/ ^ihW/[%%.MOD]/ MSG>) >>
$WARN <A> _$r WEK
IFB <W9A>,<.WFACD==0
WX IFN <0-2>,<.$WACWxD==0>>
IFNB <XA>,<.WFACD==-1
X8 IFN <0-2>,<.$WAXXCD==.$WACD!<A>>
IFE <0-2>,<DEYFINE .$WACD,<<WO.Y8ACD>B8+[ITEXT (< A>)]>>
>
< _$u LDs
IFB <L9A>,<.WFACK==0
LX IFN <0-2>,<.$WACLxK==0>>
IFNB <MA>,<.WFACK==-1
M8 IFN <0-2>,<.$WAMXCK==.$WACK!<A>>
IFE <0-2>,<DENFINE .$WACK,<<WO.N8ACK>B8+[ITEXT (< A>)]>>
>
< _$+ =yF5
IFE <.W>FMTY>,<PRINTX ?No>8 message type in >X$WTBLD>
DEFINE .>xEAWTO(SUFFIX,ARGC?OD),<
IFN .WF'SU?8FFIX',<
IFE <AR?XGCOD-0>,<<WO.'SUF?xFIX'>B8+ .$W'SUFF@IX'>
IFE <ARGCO@8D-1>,<<WO.'SUFFIXeX'>B8+ [EXP .$W'SUexFFIX']>
IFE <ARfGCOD-2>,<.$W'SUFFf8IX'>
>
>
ALLWfXTO
EXP 0
EXP 0 _$k NyE
IFB <OA>,<.WFFLG==0
O8 IFN <1-2>,<.$WFLOXG==0>>
IFNB <OxA>,<.WFFLG==-1
P IFN <1-2>,<.$WFP8LG==.$WFLG!<A>>
IFE <1-2>,<DEPxFINE .$WFLG,<<WO.QFLG>B8+[ITEXT (< A>)]>>
>
< _%(W T9E5
IFB <TYA>,<.WFJBN==0
Tx IFN <0-2>,<.$WJBUN==0>>
IFNB <U8A>,<.WFJBN==-1
UX IFN <0-2>,<.$WJUxBN==.$WJBN!<A>>
IFE <0-2>,<DEV8FINE .$WJBN,<<WO.VXJBN>B8+[ITEXT (< A>)]>>
>
< _%YV \YEw
IFB <\yA>,<.WFMFL==0
] IFN <1-2>,<.$WMF]8L==0>>
IFNB <]XA>,<.WFMFL==-1
]x IFN <1-2>,<.$WM^FL==.$WMFL!<A>>
IFE <1-2>,<DE^XFINE .$WMFL,<<WO.^xMFL>B8+[ITEXT (< A>)]>>
>
< _%] AD
IFB <A9A>,<.WFMTY==0
AX IFN <0-2>,<.$WMTAxY==0>>
IFNB <BA>,<.WFMTY==-1
B8 IFN <0-2>,<.$WMBXTY==.$WMTY!<A>>
IFE <0-2>,<DECFINE .$WMTY,<<WO.C8MTY>B8+[ITEXT (< A>)]>>
>
< %j 9F
IFB <_YA>,<.WFNHD==0
_x IFN <0-2>,<.$WNH`D==0>>
IFNB <`8A>,<.WFNHD==-1
`X IFN <0-2>,<.$WN`xHD==.$WNHD!<A>>
IFE <0-2>,<DEa8FINE .$WNHD,<<WO.aXNHD>B8+[ITEXT (< A>)]>>
>
< _%kr QYE
IFB <QyA>,<.WFNOD==0
R IFN <0-2>,<.$WNOR8D==0>>
IFNB <RXA>,<.WFNOD==-1
Rx IFN <0-2>,<.$WNSOD==.$WNOD!<A>>
IFE <0-2>,<DESXFINE .$WNOD,<<WO.SxNOD>B8+[ITEXT (< A>)]>>
>
< _%p gF; .WTOX.(.OMg9WTO,<A>,<B>,<C >,,<D>)B>,<C _%xU I9D]
IFB <IYA>,<.WFOBJ==0
Ix IFN <0-2>,<.$WOBJJ==0>>
IFNB <J8A>,<.WFOBJ==-1
JX IFN <0-2>,<.$WOJxBJ==.$WOBJ!<A>>
IFE <0-2>,<DEK8FINE .$WOBJ,<<WO.KXOBJ>B8+[ITEXT (< A>)]>>
>
< _%xr YyEa
IFB <ZA>,<.WFOCD==0
Z8 IFN <0-2>,<.$WOCZXD==0>>
IFNB <ZxA>,<.WFOCD==-1
[ IFN <0-2>,<.$WO[8CD==.$WOCD!<A>>
IFE <0-2>,<DE[xFINE .$WOCD,<<WO.\OCD>B8+[ITEXT (< A>)]>>
>
< _%z@ kYFa .WTOX.(.OMkyWTO,<A>,<B>,<Cl>,,<$WTFLG(WT.JOB ),D>)LG(WT.JOB _%|@ hyFI
.WTOX.(.OMiWTR,<A>,<B>,<C >,<D>,<E>)<C _&
2 bF#
IFB <b9A>,<.WFPID==0
bX IFN <0-2>,<.$WPIbxD==0>>
IFNB <cA>,<.WFPID==-1
c8 IFN <0-2>,<.$WPcXID==.$WPID!<A>>
IFE <0-2>,<DEdFINE .$WPID,<<WO.d8PID>B8+[ITEXT (< A>)]>>
>
< _&,z @yF'
DEFINE @Y.EAWTO(SUFFIX),<$dyWT'SUFFIX' <>>
ALLWTO
_&N FYDG
IFB <FyA>,<.WFTXT==0
G IFN <2-2>,<.$WTXG8T==0>>
IFNB <GXA>,<.WFTXT==-1
Gx IFN <2-2>,<.$WTHXT==.$WTXT!<A>>
IFE <2-2>,<DEHXFINE .$WTXT,<<WO.HxTXT>B8+[ITEXT (< A>)]>>
>
< _&N8 CyD1
IFB <DA>,<.WFTYP==0
D8 IFN <2-2>,<.$WTYDXP==0>>
IFNB <DxA>,<.WFTYP==-1
E IFN <2-2>,<.$WTE8YP==.$WTYP!<A>>
IFE <2-2>,<DEExFINE .$WTYP,<<WO.FTYP>B8+[ITEXT (< A>)]>>
>
<
t{ P
u[rQ ]>t2
u}P .
P .J P .b P / P B&@P cG P )0 Nn 0
ZP Z6 tqOk
du==<FLD(.$TYP,CM%Fu0NC)>!.$FLGS!<.$LSuPT>
IFN <.%BRupEA>,<d==d!CM%BRvK>
IFN <.%HLv0PM>,<d==d!CM%HPvPP!CM%SDH>
vp
IFN <.%DEFMw>,<d==d!CM%DPP>w0
c:! XWD b,wPa
EXP d wp
EXP .$DATxA
IFN <.%HLx0PM!.%DEFM!.%BREA>xP,<
EXP .$HLPM>xp
IFN <.%DEyFM!.%BREA>,<
Ey0XP .$DEFM>
yP
IFN <.%BREA>,< EypXP .$BREA>
za==.-c ;LENGTz0H OF THE FDB
IzPFN <.%NXT!.%DEFR!zp.%RTN!.%ERTN>,< E{XP .$NXT >
IF{0N <.%DEFR!.%RTN!.{P%ERTN>,<EXP .$RTN{p >
IFN <.%DEF|R!.%ERTN>,< EXP .|0$ERTN>
IFN <.|P%DEFR>,< EXP .$D|pEFR>
b==.}-c
IF2< P}0URGE a,b,c,d>
LISTb,c,d> $YV liNf POINT#7,[A SCIZ\0\]NT 7,[A $YY Nr 0 3W .- Nl 0I7Q L~ 5Iy Nb 0:=p f= Nh 0+1P w
SALL
oQXLIST
DEFINE .$opTYP <0>
.%TYPE=p=0
DEFINE .$FLGp0S <0>
.%FLGS==0pP
DEFINE .$DATA pp<0>
.%DATA==0
q DEFINE .$HLPM <>q0
.%HLPM==0
DEqPFINE .$DEFM <0>
qp .%DEFM==0
DEFIrNE .$LST <0>
.%r0LST==0
DEFINE .rP$BREA <0>
.%BRErpA==0
DEFINE .$NsXT <0>
.%NXT==0s0
DEFINE .$ERTN sP<0>
.%ERTN==0
sp DEFINE .$RTN <0>t
.%RTN==0
DEFt0INE .$DEFR <0>
.%DEFR==0<0>
K@ Np 0<P ' Q M< 0T 1, )0P $YVP $YYP .-P 5IyP f= P w
..ASWq1==-<B>
IFDEFX .PSECT,<
.IFN X0..AS1,ABSOLUTE,<
C A,[-..XpAS1]>
.IF ..ASY1,ABSOLUTE,<
.Y0.AS2==0
IFE YP<..AS1&^O777777B1Yp7>,<
..AS2==1 Z
DI A,..AZ0S1>
IFE ..AS2ZP,<
..OP(A,ZpB,C)>
PURGE [..AS1,..AS2>>
I[0FNDEF .PSECT,<
[P ..AS2==0
IF[pE <..AS1&^O777777\B17>,<
..AS2==\01
DI A,.\P.AS1>
IFE ..A\pS2,<
..OP](A,B,C)>
PUR GE ..AS1,..AS2> : h 7g
AD;[ : JQ5!
..CX1Jq==C
IFDEF .PSEKCT,<
.IFN ..CXK01,ABSOLUTE,<
KP CAMA B,[C]Kp>
.IF ..CX1,ABSLOLUTE,<
..CX2L0==0
IFE <..CLQX1&^O777777B17>,<Lp
..CX2==1
M CAIA B,C>
M0 IFE ..CX2,<
CAMA B,[QpC]>
PURGE ..CX1R,..CX2>>
IFNDEFR0 .PSECT,<
..CXRP2==0
IFE <..RpCX1&^O777777B17>,S<
..CX2==1
S0 CAIA B,C>
IFE ..CX2,< Sp
CAMA B,[TC]>
PURGE ..CX 1,..CX2>GE ..CX :&@ Eq<;
..TSIZ F(..PST,C)
.CASF0E ..PST,<<
MOVFPEM A,B>,<
HRFpRM A,B>,<
HRGLM A,B>,<
DPG0B A,[POINTR (B, C)]>>INTR (B, :<;Y 19o
DEFIN QE ..CNS2 (NEW,OLD p)<
OLD>
..CNS ()>
:L;Y 9g
DEFIN1E ..CNS (%%%)<
P..CNS2 <%%%>,>
p
DEFINE ..CNS2 (NEW,OLD)<
DEF 0INE ..CNS (%%%)<
..CNS2 <%%%>, p<OLD'NEW>>>
OLD'NEW>>>
:dH@ BQ<!
..TSIZ Bq(..PST,C)
.CASCE ..PST,<<
MOVC0E A,B>,<
HRRCPZ A,B>,<
HLRCpZ A,B>,<
LDBD A,[POINTR (B, C)]>>INTR (B, :}i1 18
A==<<<Q-<B>>&<B>>&<1B< ^L<B>>>>>&<1B< :~ ]Q6
..OP1]q==B
IFDEF .PSE^CT,<
.IFN ..OP^01,ABSOLUTE,<
^P C A,[..OP1]^p>
.IF ..OP1,ABS_OLUTE,<
..OP2_0==0
IFE <..O_PP1&^O777777B17>,<_p
..OP2==1
`` CI A,..OP1>
IFE ..OP2,< `P
C A,[..O`pP1]>
PURGE ..OPa1,..OP2>>
IFNDEa0F .PSECT,<
..OaPP2==0
IFE <.ap.OP1&^O777777B17>b,<
..OP2==1
b0 CI A,..OP1bP>
IFE ..OP2,<bp
C A,[.c.OP1]>
PURGE .. OP1,..OP2>GE .. ;m 9A1
..PST==YC-FWMASK
.IF0 x..PST,<
POINT 0,B,35>,<
POI NTR (B,C)>POI ;| @1<
POP P,@Q.NVA
PURGE .N@pVA
.NVR==.NVR -1
.NVR==.NVR ;\t ?1;
PUSH P?Q,A
DEFINE .NV?pB<A>
.NVR==. NVR+1
.NVR==. ; ] Z=]
IFGE Z1<<<B>&777777>-..ZPBSIZ>,<
PRINTXZp ?WORD offset gre[ater than $BUILD [0size parameter>
[P SET0. (\<B>, C,<A>)
B>, ; LH q8W
IFNDEF C,<PRINTX C IS 0NOT DEFINED
PA (<B>,D,FWMASK p)>
IFDEF C,<
IFNDEF %C,<
0 A (<B>,D,C)
P>
IFDEF %C,<
p
%C (A,<B>, D,C)>>A,<B>, ; LH 19
..NS==0 Q
IRP C,<..N pS=..NS+1>
IFE
..NS,<PRINTX ?EMP
0TY STRUCTURE LIST
P, A>
IFE ..NS-
p1,<
(..STR0,C>,D)
IFG ..NS-1,<
..ICNS
.NS (<E (A,<B>,,>)
IRP C,<0
IFNDEF C,P<PRINTX C NOT DEpFINED>
IFDEF C,<
IFNDEF %0C,<
..CNS (<P,C,D>)>
IFpDEF %C,<
%C (..STR2,,D,C)>0
..CNS (<)>)P
..GCNS
p ..ICNS
..CNS (<E (A,<B0>>)
IFNDEF %PC,<
..CNS (<p,C,D>)>
IFDEF %C,<
%C0 (..STR2,,D,C)>P>>
..CNS (<,,) >)
..GCNS>) ; LI 9
..CNS ( <,C,B>).CNS ( ; LI Q9/
IFDIF <qD><F>,<
IFNB <D>,<
A0 (<B>,D,..MSK) P
IFNB <F>,p<PRINTX C AND E ARE IN DIFFERENT0 WORDS>>
..MSPK==0>
IFNB <pF>,<
..MSK=.. MSK!<E>>MSK=.. ; LJ 19?
IFDIF <QD><F>,<
IFpNB <D>,<
A (<B>,D,..MSK)0>
..MSK==0> P
IFNB <F>,<
p ..MSK=..MSK!< E>>MSK=..MSK!< ; LJ 19U
IFDIF <QD><F>,<
IFpNB <D>,<
IFNB <F>,<
0A1 (B,D,..MSK)>P
IFB <F>,p<
A2 (B,D,..MSK)>>
..0MSK==0>
IFNB P<F>,<
..MSK= ..MSK!<E>>MSK= ;$\Y 9Ao
IF1,<
PRINTX ? Err or in "A"
D iEFINE X(NAM,ERR) 9<IFN ..X'NAM&..TX XEF,<PRINTX ? ERR> x>
$TX$ERR>
$TX$ERR>
;$^ YB%
.. yTXF==0
. .TXB==0
8..TXP==0
X ..TXEG==<..TXEF= x=0>
IRPC !A,<
..TXC=!8=ASCII\A\-35
IFN ..TXB,<IFN !x..TXB-..TXC,..CNS"(<A>)
IFE "8..TXB-..TXC,..TXB"X==0>
IFE ..TXB,"x<..TXQ(<A>,\..TX#F)>>
..TXC1#8
IFN ..T#XXB,<IFN <..TXB-"^#x">,<..TXER(PEA)>>$
..TXEF==..T$8XEF!..TXEG
$X IFN ..TXEF,<..TE RR<A>>
,<..TE ;&( I@ ..TXA(.TQC H0) ..TXA(.TQC ;&) Y@ ..TXER(IQU ) ..TXER(IQU ;&) @ ..TXER(IQU ) ..TXER(IQU ;&0 @ ..TXA(.TQC HA) ..TXA(.TQC ;&5 I@ ..TXC0(\". CHLFD).TXC0(\". ;&5 I@
..TXC0(\". CHVTB).TXC0(\". ;&6 @ ..TXC0(\". CHFFD).TXC0(\". ;&6 @ ..TXC0(\". CHCRT).TXC0(\". ;& @ O=
..TSIZ O1(..PST,C)
.CAOPSE ..PST,<<
SEOpTZM B>,<
HLLPZS B>,<
HRRZP0S B>,<
..TSPPAC (..ACT,B)
Pp .IF0 ..ACT,<
Q $CALL .ZERO
Q0LSTOF.
JUMP [PQPOINTR(B,C)]
QpLSTON.>,<
..TX (Z,B,C)>>>TX ;&81 ~q8
IFNDEF .PSECT,<
A==0 0
..TSA1==<Z PB>
IFE ..TSpA1&^O777777777760 ,<A==1>
>
I 0FDEF .PSECT,<
PA==0
..TSA1= p=<Z B>
.IF ..TSA1,ABSOLUTE,< 0
IFE ..TSA1&^PO777777777760,<Ap==1>>
PURGE .. TSA1>
PURGE .. ;&:= }17s
A==3 }Q
IFE <B>+1,<}pA=0>
IFE <B>-~^O777777,<A==1> ~0
IFE <B>-^O777 777B17,<A==2>7 ;' cQ7+
..TX1cq==C
IFDEF .PdSECT,<
.IFN .d0.TX1,ABSOLUTE,<
dP TDA B,[C]>
e .IF ..TX1,ABSOLdqUTE,<
..TX2==e10
IFE <..TX1&eQ^O777777B17>,<
ep ..TX2==1
fTRA B,..TX1>
f0IFE ..TX2,<
IfPFE <..TX1&^O77777fq7>,<
..TX2==1g
TLA B,(.g0.TX1)>>
IFE ..TgPX2,<
IFE <<gp..TX1>B53-^O77777p7>,<
..TX3p0 (A,B)>>
IFEpP ..TX2,<
TDppA B,[..TX1]>
q PURGE ..TX1,..TXq02>>
IFNDEF .PSECqPT,<
..TX2==0
IFE <..TX1&^O77r7777B17>,<
..r0TX2==1
TRArP B,..TX1>
IFE rp..TX2,<
IFE <s..TX1&^O777777>,<s0
..TX2==1
sP TLA B,(..TX1sp)>>
IFE ..TX2,<t
IFE <<..TXt01>B53-^O777777>,<tP
..TX3 (Atp,B)>>
IFE ..TuX2,<
TDA u0B,[..TX1]>
PUR GE ..TX1,..TX2> ;'` uq7A
IFIDN <vA><Z>,<
..v0TX2==1
ANDI vPB,^-..TX1>
IFIvpDN <A><O>,<
w ..TX2==1
wPORw0CMI B,^-..TX1>
IFIDN <A><C>,<wp
..TX2==1
x EQVI B,^-..TX 1>QVI B,^-..TX ;' yA
..TXEF==0
IFNDEF8 A,<..TXER(UQU)>X
IFDIF <B><>,x<IRPC B,<.IFN <B>,NUMERIC,..TXER8(IWA)>>
IFNB <CX>,<IFNDEF .TXTJCx,<..TXER(IJA)>>
IFDEF A,<
IF8E <A_-^D18>,<IFDXIF <EFBCD><>x,<..TXER(ANA)>>
IFE <1-<A_-^D1 88>>,<IFDIF <BC XD><>,<..TXER(JNA) x>>
IFE <2-<A_
-^D18>>,<IFIDN <
8EF><>,<..TXER(AD
XS)>>>
IF
xE ..TXEF,<
IFID N <B><>,<..TXWD= 8=<..TXJU==<..TXFC X==0>>>
IFDIF < xB><>,<
IFE <^
D<B>>,<..TXWD==<
8..TXJU==<..TXFC==
X0>>>
IFN <^D<
xB>>,<..TXWD==^D<
C>,<IFNBJ<.TXTJ
C>,<IFBXJ<.TXTJL
IFE <A8-.TQOCT>,<..TXJU=X=.TXTJR>
8 xIFE <A-.TQDEC>,<..TXJU==.TXTJR>>
IFB <D>,<X..TXFC==" ">
x IFNB <D>,<..TXFC=="D">>>
I8FB <EF>,<..TXPXT==0>
IFNB <ExF>,<..TXPT==1>
IFE <..TXWD+..TXP8T>,<
EXP FLXD(A,TXT.FN)>
IxFN <..TXWD+..TXPT>,<
EXP FLD8(A,TXT.FN)+FLD(.X.TXJU,TXT.JU)+FLDx(..TXWD,TXT.WD)+FLD(..TXFC,TXT.FC)8+TXT.AD
PNT R(E,F)>>
T ;'h 69C?
IFE 6Y..TXP,<
..IC6xNS
..CNS<ASC7IZ\>
..TXP==178>
..CNS<A7X>
..TXF==7x0
..TXB== "^"
..TXB== ;'h 89CK
IF8YN ..TXP,<
..8xCNS<\>
EXP <F9LD(.TQCHT,TXT.FN)98+[..GCNS]>>
..TXP==0>
;' 9 9Ay
..TX YEF==..TXEF!..XA x
..TXF==0
..TXB=="^ "
..TXB=="^ ;'
%B) ..TXQB(< A>) ..TXQB(< ;'
( %YB3
IF%yN ..TXC-"^",<..TX&C0(<A>)>
&8IFE ..TXC-"^",<.. TXF==1>-"^",<.. ;'
( &yBS
IF'E ..TXC-"^",<..TX'8C0(<A>)>
I'XFN ..TXF,<
.'x.TXF==0
IFDEF( .TQCHA,<
(8 IFDEF ..TQMA,.(X.TQMA
IFN(x <.TQCHA_-^D18>,)<..TXF==2>>>
)8 IFE ..TXF-2,<..T)XXC1(<A>)
..IC)xNS
..CNS<..T*XA(.TQCHA,>>
*8 ..TXEG==..TXEG !..TXEF==..TXEG ;'
) *yBe
..TX+F==3
IFG+8E ..TXC-"0",IFLE +X..TXC-"9",<..TXF=+x=2>
IFE ..TX,F-2,<..CNS(A)> ,8
IFE ..TXF-3,X,<..CNS<,>
..TXQ3(A)>
;'
) -By
..TX-9F==4
IFE-X ..TXC-"/",<..TXF-x==5>
IFE ...TXC-"[",<..TXF==.85>
IFE ..T.XXF-4,<..CNS<A,>>.x
IFE ..TXF/-5,<..CNS<,,>
..TXQ5(A)>
;'
* /YC
..TX/yF==4
IFE0 ..TXC-"/",..TXF=08=5
IFE ..T0XXC-"[",..TXF==5 0x
IFE ..TXF-51,<..CNS<,>
18..TXQ5<A>>
1X IFE ..TXF-4,<..1xCNS<A,>
.. TXF==5>
.. ;'
* 29C!
..TX2YF==6
IFE2x ..TXC-"/",..TXB=3="/"
IFE .38.TXC-"[",..TXB=="3X]"
IFE ..TXB3x-"]",..CNS<[>
4 IFE ..TXB,..T XF==5 ..TXB,..T ;'
+ 4YC/
..TX4yF==0
IFE 5..TXC-"]",..CNS<]58>
..CNS<)> 5X
..GCNS 5x
..TXEG==..T XEG!..TXEF==..T ;DQ @ ;DPQ ;EPQ ;E :Q ;E pQ ;E+PQ ;F 0Q ;F\:Q @
0 P
@ P
P P
` P d +Q:]
.ACV2 ( A)
.ACV2 ( d@ ,:g
A=.FPA,1C+..NAC
IFB <,PB>,<..NAC=..NAC+,p1>
IFNB <B>,<. .NAC=..NAC+B>. d` -1:u
IFG A--Q.NPAC,<PRINTX ?TO-pO MANY ACS USED>
IFLE A-4,<
..0 $CALL .SAVEA>
IFG A-4,<
$CALL .SAVE8> \+P "
=Z Sq= $CALL I%IN TA $CALL I%IN 9 {17e
..CSN=={QA
..CSC==0
I{pRP B,<
IFE ..C|SN-..CSC,<
ST|0OPI
..CAS1 (|PB)>
..CSC==..CS C+1>..CSC==..CS D P ? DP > D)6P D,xP D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;WP D;WP D;XP D;XP D;YP D;YP D;ZP
D;ZP
D;[P D;[P D;\P
D;\P
D;]P D<ZP D=7P DI6P ? D\qP FH1P FmP eLQ f
TP l,UP S@P ,<H L<k
..PST==L1C-FWMASK
.IF0 LP..PST,<
SOS BLp>,<
$CALL .SOMS
LSTOF.
JM0UMP [POINTR(B,C )]
LSTON.>C
TP } =F+
.OPCD==e9.OPCD+1
WO.A== .OPCD
G),<
$j6p $lWP %I7p %KqP %h:P %i:P &=p LzP MX<P N
WP N<P P `P &2 z7W
..IFT==z1A
IFE ..IFT,zP<
B
..IFT==0zp>
IFN ..IFT,<
C>N ..IFT,< &t<H I<S
..PST==I1C-FWMASK
.IF0 IP..PST,<
AOS BIp>,<
$CALL .AOJS
LSTOF.
JJ0UMP [POINTR(B,C )]
LSTON.>C &tj7Q ? 2
TP 2}LQ 6MiTQ & @ 7 ;rp 7 H:p 7 kp 7 N8p ;`P ;-J7P# >)qp >5H3p >DLYp ?EHP $ ?LxP " ?(WP ! ?+ZP % ?krP # ?xUP ?)0P " ?)8P # ?)SP & ?98P ! ?HyP % ?J6P $ ?N8P ?$(:P ?$*7P ?$9P ?$HVP ?$h6P ?$mP ?%VP ?%+qP ?%LP ?%X<P ?%[ZP ?%hzP ?%kzP ?%|P ?& P ?&
SKIPA u9
JRST h
uX SKIPE G$NEBF
JRST g
$vCALL I%WTO
Lv8STOF.
JRST vXh
$WTRST vx
IFNB <A>,<$WTwMTY (<A>)>
IFw8NB <B>,<$WTTYP (wX<B>)>
IFNB <wxC>,<$WTTXT (<C>)x>
IFNB <D>,<$x8WTOBJ (<D>)>
xXIFNB <E>,<$WTACKxx (<E>)>
IRP yF,<F>
$WTBy8LD
g: SETyXZM G$NULA
$CyxALL I%WTO
JRzST h
$WTRSTz8
$WTNHD(G$REzXMN)
IFNB <Azx>,<$WTMTY (<A>)>{
IFNB <B>,<$W{8TTYP (<B>)>
I{XFNB <C>,<$WTTXT {x(<C>)>
IFNB <|D>,<$WTOBJ (<D>|8)>
IFNB <E>,<|X$WTACK (<E>)>
|x $WTMFL(MF.NEB) }
IRP F,<F> }8
$WTBLD
}X
h:!
LSTON. h:!
LSTON. J$*vP J&:=P JmLQ K%,z ;13[ <A>B<^D70 -POS(B)>B<^D70 N
0 P O W MH
IFG A-Y MX.PID,<MX.PID== A>
C
G A- OSP OYP Oi1P O|P O yP O%=H q:
.STKV2 (A)
.STKV2 O%=I !1:
IFB <B!Q>,<..STKN==..STKN!p+1>
IFNB <B>,<"..STKN==..STKN+B"0>
..STKQ==..STK"PN+1
.STKV3 (A, \..STKQ)V3 (A, O%=I #:#
IFDEF#1 A,<.IF A,SYMBO#PL,<PRINTX STKVAR #pA ALREADY DEFINE$D>>
DEFINE A<-$0^OB(P)>
$A==< Z A>>
$A==< RJP RJ4`P RJ5 P RJ5`P RLH:P RL^P RLkQP RMDkP RMX6P RMX<P RMXSP RMYP RMYP RMY6P RM\P RM\ZP RN
tP RNJ6P RNd
P RNe(P RNe)P S
qQ S
89P S
:P
S
:Q
: P S
: P
S
:
Q S
: Q S
: Q S
:P S
:Q
S
:Q S
:Q S
:Q S
:Q S
:Q S
:Q S
:P S
:P S
:P S
:P S
:Q
:Q S
:Q S
:Q
S
:Q S
:Q S
:Q S
:Q S
:Q S
<@P S
<rQ S
<tQ S
H<Q S
I1Q S
J9Q S
\YQ S
i@P S
j6Q S
SQ S tQ
S+qQ
S:<Q S=P
S=WQ SJ6Q S\rQ Si9Q Sm P Sd ':9
.TRV2 ( A)
.TRV2 ( Sd@ 'Q:C
.TRV3 ('qA,\..NV)
IFB (<B>,<..NV=..NV+1(0>
IFNB <B>,<.. NV=..NV+B>,<.. Sd` (q:Q
IFDEF) A,<.IF A,SYMBO)0L,<PRINTX TRVAR )PA ALREADY DEFINED)p>>
DEFINE A<^O*B(.FP)>
$A==< Z A>>
$A==< SFH2P SFIVP SFJQP SFJVP SFJYP VuLQ @ Vv
TP ^%I7P _%~ qG%
$CALL q9I%WTO
LSTOF.qX
JRST g
$WTRST
IFrNB <A>,<$WTMTY (r8<A>)>
IFNB <rXB>,<$WTTYP (<B>)rx>
IFNB <C>,<$sWTTXT (<C>)>
s8IFNB <D>,<$WTOBJsX (<D>)>
IFNB sx<E>,<$WTACK (<Et>)>
IRP F,<t8F>
$WTBLD tX
g:!
LSTON. g:!
LSTON. kP P >}{woP