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,-^D 9 LSH A,-^DC2f}
K@Tn
.EAWTO(
K`MTY,0)
.EAWTO(T
L YP,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 x CHvN8P 'CJ9ip CJ9jp CJ9l}p E2"@ qXO
IFE qxB,<..TA==0>
rIFN B,<EXP ..TA r8
PURGE ..T A>
PURGE ..TE@tP 'E@v yQ ~ E@v:=Q | F; z:Q @ G@ _Ey
..C X(,A,B) ..CGD bXF
..C X(A,A,B) ..CGDP `XF
..C X(E,A,B) ..CGDp aF
..C X(G,A,B) ..CGDy aXF
..C X(GE,A,B) ..CGE@ _XE}
..C X(L,A,B) ..CGEI `F
..C X(LE,A,B) ..CGE` bF
..C X(N,A,B) ..CGH 9 [N
LST 8`OF.
X CRE
8 X GEN
X PRT
9 X CLS
X@AUT
X USW
X SPL 9@
X SIZ
X M 9`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> ;EN D IF2
SB)iG4,YP G4,,UQ G4,LQ G4,[qQ G4,\qQ @ G4,iVQ x G4,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)
> ;EN D IFNB
G>hMt `0
PRINTX `PGLXVER GLXCOM Edi`pt(55) by CTK on 2a5-Sep-83
PRINTXa0 GLXCOM Actu al Edit(A)
G>lYP G>vC@ x@W LALL
PAGE
; (A Continued o
8n next page)
SAL
XL; (A Continued
xfrom previous pag e) previous pagG? T H@ ASCIZ .COP YRIGHT CIZ .COPGHt;rP GHtkP GHv P GHv)9P GHv:=P I!k7P I!k<P I m P 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\],[X WD B,A]>
,[XKH(Q P 4KJ
,bP B KJ)bP b KJ=P +KJ{P KJIBP !KJ =bP (KJ IP &KJ Z"P 0KJ 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 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 KJt1 P KJt9"P KJt:"P #KJtKBP 3KJtlP 2KJtmP -KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv BP KJv
"P 2KJv
bP .KJv bP KJv)"P KJv9P KJv;P 1KJv;BP KJv<P KJv=bP KJv[P KJv["P KK-P KK
YBP 6`[>
IF1,<IF 7 DEF ERA$,PRINTX 7 ?Duplicate error 7@code A>
ERA$= 7`=ER%%%
ER%%%==E R%%%+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,<P rotection 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,<T able 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,<Valuee t
ERR MDD,<M 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/tim e>
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,<Switc h does not begin with slash>
ERR @ NOM,<Unrecognize `d switch or keywo rd>
ERR NUL,<Nu ll switch or keyw @ord given>
ERR `INW,<Invalid guid e word>
ERR NC, <Not confirmed>
@ ERR ICN,<Invalid ` character in num ber>
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 tok en>
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 ABS,<Field too l ong for internal @buffer>
ERR TMT `,<Command too lon g 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 U 0 DM,<Unrecognized 0 month in date/tim 0@e>
ERR UDN,<Unr 0`ecognized name in 1 date/time>
ERR 1 IFA,<Illegal fil 1@e attribute>
ER 1`R FAI,<File attri 2 bute inconsistanc 2 y>
ERR CEI,<Can 2@'t enable/disable 2` interrupt system 3 >
ERR ENF,<Link 3 ed list entry not 3@ found>
ERR NSL 3`,<No such linked 4 list>
ERR NFP,< 4 No free pages>
4@ERR NPI,<No free 4`pages for IPCF re 5 ception>
ERR IF 5 B,<Indirect file 5@too big for inter 5`nal buffer>
ER 6 R NDN,<Null devic 6 e name given>
name given>
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` ~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 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 M&`KW WpC
IFNB <>X,<
PRINTX (FroX0m GLXVER)
> ;EN D IFNB
M&`Mt V0;
PRINTX VPGLXVER GLXFIL EdiVpt(111) by CTK on W19-Oct-84
PRINTW0X GLXFIL Act ual Edit(A)
M&dYP $M2 L8Dc <<<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 MR4zQ MR6L`P MRV>9P MS.[yQ M^l uQ O2| @K IRP A,<
8 IF2,<IFDEF A,<.XIFN A,EXTERN,<INxTERN A>>
IFNDEF A,<EXTERN 8 A>
Q SUPPR ESPA>>FlYSUPPRO3DYP F>O3EKrPf>O3EZ7P O3FLQ 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)
> ;EN D IFNB
S:HMt bp
PRINTX cGLXVER GLXINI Edic0t(22) by CTK on 2cP5-Sep-83
PRINTXcp GLXINI Actu al Edit(A)
S:LYP S; k NxDw <<<A>B<PO S(<B>)>>&<B>>S; KW kpc
IFNB <>l,<
PRINTX (Frol0m GLXVER)
> ;EN D IFNB
S; Mt j0[
PRINTX jPGLXVER GLXINT Edijpt(105) by DPM on k11-Jan-82
PRINTk0X GLXINT Act ual 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 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 SBKW \pk
IFNB <>],<
PRINTX (Fro]0m GLXVER)
> ;EN D IFNB
SBMt [0c
PRINTX [PGLXVER GLXIPC Edi[pt(66) by DPM on 2\6-Mar-84
PRINTX\0 GLXIPC Actu al Edit(A)
SB IP SB M"P SB YP SB lP SB 2P 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
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>
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 U$vKP U$vKWP U$v\yP U&j2p U&jWp U&kVp U&lxp U&m9p U&:=p U?0 +0 UK I@ + UVn @ 4@ UVn
KW RP
IFNB <>Rp,<
PRINTX (FroSm GLXVER)
> ;EN D IFNB
W
Mt Q
PRINTX Q0GLXVER GLXKBD EdiQPt(63) by on 9-NoQpv-84
PRINTX R GLXKBD Actual E dit(A)
W
$YP WNH1
@Pd
IFB <C
@p>,<
XWD [ASCIZ\
AB\],A>
IFNB <
A0C>,<
XWD [EXP
APCM%FW!C
ASCIZ \B\],A>
SCIZY"l uQ x Y&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
CD0 O
CDO
CDO
C0 DO
CDO
CDO 0@
CDO F0`%IOPN
CDO F%AOP1 N
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
C7 DO M%GMEM
CDO M7 %RMEM
CDO
CDO7@
CDO
CDO
CD7`O
CDO
CDO M%G8 PAG
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
A CDO
CDO
CDOA
CDO
CDO SA@%DATI
CDO S%SIXA`B
CDO S%CMND
B CDO S%TBLK
CDO B S%SCMP
CDO S%ERB@R
CDO S%INTR
B`CDO S%EXIT
CDO C S%TBAD
CDO S%TBC DL
CDO S%NUMI
C@
CDO K%RCOC C`
CDO K%WCOC
D CDO 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%OF PEN
CDO
CDO
F CDO
CDO
CDO
CDO
CDO
CDOF`
CDO
LSTON.
LSTON.Y:XKW i0O
IFNB <>iP,<
PRINTX (Froipm GLXVER)
> ;EN D IFNB
Y:XMt gpG
PRINTX hGLXVER GLXLNK Edih0t(11) by AWC on 2hP9-Jan-82
PRINTXhp GLXLNK Actu al 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)
> ;EN D IFNB
[Mt ]pw
PRINTX ^GLXVER GLXMAC Edi^0t(242) by DPM on ^P26-Mar-84
PRINT^pX GLXMAC Act ual Edit(A)
[ YP Q[ 3@ N8Ds <<<1_<A>> -1>B<B>>_<A>>[ 8@ M8Dk 1B<<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 '[v Q v [v :Q [v uQ [v xQ p [vlXp [lrp [ltp [lxp [l}p [hKW U0/
IFNB <>UP,<
PRINTX (FroUpm GLXVER)
> ;EN D IFNB
[hMt Sp'
PRINTX TGLXVER GLXMEM EdiT0t(30) by LWS on 2TP6-Oct-84
PRINTXTp GLXMEM Actu al 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@1 IF2,<IFDEF A,<A==A>> IFN DEF A,<A==B>]F@ _6 TEMFDB##_
QkRp _
Ql}p _
Qm p _
Qm7p _
T= Ph]N
X .OT : RDR,Reader
X .O
,`TNCU,Network-Cont P(roller
X .OTLPT T@,Printer
X .OTB T`AT,Batch-Stream
U X .OTCDP,Card-Pu U nch
X .OTPTP,Pa U@pertape
X .OTPL U`T,Plotter
X .OT V JOB,Job
X .OTTR V M,Terminal
X .O V@TOPR,Operator
X V` .OTIBM,<IBM Remo W te>
X .OTMNT,<D W evice>
X .OTFTS W@,<File Transfer>
X .OTBIN,<Card X Reader Interprete X r>
X .OTRET,<Fi X@le Retrieval>
X X` .OTNOT,<Retrieva Y l Notification>
Y X .OTDBM,<DBMS S Y@ystem>
X .OTFAL Y`,<File Access Lis tener>
ess Lis_SKW pP
IFNB <>pp,<
PRINTX (Froqm GLXVER)
> ;EN D IFNB
_SMt o
PRINTX o0GLXVER GLXOTS EdioPt(7) by DEK on 6-opApr-81
PRINTX p GLXOTS Actual Edit(A)
_S YP _S h6Q O3EJ1_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 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>
IFNB eX <D>,<POINT 7,[A exSCIZ \D\]>
I fFB <D>,<0>
f f8 IFNB <E>,<POINT fX 7,[ASCIZ \E\]>
gIFB <E>,<0>
IFB <I g8>,<0>
IFNB < gXI>,<EXP I>
gx IFB <J>,<0>
h IFNB <J>,<EXP h8J>
IFB <H> hX,<0>
IFNB <H hx>,<EXP H>
iIFB <G>,<0>
i8IFNB <G>,<EXP G >
G>,<EXP Ga@KW n0w
IFNB <>nP,<
PRINTX (Fronpm GLXVER)
> ;EN D IFNB
a@Mt lpo
PRINTX mGLXVER GLXPFH Edim0t(16) by TARL on mP17-Apr-81
PRINTmpX GLXPFH Act ual Edit(A)
aDYP a G D: LSH A,^D9 LSH A,^D9a+= 5 a;&
%@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. XCRE F
%%.GLX== %%.GLX
GLXVR@S==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/SEA@RCH/REQUIRE:I%INI`T|
DEFINE $DAT A (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
>
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 `SIZ
>
>>
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,$R ETIT,$RETIF
$RaPtP e aPtkP aPuTP Q aPv\rP e e,(SQ e,)6Q e,)RQ e,+Q e @ e,,UQ P @ e,-Q f e,<SQ P e-)WQ g e-i1P p e.k=p glp glp gltp gl}p g
,}Q g
-LyQ @ g
.=1Q gpKW ZU
IFNB <>Z0,<
PRINTX (FroZPm GLXVER)
> ;EN D IFNB
gpMt XPM
PRINTX XpGLXVER GLXSCN EdiYt(103) by LWS on Y03-Apr-84
PRINTXYP GLXSCN Actu al 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 ..T VAL,..TMSK
.TgtXrP @ g#=z @ yp O C.SWIT+PDB CPY##C.SWIT+PDBg$tkQ @ @ g$u P 'g$uh6Q g.N @ B 6@ 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.FIL a ,.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 / hD P F hH P hL P I hP P H i P i$tkQP 'i$tlUQ x i0,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,.R AETT,,,)
X(EX A(ECUPORT,EXEC,EXE, AH.RETT,,,)
>
AhTOPS10<
X(LA120 B,LA120,L12,.RETT, B(,,)
>
X(LA3 BH6,LA36,L36,.RETT, Bh,,)
X(VT05,V CT05,V05,.RETT,<37 C(,177,177,177>,,) CH
X(VT100,VT100, Ch100,SETTLC,<.CHES DC,"[","K">,<.CHES D(C,"=">,<.CHESC,.C DHHRAB>)
;**;[235 Dh]ADD 6 LINES AFTE ER VT100 ENTRY 2-J E(un-83/CTK
TOPS10 EH< X(VT101,VT101,1 Eh01,SETTLC,<.CHESC F,"[","K">,<.CHESC F(,"=">,<.CHESC,.CH FHRAB>)>
X(VT102 Fh,VT102,102,SETTLC G,<.CHESC,"[","K"> G(,<.CHESC,"=">,<.C GHHESC,.CHRAB>)
T GhOPS10< X(VT103,VT H103,103,SETTLC,<. H(CHESC,"[","K">,<. HHCHESC,"=">,<.CHES HhC,.CHRAB>)>
X( IVT125,VT125,125,S I(ETTLC,<.CHESC,"[" IH,"K">,<.CHESC,"=" Ih>,<.CHESC,.CHRAB> J)
TOPS10< X(VT1 J(80,VT180,180,SETT JHLC,<.CHESC,"[","K Jh">,<.CHESC,"=">,< K.CHESC,.CHRAB>)> K(
TOPS10< X(VT185 KH,VT185,185,SETTLC Kh,<.CHESC,"[","K"> L,<.CHESC,"=">,<.C L(HESC,.CHRAB>)>
LH X(VT50,VT50,V50, LhSETTLC,<.CHESC,"J M">,<.CHESC,"=">,< M(.CHESC,.CHRAB>)
X(VT52,VT52,V52 Mh,SETTLC,<.CHESC," NJ">,<.CHESC,"=">, N(<.CHESC,.CHRAB>) NH
TOPS10< X(VT61, NhVT61,V61,SETTLC,< O.CHESC,"J">,<.CHE O(SC,"=">,<.CHESC,. OHCHRAB>)>
LSTON .
>)>
LSTONiK,P A iK4 @ 68KA
..TRR== 6X10
RADIX 8
6x..NV==1
IRP 7A,<
.TRV1 ( 78A)>
$CALL .TR 7XSET
..NV-1,, 7x..NV-1
RADIX .. 8TRR
PURGE ..T RR,..NVURGE ..Tib XG}
..TX(C ,A,<B>)..TX(Cib H
..TX(C A,A,<B>).TX(Cib P H
..TX(C E,A,<B>).TX(Cib ` XH
..TX(C N,A,<B>).TX(Cibp yXGM
..TX(N ,A,<B>)..TX(Nibt {GY
..TX(N A,A,<B>).TX(NibtP zGQ
..TX(N E,A,<B>).TX(Nibu` zXGU
..TX(N N,A,<B>).TX(Nibx {XG]
..TX(O ,A,<B>)..TX(Oib| }Gi
..TX(O A,A,<B>).TX(Oib|P |Ga
..TX(O E,A,<B>).TX(Oib}` |XGe
..TX(O N,A,<B>).TX(Oic KW fp;
IFNB <>g,<
PRINTX (Frog0m GLXVER)
> ;EN D IFNB
ic Mt e03
PRINTX ePGLXVER GLXTXT Ediept(54) by CTK on 2f5-Sep-83
PRINTXf0 GLXTXT Actu al Edit(A)
ic!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 ic$YP icP }XGm
..TX(Z ,A,<B>)..TX(ZicT Gy
..TX(Z A,A,<B>).TX(ZicTP ~Gq
..TX(Z E,A,<B>).TX(ZicU` ~XGu
..TX(Z N,A,<B>).TX(ZmK c@ ( 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@7 IFB <C>,<xA==:B> IFNB <C >,<A=:B>B <CqB p + qN5P + up _8N
IFNB < _XB>,<..STR1 (..TQZ _x,,<B>,A,..STR4) `>
IFB <B>,<SE TZM A><B>,<SEuh P ;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>
.$BU ILD><C>
.$BU 0
t W$
.WTOX.(.OM
t ACK,<A>,<B>,<C
t@>,<D>,<$WTFLG(WT .SJI),E>)LG(WT J7 uH_. DEFINE .$R uhTN <A>
.%RTN ==1A>
.%RTN fI9 pH_ DEFINE .$L phST <A+1>
.%L ST==11>
.%L
=Z cxN'
IFG dA-INT.LV,<PRINTX d8?Level A interru dXpts not supported dx>
.BGINT.(\A ) .BGINT.(\A X5 rh_ DEFINE .$B sREA <A>
.%BR EA==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==..BSI Z+1>
==..BSI }[0
#Pb#
.$RESET
#p
$TYPE (.CMCMA)
$
$NEXT (A)
I
$0RP B,<B>
.$BU ILD,<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>
.$BU ILD><C>
.$BU I
,0bk
.$RESET
,P
$TYPE (.CMTAD)
,p
$PDATA (CM%IDA
-)
$NEXT (A)
-0IRP B,<B>
.$B UILD,<B>
.$B ,,U exN1
$RET f ;WILL INVOKE R IGHT ROUTINE
,h: mH^z
IFDIF < mhA> <>,<
DEFINE n.$DEFM <POINT 7,[ n(ASCIZ\A\]>
. nH%DEFM==1>
IFIDN nh <A> <>,<
IF1 < o
PRINTX %Null ar o(gument in $DEFAUL T macro>>DEFAUL .`
(PbK
.$RESET
(p
$TYPE (.CMDEV)
)
$NEXT (A)
I
)0RP B,<B>
.$BU ILD,<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>
.$BU ILD,<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
LST ON.
LST +y r_ DEFINE .$E r(RTN <A>
.%ER TN==1>
.%ER , sH_ DEFINE .$E shRTN <1B0+A+1>
.%ERTN==1>
- t(_( DEFINE .$E tHRTN <[MOVEI S2,[A thSCIZ\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>
.$BU ILD><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>
.$BU ILD><C>
.$BU dy jh^X DEFINE .$F kLGS <A>
.%FL GS==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>
.$BU ILD><C>
.$BU $
0pc
.$RESET
1
$TYPE (.CMTAD)
10
$PDATA (<CM%ID
1PA!CM%ITM!CM%FUT>)
1p
$NEXT (A)
I
2RP B,<B>
.$BU ILD,<B>
.$BU $ v`O9
INTER wN A
$DATA(A ,<B>)
ATA(A j O2 1 ; 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>
.$BU ILD><C>
.$BU &u
$pb-
.$RESET
%
$NEXT (A)
$
%0TYPE (.CMINI)
I
%PRP B,<B>
.$BU ILD,<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
w WTR,,,,<A>,<$WTF LG(WT.KIL),B>) 2|p
v W2 .WTOX.(.OM
vLOG,<A>,<B>,<C >,,<D>)B>,<C :/
DEFINE .$N qHXT <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>
.$B UILD><C>
.$B :} r
0a
.$RESET
P
$TYPE (.CMNOI)
p
$PDATA (<POINT
7,[ASCIZ\B\]>)
0
$NEXT (A)
IR
PP C,<C>
.$BUI LD,<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>
.$BU ILD><C>
.$BU B$ kH^^ DEFINE .$D khATA <A>
.%DA TA==1>
.%DA B$YP oh_ DEFINE .$D pEFM <POINT 7,<A> >
.%DEFM==1 CYT v(_4 DEFINE .$D vHEFR <A>
.%DE FR==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>
.$BU ILD><C>
.$BU J.I u@O0
$CALL u` .RETE
LSTO v F.
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 %%.M OD]
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>
.$B UILD,<B>
.$B R}97
=cs
.$RESET
=0
$TYPE (.CMTOK)
=P
$PDATA (<POINT
=p 7,[ASCIZ\B\]>)
>
$NEXT (A)
IR
>0P C,<C>
.$BUI LD,<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)
L STON.
ied)
L SN j^R DEFINE .$T j(YP <A>
.%TYP E==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>
.$BU ILD,<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
h VR
IFB <
h A>,<.WFACD==0
h@ IFN <0-2>,<.$WAC
h`D==0>>
IFNB <
i A>,<.WFACD==-1
i IFN <0-2>,<.$WA
i@CD==.$WACD!<A>>
i`
IFE <0-2>,<DE
j FINE .$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
O FMTY>,<PRINTX ?No
O message type in
O@$WTBLD>
DEFINE .
O`EAWTO(SUFFIX,ARGC
P OD),<
IFN .WF'SU
P FFIX',<
IFE <AR
P@GCOD-0>,<<WO.'SUF
P`FIX'>B8+ .$W'SUFF
Q IX'>
IFE <ARGCO
Q D-1>,<<WO.'SUFFIX
q '>B8+ [EXP .$W'SU
q FFIX']>
IFE <AR
q@GCOD-2>,<.$W'SUFF
q`IX'>
>
>
ALLW
r TO
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.
b FLG>B8+[ITEXT (< A>)]>>
>
< _%(W
e V<
IFB <
e@A>,<.WFJBN==0
e` IFN <0-2>,<.$WJB
f N==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
o FL==.$WMFL!<A>>
o
IFE <1-2>,<DE
o@FINE .$WMFL,<<WO.
o`MFL>B8+[ITEXT (< A>)]>>
>
< _%]
R U"
IFB <
R A>,<.WFMTY==0
R@ IFN <0-2>,<.$WMT
R`Y==0>>
IFNB <
S A>,<.WFMTY==-1
S IFN <0-2>,<.$WM
S@TY==.$WMTY!<A>>
S`
IFE <0-2>,<DE
T FINE .$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
d OD==.$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 <
k A>,<.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.
m OCD>B8+[ITEXT (< A>)]>>
>
< _%z@
u W, .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
Y XT==.$WTXT!<A>>
Y
IFE <2-2>,<DE
Y@FINE .$WTXT,<<WO.
Y`TXT>B8+[ITEXT (< A>)]>>
>
< _&N8
T`U8
IFB <
U A>,<.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.
W TYP>B8+[ITEXT (< A>)]>>
>
<
t{ P
u[rQ ]>t2
u}P
,M P Q .
P .J P .b P / P B&@P cG P )0 _F 0lxp Z6 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> $YV wh> POINT{7,[A SCIZ\0\]NT 7,[A $YY J 0I@ @& .- D 0jWp 5Iy : 0+WP f= @ 0+1P w
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
DEF 0INE .$DEFR <0>
.%DEFR==0<0>
K@ _H 0:=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)>
PUR GE ..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 ..CX 1,..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>,<
POI NTR (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
6 XEF!..TXEG
6 IFN ..TXEF,<..TE RR<A>>
,<..TE ;&(
Q! ..TXA(.TQC H0) ..TXA(.TQC ;&)
Q* ..TXER(IQU ) ..TXER(IQU ;&)
PQ% ..TXER(IQU ) ..TXER(IQU ;&0
PQ ..TXA(.TQC HA) ..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>-^O777 777B17,<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]>
PUR GE ..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,^-..TX 1>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
PNT R(E,F)>>
T ;'h
H TL
IFE
H ..TXP,<
..IC
H@NS
..CNS<ASC
H`IZ\>
..TXP==1
I >
..CNS<A
I >
..TXF==
I@0
..TXB== "^"
..TXB== ;'h
J TX
IF
J N ..TXP,<
..
J@CNS<\>
EXP <F
J`LD(.TQCHT,TXT.FN)
K +[..GCNS]>>
..TXP==0>
;' 9
0 S
..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>)>
8 IFE ..TXC-"^",<.. TXF==1>-"^",<.. ;'
(
8@S`
IF
8`E ..TXC-"^",<..TX
9 C0(<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>
.. ;'
*
D T.
..TX
D F==6
IFE
D@ ..TXC-"/",..TXB=
D`="/"
IFE .
E .TXC-"[",..TXB=="
E ]"
IFE ..TXB
E@-"]",..CNS<[>
E` IFE ..TXB,..T XF==5 ..TXB,..T ;'
+
F T<
..TX
F@F==0
IFE
F`..TXC-"]",..CNS<]
G >
..CNS<)>
G
..GCNS
G@
..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 =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%IN TA $CALL I%IN 9
xHq
..CSN==
..CSC==0
I B,<
IFE...C ,<
OPST
..CAS1 ( B)>
..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 lQP lXP lzP
l)XP l,UP l9VP l;0P l;ZP lH:P lI3P lI;P lJ9P lj6P lkP lkP lkP lkXP lzQP m P mTP mQP mTP muP m9<P mkrP mktP mm6P mm<P
myTP n 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 }
N W
.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 ;rp P 7 H:p B 7 kp 7 N8p ;`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 ?&
0 P 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 S tQ
S+qQ
S:<Q S=P
S=WQ SJ6Q S\rQ Si9Q Sm P 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 <
y B>,<$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. kP P >}{woP