Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,SW@P C4@ +]
..NAC==+90
IRP A,<
+X .ACV1 (A)>
.ACV3S(\..NAC)C')U,BC, 7!:LSH A,-^D9LSH A,-^DC2f} :Af
.EAWTO(:aMTY,0)
.EAWTO(T;YP,2)
.EAWTO(TX; T,2)
.EAWTO(OBJ;@,0)
.EAWTO(ACK,;`0)
.EAWTO(FLG,1<)
.EAWTO(NOD,0)<
.EAWTO(JBN,0)
.EAWTO(ACD,0)
<` .EAWTO(OCD,0)
.EAWTO(MFL,1)
C:' yYM
TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ `Y
IFE `yB,<..TA==0>
aIFN B,<EXP ..TAa8
PURGE ..TA>
PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ N
q
..CX(,A,B) ..CGD QY
..CX(A,A,B) ..CGDP OY
}
..CX(E,A,B) ..CGDp P
..CX(G,A,B) ..CGDy PY
..CX(GE,A,B) ..CGE@ NY
u
..CX(L,A,B) ..CGEI O
y
..CX(LE,A,B) ..CGE` Q
..CX(N,A,B) ..CGH &a":
LST%aOF.
X CRE
&AX GEN
X PRT
&! X CLS
XAUT
X USW
X SPL '
X SIZ
X M' OD
X CHN
LSTON.
G"\Y ya/d
IF1, z<%%EDT==AEDT>
z
IF2, <IFN <%%Ez@DT-AEDT>,<
PRz`INTX ? Edit Numbe{r Doesn't Match G{ LXVER in GLXA
{@ A$WHO(\AEDT)> {`
A$NOTE
I|NTERN AEDT
I| NTERN LODLEV
;|@ PURGE %%EDT> ;END IF2
a.:=G4,m:Q G4-ZQ G4.
zQ G:YlP
G>hKW s@'"
IFNB <.s`2.1622>,<
PRINTtX .2.1622 (From Gt LXVER)
> ;END IFNB .2.1622
G>hMt r'
PRINTX r GLXVER GLXCOM Edir@t(70) by on 3-Ocr`t-85
PRINTX s GLXCOM Actual Edit(A)
G>lYP G>vC@ y9SLALL
PAGEyY; (A Continued oyxn next page)
SALzL; (A Continued z8from previous page) previous pagGHt;rP GHtkP GHv P GHv)9P GHv:=P I!k7P I!k<P ImP I$P'pIY{P .I K9a
IFNB <KYB>,<..STR0 (.DECRKx0,,<B>,A)>
IFLB <B>,<SOS A> <B>,<SOS A>I6= Y1
A==<-1yB<C>+1B<C-D>>
IF1,<IFDEF %A8,<PRINTX ?A ALREXADY DEFINED>>
DxEFINE %A (OP,AC,Y,MSK)<
IFDIF 8<Y><>,<
OP (<ACX>,B+'Y,MSK)>
IxFIDN <Y><>,<
OP.(<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7sWY
IFB <D1>,<
XWD [ASCIZ\PC\],[XWD B,A]>p
IFNB <D>,<
XWD [EXP CM%FW!D0
ASCIZ\C\],[XWD B,A]>
,[XKH(Q P 3KJ
,bPBKJ)bPb KJ=P +KJ{P KJIBP !KJ=bP (KJIP &KJZ"P 0KJX"P KJ9P &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 KJL;BP KJLMP KJLh"P /KJLkBP KJLlP KJLlbP KJM+BP KJMHbP -KJMLBP KJMmP KJMmbP KJN
P ,KJN
bP KJNI"P
KJNIBP KJN\bP KJfkP (KJlIP KJlLbP KJt1P KJt9"P KJt:"P #KJtlP 2KJtmP -KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv BP KJv
"P 2KJv
bP .KJvbP KJv)"P KJv9P KJv;P 1KJv;BP KJv<P KJv=bP KJv[P KJv["P KK-P KK
YBP $!"*
IF1,<IF$ADEF ERA$,PRINTX $`?Duplicate error %code A>
ERA$=% =ER%%%
ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y jA"
ERR EOFja,<End of file>
kERR IFP,<Illegal k file position>
k@ERR FDE,<File datk`a error>
ERR FNlD,<File is not onl disk>
ERR NSD,l@<No such device>
ERR FCF,<File cmheckpoint failed>m
ERR SLE,<A sysm@tem limit was excm`eeded>
ERR IFS,n<Illegal file spen cification>
ERRn@ FNF,<File not fon`und>
ERR PRT,<Porotection violatio on>
ERR DNA,<Deo@vice not availablo`e>
ERR NCE,<No p"current" entry ip n list>
ERR NMAp@,<No IPCF messagep` is available>
qERR FDS,<Files arq e on different stq@ructures>
ERR Fq`AE,<File already rexists>
ERR USEr ,<Unexpected systr@em error>
ERR Nr`SP,<No such pid>
ERR BOL,<Beginns ing of list reachs@ed>
ERR EOL,<Ens`d of list reachedt>
ERR RQF,<Recet ivers quota full>t@
ERR SQF,<Sendet`rs quota full>
uERR NRE,<No rememu bered entry>
ERu@R TBF,<Table is fu`ull>
ERR EIT,<Tvable entry alreadv y exists>
ERR Iv@TE,<Invalid tablev` entry>
ERR QEFw,<Quota exceeded w or disk full>
Ew@RR ARG,<Invalid aw`rgument specifiedx>
ERR IFN,<Invax lid function specx@ified>
ERR IJN,x`<Invalid job numbyer specified>
Ey RR RAD,<Invalid ry@adix specified>
y` ERR NUM,<Invalidz numeric argumentz >
ERR IDT,<Invaz@lid date field spz`ecified>
ERR IT{F,<Invalid time f{ ield specified>
{@ ERR DOR,<Date/ti{`me out of range>
ERR DTM,<Value | missing in date/t|@ime>
ERR MDD,<M|`issing day in dat}e/time>
ERR DFZ} ,<Field zero in d}@ate/time>
ERR M}`DS,<Mnemonic date~/time switch not ~ implemented>
ER~@R DFL,<Field too ~`large in date/time>
ERR ILR,<Ill egal year format @in date/time>
E`RR NND,<Negative number in date/ti me>
ERR NPF,<No@t known whether p`ast or future in date/time>
ERR RDP,<Relative dat@e parse required>`
ERR NSW,<Switch does not begin with slash>
ERR@ NOM,<Unrecognize`d switch or keyword>
ERR NUL,<Nu ll switch or keyw@ord given>
ERR `INW,<Invalid guide word>
ERR NC, <Not confirmed>
@ ERR ICN,<Invalid` character in number>
ERR NQS,<I nvalid quoted str@ing - does not be`gin with quote>
ERR AMB,<Ambiguo us switch or keyw@ord>
ERR NMT,<D`oes not match token>
ERR CMA,<Co mma not given>
@ERR NNC,<Node nam`e may not exceed 6 characters>
E RR INT,<Node term@inator "::" must `be specified>
E RR NSN,<Unknown n ode name>
ERR I @PS,<Invalid path `specification>
ERR IUS,<Invalid
user specificatio
@n>
ERR DGS,<Dev
`ice name may not exceed 6 characte rs>
ERR DNE,<Un@known device>
E`RR DIO,<Device ca
n not do input or
output>
ERR BD
@F,<Invalid date/t
`ime format>
ERR,<Fieldetooll
ERR TMTd too long for internal bu ffer>
ERR BDS,<@Invalid default s`tring>
ERR BTF,<Invalid table fo rmat>
ERR TME,<@Date/time must be` in the future>
ERR TMN,<No time r entry has expir@ed>
ERR TMA,<Ti`mer entry already exists>
ERR DV T,<Device termina@tor ":" must be s`pecified>
ERR NCI,<Argument bloc k may not be in t@he ACs>
ERR TLU`,<Terminal location is unknown>
ERR FIO,<File is @offline>
ERR FB`M,<File being modified>
ERR WLK, <Write-locked dev@ice>
ERR CSD,<C`annot supersede a directory>
ERR CDD,<Cannot dele@te a non-empty di`rectory>
ERR SNF,<Sub-file direc tory not found>
@ ERR ESL,<Search `list is empty>
ERR LVL,<SFD leve l nested deeper t@han the maximum a`llowed>
ERR CCW,<Cannot create/w rite on any struc@ture in search li`st>
ERR FCU,<Cannot update file>
ERR ENQ,<File @has outstanding E`nqueue lockes set>
ERR SWS,<Soft ware write-lock o@n structure>
ER`R DER,<Hardware device error>
ER R DTE,<Hard data @error>
ERR BKT,`<Block too large>
ERR IPP,<Non-e xistant UFD>
ER@R TRN,<RIB or tra`nsmission error>
ERR ILC,<Illega l character in da@te/time>
ERR NF`T,<Date/time must be in the future >
ERR NPS,<Date@/time must be in `the past>
ERR UDM,<Unrecognized month in date/tim@e>
ERR UDN,<Unr`ecognized name in date/time>
ERR IFA,<Illegal fil @e attribute>
ER `R FAI,<File attri!bute inconsistanc! y>
ERR CEI,<Can!@'t enable/disable!` interrupt system">
ERR ENF,<Link" ed list entry not"@ found>
ERR NSL"`,<No such linked #list>
ERR NFP,<# No free pages>
#@ERR NPI,<No free #`pages for IPCF reception>
CF reKKBP
KKI"P KKiBP 'KKBP
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` mq
IFIDN <nBC><>,<EXP <A>n0>
IFDIF <BC><nP>,<
IFE <A+1>np,<<POINT 7,C>>
o IFN <A+1>,<
o0 IFIDN <C><>,<oPEXP <A,B>>
op IFDIF <C><>,<EXpP <A,B,C>>
>>A,B,C>>
>Kc vy9IRP A,<
w IF2,<IFNDEF A,<EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP Mv
P Mv=8P MuI7Q xMvN8P'Mn:=p MF:=P M$pQ"P M$tP'M$t:P M$t:P M$t;P M$t<RP M$ty7P M$u6Q @M$uI7Q xM$u[rP M$v
ZP M$v:=P M$v<P M$v\{P M&`KW h`&L
IFNB <.i1235>,<
PRINTX i .1235 (From GLXVEi@R)
> ;END IFNB .1235
M&`Mt g &B
PRINTX g@GLXVER GLXFIL Edig`t(127) by on 20-hOct-86
PRINTX h GLXFIL Actual Edit(A)
M&dYP +M2 ;9[<<<A>B<POS(<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^luQ O2| wYGIRP A,<
wy IF2,<IFDEF A,<.xIFN A,EXTERN,<INx8TERN A>>
xXIFNDEF A,<EXTERNxx A>
Q SUPPRESPA>>FlYSUPPRO3DYPFxO3EKrPfxO3EZ7PO3FI@ <StLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
SpSv>9Q,Sv>@pOSNn-WVI
IFNB <HYB>,<..STR0 (.INCRHx0,,<B>,A)>
IFIB <B>,<AOS A> <B>,<AOS A>S:HKW v '8
IFNB <.v@2.1622>,<
PRINTv`X .2.1622 (From GwLXVER)
> ;END IFNB .2.1622
S:HMt t`'.
PRINTX uGLXVER GLXINI Ediu t(30) by on 3-Ocu@t-85
PRINTX u` GLXINI Actual Edit(A)
S:LYP
S;k =yo<<<A>B<POS(<B>)>>&<B>>S; KW y'N
IFNB <.y 2.1622>,<
PRINTy@X .2.1622 (From Gy`LXVER)
> ;END IFNB .2.1622
S; Mt w@'D
PRINTX w`GLXVER GLXINT Edixt(120) by on 3-Ox ct-85
PRINTX x@ GLXINT Actual Edit(A)
S;!kP S;!k<P S;$YP (S? yI
TXO A,<B>
TXO A,S@,9QQ @S@,9QP S@,9RP `S@,9VP S@,9XP$S@,9YQ S@,9YQ S@,9[P"S@.MQ 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 xS@v
tQ @S@v,:P S@v,rQ S@v<Q S@v<Q S@v<Q xS@v<:P'~S@v=Q S@vMQ SBKW n&v
IFNB <.n 1224>,<
PRINTX n@.1224 (From GLXVEn`R)
> ;END IFNB .1224
SBMt l@&l
PRINTX l`GLXVER GLXIPC Edimt(101) by on 7-Om ct-85
PRINTX m@ GLXIPC Actual Edit(A)
SBYP SBd+P&SBn P&SBn
P&SBn
P& SBnP& SBnP&
SBn
P&
SB2P SB)iP& SB)iP&SB)kVP&SB)kYP'SB)lXP&
SB)lsP&
SB)lxP& SB)lyP&SPuxzQ @SR/
LSTOF. pqXCREF
..TEXT<Aq>
EXP 0
LSTON.
0
Uv98Q |U$@ !"d
LST(OF.
X JNO,.JI( JNO,<-1,,GJBJNO> (@
X TNO,.JITNO,<(`-1,,GJBTTY>
X )USR,.JIUNO,.GTPPN)
X CDN,.JIDNO)@,<-1,,GJBPTH>
)`X PRG,.JIPNM,.GTP*RG
X@CJN,.JIC* PJ,<-1,,GJBCJB>
X BAT,.JIBCH,.G*`TOBI
X JLT,.J+ISTM,.GTJLT
X+ LOC,<-1,,GJBLOC>+@,<-1,,GJBLOC>
+`X RTM,.JIRT,<-1,,,GJBRTM>
X TLC,, <-1,,GJBTLC>,<-1,,@,GJBTLC>
LSTON.
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 U$vKP U$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn @ 4@UVn
KW {`'d
IFNB <.|2.1622>,<
PRINT| X .2.1622 (From G|@LXVER)
> ;END IFNB .2.1622
7W
Mt z 'Z
PRINTX z@GLXVER GLXKBD Ediz`t(65) by on 3-Oc{t-85
PRINTX { GLXKBD Actual Edit(A)
@W
$YP WNH1 q)
IFB <C>,<
XWD [ASCIZ\0B\],A>
IFNB <PC>,<
XWD [EXP pCM%FW!C
ASCIZ\B\],A>
SCIZY"luQ xY&i1 a2
LSTOF. XCREF
CDO OTSINI
CDO @
CDO .ZP`AGA
CDO .ZPAGN
CDO .ZCHNK
CD O .SAVE1
CDO .S@AVE2
CDO .SAVE3`
CDO .SAVE4
CDO .SAVET
CDO . SV13
CDO .SV14
CDO .SV15
CDO` .SV16
CDO .RETT
CDO .RETF
C DO .RETE
CDO .A@OS
CDO .SOS `
CDO .ZERO
CDO .POPJ
CDO .STOP
CDO .S@AVE8
CDO .STK`ST
CDO .TRSET
CDO .POPJ1
CDO .UD2SC
@ CDO .SC2UD
C`DO .CPUTY
CDO
CDO
CDO
CDO
CDO C%RP@RM
CDO C%INTR
` CDO C%SEND
CDO C%RECV
CDO C%B RCV
CDO C%REL
@ CDO C%CPID
CDO` C%KPID
CDO C%SPID
CDO C%MAXP
CDO C%PIDJ
CD@O
CDO
CDO
C`DO
CDO
CDO
CDO F %IOPN
CDO F%AOP @N
CDO F%OOPN
`CDO F%IBYT
CDO !F%OBYT
CDO F%IB! UF
CDO F%OBUF
!@ CDO F%REL
CDO !`F%DREL
CDO F%RR"EL
CDO F%REW
" CDO F%POS
CDO F"@%CHKP
CDO F%INF"`O
CDO F%FD
CD#O F%REN
CDO F%D# EL
CDO F%FCHN
#@ CDO
CDO
CDO
CDO
CDO
CDO$
CDO
CDO
CD$ O
CDO $@
CDO M%ACQP
$` CDO M%RELP
CDO% M%IPSN
CDO M%N% XPG
CDO M%IPRC
CDO M%IPRM
CD%`O M%AQNP
CDO M%&RLNP
CDO M%CLNC&
CDO M%FPGS
C&@DO M%GMEM
CDO M&`%RMEM
CDO
CDO'
CDO
CDO
CD' O
CDO
CDO M%G'@PAG
CDO M%RPAG
CDO
CDO
CDO(
CDO
CDO
CD( O
CDO
CDO
(@ CDO
(`CDO T%TEXT
CDO )T%TTY
CDO
CDO)
CDO
CDO
CD)@O
CDO
CDO
C)`DO
CDO
CDO
*
CDO
* CDO L%CLST
CDO*@ L%DLST
CDO L%C*`ENT
CDO L%CBFR
CDO L%DENT
CD+ O L%NEXT
CDO L%+@FIRS
CDO L%LAST+`
CDO L%PREV
C,DO L%PREM
CDO L, %CURR
CDO L%REN,@T
CDO L%SIZE
,`CDO L%APOS
CDO
CDO
CDO
CDO-
CDO
CDO
CD-@O
CDO
CDO -`
CDO I%NOW
C.DO I%EXIT
CDO I. %ION
CDO I%IOFF.@
CDO I%SLP
CD.`O I%INT1
CDO I%/INT2
CDO I%INT3/
CDO I%TIMR
C/@DO
CDO
CDO I%/`SOPR
CDO I%WTO
CDO
CDO I%HOS0 T
CDO I%JINF
0@CDO
CDO
CDO0`
CDO
CDO S1%DATI
CDO S%SIX1 B
CDO S%CMND
1@CDO S%TBLK
CDO 1`S%SCMP
CDO S%ER2R
CDO S%INTR
2 CDO S%EXIT
CDO 2@S%TBAD
CDO S%TB2`DL
CDO S%NUMI
3
CDO K%RCOC 3
CDO K%WCOC
3@CDO K%SUET
CDO 3`K%STYP
CDO K%TX4TI
CDO K%SOUT
4 CDO K%BOUT
CDO4@ K%BIN
CDO K%BA4`CK
CDO K%TPOS
5 CDO K%BUFF
CDO5 K%FLSH
CDO K%O5@PEN
CDO
CDO
5` CDO
CDO
CDO
CDO
CDO
CDO6
CDO
LSTON.
LSTON.Y:XKW ~@'z
IFNB <.~`2.1622>,<
PRINTX .2.1622 (From G LXVER)
> ;END IFNB .2.1622
Y:XMt }'p
PRINTX } GLXVER GLXLNK Edi}@t(20) by on 3-Oc}`t-85
PRINTX ~ GLXLNK Actual Edit(A)
SBYY:\YP Y>
@ Ay
IFNB <BC>,<..STR0 (..LDBB8,A,C,B)>
IFBBX <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG zya
IFNDEF {LSTIN.,LSTIN.==0 {8
IFE LSTIN.,<
{X IFIDN <XCREF><A{x>,<.XCREF>
| XLIST>
LSTIN.==LSTIN.+1STINYO%{G |Yk
IFG LST|yIN.,LSTIN.==LSTIN}.-1
IFLE LSTIN}8.,<.CREF
LIST>
[KW p`'
IFNB <.q1224>,<
PRINTX q .1224 (From GLXVEq@R)
> ;END IFNB .1224
[Mt o '
PRINTX o@GLXVER GLXMAC Edio`t(266) by on 7-Opct-85
PRINTX p GLXMAC Actual Edit(A)
[YP [[3@ =9k<<<1_<A>>-1>B<B>>_<A>>[8@ <9c1B<<A>-1>-1B<B><<A>-1>[@ !
IFB <BA>,<MAXSIZ==0
I`RP A,<IFG <A-MAXSIZ>,<MAXSIZ==A >>>
IFNB <B>,<@B==0
IRP A,<`IFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
QP'[v:Q[vxQ [[v[lp [lp [lXp [lrp [ltp [lxp [l}p [hKW k &`
IFNB <.k@1233>,<
PRINTX k`.1233 (From GLXVElR)
> ;END IFNB .1233
[hMt i`&V
PRINTX jGLXVER GLXMEM Edij t(46) by on 1-Apj@r-86
PRINTX j` GLXMEM Actual Edit(A)
[lYP [n:=P [tuQ @[th:Q [u[yQ [ukvQ [v=3P'[v|WQ [&p ! 2
IFB <BA>,<MINSIZ==377777`,,777777
IRP A,<IFG <MINSIZ-A >,<MINSIZ==A>>>
IFNB <B>,<B==`377777,,777777
IRP A,<IFG <B- A>,<B==A>>>
A>,<B==A>>>
[>!`<yg<A-<A/B>*B><A-<A/B[>wP&
U
..MX1>Y==B
IFDEF .P>xSECT,<
.IFN .?.MX1,ABSOLUTE,<
?8 MOVE A,[B]>
?X .IF ..MX1,ABSOL?xUTE,<
..MX2==0 @
IFE <..MX1>B5@83,<
@X..MX2==1
MOVEI A,..MX@x1>
IFE ..MX2,<A
IFE <..MX1>BA817,<
..MX2==1AX
MOVSI A,(..AxMX1)>>
IFE ..MBX2,<
IFE <<..B8MX1>B53-^O777777>BX,<
..MX2==1
Bx HRROI A,<..MXC1>>>
IFE ..MX2C8,<
IFE <<..MXCX1>B17-^O777777B17Cx>,<
D..MX2==1
HRLOI A,(..MD8X1-^O777777)>>
DX IFE ..MX2,<
Dx MOVE A,[..MX1]E>
>>
IFNDEFE8 .PSECT,<
..MX2EX==0
IFE <..MXEx1>B53,<
..MX2F==1
MOVEI A,F8..MX1>
IFE ..MFXX2,<
IFE <..MFxX1>B17,<
..MXG2==1
MOVSI AG8,(..MX1)>>
IFEGX ..MX2,<
IFE Gx<<..MX1>B53-^O777H777>,<
..MX2=H8=1
HRROI A,<HX..MX1>>>
IFE .Hx.MX2,<
IFE <<I..MX1>B17-^O77777I87B17>,<
..MX2IX==1
HRLOI A,Ix(..MX1-^O777777)>J>
IFE ..MX2,< J8
MOVE A,[..JXMX1]>
>
PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= YG
A==C y
IF1,<IFDEF %A,<PRINTX ?A ALR8EADY DEFINED>>
XDEFINE %A (OP,ACx,Y,MSK)<
IFDIF <Y><>,<
OP (<A8C>,B+'Y,MSK)>
XIFIDN <Y><>,<
OxP.(<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg VY
2P ] t1!IF2,<IFDEFt A,<A==A>> IFNDEF A,<A==B>]F@ %6TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= 3)#V
X .OTaRDR,Reader
X .O'aTNCU,Network-Cont3Iroller
X .OTLPT3 ,Printer
X .OTB4IAT,Batch-Stream
4h X .OTCDP,Card-Pu5nch
X .OTPTP,Pa5(pertape
X .OTPL5HT,Plotter
X .OT5hJOB,Job
X .OTTR6M,Terminal
X .O6(TOPR,Operator
X6H .OTIBM,<IBM Remo6hte>
X .OTMNT,<D7evice>
X .OTFTS7(,<File Transfer>
X .OTBIN,<Card 7hReader Interprete8r>
X .OTRET,<Fi8(le Retrieval>
X8H .OTNOT,<Retrieva8hl Notification>
9 X .OTDBM,<DBMS S9(ystem>
X .OTFAL9H,<File Access Lis9htener>
;**;[237]:Add 1 line after :(.OTFAL DRB 1/1:H1/85
X .OTSNA,<:hSNA Workstation>
Workstation>
IFNB <.@2.1622>,<
PRINT`X .2.1622 (From GLXVER)
> ;END IFNB .2.1622
_SMt `(
PRINTX GLXVER GLXOTS Edi t(15) by on 3-Oc@t-85
PRINTX ` GLXOTS Actual Edit(A)
_SYP _Sh6 Cq$ [ASCIZ \GLXLIB.EXE\]Z \G_Tu
SQ x_TuLSP'`P `DP `HP `LP `PP a<VP a>:=P a,I3p a,\Yp a- P a-np a.-p a.:=p atzp atiP'atkp au p auZp auI7Q xauKqp au[Yp au^p auh6p av Q xav
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
tQ 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 D$V
..XX=DQ=<FLD(A,CM%FNC)>D1+B+<Z F>
Dq IFNB <D>,<..XX=E!..XX!CM%HPP>
E@ IFNB <E>,<..XX=E`..XX!CM%DPP>
F EXP ..XX
F IFNB <C>,<EXP F@C>
IFB <C>,<F`EXP 0>
IFNBG <D>,<POINT 7,[AG SCIZ \D\]>
IG@FB <D>,<0>
HG` IFNB <E>,<POINTH 7,[ASCIZ \E\]>
H@IFB <E>,<0>
IFB <IH`>,<0>
IFNB <II>,<EXP I>
I IFB <J>,<0>
I@ IFNB <J>,<EXP I`J>
IFB <H>J,<0>
IFNB <HJ >,<EXP H>
J@IFB <G>,<0>
J`IFNB <G>,<EXP G>
G>,<EXP Ga@KW @(P
IFNB <> `,<
PRINTX (Fro
m GLXVER)
> ;END IFNB
a@Mt (H
PRINTX GLXVER GLXPFH Edi@t(16) by TARL on `17-Apr-81
PRINT X GLXPFH Actual Edit(A)
aDYP a 6a6LSH A,^D9LSH A,^D9a+= 5a;& A,
IFB <aB>,<..STR0(..PNT,,<FWMASK>,A)>
IFNB <B>,<..ST@R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm :YW<POINT WID:y(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 8YE<^L<<A>&<-<A>>>><<A>&<aJ}Ks sq
SALL ~!
LSTOF. XCRE~@F
%%.GLX==~`%%.GLX
GLXVRS==GLXVRS
IFNB <A>,<%%.MOD@==SIXBIT/A/>
`IFNB <B>,<%%.OTS==SIXBIT/B/>
GLOB I%INIT
TOPS10 <
` SEARCH UUOSYM
%%UUOS==%%UUO S
>
T@OPS20 <
SEA`RCH MONSYM
; %%MONS==%%MONS
>
IFB <@B>,<
.TEXT` |,REL:GLXLIB/SEARCH/REQUIRE:I%INI T|
DEFINE $DAT@A (NAM,SIZ<1>),< `
NAM: BLOCK SIZ
>
DEF INE CDO (X),<GLOB@ X>
LIBVEC `
>
IFNB <B>,<CHKEDT (B )>
IFNB <B>@,<IFDIF <B><INI>`,<
IFN GLXPURE,<.PSECT .HIGH.>
IFE GLXPURE,@<
TWOSEG 40`0000
RELOC 0
RELOC 40000 0
>
D@EFINE $DATA(NAM,S`IZ<1>),<
IFN GLXPURE,<.PSECT DATA>
IFE GL@XPURE,<RELOC>
` IFNDEF B%D,<B %D::! B%DL==:0>
NAM: BLOCK SI @Z
B%DL==:B% `DL+SIZ
IFN G
LXPURE,<.ENDPS DA
TA>
IFE GLXP
@URE,<RELOC>
>
`
IFDIF <B><OTS>,<
DE FINE CDO (X),<GLO@B X>
LIBVEC `
>
>>
IFNB <B>
,<IFIDN <B><INI>
@,<
DEFINE $DA
`TA (NAM,SIZ<1>),<
NAM: BLOCK
>
>>
LSTON.
GLOB <.POPJ, .RETT, .RETF>
OPDEF $RET [POP@J P,]
OPDEF $R`ETT [PJRST .RETT]
OPDEF $RETF [ PJRST .RETF]
O@PDEF $RETIT [JUMP`T .POPJ]
OPDEF $RETIF [JUMPF .P OPJ]
.NODDT $R@ET,$RETT,$RETF,$RETIT,$RETIF
$RaPtP aPtkP aPuTP aPv\rP e"luP'ePv8vP ePv9VP ePv;P fDP fHP gkp gk9p glp glp gltp gl}p gpKW (&
IFNB <. 2.1622>,<
PRINT@X .2.1622 (From G`LXVER)
> ;END IFNB .2.1622
gpMt @(
PRINTX `GLXVER GLXSCN Edit(105) by on 3-O ct-85
PRINTX @ GLXSCN Actual Edit(A)
gtYP "g"@ ay
IFN <<.b.TA>&B>,<PRINTXb8 ?Initial field nbXot zero in $SET>
c..TVAL==<C>
c8..TMSK==<B>
..TA==..TA!cX<FLD(..TVAL,..TMScxK)>
PURGE ..TVAL,..TMSK
.Tg#=z@Yq%OC.SWIT+PDBCPY##C.SWIT+PDBg$tkQ<@g$uP'g$uh6Q g.N @ 6@g.N
.SPID (S=P.QSR,.IPCPQ,.SPQ=0SR,QUASAR)
.SPI=PD (SP.OPR,.IPCPO,=p.SPOPR,ORION)
.>SPID (SP.INF,.IPC>0PI,.SPINF,INFO)
.SPID (SP.MDA,.I>pPCPM,.SPMDA,MDA) ?
TOPS10<
.SPID ?0(SP.IPC,.IPCPS,,I?PPCC)
.SPID (SP?p.ACT,.IPCPA,,ACTD@AE)
.SPID (SP.@0TLP,.IPCPT,,TAPLA@PB)
.SPID (SP.T@pOL,.IPCPC,,TAPAVRA)
.SPID (SP.DOA0L,.IPCPD,,DSKAVR)AP
.SPID (SP.FILAp,.IPCPF,,FILDAE)
>
,FILDAE) gR^h9 y
..STKR==10
RADIX 8
8 ..STKN==0
IRP XA,<
.STKV1 (xA)>
$CALL .STK ST
..STKN,,..S 8TKN
RADIX ..STK XR
PURGE ..STKN, x..STKR,..STKQ
TKR,..STKQ
gR~) E/
IFNB <E9C>,<..STR0 (..DPBEX,A,C,B)>
IFBEx.A<C>,<MOVEMSA,B>>,<MOVEM A,gV UY
V
IFNB <!B>,<TOPS10<A==B@>>
IFNB <C>,<T`OPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( sY/IFN FTUUOS,B ;DEFINE UNi?4H t/!IFN FTJSYS, INTERN AEDT iD {Qi
IFNB{q <A>,<.TQCHA==^|D<B>B17+ZZ>
I|0FNB <D>,<DEFINE|P ..TQMA<D>>
|pIFNB <C>,<.TQC=}=^D<B>B17+ZZ>
ZZ==ZZ+1ZZ>
iG, qQY
LSTOF.
TQ(T,2,ASCIZ) r
TQ(O,2,OCTAL)r0
TQ(D,2,DECIrPMAL)
TQ(F,2,rpFILE)
TQ(7,2s,CSEVEN)
TQ(s06,2,CSIXBIT)
sP TQ(W,2,SIXBIT) sp
TQ(5,2,SVNBITt)
TQ(P,2,USEt0R)
TQ(U,2,DItPRECTORY)
TQ(tpH,2,DAYTIME)
u TQ(C,2,TIME)
TQ(E,2,ERROR) uP
TQ(I,1,INDIREupCT)
TQ(M,0,CRv,..TXC0(\".CHCRT)v0)
TQ(J,0,LF,..vPTXC0(\".CHLFD))
TQ(L,0,FF,..TXCw0(\".CHFFD))
Tw0Q(K,0,VT,..TXC0(\wP".CHVTB))
TQ(Awp,0,NOCRLF,..TXA(.xTQCHA))
TQ(0,0x0,NULL,..TXA(.TQCHxP0))
TQ(3,0,STRxpING,..TXER(IQU)) y
TQ(V,2,VERSIONy0)
TQ(2,0,CARyPET,..TXER(IQU))
TQ(Q,2,POINTER)z
TQ(B,2,ROB)z0
TQ(1,2,OBJEzPCT)
TQ(N,2,NzpODE)
TQ(R,2,{JIB)
LSTON.
)
LSTON. #
LSTOF.
X(33,TTY33,33,)-A
X(35,TTY35.,35,)
TOPS20-a<
X(37,TTY37,37.),)
X(EXECUP.HORT,EXEC,EXE,) .h
>
TOPS10<
X(/LA120,LA120,L12,)/(
>
X(LA36,L/HA36,L36,)
X(/hVT05,VT05,V05,<370,177,177,177>)
0( X(VT100,VT100,100H0,<.CHESC,"[","K"0h>)
X(VT50,VT501,V50,<.CHESC,"J">1()
X(VT52,VT521H,V52,<.CHESC,"J">1h)
TOPS10< X(VT261,VT61,V61,<.CHE2(SC,"J">)>
LSTON.
)>
LSTiK,PA iK4@ %99
..TRR==%Y10
RADIX 8
%x..NV==1
IRP &A,<
.TRV1 (&8A)>
$CALL .TR&XSET
..NV-1,,&x..NV-1
RADIX ..'TRR
PURGE ..TRR,..NVURGE ..Tib nYu
..TX(C,A,<B>)..TX(Cib p
..TX(CA,A,<B>).TX(CibP oy
..TX(CE,A,<B>).TX(Cib` oY}
..TX(CN,A,<B>).TX(Cibp hYE
..TX(N,A,<B>)..TX(Nibt jQ
..TX(NA,A,<B>).TX(NibtP iI
..TX(NE,A,<B>).TX(Nibu` iYM
..TX(NN,A,<B>).TX(Nibx jYU
..TX(O,A,<B>)..TX(Oib| la
..TX(OA,A,<B>).TX(Oib|P kY
..TX(OE,A,<B>).TX(Oib}` kY]
..TX(ON,A,<B>).TX(Oic KW `(<
IFNB <.2.1622>,<
PRINT X .2.1622 (From G@LXVER)
> ;END IFNB .2.1622
ic Mt (2
PRINTX @GLXVER GLXTXT Edi`t(70) by on 3-Oct-85
PRINTX GLXTXT Actual Edit(A)
ic!h2Q ic!i0Q ic!iQP ic!iWQ `ic!j6Q ic!jZQ ic!k Q `ic!kPQ @ic!lQ ic!lQ |ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP'ic!lyP ic!lyQ ic!mrQ pic!nQ ic$YP icP lYe
..TX(Z,A,<B>)..TX(ZicT nq
..TX(ZA,A,<B>).TX(ZicTP mi
..TX(ZE,A,<B>).TX(ZicU` mYm
..TX(ZN,A,<B>).TX(ZmKc@ t9oBYTE (3)A}yWHO (9)AVER (6)AMIN (18)AEDTo& 8A<^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<ukrP o<uxUP o<uxrP o<vNP o<vN8P p ,a"f
.TIC==..Z
..Z==..Z+1=q"eJ P q*-` +
q+= +
q6~i4 C q? zQ
TXC A,<B>
TXC A,q@ v3IFB <C>,<v9A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up N9y
IFNB <NYB>,<..STR1 (..TQZNx,,<B>,A,..STR4)O>
IFB <B>,<SETZM A><B>,<SEuhP ;z q)W
.$RESET
$TYPE (.CMACT)0
$HELP (<>)
$PNEXT (A)
IFIDN p<B> <>,< IRP C,<C>
.$BUILD>0
IFDIF <B> <>,<P
$HELP (B)
IpRP C,<C>
.$BUILD><C>
.$BU 0 c
.WTOX.(.OMc!ACK,<A>,<B>,<Cc@>,<D>,<$WTFLG(WT.SJI),E>)LG(WT J7 UI%.DEFINE .$RUiTN <A>
.%RTN==1A>
.%RTN fI9 PI%DEFINE .$LPiST <A+1>
.%LST==11>
.%L
=Z Ry
IFG SA-INT.LV,<PRINTX S8?Level A interruSXpts not supportedSx>
.BGINT.(\A) .BGINT.(\A X5 Ri%DEFINE .$BS REA <A>
.%BREA==1>
.%BR - UY=
IFDEFUy ..BSIZ,<PRINTX ?VMissing $EOB afteV8r a $BUILD>
.VX.BSIZ==0
.Vx.BLOC==.
RWEPEAT A,<
W8BLD0.(\..BSIZ,0) WX
..BSIZ==..BSIZ+1>
==..BSI }[0 Q(#
.$RESETq
$TYPE (.CMCMA)
$NEXT (A)
I0RP B,<B>
.$BUILD,<B>
.$BU I@ (
.$RESET1
$TYPE (.CMCFM)P
IRP A,<A>
.$BUILD,<A>
$^ q(_
.$RESET
$TYPE (.CMTXT)
0
$HELP (<>)
$
PNEXT (A)
IFIDN
p<B> <>,< IRP C,<C>
.$BUILD>0
IFDIF <B> <>,<P
$HELP (B)
IpRP C,<C>
.$BUILD><C>
.$BU I
1(k
.$RESET
Q
$TYPE (.CMTAD)
p
$PDATA (CM%IDA
$NEXT (A)
RP B,<B>
.$BUILD,<B>
.$B ,,U Ty)
$RET U ;WILL INVOKE RIGHT ROUTINE
,h: Ni$zDEFINE .$DO EFM <POINT 7,[ASCO(IZ\A\]>
.%DEFM==1>
.%DE .` Q(K
.$RESETq
$TYPE (.CMDEV)
$NEXT (A)
I 0RP B,<B>
.$BUILD,<B>
.$BU Lz: nQ'
.$RESETnq
$TYPE (.CMNUX)o
$PDATA (B)
o0$HELP (<>)
$NEXoPT (A)
IFIDN <Cop> <>,< IRP D,<Dp>
.$BUILD>
Ip0FDIF <C> <>,<
pP$HELP (C)
IRP ppD,<D>
.$BUILD><D>
.$BUILD N (
.$RESET1
$TYPE (.CMDIR)P
$NEXT (A)
IpRP B,<B>
.$BUILD,<B>
.$BU | \Y
IFNDE\yF ..BSIZ,<PRINTX ]?$EOB without pre]8vious $BUILD>
]X IFN <.-..BLOC>,<]xPRINTX ?Address c^hange between $BU^8ILD and $EOB>
^X LSTOF.
..^xT==0
REPEAT ._.BSIZ,<
BLD_80.(\..T,1)
_X ..T==..T+1 >
_x PURGE ..BSIZ,..`T,..BLOC
LSTON.
LST +y R %DEFINE .$ER)RTN <A>
.%ERTN==1>
.%ER , SI%DEFINE .$ESiRTN <1B0+A+1>
.%ERTN==1>
- T)%(DEFINE .$ETIRTN <[MOVEI S2,[AThSCIZ\A\]
U $RETF]>
.%ERTN==1>
. H6 fQ=
$CALL .fqSTOP
LSTOF.
JgUMP [XWD 0,[ITEXTg0 (<A>)]
EXP gP%%.MOD]
LSTON. .MOD]
LSTON. L[ }Q'}
.$RESET}q
$TYPE (.CMFLD)~
$NEXT (A)
$~0HELP (<>)
IFIDN ~P<B> <>,< IRP C,~p<C>
.$BUILD>
IFDIF <B> <>,<0
$HELP (B)
IPRP C,<C>
.$BUILD><C>
.$BU MI {'i
.$RESET{1
$TYPE (.CMFIL){P
$HELP (<>)
${pNEXT (A)
IFIDN |<B> <>,< IRP C,|0<C>
.$BUILD>|P
IFDIF <B> <>,<|p
$HELP (B)
I}RP C,<C>
.$BUILD><C>
.$BU dy L $bDEFINE .$FL)LGS <A>
.%FLGS==1>
.%FL ex: (A
.$RESET1
$TYPE (.CMFLT)P
$HELP (<>)
$pNEXT (A)
IFIDN <B> <>,< IRP C,0<C>
.$BUILD>P
IFDIF <B> <>,<p
$HELP (B)
IRP C,<C>
.$BUILD><C>
.$BU $ ea1~h
INTERfN A
$DATA(A,<B>)
ATA(A/w*1[KW "
IFDIF <MiA> <>,<
DEFINE N.$HLPM <POINT 7,[N(ASCIZ\A\]>
.%HLPM==1>
. &5 v'A
.$RESETv1
$TYPE (.CMIFI)vP
$HELP (<>)
$vpNEXT (A)
IFIDN w<B> <>,< IRP C,w0<C>
.$BUILD>wP
IFDIF <B> <>,<wp
$HELP (B)
IxRP C,<C>
.$BUILD><C>
.$BU &u q(-
.$RESET
$NEXT (A)
$0TYPE (.CMINI)
IPRP B,<B>
.$BUILD,<B>
.$BU ./ j1&[
.$RESETjQ
$TYPE (.CMKEY)jp
$PDATA (B)
k$NEXT (A)
IRP k0C,<C>
.$BUILD,<C>
.$BUILD ./ hq&O
.$RESETi
$TYPE (.CMKEY)i0
$PDATA (A)
iP$NEXT (0)
IRP ipB,<B>
.$BUILD,<B>
.$BUILD />Ky ea0.WTOX.(.OMfWTR,,,,<A>,<$WTFLG(WT.KIL),B>) 2|p e*.WTOX.(.OMe!LOG,<A>,<B>,<C>,,<D>)B>,<C :/
DEFINE .$NQIXT <A>
.%NXT==1A>
.%NXT :|KV )C
.$RESET1
$TYPE (.CMNOD)P
$HELP (<>)
$pNEXT (A)
IFIDN <B> <>,< IRP C,0<C>
.$BUILD>P
IFDIF <B> <>,<p
$HELP (B)
; $FLAGS (CM%PO)
0IRP C,<C>
.$BUILD><C>
.$B :}r q1'
.$RESETqQ
$TYPE (.CMNOI)qp
$PDATA (<POINTr 7,[ASCIZ\B\]>)
$NEXT (A)
IRrPP C,<C>
.$BUILD,<C>
.$BUI ;-XR kq&q
.$RESETl
$TYPE (.CMNUM)l0
$PDATA (B)
lP$HELP (<>)
$NEXlpT (A)
IFIDN <Cm> <>,< IRP D,<Dm0>
.$BUILD>
ImPFDIF <C> <>,<
mp$HELP (C)
IRP nD,<D>
.$BUILD><D>
.$BUILD >5 xQ'U
.$RESETxq
$TYPE (.CMOFI)y
$NEXT (A)
$y0HELP (<>)
IFIDN yP<B> <>,< IRP C,yp<C>
.$BUILD>z
IFDIF <B> <>,<z0
$HELP (B)
IzPRP C,<C>
.$BUILD><C>
.$BU B$ Li$hDEFINE .$DM ATA <A>
.%DATA==1>
.%DA B$YP Oi%DEFINE .$DP EFM <POINT 7,<A>>
.%DEFM==1 CYT V)%4DEFINE .$DVIEFR <A>
.%DEFR==1>
.%DE G-} q)
.$RESET
$TYPE (.CMQST)0
$HELP (<>)
$PNEXT (A)
IFIDN p<B> <>,< IRP C,<C>
.$BUILD>0
IFDIF <B> <>,<P
$HELP (B)
IpRP C,<C>
.$BUILD><C>
.$BU J.I dA(
$CALLda .RETE
LSTOeF.
JUMP ERA$
LSTON.ERA$ Ni /Y{
.NVR==0/y
.ACM==0
IRP A,<
08 ..TSAC(.ACB,A) 0X
IFN .ACB,<.A0xCM==.ACM!1B<A>> 1
IFE .ACB,< 18
IFE .NVR,< 1X
CAIA
1x LSTOF.
2 JRST b>
28..PUSH(A,\<.NVR+2X1>)>>
IFN .A2xCM,<
IFE <3.ACM-17B<T4>>,<.A38CM==0
$CALL 3X.SAVET>
IFE3x <.ACM-377B<.A16>4>,<.ACM==0
$48CALL .SAVE8>
4X IFE <.ACM-17B<P4x4>>,<.ACM==0
5 $CALL .SAVE4>
58 IFE <.ACM-7B<5XP3>>,<.ACM==0
5x $CALL .SAVE3>
6 IFE .NVR,<
IFE <.ACM-36XB<P2>>,<.ACM==0
6x $CALL .SAVE2>7
7X IFE <.ACM-781B<P1>>,<.ACM==0
$CALL .SAVE17x>
IFE <.ACM8-1B<.A13>>,<.ACM=88=0
$CALL .SV8X13>
IFE <.A8xCM-1B<.A14>>,<.AC9M==0
$CALL .98SV14>
IFE <9X.ACM-1B<.A15>>,<.9xACM==0
$CALL: .SV15>
IFE:8 <.ACM-1B<.A16>>,:X<.ACM==0
$CA:xLL .SV16>
>;>
IFN .ACM,< ;8
IFE .NVR,<;X
CAIA
;x LSTOF.
JRST <b>
.ACB==<80
REPEAT ^D1<X6,<
IFN <x<.ACM&1B<.ACB>>,<=
..PUSH(\.ACB=8,\<.NVR+1>)>
.=XACB==.ACB+1>>
=x
IFN .NVR,<
> PUSH P,[[CAIA>8
AOS -.>XNVR(P)
REP>xEAT .NVR,<..POP(\?.NVR)>
P?8OPJ P,0]]>
b:! LSTON.>
b:! N.@ XQ
IFNDEX9F ..BSIZ,<PRINTX XX?$SET without preXxvious $BUILD>
Y IFNB <B>,<..STRY80 (..SET,<C>,B,YXA)>
IFB <BYx>,<..STR0 (..SET,Z<C>,FWMASK,A)>
,FWMASK,A)>
a==.
Q XWD b-1,b-1
pDEFINE $ETAB <
b==.-a> <
O%| jq_
S..A::!k $CALL .STOP
Lk0STOF.
JUMP [XWkPD 'A',[ITEXT (<kpB>)]
EXP %%.MOD]
LSTON. M O= tQ'-
.$RESETtq
$TYPE (.CMSWI)u
$PDATA (A)
u0$NEXT (0)
IRP uPB,<B>
.$BUILD,<B>
.$BUILD O= s'!
.$RESETs1
$TYPE (.CMSWI)sP
$PDATA (B)
sp$NEXT (A)
IRP tC,<C>
.$BUILD,<C>
.$BUILD R
@ 1)
.$RESETQ
$TYPE (.CMTAD)p
$PDATA (<CM%IDA!CM%ITM>)
$NEX0T (A)
IRP B,<B>
.$BUILD,< R/
$CALL TlQ%TEXT
LSTOF. XClpREF
JUMP [XWD 2m,0
EVL (A)
m0 ITEXT(<B>)]
LSTON.B>)]
.$RESET
$TYPE (.CMTAD)0
$PDATA (CM%ITMP)
$NEXT (A)
pIRP B,<B>
.$BUILD,<B>
.$B R}97 1)e
.$RESETQ
$TYPE (.CMTOK)p
$PDATA (<POINT 7,[ASCIZ\B\]>)
$NEXT (A)
IRPP C,<C>
.$BUILD,<C>
.$BUI S 1o
..TXAA(.TQA,C,D,E,}QB)
IFN .~.TXEF,<
..TE}qRR<$TQ(A,B,C,D,E)>>
C, S@I9 !Z
LSTOF.
X(UQU,Unknown q`ualifier)
X(IQU,Invalid qualifie r)
X(IJA,Invali@d justification a`rgument)
X(IWA,Invalid width arg ument)
X(PEA,Pr@emature end of ar`gument)
X(JNA,Justification is n ot allowed)
X(A@NA,Arguments are `not allowed)
X(ADS,Address must be specified)
LSTON.
ied)
L SN K)$\DEFINE .$TKIYP <A>
.%TYPE==1>
.%TYP W= 1)-
.$RESETQ
$TYPE (.CMUQS)p
$HELP (<>)
$NEXT (A)
$PDAT0A (B)
IFIDN <CP> <>,< IRP D,<Dp>
.$BUILD>
IFDIF <C> <>,<
0$HELP (C)
IRP PD,<D>
.$BUILD><D>
.$BUILD W\@ 1(
.$RESETQ
$TYPE (.CMUSR)p
$NEXT (A)
IRP B,<B>
.$BUILD,<B>
.$BU ^+@ hS
IFE %%.Oh1TS,<DEFINE $WARN hP(MSG) <
$TEXT hp(T%TTY,<% ^W6/[%%i.MOD]/ MSG>)>>
Ii0FN %%.OTS,<DEFINEiP $WARN (MSG) <
ip $TEXT (T%TTY,<% j^W6/IIB+IB.PRG/ ^j0W/[%%.MOD]/ MSG>)>>
$WARN <A> _$r WJ
IFB <W!A>,<.WFACD==0
W@ IFN <0-2>,<.$WACW`D==0>>
IFNB <XA>,<.WFACD==-1
X IFN <0-2>,<.$WAX@CD==.$WACD!<A>>
IFE <0-2>,<DEYFINE .$WACD,<<WO.Y ACD>B8+[ITEXT (<A>)]>>
>
< _$u Lr
IFB <L!A>,<.WFACK==0
L@ IFN <0-2>,<.$WACL`K==0>>
IFNB <MA>,<.WFACK==-1
M IFN <0-2>,<.$WAM@CK==.$WACK!<A>>
IFE <0-2>,<DENFINE .$WACK,<<WO.N ACK>B8+[ITEXT (<A>)]>>
>
< _$+ =a
IFE <.W>FMTY>,<PRINTX ?No> message type in >@$WTBLD>
DEFINE .>`EAWTO(SUFFIX,ARGC?OD),<
IFN .WF'SU? FFIX',<
IFE <AR?@GCOD-0>,<<WO.'SUF?`FIX'>B8+ .$W'SUFF@IX'>
IFE <ARGCO@ D-1>,<<WO.'SUFFIX`'>B8+ [EXP .$W'SU` FFIX']>
IFE <AR`@GCOD-2>,<.$W'SUFF``IX'>
>
>
ALLWaTO
EXP 0
EXP 0 _$k Na
IFB <OA>,<.WFFLG==0
O IFN <1-2>,<.$WFLO@G==0>>
IFNB <O`A>,<.WFFLG==-1
P IFN <1-2>,<.$WFP LG==.$WFLG!<A>>
IFE <1-2>,<DEP`FINE .$WFLG,<<WO.QFLG>B8+[ITEXT (<A>)]>>
>
< _%(W T!4
IFB <TAA>,<.WFJBN==0
T` IFN <0-2>,<.$WJBUN==0>>
IFNB <U A>,<.WFJBN==-1
U@ IFN <0-2>,<.$WJU`BN==.$WJBN!<A>>
IFE <0-2>,<DEV FINE .$WJBN,<<WO.V@JBN>B8+[ITEXT (<A>)]>>
>
< _%YV \Av
IFB <\aA>,<.WFMFL==0
] IFN <1-2>,<.$WMF] L==0>>
IFNB <]@A>,<.WFMFL==-1
]` IFN <1-2>,<.$WM^FL==.$WMFL!<A>>
IFE <1-2>,<DE^@FINE .$WMFL,<<WO.^`MFL>B8+[ITEXT (<A>)]>>
>
< _%] A
IFB <A!A>,<.WFMTY==0
A@ IFN <0-2>,<.$WMTA`Y==0>>
IFNB <BA>,<.WFMTY==-1
B IFN <0-2>,<.$WMB@TY==.$WMTY!<A>>
IFE <0-2>,<DECFINE .$WMTY,<<WO.C MTY>B8+[ITEXT (<A>)]>>
>
< _%kr QA
IFB <QaA>,<.WFNOD==0
R IFN <0-2>,<.$WNOR D==0>>
IFNB <R@A>,<.WFNOD==-1
R` IFN <0-2>,<.$WNSOD==.$WNOD!<A>>
IFE <0-2>,<DES@FINE .$WNOD,<<WO.S`NOD>B8+[ITEXT (<A>)]>>
>
< _%p aA.WTOX.(.OMaaWTO,<A>,<B>,<C>,,<D>)B>,<C _%xU I!\
IFB <IAA>,<.WFOBJ==0
I` IFN <0-2>,<.$WOBJJ==0>>
IFNB <J A>,<.WFOBJ==-1
J@ IFN <0-2>,<.$WOJ`BJ==.$WOBJ!<A>>
IFE <0-2>,<DEK FINE .$WOBJ,<<WO.K@OBJ>B8+[ITEXT (<A>)]>>
>
< _%xr Ya`
IFB <ZA>,<.WFOCD==0
Z IFN <0-2>,<.$WOCZ@D==0>>
IFNB <Z`A>,<.WFOCD==-1
[ IFN <0-2>,<.$WO[ CD==.$WOCD!<A>>
IFE <0-2>,<DE[`FINE .$WOCD,<<WO.\OCD>B8+[ITEXT (<A>)]>>
>
< _%z@ d$.WTOX.(.OMd!WTO,<A>,<B>,<Cd@>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB _%|@ b!
.WTOX.(.OMbAWTR,<A>,<B>,<C>,<D>,<E>)<C _&,z @az
DEFINE @A.EAWTO(SUFFIX),<$_!WT'SUFFIX' <>>
ALLWTO
_&N FAF
IFB <FaA>,<.WFTXT==0
G IFN <2-2>,<.$WTXG T==0>>
IFNB <G@A>,<.WFTXT==-1
G` IFN <2-2>,<.$WTHXT==.$WTXT!<A>>
IFE <2-2>,<DEH@FINE .$WTXT,<<WO.H`TXT>B8+[ITEXT (<A>)]>>
>
< _&N8 Ca0
IFB <DA>,<.WFTYP==0
D IFN <2-2>,<.$WTYD@P==0>>
IFNB <D`A>,<.WFTYP==-1
E IFN <2-2>,<.$WTE YP==.$WTYP!<A>>
IFE <2-2>,<DEE`FINE .$WTYP,<<WO.FTYP>B8+[ITEXT (<A>)]>>
>
<
t{P
u[rQ ]>t2
u}P
,MP [.
P .JP .bP /P B&@P cGP )0 %F0\BP*Z6 _q&C
d`==<FLD(.$TYP,CM%F`0NC)>!.$FLGS!<.$LS`PT>
IFN <.%BR`pEA>,<d==d!CM%BRaK>
IFN <.%HLa0PM>,<d==d!CM%HPaPP!CM%SDH>
ap
IFN <.%DEFMb>,<d==d!CM%DPP>b0
c:! XWD b,bPa
EXP d bp
EXP .$DATcA
IFN <.%HLc0PM!.%DEFM!.%BREA>cP,<
EXP .$HLPM>cp
IFN <.%DEdFM!.%BREA>,<
Ed0XP .$DEFM>
dP
IFN <.%BREA>,< EdpXP .$BREA>
ea==.-c ;LENGTe0H OF THE FDB
IePFN <.%NXT!.%DEFR!ep.%RTN!.%ERTN>,< EfXP .$NXT >
IFf0N <.%DEFR!.%RTN!.fP%ERTN>,<EXP .$RTNfp >
IFN <.%DEFgR!.%ERTN>,< EXP .g0$ERTN>
IFN <.gP%DEFR>,< EXP .$DgpEFR>
b==.h-c
IF2< Ph0URGE a,b,c,d>
LISTb,c,d>$YVWi%>POINT{7,[ASCIZ\0\]NT 7,[A$YY %J0bP.- %D0X"P5Iy %:0XBPf= %@0+1P!w
SALL
ZQXLIST
DEFINE .$ZpTYP <0>
.%TYPE=[=0
DEFINE .$FLG[0S <0>
.%FLGS==0[P
DEFINE .$DATA [p<0>
.%DATA==0
\ DEFINE .$HLPM <>\0
.%HLPM==0
DE\PFINE .$DEFM <0>
\p .%DEFM==0
DEFI]NE .$LST <0>
.%]0LST==0
DEFINE .]P$BREA <0>
.%BRE]pA==0
DEFINE .$N^XT <0>
.%NXT==0^0
DEFINE .$ERTN ^P<0>
.%ERTN==0
^p DEFINE .$RTN <0>_
.%RTN==0
DEF_0INE .$DEFR <0>
.%DEFR==0<0>
K@%H0nBP'"<0TP1,w
..ASX91==-<B>
IFDEFXX .PSECT,<
.IFN Xx..AS1,ABSOLUTE,<
C A,[-..Y8AS1]>
.IF ..ASYX1,ABSOLUTE,<
.Yx.AS2==0
IFE Z<..AS1&^O777777B1Z87>,<
..AS2==1 ZX
DI A,..AZxS1>
IFE ..AS2[,<
..OP(A,[8B,C)>
PURGE [X..AS1,..AS2>>
I[xFNDEF .PSECT,<
\ ..AS2==0
IF\8E <..AS1&^O777777\XB17>,<
..AS2==\x1
DI A,.].AS1>
IFE ..A]8S2,<
..OP]X(A,B,C)>
PURGE ..AS1,..AS2>:h k
A: K
..CX1K9==C
IFDEF .PSEKXCT,<
.IFN ..CXKx1,ABSOLUTE,<
L CAMA B,[C]L8>
.IF ..CX1,ABSLYOLUTE,<
..CX2Lx==0
IFE <..CMX1&^O777777B17>,<M8
..CX2==1
MX CAIA B,C>
Mx IFE ..CX2,<
CAMA B,[R8C]>
PURGE ..CX1RX,..CX2>>
IFNDEFRx .PSECT,<
..CXS2==0
IFE <..S8CX1&^O777777B17>,SX<
..CX2==1
Sx CAIA B,C>
IFE ..CX2,< T8
CAMA B,[TXC]>
PURGE ..CX1,..CX2>GE ..CX:&@ F9?
..TSIZ FY(..PST,C)
.CASFxE ..PST,<<
MOVGEM A,B>,<
HRG8RM A,B>,<
HRGXLM A,B>,<
DPGxB A,[POINTR (B,C)]>>INTR (B,:<;Y ys
DEFINE ..CNS2 (NEW,OLD8)<
OLD>
..CNS ()>
:L;Y Yk
DEFINyE ..CNS (%%%)<
..CNS2 <%%%>,>
8
DEFINE ..CNS2X (NEW,OLD)<
DEFxINE ..CNS (%%%)<
..CNS2 <%%%>,8<OLD'NEW>>>
OLD'NEW>>>
:dH@ C%
..TSIZ C9(..PST,C)
.CASCXE ..PST,<<
MOVCxE A,B>,<
HRRDZ A,B>,<
HLRD8Z A,B>,<
LDBDX A,[POINTR (B,C)]>>INTR (B,:}i1 y
A==<<<-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ ^
..OP1^9==B
IFDEF .PSE^XCT,<
.IFN ..OP^x1,ABSOLUTE,<
_ C A,[..OP1]_8>
.IF ..OP1,ABS_XOLUTE,<
..OP2_x==0
IFE <..O`P1&^O777777B17>,<`8
..OP2==1
``X CI A,..OP1>
IFE ..OP2,< a
C A,[..Oa8P1]>
PURGE ..OPaX1,..OP2>>
IFNDEaxF .PSECT,<
..ObP2==0
IFE <.b8.OP1&^O777777B17>bX,<
..OP2==1
bx CI A,..OP1c>
IFE ..OP2,<c8
C A,[.cX.OP1]>
PURGE ..OP1,..OP2>GE ..;m 6
..PST==!C-FWMASK
.IF0 @..PST,<
POINT `0,B,35>,<
POINTR (B,C)>POI;| @y
POP P,A.NVA
PURGE .NA8VA
.NVR==.NVR-1
.NVR==.NVR;\t ?y
PUSH P@,A
DEFINE .NV@8B<A>
.NVR==.NVR+1
.NVR==.;] ZYa
IFGE Zy<<<B>&777777>-..[BSIZ>,<
PRINTX[8 ?WORD offset gre[Xater than $BUILD [xsize parameter>
\ SET0. (\<B>,C,<A>)
B>,;LH 9[
IFNDEF YC,<PRINTX C IS xNOT DEFINED
A (<B>,D,FWMASK
8)>
IFDEF C,<
X
IFNDEF %C,<
x A (<B>,D,C)>
IFDEF %C,<
%C (A,<B>,D,C)>>A,<B>,;LH y
..NS==0
IRP C,<..N
8S=..NS+1>
IFE
X..NS,<PRINTX ?EMP
xTYSTRUCTURE LIST
IFE ..NS-
(..STR0,C>,D)
IFG ..NS-1,<
..ICNS
.8.CNS (<E (A,<BX>,,>)
IRP C,<x
IFNDEF C,<PRINTX C NOT DE8FINED>
IFDEF XC,<
IFNDEF %xC,<
..CNS (<,C,D>)>
IF8DEF %C,<
%CX (..STR2,,D,C)>x
..CNS (<)>)
..GCNS
8 ..ICNS
.X.CNS (<E (A,<Bx>>)
IFNDEF %C,<
..CNS (<8,C,D>)>
IFXDEF %C,<
%Cx (..STR2,,D,C)>>>
..CNS (<,,)>)
..GCNS>);LI Y
..CNS (<,C,B>).CNS (;LI 3
IFDIF <9D><F>,<
IFNXB <D>,<
Ax (<B>,D,..MSK)
IFNB <F>,8<PRINTX C AND EX ARE IN DIFFERENTx WORDS>>
..MSK==0>
IFNB <8F>,<
..MSK=..MSK!<E>>MSK=..;LJ yC
IFDIF <D><F>,<
IF8NB <D>,<
XA (<B>,D,..MSK)x>
..MSK==0>
IFNB <F>,<
8 ..MSK=..MSK!<E>>MSK=..MSK!<;LJ yY
IFDIF <D><F>,<
IF8NB <D>,<
IXFNB <F>,<
xA1 (B,D,..MSK)>
IFB <F>,8<
A2 (B,DX,..MSK)>>
..xMSK==0>
IFNB <F>,<
..MSK=..MSK!<E>>MSK=;$\Y t
IF1,<
PRINTX ? Erraor in "A"
D1EFINE X(NAM,ERR) <IFN ..X'NAM&..TX EF,<PRINTX ? ERR>@>
$TX$ERR>
$TX$ERR>
;$^ !*
.. ATXF==0
. `.TXB==0
!..TXP==0
! ..TXEG==<..TXEF=!@=0>
IRPC !`A,<
..TXC="=ASCII\A\-35
IFN ..TXB,<IFN "@..TXB-..TXC,..CNS"`(<A>)
IFE #..TXB-..TXC,..TXB# ==0>
IFE ..TXB,#@<..TXQ(<A>,\..TX#`F)>>
..TXC1$
IFN ..T$ XB,<IFN <..TXB-"^$@">,<..TXER(PEA)>>$`
..TXEF==..T%XEF!..TXEG
% IFN ..TXEF,<..TERR<A>>
,<..TE;&(..TXA(.TQCH0)..TXA(.TQC;&)!"..TXER(IQU)..TXER(IQU;&) Q..TXER(IQU)..TXER(IQU;&0 Q..TXA(.TQCHA)..TXA(.TQC;&5 ..TXC0(\".CHLFD).TXC0(\".;&5 ..TXC0(\".CHVTB).TXC0(\".;&6 Q
..TSIZ Oy(..PST,C)
.CAPSE ..PST,<<
SEP8TZM B>,<
HLLPXZS B>,<
HRRZPxS B>,<
..TSQAC (..ACT,B)
Q8 .IF0 ..ACT,<
QX $CALL .ZERO
QxLSTOF.
JUMP [PROINTR(B,C)]
R8LSTON.>,<
..TX (Z,B,C)>>>TX;&81 9
IFNDEF Y.PSECT,<
A==0 x
..TSA1==<Z B>
IFE ..TS8A1&^O777777777760X,<A==1>
>
IxFDEF .PSECT,<
A==0
..TSA1=8=<Z B>
.IF .X.TSA1,ABSOLUTE,< x
IFE ..TSA1&^O777777777760,<A8==1>>
PURGE ..TSA1>
PURGE ..;&:= }yw
A==3 ~
IFE <B>+1,<~8A=0>
IFE <B>-~X^O777777,<A==1> ~x
IFE <B>-^O777777B17,<A==2>7;' d/
..TX1d9==C
IFDEF .PdXSECT,<
.IFN .dx.TX1,ABSOLUTE,<
e TDA B,[C]>
eX .IF ..TX1,ABSOLe9UTE,<
..TX2==ey0
IFE <..TX1&f^O777777B17>,<
f8 ..TX2==1
fXTRA B,..TX1>
fxIFE ..TX2,<
IgFE <..TX1&^O77777g97>,<
..TX2==1gY
TLA B,(.gx.TX1)>>
IFE ..ThX2,<
IFE <<h8..TX1>B53-^O77777pY7>,<
..TX3px (A,B)>>
IFEq ..TX2,<
TDq8A B,[..TX1]>
qX PURGE ..TX1,..TXqx2>>
IFNDEF .PSECrT,<
..TX2==0
IFE <..TX1&^O77rX7777B17>,<
..rxTX2==1
TRAs B,..TX1>
IFE s8..TX2,<
IFE <sX..TX1&^O777777>,<sx
..TX2==1
t TLA B,(..TX1t8)>>
IFE ..TX2,<tX
IFE <<..TXtx1>B53-^O777777>,<u
..TX3 (Au8,B)>>
IFE ..TuXX2,<
TDA uxB,[..TX1]>
PURGE ..TX1,..TX2>;'` v9E
IFIDN <vYA><Z>,<
..vxTX2==1
ANDI wB,^-..TX1>
IFIw8DN <A><O>,<
wX ..TX2==1
xORwxCMI B,^-..TX1>
IFIDN <A><C>,<x8
..TX2==1
xX EQVI B,^-..TX1>QVI B,^-..TX;' A
..TXEaF==0
IFNDEF A,<..TXER(UQU)>
IFDIF <B><>,@<IRPC B,<.IFN <`B>,NUMERIC,..TXER(IWA)>>
IFNB <C >,<IFNDEF .TXTJC@,<..TXER(IJA)>>
`IFDEF A,<
IF E <A_-^D18>,<IFD IF <EFBCD><> @,<..TXER(ANA)>>
` IFE <1-<A_-^D1
8>>,<IFDIF <BC
D><>,<..TXER(JNA)
@>>
IFE <2-<A_
`-^D18>>,<IFIDN <EF><>,<..TXER(AD S)>>>
IF@E ..TXEF,<
IFID`N <B><>,<..TXWD=
=<..TXJU==<..TXFC
==0>>>
IFDIF <
@B><>,<
IFE <^
`D<B>>,<..TXWD==<
BIFN<<^D<D==^D<
IFNB <C>,<..TXJU==.TXTJ C>
IFB <@C>,<..TXJU==.TXTJ`L
IFE <A-.TQOCT>,<..TXJU= =.TXTJR>
@IFE <A-.TQDEC>,<`..TXJU==.TXTJR>>
IFB <D>,< ..TXFC==" ">
@ IFNB <D>,<..TX`FC=="D">>>
IFB <EF>,<..TXP T==0>
IFNB <E@F>,<..TXPT==1>
`IFE <..TXWD+..TXPT>,<
EXP FL D(A,TXT.FN)>
I@FN <..TXWD+..TXPT`>,<
EXP FLD(A,TXT.FN)+FLD(. .TXJU,TXT.JU)+FLD@(..TXWD,TXT.WD)+F`LD(..TXFC,TXT.FC)+TXT.AD
PNTR(E,F)>>
T;'h 7D
IFE 7!..TXP,<
..IC7@NS
..CNS<ASC7`IZ\>
..TXP==18>
..CNS<A8 >
..TXF==8@0
..TXB=="^"
..TXB==;'h 9P
IF9!N ..TXP,<
..9@CNS<\>
EXP <F9`LD(.TQCHT,TXT.FN):+[..GCNS]>>
..TXP==0>
;' 9 ~
..TX!EF==..TXEF!..XA @
..TXF==0 `
..TXB=="^"
..TXB=="^;'
%a...TXQB(<A>)..TXQB(<;'
( &!8
IF&AN ..TXC-"^",<..TX&`C0(<A>)>
'IFE ..TXC-"^",<..TXF==1>-"^",<..;'
( 'AX
IF'aE ..TXC-"^",<..TX(C0(<A>)>
I( FN ..TXF,<
.(@.TXF==0
IFDEF(` .TQCHA,<
) IFDEF ..TQMA,.) .TQMA
IFN)@ <.TQCHA_-^D18>,)`<..TXF==2>>>
* IFE ..TXF-2,<..T* XC1(<A>)
..IC*@NS
..CNS<..T*`XA(.TQCHA,>>
+ ..TXEG==..TXEG!..TXEF==..TXEG;'
) +Aj
..TX+aF==3
IFG,E ..TXC-"0",IFLE , ..TXC-"9",<..TXF=,@=2>
IFE ..TX,`F-2,<..CNS(A)> -
IFE ..TXF-3- ,<..CNS<,>
..TXQ3(A)>
;'
) -a~
..TX.F==4
IFE. ..TXC-"/",<..TXF.@==5>
IFE ..`.TXC-"[",<..TXF==/5>
IFE ..T/ XF-4,<..CNS<A,>>/@
IFE ..TXF/`-5,<..CNS<,,>
..TXQ5(A)>
;'
* 0!
..TX0AF==4
IFE0` ..TXC-"/",..TXF=1=5
IFE ..T1 XC-"[",..TXF==5 1@
IFE ..TXF-51`,<..CNS<,>
2..TXQ5<A>>
2 IFE ..TXF-4,<..2@CNS<A,>
..TXF==5>
..;'
* 3&
..TX3!F==6
IFE3@ ..TXC-"/",..TXB=3`="/"
IFE .4.TXC-"[",..TXB=="4 ]"
IFE ..TXB4@-"]",..CNS<[>
4` IFE ..TXB,..TXF==5 ..TXB,..T;'
+ 5!4
..TX5AF==0
IFE 5`..TXC-"]",..CNS<]6>
..CNS<)> 6
..GCNS 6@
..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q ;EpQ ;E+PQ ;F 0Q ;F\:Q @
0P
@P
PP
`P d ,a
.ACV2 (A)
.ACV2 (d@ ,Yk
A=.FPA,yC+..NAC
IFB <-B>,<..NAC=..NAC+-81>
IFNB <B>,<..NAC=..NAC+B>.d` -yy
IFG A-..NPAC,<PRINTX ?TO.8O MANY ACS USED>
IFLE A-4,<
/.x $CALL .SAVEA>
IFG A-4,<
$CALL .SAVE8>
=Z T9#$CALL I%INTA$CALL I%IN9 {yi
..CSN==|A
..CSC==0
I|8RP B,<
IFE ..C|XSN-..CSC,<
ST|xOPI
..CAS1 (}B)>
..CSC==..CSC+1>..CSC==..CSD 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 l,UP S@P ,<H LYo
..PST==LyC-FWMASK
.IF0 M..PST,<
SOS BM8>,<
$CALL .SOMXS
LSTOF.
JMxUMP [POINTR(B,C)]
LSTON.>C} =~
.OPCD==_a.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 zY[
..IFT==zyA
IFE ..IFT,{<
B
..IFT==0{8>
IFN ..IFT,<
C>N ..IFT,<&t<H IYW
..PST==IyC-FWMASK
.IF0 J..PST,<
AOS BJ8>,<
$CALL .AOJXS
LSTOF.
JJxUMP [POINTR(B,C)]
LSTON.>C&tj7Q:?6MiTQ @7;rp77H:pz7kpv7N8p=;`Pz;-J7P#>)qpB>5H3pP>DLYpB?EHP $?LxP "?(WP !?+ZP %?krP #?xUP ?)0P "?)8P #?98P !?J6P $?N8P ?$(:P ?$*7P ?$9P ?$HVP ?$h6P ?$mP ?%VP ?%+qP ?%LP ?%X<P ?%[ZP ?%hzP ?%kzP ?%|P ?&P ?&
0P O B$
IFG A-BqMX.PID,<MX.PID==A>
C
G A-OSP OYP O|P OyP O%=H !9
.STKV2 (A)
.STKV2 O%=I !y
IFB <B">,<..STKN==..STKN"8+1>
IFNB <B>,<"X..STKN==..STKN+B"x>
..STKQ==..STK#N+1
.STKV3 (A,\..STKQ)V3 (A,O%=I #Y'
IFDEF#y A,<.IF A,SYMBO$L,<PRINTX STKVAR $8A ALREADY DEFINE$XD>>
DEFINE A<-$x^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 StQ
S+qQ
S:<Q S=P
S=WQ SJ6Q S\rQ Si9Q SmP Sd 'Y=
.TRV2 (A)
.TRV2 (Sd@ (G
.TRV3 ((9A,\..NV)
IFB (X<B>,<..NV=..NV+1(x>
IFNB <B>,<..NV=..NV+B>,<..Sd` )9U
IFDEF)Y A,<.IF A,SYMBO)xL,<PRINTX TRVAR *A ALREADY DEFINED*8>>
DEFINE A<^O*XB(.FP)>
$A==<Z A>>
$A==<SFH2P SFIVP SFJQP SFJVP SFJYP _%~ fAP
$CALL faI%WTO
LSTOF.g
JRST g
$WTRST
IFg@NB <A>,<$WTMTY (g`<A>)>
IFNB <hB>,<$WTTYP (<B>)h >
IFNB <C>,<$h@WTTXT (<C>)>
h`IFNB <D>,<$WTOBJi (<D>)>
IFNB i <E>,<$WTACK (<Ei@>)>
IRP F,<i`F>
$WTBLD j
g:!
LSTON. g:!
LSTON. kPP >}{woP