Trailing-Edge
-
PDP-10 Archives
-
bb-bt99p-bb
-
glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,UZ@P C4@ PYI
..NAC==p0
IRP A,<
.ACV1 (A)>
.ACV3 (\..NAC)C'
@PT..AS(A,B,ADD,SUB)(A,BC,
"RLSH A,-^D9LSH A,-^DC2f}
=Xc
.EAWTO(
=xMTY,0)
.EAWTO(T
>YP,2)
.EAWTO(TX
>8T,2)
.EAWTO(OBJ
>X,0)
.EAWTO(ACK,
>x0)
.EAWTO(FLG,1
?)
.EAWTO(NOD,0)
?8
.EAWTO(JBN,0)
?X
.EAWTO(ACD,0)
?x .EAWTO(OCD,0)
.EAWTO(MFL,1)
C:'
eV)
TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
..NA==0@0
IRP B,<
@P .BCAL2 B>
@pPUSHJ P,A
ADAJSP P,-..NA
P,-..NA
E2"@ [0]a
IFE [PB,<..TA==0>
[pIFN B,<EXP ..TA\
PURGE ..TA>
PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@
9PSM
..CX(,A,B) ..CGD
=Si
..CX(A,A,B) ..CGDP
;SY
..CX(E,A,B) ..CGDp
;PS]
..CX(G,A,B) ..CGDy
<Sa
..CX(GE,A,B) ..CGE@
:SQ
..CX(L,A,B) ..CGEI
:PSU
..CX(LE,A,B) ..CGE`
<PSe
Xk'..CX(N,A,B) ..CGH
XOLST
X CRE
18 X GEN
X PRT
X CLS
X A
X USW
xX SPL
X SIZ
X MOD
X CH
X ACT
X CRY
X DTY
X DTO
X DCC
X BSZ
X SZ
X HSZ
3X X RFM
X RFO
X RSZ
X B
X FFB
8X ACW
X RMS
X MCY
X CT
X NSB
LSTON.
G"\Y O0}
IF1, OP<%%EDT==AEDT>
Op
IF2, <IFN <%%EPDT-AEDT>,<
PRP0INTX ? Edit NumbePPr Doesn't Match GPpLXVER in GLXA
Q A$WHO(\AEDT)> Q0
A$NOTE
IQPNTERN AEDT
IQpNTERN LODLEV
;R PURGE %%EDT> ;END IF2
%S@t,:G(tSQ @G(tEHQ G(tHwQ G(tI8Q pG(vyP 8G(v<P'G(v=P G(vJ6Q xG*iVp G*kVp G*lzp G*l}p G*mp G4,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.{Q G4.{Q G4/
3Q @G:YlP
G>hKW ld
IFNB <>l ,<
PRINTX (Frol@m GLXVER)
> ;END IFNB
G>hMt j@\
PRINTX j`GLXVER GLXCOM Edikt(63) by DPM on 9k -Aug-88
PRINTX k@ GLXCOM Actual Edit(A)
G>lYP G>vC@ apNLALL
PAGE b; (A Continued o b0n next page)
SAL bPL; (A Continued bpfrom previous page) previous pagG?T YHMLASCIZ \
COPYRIGHT Z \
CGHt;rP GHtkP GHv P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`R*IIY{P`R!*|I 8P[K
IFNB <8pB>,<..STR0 (.DECR90,,<B>,A)>
IF90B <B>,<SOS A> <B>,<SOS A>I6=
oW
A==<-1
o0B<C>+1B<C-D>>
oP
IF1,<IFDEF %A
op,<PRINTX ?A ALRE
pADY DEFINED>>
D
p0EFINE %A (OP,AC,
pPY,MSK)<
IFDIF
pp<Y><>,<
OP (<AC
q>,B+'Y,MSK)>
I
q0FIDN <Y><>,<
OP
qP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7
CT..OP(A,B,DIV)..OP(A,BIOH1 _ v
IFB <D_@>,<
XWD [ASCIZ\_`C\],[XWD B,A]>`
IFNB <D>,<
` XWD [EXP CM%FW!D`@
ASCIZ\C\],[XWD B,A]>
,[XKuzQ @KuLzQ Ku|zQ KvHVQ KH(Q P :KJ
,bPBKJ)bPb KJ=P +KJ{P KJIBP !KJ=bP (KJIP &KJZ"P 0KJ|P 4KJX"P KJ9P &KJ$\BP *KJ$kP KJ$nBP KJ$|bP KJ%bP KJ%h"P KJ%i"P KJ%lP :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 KJLbP 5KJL;BP KJLLBP 8KJLMP KJLMBP 6KJL^P 7KJLh"P /KJLhBP 3KJLkBP KJLlP KJLlbP KJL{BP 7KJM+BP KJMHbP -KJMLBP KJMh"P 6KJMiP 5KJMmP KJMmbP KJN
P ,KJN
bP KJNI"P
KJNIBP KJN\bP KJfkP (KJlIP KJlLbP KJt1P KJt9"P KJt:"P #KJtKBP 3KJtlP 2KJtmP -KJu"P 8KJuX"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 KKx"P 4KK
YBP
IF1,<IFA$,PRINTX
ERA$=%
ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y
mXju
ERR EOF
mx,<End of file>
nERR IFP,<Illegal
n8file position>
nXERR FDE,<File dat
nxa error>
ERR FN
oD,<File is not on
o8 disk>
ERR NSD,
oX<No such device>
ox
ERR FCF,<File c
pheckpoint failed>
p8
ERR SLE,<A sys
pXtem limit was exc
pxeeded>
ERR IFS,
q<Illegal file spe
q8cification>
ERR
qX FNF,<File not fo
qxund>
ERR PRT,<P
rrotection violati
r8on>
ERR DNA,<De
rXvice not availabl
rxe>
ERR NCE,<No
s"current" entry i
s8n list>
ERR NMA
sX,<No IPCF message
sx is available>
tERR FDS,<Files ar
t8e on different st
tXructures>
ERR F
txAE,<File already
uexists>
ERR USE
u8,<Unexpected syst
uXem error>
ERR N
uxSP,<No such pid>
v
ERR BOL,<Beginn
v8ing of list reach
vXed>
ERR EOL,<En
vxd of list reached
w>
ERR RQF,<Rece
w8ivers quota full>
wX
ERR SQF,<Sende
wxrs quota full>
xERR NRE,<No remem
x8bered entry>
ER
xXR TBF,<Table is f
xxull>
ERR EIT,<T
yable entry alread
y8y exists>
ERR I
yXTE,<Invalid table
yx entry>
ERR QEF
z,<Quota exceeded
z8or disk full>
E
zXRR ARG,<Invalid a
zxrgument specified
{>
ERR IFN,<Inva
{8lid function spec
{Xified>
ERR IJN,
{x<Invalid job numb
|er specified>
E
|8RR RAD,<Invalid r
|Xadix specified>
|x ERR NUM,<Invalid
} numeric argument
}8>
ERR IDT,<Inva
}Xlid date field sp
}xecified>
ERR IT
~F,<Invalid time f
~8ield specified>
~X ERR DOR,<Date/ti
~xme out of range>
ERR DTM,<Value
8missing in date/t
Xime>
ERR MDD,<M
xissing>day in dat
ERR DFZdezero in d
ERR MMnemonic date
ER DFL,<Fieldetoom
ERR ILR,<Illormat
ERR NND,<Negativei
ERR NPF,<Noethernp
ERR ,<Relativerdat
ERR NSW,<Switcgin
ERROM,<Unrecognize
ERR NUL,<Nuor keyw
ERR ,<Invalid guid
ERR NC,onfirmed>
X ERR ICN,<Invalid
ERR NQS,<Iotedtstr
ERR AMB,<Ambiguo
ERR NMT,<Datch tok
en>
ERR CMA,<Co
8mma not given>
XERR NNC,<Node nam
xe6mayanottexceed
ERR INT,<Nodemterm
E
RR NSN,<Unknown n
8ode name>
ERR I
XPS,<Invalid path
xspecification>
ERR IUS,<Invalido
ERR DGS,<Devanotte
ERR DNE,<Unce>
ERR DIO,<Device ca
ERR BDvalid>date/t
ERRBS,<Fieldetooll
ERR TMTandetoollon
ERR BDS,<default s
ERR BTF,d table fo
ERR TME,<eumust>be
ERR TMN,<Noetime
ERR TMA,<Tialready
ERR DVviceutermina
ERR NArgument bloc
ERR TLUinalolocati
8ERR FIO,<File is
ERR FBle being mod
ERR WLK,locked dev
ERR CSD,<Cersede a
ERRDD,<Cannottdele
ERR SNb-fileudirec
X ERR ESL,<Search
ERR LVL,<SFDpleve
ERR CCWotacreate/w
ERR FCU,<Cae file>
ERR ENQ,<FileingeE
ERR SWS,<Softock o
ER DER,<Hardware d
ER DTE,<Hard data
ERR BKT,too large>
ERR IPP,<Non-e
ER TRN,<RIBeorotra
ERR ILC,<Illega da
ERR NFte/timeumust
ERR NPS,<Datee in
ERR UUnrecognizedm
ERR UDN,<Unrame in
ERRFA,<Illegal fil
ER FAI,<Fileiattri
ERR CEI,<Canisable
ERR ENF,<Linky not
ERR NSLuch linked
ERR NFP,<pages>
XERR NPI,<NoPfreee
ERR IFdirect filer
ER NDN,<Nullndevic
(X ERR PWA,<PID wen
ERR CGPt get a PID
ERR IND,<Invae>
xERR IAC,<Invalid
8ERR IDV,<Invalid
ER INA,<Invalid fi
ERR IEvalid file e
ERR IInvalidrgener
ERR IDR,<Invalidrd
ERR NHA,<Nailable>
ERR TOF,<Timeor FR
ERR TOP,<waiting f
ERR DNPndencies not present>
noKKBP
KKI"P KKiBP 'KKBP
KK|bP *KK$)BP KK%M"P $KK%X"P "KK%Y"P !KK%[BP "KK%]P KK%yBP 9KK%|P 9KK&+BP ,KK,K"P .KK,KBP /KK-*"P KK.9"P KK=JbP %KLtkQ xKLv:=Q xKLv=P'KO&:=p KZ` q_
IFIDN <q(BC><>,<EXP <A>qH>
IFDIF <BC><qh>,<
IFE <A+1>r,<<POINT 7,C>>
r( IFN <A+1>,<
rH IFIDN <C><>,<rhEXP <A,B>>
s IFDIF <C><>,<EXs(P <A,B,C>>
>>A,B,C>>
>KbN@ `Kc _0M}IRP A,<
_P IF2,<IFNDEF A,<EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP Mv
P MuI7Q xMvN8P'Mn:=p Mv:=P MF:=p M$pQ"P M$tzP M$t{P M$tP'M$t:P M$t+P
M$t,}P M$t:P M$t;P M$t<RP M$t<\P M$t=P M$u
}P M$u6Q @M$uI7Q xM$uX|P
M$u[rP M$ulqP
ZP M$v)VP M$v)WP M$v+9P
M$v,}P
M$v:=P M$v<P M$v\{P M&`KW n@x
IFNB <>n`,<
PRINTX (Froom GLXVER)
> ;END IFNB
M&`Mt mp
PRINTX m GLXVER GLXFIL Edim@t(120) by LWS on m`1-Aug-88
PRINTXn GLXFIL Actual Edit(A)
M&dYP (M2
&pR7<<<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>9P MS.[yQ MVpKW
IFNB <>@,<
PRINTX (Fro`m GLXVER)
> ;END IFNB
MVpMt ~`~
PRINTX GLXVER GLXFUN Edi t(2) by BAH on 14@-Nov-86
PRINTX ` GLXFUN Actual Edit(A)
MVtYP M^luQ O2| `NIRP A,<
`0 IF2,<IFDEF A,<. `PIFN A,EXTERN,<IN `pTERN A>>
aIFNDEF A,<EXTERN a0 A>
Q SUPPRESPA>>FlYSUPPRO3DYPFAO3EKrPfAO3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
Sp Sv8;Q Sv>@p SNn
BPT..OP(A,B,IDIV).OP(A,BSNp @S7-N
APT..OP(A,B,IMUL).OP(A,BS: 5P[3
IFNB <5pB>,<..STR0 (.INCR60,,<B>,A)>
IF60B <B>,<AOS A> <B>,<AOS A>S:HKW `B
IFNB <>,<
PRINTX (Fro m GLXVER)
> ;END IFNB
S:HMt :
PRINTX @GLXVER GLXINI Edi`t(23) by on 27-Jun-84
PRINTX GLXINI Actual Edit(A)
S:LYP S;k
)0RK<<<A>B<POS(<B>)>>&<B>>S; KW q
IFNB <>q@,<
PRINTX (Froq`m GLXVER)
> ;END IFNB
S; Mt o`
PRINTX pGLXVER GLXINT Edip t(116) by LWS on p@12-May-88
PRINTp`X GLXINT Actual Edit(A)
S;!kP S;!k<P S;$YP 'S?
dPV%
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 { ^
IFNB <>{@,<
PRINTX (Fro{`m GLXVER)
> ;END IFNB
M&`KWSBMt y`V
PRINTX zGLXVER GLXIPC Ediz t(77) by LWS on 2z@4-Aug-87
PRINTXz` GLXIPC Actual Edit(A)
SBIP SBM"P SBYP SBlP SB2P SB
BP SB,BPSB,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/
LSTOF. tXCREF
..TEXT<At(>
EXP 0
LSTON.
0
Uv98Q |U$@
8kQ
XOLST
XJJNO,.JI,GJBJNO>
X-TNO,.JITNO,<
XUSR,.JIUNO,.GTPPN
X,CDN,.JIDNOH>
8XGPRG,.JIPNM,.GTP
XPCJN,.JICJBCJB>
XTBAT,.JIBCH,.G
XIJLT,.JTJLT
X,LOC,<-1,,GJBLOC>
8XJRTM,.JIRT,<-1,,
X<TLC,GJBTLC>,<-1,
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 }`r
IFNB <>~,<
PRINTX (Fro~ m GLXVER)
> ;END IFNB
[hMtW
Mt | j
PRINTX |@GLXVER GLXKBD Edi|`t(103) by LWS on }24-Aug-87
PRINT} X GLXKBD Actual Edit(A)
W
$YP !WNH1 av
IFB <Ca >,<
XWD [ASCIZ\a@B\],A>
IFNB <a`C>,<
XWD [EXP bCM%FW!C
ASCIZ\B\],A>
SCIZY"luQ xY&i1
xR
LST
OF. XCREF
CDO
8 OTSINI
CDO
X
CDO .ZP
xAGA
CDO .ZPAGN
CDO .ZCHNK
CD
8O .SAVE1
CDO .S
XAVE2
CDO .SAVE3
x
CDO .SAVE4
C
DO .SAVET
CDO .
8SV13
CDO .SV14
X
CDO .SV15
CDO
x .SV16
NT .RETT
NT .RETF
CDO
8 .RETE
CDO .AOS
X
CDO .SOS
x CDO .ZERO
NT
.POPJ
CDO .S
8TOP
CDO .SAVE
X8
CDO .STKST
x
CDO .TRSET
NT .POPJ1
C
8DO .UD2SC
CDO
X .SC2UD
CDO .
xCPUTY
CDO .DI
E
CDO
CDO
8
CDO
CDO C
X%RPRM
CDO C%INT
xR
CDO C%SEND
CDO C%RECV
CDO
8C%BRCV
CDO C%RE
XL
CDO C%CPID
xCDO C%KPID
CDO
C%SPID
CDO C%MA
8XP
CDO C%PIDJ
X CDO C%PIDH
CDO
x C%SIDX
CDO
C
DO
CDO
CDO
8
CDO F
X%IOPN
CDO F%AOP
xN
CDO F%OOPN
CDO F%IBYT
CDO
8F%OBYT
CDO F%IB
XUF
CDO F%OBUF
x CDO F%REL
CDO
F%DREL
CDO F%RR
8EL
CDO F%REW
XCDO F%POS
CDO F
x%CHKP
CDO F%INF
O
CDO F%FD
CD
8O F%REN
CDO F%D
XEL
CDO F%FCHN
x CDO
CDO
CDO
CDO
CDO
CDO
8
CDO
CDO
CD
XO FUNCT.
C
xDO
CD
O M%ACQP
CDO M%
8RELP
CDO M%IPSN
X
CDO M%NXPG
C
xDO M%IPRC
CDO M
%IPRM
CDO M%AQN
8P
CDO M%RLNP
XCDO M%CLNC
CDO
xM%FPGS
CDO M%GM
EM
CDO M%RMEM
8 CDO
CDO
CDO
X
CDO
CDO
CDO
x
CDO M%GPAG
C
DO M%RPAG
CDO
8 CDO
CDO
CDO
X
CDO
CDO
CDO
x
CDO
CDO
CDO T%T
8EXT
CDO T%TTY
X CDO
CDO
CDO
x
CDO
CDO
CDO
CDO
CDO
CD
8O
CDO
CDO
X
CDO L%
xCLST
CDO L%DLST
CDO L%CENT
C
8DO L%CBFR
CDO L
X%DENT
CDO L%NEX
xT
CDO L%FIRS
CDO L%LAST
CDO
8L%PREV
CDO L%PR
XEM
CDO L%CURR
x CDO L%RENT
CDO
L%SIZE
CDO L%A
8POS
CDO
CDO
X CDO
CDO
CDO
x
CDO
CDO
CDO
CDO
CDO
8 I%NOW
CDO I%EX
XIT
CDO I%ION
xCDO I%IOFF
CDO
I%SLP
CDO I%INT
81
CDO I%INT2
XCDO I%INT3
CDO
xI%TIMR
CDO
CD
O
CDO I%SOPR
8CDO I%WTO
CDO
X CDO I%HOST
CDO
x I%JINF
CDO I%C
JOB
CDO I%KJOB
8
CDO S%U2DT
X
CDO S%DT2U
CD
xO S%DATI
CDO S%
SIXB
CDO S%CMND
8
CDO S%TBLK
C
XDO S%SCMP
CDO S
x%ERR
CDO S%INTR
CDO S%EXIT
C
8DO S%TBAD
CDO S
X%TBDL
CDO S%NUM
xI
CDO K%RCO
C
CDO K%WCOC
8
CDO K%SUET
C
XDO K%STYP
CDO K
x%TXTI
CDO K%SOU
T
CDO K%BOUT
8CDO K%BIN
CDO K
X%BACK
CDO K%TPO
xS
CDO K%BUFF
CDO K%FLSH
CDO
8K%OPEN
CDO K%EC
XHO
CDO
CDO
xCDO
CDO
CDO
! CDO
CDO
CDO
LSTON.
Y:W
V
IFNB <>
@,<
PRINTX (Fro
`m GLXVER)
> ;END IFNB
Y:XMt `N
PRINTX GLXVER GLXLNK Edi t(11) by AWC on 2 @9-Jan-82
PRINTX ` GLXLNK Actual Edit(A)
Y:\YP Y>
@ /Z
IFNB </0C>,<..STR0 (..LDB/P,A,C,B)>
IFB/p <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG c0N%
IFNDEF cPLSTIN.,LSTIN.==0 cp
IFE LSTIN.,<
d IFIDN <XCREF><A d0>,<.XCREF>
dP XLIST>
LSTIN.==LSTIN.+1STINYO%{G eN/
IFG LST e0IN.,LSTIN.==LSTIN eP.-1
IFLE LSTIN ep.,<.CREF
LIST>
[KW i`R
IFNB <>j,<
PRINTX (Froj m GLXVER)
> ;END IFNB
[Mt h J
PRINTX h@GLXVER GLXMAC Edih`t(522) by DPM on i14-Oct-88
PRINTi X GLXMAC Actual Edit(A)
[YP )[3@
(pRG<<<1_<A>>-1>B<B>>_<A>>[8@
'pR?1B<<A>-1>-1B<B><<A>-1>[@ |8Oo
IFB <B |X>,<MAXSIZ==0
I |xRP A,<IFG <A-MA }XSIZ>,<MAXSIZ==A }8>>>
IFNB <B>,< }XB==0
IRP A,< }xIFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
8Q [v
QP [v
TP'[vQv[v:Q[vuQ [vxQp[vlXp [lrp [ltp [lxp [l}p [hKW s`"
IFNB <>t,<
PRINTX (Frot m GLXVER)
> ;END IFNB
[hMt r
PRINTX r@GLXVER GLXMEM Edir`t(33) by DPM on 1s9-Apr-88
PRINTXs GLXMEM Actual Edit(A)
[lYPuQ @[th:Q [u[yQ [ukvQ [v=3P'[v|WQ [&p ~8P
IFB <B ~X>,<MINSIZ==377777 ~x,,777777
IRP A,<IFG <MINSIZ-A 8>,<MINSIZ==A>>>
IFNB <B>,<B== x377777,,777777
IRP A,<IFG <B-
8A>,<B==A>>>
A>,<B==A>>>
[>!`
(0RC<A-<A/B>*B><A-<A/B[?7
)pS1
..MX1
*==B
IFDEF .P
*0SECT,<
.IFN .
*P.MX1,ABSOLUTE,<
*p MOVE A,[B]>
+ .IF ..MX1,ABSOL
+0UTE,<
..MX2==0
+P
IFE <..MX1>B5
+p3,<
..MX2==1
,
MOVEI A,..MX
,01>
IFE ..MX2,<
,P
IFE <..MX1>B
,p17,<
..MX2==1
-
MOVSI A,(..
-0MX1)>>
IFE ..M
-PX2,<
IFE <<..
-pMX1>B53-^O777777>
.,<
..MX2==1
.0 HRROI A,<..MX
.P1>>>
IFE ..MX2
.p,<
IFE <<..MX
/1>B17-^O777777B17
/0>,<
..MX2==1
/P
HRLOI A,(..M
/pX1-^O777777)>>
0 IFE ..MX2,<
00 MOVE A,[..MX1]
0P>
>>
IFNDEF
0p .PSECT,<
..MX2
1==0
IFE <..MX
101>B53,<
..MX2
1P==1
MOVEI A,
1p..MX1>
IFE ..M
2X2,<
IFE <..M
20X1>B17,<
..MX
2P2==1
MOVSI A
2p,(..MX1)>>
IFE
3 ..MX2,<
IFE
30<<..MX1>B53-^O777
3P777>,<
..MX2=
3p=1
HRROI A,<
4..MX1>>>
IFE .
40.MX2,<
IFE <<
4P..MX1>B17-^O77777
4p7B17>,<
..MX2
5==1
HRLOI A,
50(..MX1-^O777777)>
5P>
IFE ..MX2,<
5p
MOVE A,[..
6MX1]>
>
PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^=
rW#
A==C
r0
IF1,<IFDEF %
rPA,<PRINTX ?A ALR
rpEADY DEFINED>>
sDEFINE %A (OP,AC
s0,Y,MSK)<
IFDIF
sP <Y><>,<
OP (<A
spC>,B+'Y,MSK)>
tIFIDN <Y><>,<
O
t0P (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg
BT..OP(A,B,MUL)..OP(A,B[`v
2P ] ]pMqIF2,<IFDEF ^ A,<A==A>> IFNDEF A,<A==B>]F@ p#TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=
xmd
X .OTReader
X .OU,Network-Cont
X .OTLPTr
X .OTBtch-Stream
R` X .OTCDP,Card-Pu
X .OTPTP,Pa
X .OTPLter
X .OTTerminal
X OTJOB,Job
X .OR,Operator
X .OTIBM,<IBM Remo
X .OTMNT,<D
X .OTFTSTransfer>
X .OTBIN,<Cardrete
X .OTRET,<Fil>
X .OTNOT,<Retrieva
Z` X .OTDBM,<DBMS S
X .OTFALtream>
X .OTEVT,<Event>
[` X .OTFCH,<Microf
X .OTXER,
X .OTNQ-Stream>
,<NQC-Stream>
_SKW x`J
IFNB <>y,<
PRINTX (Froy m GLXVER)
> ;END IFNB
_SMt w B
PRINTX w@GLXVER GLXOTS Ediw`t(13) by DPM on 1x4-Apr-88
PRINTXx 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 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\yQal}P aI3
..XX=D(A,CM%FNC)>
i0.IFNBC<D>,<..XX=
j.IFNBC<E>,<..XX=
k EXP ..XX
k(CIFNB <C>,<EXP
khEIFB0<C>,<
lSIFNB,<POINT 7,[A
lHFI <D>,<0>
lh IFNBS<E>,<POINT
mH IFB <E>,<0>
mh>IFB><I
nIIFNBX<I>
n( IFB <J>,<0>
nHJIFNB <J>,<EXP
o,IFB <H>
o(>IFNBP<H>
oHIFB <G>,<0>
ohIFNB <G>,<EXP G>
G>,<EXP Ga@KW
`j
IFNB <>
PRINTXER(Fro
> ;END IFNB
a@Mt b
PRINTX @GLXVER GLXPFH Edi`t(16) by TARL on
17-Apr-81
PRINT
X GLXPFH Actual Edit(A)
aDYP a
!XRLSH A,^D9LSH A,^D9a+= 5a;&
XaE
IFB <
xB>,<..STR0(..PNT
,,<FWMASK>,A)>
8 IFNB <B>,<..ST
XR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm
&R3<POINT WID
&0(B),A,POS(B)>B),A,POS(B)>a?H6 +a?
#PR<^L<<A>&<-<A>>>><<A>&<aJ}Ks X@OU
SALL fX
LSTOF. XCRE fxF
%%.GLX== g%%.GLX
GLXVR g8S==GLXVRS
gXIFNB <A>,<%%.MOD gx==SIXBIT/A/>
hIFNB <B>,<%%.OTS h8==SIXBIT/B/>
hX
GLOB I%INIT
TOPS10 <
i SEARCH UUOSYM i8
%%UUOS==%%UUO iXS
>
T ixOPS20 <
SEA jRCH MONSYM
; j8%%MONS==%%MONS
>
IFB < jxB>,<
IFN G kLXPUR,<
.TEXT k8 |,REL:GLXLIB/SEA kXRCH/REQUIRE:I%INI kxT/SEGMENT:LOW|
l >
DEFINE $ l8DATA (NAM,SIZ<1>) lX,<
NAM: BLOC lxK SIZ
>
mDEFINE CDO (X),<G m8LOB X>
DEFINE mX NT(X),<CDO X>
mx LIBVEC
> n
IFNB <B>, n8<
IFDEF .MC nXRV.,<.VERSION <GL nxXVRS>>
CHKEDT o(B)
IFDIF o8<B><INI>,<
oXIFN GLXPURE,<.PSE oxCT .HIGH.>
IF pE GLXPURE,<
p8 TWOSEG 400000
pX RELOC 0
R pxELOC 400000
> q
DEFINE $ q8DATA(NAM,SIZ<1>), qX<
IFN GLXPUR qxE,<.PSECT DATA>
IFE GLXPURE,< r8RELOC>
IFNDE rXF B%D,<B%D::! rxB%DL==:0>
NAM s: BLOCK SIZ
s8B%DL==:B%DL+SIZ sX
IFN GLXPURE, sx<.ENDPS DATA>
t IFE GLXPURE,<RE t8LOC>
>
tX IFDIF <B><OTS>, tx<
DEFINE CDO u (X),<GLOB X>
u8 DEFINE NT(X),<CD uXO X>
LIBVEC ux
>
>
IFIDN <B> v8<INI>,<
DEFIN vXE $DATA (NAM,SIZ< vx1>),<
NAM: B wLOCK SIZ
>
>
>
L wXSTON.
GLO wxB <.POPJ, .RETT, x.RETF>
OPDEF $ x8RET [POPJ P,]
xXOPDEF $RETT [PJRS xxT .RETT]
OPDEF y $RETF [PJRST .RE y8TF]
OPDEF $RET yXIT [JUMPT .POPJ] yx
OPDEF $RETIF [ zJUMPF .POPJ]
. z8NODDT $RET,$RETT, zX$RETF,$RETIT,$RETIF
$RETIT,$RETaPtPaPtkP2aPuTPaPv\rPe,(SQ4e,)6Qxe,)RQue,+Q@e,,UQ@e,-Qe,<SQVe-)WQe-i1P=e.glp glp gltp gl}p g
,}Q g
-LyQ @g
.=1Q gpKW v 6
IFNB <>v@,<
PRINTX (Frov`m GLXVER)
> ;END IFNB
gpMt t`.
PRINTX uGLXVER GLXSCN Ediu t(135) by DPM on u@19-Apr-88
PRINTu`X GLXSCN Actual Edit(A)
gtYP .g"@ \P]u
IFN <<.\p.TA>&B>,<PRINTX] ?Initial field n]0ot zero in $SET>
]p..TVAL==<C>
^..TMSK==<B>
..TA==..TA!^0<FLD(..TVAL,..TMS^PK)>
PURGE ..TVAL,..TMSK
.TgtXrP gv
[P9g#=zt@p<C.SWIT+PDBCPY##C.SWIT+PDBg$tkQt@g$uP'g$uh6Q gg.N @u6@g.NhxP g@u|P g@vyP g@vItP g@vKP g@vKvP gBLL`
.SPID (S.IPCPQ,.SPQ
.SPI(SP.OPR,.IPCPO,
.SPID (SP.INF,.IFO)
.SPID (SP.MDA,A,MDA
TOPS10<
.SPI(SP.IPC,.IPCPS,
.SPID (T,.IPCPA,,AC
.SPID (SP.TLP,.IELL
.SPID (SP.TOTAPE AV
.SPID (SP.DODISK AV
.SPID (SP.FIFILE DA
.SPID (SP.PV,,CATAL
.SPIDP.ERL,.IPCPL,,
.SPID (SP.TGH,.IPCP
.SPID (P,.IPCNM,,DE
.SPID (SP.MAI,.I
.SPID (SP.GFR,.IPCPG,,GOPHER)
>
gR^h9
0Xe
..STKR=
P=10
RADIX 8
p ..STKN==0
IRP A,<
.STKV1 (0A)>
$CALL .STKPST
..STKN,,..SpTKN
RADIX ..STK
R
DEFINE ENDSV.
0<.ENSV1 <A>>
P
PURGE ..STKN,..STKR,..STKQ
TKgR~r eH^d
.TYPE=eh=-1
IFIDN <fB><HALT>,<.TYPE==f(0>
IFIDN <B><fHCONT>,<.TYPE==1> fh
IFIDN <B><DEBgUG>,<.TYPE==2>
IFL .TYPE,< gH
IF2,<PRINTX ? ghStopcode A is inh error; see S..Ah( in CREF>
S..A:hH:JRST 4,.
> hh
IFB <A>,<i
IF2,<PRINTXi( ? Stopcode with iHout a A; see S..ih in CREF>
S..:: jJRST 4,.
> j(
IFGE .TYPE,jH<
S..A::PUSjhHJ P,.DIE
CAkI .TYPE,[
<Sk(IXBIT /A/>&77777kH7000000
EXP %%kh.MOD
EXP C l
EXP [ASCIZ |l(D|]
]
>lH
PURGE .TYPE
URGE .gR~) 20[
IFNB <2PC>,<..STR0 (..DPB2p,A,C,B)>
IFB3 <C>,<MOVEM A,B>>,<MOVEM A,gV
AT ..AS(A,B,SUB,ADD)(A,Bgg
V {O_
IFNB < {8B>,<TOPS10<A==B {X>>
IFNB <C>,<T {xOPS20<A==C>>
PS20<A==C>>
ght-3P @ghuWP ghuSP ghuxSP @ghv5P ghv
2P hDP hHP hLP hPP i,YQ @iP i$tkQP'i$tlUQ xi0,YQ i0,1Q i0,^Q i0-kvQ @i?4( I(|JIFN FTUUOS,B ;DEFINE UNi?4H Ih|NIFN FTJSYS, INTERN AEDT iD ~h`
IFNB <A>,<.TQCHA==^(D<B>B17+ZZ>
IHFNB <D>,<DEFINEh ..TQMA<D>>
IFNB <C>,<.TQC=
(=^D<B>B17+ZZ>
ZZ==ZZ+1ZZ>
iG, th_r
LSTOF.
TQ(T,2,ASCIZ) u(
TQ(O,2,OCTAL)uH
TQ(D,2,DECIuhMAL)
TQ(F,2,vFILE)
TQ(7,2v(,CSEVEN)
TQ(vH6,2,CSIXBIT)
vh TQ(W,2,SIXBIT) w
TQ(5,2,SVNBITw()
TQ(P,2,USEwHR)
TQ(U,2,DIwhRECTORY)
TQ(xH,2,DAYTIME)
x( TQ(C,2,TIME)
TQ(E,2,ERROR) xh
TQ(I,1,INDIREyCT)
TQ(M,0,CRy(,..TXC0(\".CHCRT)yH)
TQ(J,0,LF,..yhTXC0(\".CHLFD))
TQ(L,0,FF,..TXCz(0(\".CHFFD))
TzHQ(K,0,VT,..TXC0(\zh".CHVTB))
TQ(A{,0,NOCRLF,..TXA(.{(TQCHA))
TQ(0,0{H,NULL,..TXA(.TQCH{h0))
TQ(3,0,STR|ING,..TXER(IQU)) |(
TQ(V,2,VERSION|H)
TQ(2,0,CAR|hET,..TXER(IQU))
TQ(Q,2,POINTER)}(
TQ(B,2,ROB)}H
TQ(1,2,OBJE}hCT)
TQ(N,2,N~ODE)
TQ(R,2,~(JIB)
LSTON.
)
LSTON.
m
LSTOF.
;X(33,TTY33,33,.
;X(3TTY35,35,.RETT,
TOPS20<
<EX(37,TTY37,37,.R
<X(EXPORT,EXEC,EXE,
>
=TOPS10<
=X(LA120,L12,.RETT,
>
=X(LA336,L36,.RETT,
>X(VK100,10,SETTLC,
?X(T05,VT05,V05,.RE
@X(VT100,00,SETTLC,
ATOPS10< X(VT101,V
BX(VT102,VT102,102,
TOPS10< X(VT103,SET
DX(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10< XVT185,185,
HX(VT220,VTETTLC,<.
IX(V40,VT240,240,SE
JX(VT320,VT320<.CHE
KX(VT3330,330,SETTL
L@0X(VT340,VT340,34
MX(VT50,VTETTLC,<.C
NX(VT52,V,SETTLC,<.
TOPS10< ,VT61,V61,S
LSTON.
>PA iK4@ pY%
..TRR==10
RADIX 8
0..NV==1
IRP PA,<
.TRV1 (pA)>
$CALL .TRSET
..NV-1,,0..NV-1
RADIX ..PTRR
PURGE ..TRR,..NVURGE ..Tib
ZUQ
..TX(C,A,<B>)..TX(Cib
[PU]
..TX(CA,A,<B>).TX(CibP
ZPUU
..TX(CE,A,<B>).TX(Cib`
[UY
..TX(CN,A,<B>).TX(Cibp
TU!
..TX(N,A,<B>)..TX(Nibt
UPU-
..TX(NA,A,<B>).TX(NibtP
TPU%
..TX(NE,A,<B>).TX(Nibu`
UU)
..TX(NN,A,<B>).TX(Nibx
VU1
..TX(O,A,<B>)..TX(Oib|
WPU=
..TX(OA,A,<B>).TX(Oib|P
VPU5
..TX(OE,A,<B>).TX(Oib}`
WU9
..TX(ON,A,<B>).TX(Oic KW `
IFNB <>,<
PRINTX (Fro m GLXVER)
> ;END IFNB
ic Mt
PRINTX @GLXVER GLXTXT Edi`t(55) by BAH on 14-Nov-86
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
XUA
..TX(Z,A,<B>)..TX(ZicT
YPUM
..TX(ZA,A,<B>).TX(ZicTP
XPUE
..TX(ZE,A,<B>).TX(ZicU`
YUI
..TX(ZN,A,<B>).TX(ZkR`KW ,
IFNB <> ,<
PRINTX (Fro@m GLXVER)
> ;END IFNB
kR`Mt @$
PRINTX `GLXVER GLXUTL Edit(2) by DPM on 4- Dec-85
PRINTX @ GLXUTL Actual Edit(A)
kRdYP mKc@ JN3BYTE (3)A f0WHO (9)AVER (6)AMIN (18)AEDTo&
#R<^L<-<<A>Z<^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
.TTC==.q"eJ P q*-` +
q+= +
q6~i4 C q?
ePV-
TXC A,<B>
TXC A,q@ ^PMwIFB <C>,< ^pA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up ;P[c
IFNB <;pB>,<..STR1 (..TQZ<,,<B>,A,..STR4)<0>
IFB <B>,<SETZM A><B>,<SEuhP ;z Z@uf
.XCREF Z`.$RESET, .$BUILD
.$RESET
$TYPE[ (.CMACT)
$HELP[@ (<>)
$NEXT (A[`)
IFIDN <B> <>,\< IRP C,<C>
\ .$BUILD>
IFDIF \@<B> <>,<
$HELP\` (B)
IRP C,<C>
.$BUILD>< 0
ff5
.WTOX.(.OM
f8ACK,<A>,<B>,<C
fX>,<D>,<$WTFLG(WT.SJI),E>)LG(WT J7 Xp.XCREF .%RxTN, .$RTN
DEFINE .$RTN <A>
.%RTN==1A>
D[
IFDIF<<,<.XCREF .%
DEFNE[.$HLPM<POINT
.%HLPM==-1>
fI9XCREF .%L
DEF.$LST <A+1>
.%LST==11>
=Z MP\u
IFG MpA-INT.LV,<PRINTX N?Level A interruN0pts not supportedNP>
Xo.BGINT.(\A)B .BGINT.(\A X5
DINE .$BREA <A>
.%BREA==1> - P0]
IFDEFPP ..BSIZ,<PRINTX ?PpMissing $EOB afteQr a $BUILD>
.Q0.BSIZ==0
.QP.BLOC==.
RQpEPEAT A,<
RBLD0.(\..BSIZ,0) R0
..BSIZ==..BSIZ+1>
==..BSI }[0 >@s|
.XCREF >`.$RESET, .$BUILD
.$RESET
$TYPE? (.CMCMA)
$NEXT?@ (A)
IRP B,<B>
.$BUILD,< I@ :sX
.XCREF : .$RESET, .$BUILD
.$RESET
$TYPE:` (.CMCFM)
IRP ;A,<A>
.$BUILD,<A>
.$BUILD $^ G@tN
.XCREF G`.$RESET, .$BUILD
.$RESET
$TYPEH (.CMTXT)
$HELPH@ (<>)
$NEXT (AH`)
IFIDN <B> <>,I< IRP C,<C>
I .$BUILD>
IFDIF I@<B> <>,<
$HELPI` (B)
IRP C,<C>
.$BUILD>< I J t\
.XCREF J@.$RESET, .$BUILD
.$RESET
$TYPEK (.CMTAD)
$PDATK A (CM%IDA)
$NEXK@T (A)
IRP B,<B>
.$BUILD,< ,,U OP\
$RET Op ;WILL INVOKE RIGHT ROUTINE
,h:
IFDIF<<,<.XCREF .%
DEFNE[.$DEFM<POINT
y .%DEFM==1>
IFIDN <A> <>,<
IXF1 <
PRINTXg%Nult in $DEFAULT macro>>DE .` Ft8
.XCREF F .$RESET, .$BUILD
.$RESET
$TYPEF` (.CMDEV)
$NEXTG (A)
IRP B,<B>
.$BUILD,< Lz: &@rH
.XCREF &`.$RESET, .$BUILD
.$RESET
$TYPE' (.CMNUX)
$PDAT'@A (B)
$HELP (<'`>)
$NEXT (A)
(IFIDN <C> <>,< I( RP D,<D>
.$(@BUILD>
IFDIF <C(`> <>,<
$HELP ()C)
IRP D,<D>
.$BUILD><D>
.XCREF ;`.$RESET, .$BUILD
.$RESET
$TYPE< (.CMDIR)
$NEXT<@ (A)
IRP B,<B>
.$BUILD,< | W0]W
IFNDEWPF ..BSIZ,<PRINTX Wp?$EOB without preXvious $BUILD>
X0 IFN <.-..BLOC>,<XPPRINTX ?Address cXphange between $BUYILD and $EOB>
Y0 LSTOF.
..YPT==0
REPEAT .Yp.BSIZ,<
BLDZ0.(\..T,1)
Z0 ..T==..T+1 >
ZP PURGE ..BSIZ,..ZpT,..BLOC
LSTON.
XoLST +yE.%E
DINE .$ERTN <A>
.%ERTN==1> ,
DEFINE .$ERTN <1B08+A+1>
.%ERTN==1>
.%ERTN - xp.XCREF .%ERTN, .$ERTN
D8EFINE .$ERTN <[MOXVEI S2,[ASCIZ\A\x]
$RETF]>
.%ERTN==1>
.%ERTN==1 IF2,<IFN < \XA>-.,<PRINTX ? I \xLLEGAL $FALL A>>EGAL $FALL A>> H6 a(^
$CALL .aHSTOP
LSTOF.
JahUMP [XWD 0,[ITEXTb (<A>)]
EXP b(%%.MOD]
LSTON. .MOD]
LSTON. L[ 7 sL
.XCREF 7@.$RESET, .$BUILD
.$RESET
$TYPE8 (.CMFLD)
$NEXT8 (A)
$HELP (<>8@)
IFIDN <B> <>,8`< IRP C,<C>
9 .$BUILD>
IFDIF 9 <B> <>,<
$HELP9@ (B)
IRP C,<C>
.$BUILD>< MI 4@s6
.XCREF 4`.$RESET, .$BUILD
.$RESET
$TYPE5 (.CMFIL)
$HELP5@ (<>)
$NEXT (A5`)
IFIDN <B> <>,6< IRP C,<C>
6 .$BUILD>
IFDIF 6@<B> <>,<
$HELP6` (B)
IRP C,<C>
.$BUILD>< dy
DINE .$FLGS <A>
.%FLGS==1> ex: C t,
.XCREF C@.$RESET, .$BUILD
.$RESET
$TYPED (.CMFLT)
$HELPD (<>)
$NEXT (AD@)
IFIDN <B> <>,D`< IRP C,<C>
E .$BUILD>
IFDIF E <B> <>,<
$HELPE@ (B)
IRP C,<C>
.$BUILD>< $ O`u
.XCREF P.$RESET, .$BUILD
.$RESET
$TYPEP@ (.CMTAD)
$PDATP`A (<CM%IDA!CM%ITMQ!CM%FUT>)
$NEXTQ (A)
IRP B,<B>
.$BUILD,< $ `8^TX
INTER`hN A
$DATA(A,<B>)
ATA(A}&]1| "
IFDIF<<,<.XCREF .%
DEFNE[.$HLPM<POINT
.%HLPM==1>
&5 /s
.XCREF / .$RESET, .$BUILD
.$RESET
$TYPE/` (.CMIFI)
$HELP0 (<>)
$NEXT (A0 )
IFIDN <B> <>,0@< IRP C,<C>
0` .$BUILD>
IFDIF 1<B> <>,<
$HELP1 (B)
IRP C,<C>
.$BUILD>< &u A`t
.XCREF B.$RESET, .$BUILD
.$RESET
$NEXTB@ (A)
$TYPE (.CB`MINI)
IRP B,<B>
.$BUILD,< ./ !`r
.XCREF ".$RESET, .$BUILD
.$RESET
$TYPE"@ (.CMKEY)
$PDAT"`A (B)
$NEXT (#A)
IRP C,<C>
.$BUILD,<C>
.XCREF .$RESET, .$BUILD
.$RESET
$TYPE ` (.CMKEY)
$PDAT!A (A)
$NEXT (0! )
IRP B,<B>
.$BUILD,<B>
/>Ky
hxfI.WTOX.(.OM
iWTR,,,,<A>,<$WTFLG(WT.KIL),B>) 2|p
hfC.WTOX.(.OM
h8LOG,<A>,<B>,<C>,,<D>)B>,<C :/
DEF.$NXT <A>
.%NXT==1A>
:|KV W@uP
.XCREF W`.$RESET, .$BUILD
.$RESET
$TYPEX (.CMNOD)
$HELPX@ (<>)
$NEXT (AX`)
IFIDN <B> <>,Y< IRP C,<C>
Y .$BUILD>
IFDIF Y@<B> <>,<
$HELPY` (B)
; $FLAGS (ZCM%PO)
IRP C,<C>
.$BUILD>< :}r )@rX
.XCREF )`.$RESET, .$BUILD
.$RESET
$TYPE* (.CMNOI)
$PDAT*@A (<POINT 7,[ASCI*`Z\B\]>)
$NEXT +(A)
IRP C,<C>
.$BUILD,<C ;-XR #@r0
.XCREF #`.$RESET, .$BUILD
.$RESET
$TYPE$ (.CMNUM)
$PDAT$@A (B)
$HELP (<$`>)
$NEXT (A)
%IFIDN <C> <>,< I% RP D,<D>
.$%@BUILD>
IFDIF <C%`> <>,<
$HELP (&C)
IRP D,<D>
.$BUILD><D>
.XCREF 2.$RESET, .$BUILD
.$RESET
$TYPE2@ (.CMOFI)
$NEXT2` (A)
$HELP (<>3)
IFIDN <B> <>,3 < IRP C,<C>
3@ .$BUILD>
IFDIF 3`<B> <>,<
$HELP4 (B)
IRP C,<C>
.$BUILD>< B$
DINE .$DATA <A>
.%DATA==1> B$YP
DINE<.$DEFM <POI
.%DEFM==1>
.% CYT Xp!.XCREF .%DxEFR, .$DEFR
DEFINE .$DEFR <A>
.%DEFR==1> G-} Q`u
.XCREF R.$RESET, .$BUILD
.$RESET
$TYPER@ (.CMQST)
$HELPR` (<>)
$NEXT (AS)
IFIDN <B> <>,S < IRP C,<C>
S@ .$BUILD>
IFDIF S`<B> <>,<
$HELPT (B)
IRP C,<C>
.$BUILD>< J.I _]}
$CALL_8 .RETE
LSTO_XF.
JUMP ERA$
LSTON.ERA$ Ni Ze
.NVR==00
.ACM==0
IRP A,<
p ..TSAC(.ACB,A)
IFN .ACB,<.A0CM==.ACM!1B<A>> P
IFE .ACB,< p
IFE .NVR,<
PUSHJ P,[0
>
..PPUSH(A,\<.NVR+1>p)>>
IFE . NVR,<
IFN .ACM 0,<
IFE <.A PCM-17B<T4>>,<.ACM p==0
$CALL .S!AVET>
IFE <!0.ACM-377B<.A16>>,!P<.ACM==0
$CA!pLL .SAVE8>
"IFE <.ACM-17B<P4>"0>,<.ACM==0
$"PCALL .SAVE4>
"p IFE <.ACM-7B<P3#>>,<.ACM==0
#0$CALL .SAVE3>
#P IFE <.ACM-3B<P#p2>>,<.ACM==0
$ $CALL .SAVE2>
$0 IFE <.ACM-1B<$PP1>>,<.ACM==0
$p $CALL .SAVE1>
% IFE <.ACM-1B%0<.A13>>,<.ACM==0
$CALL .SV13>%p
IFE <.ACM-&1B<.A14>>,<.ACM==&00
$CALL .SV1&P4>
IFE <.AC&pM-1B<.A15>>,<.ACM'==0
$CALL .S'0V15>
IFE <.'PACM-1B<.A16>>,<.A'pCM==0
$CALL (.SV16>
>>
(0
IFN .ACM,<
(P IFE .NVR,< (p
PUSHJ P,[
) >
.ACB=)0=0
REPEAT ^D)P16,<
IFN)p <.ACM&1B<.ACB>>,*<
..PUSH(\.AC*0B,\<.NVR+1>)>
*P.ACB==.ACB+1>>
IFN .NVR,<
+ PUSHJ P,@-.NVR(+0P)
TRNA
+P AOS -1-.NVR(P) +p
REPEAT .NV,R,<..POP(\.NVR)> ,0
ADJSP P,-1
POPJ P,]>
POPJ P,]>
N;CREF .%S
IFD <A><>,<DEFINE
.%SBCM==1
>
.%SBCM==1
N.@ Rp]'
IFNDESF ..BSIZ,<PRINTX S0?$SET without preSPvious $BUILD>
Sp IFNB <B>,<..STRT0 (..SET,<C>,B,T0A)>
IFB <BTP>,<..STR0 (..SET,Tp<C>,FWMASK,A)>
,FWMASK,A)>
.XCREF b`a, b
a==.
cXWD b-1,b-1
Dc EFINE $ETAB <.XCRc@EF a, b
b==.-a>b
b== O%| m^x
IF1,<PRIm(NTX % Use STOPCD mHmacro for stopcodmhe A instead of $nSTOP>
S..A::! $n(CALL .STOP
LSTnHOF.
JUMP [XWD nh'A',[ITEXT (<B>o)]
EXP %%.MOD]
LSTON. MOD O,(v @t
.XCREF @ .$RESET, .$BUILD
.$RESET
$NEXT@` (A)
$TYPE (.CAMINI)
$SBCM (BA )
IRP C,<C>
.$BUILD,<C>
O= - rt
.XCREF -@.$RESET, .$BUILD
.$RESET
$TYPE. (.CMSWI)
$PDAT. A (A)
$NEXT (0.@)
IRP B,<B>
.$BUILD,<B>
O= +@rf
.XCREF +`.$RESET, .$BUILD
.$RESET
$TYPE, (.CMSWI)
$PDAT,@A (B)
$NEXT (,`A)
IRP C,<C>
.$BUILD,<C>
@ M`tz
.XCREF N.$RESET, .$BUILD
.$RESET
$TYPEN@ (.CMTAD)
$PDATN`A (<CM%IDA!CM%ITMO>)
$NEXT (A)
O IRP B,<B>
.$BUILD,<B>
.$ R/oH
$CALL Toh%TEXT
LSTOF. XCpREF
JUMP [XWD 2p(,0
EVL (A)
pH ITEXT(<B>)]
LSTON.B>)]
.XCREF L .$RESET, .$BUILD
.$RESET
$TYPEL` (.CMTAD)
$PDATMA (CM%ITM)
$NEXM T (A)
IRP B,<B>
.$BUILD,< R}97 ] uv
.XCREF ]@.$RESET, .$BUILD
.$RESET
$TYPE^ (.CMTOK)
$PDAT^ A (<POINT 7,[ASCI^@Z\B\]>)
$NEXT ^`(A)
IRP C,<C>
.$BUILD,<C S
H`
..TX
XA(.TQA,C,D,E,
hB)
IFN .
(.TXEF,<
..TE
RR<$TQ(A,B,C,D,E)>>
C, S@I9
8as
LSTOF.
X
X(UQU,Unknown q
xualifier)
X(IQU
,Invalid qualifie
8r)
X(IJA,Invali
Xd justification a
xrgument)
X(IWA,
Invalid width arg
8ument)
X(PEA,Pr
Xemature end of ar
xgument)
X(JNA,J
ustification is n
8ot allowed)
X(A
XNA,Arguments are
xnot allowed)
X(
ADS,Address must
8be specified)
LSTON.
ied)
L SN .REF .%T
DEE .$TYP <A>
.%TYPE==1>
W= T@u8
.XCREF T`.$RESET, .$BUILD
.$RESET
$TYPEU (.CMUQS)
$HELPU@ (<>)
$NEXT (AU`)
$PDATA (B)
VIFIDN <C> <>,< IV RP D,<D>
.$V@BUILD>
IFDIF <CV`> <>,<
$HELP (WC)
IRP D,<D>
.$BUILD><D>
.XCREF = .$RESET, .$BUILD
.$RESET
$TYPE=` (.CMUSR)
$NEXT> (A)
IRP B,<B>
.$BUILD,< ^+@ bh^(
IFE %%.OcTS,<DEFINE $WARN c((MSG) <
$TEXT cH(T%TTY,<% ^W6/[%%ch.MOD]/ MSG>)>>
IdFN %%.OTS,<DEFINEd( $WARN (MSG) <
dH $TEXT (T%TTY,<% dh^W6/IIB+IB.PRG/ ^eW/[%%.MOD]/ MSG>)>>
$WARN <A> _$r
Zec
IFB <
Z8A>,<.WFACD==0
ZX IFN <0-2>,<.$WAC
ZxD==0>>
IFNB <
[A>,<.WFACD==-1
[8 IFN <0-2>,<.$WA
[XCD==.$WACD!<A>>
[x
IFE <0-2>,<DE
\FINE .$WACD,<<WO.
\8ACD>B8+[ITEXT (<A>)]>>
>
< _$u
Oe
IFB <
O8A>,<.WFACK==0
OX IFN <0-2>,<.$WAC
OxK==0>>
IFNB <
PA>,<.WFACK==-1
P8 IFN <0-2>,<.$WA
PXCK==.$WACK!<A>>
Px
IFE <0-2>,<DE
QFINE .$WACK,<<WO.
Q8ACK>B8+[ITEXT (<A>)]>>
>
< _$+
@xf!
IFE <.W
AFMTY>,<PRINTX ?No
A8 message type in
AX$WTBLD>
DEFINE .
AxEAWTO(SUFFIX,ARGC
BOD),<
IFN .WF'SU
B8FFIX',<
IFE <AR
BXGCOD-0>,<<WO.'SUF
BxFIX'>B8+ .$W'SUFF
CIX'>
IFE <ARGCO
C8D-1>,<<WO.'SUFFIX
c'>B8+ [EXP .$W'SU
c8FFIX']>
IFE <AR
cXGCOD-2>,<.$W'SUFF
cxIX'>
>
>
ALLW
dTO
EXP 0
EXP 0 _$k
Qxe!
IFB <
RA>,<.WFFLG==0
R8 IFN <1-2>,<.$WFL
RXG==0>>
IFNB <
RxA>,<.WFFLG==-1
S IFN <1-2>,<.$WF
S8LG==.$WFLG!<A>>
SX
IFE <1-2>,<DE
SxFINE .$WFLG,<<WO.
TFLG>B8+[ITEXT (<A>)]>>
>
< _%(W
W8eM
IFB <
WXA>,<.WFJBN==0
Wx IFN <0-2>,<.$WJB
XN==0>>
IFNB <
X8A>,<.WFJBN==-1
XX IFN <0-2>,<.$WJ
XxBN==.$WJBN!<A>>
Y
IFE <0-2>,<DE
Y8FINE .$WJBN,<<WO.
YXJBN>B8+[ITEXT (<A>)]>>
>
< _%YV
_Xf
IFB <
_xA>,<.WFMFL==0
` IFN <1-2>,<.$WMF
`8L==0>>
IFNB <
`XA>,<.WFMFL==-1
`x IFN <1-2>,<.$WM
aFL==.$WMFL!<A>>
a8
IFE <1-2>,<DE
aXFINE .$WMFL,<<WO.
axMFL>B8+[ITEXT (<A>)]>>
>
< _%]
Dd3
IFB <
D8A>,<.WFMTY==0
DX IFN <0-2>,<.$WMT
DxY==0>>
IFNB <
EA>,<.WFMTY==-1
E8 IFN <0-2>,<.$WM
EXTY==.$WMTY!<A>>
Ex
IFE <0-2>,<DE
FFINE .$WMTY,<<WO.
F8MTY>B8+[ITEXT (<A>)]>>
>
< _%kr
TXe7
IFB <
TxA>,<.WFNOD==0
U IFN <0-2>,<.$WNO
U8D==0>>
IFNB <
UXA>,<.WFNOD==-1
Ux IFN <0-2>,<.$WN
VOD==.$WNOD!<A>>
V8
IFE <0-2>,<DE
VXFINE .$WNOD,<<WO.
VxNOD>B8+[ITEXT (<A>)]>>
>
< _%p
dXf'.WTOX.(.OM
dxWTO,<A>,<B>,<C>,,<D>)B>,<C _%xU
L8du
IFB <
LXA>,<.WFOBJ==0
Lx IFN <0-2>,<.$WOB
MJ==0>>
IFNB <
M8A>,<.WFOBJ==-1
MX IFN <0-2>,<.$WO
MxBJ==.$WOBJ!<A>>
N
IFE <0-2>,<DE
N8FINE .$WOBJ,<<WO.
NXOBJ>B8+[ITEXT (<A>)]>>
>
< _%xr
\xey
IFB <
]A>,<.WFOCD==0
]8 IFN <0-2>,<.$WOC
]XD==0>>
IFNB <
]xA>,<.WFOCD==-1
^ IFN <0-2>,<.$WO
^8CD==.$WOCD!<A>>
^X
IFE <0-2>,<DE
^xFINE .$WOCD,<<WO.
_OCD>B8+[ITEXT (<A>)]>>
>
< _%z@
gf=.WTOX.(.OM
g8WTO,<A>,<B>,<C
gX>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB _%|@
e8f-
.WTOX.(.OM
eXWTR,<A>,<B>,<C>,<D>,<E>)<C _&,z
Cxf
DEFINE
CX.EAWTO(SUFFIX),<$
b8WT'SUFFIX' <>>
ALLWTO
_&N
IXd_
IFB <
IxA>,<.WFTXT==0
J IFN <2-2>,<.$WTX
J8T==0>>
IFNB <
JXA>,<.WFTXT==-1
Jx IFN <2-2>,<.$WT
KXT==.$WTXT!<A>>
K8
IFE <2-2>,<DE
KXFINE .$WTXT,<<WO.
KxTXT>B8+[ITEXT (<A>)]>>
>
< _&N8
FxdI
IFB <
GA>,<.WFTYP==0
G8 IFN <2-2>,<.$WTY
GXP==0>>
IFNB <
GxA>,<.WFTYP==-1
H IFN <2-2>,<.$WT
H8YP==.$WTYP!<A>>
HX
IFE <2-2>,<DE
HxFINE .$WTYP,<<WO.
ITYP>B8+[ITEXT (<A>)]>>
>
<
t{P
u[rQ ]>t2
u}P
,MP )V=P .
P .JP .bP /P B&@P cGP )0 p30:"P#Z6 q|
.X@CREF a, b, c, `d
.XCREF .%TYPE, .%FLGS, .%DA TA, .%HLPM, .%DEF@M, .%LST
.XCREF` .$TYP, .$FLGS, .$DATA, .$HLPM, .$ DEFM, .$LST
.@XCREF .%BREA, .%N`XT, .%ERTN, .%RTN, .%DEFR, .%SBCM
.XCREF .$BREA, @.$NXT, .$ERTN, .$`RTN, .$DEFR, .$SBCM
d==<FLD(. $TYP,CM%FNC)>!.$F@LGS!<.$LST>
`IFN <.%BREA>,<d==d!CM%BRK>
IFG <.%HLPM>,<d=@=d!CM%HPP!CM%SDH`>
IFL <.%HLPM>,<d==d! CM%HPP>
IFN <.%DEFM>,`<d==d!CM%DPP>
c:! <INSVL.( b,PB.PDB)>!<INSVL@.(a,PB.FDB)> ;PD`B, FDB
EXP d
EXP .$DATA
IFN <.%HLPM!.%D@EFM!.%BREA>,<
E`XP .$HLPM>
IFN <.%DEFM!.%BREA> ,<
EXP .$DEFM> @
IFN <.%BREA>,`<
EXP .$BREA>
a==.-c
IFN <.%NXT!.%@DEFR!.%RTN!.%ERTN`!.%SBCM>,<
EXP .$NXT >
IFN < .%DEFR!.%RTN!.%ER@TN!.%SBCM>,<
EX`P .$RTN >
IFN <.%DEFR!.%ERTN!. %SBCM>,<
EXP .$@ERTN>
IFN <.%`DEFR!.%SBCM>,<
EXP .$DEFR>
I FN <.%SBCM>,<
E@XP .$SBCM>
` b==.-c
IF2,<
PURGE .%TY PE, .%FLGS, .%DAT@A, .%HLPM, .%DEFM`, .%LST
PURGE .$TYP, .$FLGS, .$D ATA, .$HLPM, .$DE@FM, .$LST
PUR`GE .%BREA, .%NXT, .%ERTN, .%RTN, . %DEFR, .%SBCM
P@URGE .$BREA, .$NX`T, .$ERTN, .$RTN, .$DEFR, .$SBCM
PURGE a, b, @c, d
>
LIST, d
>
LIST$YV8p+POINTr7,[ASCIZ\0\]NT 7,[A$YY p70"P8.- p101P5Iy p'0mPf= p-0+1Pw
.XCREF
SALL
XLIST
@DEFINE .$TYP <0>
.%TYPE==0
DEF INE .$FLGS <0>
.%FLGS==0
DEFIN @E .$DATA <0>
.% `DATA==0
DEFINE
.$HLPM <>
.%HLP
M==0
DEFINE .$D
@EFM <0>
.%DEFM=
`=0
DEFINE .$LST <0>
.%LST==0
DEFINE .$BREA <0@>
.%BREA==0
D`EFINE .$NXT <0>
.%NXT==0
DEFIN
E .$ERTN <0>
.%
@ERTN==0
DEFINE
`.$RTN <0>
.%RTN
DEFINE .$DE
.%DEFR==
DEFINE .$SBCM
.%SBCM==0
.CREF
CM==0p50lP2' |T0T 1,O)0P $YVP $YYP .-P 5IyP f=P w
CPTI
..AS
Cp1==-<B>
IFDEF
D .PSECT,<
.IFN
D0..AS1,ABSOLUTE,<
DP
C A,[-..
DpAS1]>
.IF ..AS
E1,ABSOLUTE,<
.
E0.AS2==0
IFE
EP<..AS1&^O777777B1
Ep7>,<
..AS2==1
F
DI A,..A
F0S1>
IFE ..AS2
FP,<
..OP(A,
FpB,C)>
PURGE
G..AS1,..AS2>>
I
G0FNDEF .PSECT,<
GP ..AS2==0
IF
GpE <..AS1&^O777777
HB17>,<
..AS2==
H01
DI A,.
HP.AS1>
IFE ..A
HpS2,<
..OP
I(A,B,C)>
PURGE ..AS1,..AS2>:h VG
Alu:
6PT
..CX1
6p==C
IFDEF .PSE
7CT,<
.IFN ..CX
701,ABSOLUTE,<
7P CAMA B,[C]
7p>
.IF ..CX1,ABS
8OLUTE,<
..CX2
80==0
IFE <..C
8PX1&^O777777B17>,<
8p
..CX2==1
9 CAIA B,C>
90 IFE ..CX2,<
=P
CAMA B,[
=pC]>
PURGE ..CX1
>,..CX2>>
IFNDEF
>0 .PSECT,<
..CX
>P2==0
IFE <..
>pCX1&^O777777B17>,
?<
..CX2==1
?0 CAIA B,C>
?P
IFE ..CX2,<
?p
CAMA B,[
@C]>
PURGE ..CX1,..CX2>GE ..CX:&@ 3P[)
..TSIZ 3p(..PST,C)
.CAS4E ..PST,<<
MOV40EM A,B>,<
HR4PRM A,B>,<
HR4pLM A,B>,<
DP5B A,[POINTR (B,C)]>>INTR (B,:<;Y 0XO
DEFIN PE ..CNS2 (NEW,OLD p)<
OLD>
..CNS ()>
:L;Y XG
DEFIN0E ..CNS (%%%)<
P..CNS2 <%%%>,>
p
DEFINE ..CNS2 (NEW,OLD)<
DEF0INE ..CNS (%%%)<
..CNS2 <%%%>,p<OLD'NEW>>>
OLD'NEW>>>
:dH@ 00[
..TSIZ 0P(..PST,C)
.CAS0pE ..PST,<<
MOV1E A,B>,<
HRR10Z A,B>,<
HLR1PZ A,B>,<
LDB1p A,[POINTR (B,C)]>>INTR (B,:}i1
n0Vu
A==<<<
nP-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~
IPTy
..OP1
Ip==B
IFDEF .PSE
JCT,<
.IFN ..OP
J01,ABSOLUTE,<
JP C A,[..OP1]
Jp>
.IF ..OP1,ABS
KOLUTE,<
..OP2
K0==0
IFE <..O
KPP1&^O777777B17>,<
Kp
..OP2==1
L CI A,..OP1>
L0
IFE ..OP2,<
LP
C A,[..O
LpP1]>
PURGE ..OP
M1,..OP2>>
IFNDE
M0F .PSECT,<
..O
MPP2==0
IFE <.
Mp.OP1&^O777777B17>
N,<
..OP2==1
N0 CI A,..OP1
NP>
IFE ..OP2,<
Np
C A,[.
O.OP1]>
PURGE ..OP1,..OP2>GE ..;m
aO
..PST==
8C-FWMASK
.IF0
X..PST,<
POINT
x0,B,35>,<
POINTR (B,C)>POI;| .Zu
POP P,.0.NVA
PURGE .N.PVA
.NVR==.NVR-1
.NVR==.NVR;\t -Zm
PUSH P-0,A
DEFINE .NV-PB<A>
.NVR==.NVR+1
.NVR==.;] U0]7
IFGE UP<<<B>&777777>-..UpBSIZ>,<
PRINTXV ?WORD offset greV0ater than $BUILD VPsize parameter>
Vp SET0. (\<B>,C,<A>)
B>,;LH
tpW7
IFNDEF
uC,<PRINTX C IS
u0NOT DEFINED
uPA (<B>,D,FWMASK
up)>
IFDEF C,<
v
IFNDEF %C,<
v0 A (<B>,D,C)
vP>
IFDEF %C,<
vp
%C (A,<B>,D,C)>>A,<B>,;LH
w0Wu
..NS==0
wP
IRP C,<..N
wpS=..NS+1>
IFE
x..NS,<PRINTX ?EMP
x0TY STRUCTURE LIST
xP, A>
IFE ..NS-
xp1,<
..STR0
y(A,<B>,<C>,D)
y0>
IFG ..NS-1,<
yP
..ICNS
.
yp.CNS (<E (A,<B
z>,,>)
IRP C,<
z0
IFNDEF C,
zP<PRINTX C NOT DE
zpFINED>
IFDEF
{C,<
IFNDEF %
{0C,<
..CNS (<
{P,C,D>)>
IF
{pDEF %C,<
%C
| (..STR2,,D,C)>
|0
..CNS (<)>)
|P
..GCNS
|p ..ICNS
.
}.CNS (<E (A,<B
}0>>)
IFNDEF %
}PC,<
..CNS (<
}p,C,D>)>
IF
~DEF %C,<
%C
~0 (..STR2,,D,C)>
~P>>
..CNS (<,,)>)
..GCNS>);LI
Wy
..CNS (<,C,B>).CNS (;LI
PX
IFDIF <
pD><F>,<
IFNB <D>,<
A0 (<B>,D,..MSK) P
IFNB <F>,p<PRINTX C AND E ARE IN DIFFERENT0 WORDS>>
..MSPK==0>
IFNB <pF>,<
..MSK=..MSK!<E>>MSK=..;LJ 0X
IFDIF <PD><F>,<
IFpNB <D>,<
A (<B>,D,..MSK)0>
..MSK==0> P
IFNB <F>,<
p ..MSK=..MSK!<E>>MSK=..MSK!<;LJ 0X5
IFDIF <PD><F>,<
IFpNB <D>,<
IFNB <F>,<
0A1 (B,D,..MSK)>P
IFB <F>,p<
A2 (B,D,..MSK)>>
..0MSK==0>
IFNB P<F>,<
..MSK=..MSK!<E>>MSK=;$\Y
b
IF1,<
X
PRINTX ? Err
xor in "A"
D
HEFINE X(NAM,ERR)
!<IFN ..X'NAM&..TX
!8EF,<PRINTX ? ERR>
!X>
$TX$ERR>
$TX$ERR>
;$^
#8bC
..
#XTXF==0
.
#x.TXB==0
$..TXP==0
$8 ..TXEG==<..TXEF=
$X=0>
IRPC
$xA,<
..TXC=
%=ASCII\A\_-35
%8
IFN ..TXB,<IFN
%X..TXB-..TXC,..CNS
%x(<A>)
IFE
&..TXB-..TXC,..TXB
&8==0>
IFE ..TXB,
&X<..TXQ(<A>,\..TX
&xF)>>
..TXC1
'
IFN ..T
'8XB,<IFN <..TXB-"^
'X">,<..TXER(PEA)>>
'x
..TXEF==..T
(XEF!..TXEG
(8 IFN ..TXEF,<..TERR<A>>
,<..TE;&(
(`2..TXA(.TQCH0)..TXA(.TQC;&)
8`;..TXER(IQU)..TXER(IQU;&)
h`6..TXER(IQU)..TXER(IQU;&0
h`...TXA(.TQCHA)..TXA(.TQC;&5
(`"..TXC0(\".CHLFD).TXC0(\".;&5
(`*..TXC0(\".CHVTB).TXC0(\".;&6
h`&..TXC0(\".CHFFD).TXC0(\".;&6
h`..TXC0(\".CHCRT).TXC0(\".;&@ <p[}
..TSIZ =(..PST,C)
.CA=0SE ..PST,<<
SE=PTZM B>,<
HLL=pZS B>,<
HRRZ>S B>,<
..TS>0AC (..ACT,B)
>P .IF0 ..ACT,<
>p $CALL .ZERO
?LSTOF.
JUMP [P?0OINTR(B,C)]
?PLSTON.>,<
..TX (Z,B,C)>>>TX;&81
jpVo
IFNDEF
k.PSECT,<
A==0
k0
..TSA1==<Z
kPB>
IFE ..TS
kpA1&^O777777777760
l,<A==1>
>
I
l0FDEF .PSECT,<
lPA==0
..TSA1=
lp=<Z B>
.IF .
m.TSA1,ABSOLUTE,<
m0
IFE ..TSA1&^
mPO777777777760,<A
mp==1>>
PURGE ..TSA1>
PURGE ..;&:=
i0VS
A==3
iP
IFE <B>+1,<
ipA=0>
IFE <B>-
j^O777777,<A==1>
j0
IFE <B>-^O777777B17,<A==2>7;'
OPV
..TX1
Op==C
IFDEF .P
PSECT,<
.IFN .
P0.TX1,ABSOLUTE,<
PP TDA B,[C]>
Q .IF ..TX1,ABSOL
PpUTE,<
..TX2==
Q00
IFE <..TX1&
QP^O777777B17>,<
Qp ..TX2==1
RTRA B,..TX1>
R0IFE ..TX2,<
I
RPFE <..TX1&^O77777
Rp7>,<
..TX2==1
S
TLA B,(.
S0.TX1)>>
IFE ..T
SPX2,<
IFE <<
Sp..TX1>B53-^O77777
\7>,<
..TX3
\0 (A,B)>>
IFE
\P ..TX2,<
TD
\pA B,[..TX1]>
] PURGE ..TX1,..TX
]02>>
IFNDEF .PSEC
]PT,<
..TX2==0
]p
IFE <..TX1&^O77
^7777B17>,<
..
^0TX2==1
TRA
^P B,..TX1>
IFE
^p..TX2,<
IFE <
_..TX1&^O777777>,<
_0
..TX2==1
_P TLA B,(..TX1
_p)>>
IFE ..TX2,<
`
IFE <<..TX
`01>B53-^O777777>,<
`P
..TX3 (A
`p,B)>>
IFE ..T
aX2,<
TDA
a0B,[..TX1]>
PURGE ..TX1,..TX2>;'`
apV!
IFIDN <
bA><Z>,<
..
b0TX2==1
ANDI
bPB,^-..TX1>
IFI
bpDN <A><O>,<
c ..TX2==1
OR
c0CMI B,^-..TX1>
cP
IFIDN <A><C>,<
cp
..TX2==1
d EQVI B,^-..TX1>QVI B,^-..TX;'
Xa9
..TXE
xF==0
IFNDEF
A,<..TXER(UQU)>
8
IFDIF <B><>,
X<IRPC B,<.IFN <
xB>,NUMERIC,..TXER
(IWA)>>
IFNB <C
8>,<IFNDEF .TXTJC
X,<..TXER(IJA)>>
xIFDEF A,<
IF
E <A_-^D18>,<IFD
8IF <EFBCD><>
X,<..TXER(ANA)>>
x IFE <1-<A_-^D1
8>>,<IFDIF <BC
8D><>,<..TXER(JNA)
X>>
IFE <2-<A_
x-^D18>>,<IFIDN <
EF><>,<..TXER(AD
8S)>>>
IF
XE ..TXEF,<
IFID
xN <B><>,<..TXWD=
=<..TXJU==<..TXFC
8==0>>>
IFDIF <
XB><>,<
IFE <^
xD<B>>,<..TXWD==<
..TXJU==<..TXFC==
80>>>
IFN <^D<
XB>>,<..TXWD==^D<
xB>
IFNB <
C>,<..TXJU==.TXTJ
8C>
IFB <
XC>,<..TXJU==.TXTJ
xL
IFE <A
-.TQOCT>,<..TXJU=
8=.TXTJR>
XIFE <A-.TQDEC>,<
x..TXJU==.TXTJR>>
IFB <D>,<
8..TXFC==" ">
X IFNB <D>,<..TX
xFC=="D">>>
I
FB <EF>,<..TXP
8T==0>
IFNB <E
XF>,<..TXPT==1>
xIFE <..TXWD+..TXP
T>,<
EXP FL
8D(A,TXT.FN)>
I
XFN <..TXWD+..TXPT
x>,<
EXP FLD
(A,TXT.FN)+FLD(.
8.TXJU,TXT.JU)+FLD
X(..TXWD,TXT.WD)+F
xLD(..TXFC,TXT.FC)
+TXT.AD
PNTR(E,F)>>
T;'h
:c]
IFE
:8..TXP,<
..IC
:XNS
..CNS<ASC
:xIZ\>
..TXP==1
;>
..CNS<A
;8>
..TXF==
;X0
..TXB=="^"
..TXB==;'h
<ci
IF
<8N ..TXP,<
..
<XCNS<\>
EXP <F
<xLD(.TQCHT,TXT.FN)
=+[..GCNS]>>
..TXP==0>
;' 9
"b
..TX
"8EF==..TXEF!..XA
"X
..TXF==0
"x
..TXB=="^"
..TXB=="^;'
(xbG..TXQB(<A>)..TXQB(<;'
(
)8bQ
IF
)XN ..TXC-"^",<..TX
)xC0(<A>)>
*IFE ..TXC-"^",<..TXF==1>-"^",<..;'
(
*Xbq
IF
*xE ..TXC-"^",<..TX
+C0(<A>)>
I
+8FN ..TXF,<
.
+X.TXF==0
IFDEF
+x .TQCHA,<
, IFDEF ..TQMA,.
,8.TQMA
IFN
,X <.TQCHA_-^D18>,
,x<..TXF==2>>>
- IFE ..TXF-2,<..T
-8XC1(<A>)
..IC
-XNS
..CNS<..T
-xXA(.TQCHA,>>
. ..TXEG==..TXEG!..TXEF==..TXEG;'
)
.Xc
..TX
.xF==3
IFG
/E ..TXC-"0",IFLE
/8..TXC-"9",<..TXF=
/X=2>
IFE ..TX
/xF-2,<..CNS(A)>
0
IFE ..TXF-3
08,<..CNS<,>
..TXQ3(A)>
;'
)
0xc
..TX
1F==4
IFE
18 ..TXC-"/",<..TXF
1X==5>
IFE .
1x.TXC-"[",<..TXF==
25>
IFE ..T
28XF-4,<..CNS<A,>>
2X
IFE ..TXF
2x-5,<..CNS<,,>
..TXQ5(A)>
;'
*
38c-
..TX
3XF==4
IFE
3x ..TXC-"/",..TXF=
4=5
IFE ..T
48XC-"[",..TXF==5
4X
IFE ..TXF-5
4x,<..CNS<,>
5..TXQ5<A>>
58 IFE ..TXF-4,<..
5XCNS<A,>
..TXF==5>
..;'
*
6c?
..TX
68F==6
IFE
6X ..TXC-"/",..TXB=
6x="/"
IFE .
7.TXC-"[",..TXB=="
78]"
IFE ..TXB
7X-"]",..CNS<[>
7x IFE ..TXB,..TXF==5 ..TXB,..T;'
+
88cM
..TX
8XF==0
IFE
8x..TXC-"]",..CNS<]
9>
..CNS<)>
98
..GCNS
9X
..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q ;EpQ ;E+PQ ;F 0Q ;F\:Q @
0P
@P
PP
`P d PYM
.ACV2 (A)
.ACV2 (d@ YW
A=.FPA0C+..NAC
IFB <PB>,<..NAC=..NAC+p1>
IFNB <B>,<..NAC=..NAC+B>.d` 0Ye
IFG A-P.NPAC,<PRINTX ?TOpO MANY ACS USED>
IFLE A-4,<
0 $CALL .SAVEA>
IFG A-4,<
$CALL .SAVE8>
B\Q
IFIDNB0 <A><.>,<
BPXMOVEI .SAC,B
Bp PUSH P,.SAC
>
IFDIF <C0A><.>,<
.IFACPTM <A>,.BLF4
Cp .BLF1==0
DIFN .BLF4,<
D0 .IF %A,MACRO,DP<
.BLF1==1>
>
IFNB <EB>,<
.BLF1==1>E0
IFN .BLF1,<EP
LOAD .SAEpC,A,B
PUSFH P,.SAC
>
F0 IFE .BLF1,< ;IFPF WASN'T A STRUCTFpURE REF,
IFGN .BLF4,<
G0 .BLF2==<<Z A>&GP17B17>-<P>B17
Gp .IF .BLF2,AHBSOLUTE,<
HP H0 IFE .BLF2,<
.BLF1==1Hp
.BLF3I==<Z A>&777777
I0 PUSH P,.BLF3-..IPNA(P)>>>>
IFIpE .BLF1,<
PUJSH P,A>>
..NA=..NA+1
..
AP\
.BCAL1 A
.BCAL1
| X`MH
XLIST
Y .ORG 0
LIST
.ORG 0
LIST
=Z O\y$CALL I%INTA$CALL I%IN9
g0VE
..CSN==
gPA
..CSC==0
I
gpRP B,<
IFE ..C
hSN-..CSC,<
ST
h0OPI
..CAS1 (
hPB)>
..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 9p[Y
..PST==:C-FWMASK
.IF0 :0..PST,<
SOS B:P>,<
$CALL .SO:pS
LSTOF.
J;UMP [POINTR(B,C)]
LSTON.>C}
@f
.OPCD==
bx.OPCD+1
WO.A==.OPCD
G),<
| ZMX
XLIST
Z( .....X=.
.ORG
.ORG 0
REPEAT Zh .....X,<EXP 0>
[ PURGE .....X
.ORG
LIST
.v=H Y
IRP A,0<
.ENSV2 (A)> .ENSV2 (A)v=I pY
.ENSV3 (A)
.ENSV3 v=I 0Y
DEFINE A<....U>EFINE [Zp $^p $j6p $lWP %I7p %KqP %h6p %h:P %i:P %lzp &:p &
p &=p LzP L{P L+P L,}P L<\P L=P LHqP LMP LMP LiQP Ll}P M
}P MX<P
MX|P MlqP
N
WP N)VP N)WP N+9P N,}P N<P P `P &2
fV7
..IFT==
f0A
IFE ..IFT,
fP<
B
..IFT==0
fp>
IFN ..IFT,<
C>N ..IFT,<&4 JP\i
IRPC AJp,<
B==0
IFGEK "A"-"A",<IFLE "K0A"-"Z",<B=1>>
IFGE "A"-"0",<KpIFLE "A"-"9",<BL=1>>
IFE "A"-"L0%",<B=1>
IFE "LPA"-"$",<B=1>
LpIFE "A"-".",<B=M1>
IFE B,<STOPI>>IFE B,<STOP&t<H 6p[A
..PST==7C-FWMASK
.IF0 70..PST,<
AOS B7P>,<
$CALL .AO7pS
LSTOF.
J8UMP [POINTR(B,C)]
LSTON.>C&tj7Q ?';VP '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P *IA *I*|A *|6MiTQ @7;rp 7H:p 7kp 7N8p ;`P ;-J7P#~>)qp >5H3p >DLYp ?EHP $?LxP "?(WP !?+ZP %?krP #?xUP ?)0P "?)8P #?98P !?J6P $?N8P ?$(:P ?$*7P ?$9P ?$HVP ?$]ZP ?$h6P ?$htP
?$mP??%VP??%+qP??%LP??%X<P ?%[ZP ?%hzP ?%kzP ?%l1P ?%|P ?&P ?&
C7P#CzP#J$)XP J$*vP J$,UP J$=qP J$HQP J$HXP J$kP J%uP J&-P J&:=P K%,z
'0R;<A>B<^D70-POS(B)>B<^D70N
0PO
SYSPRM C
IFG .PID,<MX.PID==A>
<MX.PID=O%=H
.STKV2 (A)
.STKV2O%=I
IFB.<BN==..STKN+1>
IFNB <B>,<0..STKN==..STKN+BP>
..STKQ==..STKpN+1
.STKV3 (A,\..STKQ)V3 (A,O%=I 0Y
IFDEFP A,<.IF A,SYMBOpL,<PRINTX STKVAR A ALREADY DEFINE0D>>
DEFINE A<-P^OB(P)>
$A==<Z A>>
$A==<RJP RJP RJ P RJ P RJJP RJP RJ
P RJ$HP RJ%P RJ4HP RJ4`P RJ4hP RJ5P RJ5 P RLH:P RLkQP RM4(P 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 Y)
.TRV2 (A)
.TRV2 (Sd@ PY3
.TRV3 (pA,\..NV)
IFB <B>,<..NV=..NV+10>
IFNB <B>,<..NV=..NV+B>,<..Sd` pYA
IFDEF A,<.IF A,SYMBO0L,<PRINTX TRVAR PA ALREADY DEFINEDp>>
DEFINE A<^OB(.FP)>
$A==<Z A>>
$A==<S"P S"P S" P S" P S"JP S"P S"
P S"$HP S"%P S"4HP S"4`P S"4hP S"5P S"5 P S%4(P S%D)P S%DkP S&d
P S&e(P S&e)P S&eHP
SFH2P SFIVP SFJQP SFJVP SFJYP _%~
iXfi
$CALL
ixI%WTO
LSTOF.
j
JRST g
j8
$WTRST
IF
jXNB <A>,<$WTMTY (
jx<A>)>
IFNB <
kB>,<$WTTYP (<B>)
k8>
IFNB <C>,<$
kXWTTXT (<C>)>
kxIFNB <D>,<$WTOBJ
l (<D>)>
IFNB
l8<E>,<$WTACK (<E
lX>)>
IRP F,<
lxF>
$WTBLD
m
g:!
LSTON. g:!
LSTON. kPP >}{woP