Trailing-Edge
-
PDP-10 Archives
-
bb-bt99r-bb
-
glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,UZ@P C4@ Y<
..NAC==(0
IRP A,<
H .ACV1 (A)>
.ACV3 (\..NAC)C'
?Sx..AS(A,B,ADD,SUB)(A,BC,
PRLSH A,-^D9LSH A,-^DC2f}
<cs
.EAWTO(
<0MTY,0)
.EAWTO(T
<PYP,2)
.EAWTO(TX
<pT,2)
.EAWTO(OBJ
=,0)
.EAWTO(ACK,
=00)
.EAWTO(FLG,1
=P)
.EAWTO(NOD,0)
=p
.EAWTO(JBN,0)
>
.EAWTO(ACD,0)
>0 .EAWTO(OCD,0)
.EAWTO(MFL,1)
C:'
cHV
TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
..NA==0>h
IRP B,<
? .BCAL2 B>
?(PUSHJ P,A
AD?HJSP P,-..NA
P,-..NA
E2"@ Yh]T
IFE ZB,<..TA==0>
Z(IFN B,<EXP ..TAZH
PURGE ..TA>
PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@
8S@
..CX(,A,B) ..CGD
;HS\
..CX(A,A,B) ..CGDP
9HSL
..CX(E,A,B) ..CGDp
:SP
..CX(G,A,B) ..CGDy
:HST
..CX(GE,A,B) ..CGE@
8HSD
..CX(L,A,B) ..CGEI
9SH
..CX(LE,A,B) ..CGE`
;SX
k..CX(N,A,B) ..CGH
OLST
X CRE
/p X GEN
X PRT
X CLS
X A
X USW
0X SPL
X SIZ
X MOD
X CH
X ACT
X CRY
X DTY
X DTO
X DCC
X BSZ
X SZ
X HSZ
2 X RFM
X RFO
X RSZ
X B
X FFB
pX ACW
X RMS
X MCY
X CT
X NSB
LSTON.
G"\Y N}
IF1, N(<%%EDT==AEDT>
NH
IF2, <IFN <%%ENhDT-AEDT>,<
PROINTX ? Edit NumbeO(r Doesn't Match GOHLXVER in GLXA
Oh A$WHO(\AEDT)> P
A$NOTE
IP(NTERN AEDT
IPHNTERN LODLEV
;Ph PURGE %%EDT> ;END IF2
[ 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 nPy
IFNB <>np,<
PRINTX (Froom GLXVER)
> ;END IFNB
G>hMt mq
PRINTX m0GLXVER GLXCOM EdimPt(63) by DPM on 9mp-Aug-88
PRINTX n GLXCOM Actual Edit(A)
G>lYP G>vC@ `(N
LALL
PAGE `H; (A Continued o `hn next page)
SAL aL; (A Continued a(from previous page) previous pagG?T XM@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 7[>
IFNB <7(B>,<..STR0 (.DECR7H0,,<B>,A)>
IF7hB <B>,<SOS A> <B>,<SOS A>I6=
mHW
A==<-1
mhB<C>+1B<C-D>>
n
IF1,<IFDEF %A
n(,<PRINTX ?A ALRE
nHADY DEFINED>>
D
nhEFINE %A (OP,AC,
oY,MSK)<
IFDIF
o(<Y><>,<
OP (<AC
oH>,B+'Y,MSK)>
I
ohFIDN <Y><>,<
OP
p (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7
AHT
..OP(A,B,DIV)..OP(A,BIOH1 ]Xuw
IFB <D]x>,<
XWD [ASCIZ\^C\],[XWD B,A]>^8
IFNB <D>,<
^XXWD [EXP CM%FW!D^x
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
lji
ERR EOF
l0,<End of file>
lPERR IFP,<Illegal
lpfile position>
mERR FDE,<File dat
m0a error>
ERR FN
mPD,<File is not on
mp disk>
ERR NSD,
n<No such device>
n0
ERR FCF,<File c
nPheckpoint failed>
np
ERR SLE,<A sys
otem limit was exc
o0eeded>
ERR IFS,
oP<Illegal file spe
opcification>
ERR
p FNF,<File not fo
p0und>
ERR PRT,<P
pProtection violati
ppon>
ERR DNA,<De
qvice not availabl
q0e>
ERR NCE,<No
qP"current" entry i
qpn list>
ERR NMA
r,<No IPCF message
r0 is available>
rPERR FDS,<Files ar
rpe on different st
sructures>
ERR F
s0AE,<File already
sPexists>
ERR USE
sp,<Unexpected syst
tem error>
ERR N
t0SP,<No such pid>
tP
ERR BOL,<Beginn
tping of list reach
ued>
ERR EOL,<En
u0d of list reached
uP>
ERR RQF,<Rece
upivers quota full>
v
ERR SQF,<Sende
v0rs quota full>
vPERR NRE,<No remem
vpbered entry>
ER
wR TBF,<Table is f
w0ull>
ERR EIT,<T
wPable entry alread
wpy exists>
ERR I
xTE,<Invalid table
x0 entry>
ERR QEF
xP,<Quota exceeded
xpor disk full>
E
yRR ARG,<Invalid a
y0rgument specified
yP>
ERR IFN,<Inva
yplid function spec
zified>
ERR IJN,
z0<Invalid job numb
zPer specified>
E
zpRR RAD,<Invalid r
{adix specified>
{0 ERR NUM,<Invalid
{P numeric argument
{p>
ERR IDT,<Inva
|lid date field sp
|0ecified>
ERR IT
|PF,<Invalid time f
|pield specified>
} ERR DOR,<Date/ti
}0me out of range>
}P
ERR DTM,<Value
}pmissing in date/t
~ime>
ERR MDD,<M
~0issing day in dat
~Pe/time>
ERR DFZ
~p,<Field zero in d
ate/time>
ERR M
0DS,<Mnemonic date
P/time switch not
pimplemented>
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>
ERR ICN,<Invalid
ERR NQS,<Iotedtstr
P ERR AMB,<Ambiguo
ERR NMT,<Datch tok
ERR CMA,<Coven>
ERR NNC,<Nodeenam
ERR INT,<Node term
inator "::" must
0be specified>
E
PRR NSN,<Unknown n
pode name>
ERR IInvalidopath
PERR IUS,<Invalido
n>
ERR DGS,<Dev
0ice name may not
Pexceed 6 characte
prs>
ERR DNE,<Une>
ER DIO,<Device ca
ERR BDvalid>date/t
ERRBS,<Fieldetooll
ERR TMTandetoollon
ERR BDS,<default s
ERR BTF,d table fo
ERR TME,<eumust>be
P ERR TMN,<Noetime
ERR TMA,<Tialready
ERR DVviceutermina
ERR NArgument bloc
ERR TLUinalolocati
pERR FIO,<File is
ERR FBle being mod
ERR WLK,locked dev
ERR CSD,<Cersede a
ERRDD,<Cannottdele
ERR SNb-fileudirec
ERR ESL,<Search
PERR 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>
ERR NPI,<NoPfreee
ERR IFdirect filer
ER NDN,<Nullndevic
' ERR PWA,<PID wen
ERR CGPt get a PID
ERR IND,<Invae>
0ERR IAC,<Invalid
pERR 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 <o`BC><>,<EXP <A>p>
IFDIF <BC><p >,<
IFE <A+1>p@,<<POINT 7,C>>
p` IFN <A+1>,<
q IFIDN <C><>,<q EXP <A,B>>
q@ IFDIF <C><>,<EXq`P <A,B,C>>
>>A,B,C>>
>KbN@ `Kc ]hMpIRP 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 q
IFNB <>q0,<
PRINTX (FroqPm GLXVER)
> ;END IFNB
M&`Mt oP
PRINTX opGLXVER GLXFIL Edipt(120) by LWS on p01-Aug-88
PRINTXpP 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 0
IFNB <>P,<
PRINTX (Fropm GLXVER)
> ;END IFNB
MVpMt ~p
PRINTX GLXVER GLXFUN Edi0t(2) by BAH on 14P-Nov-86
PRINTX p GLXFUN Actual Edit(A)
MVtYP M^luQ O2| ^HM~IRP A,<
^h IF2,<IFDEF A,<. _IFN A,EXTERN,<IN _(TERN A>>
_HIFNDEF A,<EXTERN _h A>
Q SUPPRESPA>>FlYSUPPRO3DYPFBO3EKrPfBO3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
Sp Sv8;Q Sv>@p SNn
AT..OP(A,B,IDIV).OP(A,BSNp @S7-N
@T..OP(A,B,IMUL).OP(A,BS: 4[&
IFNB <4(B>,<..STR0 (.INCR4H0,,<B>,A)>
IF4hB <B>,<AOS A> <B>,<AOS A>S:HKW pC
IFNB <>,<
PRINTX (Fro0m GLXVER)
> ;END IFNB
S:HMt 0;
PRINTX PGLXVER GLXINI Edipt(23) by on 27-Jun-84
PRINTX 0 GLXINI Actual Edit(A)
S:LYP S;k
'hR><<<A>B<POS(<B>)>>&<B>>S; KW ipS
IFNB <>j,<
PRINTX (Froj0m GLXVER)
> ;END IFNB
S; Mt h0K
PRINTX hPGLXVER GLXINT Edihpt(117) by KDO on i24-May-89
PRINTi0X GLXINT Actual Edit(A)
S;!kP S;!k<P S;$YP 'S?
cV
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 {0_
IFNB <>{P,<
PRINTX (Fro{pm GLXVER)
> ;END IFNB
M&`MtSBMt ypW
PRINTX zGLXVER GLXIPC Ediz0t(77) by LWS on 2zP4-Aug-87
PRINTXzp 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. r@XCREF
..TEXT<Ar`>
EXP 0
LSTON.
0
Uv98Q |U$@
pkE
OLST
XJJNO,.JI,GJBJNO>
X-TNO,.JITNO,<
XUSR,.JIUNO,.GTPPN
X,CDN,.JIDNOH>
pXGPRG,.JIPNM,.GTP
XPCJN,.JICJBCJB>
XTBAT,.JIBCH,.G
XIJLT,.JTJLT
X,LOC,<-1,,GJBLOC>
pXJRTM,.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 }ps
IFNB <>~,<
PRINTX (Fro~0m GLXVER)
> ;END IFNB
[lYW
Mt |0k
PRINTX |PGLXVER GLXKBD Edi|pt(103) by LWS on }24-Aug-87
PRINT}0X GLXKBD Actual Edit(A)
W
$YP !WNH1 _8v
IFB <C_X>,<
XWD [ASCIZ\_xB\],A>
IFNB <`C>,<
XWD [EXP `8CM%FW!C
ASCIZ\B\],A>
SCIZY"luQ xY&i1 0Q}
LST POF. XCREF
CDO p OTSINI
CDO
CDO .ZP
0AGA
CDO .ZPAGN
P
CDO .ZCHNK
CD
pO .SAVE1
CDO .S
AVE2
CDO .SAVE3
0
CDO .SAVE4
C
PDO .SAVET
CDO .
pSV13
CDO .SV14
CDO .SV15
CDO
0 .SV16
NT .RETT
P
NT .RETF
CDO
p .RETE
CDO .AOS
CDO .SOS
0 CDO .ZERO
NT
P .POPJ
CDO .S
pTOP
CDO .SAVE
8
CDO .STKST
0
CDO .TRSET
P
NT .POPJ1
C
pDO .UD2SC
CDO
.SC2UD
CDO .
0CPUTY
CDO .DI
PE
CDO
CDO
p
CDO
CDO C
%RPRM
CDO C%INT
0R
CDO C%SEND
PCDO C%RECV
CDO
pC%BRCV
CDO C%RE
L
CDO C%CPID
0CDO C%KPID
CDO
PC%SPID
CDO C%MA
pXP
CDO C%PIDJ
CDO C%PIDH
CDO
0 C%SIDX
CDO
C
PDO
CDO
CDO
p
CDO F
%IOPN
CDO F%AOP
0N
CDO F%OOPN
PCDO F%IBYT
CDO
pF%OBYT
CDO F%IB
UF
CDO F%OBUF
0 CDO F%REL
CDO
PF%DREL
CDO F%RR
pEL
CDO F%REW
CDO F%POS
CDO F
0%CHKP
CDO F%INF
PO
CDO F%FD
CD
pO F%REN
CDO F%D
EL
CDO F%FCHN
0 CDO
CDO
CDO
P
CDO
CDO
CDO
p
CDO
CDO
CD
O FUNCT.
C
0DO
CD
PO M%ACQP
CDO M%
pRELP
CDO M%IPSN
CDO M%NXPG
C
0DO M%IPRC
CDO M
P%IPRM
CDO M%AQN
pP
CDO M%RLNP
CDO M%CLNC
CDO
0M%FPGS
CDO M%GM
PEM
CDO M%RMEM
p CDO
CDO
CDO
CDO
CDO
CDO
0
CDO M%GPAG
C
PDO M%RPAG
CDO
p CDO
CDO
CDO
CDO
CDO
CDO
0
CDO
CDO
P
CDO T%T
pEXT
CDO T%TTY
CDO
CDO
CDO
0
CDO
CDO
CDO
P
CDO
CDO
CD
pO
CDO
CDO
CDO L%
0CLST
CDO L%DLST
P
CDO L%CENT
C
pDO L%CBFR
CDO L
%DENT
CDO L%NEX
0T
CDO L%FIRS
PCDO L%LAST
CDO
pL%PREV
CDO L%PR
EM
CDO L%CURR
0 CDO L%RENT
CDO
P L%SIZE
CDO L%A
pPOS
CDO
CDO
CDO
CDO
CDO
0
CDO
CDO
CDO
P
CDO
CDO
p I%NOW
CDO I%EX
IT
CDO I%ION
0CDO I%IOFF
CDO
PI%SLP
CDO I%INT
p1
CDO I%INT2
CDO I%INT3
CDO
0I%TIMR
CDO
CD
PO
CDO I%SOPR
pCDO I%WTO
CDO
CDO I%HOST
CDO
0 I%JINF
CDO I%C
PJOB
CDO I%KJOB
p
CDO S%U2DT
CDO S%DT2U
CD
0O S%DATI
CDO S%
PSIXB
CDO S%CMND
p
CDO S%TBLK
C
DO S%SCMP
CDO S
0%ERR
CDO S%INTR
P
CDO S%EXIT
C
pDO S%TBAD
CDO S
%TBDL
CDO S%NUM
0I
CDO K%RCO
PC
CDO K%WCOC
p
CDO K%SUET
C
DO K%STYP
CDO K
0%TXTI
CDO K%SOU
PT
CDO K%BOUT
pCDO K%BIN
CDO K
%BACK
CDO K%TPO
0S
CDO K%BUFF
PCDO K%FLSH
CDO
pK%OPEN
CDO K%EC
HO
CDO
CDO
0CDO
CDO
CDO
P CDO
CDO
CDO
LSTON.
Y:W
0W
IFNB <>
P,<
PRINTX (Fro
pm GLXVER)
> ;END IFNB
Y:XMt pO
PRINTX GLXVER GLXLNK Edi 0t(11) by AWC on 2 P9-Jan-82
PRINTX p GLXLNK Actual Edit(A)
Y:\YP Y>
@ -HZr
IFNB <-hC>,<..STR0 (..LDB.,A,C,B)>
IFB.( <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG ahN
IFNDEF bLSTIN.,LSTIN.==0 b(
IFE LSTIN.,<
bH IFIDN <XCREF><A bh>,<.XCREF>
c XLIST>
LSTIN.==LSTIN.+1STINYO%{G cHN"
IFG LST chIN.,LSTIN.==LSTIN d.-1
IFLE LSTIN d(.,<.CREF
LIST>
[KW l0g
IFNB <>lP,<
PRINTX (Frolpm GLXVER)
> ;END IFNB
[Mt jp_
PRINTX kGLXVER GLXMAC Edik0t(522) by DPM on kP14-Oct-88
PRINTkpX GLXMAC Actual Edit(A)
[YP )[3@
'(R:<<<1_<A>>-1>B<B>>_<A>>[8@
&(R21B<<A>-1>-1B<B><<A>-1>[@ zpOc
IFB <B {>,<MAXSIZ==0
I {0RP A,<IFG <A-MA {PXSIZ>,<MAXSIZ==A {p>>>
IFNB <B>,< |B==0
IRP A,< |0IFG <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 sp#
IFNB <>t,<
PRINTX (Frot0m GLXVER)
> ;END IFNB
[hMt r0
PRINTX rPGLXVER GLXMEM Edirpt(33) by DPM on 1s9-Apr-88
PRINTXs0 GLXMEM Actual Edit(A)
[lYPuQ @[th:Q [u[yQ [ukvQ [v=3P'[v|WQ [&p |pOw
IFB <B }>,<MINSIZ==377777 }0,,777777
IRP }PA,<IFG <MINSIZ-A }p>,<MINSIZ==A>>>
IFNB <B>,<B== ~0377777,,777777
~P IRP A,<IFG <B- ~pA>,<B==A>>>
A>,<B==A>>>
[>!`
&hR6<A-<A/B>*B><A-<A/B[?7
((S$
..MX1
(H==B
IFDEF .P
(hSECT,<
.IFN .
).MX1,ABSOLUTE,<
)( MOVE A,[B]>
)H .IF ..MX1,ABSOL
)hUTE,<
..MX2==0
*
IFE <..MX1>B5
*(3,<
..MX2==1
*H
MOVEI A,..MX
*h1>
IFE ..MX2,<
+
IFE <..MX1>B
+(17,<
..MX2==1
+H
MOVSI A,(..
+hMX1)>>
IFE ..M
,X2,<
IFE <<..
,(MX1>B53-^O777777>
,H,<
..MX2==1
,h HRROI A,<..MX
-1>>>
IFE ..MX2
-(,<
IFE <<..MX
-H1>B17-^O777777B17
-h>,<
..MX2==1
.
HRLOI A,(..M
.(X1-^O777777)>>
.H IFE ..MX2,<
.h MOVE A,[..MX1]
/>
>>
IFNDEF
/( .PSECT,<
..MX2
/H==0
IFE <..MX
/h1>B53,<
..MX2
0==1
MOVEI A,
0(..MX1>
IFE ..M
0HX2,<
IFE <..M
0hX1>B17,<
..MX
12==1
MOVSI A
1(,(..MX1)>>
IFE
1H ..MX2,<
IFE
1h<<..MX1>B53-^O777
2777>,<
..MX2=
2(=1
HRROI A,<
2H..MX1>>>
IFE .
2h.MX2,<
IFE <<
3..MX1>B17-^O77777
3(7B17>,<
..MX2
3H==1
HRLOI A,
3h(..MX1-^O777777)>
4>
IFE ..MX2,<
4(
MOVE A,[..
4HMX1]>
>
PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^=
pHW
A==C
ph
IF1,<IFDEF %
qA,<PRINTX ?A ALR
q(EADY DEFINED>>
qHDEFINE %A (OP,AC
qh,Y,MSK)<
IFDIF
r <Y><>,<
OP (<A
r(C>,B+'Y,MSK)>
rHIFIDN <Y><>,<
O
rhP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg
@HT..OP(A,B,MUL)..OP(A,B[`v
2P ] \(MdIF2,<IFDEF \H A,<A==A>> IFNDEF A,<A==B>]F@ pTEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=
0mW
X .OTReader
X .OU,Network-Cont
X .OTLPTr
X .OTBtch-Stream
PX 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
Y X .OTDBM,<DBMS S
X .OTFALtream>
X .OTEVT,<Event>
Z X .OTFCH,<Microf
X .OTXER,
X .OTNQ-Stream>
,<NQC-Stream>
_SKW xpK
IFNB <>y,<
PRINTX (Froy0m GLXVER)
> ;END IFNB
_SMt w0C
PRINTX wPGLXVER GLXOTS Ediwpt(13) by DPM on 1x4-Apr-88
PRINTXx0 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)>
gh.IFNBC<D>,<..XX=
hH.IFNBC<E>,<..XX=
i@ EXP ..XX
i`CIFNB <C>,<EXP
j EIFB0<C>,<
j@SIFNB,<POINT 7,[A
kFI <D>,<0>
k@ IFNBS<E>,<POINT
l IFB <E>,<0>
l >IFB><I
l@IIFNBX<I>
l` IFB <J>,<0>
mJIFNB <J>,<EXP
m@,IFB <H>
m`>IFNBP<H>
nIFB <G>,<0>
n IFNB <G>,<EXP G>
G>,<EXP Ga@KW
pk
IFNB <>
PRINTXER(Fro
> ;END IFNB
a@Mt 0c
PRINTX PGLXVER GLXPFH Edipt(16) by TARL on
17-Apr-81
PRINT
0X GLXPFH Actual Edit(A)
aDYP a
RLSH A,^D9LSH A,^D9a+= 5a;&
a9
IFB <
0B>,<..STR0(..PNT
P,,<FWMASK>,A)>
p IFNB <B>,<..ST
R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm
$HR&<POINT WID
$h(B),A,POS(B)>B),A,POS(B)>a?H6 +a?
"R<^L<<A>&<-<A>>>><<A>&<aJ}Ks VxOI
SALL e
LSTOF. XCRE e0F
%%.GLX== eP%%.GLX
GLXVR epS==GLXVRS
fIFNB <A>,<%%.MOD f0==SIXBIT/A/>
fPIFNB <B>,<%%.OTS fp==SIXBIT/B/>
g
GLOB I%INIT
TOPS10 <
gP SEARCH UUOSYM gp
%%UUOS==%%UUO hS
>
T h0OPS20 <
SEA hPRCH MONSYM
; hp%%MONS==%%MONS
>
IFB < i0B>,<
IFN G iPLXPUR,<
.TEXT ip |,REL:GLXLIB/SEA jRCH/REQUIRE:I%INI j0T/SEGMENT:LOW|
jP >
DEFINE $ jpDATA (NAM,SIZ<1>) k,<
NAM: BLOC k0K SIZ
>
kPDEFINE CDO (X),<G kpLOB X>
DEFINE l NT(X),<CDO X>
l0 LIBVEC
> lP
IFNB <B>, lp<
IFDEF .MC mRV.,<.VERSION <GL m0XVRS>>
CHKEDT mP(B)
IFDIF mp<B><INI>,<
nIFN GLXPURE,<.PSE n0CT .HIGH.>
IF nPE GLXPURE,<
np TWOSEG 400000
o RELOC 0
R o0ELOC 400000
> oP
DEFINE $ opDATA(NAM,SIZ<1>), p<
IFN GLXPUR p0E,<.PSECT DATA>
IFE GLXPURE,< ppRELOC>
IFNDE qF B%D,<B%D::! q0B%DL==:0>
NAM qP: BLOCK SIZ
qpB%DL==:B%DL+SIZ r
IFN GLXPURE, r0<.ENDPS DATA>
rP IFE GLXPURE,<RE rpLOC>
>
s IFDIF <B><OTS>, s0<
DEFINE CDO sP (X),<GLOB X>
sp DEFINE NT(X),<CD tO X>
LIBVEC t0
>
>
IFIDN <B> tp<INI>,<
DEFIN uE $DATA (NAM,SIZ< u01>),<
NAM: B uPLOCK SIZ
>
>
>
L vSTON.
GLO v0B <.POPJ, .RETT, vP.RETF>
OPDEF $ vpRET [POPJ P,]
wOPDEF $RETT [PJRS w0T .RETT]
OPDEF wP $RETF [PJRST .RE wpTF]
OPDEF $RET xIT [JUMPT .POPJ] x0
OPDEF $RETIF [ xPJUMPF .POPJ]
. xpNODDT $RET,$RETT, y$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 v07
IFNB <>vP,<
PRINTX (Frovpm GLXVER)
> ;END IFNB
gpMt tp/
PRINTX uGLXVER GLXSCN Ediu0t(135) by DPM on uP19-Apr-88
PRINTupX GLXSCN Actual Edit(A)
gtYP .g"@ []h
IFN <<.[(.TA>&B>,<PRINTX[H ?Initial field n[hot zero in $SET>
\(..TVAL==<C>
\H..TMSK==<B>
..TA==..TA!\h<FLD(..TVAL,..TMS]K)>
PURGE ..TVAL,..TMSK
.TgtXrP gv
[P,g#=ztxp/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 hXX
..STKR= =10
RADIX 8
( ..STKN==0
IRP HA,<
.STKV1 ( hA)>
$CALL .STK
ST
..STKN,,..S
(TKN
RADIX ..STK
HR
DEFINE ENDSV.
h<.ENSV1 <A>>
PURGE ..STKN,..STKR,..STKQ
TKgR~r d^X
.TYPE=d =-1
IFIDN <d@B><HALT>,<.TYPE==d`0>
IFIDN <B><eCONT>,<.TYPE==1> e
IFIDN <B><DEBe@UG>,<.TYPE==2>
IFL .TYPE,< f
IF2,<PRINTX ? f Stopcode A is inf@ error; see S..Af` in CREF>
S..A:g:JRST 4,.
> g
IFB <A>,<g@
IF2,<PRINTXg` ? Stopcode with hout a A; see S..h in CREF>
S..:: h@JRST 4,.
> h`
IFGE .TYPE,i<
S..A::PUSi HJ P,.DIE
CAi@I .TYPE,[
<Si`IXBIT /A/>&77777j7000000
EXP %%j .MOD
EXP C j@
EXP [ASCIZ |j`D|]
]
>k
PURGE .TYPE
URGE .gR~) 0h[
IFNB <1C>,<..STR0 (..DPB1(,A,C,B)>
IFB1H <C>,<MOVEM A,B>>,<MOVEM A,gV
?HS|..AS(A,B,SUB,ADD)(A,Bgg
V yPOS
IFNB < ypB>,<TOPS10<A==B z>>
IFNB <C>,<T z0OPS20<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( H|@IFN FTUUOS,B ;DEFINE UNi?4H H@|DIFN FTJSYS, INTERN AEDT iD } _v
IFNB}@ <A>,<.TQCHA==^}`D<B>B17+ZZ>
I~FNB <D>,<DEFINE~ ..TQMA<D>>
~@IFNB <C>,<.TQC=~`=^D<B>B17+ZZ>
ZZ==ZZ+1ZZ>
iG, s _f
LSTOF.
TQ(T,2,ASCIZ) s`
TQ(O,2,OCTAL)t
TQ(D,2,DECIt MAL)
TQ(F,2,t@FILE)
TQ(7,2t`,CSEVEN)
TQ(u6,2,CSIXBIT)
u TQ(W,2,SIXBIT) u@
TQ(5,2,SVNBITu`)
TQ(P,2,USEvR)
TQ(U,2,DIv RECTORY)
TQ(v@H,2,DAYTIME)
v` TQ(C,2,TIME)
TQ(E,2,ERROR) w
TQ(I,1,INDIREw@CT)
TQ(M,0,CRw`,..TXC0(\".CHCRT)x)
TQ(J,0,LF,..x TXC0(\".CHLFD))
TQ(L,0,FF,..TXCx`0(\".CHFFD))
TyQ(K,0,VT,..TXC0(\y ".CHVTB))
TQ(Ay@,0,NOCRLF,..TXA(.y`TQCHA))
TQ(0,0z,NULL,..TXA(.TQCHz 0))
TQ(3,0,STRz@ING,..TXER(IQU)) z`
TQ(V,2,VERSION{)
TQ(2,0,CAR{ ET,..TXER(IQU))
TQ(Q,2,POINTER){`
TQ(B,2,ROB)|
TQ(1,2,OBJE| CT)
TQ(N,2,N|@ODE)
TQ(R,2,|`JIB)
LSTON.
)
LSTON.
Plw
LSTOF.
9X(33,TTY33,33,.
:X(3TTY35,35,.RETT,
TOPS20<
:8EX(37,TTY37,37,.R
:X(EXPORT,EXEC,EXE,
>
;8TOPS10<
;X(LA120,L12,.RETT,
>
<X(LA336,L36,.RETT,
<X(VK100,10,SETTLC,
=X(T05,VT05,V05,.RE
>X(VT100,00,SETTLC,
?8TOPS10< X(VT101,V
@X(VT102,VT102,102,
TOPS10< X(VT103,SET
CX(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10< XVT185,185,
FX(VT220,VTETTLC,<.
GX(V40,VT240,240,SE
HX(VT320,VT320<.CHE
IX(VT3330,330,SETTL
Jx0X(VT340,VT340,34
LX(VT50,VTETTLC,<.C
MX(VT52,V,SETTLC,<.
TOPS10< ,VT61,V61,S
LSTON.
>PA iK4@ (Y
..TRR==H10
RADIX 8
h..NV==1
IRP A,<
.TRV1 ((A)>
$CALL .TRHSET
..NV-1,,h..NV-1
RADIX ..TRR
PURGE ..TRR,..NVURGE ..Tib
XHUD
..TX(C,A,<B>)..TX(Cib
ZUP
..TX(CA,A,<B>).TX(CibP
YUH
..TX(CE,A,<B>).TX(Cib`
YHUL
..TX(CN,A,<B>).TX(Cibp
RHU
..TX(N,A,<B>)..TX(Nibt
TU
..TX(NA,A,<B>).TX(NibtP
SU
..TX(NE,A,<B>).TX(Nibu`
SHU
..TX(NN,A,<B>).TX(Nibx
THU$
..TX(O,A,<B>)..TX(Oib|
VU0
..TX(OA,A,<B>).TX(Oib|P
UU(
..TX(OE,A,<B>).TX(Oib}`
UHU,
..TX(ON,A,<B>).TX(Oic KW p
IFNB <>,<
PRINTX (Fro0m GLXVER)
> ;END IFNB
ic Mt 0
PRINTX PGLXVER GLXTXT Edipt(55) by BAH on 14-Nov-86
PRINTX0 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
VHU4
..TX(Z,A,<B>)..TX(ZicT
XU@
..TX(ZA,A,<B>).TX(ZicTP
WU8
..TX(ZE,A,<B>).TX(ZicU`
WHU<
..TX(ZN,A,<B>).TX(ZkR`KW -
IFNB <>0,<
PRINTX (FroPm GLXVER)
> ;END IFNB
kR`Mt P%
PRINTX pGLXVER GLXUTL Edit(2) by DPM on 4-0Dec-85
PRINTX P GLXUTL Actual Edit(A)
kRdYP mKc@ H`N&BYTE (3)A dhWHO (9)AVER (6)AMIN (18)AEDTo&
!HR
<^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?
dV
TXC A,<B>
TXC A,q@ ]MjIFB <C>,< ](A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up :[V
IFNB <:(B>,<..STR1 (..TQZ:H,,<B>,A,..STR4):h>
IFB <B>,<SETZM A><B>,<SEuhP ;z XxuY
.XCREF Y.$RESET, .$BUILD
.$RESET
$TYPEYX (.CMACT)
$HELPYx (<>)
$NEXT (AZ)
IFIDN <B> <>,Z8< IRP C,<C>
ZX .$BUILD>
IFDIF Zx<B> <>,<
$HELP[ (B)
IRP C,<C>
.$BUILD>< 0
dPf)
.WTOX.(.OM
dpACK,<A>,<B>,<C
e>,<D>,<$WTFLG(WT.SJI),E>)LG(WT J7 p
DEFPINE .$RTN <A>
.%RTN==1A>
D[
IFDIF<<,<.XCREF .%
DEFNE[.$HLPM<POINT
.%HLPM==-1>
fI9XCREF .%L
DEF.$LST <A+1>
.%LST==11>
=Z L\h
IFG L(A-INT.LV,<PRINTX LH?Level A interruLhpts not supportedM>
o.BGINT.(\A)B .BGINT.(\A X5
DINE .$BREA <A>
.%BREA==1> - Nh]
IFDEFO ..BSIZ,<PRINTX ?O(Missing $EOB afteOHr a $BUILD>
.Oh.BSIZ==0
.P.BLOC==.
RP(EPEAT A,<
PHBLD0.(\..BSIZ,0) Ph
..BSIZ==..BSIZ+1>
==..BSI }[0 <xso
.XCREF =.$RESET, .$BUILD
.$RESET
$TYPE=X (.CMCMA)
$NEXT=x (A)
IRP B,<B>
.$BUILD,< I@ 88sK
.XCREF 8X.$RESET, .$BUILD
.$RESET
$TYPE9 (.CMCFM)
IRP 98A,<A>
.$BUILD,<A>
.$BUILD $^ ExtA
.XCREF F.$RESET, .$BUILD
.$RESET
$TYPEFX (.CMTXT)
$HELPFx (<>)
$NEXT (AG)
IFIDN <B> <>,G8< IRP C,<C>
GX .$BUILD>
IFDIF Gx<B> <>,<
$HELPH (B)
IRP C,<C>
.$BUILD>< I HXtO
.XCREF Hx.$RESET, .$BUILD
.$RESET
$TYPEI8 (.CMTAD)
$PDATIXA (CM%IDA)
$NEXIxT (A)
IRP B,<B>
.$BUILD,< ,,U N\r
$RET N( ;WILL INVOKE RIGHT ROUTINE
,h:
IFDIF<<,<.XCREF .%
DEFNE[.$DEFM<POINT
wP .%DEFM==1>
IFIDN <A> <>,<
IF1 <
PRINTXg%Nult in $DEFAULT macro>>DE .` D8t+
.XCREF DX.$RESET, .$BUILD
.$RESET
$TYPEE (.CMDEV)
$NEXTE8 (A)
IRP B,<B>
.$BUILD,< Lz: $xr;
.XCREF %.$RESET, .$BUILD
.$RESET
$TYPE%X (.CMNUX)
$PDAT%xA (B)
$HELP (<&>)
$NEXT (A)
&8IFIDN <C> <>,< I&XRP D,<D>
.$&xBUILD>
IFDIF <C'> <>,<
$HELP ('8C)
IRP D,<D>
.$BUILD><D>
.XCREF :.$RESET, .$BUILD
.$RESET
$TYPE:X (.CMDIR)
$NEXT:x (A)
IRP B,<B>
.$BUILD,< | Uh]J
IFNDEVF ..BSIZ,<PRINTX V(?$EOB without preVHvious $BUILD>
Vh IFN <.-..BLOC>,<WPRINTX ?Address cW(hange between $BUWHILD and $EOB>
Wh LSTOF.
..XT==0
REPEAT .X(.BSIZ,<
BLDXH0.(\..T,1)
Xh ..T==..T+1 >
Y PURGE ..BSIZ,..Y(T,..BLOC
LSTON.
oLST +yE.%E
DINE .$ERTN <A>
.%ERTN==1> ,
DINE>.$ERTN <1B0
.%ERTN==1>
.%ERTN -.
DINE .$ERTN <[MOVEI S2,[ASCIZ\A\0]
$RETPF]>
.%ERTN==1>
.%ERTN==1 IF2,<IFN < [A>-.,<PRINTX ? I [0LLEGAL $FALL A>>EGAL $FALL A>> H6 `^
$CALL .`STOP
LSTOF.
J` UMP [XWD 0,[ITEXT`@ (<A>)]
EXP ``%%.MOD]
LSTON. .MOD]
LSTON. L[ 5Xs?
.XCREF 5x.$RESET, .$BUILD
.$RESET
$TYPE68 (.CMFLD)
$NEXT6X (A)
$HELP (<>6x)
IFIDN <B> <>,7< IRP C,<C>
78 .$BUILD>
IFDIF 7X<B> <>,<
$HELP7x (B)
IRP C,<C>
.$BUILD>< MI 2xs)
.XCREF 3.$RESET, .$BUILD
.$RESET
$TYPE3X (.CMFIL)
$HELP3x (<>)
$NEXT (A4)
IFIDN <B> <>,48< IRP C,<C>
4X .$BUILD>
IFDIF 4x<B> <>,<
$HELP5 (B)
IRP C,<C>
.$BUILD>< dy
DINE .$FLGS <A>
.%FLGS==1> ex: AXt
.XCREF Ax.$RESET, .$BUILD
.$RESET
$TYPEB8 (.CMFLT)
$HELPBX (<>)
$NEXT (ABx)
IFIDN <B> <>,C< IRP C,<C>
C8 .$BUILD>
IFDIF CX<B> <>,<
$HELPCx (B)
IRP C,<C>
.$BUILD>< $ Nt}
.XCREF N8.$RESET, .$BUILD
.$RESET
$TYPENx (.CMTAD)
$PDATOA (<CM%IDA!CM%ITMO8!CM%FUT>)
$NEXTOX (A)
IRP B,<B>
.$BUILD,< $ ^p]zS0
INTER_ N A
$DATA(A,<B>)
ATA(A}]s1O3FlY "
IFDIF<<,<.XCREF .%
DEFNE[.$HLPM<POINT
.%HLPM==1>
&5 -8r}
.XCREF -X.$RESET, .$BUILD
.$RESET
$TYPE. (.CMIFI)
$HELP.8 (<>)
$NEXT (A.X)
IFIDN <B> <>,.x< IRP C,<C>
/ .$BUILD>
IFDIF /8<B> <>,<
$HELP/X (B)
IRP C,<C>
.$BUILD>< &u @t
.XCREF @8.$RESET, .$BUILD
.$RESET
$NEXT@x (A)
$TYPE (.CAMINI)
IRP B,<B>
.$BUILD,< ./ r
.XCREF 8.$RESET, .$BUILD
.$RESET
$TYPE x (.CMKEY)
$PDAT!A (B)
$NEXT (!8A)
IRP C,<C>
.$BUILD,<C>
.XCREF X.$RESET, .$BUILD
.$RESET
$TYPE (.CMKEY)
$PDAT8A (A)
$NEXT (0X)
IRP B,<B>
.$BUILD,<B>
/>Ky
g0f=.WTOX.(.OM
gPWTR,,,,<A>,<$WTFLG(WT.KIL),B>) 2|p
fPf7.WTOX.(.OM
fpLOG,<A>,<B>,<C>,,<D>)B>,<C :/
DEF.$NXT <A>
.%NXT==1A>
:|KV UxuC
.XCREF V.$RESET, .$BUILD
.$RESET
$TYPEVX (.CMNOD)
$HELPVx (<>)
$NEXT (AW)
IFIDN <B> <>,W8< IRP C,<C>
WX .$BUILD>
IFDIF Wx<B> <>,<
$HELPX (B)
; $FLAGS (X8CM%PO)
IRP C,<C>
.$BUILD>< :}r 'xrK
.XCREF (.$RESET, .$BUILD
.$RESET
$TYPE(X (.CMNOI)
$PDAT(xA (<POINT 7,[ASCI)Z\B\]>)
$NEXT )8(A)
IRP C,<C>
.$BUILD,<C ;-XR !xr#
.XCREF ".$RESET, .$BUILD
.$RESET
$TYPE"X (.CMNUM)
$PDAT"xA (B)
$HELP (<#>)
$NEXT (A)
#8IFIDN <C> <>,< I#XRP D,<D>
.$#xBUILD>
IFDIF <C$> <>,<
$HELP ($8C)
IRP D,<D>
.$BUILD><D>
.XCREF 08.$RESET, .$BUILD
.$RESET
$TYPE0x (.CMOFI)
$NEXT1 (A)
$HELP (<>18)
IFIDN <B> <>,1X< IRP C,<C>
1x .$BUILD>
IFDIF 2<B> <>,<
$HELP28 (B)
IRP C,<C>
.$BUILD>< B$
DINE .$DATA <A>
.%DATA==1> B$YP
DINE<.$DEFM <POI
.%DEFM==1>
.% CYT p.XCREF .%D0EFR, .$DEFR
DPEFINE .$DEFR <A>
.%DEFR==1> G-} Pu
.XCREF P8.$RESET, .$BUILD
.$RESET
$TYPEPx (.CMQST)
$HELPQ (<>)
$NEXT (AQ8)
IFIDN <B> <>,QX< IRP C,<C>
Qx .$BUILD>
IFDIF R<B> <>,<
$HELPR8 (B)
IRP C,<C>
.$BUILD>< J.I ]P]q
$CALL]p .RETE
LSTO^F.
JUMP ERA$
LSTON.ERA$ Ni HZX
.NVR==0h
.ACM==0
IRP A,<
( ..TSAC(.ACB,A) H
IFN .ACB,<.AhCM==.ACM!1B<A>>
IFE .ACB,< (
IFE .NVR,< H
PUSHJ P,[h
>
..PUSH(A,\<.NVR+1>()>>
IFE .HNVR,<
IFN .ACMh,<
IFE <.ACM-17B<T4>>,<.ACM(==0
$CALL .SHAVET>
IFE <h.ACM-377B<.A16>>, <.ACM==0
$CA (LL .SAVE8>
HIFE <.ACM-17B<P4> h>,<.ACM==0
$!CALL .SAVE4>
!( IFE <.ACM-7B<P3!H>>,<.ACM==0
!h$CALL .SAVE3>
" IFE <.ACM-3B<P"(2>>,<.ACM==0
"H $CALL .SAVE2>
"h IFE <.ACM-1B<#P1>>,<.ACM==0
#( $CALL .SAVE1>
#H IFE <.ACM-1B#h<.A13>>,<.ACM==0
$CALL .SV13>$(
IFE <.ACM-$H1B<.A14>>,<.ACM==$h0
$CALL .SV1%4>
IFE <.AC%(M-1B<.A15>>,<.ACM%H==0
$CALL .S%hV15>
IFE <.&ACM-1B<.A16>>,<.A&(CM==0
$CALL &H.SV16>
>>
&h
IFN .ACM,<
' IFE .NVR,< '(
PUSHJ P,[
'H >
.ACB='h=0
REPEAT ^D(16,<
IFN(( <.ACM&1B<.ACB>>,(H<
..PUSH(\.AC(hB,\<.NVR+1>)>
).ACB==.ACB+1>>
IFN .NVR,<
)H PUSHJ P,@-.NVR()hP)
TRNA
* AOS -1-.NVR(P) *(
REPEAT .NV*HR,<..POP(\.NVR)> *h
ADJSP P,-1
POPJ P,]>
POPJ P,]>
N;CREF .%S
IFD <A><>,<DEFINE
.%SBCM==1
>
.%SBCM==1
N.@ Q(]
IFNDEQHF ..BSIZ,<PRINTX Qh?$SET without preRvious $BUILD>
R( IFNB <B>,<..STRRH0 (..SET,<C>,B,RhA)>
IFB <BS>,<..STR0 (..SET,S(<C>,FWMASK,A)>
,FWMASK,A)>
.XCREF aa, b
a==.
a8XWD b-1,b-1
DaXEFINE $ETAB <.XCRaxEF a, b
b==.-a>b
b== O%| k@^l
IF1,<PRIk`NTX % Use STOPCD lmacro for stopcodl e A instead of $l@STOP>
S..A::! $l`CALL .STOP
LSTmOF.
JUMP [XWD m 'A',[ITEXT (<B>m@)]
EXP %%.MOD]
LSTON. MOD O,(v >8s}
.XCREF >X.$RESET, .$BUILD
.$RESET
$NEXT? (A)
$TYPE (.C?8MINI)
$SBCM (B?X)
IRP C,<C>
.$BUILD,<C>
O= +Xrg
.XCREF +x.$RESET, .$BUILD
.$RESET
$TYPE,8 (.CMSWI)
$PDAT,XA (A)
$NEXT (0,x)
IRP B,<B>
.$BUILD,<B>
O= )xrY
.XCREF *.$RESET, .$BUILD
.$RESET
$TYPE*X (.CMSWI)
$PDAT*xA (B)
$NEXT (+A)
IRP C,<C>
.$BUILD,<C>
@ Ltm
.XCREF L8.$RESET, .$BUILD
.$RESET
$TYPELx (.CMTAD)
$PDATMA (<CM%IDA!CM%ITMM8>)
$NEXT (A)
MX IRP B,<B>
.$BUILD,<B>
.$ R/n^x
$CALL Tn %TEXT
LSTOF. XCn@REF
JUMP [XWD 2n`,0
EVL (A)
o ITEXT(<B>)]
LSTON.B>)]
.XCREF JX.$RESET, .$BUILD
.$RESET
$TYPEK (.CMTAD)
$PDATK8A (CM%ITM)
$NEXKXT (A)
IRP B,<B>
.$BUILD,< R}97 [Xui
.XCREF [x.$RESET, .$BUILD
.$RESET
$TYPE\8 (.CMTOK)
$PDAT\XA (<POINT 7,[ASCI\xZ\B\]>)
$NEXT ](A)
IRP C,<C>
.$BUILD,<C S
_|
..TX
A(.TQA,C,D,E, B)
IFN .`.TXEF,<
..TE@RR<$TQ(A,B,C,D,E)>>
C, S@I9
pag
LSTOF.
X(UQU,Unknown q
0ualifier)
X(IQU
P,Invalid qualifie
pr)
X(IJA,Invali
d justification a
0rgument)
X(IWA,
PInvalid width arg
pument)
X(PEA,Pr
emature end of ar
0gument)
X(JNA,J
Pustification is n
pot allowed)
X(A
NA,Arguments are
0not allowed)
X(
PADS,Address must
pbe specified)
LSTON.
ied)
L SN .REF .%T
DEE .$TYP <A>
.%TYPE==1>
W= Rxu+
.XCREF S.$RESET, .$BUILD
.$RESET
$TYPESX (.CMUQS)
$HELPSx (<>)
$NEXT (AT)
$PDATA (B)
T8IFIDN <C> <>,< ITXRP D,<D>
.$TxBUILD>
IFDIF <CU> <>,<
$HELP (U8C)
IRP D,<D>
.$BUILD><D>
.XCREF ;X.$RESET, .$BUILD
.$RESET
$TYPE< (.CMUSR)
$NEXT<8 (A)
IRP B,<B>
.$BUILD,< ^+@ a ^
IFE %%.Oa@TS,<DEFINE $WARN a`(MSG) <
$TEXT b(T%TTY,<% ^W6/[%%b .MOD]/ MSG>)>>
Ib@FN %%.OTS,<DEFINEb` $WARN (MSG) <
c $TEXT (T%TTY,<% c ^W6/IIB+IB.PRG/ ^c@W/[%%.MOD]/ MSG>)>>
$WARN <A> _$r
XPeW
IFB <
XpA>,<.WFACD==0
Y IFN <0-2>,<.$WAC
Y0D==0>>
IFNB <
YPA>,<.WFACD==-1
Yp IFN <0-2>,<.$WA
ZCD==.$WACD!<A>>
Z0
IFE <0-2>,<DE
ZPFINE .$WACD,<<WO.
ZpACD>B8+[ITEXT (<A>)]>>
>
< _$u
MPd
IFB <
MpA>,<.WFACK==0
N IFN <0-2>,<.$WAC
N0K==0>>
IFNB <
NPA>,<.WFACK==-1
Np IFN <0-2>,<.$WA
OCK==.$WACK!<A>>
O0
IFE <0-2>,<DE
OPFINE .$WACK,<<WO.
OpACK>B8+[ITEXT (<A>)]>>
>
< _$+
?0f
IFE <.W
?PFMTY>,<PRINTX ?No
?p message type in
@$WTBLD>
DEFINE .
@0EAWTO(SUFFIX,ARGC
@POD),<
IFN .WF'SU
@pFFIX',<
IFE <AR
AGCOD-0>,<<WO.'SUF
A0FIX'>B8+ .$W'SUFF
APIX'>
IFE <ARGCO
ApD-1>,<<WO.'SUFFIX
aP'>B8+ [EXP .$W'SU
apFFIX']>
IFE <AR
bGCOD-2>,<.$W'SUFF
b0IX'>
>
>
ALLW
bPTO
EXP 0
EXP 0 _$k
P0e
IFB <
PPA>,<.WFFLG==0
Pp IFN <1-2>,<.$WFL
QG==0>>
IFNB <
Q0A>,<.WFFLG==-1
QP IFN <1-2>,<.$WF
QpLG==.$WFLG!<A>>
R
IFE <1-2>,<DE
R0FINE .$WFLG,<<WO.
RPFLG>B8+[ITEXT (<A>)]>>
>
< _%(W
UpeA
IFB <
VA>,<.WFJBN==0
V0 IFN <0-2>,<.$WJB
VPN==0>>
IFNB <
VpA>,<.WFJBN==-1
W IFN <0-2>,<.$WJ
W0BN==.$WJBN!<A>>
WP
IFE <0-2>,<DE
WpFINE .$WJBN,<<WO.
XJBN>B8+[ITEXT (<A>)]>>
>
< _%YV
^f
IFB <
^0A>,<.WFMFL==0
^P IFN <1-2>,<.$WMF
^pL==0>>
IFNB <
_A>,<.WFMFL==-1
_0 IFN <1-2>,<.$WM
_PFL==.$WMFL!<A>>
_p
IFE <1-2>,<DE
`FINE .$WMFL,<<WO.
`0MFL>B8+[ITEXT (<A>)]>>
>
< _%]
BPd'
IFB <
BpA>,<.WFMTY==0
C IFN <0-2>,<.$WMT
C0Y==0>>
IFNB <
CPA>,<.WFMTY==-1
Cp IFN <0-2>,<.$WM
DTY==.$WMTY!<A>>
D0
IFE <0-2>,<DE
DPFINE .$WMTY,<<WO.
DpMTY>B8+[ITEXT (<A>)]>>
>
< _%kr
Se+
IFB <
S0A>,<.WFNOD==0
SP IFN <0-2>,<.$WNO
SpD==0>>
IFNB <
TA>,<.WFNOD==-1
T0 IFN <0-2>,<.$WN
TPOD==.$WNOD!<A>>
Tp
IFE <0-2>,<DE
UFINE .$WNOD,<<WO.
U0NOD>B8+[ITEXT (<A>)]>>
>
< _%p
cf.WTOX.(.OM
c0WTO,<A>,<B>,<C>,,<D>)B>,<C _%xU
Jpdi
IFB <
KA>,<.WFOBJ==0
K0 IFN <0-2>,<.$WOB
KPJ==0>>
IFNB <
KpA>,<.WFOBJ==-1
L IFN <0-2>,<.$WO
L0BJ==.$WOBJ!<A>>
LP
IFE <0-2>,<DE
LpFINE .$WOBJ,<<WO.
MOBJ>B8+[ITEXT (<A>)]>>
>
< _%xr
[0em
IFB <
[PA>,<.WFOCD==0
[p IFN <0-2>,<.$WOC
\D==0>>
IFNB <
\0A>,<.WFOCD==-1
\P IFN <0-2>,<.$WO
\pCD==.$WOCD!<A>>
]
IFE <0-2>,<DE
]0FINE .$WOCD,<<WO.
]POCD>B8+[ITEXT (<A>)]>>
>
< _%z@
ePf1.WTOX.(.OM
epWTO,<A>,<B>,<C
f>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB _%|@
cpf!
.WTOX.(.OM
dWTR,<A>,<B>,<C>,<D>,<E>)<C _&,z
B0f
DEFINE
B.EAWTO(SUFFIX),<$
`pWT'SUFFIX' <>>
ALLWTO
_&N
HdS
IFB <
H0A>,<.WFTXT==0
HP IFN <2-2>,<.$WTX
HpT==0>>
IFNB <
IA>,<.WFTXT==-1
I0 IFN <2-2>,<.$WT
IPXT==.$WTXT!<A>>
Ip
IFE <2-2>,<DE
JFINE .$WTXT,<<WO.
J0TXT>B8+[ITEXT (<A>)]>>
>
< _&N8
E0d=
IFB <
EPA>,<.WFTYP==0
Ep IFN <2-2>,<.$WTY
FP==0>>
IFNB <
F0A>,<.WFTYP==-1
FP IFN <2-2>,<.$WT
FpYP==.$WTYP!<A>>
G
IFE <2-2>,<DE
G0FINE .$WTYP,<<WO.
GPTYP>B8+[ITEXT (<A>)]>>
>
<
t{P
u[rQ ]>t2
u}P
,MP )V=P .
P .JP .bP /P B&@P cGP )0 p'0KJMmbZ6
Xqo
.X
xCREF a, b, c,
.XCREF .%T, .%DA
.XCREF .$TYP, .$FLGS, .8$DATA, .$HLPM, .$XDEFM, .$LST
.xXCREF .%BREA, .%NXT, .%ERTN, .%RTN8, .%DEFR, .%SBCM
.XCREF .$BREA, x.$NXT, .$ERTN, .$RTN, .$DEFR, .$SB8CM
d==<FLD(.X$TYP,CM%FNC)>!.$FxLGS!<.$LST>
IFN <.%BREA>,<d=8=d!CM%BRK>
XIFG <.%HLPM>,<d=x=d!CM%HPP!CM%SDH>
IFL 8<.%HLPM>,<d==d!XCM%HPP>
IFN <.%DEFM>,<d==d!CM%DPP>
c:! <INSVL.(Xb,PB.PDB)>!<INSVLx.(a,PB.FDB)> ;PDB, FDB
EXP d 8
EXP .$DATA X
IFN <.%HLPM!.%DxEFM!.%BREA>,<
EXP .$HLPM>
IF8N <.%DEFM!.%BREA>X,<
EXP .$DEFM> x
IFN <.%BREA>,<
EXP .$BREA> 8
a==.-c X
IFN <.%NXT!.%xDEFR!.%RTN!.%ERTN!.%SBCM>,<
EXP 8.$NXT >
IFN <X.%DEFR!.%RTN!.%ERxTN!.%SBCM>,<
EXP .$RTN >
IFN8 <.%DEFR!.%ERTN!.X%SBCM>,<
EXP .$xERTN>
IFN <.%DEFR!.%SBCM>,<
8EXP .$DEFR>
IXFN <.%SBCM>,<
ExXP .$SBCM>
b==.-c
I8F2,<
PURGE .%TYXPE, .%FLGS, .%DATxA, .%HLPM, .%DEFM, .%LST
PURGE .8$TYP, .$FLGS, .$DXATA, .$HLPM, .$DExFM, .$LST
PURGE .%BREA, .%NXT,8 .%ERTN, .%RTN, .X%DEFR, .%SBCM
PxURGE .$BREA, .$NXT, .$ERTN, .$RTN,8 .$DEFR, .$SBCM
X
PURGE a, b, xc, d
>
LIST, d
>
LIST$YV ppPOINT 7,[ASCIZ\0\]NT 7,[A$YY p+0
KJNIB.-p%06KJMi5Iyp07KJLh"f= p!0+1KJM+Bw
.XCREF
SALL
XLIST
xDEFINE .$TYP <0>
.%TYPE==0
DEF8INE .$FLGS <0>
X.%FLGS==0
DEFINxE .$DATA <0>
.%DATA==0
DEFINE 8.$HLPM <>
.%HLPXM==0
DEFINE .$DxEFM <0>
.%DEFM= =0
DEFINE .$LST 8 <0>
.%LST==0
X DEFINE .$BREA <0 x>
.%BREA==0
D
EFINE .$NXT <0>
8 .%NXT==0
DEFIN
XE .$ERTN <0>
.%
xERTN==0
DEFINE .$RTN <0>
.%RTN8==0
DEFINE .$DEXFR <0>
.%DEFR==x0
DEFINE .$SBCM
<0>
.%SBCM==0
.CREF
CM==0 p)0,KJN
b'|J0T1,O)0P $YVP $YYP .-P 5IyP f=P w
BT<
..AS
B(1==-<B>
IFDEF
BH .PSECT,<
.IFN
Bh..AS1,ABSOLUTE,<
C
C A,[-..
C(AS1]>
.IF ..AS
CH1,ABSOLUTE,<
.
Ch.AS2==0
IFE
D<..AS1&^O777777B1
D(7>,<
..AS2==1
DH
DI A,..A
DhS1>
IFE ..AS2
E,<
..OP(A,
E(B,C)>
PURGE
EH..AS1,..AS2>>
I
EhFNDEF .PSECT,<
F ..AS2==0
IF
F(E <..AS1&^O777777
FHB17>,<
..AS2==
Fh1
DI A,.
G.AS1>
IFE ..A
G(S2,<
..OP
GH(A,B,C)>
PURGE ..AS1,..AS2>:h V:
A:
5St
..CX1
5(==C
IFDEF .PSE
5HCT,<
.IFN ..CX
5h1,ABSOLUTE,<
6 CAMA B,[C]
6(>
.IF ..CX1,ABS
6HOLUTE,<
..CX2
6h==0
IFE <..C
7X1&^O777777B17>,<
7(
..CX2==1
7H CAIA B,C>
7h IFE ..CX2,<
<
CAMA B,[
<(C]>
PURGE ..CX1
<H,..CX2>>
IFNDEF
<h .PSECT,<
..CX
=2==0
IFE <..
=(CX1&^O777777B17>,
=H<
..CX2==1
=h CAIA B,C>
>
IFE ..CX2,<
>(
CAMA B,[
>HC]>
PURGE ..CX1,..CX2>GE ..CX:&@ 2[
..TSIZ 2((..PST,C)
.CAS2HE ..PST,<<
MOV2hEM A,B>,<
HR3RM A,B>,<
HR3(LM A,B>,<
DP3HB A,[POINTR (B,C)]>>INTR (B,:<;Y hXB
DEFINE ..CNS2 (NEW,OLD()<
OLD>
..CNS ()>
:L;Y HX:
DEFINhE ..CNS (%%%)<
..CNS2 <%%%>,>
(
DEFINE ..CNS2H (NEW,OLD)<
DEFhINE ..CNS (%%%)<
..CNS2 <%%%>,(<OLD'NEW>>>
OLD'NEW>>>
:dH@ .h[
..TSIZ /(..PST,C)
.CAS/(E ..PST,<<
MOV/HE A,B>,<
HRR/hZ A,B>,<
HLR0Z A,B>,<
LDB0( A,[POINTR (B,C)]>>INTR (B,:}i1
lhVh
A==<<<
m-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~
HTl
..OP1
H(==B
IFDEF .PSE
HHCT,<
.IFN ..OP
Hh1,ABSOLUTE,<
I C A,[..OP1]
I(>
.IF ..OP1,ABS
IHOLUTE,<
..OP2
Ih==0
IFE <..O
JP1&^O777777B17>,<
J(
..OP2==1
JH CI A,..OP1>
Jh
IFE ..OP2,<
K
C A,[..O
K(P1]>
PURGE ..OP
KH1,..OP2>>
IFNDE
KhF .PSECT,<
..O
LP2==0
IFE <.
L(.OP1&^O777777B17>
LH,<
..OP2==1
Lh CI A,..OP1
M>
IFE ..OP2,<
M(
C A,[.
MH.OP1]>
PURGE ..OP1,..OP2>GE ..;m
PaC
..PST==
pC-FWMASK
.IF0
..PST,<
POINT
00,B,35>,<
POINTR (B,C)>POI;| ,HZh
POP P,,h.NVA
PURGE .N-VA
.NVR==.NVR-1
.NVR==.NVR;\t +HZ`
PUSH P+h,A
DEFINE .NV,B<A>
.NVR==.NVR+1
.NVR==.;] Sh]*
IFGE T<<<B>&777777>-..T(BSIZ>,<
PRINTXTH ?WORD offset greThater than $BUILD Usize parameter>
U( SET0. (\<B>,C,<A>)
B>,;LH
s(W*
IFNDEF
sHC,<PRINTX C IS
shNOT DEFINED
tA (<B>,D,FWMASK
t()>
IFDEF C,<
tH
IFNDEF %C,<
th A (<B>,D,C)
u>
IFDEF %C,<
u(
%C (A,<B>,D,C)>>A,<B>,;LH
uhWh
..NS==0
v
IRP C,<..N
v(S=..NS+1>
IFE
vH..NS,<PRINTX ?EMP
vhTY STRUCTURE LIST
w, A>
IFE ..NS-
w(1,<
..STR0
wH(A,<B>,<C>,D)
wh>
IFG ..NS-1,<
x
..ICNS
.
x(.CNS (<E (A,<B
xH>,,>)
IRP C,<
xh
IFNDEF C,
y<PRINTX C NOT DE
y(FINED>
IFDEF
yHC,<
IFNDEF %
yhC,<
..CNS (<
z,C,D>)>
IF
z(DEF %C,<
%C
zH (..STR2,,D,C)>
zh
..CNS (<)>)
{
..GCNS
{( ..ICNS
.
{H.CNS (<E (A,<B
{h>>)
IFNDEF %
|C,<
..CNS (<
|(,C,D>)>
IF
|HDEF %C,<
%C
|h (..STR2,,D,C)>
}>>
..CNS (<,,)>)
..GCNS>);LI
}HWl
..CNS (<,C,B>).CNS (;LI
~X
IFDIF <
~(D><F>,<
IFN
~HB <D>,<
A
~h (<B>,D,..MSK)
IFNB <F>,
(<PRINTX C AND E
H ARE IN DIFFERENT
h WORDS>>
..MSK==0>
IFNB <(F>,<
..MSK=..MSK!<E>>MSK=..;LJ hX
IFDIF <D><F>,<
IF(NB <D>,<
HA (<B>,D,..MSK)h>
..MSK==0>
IFNB <F>,<
( ..MSK=..MSK!<E>>MSK=..MSK!<;LJ hX(
IFDIF <D><F>,<
IF(NB <D>,<
IHFNB <F>,<
hA1 (B,D,..MSK)>
IFB <F>,(<
A2 (B,DH,..MSK)>>
..hMSK==0>
IFNB <F>,<
..MSK=..MSK!<E>>MSK=;$\Y
Pb
IF1,<
PRINTX ? Err
0or in "A"
D
EFINE X(NAM,ERR)
P<IFN ..X'NAM&..TX
pEF,<PRINTX ? ERR>
>
$TX$ERR>
$TX$ERR>
;$^
!pb7
..
"TXF==0
.
"0.TXB==0
"P..TXP==0
"p ..TXEG==<..TXEF=
#=0>
IRPC
#0A,<
..TXC=
#P=ASCII\A\_-35
#p
IFN ..TXB,<IFN
$..TXB-..TXC,..CNS
$0(<A>)
IFE
$P..TXB-..TXC,..TXB
$p==0>
IFE ..TXB,
%<..TXQ(<A>,\..TX
%0F)>>
..TXC1
%P
IFN ..T
%pXB,<IFN <..TXB-"^
&">,<..TXER(PEA)>>
&0
..TXEF==..T
&PXEF!..TXEG
&p IFN ..TXEF,<..TERR<A>>
,<..TE;&(
``&..TXA(.TQCH0)..TXA(.TQC;&)
p`/..TXER(IQU)..TXER(IQU;&)
`*..TXER(IQU)..TXER(IQU;&0
`"..TXA(.TQCHA)..TXA(.TQC;&5
``..TXC0(\".CHLFD).TXC0(\".;&5
``..TXC0(\".CHVTB).TXC0(\".;&6
`..TXC0(\".CHFFD).TXC0(\".;&6
`..TXC0(\".CHCRT).TXC0(\".;&@ ;([p
..TSIZ ;H(..PST,C)
.CA;hSE ..PST,<<
SE<TZM B>,<
HLL<(ZS B>,<
HRRZ<HS B>,<
..TS<hAC (..ACT,B)
= .IF0 ..ACT,<
=( $CALL .ZERO
=HLSTOF.
JUMP [P=hOINTR(B,C)]
>LSTON.>,<
..TX (Z,B,C)>>>TX;&81
i(Vb
IFNDEF
iH.PSECT,<
A==0
ih
..TSA1==<Z
jB>
IFE ..TS
j(A1&^O777777777760
jH,<A==1>
>
I
jhFDEF .PSECT,<
kA==0
..TSA1=
k(=<Z B>
.IF .
kH.TSA1,ABSOLUTE,<
kh
IFE ..TSA1&^
lO777777777760,<A
l(==1>>
PURGE ..TSA1>
PURGE ..;&:=
ghVF
A==3
h
IFE <B>+1,<
h(A=0>
IFE <B>-
hH^O777777,<A==1>
hh
IFE <B>-^O777777B17,<A==2>7;'
NU~
..TX1
N(==C
IFDEF .P
NHSECT,<
.IFN .
Nh.TX1,ABSOLUTE,<
O TDA B,[C]>
OH .IF ..TX1,ABSOL
O(UTE,<
..TX2==
Oh0
IFE <..TX1&
P^O777777B17>,<
P( ..TX2==1
PHTRA B,..TX1>
PhIFE ..TX2,<
I
QFE <..TX1&^O77777
Q(7>,<
..TX2==1
QH
TLA B,(.
Qh.TX1)>>
IFE ..T
RX2,<
IFE <<
R(..TX1>B53-^O77777
ZH7>,<
..TX3
Zh (A,B)>>
IFE
[ ..TX2,<
TD
[(A B,[..TX1]>
[H PURGE ..TX1,..TX
[h2>>
IFNDEF .PSEC
\T,<
..TX2==0
\(
IFE <..TX1&^O77
\H7777B17>,<
..
\hTX2==1
TRA
] B,..TX1>
IFE
](..TX2,<
IFE <
]H..TX1&^O777777>,<
]h
..TX2==1
^ TLA B,(..TX1
^()>>
IFE ..TX2,<
^H
IFE <<..TX
^h1>B53-^O777777>,<
_
..TX3 (A
_(,B)>>
IFE ..T
_HX2,<
TDA
_hB,[..TX1]>
PURGE ..TX1,..TX2>;'`
`(V
IFIDN <
`HA><Z>,<
..
`hTX2==1
ANDI
aB,^-..TX1>
IFI
a(DN <A><O>,<
aH ..TX2==1
OR
ahCMI B,^-..TX1>
b
IFIDN <A><C>,<
b(
..TX2==1
bH EQVI B,^-..TX1>QVI B,^-..TX;'
a-
..TXE
0F==0
IFNDEF
P A,<..TXER(UQU)>
p
IFDIF <B><>,
<IRPC B,<.IFN <
0B>,NUMERIC,..TXER
P(IWA)>>
IFNB <C
p>,<IFNDEF .TXTJC
,<..TXER(IJA)>>
0IFDEF A,<
IF
PE <A_-^D18>,<IFD
pIF <EFBCD><>
,<..TXER(ANA)>>
0 IFE <1-<A_-^D1
P8>>,<IFDIF <BC
pD><>,<..TXER(JNA)
>>
IFE <2-<A_
0-^D18>>,<IFIDN <
PEF><>,<..TXER(AD
pS)>>>
IF
E ..TXEF,<
IFID
0N <B><>,<..TXWD=
P=<..TXJU==<..TXFC
p==0>>>
IFDIF <
B><>,<
IFE <^
0D<B>>,<..TXWD==<
P..TXJU==<..TXFC==
p0>>>
IFN <^D<
B>>,<..TXWD==^D<
0B>
IFNB <
PC>,<..TXJU==.TXTJ
pC>
IFB <
C>,<..TXJU==.TXTJ
0L
IFE <A
P-.TQOCT>,<..TXJU=
p=.TXTJR>
IFE <A-.TQDEC>,<
0..TXJU==.TXTJR>>
P
IFB <D>,<
p..TXFC==" ">
IFNB <D>,<..TX
0FC=="D">>>
I
PFB <EF>,<..TXP
pT==0>
IFNB <E
F>,<..TXPT==1>
0IFE <..TXWD+..TXP
PT>,<
EXP FL
pD(A,TXT.FN)>
I
FN <..TXWD+..TXPT
0>,<
EXP FLD
P(A,TXT.FN)+FLD(.
p.TXJU,TXT.JU)+FLD
(..TXWD,TXT.WD)+F
0LD(..TXFC,TXT.FC)
P+TXT.AD
PNTR(E,F)>>
T;'h
8PcQ
IFE
8p..TXP,<
..IC
9NS
..CNS<ASC
90IZ\>
..TXP==1
9P>
..CNS<A
9p>
..TXF==
:0
..TXB=="^"
..TXB==;'h
:Pc]
IF
:pN ..TXP,<
..
;CNS<\>
EXP <F
;0LD(.TQCHT,TXT.FN)
;P+[..GCNS]>>
..TXP==0>
;' 9
Pb
..TX
pEF==..TXEF!..XA
!
..TXF==0
!0
..TXB=="^"
..TXB=="^;'
'0b;..TXQB(<A>)..TXQB(<;'
(
'pbE
IF
(N ..TXC-"^",<..TX
(0C0(<A>)>
(PIFE ..TXC-"^",<..TXF==1>-"^",<..;'
(
)be
IF
)0E ..TXC-"^",<..TX
)PC0(<A>)>
I
)pFN ..TXF,<
.
*.TXF==0
IFDEF
*0 .TQCHA,<
*P IFDEF ..TQMA,.
*p.TQMA
IFN
+ <.TQCHA_-^D18>,
+0<..TXF==2>>>
+P IFE ..TXF-2,<..T
+pXC1(<A>)
..IC
,NS
..CNS<..T
,0XA(.TQCHA,>>
,P ..TXEG==..TXEG!..TXEF==..TXEG;'
)
-bw
..TX
-0F==3
IFG
-PE ..TXC-"0",IFLE
-p..TXC-"9",<..TXF=
.=2>
IFE ..TX
.0F-2,<..CNS(A)>
.P
IFE ..TXF-3
.p,<..CNS<,>
..TXQ3(A)>
;'
)
/0c
..TX
/PF==4
IFE
/p ..TXC-"/",<..TXF
0==5>
IFE .
00.TXC-"[",<..TXF==
0P5>
IFE ..T
0pXF-4,<..CNS<A,>>
1
IFE ..TXF
10-5,<..CNS<,,>
..TXQ5(A)>
;'
*
1pc!
..TX
2F==4
IFE
20 ..TXC-"/",..TXF=
2P=5
IFE ..T
2pXC-"[",..TXF==5
3
IFE ..TXF-5
30,<..CNS<,>
3P..TXQ5<A>>
3p IFE ..TXF-4,<..
4CNS<A,>
..TXF==5>
..;'
*
4Pc3
..TX
4pF==6
IFE
5 ..TXC-"/",..TXB=
50="/"
IFE .
5P.TXC-"[",..TXB=="
5p]"
IFE ..TXB
6-"]",..CNS<[>
60 IFE ..TXB,..TXF==5 ..TXB,..T;'
+
6pcA
..TX
7F==0
IFE
70..TXC-"]",..CNS<]
7P>
..CNS<)>
7p
..GCNS
8
..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@ HYJ
A=.FPAhC+..NAC
IFB <B>,<..NAC=..NAC+(1>
IFNB <B>,<..NAC=..NAC+B>.d` hYX
IFG A-.NPAC,<PRINTX ?TO(O MANY ACS USED>
IFLE A-4,<
h $CALL .SAVEA>
IFG A-4,<
$CALL .SAVE8>
@H\D
IFIDN@h <A><.>,<
AXMOVEI .SAC,B
A( PUSH P,.SAC
>
IFDIF <AhA><.>,<
.IFABTM <A>,.BLF4
B( .BLF1==0
BHIFN .BLF4,<
Bh .IF %A,MACRO,C<
.BLF1==1>
>
IFNB <CHB>,<
.BLF1==1>Ch
IFN .BLF1,<D
LOAD .SAD(C,A,B
PUSDHH P,.SAC
>
Dh IFE .BLF1,< ;IEF WASN'T A STRUCTE(URE REF,
IFEHN .BLF4,<
Eh .BLF2==<<Z A>&F17B17>-<P>B17
F( .IF .BLF2,AFHBSOLUTE,<
G Fh IFE .BLF2,<
.BLF1==1G(
.BLF3GH==<Z A>&777777
Gh PUSH P,.BLF3-..HNA(P)>>>>
IFH(E .BLF1,<
PUHHSH P,A>>
..NA=..NA+1
..
@\
.BCAL1 A
.BCAL1
| WM;
XLIST
W8 .ORG 0
LIST
.ORG 0
LIST
=Z MH\l$CALL I%INTA$CALL I%IN9
ehV8
..CSN==
fA
..CSC==0
I
f(RP B,<
IFE ..C
fHSN-..CSC,<
ST
fhOPI
..CAS1 (
gB)>
..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([L
..PST==8HC-FWMASK
.IF0 8h..PST,<
SOS B9>,<
$CALL .SO9(S
LSTOF.
J9HUMP [POINTR(B,C)]
LSTON.>C}
>Pf
.OPCD==
a0.OPCD+1
WO.A==.OPCD
G),<
| X@ML
XLIST
X` .....X=.
.ORG
.ORG 0
REPEAT Y .....X,<EXP 0>
Y@ PURGE .....X
.ORG
LIST
.v=H HX~
IRP A,h<
.ENSV2 (A)> .ENSV2 (A)v=I (Y
.ENSV3 (A)
.ENSV3 v=I hY
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
dHV*
..IFT==
dhA
IFE ..IFT,
e<
B
..IFT==0
e(>
IFN ..IFT,<
C>N ..IFT,<&4 I\\
IRPC AI(,<
B==0
IFGEIH "A"-"A",<IFLE "IhA"-"Z",<B=1>>
IFGE "A"-"0",<J(IFLE "A"-"9",<BJH=1>>
IFE "A"-"Jh%",<B=1>
IFE "KA"-"$",<B=1>
K(IFE "A"-".",<B=KH1>
IFE B,<STOPI>>IFE B,<STOP&t<H 5([4
..PST==5HC-FWMASK
.IF0 5h..PST,<
AOS B6>,<
$CALL .AO6(S
LSTOF.
J6HUMP [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
%hR.<A>B<^D70-POS(B)>B<^D70N
0PO
SYSPRM C
IFG .PID,<MX.PID==A>
<MX.PID=O%=H HX\
.STKV2 (A)
.STKV2 O%=I
Xj
IFB <B
(>,<..STKN==..STKN
H+1>
IFNB <B>,<
h..STKN==..STKN+B
..STKQ==..STK
.STKV3(A,\..STKQ)V3 (A,O%=I
IFDEF A,<.IF A,SYMBO(L,<PRINTX STKVAR HA ALREADY DEFINEhD>>
DEFINE A<-^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 HY
.TRV2 (A)
.TRV2 (Sd@ Y&
.TRV3 ((A,\..NV)
IFB H<B>,<..NV=..NV+1h>
IFNB <B>,<..NV=..NV+B>,<..Sd` (Y4
IFDEFH A,<.IF A,SYMBOhL,<PRINTX TRVAR A ALREADY DEFINED(>>
DEFINE A<^OHB(.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 _%~
hf]
$CALL
h0I%WTO
LSTOF.
hP
JRST g
hp
$WTRST
IF
iNB <A>,<$WTMTY (
i0<A>)>
IFNB <
iPB>,<$WTTYP (<B>)
ip>
IFNB <C>,<$
jWTTXT (<C>)>
j0IFNB <D>,<$WTOBJ
jP (<D>)>
IFNB
jp<E>,<$WTACK (<E
k>)>
IRP F,<
k0F>
$WTBLD
kP
g:!
LSTON. g:!
LSTON. kPP >}{woP