Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,5@P C4@ <Ke
..NAC== <80
IRP A,<
<X .ACV1 (A)>
.ACV3 (\..NAC)C' fF1..AS(A,B,ADD,SUB)(A,BC, G`D>LSH A,-^D9LSH A,-^DC2f}
K@Tn
.EAWTO(
K`MTY,0)
.EAWTO(T
LYP,2)
.EAWTO(TX
L T,2)
.EAWTO(OBJ
L@,0)
.EAWTO(ACK,
L`0)
.EAWTO(FLG,1
M)
.EAWTO(NOD,0)
M
.EAWTO(JBN,0)
M@
.EAWTO(ACD,0)
M` .EAWTO(OCD,0)
.EAWTO(MFL,1)
C:'
XHU
TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ qXO
IFE qxB,<..TA==0>
rIFN B,<EXP ..TA r8
PURGE ..TA>
PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ _Ey
..CX(,A,B) ..CGD bXF
..CX(A,A,B) ..CGDP `XF
..CX(E,A,B) ..CGDp aF
..CX(G,A,B) ..CGDy aXF
..CX(GE,A,B) ..CGE@ _XE}
..CX(L,A,B) ..CGEI `F
..CX(LE,A,B) ..CGE` bF
..CX(N,A,B) ..CGH 9[N
LST8`OF.
X CRE
8 X GEN
X PRT
9 X CLS
X@AUT
X USW
X SPL 9@
X SIZ
X M9`OD
X CHN
LSTON.
G"\Y
IF1,EDT==AEDT>
@
IF2,<IFN><%%E
PRTXe?nEditaNumbe
` A$WHO(\AEDT)>
A$NOTE
INTERN AEDT
INTERN LODLEV
;` PURGE %%EDT> ;END IF2
SB)iG4,YP G4,,UQ G4,LQ G4,[qQ G4,\qQ @G4,iVQ xG4,kQQ `G4,m:Q G4,m`Q @G4,zQP'G4-
Q G4-Q @G4-ZQ G4-[P G4-Q G4-LzP'G4-htQ G4-kxQ G4-kyP G4-lsQ G4. RQ G4.`Q @G4.
zQ G4.(4Q G4.,Q G4.9Q G4.=zQ G4.lXQ @G4.zsQ G4/
3Q @G:YlP
G>hKW ap
IFNB <>b,<
PRINTX (Frob0m GLXVER)
> ;END IFNB
G>hMt `0
PRINTX `PGLXVER GLXCOM Edi`pt(55) by CTK on 2a5-Sep-83
PRINTXa0 GLXCOM Actual Edit(A)
G>lYP G>vC@ x@WLALL
PAGE
; (A Continued o
8n next page)
SAL
XL; (A Continued
xfrom previous page) previous pagG?T H@ASCIZ .COPYRIGHT CIZ .COPGHt;rP GHtkP GHv P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`DK*IIY{P`DM*|I \8Mi
IFNB < \XB>,<..STR0 (.DECR \x0,,<B>,A)>
IF ]B <B>,<SOS A> <B>,<SOS A>I6= XI9
A==<-1 xB<C>+1B<C-D>>
IF1,<IFDEF %A 8,<PRINTX ?A ALRE XADY DEFINED>>
D xEFINE %A (OP,AC, Y,MSK)<
IFDIF 8<Y><>,<
OP (<AC X>,B+'Y,MSK)>
I xFIDN <Y><>,<
OP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 hXFE..OP(A,B,DIV)..OP(A,BIOH1
>pd
IFB <D
?>,<
XWD [ASCIZ\
?0C\],[XWD B,A]>
?P
IFNB <D>,<
?pXWD [EXP CM%FW!D
@
ASCIZ\C\],[XWD B,A]>
,[XKH(Q P 4KJ
,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 /KJLhBP 3KJLkBP 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 #KJtKBP 3KJtlP 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 6`[>
IF1,<IF7DEF ERA$,PRINTX 7 ?Duplicate error 7@code A>
ERA$=7`=ER%%%
ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y
{@[2
ERR EOF
{`,<End of file>
|ERR IFP,<Illegal
| file position>
|@ERR FDE,<File dat
|`a error>
ERR FN
}D,<File is not on
} disk>
ERR NSD,
}@<No such device>
}`
ERR FCF,<File c
~heckpoint failed>
~
ERR SLE,<A sys
~@tem limit was exc
~`eeded>
ERR IFS,
<Illegal file spe
cification>
ERR
@ FNF,<File not fo
`und>
ERR PRT,<Protection violati on>
ERR DNA,<De@vice not availabl`e>
ERR NCE,<No "current" entry i n list>
ERR NMA@,<No IPCF message` is available>
ERR FDS,<Files ar e on different st@ructures>
ERR F`AE,<File already exists>
ERR USE ,<Unexpected syst@em error>
ERR N`SP,<No such pid>
ERR BOL,<Beginn ing of list reach@ed>
ERR EOL,<En`d of list reached>
ERR RQF,<Rece ivers quota full>@
ERR SQF,<Sende`rs quota full>
ERR NRE,<No remem bered entry>
ER@R TBF,<Table is f`ull>
ERR EIT,<Table entry alread y exists>
ERR I@TE,<Invalid table` entry>
ERR QEF,<Quota exceeded or disk full>
E@RR ARG,<Invalid a`rgument specified >
ERR IFN,<Inva lid function spec @ified>
ERR IJN, `<Invalid job numb
er specified>
E
RR RAD,<Invalid r
@adix specified>
` ERR NUM,<Invalid numeric argument >
ERR IDT,<Inva@lid date field sp`ecified>
ERR IT
F,<Invalid time f
ield specified>
@ ERR DOR,<Date/ti
`me out of range>
ERR DTM,<Valueet
ERR MDD,<Min date/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>
ERR 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 can not do input or output>
ERR BD@F,<Invalid date/t`ime format>
ERR ABS,<Field too l ong for internal @buffer>
ERR TMT`,<Command 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 N#CI,<Argument bloc# k may not be in t#@he ACs>
ERR TLU#`,<Terminal locati$on is unknown>
$ ERR FIO,<File is $@offline>
ERR FB$`M,<File being mod%ified>
ERR WLK,% <Write-locked dev%@ice>
ERR CSD,<C%`annot supersede a& directory>
ERR& CDD,<Cannot dele&@te a non-empty di&`rectory>
ERR SN'F,<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,<Ca*nnot update file>*
ERR ENQ,<File *@has outstanding E*`nqueue lockes set+>
ERR SWS,<Soft+ ware write-lock o+@n structure>
ER+`R DER,<Hardware d,evice 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 U0DM,<Unrecognized 0 month in date/tim0@e>
ERR UDN,<Unr0`ecognized name in1 date/time>
ERR1 IFA,<Illegal fil1@e attribute>
ER1`R FAI,<File attri2bute inconsistanc2 y>
ERR CEI,<Can2@'t enable/disable2` interrupt system3>
ERR ENF,<Link3 ed list entry not3@ found>
ERR NSL3`,<No such linked 4list>
ERR NFP,<4 No free pages>
4@ERR NPI,<No free 4`pages for IPCF re5ception>
ERR IF5 B,<Indirect file 5@too big for inter5`nal buffer>
ER6R NDN,<Null devic6 e name given>
name given>
KKBP
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` ~pP
IFIDN < BC><>,<EXP <A> 0>
IFDIF <BC>< P>,<
IFE <A+1> p,<<POINT 7,C>>
IFN <A+1>,<
0 IFIDN <C><>,<
PEXP <A,B>>
p IFDIF <C><>,<EX
P <A,B,C>>
>>A,B,C>>
>KbN@ `Kc 8@=IRP A,<
X IF2,<IFNDEF A,<EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP Mv
P 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 WpC
IFNB <>X,<
PRINTX (FroX0m GLXVER)
> ;END IFNB
M&`Mt V0;
PRINTX VPGLXVER GLXFIL EdiVpt(111) by CTK on W19-Oct-84
PRINTW0X GLXFIL Actual Edit(A)
M&dYP $M2 L8Dc<<<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 MR4zQ MR6L`P MRV>9P MS.[yQ M^luQ O2| @KIRP A,<
8 IF2,<IFDEF A,<.XIFN A,EXTERN,<INxTERN A>>
IFNDEF A,<EXTERN 8 A>
Q SUPPRESPA>>FlYSUPPRO3DYPF>O3EKrPf>O3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
Sp Sv>@p SNn hFA..OP(A,B,IDIV).OP(A,BS7-N gF9..OP(A,B,IMUL).OP(A,BS: Y8MQ
IFNB < YXB>,<..STR0 (.INCR Yx0,,<B>,A)>
IF ZB <B>,<AOS A> <B>,<AOS A>S:HKW d0'
IFNB <>dP,<
PRINTX (Frodpm GLXVER)
> ;END IFNB
S:HMt bp
PRINTX cGLXVER GLXINI Edic0t(22) by CTK on 2cP5-Sep-83
PRINTXcp GLXINI Actual Edit(A)
S:LYP S;k NxDw<<<A>B<POS(<B>)>>&<B>>S; KW kpc
IFNB <>l,<
PRINTX (Frol0m GLXVER)
> ;END IFNB
S; Mt j0[
PRINTX jPGLXVER GLXINT Edijpt(105) by DPM on k11-Jan-82
PRINTk0X GLXINT Actual Edit(A)
S;!kP S;!k<P S;$YP "S?
HQ
TXO A,<B>
TXO A,S@t,:P'S@t9QQ @S@t9QP S@t9RP `S@t9VP S@t9XP$S@t9YQ S@t9YQ S@t9ZQ 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 \pk
IFNB <>],<
PRINTX (Fro]0m GLXVER)
> ;END IFNB
SBMt [0c
PRINTX [PGLXVER GLXIPC Edi[pt(66) by DPM on 2\6-Mar-84
PRINTX\0 GLXIPC Actual Edit(A)
SBIP SBM"P SBYP SBlP SB2P SB
BP SB,BP SB,bP SB."P SB\P SB)iP SB)iP SB)kVP SB)kYP SB)lXP SB)lsP SB)lxP SB)mvP SBal}P SPuxzQ @SR/
PP
LSTOF.
pXCREF
..TEXT<A
>
EXP 0
LSTON.
0
Uv98Q |U$@
- [x
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
XCJN,.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&kVp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn @ 4@UVn
KW RP
IFNB <>Rp,<
PRINTX (FroSm GLXVER)
> ;END IFNB
W
Mt Q
PRINTX Q0GLXVER GLXKBD EdiQPt(63) by on 9-NoQpv-84
PRINTX R GLXKBD Actual Edit(A)
W
$YP WNH1
@Pd
IFB <C
@p>,<
XWD [ASCIZ\
AB\],A>
IFNB <
A0C>,<
XWD [EXP
APCM%FW!C
ASCIZ\B\],A>
SCIZY"luQ xY&i1 ' D6
LST'@OF. XCREF
CDO'` OTSINI
CDO (
CDO .ZP( AGA
CDO .ZPAGN
CDO .ZCHNK
CD(`O .SAVE1
CDO .S)AVE2
CDO .SAVE3)
CDO .SAVE4
C)@DO .SAVET
CDO .)`SV13
CDO .SV14
CDO .SV15
CDO* .SV16
CDO .RET*@T
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%S/@PID
CDO C%MAXP
CDO C%PIDJ
CD0O
CDO
CDO
C0 DO
CDO
CDO 0@
CDO F0`%IOPN
CDO F%AOP1N
CDO F%OOPN
1 CDO F%IBYT
CDO 1@F%OBYT
CDO F%IB1`UF
CDO F%OBUF
2 CDO F%REL
CDO 2 F%DREL
CDO F%RR2@EL
CDO F%REW
2`CDO F%POS
CDO F3%CHKP
CDO F%INF3 O
CDO F%FD
CD3@O F%REN
CDO F%D3`EL
CDO F%FCHN
4 CDO
CDO
CDO
CDO
CDO
CDO4@
CDO
CDO
CD4`O
CDO 5
CDO M%ACQP
5 CDO M%RELP
CDO5@ M%IPSN
CDO M%N5`XPG
CDO M%IPRC
CDO M%IPRM
CD6 O M%AQNP
CDO M%6@RLNP
CDO M%CLNC6`
CDO M%FPGS
C7DO M%GMEM
CDO M7 %RMEM
CDO
CDO7@
CDO
CDO
CD7`O
CDO
CDO M%G8PAG
CDO M%RPAG
CDO
CDO
CDO8@
CDO
CDO
CD8`O
CDO
CDO
9 CDO
9 CDO T%TEXT
CDO 9@T%TTY
CDO
CDO9`
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%HOS@`T
CDO I%JINF
ACDO
CDO
CDOA
CDO
CDO SA@%DATI
CDO S%SIXA`B
CDO S%CMND
BCDO S%TBLK
CDO B S%SCMP
CDO S%ERB@R
CDO S%INTR
B`CDO S%EXIT
CDO CS%TBAD
CDO S%TBC DL
CDO S%NUMI
C@
CDO K%RCOC C`
CDO K%WCOC
DCDO K%SUET
CDO D K%STYP
CDO K%TXD@TI
CDO K%SOUT
D` CDO K%BOUT
CDOE K%BIN
CDO K%BAE CK
CDO K%TPOS
E@ CDO K%BUFF
CDOE` K%FLSH
CDO K%OFPEN
CDO
CDO
F CDO
CDO
CDO
CDO
CDO
CDOF`
CDO
LSTON.
LSTON.Y:XKW i0O
IFNB <>iP,<
PRINTX (Froipm GLXVER)
> ;END IFNB
Y:XMt gpG
PRINTX hGLXVER GLXLNK Edih0t(11) by AWC on 2hP9-Jan-82
PRINTXhp GLXLNK Actual Edit(A)
Y:\YP Y>
@ RxM
IFNB < SC>,<..STR0 (..LDB S8,A,C,B)>
IFB SX <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 8@e
IFNDEF XLSTIN.,LSTIN.==0 x
IFE LSTIN.,<
IFIDN <XCREF><A
8>,<.XCREF>
X XLIST>
LSTIN.==LSTIN.+1STINYO%{G
IFG,LSTN.==LSTIN
IFLECLSTIN
LIST>
[KW _0
IFNB <>_P,<
PRINTX (Fro_pm GLXVER)
> ;END IFNB
[Mt ]pw
PRINTX ^GLXVER GLXMAC Edi^0t(242) by DPM on ^P26-Mar-84
PRINT^pX GLXMAC Actual Edit(A)
[YP Q[3@ N8Ds<<<1_<A>>-1>B<B>>_<A>>[8@ M8Dk1B<<A>-1>-1B<B><<A>-1>[@ "`B"
IFB <B#>,<MAXSIZ==0
I# RP A,<IFG <A-MA#@XSIZ>,<MAXSIZ==A#`>>>
IFNB <B>,<$B==0
IRP A,<$ IFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
8Q [v
QP'[vQv[v:Q[vuQ [vxQp[vlXp [lrp [ltp [lxp [l}p [hKW U0/
IFNB <>UP,<
PRINTX (FroUpm GLXVER)
> ;END IFNB
[hMt Sp'
PRINTX TGLXVER GLXMEM EdiT0t(30) by LWS on 2TP6-Oct-84
PRINTXTp GLXMEM Actual Edit(A)
[lYP
[n:=P [tuQ @[th:Q [u[yQ [ukvQ [v=3P'[v|WQ [&p $`B6
IFB <B%>,<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>>>
[>!` MxDo<A-<A/B>*B><A-<A/B[?7 O8E]
..MX1OX==B
IFDEF .POxSECT,<
.IFN .P.MX1,ABSOLUTE,<
P8 MOVE A,[B]>
PX .IF ..MX1,ABSOLPxUTE,<
..MX2==0 Q
IFE <..MX1>B5Q83,<
QX..MX2==1
MOVEI A,..MXQx1>
IFE ..MX2,<R
IFE <..MX1>BR817,<
..MX2==1RX
MOVSI A,(..RxMX1)>>
IFE ..MSX2,<
IFE <<..S8MX1>B53-^O777777>SX,<
..MX2==1
Sx HRROI A,<..MXT1>>>
IFE ..MX2T8,<
IFE <<..MXTX1>B17-^O777777B17Tx>,<
U..MX2==1
HRLOI A,(..MU8X1-^O777777)>>
UX IFE ..MX2,<
Ux MOVE A,[..MX1]V>
>>
IFNDEFV8 .PSECT,<
..MX2VX==0
IFE <..MXVx1>B53,<
..MX2W==1
MOVEI A,W8..MX1>
IFE ..MWXX2,<
IFE <..MWxX1>B17,<
..MXX2==1
MOVSI AX8,(..MX1)>>
IFEXX ..MX2,<
IFE Xx<<..MX1>B53-^O777Y777>,<
..MX2=Y8=1
HRROI A,<YX..MX1>>>
IFE .Yx.MX2,<
IFE <<Z..MX1>B17-^O77777Z87B17>,<
..MX2ZX==1
HRLOI A,Zx(..MX1-^O777777)>[>
IFE ..MX2,< [8
MOVE A,[..[XMX1]>
>
PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= XIO
A==C x
IF1,<IFDEF % A,<PRINTX ?A ALR 8EADY DEFINED>>
XDEFINE %A (OP,AC x,Y,MSK)<
IFDIF <Y><>,<
OP (<A 8C>,B+'Y,MSK)>
XIFIDN <Y><>,<
O xP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg gXF=..OP(A,B,MUL)..OP(A,B[`v
2P ] x@1IF2,<IFDEF A,<A==A>> IFNDEF A,<A==B>]F@ _6TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= Ph]N
X .OT: RDR,Reader
X .O
,`TNCU,Network-ContP(roller
X .OTLPTT@,Printer
X .OTBT`AT,Batch-Stream
U X .OTCDP,Card-PuU nch
X .OTPTP,PaU@pertape
X .OTPLU`T,Plotter
X .OTVJOB,Job
X .OTTRV M,Terminal
X .OV@TOPR,Operator
XV` .OTIBM,<IBM RemoWte>
X .OTMNT,<DW evice>
X .OTFTSW@,<File Transfer>
X .OTBIN,<Card XReader InterpreteX r>
X .OTRET,<FiX@le Retrieval>
XX` .OTNOT,<RetrievaYl Notification>
Y X .OTDBM,<DBMS SY@ystem>
X .OTFALY`,<File Access Listener>
ess Lis_SKW pP
IFNB <>pp,<
PRINTX (Froqm GLXVER)
> ;END IFNB
_SMt o
PRINTX o0GLXVER GLXOTS EdioPt(7) by DEK on 6-opApr-81
PRINTX p GLXOTS Actual Edit(A)
_SYP _Sh6Q O3EJ1_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 c^K
..XX=c =<FLD(A,CM%FNC)>b`+B+<Z F>
c@ IFNB <D>,<..XX=c`..XX!CM%HPP>
d IFNB <E>,<..XX=d8..XX!CM%DPP>
dX EXP ..XX
dx IFNB <C>,<EXP eC>
IFB <C>,<e8EXP 0>
IFNBeX <D>,<POINT 7,[AexSCIZ \D\]>
IfFB <D>,<0>
ff8 IFNB <E>,<POINTfX 7,[ASCIZ \E\]>
gIFB <E>,<0>
IFB <Ig8>,<0>
IFNB <gXI>,<EXP I>
gx IFB <J>,<0>
h IFNB <J>,<EXP h8J>
IFB <H>hX,<0>
IFNB <Hhx>,<EXP H>
iIFB <G>,<0>
i8IFNB <G>,<EXP G>
G>,<EXP Ga@KW n0w
IFNB <>nP,<
PRINTX (Fronpm GLXVER)
> ;END IFNB
a@Mt lpo
PRINTX mGLXVER GLXPFH Edim0t(16) by TARL on mP17-Apr-81
PRINTmpX GLXPFH Actual Edit(A)
aDYP a G D:LSH A,^D9LSH A,^D9a+= 5a;&
%@R4
IFB <
%`B>,<..STR0(..PNT
&,,<FWMASK>,A)>
& IFNB <B>,<..ST
&@R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm KXD_<POINT WIDKx(B),A,POS(B)>B),A,POS(B)>a?H6 +a? IDI<^L<<A>&<-<A>>>><<A>&<aJ}Ks @B
SALL `
LSTOF. XCREF
%%.GLX== %%.GLX
GLXVR@S==GLXVRS
`IFNB <A>,<%%.MOD==SIXBIT/A/>
IFNB <B>,<%%.OTS@==SIXBIT/B/>
`
GLOB I%INIT
TOPS10 <
SEARCH UUOSYM @
%%UUOS==%%UUO`S
>
TOPS20 <
SEA RCH MONSYM
; @%%MONS==%%MONS
>
IFB <B>,<
.TEXT |,REL:GLXLIB/SEA@RCH/REQUIRE:I%INI`T|
DEFINE $DATA (NAM,SIZ<1>),<
NAM: BLOCK S@IZ
>
DEF`INE CDO (X),<GLOB X>
LIBVEC
>
IFNB@ <B>,<CHKEDT (B`)>
IFNB <B>,<IFDIF <B><INI> ,<
IFN GLXPUR@E,<.PSECT .HIGH.>`
IFE GLXPURE,<
TWOSEG 40 0000
RELOC 0@
RELOC 40000`0
>
DEFINE $DATA(NAM,S IZ<1>),<
IFN@ GLXPURE,<.PSECT `DATA>
IFE GLXPURE,<RELOC>
IFNDEF B%D,<B@%D::! B%DL==:0>
NAM: BLOCK SIZ
B%DL==:B% DL+SIZ
IFN G@LXPURE,<.ENDPS DA`TA>
IFE GLXPURE,<RELOC>
>
IFDIF <@B><OTS>,<
DE`FINE CDO (X),<GLOB X>
LIBVEC
>
>> @
IFNB <B>`,<IFIDN <B><INI>,<
DEFINE $DA TA (NAM,SIZ<1>),<@
NAM: BLOCK `SIZ
>
>>
LSTON.
GLOB <.POPJ@, .RETT, .RETF>
OPDEF $RET [POPJ 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
$RaPtPeaPtkPaPuTPQaPv\rPee,(SQe,)6Qe,)RQ e,+Qe@e,,UQP@e,-Qfe,<SQPe-)WQge-i1Ppe.k=p glp glp gltp gl}p g
,}Q g
-LyQ @g
.=1Q gpKW ZU
IFNB <>Z0,<
PRINTX (FroZPm GLXVER)
> ;END IFNB
gpMt XPM
PRINTX XpGLXVER GLXSCN EdiYt(103) by LWS on Y03-Apr-84
PRINTXYP GLXSCN Actual Edit(A)
gtYP !g"@ rxO'
IFN <<. s.TA>&B>,<PRINTX s8 ?Initial field n sXot zero in $SET>
t..TVAL==<C>
t8..TMSK==<B>
..TA==..TA! tX<FLD(..TVAL,..TMS txK)>
PURGE ..TVAL,..TMSK
.TgtXrP@g#=z@yp OC.SWIT+PDBCPY##C.SWIT+PDBg$tkQ@@g$uP'g$uh6Qg.N @B6@g.N^
.SPID (S\ P.QSR,.IPCPQ,.SPQ\@SR,QUASAR)
.SPI\`D (SP.OPR,.IPCPO,].SPOPR,ORION)
.] SPID (SP.INF,.IPC]@PI,.SPINF,INFO)
.SPID (SP.MDA,.I^PCPM,.SPMDA,MDA) ^
TOPS10<
.SPID ^@(SP.IPC,.IPCPS,,I^`PCC)
.SPID (SP_.ACT,.IPCPA,,ACTD_ AE)
.SPID (SP._@TLP,.IPCPT,,TAPLA_`B)
.SPID (SP.T`OL,.IPCPC,,TAPAVR` )
.SPID (SP.DO`@L,.IPCPD,,DSKAVR)``
.SPID (SP.FILa,.IPCPF,,FILDAE)
>
,FILDAE) gR^h9 /xK
..STKR= 0=10
RADIX 8
08 ..STKN==0
IRP 0XA,<
.STKV1 ( 0xA)>
$CALL .STK 1ST
..STKN,,..S 18TKN
RADIX ..STK 1XR
PURGE ..STKN, 1x..STKR,..STKQ
TKR,..STKQ
gR~) VM7
IFNB < V8C>,<..STR0 (..DPB VX,A,C,B)>
IFB Vx <C>,<MOVEM A,B>>,<MOVEM A,gV fXF5..AS(A,B,SUB,ADD)(A,Bgg
V !@B
IFNB <!`B>,<TOPS10<A==B">>
IFNB <C>,<T" OPS20<A==C>>
PS20<A==C>>
ght-3P @ghuWP ghuxSP @ghv5P ghv
2P/hDPFhHPhLPIhPPHiP i$tkQP'i$tlUQ xi0,YQ i0,1Q i0,^Q i0-kvQ @i?4(
PPq
IFNB
p <A>,<.TQCHA==^
D<B>B17+ZZ>
I
0FNB <D>,<DEFINE
P ..TQMA<D>>
pIFNB <C>,<.TQC=
=^D<B>B17+ZZ>
ZZ==ZZ+1ZZ>
iG,
PPa
LSTOF.
p
TQ(T,2,ASCIZ)
TQ(O,2,OCTAL)
0
TQ(D,2,DECI
PMAL)
TQ(F,2,
pFILE)
TQ(7,2
,CSEVEN)
TQ(
06,2,CSIXBIT)
P TQ(W,2,SIXBIT)
p
TQ(5,2,SVNBIT
)
TQ(P,2,USE
0R)
TQ(U,2,DI
PRECTORY)
TQ(
pH,2,DAYTIME)
TQ(C,2,TIME)
0
TQ(E,2,ERROR)
P
TQ(I,1,INDIRE
pCT)
TQ(M,0,CR
,..TXC0(\".CHCRT)
0)
TQ(J,0,LF,..
PTXC0(\".CHLFD))
p
TQ(L,0,FF,..TXC
0(\".CHFFD))
T
0Q(K,0,VT,..TXC0(\
P".CHVTB))
TQ(A
p,0,NOCRLF,..TXA(.
TQCHA))
TQ(0,0
0,NULL,..TXA(.TQCH
P0))
TQ(3,0,STR
pING,..TXER(IQU))
TQ(V,2,VERSION
0)
TQ(2,0,CAR
PET,..TXER(IQU))
p
TQ(Q,2,POINTER)
TQ(B,2,ROB)
0
TQ(1,2,OBJE
PCT)
TQ(N,2,N
pODE)
TQ(R,2,
JIB)
LSTON.
)
LSTON.
-\|
LSTOF.
X(33,TTY33,33,.@RETT,,,)
X(3@@5,TTY35,35,.RETT,@ ,,)
TOPS20<
@h X(37,TTY37,37,.RAETT,,,)
X(EXA(ECUPORT,EXEC,EXE,AH.RETT,,,)
>
AhTOPS10<
X(LA120B,LA120,L12,.RETT,B(,,)
>
X(LA3BH6,LA36,L36,.RETT,Bh,,)
X(VT05,VCT05,V05,.RETT,<37C(,177,177,177>,,) CH
X(VT100,VT100,Ch100,SETTLC,<.CHESDC,"[","K">,<.CHESD(C,"=">,<.CHESC,.CDHHRAB>)
;**;[235Dh]ADD 6 LINES AFTEER VT100 ENTRY 2-JE(un-83/CTK
TOPS10EH< X(VT101,VT101,1Eh01,SETTLC,<.CHESCF,"[","K">,<.CHESCF(,"=">,<.CHESC,.CHFHRAB>)>
X(VT102Fh,VT102,102,SETTLCG,<.CHESC,"[","K">G(,<.CHESC,"=">,<.CGHHESC,.CHRAB>)
TGhOPS10< X(VT103,VTH103,103,SETTLC,<.H(CHESC,"[","K">,<.HHCHESC,"=">,<.CHESHhC,.CHRAB>)>
X(IVT125,VT125,125,SI(ETTLC,<.CHESC,"["IH,"K">,<.CHESC,"="Ih>,<.CHESC,.CHRAB>J)
TOPS10< X(VT1J(80,VT180,180,SETTJHLC,<.CHESC,"[","KJh">,<.CHESC,"=">,<K.CHESC,.CHRAB>)> K(
TOPS10< X(VT185KH,VT185,185,SETTLCKh,<.CHESC,"[","K">L,<.CHESC,"=">,<.CL(HESC,.CHRAB>)>
LH X(VT50,VT50,V50,LhSETTLC,<.CHESC,"JM">,<.CHESC,"=">,<M(.CHESC,.CHRAB>)
X(VT52,VT52,V52Mh,SETTLC,<.CHESC,"NJ">,<.CHESC,"=">,N(<.CHESC,.CHRAB>) NH
TOPS10< X(VT61,NhVT61,V61,SETTLC,<O.CHESC,"J">,<.CHEO(SC,"=">,<.CHESC,.OHCHRAB>)>
LSTON.
>)>
LSTONiK,PA iK4@ 68KA
..TRR== 6X10
RADIX 8
6x..NV==1
IRP 7A,<
.TRV1 ( 78A)>
$CALL .TR 7XSET
..NV-1,, 7x..NV-1
RADIX .. 8TRR
PURGE ..TRR,..NVURGE ..Tib XG}
..TX(C,A,<B>)..TX(Cib H
..TX(CA,A,<B>).TX(CibP H
..TX(CE,A,<B>).TX(Cib` XH
..TX(CN,A,<B>).TX(Cibp yXGM
..TX(N,A,<B>)..TX(Nibt {GY
..TX(NA,A,<B>).TX(NibtP zGQ
..TX(NE,A,<B>).TX(Nibu` zXGU
..TX(NN,A,<B>).TX(Nibx {XG]
..TX(O,A,<B>)..TX(Oib| }Gi
..TX(OA,A,<B>).TX(Oib|P |Ga
..TX(OE,A,<B>).TX(Oib}` |XGe
..TX(ON,A,<B>).TX(Oic KW fp;
IFNB <>g,<
PRINTX (Frog0m GLXVER)
> ;END IFNB
ic Mt e03
PRINTX ePGLXVER GLXTXT Ediept(54) by CTK on 2f5-Sep-83
PRINTXf0 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 }XGm
..TX(Z,A,<B>)..TX(ZicT Gy
..TX(ZA,A,<B>).TX(ZicTP ~Gq
..TX(ZE,A,<B>).TX(ZicU` ~XGu
..TX(ZN,A,<B>).TX(ZmKc@(AMIN (18)AEDTo& HXDE<^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 Oh[z
.TTC==.? .Z
..Z==..Z+1
Z
..Z==..Z+1=q"eJ P q*-` +
q+= +
q6~i4 C q? HY
TXC A,<B>
TXC A,q@ X@7IFB <C>,<xA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up _8N
IFNB < _XB>,<..STR1 (..TQZ _x,,<B>,A,..STR4) `>
IFB <B>,<SETZM A><B>,<SEuhP ;z
:Pce
.$RESET
:p
$TYPE (.CMACT)
;
$HELP (<>)
$
;0NEXT (A)
IFIDN
;P<B> <>,< IRP C,
;p<C>
.$BUILD>
<
IFDIF <B> <>,<
<0
$HELP (B)
I
<PRP C,<C>
.$BUILD><C>
.$BU 0
tW$
.WTOX.(.OM
t ACK,<A>,<B>,<C
t@>,<D>,<$WTFLG(WT.SJI),E>)LG(WT J7 uH_.DEFINE .$RuhTN <A>
.%RTN==1A>
.%RTN fI9 pH_DEFINE .$LphST <A+1>
.%LST==11>
.%L
=Z cxN'
IFG dA-INT.LV,<PRINTX d8?Level A interru dXpts not supported dx>
.BGINT.(\A) .BGINT.(\A X5 rh_DEFINE .$BsREA <A>
.%BREA==1>
.%BR - fXNE
IFDEF fx ..BSIZ,<PRINTX ? gMissing $EOB afte g8r a $BUILD>
. gX.BSIZ==0
. gx.BLOC==.
R hEPEAT A,<
h8BLD0.(\..BSIZ,0) hX
..BSIZ==..BSIZ+1>
==..BSI }[0
#Pb#
.$RESET
#p
$TYPE (.CMCMA)
$
$NEXT (A)
I
$0RP B,<B>
.$BUILD,<B>
.$BU I@
b
.$RESET
0
$TYPE (.CMCFM)
P
IRP A,<A>
.$BUILD,<A>
$^
)pb_
.$RESET
*
$TYPE (.CMTXT)
*0
$HELP (<>)
$
*PNEXT (A)
IFIDN
*p<B> <>,< IRP C,
+<C>
.$BUILD>
+0
IFDIF <B> <>,<
+P
$HELP (B)
I
+pRP C,<C>
.$BUILD><C>
.$BU I
,0bk
.$RESET
,P
$TYPE (.CMTAD)
,p
$PDATA (CM%IDA
-)
$NEXT (A)
-0IRP B,<B>
.$BUILD,<B>
.$B ,,U exN1
$RET f ;WILL INVOKE RIGHT ROUTINE
,h: mH^z
IFDIF <mhA> <>,<
DEFINE n.$DEFM <POINT 7,[n(ASCIZ\A\]>
.nH%DEFM==1>
IFIDNnh <A> <>,<
IF1 <o
PRINTX %Null aro(gument in $DEFAULT macro>>DEFAUL .`
(PbK
.$RESET
(p
$TYPE (.CMDEV)
)
$NEXT (A)
I
)0RP B,<B>
.$BUILD,<B>
.$BU Lz:
Pa
.$RESET
p
$TYPE (.CMNUX)
$PDATA (B)
0$HELP (<>)
$NEX
PT (A)
IFIDN <C
p> <>,< IRP D,<D
>
.$BUILD>
I
0FDIF <C> <>,<
P$HELP (C)
IRP
pD,<D>
.$BUILD><D>
.$BUILD N
!b
.$RESET
!0
$TYPE (.CMDIR)
!P
$NEXT (A)
I
!pRP B,<B>
.$BUILD,<B>
.$BU | mXO
IFNDE mxF ..BSIZ,<PRINTX n?$EOB without pre n8vious $BUILD>
nX IFN <.-..BLOC>,< nxPRINTX ?Address c ohange between $BU o8ILD and $EOB>
oX LSTOF.
.. oxT==0
REPEAT . p.BSIZ,<
BLD p80.(\..T,1)
pX ..T==..T+1 >
px PURGE ..BSIZ,.. qT,..BLOC
LSTON.
LST +y r_DEFINE .$Er(RTN <A>
.%ERTN==1>
.%ER , sH_DEFINE .$EshRTN <1B0+A+1>
.%ERTN==1>
- t(_(DEFINE .$EtHRTN <[MOVEI S2,[AthSCIZ\A\]
u $RETF]>
.%ERTN==1>
. H6 wPOE
$CALL . wpSTOP
LSTOF.
J xUMP [XWD 0,[ITEXT x0 (<A>)]
EXP xP%%.MOD]
LSTON. .MOD]
LSTON. L[
Pa}
.$RESET
p
$TYPE (.CMFLD)
$NEXT (A)
$
0HELP (<>)
IFIDN
P<B> <>,< IRP C,
p<C>
.$BUILD>
IFDIF <B> <>,<
0
$HELP (B)
I
PRP C,<C>
.$BUILD><C>
.$BU MI
ai
.$RESET
0
$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 jh^XDEFINE .$FkLGS <A>
.%FLGS==1>
.%FL ex:
&bA
.$RESET
&0
$TYPE (.CMFLT)
&P
$HELP (<>)
$
&pNEXT (A)
IFIDN
'<B> <>,< IRP C,
'0<C>
.$BUILD>
'P
IFDIF <B> <>,<
'p
$HELP (B)
I
(RP C,<C>
.$BUILD><C>
.$BU $
0pc
.$RESET
1
$TYPE (.CMTAD)
10
$PDATA (<CM%ID
1PA!CM%ITM!CM%FUT>)
1p
$NEXT (A)
I
2RP B,<B>
.$BUILD,<B>
.$BU $ v`O9
INTER wN A
$DATA(A,<B>)
ATA(AjO21;LH "
IFDIF <lHA> <>,<
DEFINE lh.$HLPM <POINT 7,[mASCIZ\A\]>
.%HLPM==1>
. &5
aA
.$RESET
0
$TYPE (.CMIFI)
P
$HELP (<>)
$
pNEXT (A)
IFIDN
<B> <>,< IRP C,
0<C>
.$BUILD>
P
IFDIF <B> <>,<
p
$HELP (B)
I
RP C,<C>
.$BUILD><C>
.$BU &u
$pb-
.$RESET
%
$NEXT (A)
$
%0TYPE (.CMINI)
I
%PRP B,<B>
.$BUILD,<B>
.$BU ./
0`[
.$RESET
P
$TYPE (.CMKEY)
p
$PDATA (B)
$NEXT (A)
IRP
0C,<C>
.$BUILD,<C>
.$BUILD ./
p`O
.$RESET
$TYPE (.CMKEY)
0
$PDATA (A)
P$NEXT (0)
IRP
pB,<B>
.$BUILD,<B>
.$BUILD />Ky
v`W8.WTOX.(.OM
wWTR,,,,<A>,<$WTFLG(WT.KIL),B>) 2|p
vW2.WTOX.(.OM
vLOG,<A>,<B>,<C>,,<D>)B>,<C :/
DEFINE .$NqHXT <A>
.%NXT==1A>
.%NXT :|KV
7pcQ
.$RESET
8
$TYPE (.CMNOD)
80
$HELP (<>)
$
8PNEXT (A)
IFIDN
8p<B> <>,< IRP C,
9<C>
.$BUILD>
90
IFDIF <B> <>,<
9P
$HELP (B)
;
9p$FLAGS (CM%PO)
:IRP C,<C>
.$BUILD><C>
.$B :}r
0a
.$RESET
P
$TYPE (.CMNOI)
p
$PDATA (<POINT
7,[ASCIZ\B\]>)
0
$NEXT (A)
IR
PP C,<C>
.$BUILD,<C>
.$BUI ;-XR
p`q
.$RESET
$TYPE (.CMNUM)
0
$PDATA (B)
P$HELP (<>)
$NEX
pT (A)
IFIDN <C
> <>,< IRP D,<D
0>
.$BUILD>
I
PFDIF <C> <>,<
p$HELP (C)
IRP
D,<D>
.$BUILD><D>
.$BUILD >5
PaU
.$RESET
p
$TYPE (.CMOFI)
$NEXT (A)
$
0HELP (<>)
IFIDN
P<B> <>,< IRP C,
p<C>
.$BUILD>
IFDIF <B> <>,<
0
$HELP (B)
I
PRP C,<C>
.$BUILD><C>
.$BU B$ kH^^DEFINE .$DkhATA <A>
.%DATA==1>
.%DA B$YP oh_DEFINE .$DpEFM <POINT 7,<A>>
.%DEFM==1 CYT v(_4DEFINE .$DvHEFR <A>
.%DEFR==1>
.%DE G-}
2Pc%
.$RESET
2p
$TYPE (.CMQST)
3
$HELP (<>)
$
30NEXT (A)
IFIDN
3P<B> <>,< IRP C,
3p<C>
.$BUILD>
4
IFDIF <B> <>,<
40
$HELP (B)
I
4PRP C,<C>
.$BUILD><C>
.$BU J.I u@O0
$CALL u` .RETE
LSTO vF.
JUMP ERA$
LSTON.ERA$ Ni @XM
.NVR==0 @x
.ACM==0
IRP A,<
A8 ..TSAC(.ACB,A) AX
IFN .ACB,<.A AxCM==.ACM!1B<A>> B
IFE .ACB,< B8
IFE .NVR,< BX
CAIA
Bx LSTOF.
C JRST b>
C8..PUSH(A,\<.NVR+ CX1>)>>
IFN .A CxCM,<
IFE < D.ACM-17B<T4>>,<.A D8CM==0
$CALL DX.SAVET>
IFE Dx <.ACM-377B<.A16> E>,<.ACM==0
$ E8CALL .SAVE8>
EX IFE <.ACM-17B<P Ex4>>,<.ACM==0
F $CALL .SAVE4>
F8 IFE <.ACM-7B< FXP3>>,<.ACM==0
Fx $CALL .SAVE3>
G IFE .NVR,<
IFE <.ACM-3 GXB<P2>>,<.ACM==0
Gx $CALL .SAVE2> H
HX IFE <.ACM- H81B<P1>>,<.ACM==0
$CALL .SAVE1 Hx>
IFE <.ACM I-1B<.A13>>,<.ACM= I8=0
$CALL .SV IX13>
IFE <.A IxCM-1B<.A14>>,<.AC JM==0
$CALL . J8SV14>
IFE < JX.ACM-1B<.A15>>,<. JxACM==0
$CALL K .SV15>
IFE K8 <.ACM-1B<.A16>>, KX<.ACM==0
$CA KxLL .SV16>
> L>
IFN .ACM,< L8
IFE .NVR,< LX
CAIA
Lx LSTOF.
JRST Mb>
.ACB== M80
REPEAT ^D1 MX6,<
IFN Mx<.ACM&1B<.ACB>>,< N
..PUSH(\.ACB N8,\<.NVR+1>)>
. NXACB==.ACB+1>>
Nx
IFN .NVR,<
O PUSH P,[[CAIA O8
AOS -. OXNVR(P)
REP OxEAT .NVR,<..POP(\ P.NVR)>
P P8OPJ P,0]]>
b:! LSTON.>
b:! N.@ iNY
IFNDE i8F ..BSIZ,<PRINTX iX?$SET without pre ixvious $BUILD>
j IFNB <B>,<..STR j80 (..SET,<C>,B, jXA)>
IFB <B jx>,<..STR0 (..SET, k<C>,FWMASK,A)>
,FWMASK,A)>
Bd
a==.
B0 XWD b-1,b-1
BPDEFINE $ETAB <
b==.-a> <
O%| {pOg
S..A::! | $CALL .STOP
L |0STOF.
JUMP [XW |PD 'A',[ITEXT (< |pB>)]
EXP %%.MOD]
LSTON. M O=
Pa-
.$RESET
p
$TYPE (.CMSWI)
$PDATA (A)
0$NEXT (0)
IRP
PB,<B>
.$BUILD,<B>
.$BUILD O=
a!
.$RESET
0
$TYPE (.CMSWI)
P
$PDATA (B)
p$NEXT (A)
IRP
C,<C>
.$BUILD,<C>
.$BUILD R
@
/0c
.$RESET
/P
$TYPE (.CMTAD)
/p
$PDATA (<CM%ID
0A!CM%ITM>)
$NEX
00T (A)
IRP B,<B>
.$BUILD,< R/
$CALL T }P%TEXT
LSTOF. XC }pREF
JUMP [XWD 2 ~,0
EVL (A)
~0 ITEXT(<B>)]
LSTON.B>)]
-pbw
.$RESET
.
$TYPE (.CMTAD)
.0
$PDATA (CM%ITM
.P)
$NEXT (A)
.pIRP B,<B>
.$BUILD,<B>
.$B R}97
=cs
.$RESET
=0
$TYPE (.CMTOK)
=P
$PDATA (<POINT
=p 7,[ASCIZ\B\]>)
>
$NEXT (A)
IR
>0P C,<C>
.$BUILD,<C>
.$BUI S
0Pw
..TX
@A(.TQA,C,D,E,
PB)
IFN .
.TXEF,<
..TE
pRR<$TQ(A,B,C,D,E)>>
C, S@I9
( Rb
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,J
+ustification is n
+ ot allowed)
X(A
+@NA,Arguments are
+`not allowed)
X(
,ADS,Address must
, be specified)
LSTON.
ied)
L SN j^RDEFINE .$Tj(YP <A>
.%TYPE==1>
.%TYP W=
5c;
.$RESET
50
$TYPE (.CMUQS)
5P
$HELP (<>)
$
5pNEXT (A)
$PDAT
6A (B)
IFIDN <C
60> <>,< IRP D,<D
6P>
.$BUILD>
I
6pFDIF <C> <>,<
7$HELP (C)
IRP
70D,<D>
.$BUILD><D>
.$BUILD W\@
"0b
.$RESET
"P
$TYPE (.CMUSR)
"p
$NEXT (A)
I
#RP B,<B>
.$BUILD,<B>
.$BU ^+@ yO[
IFE %%.O y0TS,<DEFINE $WARN yP(MSG) <
$TEXT yp(T%TTY,<% ^W6/[%% z.MOD]/ MSG>)>>
I z0FN %%.OTS,<DEFINE zP $WARN (MSG) <
zp $TEXT (T%TTY,<% {^W6/IIB+IB.PRG/ ^ {0W/[%%.MOD]/ MSG>)>>
$WARN <A> _$r
hVR
IFB <
h A>,<.WFACD==0
h@ IFN <0-2>,<.$WAC
h`D==0>>
IFNB <
iA>,<.WFACD==-1
i IFN <0-2>,<.$WA
i@CD==.$WACD!<A>>
i`
IFE <0-2>,<DE
jFINE .$WACD,<<WO.
j ACD>B8+[ITEXT (<A>)]>>
>
< _$u
]Uz
IFB <
] A>,<.WFACK==0
]@ IFN <0-2>,<.$WAC
]`K==0>>
IFNB <
^A>,<.WFACK==-1
^ IFN <0-2>,<.$WA
^@CK==.$WACK!<A>>
^`
IFE <0-2>,<DE
_FINE .$WACK,<<WO.
_ ACK>B8+[ITEXT (<A>)]>>
>
< _$+
N`W
IFE <.W
OFMTY>,<PRINTX ?No
O message type in
O@$WTBLD>
DEFINE .
O`EAWTO(SUFFIX,ARGC
POD),<
IFN .WF'SU
P FFIX',<
IFE <AR
P@GCOD-0>,<<WO.'SUF
P`FIX'>B8+ .$W'SUFF
QIX'>
IFE <ARGCO
Q D-1>,<<WO.'SUFFIX
q'>B8+ [EXP .$W'SU
q FFIX']>
IFE <AR
q@GCOD-2>,<.$W'SUFF
q`IX'>
>
>
ALLW
rTO
EXP 0
EXP 0 _$k
_`V
IFB <
`A>,<.WFFLG==0
` IFN <1-2>,<.$WFL
`@G==0>>
IFNB <
``A>,<.WFFLG==-1
a IFN <1-2>,<.$WF
a LG==.$WFLG!<A>>
a@
IFE <1-2>,<DE
a`FINE .$WFLG,<<WO.
bFLG>B8+[ITEXT (<A>)]>>
>
< _%(W
e V<
IFB <
e@A>,<.WFJBN==0
e` IFN <0-2>,<.$WJB
fN==0>>
IFNB <
f A>,<.WFJBN==-1
f@ IFN <0-2>,<.$WJ
f`BN==.$WJBN!<A>>
g
IFE <0-2>,<DE
g FINE .$WJBN,<<WO.
g@JBN>B8+[ITEXT (<A>)]>>
>
< _%YV
m@V~
IFB <
m`A>,<.WFMFL==0
n IFN <1-2>,<.$WMF
n L==0>>
IFNB <
n@A>,<.WFMFL==-1
n` IFN <1-2>,<.$WM
oFL==.$WMFL!<A>>
o
IFE <1-2>,<DE
o@FINE .$WMFL,<<WO.
o`MFL>B8+[ITEXT (<A>)]>>
>
< _%]
RU"
IFB <
R A>,<.WFMTY==0
R@ IFN <0-2>,<.$WMT
R`Y==0>>
IFNB <
SA>,<.WFMTY==-1
S IFN <0-2>,<.$WM
S@TY==.$WMTY!<A>>
S`
IFE <0-2>,<DE
TFINE .$WMTY,<<WO.
T MTY>B8+[ITEXT (<A>)]>>
>
< _%kr
b@V&
IFB <
b`A>,<.WFNOD==0
c IFN <0-2>,<.$WNO
c D==0>>
IFNB <
c@A>,<.WFNOD==-1
c` IFN <0-2>,<.$WN
dOD==.$WNOD!<A>>
d
IFE <0-2>,<DE
d@FINE .$WNOD,<<WO.
d`NOD>B8+[ITEXT (<A>)]>>
>
< _%p
r@W.WTOX.(.OM
r`WTO,<A>,<B>,<C>,,<D>)B>,<C _%xU
Z Ud
IFB <
Z@A>,<.WFOBJ==0
Z` IFN <0-2>,<.$WOB
[J==0>>
IFNB <
[ A>,<.WFOBJ==-1
[@ IFN <0-2>,<.$WO
[`BJ==.$WOBJ!<A>>
\
IFE <0-2>,<DE
\ FINE .$WOBJ,<<WO.
\@OBJ>B8+[ITEXT (<A>)]>>
>
< _%xr
j`Vh
IFB <
kA>,<.WFOCD==0
k IFN <0-2>,<.$WOC
k@D==0>>
IFNB <
k`A>,<.WFOCD==-1
l IFN <0-2>,<.$WO
l CD==.$WOCD!<A>>
l@
IFE <0-2>,<DE
l`FINE .$WOCD,<<WO.
mOCD>B8+[ITEXT (<A>)]>>
>
< _%z@
uW,.WTOX.(.OM
u WTO,<A>,<B>,<C
u@>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB _%|@
s W
.WTOX.(.OM
s@WTR,<A>,<B>,<C>,<D>,<E>)<C _&,z
Q`W
DEFINE
Q@.EAWTO(SUFFIX),<$
p WT'SUFFIX' <>>
ALLWTO
_&N
W@UN
IFB <
W`A>,<.WFTXT==0
X IFN <2-2>,<.$WTX
X T==0>>
IFNB <
X@A>,<.WFTXT==-1
X` IFN <2-2>,<.$WT
YXT==.$WTXT!<A>>
Y
IFE <2-2>,<DE
Y@FINE .$WTXT,<<WO.
Y`TXT>B8+[ITEXT (<A>)]>>
>
< _&N8
T`U8
IFB <
UA>,<.WFTYP==0
U IFN <2-2>,<.$WTY
U@P==0>>
IFNB <
U`A>,<.WFTYP==-1
V IFN <2-2>,<.$WT
V YP==.$WTYP!<A>>
V@
IFE <2-2>,<DE
V`FINE .$WTYP,<<WO.
WTYP>B8+[ITEXT (<A>)]>>
>
<
t{P
u[rQ ]>t2
u}P
,MP Q.
P .JP .bP /P B&@P cGP )0 _F0lxpZ6 p`C
d
==<FLD(.$TYP,CM%F
0NC)>!.$FLGS!<.$LS
PT>
IFN <.%BR
pEA>,<d==d!CM%BR
K>
IFN <.%HL
0PM>,<d==d!CM%HP
PP!CM%SDH>
p
IFN <.%DEFM
>,<d==d!CM%DPP>
0
c:! XWD b,
Pa
EXP d
p
EXP .$DAT
A
IFN <.%HL
0PM!.%DEFM!.%BREA>
P,<
EXP .$HLPM>
p
IFN <.%DE
FM!.%BREA>,<
E
0XP .$DEFM>
P
IFN <.%BREA>,< E
pXP .$BREA>
a==.-c ;LENGT
0H OF THE FDB
I
PFN <.%NXT!.%DEFR!
p.%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>$YVwh>POINT{7,[ASCIZ\0\]NT 7,[A$YY J0I@@&.- D0jWp5Iy :0+WPf= @0+1Pw
SALL
zPXLIST
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
DEF0INE .$DEFR <0>
.%DEFR==0<0>
K@ _H0:=p' ^
0TK1,)0P$YVP$YYP.-P 5IyP f=P w
..ASi81==-<B>
IFDEFiX .PSECT,<
.IFN ix..AS1,ABSOLUTE,<
C A,[-..j8AS1]>
.IF ..ASjX1,ABSOLUTE,<
.jx.AS2==0
IFE k<..AS1&^O777777B1k87>,<
..AS2==1 kX
DI A,..AkxS1>
IFE ..AS2l,<
..OP(A,l8B,C)>
PURGE lX..AS1,..AS2>>
IlxFNDEF .PSECT,<
m ..AS2==0
IFm8E <..AS1&^O777777mXB17>,<
..AS2==mx1
DI A,.n.AS1>
IFE ..An8S2,<
..OPnX(A,B,C)>
PURGE ..AS1,..AS2>:h Hs
A: \F-
..CX1\8==C
IFDEF .PSE\XCT,<
.IFN ..CX\x1,ABSOLUTE,<
] CAMA B,[C]]8>
.IF ..CX1,ABS]XOLUTE,<
..CX2]x==0
IFE <..C^X1&^O777777B17>,<^8
..CX2==1
^X CAIA B,C>
^x IFE ..CX2,<
CAMA B,[c8C]>
PURGE ..CX1cX,..CX2>>
IFNDEFcx .PSECT,<
..CXd2==0
IFE <..d8CX1&^O777777B17>,dX<
..CX2==1
dx CAIA B,C>
IFE ..CX2,< e8
CAMA B,[eXC]>
PURGE ..CX1,..CX2>GE ..CX:&@ W8MG
..TSIZ WX(..PST,C)
.CAS WxE ..PST,<<
MOV XEM A,B>,<
HR X8RM A,B>,<
HR XXLM A,B>,<
DP XxB A,[POINTR (B,C)]>>INTR (B,:<;Y .xJ{
DEFIN /E ..CNS2 (NEW,OLD /8)<
OLD>
..CNS ()>
:L;Y ,XJs
DEFIN ,xE ..CNS (%%%)<
-..CNS2 <%%%>,>
-8
DEFINE ..CNS2 -X (NEW,OLD)<
DEF -xINE ..CNS (%%%)<
..CNS2 <%%%>, .8<OLD'NEW>>>
OLD'NEW>>>
:dH@ TM-
..TSIZ T8(..PST,C)
.CAS TXE ..PST,<<
MOV TxE A,B>,<
HRR UZ A,B>,<
HLR U8Z A,B>,<
LDB UX A,[POINTR (B,C)]>>INTR (B,:}i1 xI!
A==<<< -<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ oG%
..OP1o8==B
IFDEF .PSEoXCT,<
.IFN ..OPox1,ABSOLUTE,<
p C A,[..OP1]p8>
.IF ..OP1,ABSpXOLUTE,<
..OP2px==0
IFE <..OqP1&^O777777B17>,<q8
..OP2==1
qqX CI A,..OP1>
IFE ..OP2,< r
C A,[..Or8P1]>
PURGE ..OPrX1,..OP2>>
IFNDErxF .PSECT,<
..OsP2==0
IFE <.s8.OP1&^O777777B17>sX,<
..OP2==1
sx CI A,..OP1t>
IFE ..OP2,<t8
C A,[.tX.OP1]>
PURGE ..OP1,..OP2>GE ..;m
'R>
..PST==
' C-FWMASK
.IF0
'@..PST,<
POINT
'`0,B,35>,<
POINTR (B,C)>POI;| QxM
POP P, R.NVA
PURGE .N R8VA
.NVR==.NVR-1
.NVR==.NVR;\t PxM
PUSH P Q,A
DEFINE .NV Q8B<A>
.NVR==.NVR+1
.NVR==.;] kXNi
IFGE kx<<<B>&777777>-.. lBSIZ>,<
PRINTX l8 ?WORD offset gre lXater than $BUILD lxsize parameter>
m SET0. (\<B>,C,<A>)
B>,;LH 8Ic
IFNDEF XC,<PRINTX C IS xNOT DEFINED
A (<B>,D,FWMASK 8)>
IFDEF C,<
IFNDEF %C,<
x A (<B>,D,C) >
IFDEF %C,<
%C (A,<B>,D,C)>>A,<B>,;LH xJ!
..NS==0
IRP C,<..N 8S=..NS+1>
IFE X..NS,<PRINTX ?EMP xTY STRUCTURE LIST , A>
IFE ..NS- 81,<
..STR0 X(A,<B>,<C>,D) x>
IFG ..NS-1,<
..ICNS
. 8.CNS (<E (A,<B X>,,>)
IRP C,< x
IFNDEF C, <PRINTX C NOT DE 8FINED>
IFDEF XC,<
IFNDEF % xC,<
..CNS (< !,C,D>)>
IF !8DEF %C,<
%C !X (..STR2,,D,C)> !x
..CNS (<)>) "
..GCNS
"8 ..ICNS
. "X.CNS (<E (A,<B "x>>)
IFNDEF % #C,<
..CNS (< #8,C,D>)>
IF #XDEF %C,<
%C #x (..STR2,,D,C)> $>>
..CNS (<,,)>)
..GCNS>);LI $XJ%
..CNS (<,C,B>).CNS (;LI %J;
IFDIF < %8D><F>,<
IFN %XB <D>,<
A %x (<B>,D,..MSK) &
IFNB <F>, &8<PRINTX C AND E &X ARE IN DIFFERENT &x WORDS>>
..MS 'K==0>
IFNB < '8F>,<
..MSK=..MSK!<E>>MSK=..;LJ 'xJK
IFDIF < (D><F>,<
IF (8NB <D>,<
(XA (<B>,D,..MSK) (x>
..MSK==0> )
IFNB <F>,<
)8 ..MSK=..MSK!<E>>MSK=..MSK!<;LJ )xJa
IFDIF < *D><F>,<
IF *8NB <D>,<
I *XFNB <F>,<
*xA1 (B,D,..MSK)> +
IFB <F>, +8<
A2 (B,D +X,..MSK)>>
.. +xMSK==0>
IFNB ,<F>,<
..MSK=..MSK!<E>>MSK=;$\Y
.R|
IF1,<
-@
PRINTX ? Err
-`or in "A"
D
.0EFINE X(NAM,ERR)
/<IFN ..X'NAM&..TX
/ EF,<PRINTX ? ERR>
/@>
$TX$ERR>
$TX$ERR>
;$^
1 S2
..
1@TXF==0
.
1`.TXB==0
2..TXP==0
2 ..TXEG==<..TXEF=
2@=0>
IRPC
2`A,<
..TXC=
3=ASCII\A\_-35
3
IFN ..TXB,<IFN
3@..TXB-..TXC,..CNS
3`(<A>)
IFE
4..TXB-..TXC,..TXB
4 ==0>
IFE ..TXB,
4@<..TXQ(<A>,\..TX
4`F)>>
..TXC1
5
IFN ..T
5 XB,<IFN <..TXB-"^
5@">,<..TXER(PEA)>>
5`
..TXEF==..T
6XEF!..TXEG
6 IFN ..TXEF,<..TERR<A>>
,<..TE;&(
Q!..TXA(.TQCH0)..TXA(.TQC;&)
Q*..TXER(IQU)..TXER(IQU;&)
PQ%..TXER(IQU)..TXER(IQU;&0
PQ..TXA(.TQCHA)..TXA(.TQC;&5
Q..TXC0(\".CHLFD).TXC0(\".;&5
Q..TXC0(\".CHVTB).TXC0(\".;&6
PQ..TXC0(\".CHFFD).TXC0(\".;&6
PQ..TXC0(\".CHCRT).TXC0(\".;&@ `XN
..TSIZ `x(..PST,C)
.CA aSE ..PST,<<
SE a8TZM B>,<
HLL aXZS B>,<
HRRZ axS B>,<
..TS bAC (..ACT,B)
b8 .IF0 ..ACT,<
bX $CALL .ZERO
bxLSTOF.
JUMP [P cOINTR(B,C)]
c8LSTON.>,<
..TX (Z,B,C)>>>TX;&81 8I
IFNDEF X.PSECT,<
A==0 x
..TSA1==<Z B>
IFE ..TS 8A1&^O777777777760 X,<A==1>
>
I xFDEF .PSECT,<
A==0
..TSA1= 8=<Z B>
.IF . X.TSA1,ABSOLUTE,< x
IFE ..TSA1&^ O777777777760,<A 8==1>>
PURGE ..TSA1>
PURGE ..;&:= xH
A==3
IFE <B>+1,< 8A=0>
IFE <B>- X^O777777,<A==1> x
IFE <B>-^O777777B17,<A==2>7;' uH7
..TX1u8==C
IFDEF .PuXSECT,<
.IFN .ux.TX1,ABSOLUTE,<
v TDA B,[C]>
vX .IF ..TX1,ABSOLv8UTE,<
..TX2==vx0
IFE <..TX1&w^O777777B17>,<
w8 ..TX2==1
wXTRA B,..TX1>
wxIFE ..TX2,<
IxFE <..TX1&^O77777x87>,<
..TX2==1xX
TLA B,(.xx.TX1)>>
IFE ..TyX2,<
IFE <<y8..TX1>B53-^O77777 X7>,<
..TX3 x (A,B)>>
IFE ..TX2,<
TD 8A B,[..TX1]>
X PURGE ..TX1,..TX x2>>
IFNDEF .PSEC T,<
..TX2==0
IFE <..TX1&^O77 X7777B17>,<
.. xTX2==1
TRA B,..TX1>
IFE 8..TX2,<
IFE < X..TX1&^O777777>,< x
..TX2==1
TLA B,(..TX1 8)>>
IFE ..TX2,< X
IFE <<..TX x1>B53-^O777777>,<
..TX3 (A 8,B)>>
IFE ..T XX2,<
TDA xB,[..TX1]>
PURGE ..TX1,..TX2>;'` 8HM
IFIDN < XA><Z>,<
.. xTX2==1
ANDI B,^-..TX1>
IFI 8DN <A><O>,<
X ..TX2==1
OR xCMI B,^-..TX1>
IFIDN <A><C>,< 8
..TX2==1
X EQVI B,^-..TX1>QVI B,^-..TX;'
@R(
..TXE
`F==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==<
..TXJU==<..TXFC==
0>>>
IFN <^D<
@B>>,<..TXWD==^D<
`B>
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">>>
I
"FB <EF>,<..TXP
" T==0>
IFNB <E
"@F>,<..TXPT==1>
"`IFE <..TXWD+..TXP
#T>,<
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
HTL
IFE
H ..TXP,<
..IC
H@NS
..CNS<ASC
H`IZ\>
..TXP==1
I>
..CNS<A
I >
..TXF==
I@0
..TXB=="^"
..TXB==;'h
JTX
IF
J N ..TXP,<
..
J@CNS<\>
EXP <F
J`LD(.TQCHT,TXT.FN)
K+[..GCNS]>>
..TXP==0>
;' 9
0S
..TX
0 EF==..TXEF!..XA
0@
..TXF==0
0`
..TXB=="^"
..TXB=="^;'
6`S6..TXQB(<A>)..TXQB(<;'
(
7 S@
IF
7@N ..TXC-"^",<..TX
7`C0(<A>)>
8IFE ..TXC-"^",<..TXF==1>-"^",<..;'
(
8@S`
IF
8`E ..TXC-"^",<..TX
9C0(<A>)>
I
9 FN ..TXF,<
.
9@.TXF==0
IFDEF
9` .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;'
)
<@Sr
..TX
<`F==3
IFG
=E ..TXC-"0",IFLE
= ..TXC-"9",<..TXF=
=@=2>
IFE ..TX
=`F-2,<..CNS(A)>
>
IFE ..TXF-3
> ,<..CNS<,>
..TXQ3(A)>
;'
)
>`T
..TX
?F==4
IFE
? ..TXC-"/",<..TXF
?@==5>
IFE .
?`.TXC-"[",<..TXF==
@5>
IFE ..T
@ XF-4,<..CNS<A,>>
@@
IFE ..TXF
@`-5,<..CNS<,,>
..TXQ5(A)>
;'
*
A T
..TX
A@F==4
IFE
A` ..TXC-"/",..TXF=
B=5
IFE ..T
B XC-"[",..TXF==5
B@
IFE ..TXF-5
B`,<..CNS<,>
C..TXQ5<A>>
C IFE ..TXF-4,<..
C@CNS<A,>
..TXF==5>
..;'
*
DT.
..TX
D F==6
IFE
D@ ..TXC-"/",..TXB=
D`="/"
IFE .
E.TXC-"[",..TXB=="
E ]"
IFE ..TXB
E@-"]",..CNS<[>
E` IFE ..TXB,..TXF==5 ..TXB,..T;'
+
F T<
..TX
F@F==0
IFE
F`..TXC-"]",..CNS<]
G>
..CNS<)>
G
..GCNS
G@
..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q ;EpQ ;E+PQ ;F 0Q ;F\:Q @
0P
@P
PP
`P d =Ki
.ACV2 (A)
.ACV2 (d@ =XKs
A=.FPA =xC+..NAC
IFB < >B>,<..NAC=..NAC+ >81>
IFNB <B>,<..NAC=..NAC+B>.d` >xL
IFG A- ?.NPAC,<PRINTX ?TO ?8O MANY ACS USED>
IFLE A-4,<
@ ?x $CALL .SAVEA>
IFG A-4,<
$CALL .SAVE8>
| @
XLIST
` .ORG 0
LIST
.ORG 0
LIST
=Z e8N+$CALL I%INTA$CALL I%IN9
xHq
..CSN==
..CSC==0
I B,<
IFE...C ,<
OPST
..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 lQP lXP lzP
l)XP l,UP l9VP l;0P l;ZP lH:P lI3P lI;P lJ9P lj6P lkP lkP lkP lkXP lzQP mP mTP mQP mTP muP m9<P mkrP mktP mm6P mm<P
myTPn n-P n=tP nH2P nKuP nNP n\9P n\yP S@P ,<H ]XMw
..PST== ]xC-FWMASK
.IF0 ^..PST,<
SOS B ^8>,<
$CALL .SO ^XS
LSTOF.
J ^xUMP [POINTR(B,C)]
LSTON.>C}
NW
.OPCD==
p`.OPCD+1
WO.A==.OPCD
G),<
| @
XLIST
( .....X=.
.ORG
.ORG 0
REPEATh .....X,<EXP 0>
PURGE .....X
.ORG
LIST
.$^p $j6p $lWP %I7p %KqP %h6p %h:P %i:P &:p &
p &=p LzP MX<P N
WP N<P P `P &2 XHc
..IFT== xA
IFE ..IFT,
<
B
..IFT==0
8>
IFN ..IFT,<
C>N ..IFT,<&t<H ZXM_
..PST== ZxC-FWMASK
.IF0 [..PST,<
AOS B [8>,<
$CALL .AO [XS
LSTOF.
J [xUMP [POINTR(B,C)]
LSTON.>C&tj7Q:?'<P'<P'<P'<P'<P'<P'<P'<P'<P'<P*IA*I*|A*|6MiTQ@7;rpP7H:pB7kp 7N8p ;`P ;-J7P#~>)qp >5H3p >DLYp ?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
,@^
IFG A-a@MX.PID,<MX.PID==A>
C
G A-O%=H 28K
.STKV2 (A)
.STKV2 O%=I 2xK!
IFB <B 3>,<..STKN==..STKN 38+1>
IFNB <B>,< 3X..STKN==..STKN+B 3x>
..STKQ==..STK 4N+1
.STKV3 (A,\..STKQ)V3 (A,O%=I 4XK/
IFDEF 4x A,<.IF A,SYMBO 5L,<PRINTX STKVAR 58A ALREADY DEFINE 5XD>>
DEFINE A<- 5x^OB(P)>
$A==<Z A>>
$A==<RJP RJP RJ P RJ P RJJP RJP RJ
P RJ4`P RJ5 P RLH:P RLkQP RMD)P RMDkP RMX6P RMX<P RMXSP RMYP RMYP RMY6P RM\P RM\ZP RN
tP RNJ6P RNd
P RNe(P RNe)P RNeHP 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 8XKE
.TRV2 (A)
.TRV2 (Sd@ 9KO
.TRV3 ( 98A,\..NV)
IFB 9X<B>,<..NV=..NV+1 9x>
IFNB <B>,<..NV=..NV+B>,<..Sd` :8K]
IFDEF :X A,<.IF A,SYMBO :xL,<PRINTX TRVAR ;A ALREADY DEFINED ;8>>
DEFINE A<^O ;XB(.FP)>
$A==<Z A>>
$A==<S"P S"P S" P S" P S"JP S"P S"
P S"4`P S"5 P S%D)P S%DkP S&d
P S&e(P S&e)P S&eHP SFH2P SFIVP SFJQP SFJVP SFJYP _%~
w@WX
$CALL
w`I%WTO
LSTOF.
x
JRST g
x
$WTRST
IF
x@NB <A>,<$WTMTY (
x`<A>)>
IFNB <
yB>,<$WTTYP (<B>)
y >
IFNB <C>,<$
y@WTTXT (<C>)>
y`IFNB <D>,<$WTOBJ
z (<D>)>
IFNB
z <E>,<$WTACK (<E
z@>)>
IRP F,<
z`F>
$WTBLD
{
g:!
LSTON. g:!
LSTON. kPP >}{woP