Trailing-Edge
-
PDP-10 Archives
-
bb-bt99m-bb
-
glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,SY@P C4@ `Y:
..NAC==0
IRP A,<
.ACV1 (A)>
.ACV3 (\..NAC)C'
>`Sv..AS(A,B,ADD,SUB)(A,BC,
(RLSH A,-^D9LSH A,-^DC2f}
;hcp
.EAWTO(
<MTY,0)
.EAWTO(T
<(YP,2)
.EAWTO(TX
<HT,2)
.EAWTO(OBJ
<h,0)
.EAWTO(ACK,
=0)
.EAWTO(FLG,1
=()
.EAWTO(NOD,0)
=H
.EAWTO(JBN,0)
=h
.EAWTO(ACD,0)
> .EAWTO(OCD,0)
.EAWTO(MFL,1)
C:'
c V
TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
..NA==0>@
IRP B,<
>` .BCAL2 B>
?PUSHJ P,A
AD? JSP P,-..NA
P,-..NA
E2"@ Y@]R
IFE Y`B,<..TA==0>
ZIFN B,<EXP ..TAZ
PURGE ..TA>
PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@
7`S>
..CX(,A,B) ..CGD
; SZ
..CX(A,A,B) ..CGDP
9 SJ
..CX(E,A,B) ..CGDp
9`SN
..CX(G,A,B) ..CGDy
: SR
..CX(GE,A,B) ..CGE@
8 SB
..CX(L,A,B) ..CGEI
8`SF
..CX(LE,A,B) ..CGE`
:`SV
hk..CX(N,A,B) ..CGH
hOLST
X CRE
/H X GEN
X PRT
X CLS
X A
X USW
X SPL
X SIZ
X MOD
X CH
X ACT
X CRY
X DTY
X DTO
X DCC
X BSZ
X SZ
X HSZ
1h X RFM
X RFO
X RSZ
X B
X FFB
HX ACW
X RMS
X MCY
X CT
X NSB
LSTON.
G"\Y L|v
IF1, L <%%EDT==AEDT>
L@
IF2, <IFN <%%EL`DT-AEDT>,<
PRMINTX ? Edit NumbeM r Doesn't Match GM@LXVER in GLXA
M` A$WHO(\AEDT)> N
A$NOTE
IN NTERN AEDT
IN@NTERN LODLEV
;N` PURGE %%EDT> ;END IF2
O3FQ @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 k@`
IFNB <>k`,<
PRINTX (Frolm GLXVER)
> ;END IFNB
G>hMt jX
PRINTX j GLXVER GLXCOM Edij@t(62) by PERK on j`7-Jun-88
PRINTXk GLXCOM Actual Edit(A)
G>lYP G>vC@ `NLALL
PAGE ` ; (A Continued o `@n next page)
SAL ``L; (A Continued afrom previous page) previous pagG?T WXM=ASCIZ \
COPYRIGHT Z \
CGHt;rP GHtkP GHv P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`R*IIY{P`R*|I 6`[<
IFNB <7B>,<..STR0 (.DECR7 0,,<B>,A)>
IF7@B <B>,<SOS A> <B>,<SOS A>I6=
m V~
A==<-1
m@B<C>+1B<C-D>>
m`
IF1,<IFDEF %A
n,<PRINTX ?A ALRE
n ADY DEFINED>>
D
n@EFINE %A (OP,AC,
n`Y,MSK)<
IFDIF
o<Y><>,<
OP (<AC
o >,B+'Y,MSK)>
I
o@FIDN <Y><>,<
OP
o` (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7
A T
..OP(A,B,DIV)..OP(A,BIOH1 \0um
IFB <D\P>,<
XWD [ASCIZ\\pC\],[XWD B,A]>]
IFNB <D>,<
]0XWD [EXP CM%FW!D]P
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
khjf
ERR EOF
l,<End of file>
l(ERR IFP,<Illegal
lHfile position>
lhERR FDE,<File dat
ma error>
ERR FN
m(D,<File is not on
mH disk>
ERR NSD,
mh<No such device>
n
ERR FCF,<File c
n(heckpoint failed>
nH
ERR SLE,<A sys
nhtem limit was exc
oeeded>
ERR IFS,
o(<Illegal file spe
oHcification>
ERR
oh FNF,<File not fo
pund>
ERR PRT,<P
p(rotection violati
pHon>
ERR DNA,<De
phvice not availabl
qe>
ERR NCE,<No
q("current" entry i
qHn list>
ERR NMA
qh,<No IPCF message
r is available>
r(ERR FDS,<Files ar
rHe on different st
rhructures>
ERR F
sAE,<File already
s(exists>
ERR USE
sH,<Unexpected syst
shem error>
ERR N
tSP,<No such pid>
t(
ERR BOL,<Beginn
tHing of list reach
thed>
ERR EOL,<En
ud of list reached
u(>
ERR RQF,<Rece
uHivers quota full>
uh
ERR SQF,<Sende
vrs quota full>
v(ERR NRE,<No remem
vHbered entry>
ER
vhR TBF,<Table is f
wull>
ERR EIT,<T
w(able entry alread
wHy exists>
ERR I
whTE,<Invalid table
x entry>
ERR QEF
x(,<Quota exceeded
xHor disk full>
E
xhRR ARG,<Invalid a
yrgument specified
y(>
ERR IFN,<Inva
yHlid function spec
yhified>
ERR IJN,
z<Invalid job numb
z(er specified>
E
zHRR RAD,<Invalid r
zhadix specified>
{ ERR NUM,<Invalid
{( numeric argument
{H>
ERR IDT,<Inva
{hlid date field sp
|ecified>
ERR IT
|(F,<Invalid time f
|Hield specified>
|h ERR DOR,<Date/ti
}me out of range>
}(
ERR DTM,<Value
}Hmissing in date/t
}hime>
ERR MDD,<M
~issing day in dat
~(e/time>
ERR DFZ
~H,<Field zero in d
~hate/time>
ERR M
DS,<Mnemonic date
(/time switch not
Himplemented>
ER
hR 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>
h ERR ICN,<Invalid
ERR NQS,<Iotedtstr
( ERR AMB,<Ambiguo
ERR NMT,<Datch tok
ERR CMA,<Coven>
hERR NNC,<Nodeenam
ERR INT,<Nodemterm
be specified>
E
(RR NSN,<Unknown n
Hode name>
ERR I
hPS,<Invalidipath
(ERR IUS,<Invalido
ERR DGS,<Dev
ice name may not
(exceed 6 characte
Hrs>
ERR DNE,<Un
hknown device>
ER DIO,<Device ca
ERR BDalidtdate/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
HERR FIO,<File is
ERR FBle being mod
ERR WLK,locked dev
ERR CSD,<Cersede a
ERRDD,<Cannottdele
ERR SNb-fileudirec
h 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>
hERR NPI,<NoPfreee
ERR IFdirect filer
ER NDN,<Nullndevic
&h ERR PWA,<PID wen
ERR CGPt get a PID
ERR IND,<Invae>
ERR IAC,<Invalid
HERR 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` o_
IFIDN <o8BC><>,<EXP <A>oX>
IFDIF <BC><ox>,<
IFE <A+1>p,<<POINT 7,C>>
p8 IFN <A+1>,<
pX IFIDN <C><>,<pxEXP <A,B>>
q IFDIF <C><>,<EXq8P <A,B,C>>
>>A,B,C>>
>KbN@ `Kc ]@MnIRP A,<
]` 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
IFNB <>}@,<
PRINTX (Fro}`m GLXVER)
> ;END IFNB
[KWM&`Mt {`f
PRINTX |GLXVER GLXFIL Edi| t(117) by JJF on |@17-Feb-87
PRINT|`X GLXFIL Actual Edit(A)
M&dYP 'M2
%R(<<<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 ~ z
PRINTX ~@GLXVER GLXFUN Edi~`t(2) by BAH on 14-Nov-86
PRINTX GLXFUN Actual Edit(A)
YMVtYP M^luQ O2| ^ M|IRP A,<
^@ IF2,<IFDEF A,<. ^`IFN A,EXTERN,<IN _TERN A>>
_ IFNDEF A,<EXTERN _@ A>
Q SUPPRESPA>>FlYSUPPRO3DYPF?O3EKrPf?O3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
Sp Sv8;Q Sv>@p SNn
@`T..OP(A,B,IDIV).OP(A,BSNp @S7-N
?`S~..OP(A,B,IMUL).OP(A,BS: 3`[$
IFNB <4B>,<..STR0 (.INCR4 0,,<B>,A)>
IF4@B <B>,<AOS A> <B>,<AOS A>S:HKW >
IFNB <>@,<
PRINTX (Fro`m GLXVER)
> ;END IFNB
S:HMt `6
PRINTX GLXVER GLXINI Edi t(23) by on 27-J@un-84
PRINTX ` GLXINI Actual Edit(A)
S:LYP S;k
'@R<<<<A>B<POS(<B>)>>&<B>>S; KW n v
IFNB <>n@,<
PRINTX (Fron`m GLXVER)
> ;END IFNB
S; Mt l`n
PRINTX mGLXVER GLXINT Edim t(116) by LWS on m@12-May-88
PRINTm`X GLXINT Actual Edit(A)
S;!kP S;!k<P S;$YP 'S?
b`V
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 x F
IFNB <>x@,<
PRINTX (Frox`m GLXVER)
> ;END IFNB
SBMt v`>
PRINTX wGLXVER GLXIPC Ediw t(77) by LWS on 2w@4-Aug-87
PRINTXw` 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. rXCREF
..TEXT<Ar8>
EXP 0
LSTON.
0
Uv98Q |U$@
HkB
hOLST
XJJNO,.JI,GJBJNO>
X-TNO,.JITNO,<
XUSR,.JIUNO,.GTPPN
X,CDN,.JIDNOH>
HXGPRG,.JIPNM,.GTP
XPCJN,.JICJBCJB>
XTBAT,.JIBCH,.G
XIJLT,.JTJLT
X,LOC,<-1,,GJBLOC>
HXJRTM,.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 z`Z
IFNB <>{,<
PRINTX (Fro{ m GLXVER)
> ;END IFNB
G>hKWW
Mt y R
PRINTX y@GLXVER GLXKBD Ediy`t(103) by LWS on z24-Aug-87
PRINTz X GLXKBD Actual Edit(A)
W
$YP !WNH1 ^uy
IFB <C^0>,<
XWD [ASCIZ\^PB\],A>
IFNB <^pC>,<
XWD [EXP _CM%FW!C
ASCIZ\B\],A>
SCIZY"luQ xY&i1 Qz
LST (OF. XCREF
CDO H OTSINI
CDO h
CDO .ZP
AGA
CDO .ZPAGN
(
CDO .ZCHNK
CD
HO .SAVE1
CDO .S
hAVE2
CDO .SAVE3
CDO .SAVE4
C
(DO .SAVET
CDO .
HSV13
CDO .SV14
h
CDO .SV15
CDO
.SV16
NT .RETT
(
NT .RETF
CDO
H .RETE
CDO .AOS
h
CDO .SOS
CDO .ZERO
NT
( .POPJ
CDO .S
HTOP
CDO .SAVE
h8
CDO .STKST
CDO .TRSET
(
NT .POPJ1
C
HDO .UD2SC
CDO
h .SC2UD
CDO .
CPUTY
CDO .DI
(E
CDO
CDO
H
CDO
CDO C
h%RPRM
CDO C%INT
R
CDO C%SEND
(CDO C%RECV
CDO
HC%BRCV
CDO C%RE
hL
CDO C%CPID
CDO C%KPID
CDO
(C%SPID
CDO C%MA
HXP
CDO C%PIDJ
h CDO C%PIDH
CDO
C%SIDX
CDO
C
(DO
CDO
CDO
H
CDO F
h%IOPN
CDO F%AOP
N
CDO F%OOPN
(CDO F%IBYT
CDO
HF%OBYT
CDO F%IB
hUF
CDO F%OBUF
CDO F%REL
CDO
(F%DREL
CDO F%RR
HEL
CDO F%REW
hCDO F%POS
CDO F
%CHKP
CDO F%INF
(O
CDO F%FD
CD
HO F%REN
CDO F%D
hEL
CDO F%FCHN
CDO
CDO
CDO
(
CDO
CDO
CDO
H
CDO
CDO
CD
hO FUNCT.
C
DO
CD
(O M%ACQP
CDO M%
HRELP
CDO M%IPSN
h
CDO M%NXPG
C
DO M%IPRC
CDO M
(%IPRM
CDO M%AQN
HP
CDO M%RLNP
hCDO M%CLNC
CDO
M%FPGS
CDO M%GM
(EM
CDO M%RMEM
H CDO
CDO
CDO
h
CDO
CDO
CDO
CDO M%GPAG
C
(DO M%RPAG
CDO
H CDO
CDO
CDO
h
CDO
CDO
CDO
CDO
CDO
(
CDO T%T
HEXT
CDO T%TTY
h CDO
CDO
CDO
CDO
CDO
CDO
(
CDO
CDO
CD
HO
CDO
CDO
h
CDO L%
CLST
CDO L%DLST
(
CDO L%CENT
C
HDO L%CBFR
CDO L
h%DENT
CDO L%NEX
T
CDO L%FIRS
(CDO L%LAST
CDO
HL%PREV
CDO L%PR
hEM
CDO L%CURR
CDO L%RENT
CDO
( L%SIZE
CDO L%A
HPOS
CDO
CDO
h CDO
CDO
CDO
CDO
CDO
CDO
(
CDO
CDO
H I%NOW
CDO I%EX
hIT
CDO I%ION
CDO I%IOFF
CDO
(I%SLP
CDO I%INT
H1
CDO I%INT2
hCDO I%INT3
CDO
I%TIMR
CDO
CD
(O
CDO I%SOPR
HCDO I%WTO
CDO
h CDO I%HOST
CDO
I%JINF
CDO I%C
(JOB
CDO I%KJOB
H
CDO S%U2DT
h
CDO S%DT2U
CD
O S%DATI
CDO S%
(SIXB
CDO S%CMND
H
CDO S%TBLK
C
hDO S%SCMP
CDO S
%ERR
CDO S%INTR
(
CDO S%EXIT
C
HDO S%TBAD
CDO S
h%TBDL
CDO S%NUM
I
CDO K%RCO
(C
CDO K%WCOC
H
CDO K%SUET
C
hDO K%STYP
CDO K
%TXTI
CDO K%SOU
(T
CDO K%BOUT
HCDO K%BIN
CDO K
h%BACK
CDO K%TPO
S
CDO K%BUFF
(CDO K%FLSH
CDO
HK%OPEN
CDO K%EC
hHO
CDO
CDO
CDO
CDO
CDO
( CDO
CDO
CDO
LSTON.
Y:W `R
IFNB <>
,<
PRINTX (Fro
m GLXVER)
> ;END IFNB
Y:XMt J
PRINTX @GLXVER GLXLNK Edi`t(11) by AWC on 2 9-Jan-82
PRINTX GLXLNK Actual Edit(A)
Y:\YP Y>
@ - Zp
IFNB <-@C>,<..STR0 (..LDB-`,A,C,B)>
IFB. <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG a@N
IFNDEF a`LSTIN.,LSTIN.==0 b
IFE LSTIN.,<
b IFIDN <XCREF><A b@>,<.XCREF>
b` XLIST>
LSTIN.==LSTIN.+1STINYO%{G c N
IFG LST c@IN.,LSTIN.==LSTIN c`.-1
IFLE LSTIN d.,<.CREF
LIST>
[KW iL
IFNB <>i ,<
PRINTX (Froi@m GLXVER)
> ;END IFNB
[Mt g@D
PRINTX g`GLXVER GLXMAC Ediht(520) by PERK onh 7-Jun-88
PRINTh@X GLXMAC Actual Edit(A)
[YP ([3@
'R8<<<1_<A>>-1>B<B>>_<A>>[8@
&R01B<<A>-1>-1B<B><<A>-1>[@ zHO`
IFB <B zh>,<MAXSIZ==0
I {RP A,<IFG <A-MA {(XSIZ>,<MAXSIZ==A {H>>>
IFNB <B>,< {hB==0
IRP A,< |IFG <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 p`
IFNB <>q,<
PRINTX (Froq m GLXVER)
> ;END IFNB
[hMt o
PRINTX o@GLXVER GLXMEM Edio`t(33) by DPM on 1p9-Apr-88
PRINTXp GLXMEM Actual Edit(A)
[lYPuQ @[th:Q [u[yQ [ukvQ [v=3P'[v|WQ [&p |HOt
IFB <B |h>,<MINSIZ==377777 },,777777
IRP }(A,<IFG <MINSIZ-A }H>,<MINSIZ==A>>>
IFNB <B>,<B== ~377777,,777777
~( IRP A,<IFG <B- ~HA>,<B==A>>>
A>,<B==A>>>
[>!`
&@R4<A-<A/B>*B><A-<A/B[?7
(S"
..MX1
( ==B
IFDEF .P
(@SECT,<
.IFN .
(`.MX1,ABSOLUTE,<
) MOVE A,[B]>
) .IF ..MX1,ABSOL
)@UTE,<
..MX2==0
)`
IFE <..MX1>B5
*3,<
..MX2==1
*
MOVEI A,..MX
*@1>
IFE ..MX2,<
*`
IFE <..MX1>B
+17,<
..MX2==1
+
MOVSI A,(..
+@MX1)>>
IFE ..M
+`X2,<
IFE <<..
,MX1>B53-^O777777>
, ,<
..MX2==1
,@ HRROI A,<..MX
,`1>>>
IFE ..MX2
-,<
IFE <<..MX
- 1>B17-^O777777B17
-@>,<
..MX2==1
-`
HRLOI A,(..M
.X1-^O777777)>>
. IFE ..MX2,<
.@ MOVE A,[..MX1]
.`>
>>
IFNDEF
/ .PSECT,<
..MX2
/ ==0
IFE <..MX
/@1>B53,<
..MX2
/`==1
MOVEI A,
0..MX1>
IFE ..M
0 X2,<
IFE <..M
0@X1>B17,<
..MX
0`2==1
MOVSI A
1,(..MX1)>>
IFE
1 ..MX2,<
IFE
1@<<..MX1>B53-^O777
1`777>,<
..MX2=
2=1
HRROI A,<
2 ..MX1>>>
IFE .
2@.MX2,<
IFE <<
2`..MX1>B17-^O77777
37B17>,<
..MX2
3 ==1
HRLOI A,
3@(..MX1-^O777777)>
3`>
IFE ..MX2,<
4
MOVE A,[..
4 MX1]>
>
PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^=
p W
A==C
p@
IF1,<IFDEF %
p`A,<PRINTX ?A ALR
qEADY DEFINED>>
q DEFINE %A (OP,AC
q@,Y,MSK)<
IFDIF
q` <Y><>,<
OP (<A
rC>,B+'Y,MSK)>
r IFIDN <Y><>,<
O
r@P (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg
@ T..OP(A,B,MUL)..OP(A,B[`v
2P ] \MbIF2,<IFDEF \ A,<A==A>> IFNDEF A,<A==B>]F@ p
TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=
X .OTReader
X .OU,Network-Cont
X .OTLPTr
X .OTBtch-Stream
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
Wp X .OTDBM,<DBMS S
X .OTFALtream>
X .OTEVT,<Event>
Xp X .OTFCH,<Microf
X .OTXER,
X .OTNQ-Stream>
,<NQC-Stream>
_SKW u`2
IFNB <>v,<
PRINTX (Frov m GLXVER)
> ;END IFNB
_SMt t *
PRINTX t@GLXVER GLXOTS Edit`t(13) by DPM on 1u4-Apr-88
PRINTXu 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)>
f@.IFNBC<D>,<..XX=
g.IFNBC<E>,<..XX=
h EXP ..XX
h8CIFNB <C>,<EXP
hxEIFB0<C>,<
iSIFNB,<POINT 7,[A
iXFI <D>,<0>
ix IFNBS<E>,<POINT
jX IFB <E>,<0>
jx>IFB><I
kIIFNBX<I>
k8 IFB <J>,<0>
kXJIFNB <J>,<EXP
l,IFB <H>
l8>IFNBP<H>
lXIFB <G>,<0>
lxIFNB <G>,<EXP G>
G>,<EXP Ga@KW
f
IFNB <>
@,<
PRINTX (Fro
`m GLXVER)
> ;END IFNB
a@Mt
`^
PRINTX GLXVER GLXPFH Edi t(16) by TARL on @17-Apr-81
PRINT`X GLXPFH Actual Edit(A)
aDYP a
hQ~LSH A,^D9LSH A,^D9a+= 5a;&
ha6
IFB <
B>,<..STR0(..PNT
(,,<FWMASK>,A)>
H IFNB <B>,<..ST
hR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm
$ R$<POINT WID
$@(B),A,POS(B)>B),A,POS(B)>a?H6 +a?
!`R<^L<<A>&<-<A>>>><<A>&<aJ}Ks VPOF
SALL dh
LSTOF. XCRE eF
%%.GLX== e(%%.GLX
GLXVR eHS==GLXVRS
ehIFNB <A>,<%%.MOD f==SIXBIT/A/>
f(IFNB <B>,<%%.OTS fH==SIXBIT/B/>
fh
GLOB I%INIT
TOPS10 <
g( SEARCH UUOSYM gH
%%UUOS==%%UUO ghS
>
T hOPS20 <
SEA h(RCH MONSYM
; hH%%MONS==%%MONS
>
IFB < iB>,<
IFN G i(LXPUR,<
.TEXT iH |,REL:GLXLIB/SEA ihRCH/REQUIRE:I%INI jT/SEGMENT:LOW|
j( >
DEFINE $ jHDATA (NAM,SIZ<1>) jh,<
NAM: BLOC kK SIZ
>
k(DEFINE CDO (X),<G kHLOB X>
DEFINE kh NT(X),<CDO X>
l LIBVEC
> l(
IFNB <B>, lH<
IFDEF .MC lhRV.,<.VERSION <GL mXVRS>>
CHKEDT m((B)
IFDIF mH<B><INI>,<
mhIFN GLXPURE,<.PSE nCT .HIGH.>
IF n(E GLXPURE,<
nH TWOSEG 400000
nh RELOC 0
R oELOC 400000
> o(
DEFINE $ oHDATA(NAM,SIZ<1>), oh<
IFN GLXPUR pE,<.PSECT DATA>
IFE GLXPURE,< pHRELOC>
IFNDE phF B%D,<B%D::! qB%DL==:0>
NAM q(: BLOCK SIZ
qHB%DL==:B%DL+SIZ qh
IFN GLXPURE, r<.ENDPS DATA>
r( IFE GLXPURE,<RE rHLOC>
>
rh IFDIF <B><OTS>, s<
DEFINE CDO s( (X),<GLOB X>
sH DEFINE NT(X),<CD shO X>
LIBVEC t
>
>
IFIDN <B> tH<INI>,<
DEFIN thE $DATA (NAM,SIZ< u1>),<
NAM: B u(LOCK SIZ
>
>
>
L uhSTON.
GLO vB <.POPJ, .RETT, v(.RETF>
OPDEF $ vHRET [POPJ P,]
vhOPDEF $RETT [PJRS wT .RETT]
OPDEF w( $RETF [PJRST .RE wHTF]
OPDEF $RET whIT [JUMPT .POPJ] x
OPDEF $RETIF [ x(JUMPF .POPJ]
. xHNODDT $RET,$RETT, xh$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 s
IFNB <>s@,<
PRINTX (Fros`m GLXVER)
> ;END IFNB
gpMt q`
PRINTX rGLXVER GLXSCN Edir t(135) by DPM on r@19-Apr-88
PRINTr`X GLXSCN Actual Edit(A)
gtYP .g"@ Z`]f
IFN <<.[.TA>&B>,<PRINTX[ ?Initial field n[@ot zero in $SET>
\..TVAL==<C>
\ ..TMSK==<B>
..TA==..TA!\@<FLD(..TVAL,..TMS\`K)>
PURGE ..TVAL,..TMSK
.TgtXrP gv
[P"g#=ztPp%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 @XV
..STKR=`=10
RADIX 8
..STKN==0
IRP A,<
.STKV1 ( @A)>
$CALL .STK `ST
..STKN,,..S
TKN
RADIX ..STK
R
DEFINE ENDSV.
@<.ENSV1 <A>>
P
`URGE ..STKN,..STKR,..STKQ
TKgR~r cX^U
.TYPE=cx=-1
IFIDN <dB><HALT>,<.TYPE==d80>
IFIDN <B><dXCONT>,<.TYPE==1> dx
IFIDN <B><DEBeUG>,<.TYPE==2>
IFL .TYPE,< eX
IF2,<PRINTX ? exStopcode A is inf error; see S..Af8 in CREF>
S..A:fX:JRST 4,.
> fx
IFB <A>,<g
IF2,<PRINTXg8 ? Stopcode with gXout a A; see S..gx in CREF>
S..:: hJRST 4,.
> h8
IFGE .TYPE,hX<
S..A::PUShxHJ P,.DIE
CAiI .TYPE,[
<Si8IXBIT /A/>&77777iX7000000
EXP %%ix.MOD
EXP C j
EXP [ASCIZ |j8D|]
]
>jX
PURGE .TYPE
URGE .gR~) 0@[
IFNB <0`C>,<..STR0 (..DPB1,A,C,B)>
IFB1 <C>,<MOVEM A,B>>,<MOVEM A,gV
? Sz..AS(A,B,SUB,ADD)(A,Bgg
V y(OP
IFNB < yHB>,<TOPS10<A==B yh>>
IFNB <C>,<T zOPS20<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( Ex|/IFN FTUUOS,B ;DEFINE UNi?4H F8|3IFN FTJSYS, INTERN AEDT iD |x_s
IFNB} <A>,<.TQCHA==^}8D<B>B17+ZZ>
I}XFNB <D>,<DEFINE}x ..TQMA<D>>
~IFNB <C>,<.TQC=~8=^D<B>B17+ZZ>
ZZ==ZZ+1ZZ>
iG, rx_c
LSTOF.
TQ(T,2,ASCIZ) s8
TQ(O,2,OCTAL)sX
TQ(D,2,DECIsxMAL)
TQ(F,2,tFILE)
TQ(7,2t8,CSEVEN)
TQ(tX6,2,CSIXBIT)
tx TQ(W,2,SIXBIT) u
TQ(5,2,SVNBITu8)
TQ(P,2,USEuXR)
TQ(U,2,DIuxRECTORY)
TQ(vH,2,DAYTIME)
v8 TQ(C,2,TIME)
TQ(E,2,ERROR) vx
TQ(I,1,INDIREwCT)
TQ(M,0,CRw8,..TXC0(\".CHCRT)wX)
TQ(J,0,LF,..wxTXC0(\".CHLFD))
TQ(L,0,FF,..TXCx80(\".CHFFD))
TxXQ(K,0,VT,..TXC0(\xx".CHVTB))
TQ(Ay,0,NOCRLF,..TXA(.y8TQCHA))
TQ(0,0yX,NULL,..TXA(.TQCHyx0))
TQ(3,0,STRzING,..TXER(IQU)) z8
TQ(V,2,VERSIONzX)
TQ(2,0,CARzxET,..TXER(IQU))
TQ(Q,2,POINTER){8
TQ(B,2,ROB){X
TQ(1,2,OBJE{xCT)
TQ(N,2,N|ODE)
TQ(R,2,|8JIB)
LSTON.
)
LSTON.
(lm
LSTOF.
9X(33,TTY33,33,.
9X(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,
?TOPS10< X(VT101,V
@X(VT102,VT102,102,
TOPS10< X(VT103,SET
BX(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10< XVT185,185,
FX(VT220,VTETTLC,<.
GX(V40,VT240,240,SE
HX(VT330,VT330<.CHE
IX(VT3440,340,SETTL
JPSX(VT50,VT50,V50,
KX(VT52,VT52,V52C,"
TOPS10< X(VT61,LC,<
LSTON.
>
LSTONiK,PA iK4@ Y
..TRR== 10
RADIX 8
@..NV==1
IRP `A,<
.TRV1 (A)>
$CALL .TR SET
..NV-1,,@..NV-1
RADIX ..`TRR
PURGE ..TRR,..NVURGE ..Tib
X UB
..TX(C,A,<B>)..TX(Cib
Y`UN
..TX(CA,A,<B>).TX(CibP
X`UF
..TX(CE,A,<B>).TX(Cib`
Y UJ
..TX(CN,A,<B>).TX(Cibp
R U
..TX(N,A,<B>)..TX(Nibt
S`U
..TX(NA,A,<B>).TX(NibtP
R`U
..TX(NE,A,<B>).TX(Nibu`
S U
..TX(NN,A,<B>).TX(Nibx
T U"
..TX(O,A,<B>)..TX(Oib|
U`U.
..TX(OA,A,<B>).TX(Oib|P
T`U&
..TX(OE,A,<B>).TX(Oib}`
U U*
..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 1@4-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
V U2
..TX(Z,A,<B>)..TX(ZicT
W`U>
..TX(ZA,A,<B>).TX(ZicTP
V`U6
..TX(ZE,A,<B>).TX(ZicU`
W U:
..TX(ZN,A,<B>).TX(ZkR`KW @(
IFNB <>`,<
PRINTX (From GLXVER)
> ;END IFNB
kR`Mt
PRINTX GLXVER GLXUTL Edi@t(2) by DPM on 4-`Dec-85
PRINTX GLXUTL Actual Edit(A)
kRdYP mKc@ FXN$BYTE (3)A d@WHO (9)AVER (6)AMIN (18)AEDTo&
! R
<^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 ~X_uA==<ZZ==ZZ+1>
.TTC==.q"eJ P q*-` +
q+= +
q6~i4 C q?
c`V
TXC A,<B>
TXC A,q@ \`MhIFB <C>,< ]A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up 9`[T
IFNB <:B>,<..STR1 (..TQZ: ,,<B>,A,..STR4):@>
IFB <B>,<SETZM A><B>,<SEuhP ;z WPuO
.XCREF Wp.$RESET, .$BUILD
.$RESET
$TYPEX0 (.CMACT)
$HELPXP (<>)
$NEXT (AXp)
IFIDN <B> <>,Y< IRP C,<C>
Y0 .$BUILD>
IFDIF YP<B> <>,<
$HELPYp (B)
IRP C,<C>
.$BUILD>< 0
d(f&
.WTOX.(.OM
dHACK,<A>,<B>,<C
dh>,<D>,<$WTFLG(WT.SJI),E>)LG(WT J7
DEF(INE .$RTN <A>
.%RTN==1A>
D[
IFDIF<<,<.XCREF .%
DEFNE[.$HLPM<POINT
.%HLPM==-1>
fI9XCREF .%L
DEF.$LST <A+1>
.%LST==11>
=Z K`\f
IFG LA-INT.LV,<PRINTX L ?Level A interruL@pts not supportedL`>
ho.BGINT.(\A)B .BGINT.(\A X5
DINE .$BREA <A>
.%BREA==1> - N@]
IFDEFN` ..BSIZ,<PRINTX ?OMissing $EOB afteO r a $BUILD>
.O@.BSIZ==0
.O`.BLOC==.
RPEPEAT A,<
P BLD0.(\..BSIZ,0) P@
..BSIZ==..BSIZ+1>
==..BSI }[0 ;Pse
.XCREF ;p.$RESET, .$BUILD
.$RESET
$TYPE<0 (.CMCMA)
$NEXT<P (A)
IRP B,<B>
.$BUILD,< I@ 7sA
.XCREF 70.$RESET, .$BUILD
.$RESET
$TYPE7p (.CMCFM)
IRP 8A,<A>
.$BUILD,<A>
.$BUILD $^ DPt7
.XCREF Dp.$RESET, .$BUILD
.$RESET
$TYPEE0 (.CMTXT)
$HELPEP (<>)
$NEXT (AEp)
IFIDN <B> <>,F< IRP C,<C>
F0 .$BUILD>
IFDIF FP<B> <>,<
$HELPFp (B)
IRP C,<C>
.$BUILD>< I G0tE
.XCREF GP.$RESET, .$BUILD
.$RESET
$TYPEH (.CMTAD)
$PDATH0A (CM%IDA)
$NEXHPT (A)
IRP B,<B>
.$BUILD,< ,,U M`\p
$RET N ;WILL INVOKE RIGHT ROUTINE
,h:
IFDIF<<,<.XCREF .%
DEFNE[.$DEFM<POINT
v( .%DEFM==1>
IFIDN <A> <>,<
IhF1 <
PRINTXg%Nult in $DEFAULT macro>>DE .` Ct!
.XCREF C0.$RESET, .$BUILD
.$RESET
$TYPECp (.CMDEV)
$NEXTD (A)
IRP B,<B>
.$BUILD,< Lz: #Pr1
.XCREF #p.$RESET, .$BUILD
.$RESET
$TYPE$0 (.CMNUX)
$PDAT$PA (B)
$HELP (<$p>)
$NEXT (A)
%IFIDN <C> <>,< I%0RP D,<D>
.$%PBUILD>
IFDIF <C%p> <>,<
$HELP (&C)
IRP D,<D>
.$BUILD><D>
.XCREF 8p.$RESET, .$BUILD
.$RESET
$TYPE90 (.CMDIR)
$NEXT9P (A)
IRP B,<B>
.$BUILD,< | U@]H
IFNDEU`F ..BSIZ,<PRINTX V?$EOB without preV vious $BUILD>
V@ IFN <.-..BLOC>,<V`PRINTX ?Address cWhange between $BUW ILD and $EOB>
W@ LSTOF.
..W`T==0
REPEAT .X.BSIZ,<
BLDX 0.(\..T,1)
X@ ..T==..T+1 >
X` PURGE ..BSIZ,..YT,..BLOC
LSTON.
hoLST +yE.%E
DINE .$ERTN <A>
.%ERTN==1> ,
DINE>.$ERTN <1B0
.%ERTN==1>
.%ERTN -.
DINE2.$ERTNZ<[MO
> $RET
.%ERTN==1>
.%ERTN==1 IF2,<IFN < ZhA>-.,<PRINTX ? I [LLEGAL $FALL A>>EGAL $FALL A>> H6 8^
$CALL ._XSTOP
LSTOF.
J_xUMP [XWD 0,[ITEXT` (<A>)]
EXP `8%%.MOD]
LSTON. .MOD]
LSTON. L[ 40s5
.XCREF 4P.$RESET, .$BUILD
.$RESET
$TYPE5 (.CMFLD)
$NEXT50 (A)
$HELP (<>5P)
IFIDN <B> <>,5p< IRP C,<C>
6 .$BUILD>
IFDIF 60<B> <>,<
$HELP6P (B)
IRP C,<C>
.$BUILD>< MI 1Ps
.XCREF 1p.$RESET, .$BUILD
.$RESET
$TYPE20 (.CMFIL)
$HELP2P (<>)
$NEXT (A2p)
IFIDN <B> <>,3< IRP C,<C>
30 .$BUILD>
IFDIF 3P<B> <>,<
$HELP3p (B)
IRP C,<C>
.$BUILD>< dy
DINE .$FLGS <A>
.%FLGS==1> ex: @0t
.XCREF @P.$RESET, .$BUILD
.$RESET
$TYPEA (.CMFLT)
$HELPA0 (<>)
$NEXT (AAP)
IFIDN <B> <>,Ap< IRP C,<C>
B .$BUILD>
IFDIF B0<B> <>,<
$HELPBP (B)
IRP C,<C>
.$BUILD>< $ Lpts
.XCREF M.$RESET, .$BUILD
.$RESET
$TYPEMP (.CMTAD)
$PDATMpA (<CM%IDA!CM%ITMN!CM%FUT>)
$NEXTN0 (A)
IRP B,<B>
.$BUILD,< $ ^H]wQ(
INTER^xN A
$DATA(A,<B>)
ATA(A}]p1P "
IFDIF<<,<.XCREF .%
DEFNE[.$HLPM<POINT
.%HLPM==1>
&5 ,rs
.XCREF ,0.$RESET, .$BUILD
.$RESET
$TYPE,p (.CMIFI)
$HELP- (<>)
$NEXT (A-0)
IFIDN <B> <>,-P< IRP C,<C>
-p .$BUILD>
IFDIF .<B> <>,<
$HELP.0 (B)
IRP C,<C>
.$BUILD>< &u >ps
.XCREF ?.$RESET, .$BUILD
.$RESET
$NEXT?P (A)
$TYPE (.C?pMINI)
IRP B,<B>
.$BUILD,< ./ pr
.XCREF .$RESET, .$BUILD
.$RESET
$TYPEP (.CMKEY)
$PDATpA (B)
$NEXT ( A)
IRP C,<C>
.$BUILD,<C>
.XCREF 0.$RESET, .$BUILD
.$RESET
$TYPEp (.CMKEY)
$PDATA (A)
$NEXT (00)
IRP B,<B>
.$BUILD,<B>
/>Ky
gf:.WTOX.(.OM
g(WTR,,,,<A>,<$WTFLG(WT.KIL),B>) 2|p
f(f4.WTOX.(.OM
fHLOG,<A>,<B>,<C>,,<D>)B>,<C :/
DEF.$NXT <A>
.%NXT==1A>
:|KV TPu9
.XCREF Tp.$RESET, .$BUILD
.$RESET
$TYPEU0 (.CMNOD)
$HELPUP (<>)
$NEXT (AUp)
IFIDN <B> <>,V< IRP C,<C>
V0 .$BUILD>
IFDIF VP<B> <>,<
$HELPVp (B)
; $FLAGS (WCM%PO)
IRP C,<C>
.$BUILD>< :}r &PrA
.XCREF &p.$RESET, .$BUILD
.$RESET
$TYPE'0 (.CMNOI)
$PDAT'PA (<POINT 7,[ASCI'pZ\B\]>)
$NEXT ((A)
IRP C,<C>
.$BUILD,<C ;-XR Pr
.XCREF p.$RESET, .$BUILD
.$RESET
$TYPE!0 (.CMNUM)
$PDAT!PA (B)
$HELP (<!p>)
$NEXT (A)
"IFIDN <C> <>,< I"0RP D,<D>
.$"PBUILD>
IFDIF <C"p> <>,<
$HELP (#C)
IRP D,<D>
.$BUILD><D>
.XCREF /.$RESET, .$BUILD
.$RESET
$TYPE/P (.CMOFI)
$NEXT/p (A)
$HELP (<>0)
IFIDN <B> <>,00< IRP C,<C>
0P .$BUILD>
IFDIF 0p<B> <>,<
$HELP1 (B)
IRP C,<C>
.$BUILD>< B$
DINE .$DATA <A>
.%DATA==1> B$YP
DINE<.$DEFM <POI
.%DEFM==1>
.% CYT hp
.XCREF .%DEFR, .$DEFR
D(EFINE .$DEFR <A>
.%DEFR==1> G-} Npu
.XCREF O.$RESET, .$BUILD
.$RESET
$TYPEOP (.CMQST)
$HELPOp (<>)
$NEXT (AP)
IFIDN <B> <>,P0< IRP C,<C>
PP .$BUILD>
IFDIF Pp<B> <>,<
$HELPQ (B)
IRP C,<C>
.$BUILD>< J.I ](]n
$CALL]H .RETE
LSTO]hF.
JUMP ERA$
LSTON.ERA$ Ni ZV
.NVR==0@
.ACM==0
IRP A,<
..TSAC(.ACB,A)
IFN .ACB,<.A@CM==.ACM!1B<A>> `
IFE .ACB,<
IFE .NVR,<
PUSHJ P,[@
>
..`PUSH(A,\<.NVR+1>)>>
IFE . NVR,<
IFN .ACM@,<
IFE <.A`CM-17B<T4>>,<.ACM==0
$CALL .S AVET>
IFE <@.ACM-377B<.A16>>,`<.ACM==0
$CA LL .SAVE8>
IFE <.ACM-17B<P4> @>,<.ACM==0
$ `CALL .SAVE4>
! IFE <.ACM-7B<P3! >>,<.ACM==0
!@$CALL .SAVE3>
!` IFE <.ACM-3B<P"2>>,<.ACM==0
" $CALL .SAVE2>
"@ IFE <.ACM-1B<"`P1>>,<.ACM==0
# $CALL .SAVE1>
#` IFE <.ACM-1B#@<.A13>>,<.ACM==0
$CALL .SV13>$
IFE <.ACM-$ 1B<.A14>>,<.ACM==$@0
$CALL .SV1$`4>
IFE <.AC%M-1B<.A15>>,<.ACM% ==0
$CALL .S%@V15>
IFE <.%`ACM-1B<.A16>>,<.A&CM==0
$CALL & .SV16>
>>
&@
IFN .ACM,<
&` IFE .NVR,< '
PUSHJ P,[
' >
.ACB='@=0
REPEAT ^D'`16,<
IFN( <.ACM&1B<.ACB>>,( <
..PUSH(\.AC(@B,\<.NVR+1>)>
(`.ACB==.ACB+1>>
IFN .NVR,<
) PUSHJ P,@-.NVR()@P)
TRNA
)` AOS -1-.NVR(P) *
REPEAT .NV* R,<..POP(\.NVR)> *@
ADJSP P,-1
POPJ P,]>
POPJ P,]>
N;CREF .%S
IFD <A><>,<DEFINE
.%SBCM==1
>
.%SBCM==1
N.@ Q]
IFNDEQ F ..BSIZ,<PRINTX Q@?$SET without preQ`vious $BUILD>
R IFNB <B>,<..STRR 0 (..SET,<C>,B,R@A)>
IFB <BR`>,<..STR0 (..SET,S<C>,FWMASK,A)>
,FWMASK,A)>
.XCREF _pa, b
a==.
`XWD b-1,b-1
D`0EFINE $ETAB <.XCR`PEF a, b
b==.-a>b
b== O%| k^i
IF1,<PRIk8NTX % Use STOPCD kXmacro for stopcodkxe A instead of $lSTOP>
S..A::! $l8CALL .STOP
LSTlXOF.
JUMP [XWD lx'A',[ITEXT (<B>m)]
EXP %%.MOD]
LSTON. MOD O,(v =ss
.XCREF =0.$RESET, .$BUILD
.$RESET
$NEXT=p (A)
$TYPE (.C>MINI)
$SBCM (B>0)
IRP C,<C>
.$BUILD,<C>
O= *0r]
.XCREF *P.$RESET, .$BUILD
.$RESET
$TYPE+ (.CMSWI)
$PDAT+0A (A)
$NEXT (0+P)
IRP B,<B>
.$BUILD,<B>
O= (PrO
.XCREF (p.$RESET, .$BUILD
.$RESET
$TYPE)0 (.CMSWI)
$PDAT)PA (B)
$NEXT ()pA)
IRP C,<C>
.$BUILD,<C>
@ Jptc
.XCREF K.$RESET, .$BUILD
.$RESET
$TYPEKP (.CMTAD)
$PDATKpA (<CM%IDA!CM%ITML>)
$NEXT (A)
L0 IRP B,<B>
.$BUILD,<B>
.$ R/mX^u
$CALL Tmx%TEXT
LSTOF. XCnREF
JUMP [XWD 2n8,0
EVL (A)
nX ITEXT(<B>)]
LSTON.B>)]
.XCREF I0.$RESET, .$BUILD
.$RESET
$TYPEIp (.CMTAD)
$PDATJA (CM%ITM)
$NEXJ0T (A)
IRP B,<B>
.$BUILD,< R}97 Z0u_
.XCREF ZP.$RESET, .$BUILD
.$RESET
$TYPE[ (.CMTOK)
$PDAT[0A (<POINT 7,[ASCI[PZ\B\]>)
$NEXT [p(A)
IRP C,<C>
.$BUILD,<C S
X_y
..TX
hA(.TQA,C,D,E,~xB)
IFN .8.TXEF,<
..TERR<$TQ(A,B,C,D,E)>>
C, S@I9
Had
LSTOF.
h
X(UQU,Unknown q
ualifier)
X(IQU
(,Invalid qualifie
Hr)
X(IJA,Invali
hd justification a
rgument)
X(IWA,
(Invalid width arg
Hument)
X(PEA,Pr
hemature end of ar
gument)
X(JNA,J
(ustification is n
Hot allowed)
X(A
hNA,Arguments are
not allowed)
X(
(ADS,Address must
Hbe specified)
LSTON.
ied)
L SN .REF .%T
DEE .$TYP <A>
.%TYPE==1>
W= QPu!
.XCREF Qp.$RESET, .$BUILD
.$RESET
$TYPER0 (.CMUQS)
$HELPRP (<>)
$NEXT (ARp)
$PDATA (B)
SIFIDN <C> <>,< IS0RP D,<D>
.$SPBUILD>
IFDIF <CSp> <>,<
$HELP (TC)
IRP D,<D>
.$BUILD><D>
.XCREF :0.$RESET, .$BUILD
.$RESET
$TYPE:p (.CMUSR)
$NEXT; (A)
IRP B,<B>
.$BUILD,< ^+@ `x^
IFE %%.OaTS,<DEFINE $WARN a8(MSG) <
$TEXT aX(T%TTY,<% ^W6/[%%ax.MOD]/ MSG>)>>
IbFN %%.OTS,<DEFINEb8 $WARN (MSG) <
bX $TEXT (T%TTY,<% bx^W6/IIB+IB.PRG/ ^cW/[%%.MOD]/ MSG>)>>
$WARN <A> _$r
X(eT
IFB <
XHA>,<.WFACD==0
Xh IFN <0-2>,<.$WAC
YD==0>>
IFNB <
Y(A>,<.WFACD==-1
YH IFN <0-2>,<.$WA
YhCD==.$WACD!<A>>
Z
IFE <0-2>,<DE
Z(FINE .$WACD,<<WO.
ZHACD>B8+[ITEXT (<A>)]>>
>
< _$u
M(d|
IFB <
MHA>,<.WFACK==0
Mh IFN <0-2>,<.$WAC
NK==0>>
IFNB <
N(A>,<.WFACK==-1
NH IFN <0-2>,<.$WA
NhCK==.$WACK!<A>>
O
IFE <0-2>,<DE
O(FINE .$WACK,<<WO.
OHACK>B8+[ITEXT (<A>)]>>
>
< _$+
?f
IFE <.W
?(FMTY>,<PRINTX ?No
?H message type in
?h$WTBLD>
DEFINE .
@EAWTO(SUFFIX,ARGC
@(OD),<
IFN .WF'SU
@HFFIX',<
IFE <AR
@hGCOD-0>,<<WO.'SUF
AFIX'>B8+ .$W'SUFF
A(IX'>
IFE <ARGCO
AHD-1>,<<WO.'SUFFIX
a('>B8+ [EXP .$W'SU
aHFFIX']>
IFE <AR
ahGCOD-2>,<.$W'SUFF
bIX'>
>
>
ALLW
b(TO
EXP 0
EXP 0 _$k
Pe
IFB <
P(A>,<.WFFLG==0
PH IFN <1-2>,<.$WFL
PhG==0>>
IFNB <
QA>,<.WFFLG==-1
Q( IFN <1-2>,<.$WF
QHLG==.$WFLG!<A>>
Qh
IFE <1-2>,<DE
RFINE .$WFLG,<<WO.
R(FLG>B8+[ITEXT (<A>)]>>
>
< _%(W
UHe>
IFB <
UhA>,<.WFJBN==0
V IFN <0-2>,<.$WJB
V(N==0>>
IFNB <
VHA>,<.WFJBN==-1
Vh IFN <0-2>,<.$WJ
WBN==.$WJBN!<A>>
W(
IFE <0-2>,<DE
WHFINE .$WJBN,<<WO.
WhJBN>B8+[ITEXT (<A>)]>>
>
< _%YV
]hf
IFB <
^A>,<.WFMFL==0
^( IFN <1-2>,<.$WMF
^HL==0>>
IFNB <
^hA>,<.WFMFL==-1
_ IFN <1-2>,<.$WM
_(FL==.$WMFL!<A>>
_H
IFE <1-2>,<DE
_hFINE .$WMFL,<<WO.
`MFL>B8+[ITEXT (<A>)]>>
>
< _%]
B(d$
IFB <
BHA>,<.WFMTY==0
Bh IFN <0-2>,<.$WMT
CY==0>>
IFNB <
C(A>,<.WFMTY==-1
CH IFN <0-2>,<.$WM
ChTY==.$WMTY!<A>>
D
IFE <0-2>,<DE
D(FINE .$WMTY,<<WO.
DHMTY>B8+[ITEXT (<A>)]>>
>
< _%kr
Rhe(
IFB <
SA>,<.WFNOD==0
S( IFN <0-2>,<.$WNO
SHD==0>>
IFNB <
ShA>,<.WFNOD==-1
T IFN <0-2>,<.$WN
T(OD==.$WNOD!<A>>
TH
IFE <0-2>,<DE
ThFINE .$WNOD,<<WO.
UNOD>B8+[ITEXT (<A>)]>>
>
< _%p
bhf.WTOX.(.OM
cWTO,<A>,<B>,<C>,,<D>)B>,<C _%xU
JHdf
IFB <
JhA>,<.WFOBJ==0
K IFN <0-2>,<.$WOB
K(J==0>>
IFNB <
KHA>,<.WFOBJ==-1
Kh IFN <0-2>,<.$WO
LBJ==.$WOBJ!<A>>
L(
IFE <0-2>,<DE
LHFINE .$WOBJ,<<WO.
LhOBJ>B8+[ITEXT (<A>)]>>
>
< _%xr
[ej
IFB <
[(A>,<.WFOCD==0
[H IFN <0-2>,<.$WOC
[hD==0>>
IFNB <
\A>,<.WFOCD==-1
\( IFN <0-2>,<.$WO
\HCD==.$WOCD!<A>>
\h
IFE <0-2>,<DE
]FINE .$WOCD,<<WO.
](OCD>B8+[ITEXT (<A>)]>>
>
< _%z@
e(f..WTOX.(.OM
eHWTO,<A>,<B>,<C
eh>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB _%|@
cHf
.WTOX.(.OM
chWTR,<A>,<B>,<C>,<D>,<E>)<C _&,z
Bf
DEFINE
Ah.EAWTO(SUFFIX),<$
`HWT'SUFFIX' <>>
ALLWTO
_&N
GhdP
IFB <
HA>,<.WFTXT==0
H( IFN <2-2>,<.$WTX
HHT==0>>
IFNB <
HhA>,<.WFTXT==-1
I IFN <2-2>,<.$WT
I(XT==.$WTXT!<A>>
IH
IFE <2-2>,<DE
IhFINE .$WTXT,<<WO.
JTXT>B8+[ITEXT (<A>)]>>
>
< _&N8
Ed:
IFB <
E(A>,<.WFTYP==0
EH IFN <2-2>,<.$WTY
EhP==0>>
IFNB <
FA>,<.WFTYP==-1
F( IFN <2-2>,<.$WT
FHYP==.$WTYP!<A>>
Fh
IFE <2-2>,<DE
GFINE .$WTYP,<<WO.
G(TYP>B8+[ITEXT (<A>)]>>
>
<
t{P
u[rQ ]>t2
u}P
,MP (V=P .
P .JP .bP /P B&@P cGP )0 p0h"P/Z6 0qe
.XPCREF a, b, c, pd
.XCREF .%T
YPE, .%FLGS, .%DA
0TA, .%HLPM, .%DEF
PM, .%LST
.XCREF
p .$TYP, .$FLGS, .
.REF .%BREA, .%N, .%DEFR, .%SBCM
.XCREF .$BREA, P.$NXT, .$ERTN, .$pRTN, .$DEFR, .$SBCM
d==<FLD(.0$TYP,CM%FNC)>!.$FPLGS!<.$LST>
pIFN <.%BREA>,<d==d!CM%BRK>
0IFG <.%HLPM>,<d=P=d!CM%HPP!CM%SDHp>
IFL <.%HLPM>,<d==d!0CM%HPP>
IFN <.%DEFM>,p<d==d!CM%DPP>
c:! <INSVL.(0b,PB.PDB)>!<INSVLP.(a,PB.FDB)> ;PDpB, FDB
EXP d
EXP .$DATA 0
IFN <.%HLPM!.%DPEFM!.%BREA>,<
EpXP .$HLPM>
IFN <.%DEFM!.%BREA>0,<
EXP .$DEFM> P
IFN <.%BREA>,p<
EXP .$BREA>
a==.-c 0
IFN <.%NXT!.%PDEFR!.%RTN!.%ERTNp!.%SBCM>,<
EXP .$NXT >
IFN <0.%DEFR!.%RTN!.%ERPTN!.%SBCM>,<
EXpP .$RTN >
IFN <.%DEFR!.%ERTN!.0%SBCM>,<
EXP .$PERTN>
IFN <.%pDEFR!.%SBCM>,<
EXP .$DEFR>
I0FN <.%SBCM>,<
EPXP .$SBCM>
p b==.-c
IF2,<
PURGE .%TY0PE, .%FLGS, .%DATPA, .%HLPM, .%DEFMp, .%LST
PURGE .$TYP, .$FLGS, .$D0ATA, .$HLPM, .$DEPFM, .$LST
PURpGE .%BREA, .%NXT, .%ERTN, .%RTN, .0%DEFR, .%SBCM
PPURGE .$BREA, .$NXpT, .$ERTN, .$RTN, .$DEFR, .$SBCM
0
PURGE a, b, Pc, d
>
LIST, d
>
LIST$YVHpPOINTr7,[ASCIZ\0\]NT 7,[A$YY p 0lbP.- p0MBP65Iy p0="P)f= p0+1P5w
.XCREF
SALL
XLIST
PDEFINE .$TYP <0>
.%TYPE==0
DEFINE .$FLGS <0>
0.%FLGS==0
DEFINPE .$DATA <0>
.%pDATA==0
DEFINE .$HLPM <>
.%HLP0M==0
DEFINE .$DPEFM <0>
.%DEFM=p=0
DEFINE .$LST <0>
.%LST==0
0 DEFINE .$BREA <0P>
.%BREA==0
DpEFINE .$NXT <0>
.%NXT==0
DEFIN 0E .$ERTN <0>
.% PERTN==0
DEFINE p.$RTN <0>
.%RTN
==0
DEFINE .$DE
0FR <0>
.%DEFR==
P0
DEFINE .$SBCM
p <0>
.%SBCM==0
.CREF
CM==0p0kBP' k0T 1,O)0P $YVP $YYP .-P 5IyP f=P w
A`T:
..AS
B1==-<B>
IFDEF
B .PSECT,<
.IFN
B@..AS1,ABSOLUTE,<
B`
C A,[-..
CAS1]>
.IF ..AS
C 1,ABSOLUTE,<
.
C@.AS2==0
IFE
C`<..AS1&^O777777B1
D7>,<
..AS2==1
D
DI A,..A
D@S1>
IFE ..AS2
D`,<
..OP(A,
EB,C)>
PURGE
E ..AS1,..AS2>>
I
E@FNDEF .PSECT,<
E` ..AS2==0
IF
FE <..AS1&^O777777
F B17>,<
..AS2==
F@1
DI A,.
F`.AS1>
IFE ..A
GS2,<
..OP
G (A,B,C)>
PURGE ..AS1,..AS2>:h V8
AKW:
4`Sr
..CX1
5==C
IFDEF .PSE
5 CT,<
.IFN ..CX
5@1,ABSOLUTE,<
5` CAMA B,[C]
6>
.IF ..CX1,ABS
6 OLUTE,<
..CX2
6@==0
IFE <..C
6`X1&^O777777B17>,<
7
..CX2==1
7 CAIA B,C>
7@ IFE ..CX2,<
;`
CAMA B,[
<C]>
PURGE ..CX1
< ,..CX2>>
IFNDEF
<@ .PSECT,<
..CX
<`2==0
IFE <..
=CX1&^O777777B17>,
= <
..CX2==1
=@ CAIA B,C>
=`
IFE ..CX2,<
>
CAMA B,[
> C]>
PURGE ..CX1,..CX2>GE ..CX:&@ 1`[
..TSIZ 2(..PST,C)
.CAS2 E ..PST,<<
MOV2@EM A,B>,<
HR2`RM A,B>,<
HR3LM A,B>,<
DP3 B A,[POINTR (B,C)]>>INTR (B,:<;Y @X@
DEFIN`E ..CNS2 (NEW,OLD)<
OLD>
..CNS ()>
:L;Y X8
DEFIN@E ..CNS (%%%)<
`..CNS2 <%%%>,>
DEFINE ..CNS2 (NEW,OLD)<
DEF@INE ..CNS (%%%)<
..CNS2 <%%%>,<OLD'NEW>>>
OLD'NEW>>>
:dH@ .@[
..TSIZ .`(..PST,C)
.CAS/E ..PST,<<
MOV/ E A,B>,<
HRR/@Z A,B>,<
HLR/`Z A,B>,<
LDB0 A,[POINTR (B,C)]>>INTR (B,:}i1
l@Vf
A==<<<
l`-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~
G`Tj
..OP1
H==B
IFDEF .PSE
H CT,<
.IFN ..OP
H@1,ABSOLUTE,<
H` C A,[..OP1]
I>
.IF ..OP1,ABS
I OLUTE,<
..OP2
I@==0
IFE <..O
I`P1&^O777777B17>,<
J
..OP2==1
J CI A,..OP1>
J@
IFE ..OP2,<
J`
C A,[..O
KP1]>
PURGE ..OP
K 1,..OP2>>
IFNDE
K@F .PSECT,<
..O
K`P2==0
IFE <.
L.OP1&^O777777B17>
L ,<
..OP2==1
L@ CI A,..OP1
L`>
IFE ..OP2,<
M
C A,[.
M .OP1]>
PURGE ..OP1,..OP2>GE ..;m
(a@
..PST==
HC-FWMASK
.IF0
h..PST,<
POINT
0,B,35>,<
POINTR (B,C)>POI;| , Zf
POP P,,@.NVA
PURGE .N,`VA
.NVR==.NVR-1
.NVR==.NVR;\t + Z^
PUSH P+@,A
DEFINE .NV+`B<A>
.NVR==.NVR+1
.NVR==.;] S@](
IFGE S`<<<B>&777777>-..TBSIZ>,<
PRINTXT ?WORD offset greT@ater than $BUILD T`size parameter>
U SET0. (\<B>,C,<A>)
B>,;LH
sW(
IFNDEF
s C,<PRINTX C IS
s@NOT DEFINED
s`A (<B>,D,FWMASK
t)>
IFDEF C,<
t
IFNDEF %C,<
t@ A (<B>,D,C)
t`>
IFDEF %C,<
u
%C (A,<B>,D,C)>>A,<B>,;LH
u@Wf
..NS==0
u`
IRP C,<..N
vS=..NS+1>
IFE
v ..NS,<PRINTX ?EMP
v@TY STRUCTURE LIST
v`, A>
IFE ..NS-
w1,<
..STR0
w (A,<B>,<C>,D)
w@>
IFG ..NS-1,<
w`
..ICNS
.
x.CNS (<E (A,<B
x >,,>)
IRP C,<
x@
IFNDEF C,
x`<PRINTX C NOT DE
yFINED>
IFDEF
y C,<
IFNDEF %
y@C,<
..CNS (<
y`,C,D>)>
IF
zDEF %C,<
%C
z (..STR2,,D,C)>
z@
..CNS (<)>)
z`
..GCNS
{ ..ICNS
.
{ .CNS (<E (A,<B
{@>>)
IFNDEF %
{`C,<
..CNS (<
|,C,D>)>
IF
| DEF %C,<
%C
|@ (..STR2,,D,C)>
|`>>
..CNS (<,,)>)
..GCNS>);LI
} Wj
..CNS (<,C,B>).CNS (;LI
}`X
IFDIF <
~D><F>,<
IFN
~ B <D>,<
A
~@ (<B>,D,..MSK)
~`
IFNB <F>,
<PRINTX C AND E
ARE IN DIFFERENT
@ WORDS>>
..MS
`K==0>
IFNB <F>,<
..MSK=..MSK!<E>>MSK=..;LJ @X
IFDIF <`D><F>,<
IFNB <D>,<
A (<B>,D,..MSK)@>
..MSK==0> `
IFNB <F>,<
..MSK=..MSK!<E>>MSK=..MSK!<;LJ @X&
IFDIF <`D><F>,<
IFNB <D>,<
I FNB <F>,<
@A1 (B,D,..MSK)>`
IFB <F>,<
A2 (B,D ,..MSK)>>
..@MSK==0>
IFNB `<F>,<
..MSK=..MSK!<E>>MSK=;$\Y
(a~
IF1,<
h
PRINTX ? Err
or in "A"
D
XEFINE X(NAM,ERR)
(<IFN ..X'NAM&..TX
HEF,<PRINTX ? ERR>
h>
$TX$ERR>
$TX$ERR>
;$^
!Hb4
..
!hTXF==0
.
".TXB==0
"(..TXP==0
"H ..TXEG==<..TXEF=
"h=0>
IRPC
#A,<
..TXC=
#(=ASCII\A\_-35
#H
IFN ..TXB,<IFN
#h..TXB-..TXC,..CNS
$(<A>)
IFE
$(..TXB-..TXC,..TXB
$H==0>
IFE ..TXB,
$h<..TXQ(<A>,\..TX
%F)>>
..TXC1
%(
IFN ..T
%HXB,<IFN <..TXB-"^
%h">,<..TXER(PEA)>>
&
..TXEF==..T
&(XEF!..TXEG
&H IFN ..TXEF,<..TERR<A>>
,<..TE;&(
8`#..TXA(.TQCH0)..TXA(.TQC;&)
H`,..TXER(IQU)..TXER(IQU;&)
x`'..TXER(IQU)..TXER(IQU;&0
x`..TXA(.TQCHA)..TXA(.TQC;&5
8`..TXC0(\".CHLFD).TXC0(\".;&5
8`..TXC0(\".CHVTB).TXC0(\".;&6
x`..TXC0(\".CHFFD).TXC0(\".;&6
x`..TXC0(\".CHCRT).TXC0(\".;&@ ;[n
..TSIZ ; (..PST,C)
.CA;@SE ..PST,<<
SE;`TZM B>,<
HLL<ZS B>,<
HRRZ< S B>,<
..TS<@AC (..ACT,B)
<` .IF0 ..ACT,<
= $CALL .ZERO
= LSTOF.
JUMP [P=@OINTR(B,C)]
=`LSTON.>,<
..TX (Z,B,C)>>>TX;&81
iV`
IFNDEF
i .PSECT,<
A==0
i@
..TSA1==<Z
i`B>
IFE ..TS
jA1&^O777777777760
j ,<A==1>
>
I
j@FDEF .PSECT,<
j`A==0
..TSA1=
k=<Z B>
.IF .
k .TSA1,ABSOLUTE,<
k@
IFE ..TSA1&^
k`O777777777760,<A
l==1>>
PURGE ..TSA1>
PURGE ..;&:=
g@VD
A==3
g`
IFE <B>+1,<
hA=0>
IFE <B>-
h ^O777777,<A==1>
h@
IFE <B>-^O777777B17,<A==2>7;'
M`U|
..TX1
N==C
IFDEF .P
N SECT,<
.IFN .
N@.TX1,ABSOLUTE,<
N` TDA B,[C]>
O .IF ..TX1,ABSOL
OUTE,<
..TX2==
O@0
IFE <..TX1&
O`^O777777B17>,<
P ..TX2==1
P TRA B,..TX1>
P@IFE ..TX2,<
I
P`FE <..TX1&^O77777
Q7>,<
..TX2==1
Q
TLA B,(.
Q@.TX1)>>
IFE ..T
Q`X2,<
IFE <<
R..TX1>B53-^O77777
Z 7>,<
..TX3
Z@ (A,B)>>
IFE
Z` ..TX2,<
TD
[A B,[..TX1]>
[ PURGE ..TX1,..TX
[@2>>
IFNDEF .PSEC
[`T,<
..TX2==0
\
IFE <..TX1&^O77
\ 7777B17>,<
..
\@TX2==1
TRA
\` B,..TX1>
IFE
]..TX2,<
IFE <
] ..TX1&^O777777>,<
]@
..TX2==1
]` TLA B,(..TX1
^)>>
IFE ..TX2,<
^
IFE <<..TX
^@1>B53-^O777777>,<
^`
..TX3 (A
_,B)>>
IFE ..T
_ X2,<
TDA
_@B,[..TX1]>
PURGE ..TX1,..TX2>;'`
`V
IFIDN <
` A><Z>,<
..
`@TX2==1
ANDI
``B,^-..TX1>
IFI
aDN <A><O>,<
a ..TX2==1
OR
a@CMI B,^-..TX1>
a`
IFIDN <A><C>,<
b
..TX2==1
b EQVI B,^-..TX1>QVI B,^-..TX;'
ha*
..TXE
F==0
IFNDEF
( A,<..TXER(UQU)>
H
IFDIF <B><>,
h<IRPC B,<.IFN <
B>,NUMERIC,..TXER
((IWA)>>
IFNB <C
H>,<IFNDEF .TXTJC
h,<..TXER(IJA)>>
IFDEF A,<
IF
(E <A_-^D18>,<IFD
HIF <EFBCD><>
h,<..TXER(ANA)>>
IFE <1-<A_-^D1
(8>>,<IFDIF <BC
HD><>,<..TXER(JNA)
h>>
IFE <2-<A_
-^D18>>,<IFIDN <
(EF><>,<..TXER(AD
HS)>>>
IF
hE ..TXEF,<
IFID
N <B><>,<..TXWD=
(=<..TXJU==<..TXFC
H==0>>>
IFDIF <
hB><>,<
IFE <^
D<B>>,<..TXWD==<
(..TXJU==<..TXFC==
H0>>>
IFN <^D<
hB>>,<..TXWD==^D<
B>
IFNB <
(C>,<..TXJU==.TXTJ
HC>
IFB <
hC>,<..TXJU==.TXTJ
L
IFE <A
(-.TQOCT>,<..TXJU=
H=.TXTJR>
hIFE <A-.TQDEC>,<
..TXJU==.TXTJR>>
(
IFB <D>,<
H..TXFC==" ">
h IFNB <D>,<..TX
FC=="D">>>
I
(FB <EF>,<..TXP
HT==0>
IFNB <E
hF>,<..TXPT==1>
IFE <..TXWD+..TXP
(T>,<
EXP FL
HD(A,TXT.FN)>
I
hFN <..TXWD+..TXPT
>,<
EXP FLD
((A,TXT.FN)+FLD(.
H.TXJU,TXT.JU)+FLD
h(..TXWD,TXT.WD)+F
LD(..TXFC,TXT.FC)
(+TXT.AD
PNTR(E,F)>>
T;'h
8(cN
IFE
8H..TXP,<
..IC
8hNS
..CNS<ASC
9IZ\>
..TXP==1
9(>
..CNS<A
9H>
..TXF==
9h0
..TXB=="^"
..TXB==;'h
:(cZ
IF
:HN ..TXP,<
..
:hCNS<\>
EXP <F
;LD(.TQCHT,TXT.FN)
;(+[..GCNS]>>
..TXP==0>
;' 9
(b
..TX
HEF==..TXEF!..XA
h
..TXF==0
!
..TXB=="^"
..TXB=="^;'
'b8..TXQB(<A>)..TXQB(<;'
(
'HbB
IF
'hN ..TXC-"^",<..TX
(C0(<A>)>
((IFE ..TXC-"^",<..TXF==1>-"^",<..;'
(
(hbb
IF
)E ..TXC-"^",<..TX
)(C0(<A>)>
I
)HFN ..TXF,<
.
)h.TXF==0
IFDEF
* .TQCHA,<
*( IFDEF ..TQMA,.
*H.TQMA
IFN
*h <.TQCHA_-^D18>,
+<..TXF==2>>>
+( IFE ..TXF-2,<..T
+HXC1(<A>)
..IC
+hNS
..CNS<..T
,XA(.TQCHA,>>
,( ..TXEG==..TXEG!..TXEF==..TXEG;'
)
,hbt
..TX
-F==3
IFG
-(E ..TXC-"0",IFLE
-H..TXC-"9",<..TXF=
-h=2>
IFE ..TX
.F-2,<..CNS(A)>
.(
IFE ..TXF-3
.H,<..CNS<,>
..TXQ3(A)>
;'
)
/c
..TX
/(F==4
IFE
/H ..TXC-"/",<..TXF
/h==5>
IFE .
0.TXC-"[",<..TXF==
0(5>
IFE ..T
0HXF-4,<..CNS<A,>>
0h
IFE ..TXF
1-5,<..CNS<,,>
..TXQ5(A)>
;'
*
1Hc
..TX
1hF==4
IFE
2 ..TXC-"/",..TXF=
2(=5
IFE ..T
2HXC-"[",..TXF==5
2h
IFE ..TXF-5
3,<..CNS<,>
3(..TXQ5<A>>
3H IFE ..TXF-4,<..
3hCNS<A,>
..TXF==5>
..;'
*
4(c0
..TX
4HF==6
IFE
4h ..TXC-"/",..TXB=
5="/"
IFE .
5(.TXC-"[",..TXB=="
5H]"
IFE ..TXB
5h-"]",..CNS<[>
6 IFE ..TXB,..TXF==5 ..TXB,..T;'
+
6Hc>
..TX
6hF==0
IFE
7..TXC-"]",..CNS<]
7(>
..CNS<)>
7H
..GCNS
7h
..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q ;EpQ ;E+PQ ;F 0Q ;F\:Q @
0P
@P
PP
`P d `Y>
.ACV2 (A)
.ACV2 (d@ YH
A=.FPA@C+..NAC
IFB <`B>,<..NAC=..NAC+1>
IFNB <B>,<..NAC=..NAC+B>.d` @YV
IFG A-`.NPAC,<PRINTX ?TOO MANY ACS USED>
IFLE A-4,<
@ $CALL .SAVEA>
IFG A-4,<
$CALL .SAVE8>
@ \B
IFIDN@@ <A><.>,<
@`XMOVEI .SAC,B
A PUSH P,.SAC
>
IFDIF <A@A><.>,<
.IFAA`TM <A>,.BLF4
B .BLF1==0
B IFN .BLF4,<
B@ .IF %A,MACRO,B`<
.BLF1==1>
>
IFNB <C B>,<
.BLF1==1>C@
IFN .BLF1,<C`
LOAD .SADC,A,B
PUSD H P,.SAC
>
D@ IFE .BLF1,< ;ID`F WASN'T A STRUCTEURE REF,
IFE N .BLF4,<
E@ .BLF2==<<Z A>&E`17B17>-<P>B17
F .IF .BLF2,AF BSOLUTE,<
F` F@ IFE .BLF2,<
.BLF1==1G
.BLF3G ==<Z A>&777777
G@ PUSH P,.BLF3-..G`NA(P)>>>>
IFHE .BLF1,<
PUH SH P,A>>
..NA=..NA+1
..
?`[~
.BCAL1 A
.BCAL1
| VpM9
XLIST
W .ORG 0
LIST
.ORG 0
LIST
=Z M \j$CALL I%INTA$CALL I%IN9
e@V6
..CSN==
e`A
..CSC==0
I
fRP B,<
IFE ..C
f SN-..CSC,<
ST
f@OPI
..CAS1 (
f`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 8[J
..PST==8 C-FWMASK
.IF0 8@..PST,<
SOS B8`>,<
$CALL .SO9S
LSTOF.
J9 UMP [POINTR(B,C)]
LSTON.>C}
>(f
.OPCD==
a.OPCD+1
WO.A==.OPCD
G),<
| XMI
XLIST
X8 .....X=.
.ORG
.ORG 0
REPEAT Xx .....X,<EXP 0>
Y PURGE .....X
.ORG
LIST
.v=H X|
IRP A,@<
.ENSV2 (A)> .ENSV2 (A)v=I Y
.ENSV3 (A)
.ENSV3 v=I @Y
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
d V(
..IFT==
d@A
IFE ..IFT,
d`<
B
..IFT==0
e>
IFN ..IFT,<
C>N ..IFT,<&4 H`\Z
IRPC AI,<
B==0
IFGEI "A"-"A",<IFLE "I@A"-"Z",<B=1>>
IFGE "A"-"0",<JIFLE "A"-"9",<BJ =1>>
IFE "A"-"J@%",<B=1>
IFE "J`A"-"$",<B=1>
KIFE "A"-".",<B=K 1>
IFE B,<STOPI>>IFE B,<STOP&t<H 5[2
..PST==5 C-FWMASK
.IF0 5@..PST,<
AOS B5`>,<
$CALL .AO6S
LSTOF.
J6 UMP [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
%@R,<A>B<^D70-POS(B)>B<^D70N
0PO
SYSPRM C
IFG .PID,<MX.PID==A>
<MX.PID=O%=H XZ
.STKV2 (A)
.STKV2 O%=I `Xh
IFB <B
>,<..STKN==..STKN
+1>
IFNB <B>,<
@..STKN==..STKN+B
`>
..STKQ==..STK
.STKV3(A,\..STKQ)V3 (A,O%=I
` IFDEF A,SYMBOL,<PRINTX STKVAR A ALREADY DEFINE@D>>
DEFINE A<-`^OB(P)>
$A==<Z A>>
$A==<RJP RJP RJ P RJ P RJJP RJP RJ
P RJ$HP RJ%P 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@ `Y$
.TRV3 (A,\..NV)
IFB <B>,<..NV=..NV+1@>
IFNB <B>,<..NV=..NV+B>,<..Sd` Y2
IFDEF A,<.IF A,SYMBO@L,<PRINTX TRVAR `A ALREADY DEFINED>>
DEFINE A<^O B(.FP)>
$A==<Z A>>
$A==<S"P S"P S" P S" P S"JP S"P S"
P S"$HP S"%P 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 _%~
ghfZ
$CALL
hI%WTO
LSTOF.
h(
JRST g
hH
$WTRST
IF
hhNB <A>,<$WTMTY (
i<A>)>
IFNB <
i(B>,<$WTTYP (<B>)
iH>
IFNB <C>,<$
ihWTTXT (<C>)>
jIFNB <D>,<$WTOBJ
j( (<D>)>
IFNB
jH<E>,<$WTACK (<E
jh>)>
IRP F,<
kF>
$WTBLD
k(
g:!
LSTON. g:!
LSTON. kPP >}{woP