Trailing-Edge
-
PDP-10 Archives
-
bb-bt99o-bb
-
glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,S Y@ P C4 @ (xZK
..NAC== )0
IRP A,<
)8 .ACV1 (A)>
.ACV3 (\..NAC)C'
PxU ..AS(A,B ,ADD,SUB)(A,BC,
2@S LSH A,-^D 9 LSH A,-^DC2f}
N e
.EAWTO(
N MTY,0)
.EAWTO(T
N@YP,2)
.EAWTO(TX
N`T,2)
.EAWTO(OBJ
O ,0)
.EAWTO(ACK,
O 0)
.EAWTO(FLG,1
O@)
.EAWTO(NOD,0)
O`
.EAWTO(JBN,0)
P
.EAWTO(ACD,0)
P .EAWTO(OCD,0)
.EAWTO(MFL,1)
C:'
u8W+
TXZ A, <^-<B>>TXZ A,CHuI7Q x CHvN8P 'CJ9ip CJ9jp CJ9l}p E
..NA==0 PX
IRP B,<
Px .BCAL2 B>
QPUSHJ P,A
AD Q8JSP P,-..NA
P,-..NA
E2"@ kX^c
IFE kxB,<..TA==0>
lIFN B,<EXP ..TA l8
PURGE ..T A>
PURGE ..TE@tP 'E@v yQ ~ E@v:=Q | F; z:Q @ G@
IxTO
..C X(,A,B) ..CGD
M8Tk
..C X(A,A,B) ..CGDP
K8T[
..C X(E,A,B) ..CGDp
KxT_
..C X(G,A,B) ..CGDy
L8Tc
..C X(GE,A,B) ..CGE@
J8TS
..C X(L,A,B) ..CGEI
JxTW
..C X(LE,A,B) ..CGE`
LxTg
l* ..C X(N,A,B) ..CGH
OLST
X CRE
A` 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
D X RFM
X RFO
X RSZ
X B
X FFB
`X ACW
X RMS
X MCY
X CT
X NSB
LSTON.
G"\Y ^8~
IF1, ^X<%%EDT==AEDT>
^x
IF2, <IFN <%%E_DT-AEDT>,<
PR_8INTX ? Edit Numbe_Xr Doesn't Match G_xLXVER in GLXA
` A$WHO(\AEDT)> `8
A$NOTE
I`XNTERN AEDT
I`xNTERN LODLEV
;a PURGE %%EDT> ;EN D IF2
=P G(tSQ @ G(tEHQ G(tHwQ G(tI8Q p G(v yP 8G(v<P 'G(v=P G(vJ6Q x G*iVp G*kVp G*lzp G*l}p G*mp G4,YP G4,,UQ G4,LQ G4,[qQ G4,\qQ @ G4,iVQ x G4,kQQ ` G4,m:Q G4,m`Q @ G4,zQP 'G4-
Q G4-Q @ G4-ZQ G4-[P G4- Q G4-LzP 'G4-htQ G4-kxQ G4-kyP G4-lsQ G4. RQ G4. `Q @ G4.
zQ G4.(4Q G4.,Q G4.9Q G4.=zQ G4.lXQ @ G4.zsQ G4.{Q G4.{Q G4/
3Q @ G:YlP
G>hKW yHP
IFNB <>yh,<
PRINTX (Frozm GLXVER)
> ;EN D IFNB
G>hMt xH
PRINTX x(GLXVER GLXCOM EdixHt(63) by DPM on 9xh-Aug-88
PRINTX y GLXCOM Actua l Edit(A)
G>lYP G>vC@ rO LALL
PAGE r8; (A Continued o rXn next page)
SAL rxL; (A Continued sfrom previous pag e) previous pagG? T ipNO ASCIZ \
C OPYRIGHT Z \
CGHt;rP GHtkP GHv P GHv)9P GHv:=P I!k7P I!k<P I m P I$P ` S! *IIY{P ` S# *|I Hx\M
IFNB < IB>,<..STR0 (.DECR I80,,<B>,A)>
IF IXB <B>,<SOS A> <B>,<SOS A>I6=
8X
A==<-1
XB<C>+1B<C-D>>
x
IF1,<IFDEF %A ,<PRINTX ?A ALRE 8ADY DEFINED>>
D XEFINE %A (OP,AC, xY,MSK)<
IFDIF <Y><>,<
OP (<AC 8>,B+'Y,MSK)>
I XFIDN <Y><>,<
OP x (<AC>,B'Y,MSK)> >AC>,B'Y,MSK)>I'7
S8U ..OP(A,B ,DIV)..OP(A,BIOH1 nHv~
IFB <Dnh>,<
XWD [ASCIZ\oC\],[XWD B,A]>o(
IFNB <D>,<
oHXWD [EXP CM%FW!Doh
ASCIZ\C\],[X WD B,A]>
,[XKu zQ @ KuLzQ Ku|zQ KvHVQ KH(Q P :KJ
,bP B KJ)bP b KJ=P +KJ{P KJIBP !KJ =bP (KJ IP &KJ Z"P 0KJ |P 4KJ X"P KJ 9P &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 KJt1 P KJt9"P KJt:"P #KJtKBP 3KJtlP 2KJtmP -KJu"P 8KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv BP KJv
"P 2KJv
bP .KJv bP KJv)"P KJv9P KJv;P 1KJv;BP KJv<P KJv=bP KJv[P KJv["P KK-P KKx"P 4KK
YBP
IF1,<IFA$,PRINTX
ERA$=%
ER%%%==E R%%%+1
R%%%==EKKP KK,}P KKLP KK|Y
~ kx
ERR EOF
~ ,<End of file>
~@ERR IFP,<Illegal
~`file position>
ERR FDE,<File dat
a error>
ERR FN
@D,<File is not on
` disk>
ERR NSD,h device>
ERR FCF,<Fileiced>
ERR SLE,<A sys exc
ERR IFS,lofile spe
ERRNF,<File not fo
ERR PRT,<P violati
ERR DNA,<Devailabl
ERR NCE,<Noentry i
ERR NMAPCFamessage
@ERR FDS,<Files ar
ERR FFile already
ERR USEpected syst
ERR NNo such pid>
ERR BOL,<Beginnach
ERR EOL,<Enreached
ERR RQF,<Recefull>
ERR SQF,<Sende>
@ERR NRE,<No>remem
ER TBF,<Table is f
ERR EIT,<Ty alread
ERR I
TE,<Invalid table
entry>
ERR QEF
@,<Quota exceeded
`or disk full>
ERR ARG,<Invalidea
ERR IFN,<Inva spec
ified>
ERR IJN,
<Invalid job numb
@er specified>
E
`RR RAD,<Invalid r
@ ERR NUM,<Invalid
ERR IDT,<Invald sp
ERR ITvalidftime f
ERR DOR,<Date/ti
ERR DTM,<Valuete/t
ERR MDD,<My 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>
ERR ICN,<Invalid
ERR NQS,<Iotedtstr
@ ERR AMB,<Ambiguo
ERR NMT,<Datch tok
ERR CMA,<Coven>
ERR NNC,<Nodeenam
ERR INT,<Nodemterm
ERR NSN,<Unknown n
ERR IInvalidopath
@ERR IUS,<Invalido
ERR DGS,<Devyrnote
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
`ERR FIO,<File is
ERR FBle being mod
ERR WLK,locked dev
ERR CSD,<Cersede a
ERRDD,<Cannottdele
ERR SNb-fileudirec
* 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>
ERR NPI,<NoPfreee
ERR IFdirect filer
ER NDN,<Nullndevic
9 ERR PWA,<PID wen
ERR CGPt get a PID
ERR IND,<Invae>
@ERR IAC,<Invalid
`ERR 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 no t present>
noKKBP
KK I"P KK iBP 'KK BP
KK |bP *KK$)BP KK%M"P $KK%X"P "KK%Y"P !KK%[BP "KK%]P KK%yBP 9KK%|P 9KK&+BP ,KK,K"P .KK,KBP /KK-*"P KK.9"P KK=JbP %KLtkQ x KLv:=Q x KLv=P 'KO&:=p KZ`
0`
IFIDN <
PBC><>,<EXP <A>
p>
IFDIF <BC><
>,<
IFE <A+1>
0,<<POINT 7,C>>
P IFN <A+1>,<
p IFIDN <C><>,<
EXP <A,B>>
0 IFDIF <C><>,<EX
PP <A,B,C>>
> >A,B,C>>
>KbN@ ` Kc oXN IRP A,<
ox IF2,<IFNDEF A,< EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP Mv
P MuI7Q x MvN8P 'Mn:=p Mv:=P MF:=p M$pQ"P M$tzP M$t{P M$t P '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 x M$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 |d
IFNB <>|(,<
PRINTX (Fro|Hm GLXVER)
> ;EN D IFNB
M&`Mt zH\
PRINTX zhGLXVER GLXFIL Edi{t(120) by LWS on {(1-Aug-88
PRINTX{H GLXFIL Actu al Edit(A)
M&dYP (M2
7S9 <<<A>B<PO S(<B>)>>&<B>>M>h1p M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MHuiWQ @ MHv
Q MJh1p MJhrp MJip MJiVp MJk=p MJlsp MJl}p MJm9p MR4zP MR6L`P MRV>9P MS.[yQ MVpKW (
IFNB <>H,<
PRINTX (Frohm GLXVER)
> ;EN D IFNB
MVpMt h~
PRINTX GLXVER GLXFUN Edi(t(2) by BAH on 14H-Nov-86
PRINTX h GLXFUN Actua l Edit(A)
MVtYP< M^l uQ O2| p8O
pX IF2,<IFDEF A,<. pxIFN A,EXTERN,<IN qTERN A>>
q8IFNDEF A,<EXTERN qX A>
Q SUPPR ESPA>>FlYSUPPRO3DYP F@O3EKrPf@O3EZ7P O3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
Sp Sv8;Q Sv>@p SNn
RxU ..OP(A,B ,IDIV).OP(A,BSNp @ S7-N
QxU ..OP(A,B ,IMUL).OP(A,BS: Ex\5
IFNB < FB>,<..STR0 (.INCR F80,,<B>,A)>
IF FXB <B>,<AOS A> <B>,<AOS A>S:HKW hB
IFNB <>,<
PRINTX (Fro(m GLXVER)
> ;EN D IFNB
S:HMt (:
PRINTX HGLXVER GLXINI Ediht(23) by on 27-Jun-84
PRINTX ( GLXINI Actual Edit(A)
S:LYP S; k
9XSM <<<A>B<PO S(<B>)>>&<B>>S; KW (
IFNB <>H,<
PRINTX (Frohm GLXVER)
> ;EN D IFNB
S; Mt h
PRINTX GLXVER GLXINT Edi (t(116) by LWS on H12-May-88
PRINT hX GLXINT Act ual Edit(A)
S;!kP S;!k<P S;$YP 'S?
txW'
TXO A, <B>
TXO A,S@t,:P 'S@t9QQ @ S@t9QP S@t9RP `S@t9VP S@t9XP $ S@t9YQ S@t9YQ S@t9ZQ S@t9[P " S@t:P S@u-xQ S@u[XQ x S@v
tQ @ S@v,:P S@v,rQ S@v<Q S@v<Q S@v<Q x S@v<:P '~ S@v=Q S@vMQ SBKW (^
IFNB <> H,<
PRINTX (Fro hm GLXVER)
> ;EN D IFNB
SBMt hV
PRINTX
GLXVER GLXIPC Edi
(t(77) by LWS on 2
H4-Aug-87
PRINTX
h GLXIPC Actu al Edit(A)
SB IP SB M"P SB YP SB lP SB 2P SB
BP SB ,BP SB ,bP SB ."P SB \P SB)iP SB)iP SB)kVP SB)kYP SB)lXP SB)lsP SB)lxP SB)mvP SBal}P SPuxzQ @ SR/
`%
LSTOF.
0XCREF
..TEXT<A
P>
EXP 0
LSTON.
0
Uv98Q | U $@
/`lT
OLST
XJJNO,.JI,GJBJNO>
X-TNO,.JITNO,<
XUSR,.JIUNO,.GTPPN
X,CDN,.JIDNOH>
`XGPRG,.JIPNM,.GTP
XPCJN,.JICJBCJB>
XTBAT,.JIBCH,.G
XIJLT,.JTJLT
X,LOC,<-1,,GJBLOC>
`XJRTM,.JIRT,<-1,,
X<TLC,GJBTLC>,<-1,
LST ON.
LSTU +, U +( U +$ Up + U~` +" U$t(:P U$t9P U$t:WP U$u+P U$u+WP U$uKqP U$uX<P U$uZ7P U$v
SP U$v-P U$vKP U$vKWP U$v\yP U&j2p U&jWp U&kVp U&lxp U&m9p U&:=p U?0 +0 UK I@ + UVn @ 4@ UVn
hKW
IFNB <>,<
PRINTX (Fro(m GLXVER)
> ;EN D IFNB
W
Mt
(j
PRINTX
HGLXVER GLXKBD Edi
ht(103)-by LWS on
PRINT GLXKBD Act ual Edit(A)
W
$YP !WNH1 p(w
IFB <CpH>,<
XWD [ASCIZ\phB\],A>
IFNB <qC>,<
XWD [EXP q(CM%FW!C
ASCIZ \B\],A>
SCIZY"l uQ x Y&i1
S
LST
@OF. XCREF
CDO
` OTSINI
CDO
CDO .ZP
AGA
CDO .ZPAGN
@
CDO .ZCHNK
CD
`O .SAVE1
CDO .S
AVE2
CDO .SAVE3
CDO .SAVE4
C
@DO .SAVET
CDO .
`SV13
CDO .SV14
CDO .SV15
CDO
.SV16
NT .RETT
@
NT .RETF
CDO
` .RETE
CDO .AOS
CDO .SOS
CDO .ZERO
NT
@ .POPJ
CDO .S
`TOP
CDO .SAVE
8
CDO .STKST
CDO .TRSET
@
NT .POPJ1
C
`DO .UD2SC
CDO
.SC2UD
CDO .
CPUTY
CDO .DI
@E
CDO
CDO
`
CDO
CDO C
%RPRM
CDO C%INT
R
CDO C%SEND
@CDO C%RECV
CDO
`C%BRCV
CDO C%RE
L
CDO C%CPID
CDO C%KPID
CDO
@C%SPID
CDO C%MA
`XP
CDO C%PIDJ
CDO C%PIDH
CDO
C%SIDX
CDO
C
@DO
CDO
CDO
`
CDO F
%IOPN
CDO F%AOP
N
CDO F%OOPN
@CDO F%IBYT
CDO
`F%OBYT
CDO F%IB
UF
CDO F%OBUF
CDO F%REL
CDO
@F%DREL
CDO F%RR
`EL
CDO F%REW
CDO F%POS
CDO F
%CHKP
CDO F%INF
@O
CDO F%FD
CD
`O F%REN
CDO F%D
EL
CDO F%FCHN
CDO
CDO
CDO
@
CDO
CDO
CDO
`
CDO
CDO
CD
O FUNCT.
C
DO
CD
@O M%ACQP
CDO M%
`RELP
CDO M%IPSN
CDO M%NXPG
C
DO M%IPRC
CDO M
@%IPRM
CDO M%AQN
`P
CDO M%RLNP
! CDO M%CLNC
CDO
! M%FPGS
CDO M%GM
!@EM
CDO M%RMEM
!` CDO
CDO
CDO
"
CDO
CDO
CDO
"
CDO M%GPAG
C
"@DO M%RPAG
CDO
"` CDO
CDO
CDO
#
CDO
CDO
CDO
#
CDO
CDO
#@
CDO T%T
#`EXT
CDO T%TTY
$ CDO
CDO
CDO
$
CDO
CDO
CDO
$@
CDO
CDO
CD
$`O
CDO
CDO
%
CDO L%
% CLST
CDO L%DLST
%@
CDO L%CENT
C
%`DO L%CBFR
CDO L
& %DENT
CDO L%NEX
& T
CDO L%FIRS
&@CDO L%LAST
CDO
&`L%PREV
CDO L%PR
' EM
CDO L%CURR
' CDO L%RENT
CDO
'@ L%SIZE
CDO L%A
'`POS
CDO
CDO
( CDO
CDO
CDO
(
CDO
CDO
CDO
(@
CDO
CDO
(` I%NOW
CDO I%EX
) IT
CDO I%ION
) CDO I%IOFF
CDO
)@I%SLP
CDO I%INT
)`1
CDO I%INT2
* CDO I%INT3
CDO
* I%TIMR
CDO
CD
*@O
CDO I%SOPR
*`CDO I%WTO
CDO
+ CDO I%HOST
CDO
+ I%JINF
CDO I%C
+@JOB
CDO I%KJOB
+`
CDO S%U2DT
,
CDO S%DT2U
CD
, O S%DATI
CDO S%
,@SIXB
CDO S%CMND
,`
CDO S%TBLK
C
- DO S%SCMP
CDO S
- %ERR
CDO S%INTR
-@
CDO S%EXIT
C
-`DO S%TBAD
CDO S
. %TBDL
CDO S%NUM
. I
CDO K%RCO
.@C
CDO K%WCOC
.`
CDO K%SUET
C
/ DO K%STYP
CDO K
/ %TXTI
CDO K%SOU
/@T
CDO K%BOUT
/`CDO K%BIN
CDO K
0 %BACK
CDO K%TPO
0 S
CDO K%BUFF
0@CDO K%FLSH
CDO
0`K%OPEN
CDO K%EC
1 HO
CDO
CDO
1 CDO
CDO
CDO
1@ CDO
CDO
CDO
LSTON.
Y:W (V
IFNB <>H,<
PRINTX (Frohm GLXVER)
> ;EN D IFNB
Y:XMt hN
PRINTX GLXVER GLXLNK Edi(t(11) by AWC on 2H9-Jan-82
PRINTXh GLXLNK Actu al Edit(A)
Y:\YP Y>
@ ?8\
IFNB < ?XC>,<..STR0 (..LDB ?x,A,C,B)>
IFB @ <C>,<MOVE A, B>C>,<MOVE A,Y>%I;P YO%GP YO%yG sXO'
IFNDEF sxLSTIN.,LSTIN.==0 t
IFE LSTIN.,<
t8 IFIDN <XCREF><A tX>,<.XCREF>
tx XLIST>
LSTIN .==LSTIN.+1STINYO%{G u8O1
IFG LST uXIN.,LSTIN.==LSTIN ux.-1
IFLE LSTIN v.,<.CREF
LIST>
[KW ~Hx
IFNB <>~h,<
PRINTX (From GLXVER)
> ;EN D IFNB
f[Mt }p
PRINTX }(GLXVER GLXMAC Edi}Ht(520) by PERK on}h 7-Jun-88
PRINT~X GLXMAC Act ual Edit(A)
[ YP ([ 3@
9SI <<<1_<A>> -1>B<B>>_<A>>[ 8@
8SA 1B<<A>-1> -1B<B><<A>-1>[@
`Pr
IFB <B
>,<MAXSIZ==0
I
RP A,<IFG <A-MA
@XSIZ>,<MAXSIZ==A
`>>>
IFNB <B>,<
B==0
IRP A,<
IFG <A-B>,<B== A>>>
B>,<B==[tP '[t;ZQ x [v
8Q [v
QP [v
TP '[v Q v [v :Q [v uQ [v xQ p [vlXp [lrp [ltp [lxp [l}p [hKW h"
IFNB <>,<
PRINTX (Fro(m GLXVER)
> ;EN D IFNB
[hMt (
PRINTX HGLXVER GLXMEM Ediht(33) by DPM on 19-Apr-88
PRINTX( GLXMEM Actu al Edit(A)
[lYP uQ @ [th:Q [u[yQ [ukvQ [v=3P '[v|WQ [&p
`Q
IFB <B
>,<MINSIZ==377777
,,777777
IRP
@A,<IFG <MINSIZ-A
`>,<MINSIZ==A>>>
IFNB <B>,<B==
377777,,777777
@ IRP A,<IFG <B-
`A>,<B==A>>>
A>,<B==A>>>
[>!`
8XSE <A-<A/B >*B><A-<A/B[?7
:T3
..MX1
:8==B
IFDEF .P
:XSECT,<
.IFN .
:x.MX1,ABSOLUTE,<
; MOVE A,[B]>
;8 .IF ..MX1,ABSOL
;XUTE,<
..MX2==0
;x
IFE <..MX1>B5
<3,<
..MX2==1
<8
MOVEI A,..MX
<X1>
IFE ..MX2,<
<x
IFE <..MX1>B
=17,<
..MX2==1
=8
MOVSI A,(..
=XMX1)>>
IFE ..M
=xX2,<
IFE <<..
>MX1>B53-^O777777>
>8,<
..MX2==1
>X HRROI A,<..MX
>x1>>>
IFE ..MX2
?,<
IFE <<..MX
?81>B17-^O777777B17
?X>,<
..MX2==1
?x
HRLOI A,(..M
@X1-^O777777)>>
@8 IFE ..MX2,<
@X MOVE A,[..MX1]
@x>
>>
IFNDEF
A .PSECT,<
..MX2
A8==0
IFE <..MX
AX1>B53,<
..MX2
Ax==1
MOVEI A,
B..MX1>
IFE ..M
B8X2,<
IFE <..M
BXX1>B17,<
..MX
Bx2==1
MOVSI A
C,(..MX1)>>
IFE
C8 ..MX2,<
IFE
CX<<..MX1>B53-^O777
Cx777>,<
..MX2=
D=1
HRROI A,<
D8..MX1>>>
IFE .
DX.MX2,<
IFE <<
Dx..MX1>B17-^O77777
E7B17>,<
..MX2
E8==1
HRLOI A,
EX(..MX1-^O777777)>
Ex>
IFE ..MX2,<
F
MOVE A,[..
F8MX1]>
>
PURGE ..MX1,..MX2RGE[Lt;ZQ x [LvN8P '[NF:=p [N^= 8X%
A==C X
IF1,<IFDEF % xA,<PRINTX ?A ALR EADY DEFINED>>
8DEFINE %A (OP,AC X,Y,MSK)<
IFDIF x <Y><>,<
OP (<A C>,B+'Y,MSK)>
8IFIDN <Y><>,<
O XP (<AC>,B'Y,MSK) >>AC>,B'Y,MSK)[PuySP ' [PvNP ' [Vg
R8U ..OP(A,B ,MUL)..OP(A,B[`v
2P ] nNs IF2,<IFDEF n8 A,<A==A>> IFN DEF A,<A==B>]F@ q TEMFDB##_
QkRp _
Ql}p _
Qm p _
Qm7p _
T=
X .OTReader
X .OU,Network-Cont
X .OTLPTr
X .OTBtch-Stream
/H 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
j X .OTDBM,<DBMS S
X .OTFALtream>
X .OTEVT,<Event>
k X .OTFCH,<Microf
X .OTXER,
X .OTNQ-Stream>
,<NQC-Stream>
_SKW hJ
IFNB <> ,<
PRINTX (Fro (m GLXVER)
> ;EN D IFNB
_SMt (B
PRINTX HGLXVER GLXOTS Ediht(13) by DPM on 14-Apr-88
PRINTX( GLXOTS Actu al Edit(A)
_S YP _S h6Q O3EJ1_Tu
SQ x _TuLSP '` P `D P `H P `L P `P P a< VP a>:=P a,I3p a,\Yp a- P a-np a. :p a.-p a.:=p atzp atiP 'atkp au p auZp auI7Q x auKqp au[Yp au^p auh6p av Q x av
2p av>9p a
,TQ a
, Q a
,*9Q a
,>(Q a
,>(Q a
,k{Q a
,m3Q a
-J8Q @ a
-iQ a
-}SQ @ a
.Z7Q a
.\yQ a
tTQ a
t Q a
t*9Q a
t>(Q a
t>(Q a
tk{Q a
tm3Q a
uJ8Q @ a
uiQ a
u}SQ @ a
vZ7Q a
v\yQ al}P aI3
..XX=D(A,CM%FNC)>
xX.IFNBC<D>,<..XX=
y8.IFNBC<E>,<..XX=
z0 EXP ..XX
zPCIFNB <C>,<EXP
{EIFB0<C>,<
{0SIFNB,<POINT 7,[A
{pFI <D>,<0>
| IFNBS<E>,<POINT
|p IFB <E>,<0>
}>IFB><I
}0IIFNBX<I>
}P IFB <J>,<0>
}pJIFNB <J>,<EXP
~0,IFB <H>
~P>IFNBP<H>
~pIFB <G>,<0>
IFNB <G>,<EXP G >
G>,<EXP Ga@KW hj
IFNB <> ,<
PRINTX (Fro (m GLXVER)
> ;EN D IFNB
a@Mt (b
PRINTX HGLXVER GLXPFH Ediht(16) by TARL on 17-Apr-81
PRINT (X GLXPFH Act ual Edit(A)
aDYP a
2 S LSH A,^D9 LSH A,^D9a+= 5 a;&
( bH
IFB <
( B>,<..STR0(..PNT
(@,,<FWMASK>,A)>
(` IFNB <B>,<..ST
) R0(..PNT,,<B>,A )>.PNT,,<B>,Aa>Mm
68S5 <POINT WID
6X(B),A,POS(B)> B),A,POS(B)>a?H6 + a?
3xS <^L<<A>&< -<A>>>><<A>&<aJ}Ks hhPX
SALL w
LSTOF. XCRE w F
%%.GLX== w@%%.GLX
GLXVR w`S==GLXVRS
x IFNB <A>,<%%.MOD x ==SIXBIT/A/>
x@IFNB <B>,<%%.OTS x`==SIXBIT/B/>
y
GLOB I%INIT
TOPS10 <
y@ SEARCH UUOSYM y`
%%UUOS==%%UUO z S
>
T z OPS20 <
SEA z@RCH MONSYM
; z`%%MONS==%%MONS
>
IFB < { B>,<
IFN G {@LXPUR,<
.TEXT {` |,REL:GLXLIB/SEA | RCH/REQUIRE:I%INI | T/SEGMENT:LOW|
|@ >
DEFINE $ |`DATA (NAM,SIZ<1>) } ,<
NAM: BLOC } K SIZ
>
}@DEFINE CDO (X),<G }`LOB X>
DEFINE ~ NT(X),<CDO X>
~ LIBVEC
> ~@
IFNB <B>, ~`<
IFDEF .MC RV.,<.VERSION <GL XVRS>>
CHKEDT @(B)
IFDIF `<B><INI>,<
IFN GLXPURE,<.PSE
CT .HIGH.>
IF
@E GLXPURE,<
` TWOSEG 400000
RELOC 0
R
ELOC 400000
>
@
DEFINE $
`DATA(NAM,SIZ<1>),
<
IFN GLXPUR
E,<.PSECT DATA>
@
IFE GLXPURE,<
`RELOC>
IFNDE
F B%D,<B%D::!
B%DL==:0>
NAM
@: BLOCK SIZ
`B%DL==:B%DL+SIZ
IFN GLXPURE,
<.ENDPS DATA>
@ IFE GLXPURE,<RE
`LOC>
>
IFDIF <B><OTS>,
<
DEFINE CDO
@ (X),<GLOB X>
` DEFINE NT(X),<CD
O X>
LIBVEC
>
>
@
IFIDN <B>
`<INI>,<
DEFIN
E $DATA (NAM,SIZ<
1>),<
NAM: B
@LOCK SIZ
>
`
>
>
L
STON.
GLO
B <.POPJ, .RETT,
@.RETF>
OPDEF $
`RET [POPJ P,]
OPDEF $RETT [PJRS
T .RETT]
OPDEF
@ $RETF [PJRST .RE
`TF]
OPDEF $RET
IT [JUMPT .POPJ]
OPDEF $RETIF [
@JUMPF .POPJ]
.
`NODDT $RET,$RETT,
$RETF,$RETIT,$RET IF
$RETIT,$RETaPtP aPtkP 2aPuTP aPv\rP e,(SQ 4 e,)6Q x e,)RQ u e,+Q @ e,,UQ @ e,-Q e,<SQ V e-)WQ e-i1P = e.glp glp gltp gl}p g
,}Q g
-LyQ @ g
.=1Q gpKW (6
IFNB <>H,<
PRINTX (Frohm GLXVER)
> ;EN D IFNB
gpMt h.
PRINTX GLXVER GLXSCN Edi(t(135) by DPM on H19-Apr-88
PRINThX GLXSCN Act ual Edit(A)
gtYP .g"@ lx^w
IFN <<. m.TA>&B>,<PRINTX m8 ?Initial field n mXot zero in $SET>
n..TVAL==<C>
n8..TMSK==<B>
..TA==..TA! nX<FLD(..TVAL,..TMS nxK)>
PURGE ..T VAL,..TMSK
.TgtXrP gv
[P 3 g#=z t hq6 C.SWIT+PDB CPY##C.SWIT+PDBg$tkQ t @ g$u P 'g$uh6Q g g.N @ u 6@ g.NhxP g@u|P g@v yP 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,.IPCP G,,GOPHER)
>
gR^h9 XYg
..STKR= x=10
RADIX 8
..STKN==0
IRP 8A,<
.STKV1 ( XA)>
$CALL .STK xST
..STKN,,..S TKN
RADIX ..STK 8R
DEFINE ENDSV. X<.ENSV1 <A>>
P xURGE ..STKN,..STK R,..STKQ
TKgR~r up_g
.TYPE= v=-1
IFIDN < v0B><HALT>,<.TYPE== vP0>
IFIDN <B>< vpCONT>,<.TYPE==1> w
IFIDN <B><DEB w0UG>,<.TYPE==2>
IFL .TYPE,< wp
IF2,<PRINTX ? xStopcode A is in x0 error; see S..A xP in CREF>
S..A: xp:JRST 4,.
> y
IFB <A>,< y0
IF2,<PRINTX yP ? Stopcode with ypout a A; see S.. z in CREF>
S..:: z0JRST 4,.
> zP
IFGE .TYPE, zp<
S..A::PUS {HJ P,.DIE
CA {0I .TYPE,[
<S {PIXBIT /A/>&77777 {p7000000
EXP %% |.MOD
EXP C |0
EXP [ASCIZ | |PD|]
]
> |p
PURGE . TYPE
URGE .gR~) BX\
IFNB < BxC>,<..STR0 (..DPB C,A,C,B)>
IFB C8 <C>,<MOVEM A, B>>,<MOVEM A,gV
Q8U ..AS(A,B ,SUB,ADD)(A,Bgg
V
@Pb
IFNB <
`B>,<TOPS10<A==B
>>
IFNB <C>,<T
OPS20<A==C>>
PS20<A==C>>
ght-3P @ghuWP ghuSP ghuxSP @ghv5P ghv
2P hD P hH P hL P hP P i,YQ @ i P i$tkQP 'i$tlUQ x i0,YQ i0,1Q i0,^Q i0-kvQ @ i?4( X0}C IFN FTUUOS ,B ;DEFINE UNi?4H Xp}G IFN FTJSYS , INTERN AEDT iD
a
IFNB
0 <A>,<.TQCHA==^
PD<B>B17+ZZ>
I
pFNB <D>,<DEFINE
..TQMA<D>>
0IFNB <C>,<.TQC=
P=^D<B>B17+ZZ>
ZZ==ZZ+1ZZ>
iG,
`u
LSTOF.
0
TQ(T,2,ASCIZ)
P
TQ(O,2,OCTAL)
p
TQ(D,2,DECI
MAL)
TQ(F,2,
0FILE)
TQ(7,2
P,CSEVEN)
TQ(
p6,2,CSIXBIT)
TQ(W,2,SIXBIT)
0
TQ(5,2,SVNBIT
P)
TQ(P,2,USE
pR)
TQ(U,2,DI
RECTORY)
TQ(
0H,2,DAYTIME)
P TQ(C,2,TIME)
p
TQ(E,2,ERROR)
TQ(I,1,INDIRE
0CT)
TQ(M,0,CR
P,..TXC0(\".CHCRT)
p)
TQ(J,0,LF,..
TXC0(\".CHLFD))
0
TQ(L,0,FF,..TXC
P0(\".CHFFD))
T
pQ(K,0,VT,..TXC0(\
".CHVTB))
TQ(A
0,0,NOCRLF,..TXA(.
PTQCHA))
TQ(0,0
p,NULL,..TXA(.TQCH
0))
TQ(3,0,STR
0ING,..TXER(IQU))
P
TQ(V,2,VERSION
p)
TQ(2,0,CAR
ET,..TXER(IQU))
0
TQ(Q,2,POINTER)
P
TQ(B,2,ROB)
p
TQ(1,2,OBJE
CT)
TQ(N,2,N
0ODE)
TQ(R,2,
PJIB)
LSTON.
)
LSTON.
/@m~
LSTOF.
KX(33,TTY33,33,.
LX(3TTY35,35,.RETT,
TOPS20<
L(EX(37,TTY37,37,.R
LX(EXPORT,EXEC,EXE,
>
M(TOPS10<
MX(LA120,L12,.RETT,
>
NX(LA336,L36,.RETT,
NX(VK100,10,SETTLC,
OX(T05,VT05,V05,.RE
PX(VT100,00,SETTLC,
Q(TOPS10< X(VT101,V
RX(VT102,VT102,102,
TOPS10< X(VT103,SET
UX(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10< XVT185,185,
XX(VT220,VTETTLC,<.
YX(V40,VT240,240,SE
ZX(VT330,VT330<.CHE
[X(VT3440,340,SETTL
\hSX(VT50,VT50,V50,
^X(VT52,VT52,V52C,"
TOPS10< X(VT61,LC,<
LSTON .
>
LSTONiK,P A iK4 @ #Z'
..TRR== #810
RADIX 8
#X..NV==1
IRP #xA,<
.TRV1 ( $A)>
$CALL .TR $8SET
..NV-1,, $X..NV-1
RADIX .. $xTRR
PURGE ..T RR,..NVURGE ..Tib
j8VS
..TX(C ,A,<B>)..TX(Cib
kxV_
..TX(C A,A,<B>).TX(Cib P
jxVW
..TX(C E,A,<B>).TX(Cib `
k8V[
..TX(C N,A,<B>).TX(Cibp
d8V#
..TX(N ,A,<B>)..TX(Nibt
exV/
..TX(N A,A,<B>).TX(NibtP
dxV'
..TX(N E,A,<B>).TX(Nibu`
e8V+
..TX(N N,A,<B>).TX(Nibx
f8V3
..TX(O ,A,<B>)..TX(Oib|
gxV?
..TX(O A,A,<B>).TX(Oib|P
fxV7
..TX(O E,A,<B>).TX(Oib}`
g8V;
..TX(O N,A,<B>).TX(Oic KW h
IFNB <>,<
PRINTX (Fro(m GLXVER)
> ;EN D IFNB
ic Mt (
PRINTX HGLXVER GLXTXT Ediht(55) by BAH on 14-Nov-86
PRINTX( GLXTXT Actu al Edit(A)
ic!h2Q ic!i0Q ic!iQP ic!iWQ ` ic!j6Q ic!jZQ ic!k Q ` ic!kPQ @ ic!l Q ic!lQ | ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP 'ic!lyP ic!lyQ ic!mrQ p ic!nQ ic$YP icP
h8VC
..TX(Z ,A,<B>)..TX(ZicT
ixVO
..TX(Z A,A,<B>).TX(ZicTP
hxVG
..TX(Z E,A,<B>).TX(ZicU`
i8VK
..TX(Z N,A,<B>).TX(ZkR`KW ,
IFNB <>(,<
PRINTX (FroHm GLXVER)
> ;EN D IFNB
kR`Mt H$
PRINTX hGLXVER GLXUTL Edit(2) by DPM on 4-(Dec-85
PRINTX H GLXUTL Actual Edit(A)
kRdYP mK c@ YO5 BYTE (3)A vXWHO (9)AVER (6) AMIN (18)AEDTo&
38S <^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
pa A==<ZZ==Z Z+1>
.TTC==.q"eJ P q*-` +
q+= +
q6~i4 C q?
uxW/
TXC A, <B>
TXC A,q@ nxNy IFB <C>,< oA==:B> IFNB <C >,<A=:B>B <CqB p + qN5P + up Kx\e
IFNB < LB>,<..STR1 (..TQZ L8,,<B>,A,..STR4) LX>
IFB <B>,<SE TZM A><B>,<SEuh P ;z ihv`
.XCREF j.$RESET, .$BUILD
.$RESET
$TYPEjH (.CMACT)
$HELPjh (<>)
$NEXT (Ak)
IFIDN <B> <>,k(< IRP C,<C>
kH .$BUILD>
IFDIF kh<B> <>,<
$HELPl (B)
IRP C,< C>
.$BUILD>< 0
v@g8
.WTOX.(.OM
v`ACK,<A>,<B>,<C
w >,<D>,<$WTFLG(WT .SJI),E>)LG(WT J7 q .XCREF .%R TN, .$RTN
DEF@INE .$RTN <A>
.%RTN==1A>
D[ p*
IFDIF <@A> <>,<.XCREF .%`HLPM, .$HLPM
DEF INE .$HLPM <POINT 7,[ASCIZ\A\]>
.%HLPM==-1>
fI9 p\ .XCREF .%L ST, .$LST
DEF @INE .$LST <A+1>
.%LST==11>
=Z ]x]w
IFG ^A-INT.LV,<PRINTX ^8?Level A interru ^Xpts not supported ^x>
.BGINT.(\A ) .BGINT.(\A X5 pt .XCREF .%B REA, .$BREA
D@EFINE .$BREA <A>
.%BREA==1> - `X^
IFDEF `x ..BSIZ,<PRINTX ? aMissing $EOB afte a8r a $BUILD>
. aX.BSIZ==0
. ax.BLOC==.
R bEPEAT A,<
b8BLD0.(\..BSIZ,0) bX
..BSIZ==..BSI Z+1>
==..BSI }[0 Mhtv
.XCREF N.$RESET, .$BUILD
.$RESET
$TYPENH (.CMCMA)
$NEXTNh (A)
IRP B,< B>
.$BUILD,< I@ I(tR
.XCREF IH.$RESET, .$BUILD
.$RESET
$TYPEJ (.CMCFM)
IRP J(A,<A>
.$BUILD ,<A>
.$BUILD $^ VhuH
.XCREF W.$RESET, .$BUILD
.$RESET
$TYPEWH (.CMTXT)
$HELPWh (<>)
$NEXT (AX)
IFIDN <B> <>,X(< IRP C,<C>
XH .$BUILD>
IFDIF Xh<B> <>,<
$HELPY (B)
IRP C,< C>
.$BUILD>< I YHuV
.XCREF Yh.$RESET, .$BUILD
.$RESET
$TYPEZ( (.CMTAD)
$PDATZHA (CM%IDA)
$NEXZhT (A)
IRP B,< B>
.$BUILD,< ,,U _x^
$RET ` ;WILL INVOKE R IGHT ROUTINE
,h: pJ
IFDIF <@A> <>,<.XCREF .%`DEFM, .$DEFM
DEF INE .$DEFM <POINT 7,[ASCIZ\A\]>
@ .%DEFM==1>
I`FIDN <A> <>,<
I F1 <
PRINTX %Nul l argument in $DE FAULT macro>>DE .` U(u2
.XCREF UH.$RESET, .$BUILD
.$RESET
$TYPEV (.CMDEV)
$NEXTV( (A)
IRP B,< B>
.$BUILD,< Lz: 5hsB
.XCREF 6.$RESET, .$BUILD
.$RESET
$TYPE6H (.CMNUX)
$PDAT6hA (B)
$HELP (<7>)
$NEXT (A)
7(IFIDN <C> <>,< I7HRP D,<D>
.$7hBUILD>
IFDIF <C8> <>,<
$HELP (8(C)
IRP D,<D>
.$BUILD><D>
.XCREF K.$RESET, .$BUILD
.$RESET
$TYPEKH (.CMDIR)
$NEXTKh (A)
IRP B,< B>
.$BUILD,< | gX^Y
IFNDE gxF ..BSIZ,<PRINTX h?$EOB without pre h8vious $BUILD>
hX IFN <.-..BLOC>,< hxPRINTX ?Address c ihange between $BU i8ILD and $EOB>
iX LSTOF.
.. ixT==0
REPEAT . j.BSIZ,<
BLD j80.(\..T,1)
jX ..T==..T+1 >
jx PURGE ..BSIZ,.. kT,..BLOC
LST ON.
plLST +y F E
DE .$ERTN <A>
.%ERTN==1> , p~ .XCREF .%E RTN, .$ERTN
D@EFINE .$ERTN <1B0`+A+1>
.%ERTN ==1>
.%ERTN - q
.XCREF .%E@RTN, .$ERTN
D`EFINE .$ERTN <[MO VEI S2,[ASCIZ\A\ ]
$RET@F]>
.%ERTN==1 >
.%ERTN==1 IF2,<IFN < m A>-.,<PRINTX ? I m LLEGAL $FALL A>> EGAL $FALL A>> H6 qP
$CALL . qpSTOP
LSTOF.
J rUMP [XWD 0,[ITEXT r0 (<A>)]
EXP rP%%.MOD]
LSTON. .MOD]
LSTON. L[ FHtF
.XCREF Fh.$RESET, .$BUILD
.$RESET
$TYPEG( (.CMFLD)
$NEXTGH (A)
$HELP (<>Gh)
IFIDN <B> <>,H< IRP C,<C>
H( .$BUILD>
IFDIF HH<B> <>,<
$HELPHh (B)
IRP C,< C>
.$BUILD>< MI Cht0
.XCREF D.$RESET, .$BUILD
.$RESET
$TYPEDH (.CMFIL)
$HELPDh (<>)
$NEXT (AE)
IFIDN <B> <>,E(< IRP C,<C>
EH .$BUILD>
IFDIF Eh<B> <>,<
$HELPF (B)
IRP C,< C>
.$BUILD>< dy `p
.XCREF .%F LGS, .$FLGS
D EFINE .$FLGS <A>
.%FLGS==1> ex: RHu&
.XCREF Rh.$RESET, .$BUILD
.$RESET
$TYPES( (.CMFLT)
$HELPSH (<>)
$NEXT (ASh)
IFIDN <B> <>,T< IRP C,<C>
T( .$BUILD>
IFDIF TH<B> <>,<
$HELPTh (B)
IRP C,< C>
.$BUILD>< $ _v
.XCREF (.$RESET, .$BUILD
.$RESET
$TYPE_h (.CMTAD)
$PDAT`A (<CM%IDA!CM%ITM`(!CM%FUT>)
$NEXT`H (A)
IRP B,< B>
.$BUILD,< $ p`_ c`
INTER qN A
$DATA(A ,<B>)
ATA(A ~ 1icP "
IFDIF < A> <>,<.XCREF .% HLPM, .$HLPM
DEF@INE .$HLPM <POINT` 7,[ASCIZ\A\]>
.%HLPM==1>
&5 >(t
.XCREF >H.$RESET, .$BUILD
.$RESET
$TYPE? (.CMIFI)
$HELP?( (<>)
$NEXT (A?H)
IFIDN <B> <>,?h< IRP C,<C>
@ .$BUILD>
IFDIF @(<B> <>,<
$HELP@H (B)
IRP C,< C>
.$BUILD>< &u Qu
.XCREF Q(.$RESET, .$BUILD
.$RESET
$NEXTQh (A)
$TYPE (.CRMINI)
IRP B,< B>
.$BUILD,< ./ 1s
.XCREF 1(.$RESET, .$BUILD
.$RESET
$TYPE1h (.CMKEY)
$PDAT2A (B)
$NEXT (2(A)
IRP C,<C>
.$BUILD,<C>
.XCREF /H.$RESET, .$BUILD
.$RESET
$TYPE0 (.CMKEY)
$PDAT0(A (A)
$NEXT (00H)
IRP B,<B>
.$BUILD,<B>
/>Ky
y gL .WTOX.(.OM
y@WTR,,,,<A>,<$WTF LG(WT.KIL),B>) 2|p
x@gF .WTOX.(.OM
x`LOG,<A>,<B>,<C >,,<D>)B>,<C :/
pd .XCREF .%N
XT, .$NXT
DEF
@INE .$NXT <A>
.%NXT==1A>
:|KV fhvJ
.XCREF g.$RESET, .$BUILD
.$RESET
$TYPEgH (.CMNOD)
$HELPgh (<>)
$NEXT (Ah)
IFIDN <B> <>,h(< IRP C,<C>
hH .$BUILD>
IFDIF hh<B> <>,<
$HELPi (B)
; $FLAGS (i(CM%PO)
IRP C,< C>
.$BUILD>< :} r 8hsR
.XCREF 9.$RESET, .$BUILD
.$RESET
$TYPE9H (.CMNOI)
$PDAT9hA (<POINT 7,[ASCI:Z\B\]>)
$NEXT :((A)
IRP C,<C >
.$BUILD,<C ;-XR 2hs*
.XCREF 3.$RESET, .$BUILD
.$RESET
$TYPE3H (.CMNUM)
$PDAT3hA (B)
$HELP (<4>)
$NEXT (A)
4(IFIDN <C> <>,< I4HRP D,<D>
.$4hBUILD>
IFDIF <C5> <>,<
$HELP (5(C)
IRP D,<D>
.$BUILD><D>
.XCREF A(.$RESET, .$BUILD
.$RESET
$TYPEAh (.CMOFI)
$NEXTB (A)
$HELP (<>B()
IFIDN <B> <>,BH< IRP C,<C>
Bh .$BUILD>
IFDIF C<B> <>,<
$HELPC( (B)
IRP C,< C>
.$BUILD>< B$ `p .XCREF .%D ATA, .$DATA
D EFINE .$DATA <A>
.%DATA==1> B$YP `pT .XCREF .%D
EFM, .$DEFM
D
EFINE .$DEFM <POI
@NT 7,<A>>
.% DEFM==1>
.% CYT q .XCREF .%D EFR, .$DEFR
D@EFINE .$DEFR <A>
.%DEFR==1> G-} av
.XCREF a(.$RESET, .$BUILD
.$RESET
$TYPEah (.CMQST)
$HELPb (<>)
$NEXT (Ab()
IFIDN <B> <>,bH< IRP C,<C>
bh .$BUILD>
IFDIF c<B> <>,<
$HELPc( (B)
IRP C,< C>
.$BUILD>< J.I o@_
$CALL o` .RETE
LSTO p F.
JUMP ERA$
LSTON.ERA$ Ni -8[g
.NVR==0 -X
.ACM==0
IRP A,<
. ..TSAC(.ACB,A) .8
IFN .ACB,<.A .XCM==.ACM!1B<A>> .x
IFE .ACB,< /
IFE .NVR,< /8
PUSHJ P,[ /X
>
.. /xPUSH(A,\<.NVR+1> 0)>>
IFE . 08NVR,<
IFN .ACM 0X,<
IFE <.A 0xCM-17B<T4>>,<.ACM 1==0
$CALL .S 18AVET>
IFE < 1X.ACM-377B<.A16>>, 1x<.ACM==0
$CA 2LL .SAVE8>
28IFE <.ACM-17B<P4> 2X>,<.ACM==0
$ 2xCALL .SAVE4>
3 IFE <.ACM-7B<P3 38>>,<.ACM==0
3X$CALL .SAVE3>
3x IFE <.ACM-3B<P 42>>,<.ACM==0
48 $CALL .SAVE2>
4X IFE <.ACM-1B< 4xP1>>,<.ACM==0
5 $CALL .SAVE1>
58 IFE <.ACM-1B 5X<.A13>>,<.ACM==0
$CALL .SV13> 6
IFE <.ACM- 681B<.A14>>,<.ACM== 6X0
$CALL .SV1 6x4>
IFE <.AC 7M-1B<.A15>>,<.ACM 78==0
$CALL .S 7XV15>
IFE <. 7xACM-1B<.A16>>,<.A 8CM==0
$CALL 88.SV16>
>>
8X
IFN .ACM,<
8x IFE .NVR,< 9
PUSHJ P,[
98 >
.ACB= 9X=0
REPEAT ^D 9x16,<
IFN : <.ACM&1B<.ACB>>, :8<
..PUSH(\.AC :XB,\<.NVR+1>)>
:x.ACB==.ACB+1>>
IFN .NVR,<
;8 PUSHJ P,@-.NVR( ;XP)
TRNA
;x AOS -1-.NVR(P) <
REPEAT .NV <8R,<..POP(\.NVR)> <X
ADJSP P,-1
POPJ P,]>
POPJ P,]>
N; `p6 .XCREF .%S BCM, .$SBCM
IFD IF <A><>,<DEFINE@ .$SBCM <EXP <A>`>>
.%SBCM==1
>
.%SBCM==1
N.@ c^)
IFNDE c8F ..BSIZ,<PRINTX cX?$SET without pre cxvious $BUILD>
d IFNB <B>,<..STR d80 (..SET,<C>,B, dXA)>
IFB <B dx>,<..STR0 (..SET, e<C>,FWMASK,A)>
,FWMASK,A)>
.XCREF ra, b
a==.
r(XWD b-1,b-1
DrHEFINE $ETAB <.XCRrhEF a, b
b== .-a>b
b== O%| }0_{
IF1,<PRI }PNTX % Use STOPCD }pmacro for stopcod ~e A instead of $ ~0STOP>
S..A::! $ ~PCALL .STOP
LST ~pOF.
JUMP [XWD 'A',[ITEXT (<B> 0)]
EXP %%.MOD ]
LSTON. MOD O,(v O(u
.XCREF OH.$RESET, .$BUILD
.$RESET
$NEXTP (A)
$TYPE (.CP(MINI)
$SBCM (BPH)
IRP C,<C>
.$BUILD,<C>
O= <Hsn
.XCREF <h.$RESET, .$BUILD
.$RESET
$TYPE=( (.CMSWI)
$PDAT=HA (A)
$NEXT (0=h)
IRP B,<B>
.$BUILD,<B>
O= :hs`
.XCREF ;.$RESET, .$BUILD
.$RESET
$TYPE;H (.CMSWI)
$PDAT;hA (B)
$NEXT (<A)
IRP C,<C>
.$BUILD,<C>
@ ]ut
.XCREF ](.$RESET, .$BUILD
.$RESET
$TYPE]h (.CMTAD)
$PDAT^A (<CM%IDA!CM%ITM^(>)
$NEXT (A)
^H IRP B,<B>
.$ BUILD,<B>
.$ R/ p`
$CALL T
%TEXT
LSTOF. XC
0REF
JUMP [XWD 2
P,0
EVL (A)
p ITEXT(<B>)]
LSTON.B>)]
.XCREF [H.$RESET, .$BUILD
.$RESET
$TYPE\ (.CMTAD)
$PDAT\(A (CM%ITM)
$NEX\HT (A)
IRP B,< B>
.$BUILD,< R}97 lHvp
.XCREF lh.$RESET, .$BUILD
.$RESET
$TYPEm( (.CMTOK)
$PDATmHA (<POINT 7,[ASCImhZ\B\]>)
$NEXT n(A)
IRP C,<C >
.$BUILD,<C S
pa
..TX
A(.TQA,C,D,E,
B)
IFN .
P.TXEF,<
..TE
0RR<$TQ(A,B,C, D,E)>>
C, S@I9
*`bv
LSTOF.
+
X(UQU,Unknown q
+ ualifier)
X(IQU
+@,Invalid qualifie
+`r)
X(IJA,Invali
, d justification a
, rgument)
X(IWA,
,@Invalid width arg
,`ument)
X(PEA,Pr
- emature end of ar
- gument)
X(JNA,J
-@ustification is n
-`ot allowed)
X(A
. NA,Arguments are
. not allowed)
X(
.@ADS,Address must
.`be specified)
L STON.
ied)
L SN . REF .%T YPE, .$TYP
DE FINE .$TYP <A>
.%TYPE==1>
W= chv2
.XCREF d.$RESET, .$BUILD
.$RESET
$TYPEdH (.CMUQS)
$HELPdh (<>)
$NEXT (Ae)
$PDATA (B)
e(IFIDN <C> <>,< IeHRP D,<D>
.$ehBUILD>
IFDIF <Cf> <>,<
$HELP (f(C)
IRP D,<D>
.$BUILD><D>
.XCREF LH.$RESET, .$BUILD
.$RESET
$TYPEM (.CMUSR)
$NEXTM( (A)
IRP B,< B>
.$BUILD,< ^+@ s_+
IFE %%.O s0TS,<DEFINE $WARN sP(MSG) <
$TEXT sp(T%TTY,<% ^W6/[%% t.MOD]/ MSG>)>>
I t0FN %%.OTS,<DEFINE tP $WARN (MSG) <
tp $TEXT (T%TTY,<% u^W6/IIB+IB.PRG/ ^ u0W/[%%.MOD]/ MSG>) >>
$WARN <A> _$r
j@ff
IFB <
j`A>,<.WFACD==0
k IFN <0-2>,<.$WAC
k D==0>>
IFNB <
k@A>,<.WFACD==-1
k` IFN <0-2>,<.$WA
l CD==.$WACD!<A>>
l
IFE <0-2>,<DE
l@FINE .$WACD,<<WO.
l`ACD>B8+[ITEXT (< A>)]>>
>
< _$u
_@f
IFB <
_`A>,<.WFACK==0
` IFN <0-2>,<.$WAC
` K==0>>
IFNB <
`@A>,<.WFACK==-1
`` IFN <0-2>,<.$WA
a CK==.$WACK!<A>>
a
IFE <0-2>,<DE
a@FINE .$WACK,<<WO.
a`ACK>B8+[ITEXT (< A>)]>>
>
< _$+
Q g$
IFE <.W
Q@FMTY>,<PRINTX ?No
Q` message type in
R $WTBLD>
DEFINE .
R EAWTO(SUFFIX,ARGC
R@OD),<
IFN .WF'SU
R`FFIX',<
IFE <AR
S GCOD-0>,<<WO.'SUF
S FIX'>B8+ .$W'SUFF
S@IX'>
IFE <ARGCO
S`D-1>,<<WO.'SUFFIX
s@'>B8+ [EXP .$W'SU
s`FFIX']>
IFE <AR
t GCOD-2>,<.$W'SUFF
t IX'>
>
>
ALLW
t@TO
EXP 0
EXP 0 _$k
b f$
IFB <
b@A>,<.WFFLG==0
b` IFN <1-2>,<.$WFL
c G==0>>
IFNB <
c A>,<.WFFLG==-1
c@ IFN <1-2>,<.$WF
c`LG==.$WFLG!<A>>
d
IFE <1-2>,<DE
d FINE .$WFLG,<<WO.
d@FLG>B8+[ITEXT (< A>)]>>
>
< _%(W
g`fP
IFB <
h A>,<.WFJBN==0
h IFN <0-2>,<.$WJB
h@N==0>>
IFNB <
h`A>,<.WFJBN==-1
i IFN <0-2>,<.$WJ
i BN==.$WJBN!<A>>
i@
IFE <0-2>,<DE
i`FINE .$WJBN,<<WO.
j JBN>B8+[ITEXT (< A>)]>>
>
< _%YV
p g
IFB <
p A>,<.WFMFL==0
p@ IFN <1-2>,<.$WMF
p`L==0>>
IFNB <
q A>,<.WFMFL==-1
q IFN <1-2>,<.$WM
q@FL==.$WMFL!<A>>
q`
IFE <1-2>,<DE
r FINE .$WMFL,<<WO.
r MFL>B8+[ITEXT (< A>)]>>
>
< _%]
T@e6
IFB <
T`A>,<.WFMTY==0
U IFN <0-2>,<.$WMT
U Y==0>>
IFNB <
U@A>,<.WFMTY==-1
U` IFN <0-2>,<.$WM
V TY==.$WMTY!<A>>
V
IFE <0-2>,<DE
V@FINE .$WMTY,<<WO.
V`MTY>B8+[ITEXT (< A>)]>>
>
< _%kr
e f:
IFB <
e A>,<.WFNOD==0
e@ IFN <0-2>,<.$WNO
e`D==0>>
IFNB <
f A>,<.WFNOD==-1
f IFN <0-2>,<.$WN
f@OD==.$WNOD!<A>>
f`
IFE <0-2>,<DE
g FINE .$WNOD,<<WO.
g NOD>B8+[ITEXT (< A>)]>>
>
< _%p
u g* .WTOX.(.OM
u WTO,<A>,<B>,<C >,,<D>)B>,<C _%xU
\`ex
IFB <
] A>,<.WFOBJ==0
] IFN <0-2>,<.$WOB
]@J==0>>
IFNB <
]`A>,<.WFOBJ==-1
^ IFN <0-2>,<.$WO
^ BJ==.$WOBJ!<A>>
^@
IFE <0-2>,<DE
^`FINE .$WOBJ,<<WO.
_ OBJ>B8+[ITEXT (< A>)]>>
>
< _%xr
m f|
IFB <
m@A>,<.WFOCD==0
m` IFN <0-2>,<.$WOC
n D==0>>
IFNB <
n A>,<.WFOCD==-1
n@ IFN <0-2>,<.$WO
n`CD==.$WOCD!<A>>
o
IFE <0-2>,<DE
o FINE .$WOCD,<<WO.
o@OCD>B8+[ITEXT (< A>)]>>
>
< _%z@
w@g@ .WTOX.(.OM
w`WTO,<A>,<B>,<C
x >,,<$WTFLG(WT.JOB ),D>)LG(WT.JOB _%|@
u`g0
.WTOX.(.OM
v WTR,<A>,<B>,<C >,<D>,<E>)<C _&,z
T g
DEFINE
T .EAWTO(SUFFIX),<$
r`WT'SUFFIX' <>>
ALLWTO
_&N
Z eb
IFB <
Z A>,<.WFTXT==0
Z@ IFN <2-2>,<.$WTX
Z`T==0>>
IFNB <
[ A>,<.WFTXT==-1
[ IFN <2-2>,<.$WT
[@XT==.$WTXT!<A>>
[`
IFE <2-2>,<DE
\ FINE .$WTXT,<<WO.
\ TXT>B8+[ITEXT (< A>)]>>
>
< _&N8
W eL
IFB <
W@A>,<.WFTYP==0
W` IFN <2-2>,<.$WTY
X P==0>>
IFNB <
X A>,<.WFTYP==-1
X@ IFN <2-2>,<.$WT
X`YP==.$WTYP!<A>>
Y
IFE <2-2>,<DE
Y FINE .$WTYP,<<WO.
Y@TYP>B8+[ITEXT (< A>)]>>
>
<
t{ P
u[rQ ]>t2
u}P
,M P ( V=P .
P .J P .b P / P B&@P cG P )0 q. 0 Mv
Z6 Hrv
.X hCREF a, b, c, d
.XCREF .%T (YPE, .%FLGS, .%DA HTA, .%HLPM, .%DEF hM, .%LST
.XCREF .$TYP, .$FLGS, . ($DATA, .$HLPM, .$ HDEFM, .$LST
. hXCREF .%BREA, .%N XT, .%ERTN, .%RTN (, .%DEFR, .%SBCM
.XCREF .$BREA, h.$NXT, .$ERTN, .$!RTN, .$DEFR, .$SB!(CM
d==<FLD(.!H$TYP,CM%FNC)>!.$F!hLGS!<.$LST>
"IFN <.%BREA>,<d="(=d!CM%BRK>
"HIFG <.%HLPM>,<d="h=d!CM%HPP!CM%SDH#>
IFL #(<.%HLPM>,<d==d!#HCM%HPP>
IFN <.%DEFM>,$<d==d!CM%DPP>
c:! <INSVL.($Hb,PB.PDB)>!<INSVL$h.(a,PB.FDB)> ;PD%B, FDB
EXP d %(
EXP .$DATA %H
IFN <.%HLPM!.%D%hEFM!.%BREA>,<
E&XP .$HLPM>
IF&(N <.%DEFM!.%BREA>&H,<
EXP .$DEFM> &h
IFN <.%BREA>,'<
EXP .$BREA> '(
a==.-c 'H
IFN <.%NXT!.%'hDEFR!.%RTN!.%ERTN(!.%SBCM>,<
EXP ((.$NXT >
IFN <(H.%DEFR!.%RTN!.%ER(hTN!.%SBCM>,<
EX)P .$RTN >
IFN)( <.%DEFR!.%ERTN!.)H%SBCM>,<
EXP .$)hERTN>
IFN <.%*DEFR!.%SBCM>,<
*(EXP .$DEFR>
I*HFN <.%SBCM>,<
E*hXP .$SBCM>
+ b==.-c
I+(F2,<
PURGE .%TY+HPE, .%FLGS, .%DAT+hA, .%HLPM, .%DEFM,, .%LST
PURGE .,($TYP, .$FLGS, .$D,HATA, .$HLPM, .$DE,hFM, .$LST
PUR-GE .%BREA, .%NXT,-( .%ERTN, .%RTN, .-H%DEFR, .%SBCM
P-hURGE .$BREA, .$NX.T, .$ERTN, .$RTN,.( .$DEFR, .$SBCM
.H
PURGE a, b, .hc, d
>
LIST , d
>
LIST $YV `q& POINTr7,[A SCIZ\0\]NT 7,[A $YY q2 0 Mv:= .- q, 0 MuLw 5Iy q" 0 KK.9" f= q( 0+1KZ` w
.XCREF
SALL
XLIST
hDEFINE .$TYP <0>
.%TYPE==0
DEF(INE .$FLGS <0>
H.%FLGS==0
DEFINhE .$DATA <0>
.%DATA==0
DEFINE (.$HLPM <>
.%HLPHM==0
DEFINE .$DhEFM <0>
.%DEFM==0
DEFINE .$LST( <0>
.%LST==0
H DEFINE .$BREA <0h>
.%BREA==0
DEFINE .$NXT <0>
( .%NXT==0
DEFINHE .$ERTN <0>
.%hERTN==0
DEFINE .$RTN <0>
.%RTN (==0
DEFINE .$DE HFR <0>
.%DEFR== h0
DEFINE .$SBCM <0>
.%SBCM==0
.CREF
CM==0 q0 0nfMvN8 ' l, 0T 1,O )0P $YVP $YYP .-P 5IyP f= P w
SxUK
..AS
T1==-<B>
IFDEF
T8 .PSECT,<
.IFN
TX..AS1,ABSOLUTE,<
Tx
C A,[-..
UAS1]>
.IF ..AS
U81,ABSOLUTE,<
.
UX.AS2==0
IFE
Ux<..AS1&^O777777B1
V7>,<
..AS2==1
V8
DI A,..A
VXS1>
IFE ..AS2
Vx,<
..OP(A,
WB,C)>
PURGE
W8..AS1,..AS2>>
I
WXFNDEF .PSECT,<
Wx ..AS2==0
IF
XE <..AS1&^O777777
X8B17>,<
..AS2==
XX1
DI A,.
Xx.AS1>
IFE ..A
YS2,<
..OP
Y8(A,B,C)>
PUR GE ..AS1,..AS2> : h WI
A UO :
FxU
..CX1
G==C
IFDEF .PSE
G8CT,<
.IFN ..CX
GX1,ABSOLUTE,<
Gx CAMA B,[C]
H>
.IF ..CX1,ABS
H8OLUTE,<
..CX2
HX==0
IFE <..C
HxX1&^O777777B17>,<
I
..CX2==1
I8 CAIA B,C>
IX IFE ..CX2,<
Mx
CAMA B,[
NC]>
PURGE ..CX1
N8,..CX2>>
IFNDEF
NX .PSECT,<
..CX
Nx2==0
IFE <..
OCX1&^O777777B17>,
O8<
..CX2==1
OX CAIA B,C>
Ox
IFE ..CX2,<
P
CAMA B,[
P8C]>
PURGE ..CX 1,..CX2>GE ..CX :&@ Cx\+
..TSIZ D(..PST,C)
.CAS D8E ..PST,<<
MOV DXEM A,B>,<
HR DxRM A,B>,<
HR ELM A,B>,<
DP E8B A,[POINTR (B, C)]>>INTR (B, :<;Y XYQ
DEFIN xE ..CNS2 (NEW,OLD )<
OLD>
..CNS ()>
:L;Y 8YI
DEFIN XE ..CNS (%%%)<
x..CNS2 <%%%>,>
DEFINE ..CNS2 8 (NEW,OLD)<
DEF XINE ..CNS (%%%)<
..CNS2 <%%%>, <OLD'NEW>>>
OLD'NEW>>>
:dH@ @X\
..TSIZ @x(..PST,C)
.CAS AE ..PST,<<
MOV A8E A,B>,<
HRR AXZ A,B>,<
HLR AxZ A,B>,<
LDB B A,[POINTR (B, C)]>>INTR (B, :}i1
~XWw
A==<<<
~x-<B>>&<B>>&<1B< ^L<B>>>>>&<1B< :~
YxU{
..OP1
Z==B
IFDEF .PSE
Z8CT,<
.IFN ..OP
ZX1,ABSOLUTE,<
Zx C A,[..OP1]
[>
.IF ..OP1,ABS
[8OLUTE,<
..OP2
[X==0
IFE <..O
[xP1&^O777777B17>,<
\
..OP2==1
\8 CI A,..OP1>
\X
IFE ..OP2,<
\x
C A,[..O
]P1]>
PURGE ..OP
]81,..OP2>>
IFNDE
]XF .PSECT,<
..O
]xP2==0
IFE <.
^.OP1&^O777777B17>
^8,<
..OP2==1
^X CI A,..OP1
^x>
IFE ..OP2,<
_
C A,[.
_8.OP1]>
PURGE .. OP1,..OP2>GE .. ;m
)@bR
..PST==
)`C-FWMASK
.IF0
* ..PST,<
POINT
* 0,B,35>,<
POI NTR (B,C)>POI ;| >8[w
POP P, >X.NVA
PURGE .N >xVA
.NVR==.NVR -1
.NVR==.NVR ;\t =8[o
PUSH P =X,A
DEFINE .NV =xB<A>
.NVR==. NVR+1
.NVR==. ; ] eX^9
IFGE ex<<<B>&777777>-.. fBSIZ>,<
PRINTX f8 ?WORD offset gre fXater than $BUILD fxsize parameter>
g SET0. (\<B>, C,<A>)
B>, ; LH X9
IFNDEF 8C,<PRINTX C IS XNOT DEFINED
xA (<B>,D,FWMASK )>
IFDEF C,<
IFNDEF %C,<
X A (<B>,D,C) x>
IFDEF %C,<
%C (A,<B>, D,C)>>A,<B>, ; LH XXw
..NS==0 x
IRP C,<..N S=..NS+1>
IFE 8..NS,<PRINTX ?EMP XTY STRUCTURE LIST x, A>
IFE ..NS- 1,<
..STR0 8(A,<B>,<C>,D) X>
IFG ..NS-1,< x
..ICNS
.
.CNS (<E (A,<B
8>,,>)
IRP C,<
X
IFNDEF C,
x<PRINTX C NOT DE FINED>
IFDEF 8C,<
IFNDEF % XC,<
..CNS (< x,C,D>)>
IF
DEF %C,<
%C
8 (..STR2,,D,C)>
X
..CNS (<)>)
x
..GCNS
..ICNS
.C. (<E (A,<B
CIFNDEF %
..CNS (< ,C,D>)>
IF 8DEF %C,<
%C X (..STR2,,D,C)> x>>
..CNS (<,,) >)
..GCNS>) ; LI 8X{
..CNS ( <,C,B>).CNS ( ; LI xY
IFDIF < D><F>,<
IFN 8B <D>,<
A X (<B>,D,..MSK) x
IFNB <F>, <PRINTX C AND E 8 ARE IN DIFFERENT X WORDS>>
..MS xK==0>
IFNB < F>,<
..MSK=.. MSK!<E>>MSK=.. ; LJ XY!
IFDIF < xD><F>,<
IF NB <D>,<
8A (<B>,D,..MSK) X>
..MSK==0> x
IFNB <F>,<
..MSK=..MSK!< E>>MSK=..MSK!< ; LJ XY7
IFDIF < xD><F>,<
IF NB <D>,<
I 8FNB <F>,<
XA1 (B,D,..MSK)> x
IFB <F>, <
A2 (B,D 8,..MSK)>>
.. XMSK==0>
IFNB x<F>,<
..MSK= ..MSK!<E>>MSK= ;$\Y
0@c
IF1,<
0
PRINTX ? Err
0 or in "A"
D
0pEFINE X(NAM,ERR)
1@<IFN ..X'NAM&..TX
1`EF,<PRINTX ? ERR>
2 >
$TX$ERR>
$TX$ERR>
;$^
3`cF
..
4 TXF==0
.
4 .TXB==0
4@..TXP==0
4` ..TXEG==<..TXEF=
5 =0>
IRPC
5 A,<
..TXC=
5@=ASCII\A\_-35
5`
IFN ..TXB,<IFN
6 ..TXB-..TXC,..CNS
6 (<A>)
IFE
6@..TXB-..TXC,..TXB
6`==0>
IFE ..TXB,
7 <..TXQ(<A>,\..TX
7 F)>>
..TXC1
7@
IFN ..T
7`XB,<IFN <..TXB-"^
8 ">,<..TXER(PEA)>>
8
..TXEF==..T
8@XEF!..TXEG
8` IFN ..TXEF,<..TE RR<A>>
,<..TE ;&(
Pa5 ..TXA(.TQC H0) ..TXA(.TQC ;&)
`a> ..TXER(IQU ) ..TXER(IQU ;&)
a9 ..TXER(IQU ) ..TXER(IQU ;&0
a1 ..TXA(.TQC HA) ..TXA(.TQC ;&5
Pa% ..TXC0(\". CHLFD).TXC0(\". ;&5
Pa- ..TXC0(\". CHVTB).TXC0(\". ;&6
a) ..TXC0(\". CHFFD).TXC0(\". ;&6
a! ..TXC0(\". CHCRT).TXC0(\". ;& @ M\
..TSIZ M8(..PST,C)
.CA MXSE ..PST,<<
SE MxTZM B>,<
HLL NZS B>,<
HRRZ N8S B>,<
..TS NXAC (..ACT,B)
Nx .IF0 ..ACT,<
O $CALL .ZERO
O8LSTOF.
JUMP [P OXOINTR(B,C)]
OxLSTON.>,<
..TX (Z,B,C)>>>TX ;&81
{Wq
IFNDEF
{8.PSECT,<
A==0
{X
..TSA1==<Z
{xB>
IFE ..TS
|A1&^O777777777760
|8,<A==1>
>
I
|XFDEF .PSECT,<
|xA==0
..TSA1=
}=<Z B>
.IF .
}8.TSA1,ABSOLUTE,<
}X
IFE ..TSA1&^
}xO777777777760,<A
~==1>>
PURGE .. TSA1>
PURGE .. ;&:=
yXWU
A==3
yx
IFE <B>+1,<
zA=0>
IFE <B>-
z8^O777777,<A==1>
zX
IFE <B>-^O777 777B17,<A==2>7 ;'
xW
..TX1
`==C
IFDEF .P
`8SECT,<
.IFN .
`X.TX1,ABSOLUTE,<
`x TDA B,[C]>
a8 .IF ..TX1,ABSOL
aUTE,<
..TX2==
aX0
IFE <..TX1&
ax^O777777B17>,<
b ..TX2==1
b8TRA B,..TX1>
bXIFE ..TX2,<
I
bxFE <..TX1&^O77777
c7>,<
..TX2==1
c8
TLA B,(.
cX.TX1)>>
IFE ..T
cxX2,<
IFE <<
d..TX1>B53-^O77777
l87>,<
..TX3
lX (A,B)>>
IFE
lx ..TX2,<
TD
mA B,[..TX1]>
m8 PURGE ..TX1,..TX
mX2>>
IFNDEF .PSEC
mxT,<
..TX2==0
n
IFE <..TX1&^O77
n87777B17>,<
..
nXTX2==1
TRA
nx B,..TX1>
IFE
o..TX2,<
IFE <
o8..TX1&^O777777>,<
oX
..TX2==1
ox TLA B,(..TX1
p)>>
IFE ..TX2,<
p8
IFE <<..TX
pX1>B53-^O777777>,<
px
..TX3 (A
q,B)>>
IFE ..T
q8X2,<
TDA
qXB,[..TX1]>
PUR GE ..TX1,..TX2> ;'`
rW#
IFIDN <
r8A><Z>,<
..
rXTX2==1
ANDI
rxB,^-..TX1>
IFI
sDN <A><O>,<
s8 ..TX2==1
OR
sXCMI B,^-..TX1>
sx
IFIDN <A><C>,<
t
..TX2==1
t8 EQVI B,^-..TX 1>QVI B,^-..TX ;'
b<
..TXE
F==0
IFNDEF
@ A,<..TXER(UQU)>
`
IFDIF <B><>,
<IRPC B,<.IFN <
B>,NUMERIC,..TXER
@(IWA)>>
IFNB <C
`>,<IFNDEF .TXTJC
,<..TXER(IJA)>>
IFDEF A,<
IF
@E <A_-^D18>,<IFD
`IF <EFBCD><>
,<..TXER(ANA)>>
IFE <1-<A_-^D1
@8>>,<IFDIF <BC
`D><>,<..TXER(JNA)
>>
IFE <2-<A_
-^D18>>,<IFIDN <
@EF><>,<..TXER(AD
`S)>>>
IF
E ..TXEF,<
IFID
N <B><>,<..TXWD=
@=<..TXJU==<..TXFC
`==0>>>
IFDIF <
B><>,<
IFE <^
D<B>>,<..TXWD==<
@..TXJU==<..TXFC==
`0>>>
IFN <^D<
! B>>,<..TXWD==^D<
! B>
IFNB <
!@C>,<..TXJU==.TXTJ
!`C>
IFB <
" C>,<..TXJU==.TXTJ
" L
IFE <A
"@-.TQOCT>,<..TXJU=
"`=.TXTJR>
# IFE <A-.TQDEC>,<
# ..TXJU==.TXTJR>>
#@
IFB <D>,<
#`..TXFC==" ">
$ IFNB <D>,<..TX
$ FC=="D">>>
I
$@FB <EF>,<..TXP
$`T==0>
IFNB <E
% F>,<..TXPT==1>
% IFE <..TXWD+..TXP
%@T>,<
EXP FL
%`D(A,TXT.FN)>
I
& FN <..TXWD+..TXPT
& >,<
EXP FLD
&@(A,TXT.FN)+FLD(.
&`.TXJU,TXT.JU)+FLD
' (..TXWD,TXT.WD)+F
' LD(..TXFC,TXT.FC)
'@+TXT.AD
PNT R(E,F)>>
T ;'h
J@d`
IFE
J`..TXP,<
..IC
K NS
..CNS<ASC
K IZ\>
..TXP==1
K@>
..CNS<A
K`>
..TXF==
L 0
..TXB== "^"
..TXB== ;'h
L@dl
IF
L`N ..TXP,<
..
M CNS<\>
EXP <F
M LD(.TQCHT,TXT.FN)
M@+[..GCNS]>>
..TXP==0>
;' 9
2@c
..TX
2`EF==..TXEF!..XA
3
..TXF==0
3
..TXB=="^ "
..TXB=="^ ;'
9 cJ ..TXQB(< A>) ..TXQB(< ;'
(
9`cT
IF
: N ..TXC-"^",<..TX
: C0(<A>)>
:@IFE ..TXC-"^",<.. TXF==1>-"^",<.. ;'
(
; ct
IF
; E ..TXC-"^",<..TX
;@C0(<A>)>
I
;`FN ..TXF,<
.
< .TXF==0
IFDEF
< .TQCHA,<
<@ IFDEF ..TQMA,.
<`.TQMA
IFN
= <.TQCHA_-^D18>,
= <..TXF==2>>>
=@ IFE ..TXF-2,<..T
=`XC1(<A>)
..IC
> NS
..CNS<..T
> XA(.TQCHA,>>
>@ ..TXEG==..TXEG !..TXEF==..TXEG ;'
)
? d
..TX
? F==3
IFG
?@E ..TXC-"0",IFLE
?`..TXC-"9",<..TXF=
@ =2>
IFE ..TX
@ F-2,<..CNS(A)>
@@
IFE ..TXF-3
@`,<..CNS<,>
..TXQ3(A)>
;'
)
A d
..TX
A@F==4
IFE
A` ..TXC-"/",<..TXF
B ==5>
IFE .
B .TXC-"[",<..TXF==
B@5>
IFE ..T
B`XF-4,<..CNS<A,>>
C
IFE ..TXF
C -5,<..CNS<,,>
..TXQ5(A)>
;'
*
C`d0
..TX
D F==4
IFE
D ..TXC-"/",..TXF=
D@=5
IFE ..T
D`XC-"[",..TXF==5
E
IFE ..TXF-5
E ,<..CNS<,>
E@..TXQ5<A>>
E` IFE ..TXF-4,<..
F CNS<A,>
.. TXF==5>
.. ;'
*
F@dB
..TX
F`F==6
IFE
G ..TXC-"/",..TXB=
G ="/"
IFE .
G@.TXC-"[",..TXB=="
G`]"
IFE ..TXB
H -"]",..CNS<[>
H IFE ..TXB,..T XF==5 ..TXB,..T ;'
+
H`dP
..TX
I F==0
IFE
I ..TXC-"]",..CNS<]
I@>
..CNS<)>
I`
..GCNS
J
..TXEG==..T XEG!..TXEF==..T ;DQ @ ;DPQ ;EPQ ;E :Q ;E pQ ;E+PQ ;F 0Q ;F\:Q @
0 P
@ P
P P
` P d )xZO
.ACV2 ( A)
.ACV2 ( d@ *8ZY
A=.FPA *XC+..NAC
IFB < *xB>,<..NAC=..NAC+ +1>
IFNB <B>,<. .NAC=..NAC+B>. d` +XZg
IFG A- +x.NPAC,<PRINTX ?TO ,O MANY ACS USED>
IFLE A-4,<
, ,X $CALL .SAVEA>
IFG A-4,<
$CALL .SAVE8>
R8]S
IFIDN RX <A><.>,<
RxXMOVEI .SAC,B
S PUSH P,.SAC
>
IFDIF < SXA><.>,<
.IFA SxTM <A>,.BLF4
T .BLF1==0
T8IFN .BLF4,<
TX .IF %A,MACRO, Tx<
.BLF1==1>
>
IFNB < U8B>,<
.BLF1==1> UX
IFN .BLF1,< Ux
LOAD .SA VC,A,B
PUS V8H P,.SAC
>
VX IFE .BLF1,< ;I VxF WASN'T A STRUCT WURE REF,
IF W8N .BLF4,<
WX .BLF2==<<Z A>& Wx17B17>-<P>B17
X .IF .BLF2,A X8BSOLUTE,<
Xx XX IFE .BLF2,<
.BLF1==1 Y
.BLF3 Y8==<Z A>&777777
YX PUSH P,.BLF3-.. YxNA(P)>>>>
IF ZE .BLF1,<
PU Z8SH P,A>>
.. NA=..NA+1
..
Qx]
.BCAL1 A
.BCAL1
| iNJ
XLIST
i( .ORG 0
LIST
.ORG 0
LIST
=Z _8]{ $CALL I%IN TA $CALL I%IN 9
wXWG
..CSN==
wxA
..CSC==0
I
xRP B,<
IFE ..C
x8SN-..CSC,<
ST
xXOPI
..CAS1 (
xxB)>
..CSC==..CS C+1>..CSC==..CS D P ? DP > D)6P D,xP D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;WP D;WP D;XP D;XP D;YP D;YP D;ZP
D;ZP
D;[P D;[P D;\P
D;\P
D;]P D<ZP D=7P DI6P ? D\qP FH1P FmP lQP lXP lzP
l)XP l,UP l9VP l;0P l;ZP lH:P lI3P lI;P lJ9P lj6P lkP lkP lkP lkXP lzQP m P mTP mQP mTP muP m9<P mkrP mktP mm6P mm<P
myTP n n- P n=tP nH2P nKuP nNP n\9P n\yP S@P ,<H J\[
..PST== J8C-FWMASK
.IF0 JX..PST,<
SOS B Jx>,<
$CALL .SO KS
LSTOF.
J K8UMP [POINTR(B,C )]
LSTON.>C }
P@g
.OPCD==
s .OPCD+1
WO.A== .OPCD
G),<
| j0N[
XLIST
jP .....X=.
.ORG
.ORG 0
REPEAT k .....X,<EXP 0>
k0 PURGE .....X
. ORG
LIST
. v=H !8Z
IRP A, !X<
.ENSV2 (A) > .ENSV2 (A) v=I "Z
.ENSV3 (A)
.ENSV3 v=I "XZ
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 LM P 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
v8W9
..IFT==
vXA
IFE ..IFT,
vx<
B
..IFT==0
w>
IFN ..IFT,<
C>N ..IFT,< &4 Zx]k
IRPC A [,<
B==0
IFGE [8 "A"-"A",<IFLE " [XA"-"Z",<B=1>>
IFGE "A"-"0",< \IFLE "A"-"9",<B \8=1>>
IFE "A"-" \X%",<B=1>
IFE " \xA"-"$",<B=1>
]IFE "A"-".",<B= ]81>
IFE B,<STOP I>>IFE B,<STOP &t<H G\C
..PST== G8C-FWMASK
.IF0 GX..PST,<
AOS B Gx>,<
$CALL .AO HS
LSTOF.
J H8UMP [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 7 H:p 7 kp 7 N8p ;`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
7XS= <A>B<^D70 -POS(B)>B<^D70 N
0 P O
SYSPRM C
IFG .PID,<MX.PID= =A>
<MX.PID= O%=H 8Yk
.STKV2 (A)
.STKV2 O%=I xYy
IFB <B >,<..STKN==..STKN 8+1>
IFNB <B>,< X..STKN==..STKN+B x>
..STKQ==..STK N+1
.STKV3 (A, \..STKQ)V3 (A, O%=I XZ
IFDEF x A,<.IF A,SYMBO L,<PRINTX STKVAR 8A ALREADY DEFINE XD>>
DEFINE A<- x^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 S tQ
S+qQ
S:<Q S=P
S=WQ SJ6Q S\rQ Si9Q Sm P Sd %8Z+
.TRV2 ( A)
.TRV2 ( Sd@ %xZ5
.TRV3 ( &A,\..NV)
IFB &8<B>,<..NV=..NV+1 &X>
IFNB <B>,<.. NV=..NV+B>,<.. Sd` 'ZC
IFDEF '8 A,<.IF A,SYMBO 'XL,<PRINTX TRVAR 'xA ALREADY DEFINED (>>
DEFINE A<^O (8B(.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 _%~
z gl
$CALL
z I%WTO
LSTOF.
z@
JRST g
z`
$WTRST
IF
{ NB <A>,<$WTMTY (
{ <A>)>
IFNB <
{@B>,<$WTTYP (<B>)
{`>
IFNB <C>,<$
| WTTXT (<C>)>
| IFNB <D>,<$WTOBJ
|@ (<D>)>
IFNB
|`<E>,<$WTACK (<E
} >)>
IRP F,<
} F>
$WTBLD
}@
g:!
LSTON. g:!
LSTON. kP P >}{woP