Trailing-Edge
-
PDP-10 Archives
-
BB-BT99S-BB_1990
-
10,7/galaxy/glxlib/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,Ue@P C4@ +pZc
..NAC==,0
IRP A,<
,0 .ACV1 (A)>
.ACV3 (\..NAC)C'
SpU..AS(A,B,ADD,SUB)(A,BC,
58S+LSH A,-^D9LSH A,-^DC2f}
Pxe
.EAWTO(
QMTY,0)
.EAWTO(T
Q8YP,2)
.EAWTO(TX
QXT,2)
.EAWTO(OBJ
Qx,0)
.EAWTO(ACK,
R0)
.EAWTO(FLG,1
R8)
.EAWTO(NOD,0)
RX
.EAWTO(JBN,0)
Rx
.EAWTO(ACD,0)
S .EAWTO(OCD,0)
.EAWTO(MFL,1)
C:'
x0WC
TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
..NA==0SP
IRP B,<
Sp .BCAL2 B>
TPUSHJ P,A
ADT0JSP P,-..NA
P,-..NA
E2"@ nP^{
IFE npB,<..TA==0>
oIFN B,<EXP ..TAo0
PURGE ..TA>
PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@
LpTg
..CX(,A,B) ..CGD
P0U
..CX(A,A,B) ..CGDP
N0Ts
..CX(E,A,B) ..CGDp
NpTw
..CX(G,A,B) ..CGDy
O0T{
..CX(GE,A,B) ..CGE@
M0Tk
..CX(L,A,B) ..CGEI
MpTo
..CX(LE,A,B) ..CGE`
OpT
xlK..CX(N,A,B) ..CGH
xOLST
X CRE
DX 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
Fx X RFM
X RFO
X RSZ
X B
X FFB
XX ACW
X RMS
X MCY
X CT
X NSB
X ACD
X MTA
X STS
X IDT
X PCA
X IM
X LAD
I8 X EXP
LSTON.
LSG"\Y e8~A
IF1, eX<%%EDT==AEDT>
ex
IF2, <IFN <%%EfDT-AEDT>,<
PRf8INTX ? Edit NumbefXr Doesn't Match GfxLXVER in GLXA
g A$WHO(\AEDT)> g8
A$NOTE
IgXNTERN AEDT
IgxNTERN LODLEV
;h PURGE %%EDT> ;END IF2
=QS2G(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 hB
IFNB <>,<
PRINTX (Fro(m GLXVER)
> ;END IFNB
G>hMt (:
PRINTX HGLXVER GLXCOM Ediht(63) by DPM on 9-Aug-88
PRINTX ( GLXCOM Actual Edit(A)
G>lYP G>vC@ uPO5LALL
PAGE up; (A Continued o vn next page)
SAL v0L; (A Continued vPfrom previous page) previous pagG?T m(NjASCIZ \
COPYRIGHT Z \
CGHt;rP GHtkP GHv P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`S9*IIY{P`S;*|I Kp\e
IFNB <LB>,<..STR0 (.DECRL00,,<B>,A)>
IFLPB <B>,<SOS A> <B>,<SOS A>I6= 0X'
A==<-1PB<C>+1B<C-D>> p
IF1,<IFDEF %A,<PRINTX ?A ALRE0ADY DEFINED>>
DPEFINE %A (OP,AC,pY,MSK)<
IFDIF <Y><>,<
OP (<AC0>,B+'Y,MSK)>
IPFIDN <Y><>,<
OPp (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7
V0U3..OP(A,B,DIV)..OP(A,BIOH1 shw(
IFB <Dt>,<
XWD [ASCIZ\t(C\],[XWD B,A]>tH
IFNB <D>,<
thXWD [EXP CM%FW!Du
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
ERR EOFof file>
8ERR IFP,<Illegal
xERR FDE,<File dat
ERR FNle is not on
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
8ERR FDS,<Files ar
ERR FFile already
ERR USEpected syst
ERR NNo such pid>
ERR BOL,<Beginnach
ERR EOL,<En
d of list reached
8>
ERR RQF,<Rece
Xivers quota full>
x
ERR SQF,<Sende>
8ERR NRE,<No>remem
ER TBF,<Table is f
ull>
ERR EIT,<T
8able entry alread
Xy exists>
ERR I
xTE,<Invalid table
ERR QEF exceeded
ER ARG,<Invalidiad
ERR IFN,<Inva spec
ERR IJN,dfjob>numb
ERR RAD,<Invalid r
ERR NUM,<Invalid
ERR IDT,<Invald sp
ERR ITvalidftime f
x 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>
x ERR ICN,<Invalid
ERR NQS,<Iotedtstr
8 ERR AMB,<Ambiguo
ERR NMT,<Datch tok
ERR CMA,<Coven>
xERR NNC,<Nodeenam
ERR INT,<Nodemterm
ERR NSN,<Unknown n
ERR IInvalidopath
8ERR 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
&8 ERR TMN,<Noetime
ERR TMA,<Tialready
ERR DVviceutermina
ERR NArgument bloc
ERR TLUinalolocati
XERR FIO,<File is
ERR FBle being mod
ERR WLK,locked dev
ERR CSD,<Cersede a
ERRDD,<Cannottdele
ERR SNb-fileudirec
,x ERR ESL,<Search
8ERR LVL,<SFDpleve
ERR CCWotacreate/w
ERR FCU,<Cae file>
ERR ENQ,<FileingeE
ERR SWS,<Softock o
ER DER,<Hardware d
ER DTE,<Hard data
ERR BKT,too large>
ERR IPP,<Non-e
ER TRN,<RIBeorotra
ERR ILC,<Illega da
ERR NFte/timeumust
ERR NPS,<Datee in
ERR UUnrecognizedm
ERR UDN,<Unrame in
ERRFA,<Illegal fil
ER FAI,<Fileiattri
ERR CEI,<Canisable
ERR ENF,<Linky not
ERR NSLuch linked
ERR NFP,<pages>
xERR NPI,<NoPfreee
ERR IFdirect filer
ER NDN,<Nullndevic
;x ERR PWA,<PID wen
ERR CGPt get a PID
ERR IND,<Invae>
ERR IAC,<Invalid
XERR 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`
(`4
IFIDN <
HBC><>,<EXP <A>
h>
IFDIF <BC><
>,<
IFE <A+1>
(,<<POINT 7,C>>
H IFN <A+1>,<
h IFIDN <C><>,<
EXP <A,B>>
( IFDIF <C><>,<EX
HP <A,B,C>>
>>A,B,C>>
>KbN@ `Kc sOIRP A,<
s0 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$trP 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$ty7P M$u
}P M$uP M$uWQ M$u6Q @M$uH2P M$uI7Q xM$uX|P
M$u[rP M$u]P 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$vJ6P M$v\{P M&`KW H
IFNB <>h,<
PRINTX (From GLXVER)
> ;END IFNB
M&`Mt
PRINTX (GLXVER GLXFIL EdiHt(122) by DPM on h18-Sep-89
PRINTX GLXFIL Actual Edit(A)
M&dYP )M2
:SQ<<<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 H(
IFNB <>h,<
PRINTX (From GLXVER)
> ;END IFNB
MVpMt
PRINTX (GLXVER GLXFUN EdiHt(2) by BAH on 14h-Nov-86
PRINTX GLXFUN Actual Edit(A)
MVtYP M^luQ O2| spO)IRP A,<
t IF2,<IFDEF A,<. t0IFN A,EXTERN,<IN tPTERN A>>
tpIFNDEF A,<EXTERN u A>
Q SUPPRESPA>>FlYSUPPRO3DYPFFO3EKrPfFO3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
Sp Sv8;Q Sv>@p SNn
UpU/..OP(A,B,IDIV).OP(A,BSNp @S7-N
TpU'..OP(A,B,IMUL).OP(A,BS: Hp\M
IFNB <IB>,<..STR0 (.INCRI00,,<B>,A)>
IFIPB <B>,<AOS A> <B>,<AOS A>S:HKW
IFNB <>(,<
PRINTX (FroHm GLXVER)
> ;END IFNB
S:HMt H
PRINTX hGLXVER GLXINI Edit(24) by RCB on 2(3-Jun-89
PRINTXH GLXINI Actual Edit(A)
S:LYP
S;k
<PSe<<<A>B<POS(<B>)>>&<B>>S; KW {H`
IFNB <>{h,<
PRINTX (Fro|m GLXVER)
> ;END IFNB
S; Mt zX
PRINTX z(GLXVER GLXINT EdizHt(120) by DPM on zh29-Nov-89
PRINT{X GLXINT Actual Edit(A)
S;!kP S;!k<P S;$YP (S?
wpW?
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 H
IFNB <>h,<
PRINTX (From GLXVER)
> ;END IFNB
SBMt x
PRINTX (GLXVER GLXIPC EdiHt(77) by LWS on 2h4-Aug-87
PRINTX GLXIPC Actual Edit(A)
SBIP SBM"P SBYP SBlP SB2P 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.
(XCREF
..TEXT<A
H>
EXP 0
LSTON.
0
Uv98Q |U$@
2Xlu
OLST
XJJNO,.JI,GJBJNO>
X-TNO,.JITNO,<
XUSR,.JIUNO,.GTPPN
X,CDN,.JIDNOH>
xXGPRG,.JIPNM,.GTP
XPCJN,.JICJBCJB>
XTBAT,.JIBCH,.G
XIJLT,.JTJLT
X,LOC,<-1,,GJBLOC>
xXJRTM,.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
IFNB <>(,<
PRINTX (FroHm GLXVER)
> ;END IFNB
W
Mt H
PRINTX hGLXVER GLXKBD Edit(103) by LWS on (24-Aug-87
PRINTHX GLXKBD Actual Edit(A)
W
$YP !WNH1 uHw4
IFB <Cuh>,<
XWD [ASCIZ\vB\],A>
IFNB <v(C>,<
XWD [EXP vHCM%FW!C
ASCIZ\B\],A>
SCIZY"luQ xY&i1
S#
LST
8OF. XCREF
CDO
X OTSINI
CDO
x
CDO .ZP
AGA
CDO .ZPAGN
8
CDO .ZCHNK
CD
XO .SAVE1
CDO .S
xAVE2
CDO .SAVE3
CDO .SAVE4
C
8DO .SAVET
CDO .
XSV13
CDO .SV14
x
CDO .SV15
CDO
.SV16
NT .RETT
8
NT .RETF
CDO
X .RETE
CDO .AOS
x
CDO .SOS
CDO .ZERO
NT
8 .POPJ
CDO .S
XTOP
CDO .SAVE
x8
CDO .STKST
CDO .TRSET
8
NT .POPJ1
C
XDO .UD2SC
CDO
x .SC2UD
CDO .
CPUTY
CDO .DI
8E
CDO
CDO
X
CDO
CDO C
x%RPRM
CDO C%INT
R
CDO C%SEND
8CDO C%RECV
CDO
XC%BRCV
CDO C%RE
xL
CDO C%CPID
CDO C%KPID
CDO
8C%SPID
CDO C%MA
XXP
CDO C%PIDJ
x CDO C%PIDH
CDO
C%SIDX
CDO
C
8DO
CDO
CDO
X
CDO F
x%IOPN
CDO F%AOP
N
CDO F%OOPN
8CDO F%IBYT
CDO
XF%OBYT
CDO F%IB
xUF
CDO F%OBUF
CDO F%REL
CDO
8F%DREL
CDO F%RR
XEL
CDO F%REW
xCDO F%POS
CDO F
%CHKP
CDO F%INF
8O
CDO F%FD
CD
XO F%REN
CDO F%D
xEL
CDO F%FCHN
! CDO
CDO
CDO
!8
CDO
CDO
CDO
!X
CDO
CDO
CD
!xO FUNCT.
C
"DO
CD
"8O M%ACQP
CDO M%
"XRELP
CDO M%IPSN
"x
CDO M%NXPG
C
#DO M%IPRC
CDO M
#8%IPRM
CDO M%AQN
#XP
CDO M%RLNP
#xCDO M%CLNC
CDO
$M%FPGS
CDO M%GM
$8EM
CDO M%RMEM
$X CDO
CDO
CDO
$x
CDO
CDO
CDO
%
CDO M%GPAG
C
%8DO M%RPAG
CDO
%X CDO
CDO
CDO
%x
CDO
CDO
CDO
&
CDO
CDO
&8
CDO T%T
&XEXT
CDO T%TTY
&x CDO
CDO
CDO
'
CDO
CDO
CDO
'8
CDO
CDO
CD
'XO
CDO
CDO
'x
CDO L%
(CLST
CDO L%DLST
(8
CDO L%CENT
C
(XDO L%CBFR
CDO L
(x%DENT
CDO L%NEX
)T
CDO L%FIRS
)8CDO L%LAST
CDO
)XL%PREV
CDO L%PR
)xEM
CDO L%CURR
* CDO L%RENT
CDO
*8 L%SIZE
CDO L%A
*XPOS
CDO
CDO
*x CDO
CDO
CDO
+
CDO
CDO
CDO
+8
CDO
CDO
+X I%NOW
CDO I%EX
+xIT
CDO I%ION
,CDO I%IOFF
CDO
,8I%SLP
CDO I%INT
,X1
CDO I%INT2
,xCDO I%INT3
CDO
-I%TIMR
CDO
CD
-8O
CDO I%SOPR
-XCDO I%WTO
CDO
-x CDO I%HOST
CDO
. I%JINF
CDO I%C
.8JOB
CDO I%KJOB
.X
CDO S%U2DT
.x
CDO S%DT2U
CD
/O S%DATI
CDO S%
/8SIXB
CDO S%CMND
/X
CDO S%TBLK
C
/xDO S%SCMP
CDO S
0%ERR
CDO S%INTR
08
CDO S%EXIT
C
0XDO S%TBAD
CDO S
0x%TBDL
CDO S%NUM
1I
CDO K%RCO
18C
CDO K%WCOC
1X
CDO K%SUET
C
1xDO K%STYP
CDO K
2%TXTI
CDO K%SOU
28T
CDO K%BOUT
2XCDO K%BIN
CDO K
2x%BACK
CDO K%TPO
3S
CDO K%BUFF
38CDO K%FLSH
CDO
3XK%OPEN
CDO K%EC
3xHO
CDO
CDO
4CDO
CDO
CDO
48 CDO
CDO
CDO
LSTON.
Y:W d
IFNB <>(,<
PRINTX (FroHm GLXVER)
> ;END IFNB
Y:XMt H\
PRINTX hGLXVER GLXLNK Edit(11) by AWC on 2(9-Jan-82
PRINTXH GLXLNK Actual Edit(A)
Y:\YP Y>
@ B0\
IFNB <BPC>,<..STR0 (..LDBBp,A,C,B)>
IFBC <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG wOC
IFNDEF w0LSTIN.,LSTIN.==0 wP
IFE LSTIN.,<
wp IFIDN <XCREF><A x>,<.XCREF>
x0 XLIST>
LSTIN.==LSTIN.+1STINYO%{G xpOM
IFG LST yIN.,LSTIN.==LSTIN y0.-1
IFLE LSTIN yP.,<.CREF
LIST>
[KW ~t
IFNB <>~(,<
PRINTX (Fro~Hm GLXVER)
> ;END IFNB
Z[Mt |Hl
PRINTX |hGLXVER GLXMAC Edi}t(525) by DPM on }(16-Oct-89
PRINT}HX GLXMAC Actual Edit(A)
[YP *[3@
<Sa<<<1_<A>>-1>B<B>>_<A>>[8@
;SY1B<<A>-1>-1B<B><<A>-1>[@
XQ
IFB <B
x>,<MAXSIZ==0
I
RP A,<IFG <A-MA
8XSIZ>,<MAXSIZ==A
X>>>
IFNB <B>,<
xB==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
HX
IFNB <>
h,<
PRINTX (From GLXVER)
> ;END IFNB
[hMt P
PRINTX (GLXVER GLXMEM Edi Ht(33) by DPM on 1 h9-Apr-88
PRINTX
GLXMEM Actual Edit(A)
[lYPuQ @[th:Q [u[yQ [ukvQ [v=3P'[v|WQ [&p
XQ
IFB <B
x>,<MINSIZ==377777
,,777777
IRP
8A,<IFG <MINSIZ-A
X>,<MINSIZ==A>>>
x
IFNB <B>,<B==
377777,,777777
8 IRP A,<IFG <B-
XA>,<B==A>>>
A>,<B==A>>>
[>!`
;PS]<A-<A/B>*B><A-<A/B[?7
=TK
..MX1
=0==B
IFDEF .P
=PSECT,<
.IFN .
=p.MX1,ABSOLUTE,<
> MOVE A,[B]>
>0 .IF ..MX1,ABSOL
>PUTE,<
..MX2==0
>p
IFE <..MX1>B5
?3,<
..MX2==1
?0
MOVEI A,..MX
?P1>
IFE ..MX2,<
?p
IFE <..MX1>B
@17,<
..MX2==1
@0
MOVSI A,(..
@PMX1)>>
IFE ..M
@pX2,<
IFE <<..
AMX1>B53-^O777777>
A0,<
..MX2==1
AP HRROI A,<..MX
Ap1>>>
IFE ..MX2
B,<
IFE <<..MX
B01>B17-^O777777B17
BP>,<
..MX2==1
Bp
HRLOI A,(..M
CX1-^O777777)>>
C0 IFE ..MX2,<
CP MOVE A,[..MX1]
Cp>
>>
IFNDEF
D .PSECT,<
..MX2
D0==0
IFE <..MX
DP1>B53,<
..MX2
Dp==1
MOVEI A,
E..MX1>
IFE ..M
E0X2,<
IFE <..M
EPX1>B17,<
..MX
Ep2==1
MOVSI A
F,(..MX1)>>
IFE
F0 ..MX2,<
IFE
FP<<..MX1>B53-^O777
Fp777>,<
..MX2=
G=1
HRROI A,<
G0..MX1>>>
IFE .
GP.MX2,<
IFE <<
Gp..MX1>B17-^O77777
H7B17>,<
..MX2
H0==1
HRLOI A,
HP(..MX1-^O777777)>
Hp>
IFE ..MX2,<
I
MOVE A,[..
I0MX1]>
>
PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 0X=
A==C P
IF1,<IFDEF %pA,<PRINTX ?A ALREADY DEFINED>>
0DEFINE %A (OP,ACP,Y,MSK)<
IFDIFp <Y><>,<
OP (<AC>,B+'Y,MSK)>
0IFIDN <Y><>,<
OPP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg
U0U+..OP(A,B,MUL)..OP(A,B[`v
2P ] qPOIF2,<IFDEF qp A,<A==A>> IFNDEF A,<A==B>]F@ qHTEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=
2o
X .OTReader
X .OU,Network-Cont
X .OTLPTr
X .OTBtch-Stream
f` 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
o@ X .OTDBM,<DBMS S
X .OTFALtream>
X .OTEVT,<Event>
p@ X .OTFCH,<Microf
X .OTXER,
X .OTNQ-Stream>
,<NQC-Stream>
_SKW H0
IFNB <>h,<
PRINTX (From GLXVER)
> ;END IFNB
_SMt (
PRINTX (GLXVER GLXOTS EdiHt(14) by RCB on 2h3-Jun-89
PRINTX 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)>
}x.IFNBC<D>,<..XX=
~X.IFNBC<E>,<..XX=
P EXP ..XX
p IFNB <C>,<EXP C>
IFB <C>,<0EXP 0>
IFNBP <D>,<POINT 7,[ApSCIZ \D\]>
IFB <D>,<0>
0 IFNB <E>,<POINTP 7,[ASCIZ \E\]>
IFB <E>,<0>
IFB <I0>,<0>
IFNB <PI>,<EXP I>
p IFB <J>,<0>
IFNB <J>,<EXP 0J>
IFB <H>P,<0>
IFNB <Hp>,<EXP H>
IFB <G>,<0>
0IFNB <G>,<EXP G>
G>,<EXP Ga@KW Hx
IFNB <>h,<
PRINTX (From GLXVER)
> ;END IFNB
a@Mt p
PRINTX (GLXVER GLXPFH EdiHt(16) by TARL on h17-Apr-81
PRINTX GLXPFH Actual Edit(A)
aDYP a
4xS'LSH A,^D9LSH A,^D9a+= 5a;&
*xb_
IFB <
+B>,<..STR0(..PNT
+8,,<FWMASK>,A)>
+X IFNB <B>,<..ST
+xR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm
90SM<POINT WID
9P(B),A,POS(B)>B),A,POS(B)>a?H6 +a?
6pS7<^L<<A>&<-<A>>>><<A>&<aJ}Ks l Po
SALL z8
LSTOF. XCRE zXF
%%.GLX== zx%%.GLX
GLXVR {S==GLXVRS
{8IFNB <A>,<%%.MOD {X==SIXBIT/A/>
{xIFNB <B>,<%%.OTS |==SIXBIT/B/>
|8
GLOB I%INIT
TOPS10 <
|x SEARCH UUOSYM }
%%UUOS==%%UUO }8S
>
T }XOPS20 <
SEA }xRCH MONSYM
; ~%%MONS==%%MONS
>
IFB < ~XB>,<
IFN G ~xLXPUR,<
.TEXT |,REL:GLXLIB/SEA 8RCH/REQUIRE:I%INI XT/SEGMENT:LOW|
x >
DEFINE $
DATA (NAM,SIZ<1>)
8,<
NAM: BLOC
XK SIZ
>
xDEFINE CDO (X),<G
LOB X>
DEFINE
8 NT(X),<CDO X>
X LIBVEC
>
x
IFNB <B>,
<
CHKEDT (
8B)
IFDIF <
XB><INI>,<
IF
xN GLXPURE,<.PSECT
.HIGH.>
IFE
8GLXPURE,<
T
XWOSEG 400000
x RELOC 0
REL
OC 400000
>
8
DEFINE $DA
XTA(NAM,SIZ<1>),<
x
IFN GLXPURE,
<.PSECT DATA>
8 IFE GLXPURE,<RE
XLOC>
IFNDEF
xB%D,<B%D::! B%
DL==:0>
NAM:
8BLOCK SIZ
B%
XDL==:B%DL+SIZ
x IFN GLXPURE,<.
ENDPS DATA>
8IFE GLXPURE,<RELO
XC>
>
I
xFDIF <B><OTS>,<
DEFINE CDO (
8X),<GLOB X>
D
XEFINE NT(X),<CDO
xX>
LIBVEC
>
>
8
IFIDN <B><I
XNI>,<
DEFINE
x$DATA (NAM,SIZ<1>
),<
NAM: BLO
8CK SIZ
>
X>
>
LST
xON.
GLOB
<.POPJ, .RETT, .R
8ETF>
OPDEF $RE
XT [POPJ P,]
OP
xDEF $RETT [PJRST
.RETT]
OPDEF $
8RETF [PJRST .RETF
X]
OPDEF $RETIT
x [JUMPT .POPJ]
OPDEF $RETIF [JU
8MPF .POPJ]
.NO
XDDT $RET,$RETT,$R
xETF,$RETIT,$RETIF
$RETIT,$RETIFaPtPaPtkPaPuTPaPv\rPe,(SQe,)6Qe,)RQe,+QP@e,,UQ@e,-QHe,<SQe-)WQe-i1Pe.lp glp gltp gl}p g
,}Q g
-LyQ @g
.=1Q gpKW
IFNB <>
PRINTXER(Fro
> ;END IFNB
gpMt Hd
PRINTX hGLXVER GLXSCN Edi
t(135) by DPM on
(19-Apr-88
PRINT
HX GLXSCN Actual Edit(A)
gtYP .g"@ op_
IFN <<.p.TA>&B>,<PRINTXp0 ?Initial field npPot zero in $SET>
q..TVAL==<C>
q0..TMSK==<B>
..TA==..TA!qP<FLD(..TVAL,..TMSqpK)>
PURGE ..TVAL,..TMSK
.TgtXrP gv
[P]g#=ztq`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 PY
..STKR=p=10
RADIX 8
..STKN==0
IRP 0A,<
.STKV1 (PA)>
$CALL .STKpST
..STKN,,..STKN
RADIX ..STK0R
DEFINE ENDSV.P<.ENSV1 <A>>
PpURGE ..STKN,..STKR,..STKQ
TKgR~r xh_~
.TYPE=y=-1
IFIDN <y(B><HALT>,<.TYPE==yH0>
IFIDN <B><yhCONT>,<.TYPE==1> z
IFIDN <B><DEBz(UG>,<.TYPE==2>
IFL .TYPE,< zh
IF2,<PRINTX ? {Stopcode A is in{( error; see S..A{H in CREF>
S..A:{h:JRST 4,.
> |
IFB <A>,<|(
IF2,<PRINTX|H ? Stopcode with |hout a A; see S..} in CREF>
S..:: }(JRST 4,.
> }H
IFGE .TYPE,}h<
S..A::PUS~HJ P,.DIE
CA~(I .TYPE,[
<S~HIXBIT /A/>&77777~h7000000
EXP %%.MOD
EXP C (
EXP [ASCIZ |HD|]
]
>h
PURGE .TYPE
URGE .gR~) EP\3
IFNB <EpC>,<..STR0 (..DPBF,A,C,B)>
IFBF0 <C>,<MOVEM A,B>>,<MOVEM A,gV
T0U#..AS(A,B,SUB,ADD)(A,Bgg
V
8Py
IFNB <
XB>,<TOPS10<A==B
x>>
IFNB <C>,<T
OPS20<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( _0}{IFN FTUUOS,B ;DEFINE UNi?4H _p}IFN FTJSYS, INTERN AEDT iD
a
IFNB
( <A>,<.TQCHA==^
HD<B>B17+ZZ>
I
hFNB <D>,<DEFINE
..TQMA<D>>
(IFNB <C>,<.TQC=
H=^D<B>B17+ZZ>
ZZ==ZZ+1ZZ>
iG,
a
LSTOF.
(
TQ(T,2,ASCIZ)
H
TQ(O,2,OCTAL)
h
TQ(D,2,DECI
MAL)
TQ(F,2,
(FILE)
TQ(7,2
H,CSEVEN)
TQ(
h6,2,CSIXBIT)
TQ(W,2,SIXBIT)
(
TQ(5,2,SVNBIT
H)
TQ(P,2,USE
hR)
TQ(U,2,DI
RECTORY)
TQ(
(H,2,DAYTIME)
H TQ(C,2,TIME)
h
TQ(E,2,ERROR)
TQ(I,1,INDIRE
(CT)
TQ(M,0,CR
H,..TXC0(\".CHCRT)
h)
TQ(J,0,LF,..
TXC0(\".CHLFD))
(
TQ(L,0,FF,..TXC
H0(\".CHFFD))
T
hQ(K,0,VT,..TXC0(\
".CHVTB))
TQ(A
(,0,NOCRLF,..TXA(.
HTQCHA))
TQ(0,0
h,NULL,..TXA(.TQCH
0))
TQ(3,0,STR
(ING,..TXER(IQU))
H
TQ(V,2,VERSION
h)
TQ(2,0,CAR
ET,..TXER(IQU))
(
TQ(Q,2,POINTER)
H
TQ(B,2,ROB)
h
TQ(1,2,OBJE
CT)
TQ(N,2,N
(ODE)
TQ(R,2,
HJIB)
LSTON.
)
LSTON.
28n(
LSTOF.
OX(33,TTY33,33,.
PX(3TTY35,35,.RETT,
TOPS20<
P@EX(37,TTY37,37,.R
QX(EXPORT,EXEC,EXE,
>
Q@TOPS10<
QX(LA120,L12,.RETT,
>
RX(LA336,L36,.RETT,
RX(VK100,10,SETTLC,
SX(T05,VT05,V05,.RE
TX(VT100,00,SETTLC,
U@TOPS10< X(VT101,V
VX(VT102,VT102,102,
TOPS10< X(VT103,SET
YX(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10< XVT185,185,
\X(VT220,VTETTLC,<.
]X(V40,VT240,240,SE
X(VT320,VT320<.CHE
`X(VT3330,330,SETTL
a0X(VT340,VT340,34
bX(VT50,VTETTLC,<.C
cX(VT52,V,SETTLC,<.
TOPS10< ,VT61,V61,S
LSTON.
>PA iK4@ &Z?
..TRR==&010
RADIX 8
&P..NV==1
IRP &pA,<
.TRV1 ('A)>
$CALL .TR'0SET
..NV-1,,'P..NV-1
RADIX ..'pTRR
PURGE ..TRR,..NVURGE ..Tib
m0Vk
..TX(C,A,<B>)..TX(Cib
npVw
..TX(CA,A,<B>).TX(CibP
mpVo
..TX(CE,A,<B>).TX(Cib`
n0Vs
..TX(CN,A,<B>).TX(Cibp
g0V;
..TX(N,A,<B>)..TX(Nibt
hpVG
..TX(NA,A,<B>).TX(NibtP
gpV?
..TX(NE,A,<B>).TX(Nibu`
h0VC
..TX(NN,A,<B>).TX(Nibx
i0VK
..TX(O,A,<B>)..TX(Oib|
jpVW
..TX(OA,A,<B>).TX(Oib|P
ipVO
..TX(OE,A,<B>).TX(Oib}`
j0VS
..TX(ON,A,<B>).TX(Oic KW <
IFNB <>(,<
PRINTX (FroHm GLXVER)
> ;END IFNB
ic Mt H4
PRINTX hGLXVER GLXTXT Edit(55) by BAH on 1(4-Nov-86
PRINTXH 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
k0V[
..TX(Z,A,<B>)..TX(ZicT
lpVg
..TX(ZA,A,<B>).TX(ZicTP
kpV_
..TX(ZE,A,<B>).TX(ZicU`
l0Vc
..TX(ZN,A,<B>).TX(ZkR`KW (N
IFNB <>H,<
PRINTX (Frohm GLXVER)
> ;END IFNB
kR`Mt hF
PRINTX GLXVER GLXUTL Edi(t(2) by DPM on 4-HDec-85
PRINTX h GLXUTL Actual Edit(A)
kRdYP mKc@ `OQBYTE (3)A zWHO (9)AVER (6)AMIN (18)AEDTo&
60S3<^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?
xpWG
TXC A,<B>
TXC A,q@ r0OIFB <C>,< rPA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up Np\}
IFNB <OB>,<..STR1 (..TQZO0,,<B>,A,..STR4)OP>
IFB <B>,<SETZM A><B>,<SEuhP ;z ow
.XCREF o(.$RESET, .$BUILD
.$RESET
$TYPEoh (.CMACT)
$HELPp (<>)
$NEXT (Ap()
IFIDN <B> <>,pH< IRP C,<C>
ph .$BUILD>
IFDIF q<B> <>,<
$HELPq( (B)
IRP C,<C>
.$BUILD>< 0
y8gO
.WTOX.(.OM
yXACK,<A>,<B>,<C
yx>,<D>,<$WTFLG(WT.SJI),E>)LG(WT J7 q>.XCREF .%R@TN, .$RTN
DEF`INE .$RTN <A>
.%RTN==1A>
D[ @pT
IFDIF < `A> <>,<.XCREF .%
HLPM, .$HLPM
DEF
INE .$HLPM <POINT
@ 7,[ASCIZ\A\]>
.%HLPM==-1>
fI9 q.XCREF .%L@ST, .$LST
DEF`INE .$LST <A+1>
.%LST==11>
=Z `p^
IFG aA-INT.LV,<PRINTX a0?Level A interruaPpts not supportedap>
.BGINT.(\A) .BGINT.(\A X5 q.XCREF .%B@REA, .$BREA
D`EFINE .$BREA <A>
.%BREA==1> - cP^-
IFDEFcp ..BSIZ,<PRINTX ?dMissing $EOB afted0r a $BUILD>
.dP.BSIZ==0
.dp.BLOC==.
ReEPEAT A,<
e0BLD0.(\..BSIZ,0) eP
..BSIZ==..BSIZ+1>
==..BSI }[0 Su
.XCREF S(.$RESET, .$BUILD
.$RESET
$TYPESh (.CMCMA)
$NEXTT (A)
IRP B,<B>
.$BUILD,< I@ NHt|
.XCREF Nh.$RESET, .$BUILD
.$RESET
$TYPEO( (.CMCFM)
IRP OHA,<A>
.$BUILD,<A>
.$BUILD $^ \ur
.XCREF \(.$RESET, .$BUILD
.$RESET
$TYPE\h (.CMTXT)
$HELP] (<>)
$NEXT (A]()
IFIDN <B> <>,]H< IRP C,<C>
]h .$BUILD>
IFDIF ^<B> <>,<
$HELP^( (B)
IRP C,<C>
.$BUILD>< I ^hv
.XCREF .$RESET, .$BUILD
.$RESET
$TYPE_H (.CMTAD)
$PDAT_hA (CM%IDA)
$NEX`T (A)
IRP B,<B>
.$BUILD,< ,,U bp^
$RET c ;WILL INVOKE RIGHT ROUTINE
,h:
@pt
IFDIF <
`A>M<>,<.XCREF .%
DEF[.$DEFM<POINT
.%DEFM==1>
IFIDN <A> <>,<
I F1 <
PRINTX %Nul@l argument in $DEFAULT macro>>DE .` ZHu\
.XCREF Zh.$RESET, .$BUILD
.$RESET
$TYPE[( (.CMDEV)
$NEXT[H (A)
IRP B,<B>
.$BUILD,< Lz: ;sl
.XCREF ;(.$RESET, .$BUILD
.$RESET
$TYPE;h (.CMNUX)
$PDAT<A (B)
$HELP (<<(>)
$NEXT (A)
<HIFIDN <C> <>,< I<hRP D,<D>
.$=BUILD>
IFDIF <C=(> <>,<
$HELP (=HC)
IRP D,<D>
.$BUILD><D>
.XCREF P(.$RESET, .$BUILD
.$RESET
$TYPEPh (.CMDIR)
$NEXTQ (A)
IRP B,<B>
.$BUILD,< | jP^q
IFNDEjpF ..BSIZ,<PRINTX k?$EOB without prek0vious $BUILD>
kP IFN <.-..BLOC>,<kpPRINTX ?Address clhange between $BUl0ILD and $EOB>
lP LSTOF.
..lpT==0
REPEAT .m.BSIZ,<
BLDm00.(\..T,1)
mP ..T==..T+1 >
mp PURGE ..BSIZ,..nT,..BLOC
LSTON.
LST +y q.XCREF .%E@RTN, .$ERTN
D`EFINE .$ERTN <A>
.%ERTN==1> , q(.XCREF .%E@RTN, .$ERTN
D`EFINE .$ERTN <1B0+A+1>
.%ERTN==1>
.%ERTN - @q6.XCREF .%E`RTN, .$ERTN
DEFINE .$ERTN <[MO VEI S2,[ASCIZ\A\@]
$RET`F]>
.%ERTN==1>
.%ERTN==1 IF2,<IFN < p8A>-.,<PRINTX ? I pXLLEGAL $FALL A>>EGAL $FALL A>> H6 tH,
$CALL .thSTOP
LSTOF.
JuUMP [XWD 0,[ITEXTu( (<A>)]
EXP uH%%.MOD]
LSTON. .MOD]
LSTON. L[ Khtp
.XCREF L.$RESET, .$BUILD
.$RESET
$TYPELH (.CMFLD)
$NEXTLh (A)
$HELP (<>M)
IFIDN <B> <>,M(< IRP C,<C>
MH .$BUILD>
IFDIF Mh<B> <>,<
$HELPN (B)
IRP C,<C>
.$BUILD>< MI ItZ
.XCREF I(.$RESET, .$BUILD
.$RESET
$TYPEIh (.CMFIL)
$HELPJ (<>)
$NEXT (AJ()
IFIDN <B> <>,JH< IRP C,<C>
Jh .$BUILD>
IFDIF K<B> <>,<
$HELPK( (B)
IRP C,<C>
.$BUILD>< dy p4.XCREF .%F LGS, .$FLGS
D@EFINE .$FLGS <A>
.%FLGS==1> ex: WhuP
.XCREF X.$RESET, .$BUILD
.$RESET
$TYPEXH (.CMFLT)
$HELPXh (<>)
$NEXT (AY)
IFIDN <B> <>,Y(< IRP C,<C>
YH .$BUILD>
IFDIF Yh<B> <>,<
$HELPZ (B)
IRP C,<C>
.$BUILD>< $ d(v.
.XCREF dH.$RESET, .$BUILD
.$RESET
$TYPEe (.CMTAD)
$PDATe(A (<CM%IDA!CM%ITMeH!CM%FUT>)
$NEXTeh (A)
IRP B,<B>
.$BUILD,< $ sX_ j`
INTERtN A
$DATA(A,<B>)
ATA(A~V1P* "
IFDIF < A> <>,<.XCREF .%@HLPM, .$HLPM
DEF`INE .$HLPM <POINT 7,[ASCIZ\A\]>
.%HLPM==1>
&5 CHt.
.XCREF Ch.$RESET, .$BUILD
.$RESET
$TYPED( (.CMIFI)
$HELPDH (<>)
$NEXT (ADh)
IFIDN <B> <>,E< IRP C,<C>
E( .$BUILD>
IFDIF EH<B> <>,<
$HELPEh (B)
IRP C,<C>
.$BUILD>< &u V(u:
.XCREF VH.$RESET, .$BUILD
.$RESET
$NEXTW (A)
$TYPE (.CW(MINI)
IRP B,<B>
.$BUILD,< ./ 6(s<
.XCREF 6H.$RESET, .$BUILD
.$RESET
$TYPE7 (.CMKEY)
$PDAT7(A (B)
$NEXT (7HA)
IRP C,<C>
.$BUILD,<C>
.XCREF 4h.$RESET, .$BUILD
.$RESET
$TYPE5( (.CMKEY)
$PDAT5HA (A)
$NEXT (05h)
IRP B,<B>
.$BUILD,<B>
/>Ky
|gc.WTOX.(.OM
|8WTR,,,,<A>,<$WTFLG(WT.KIL),B>) 2|p
{8g].WTOX.(.OM
{XLOG,<A>,<B>,<C>,,<D>)B>,<C :/
DEF`INE .$NXT <A>
.%NXT==1A>
:|KV lvt
.XCREF l(.$RESET, .$BUILD
.$RESET
$TYPElh (.CMNOD)
$HELPm (<>)
$NEXT (Am()
IFIDN <B> <>,mH< IRP C,<C>
mh .$BUILD>
IFDIF n<B> <>,<
$HELPn( (B)
; $FLAGS (nHCM%PO)
IRP C,<C>
.$BUILD>< :}r >s|
.XCREF >(.$RESET, .$BUILD
.$RESET
$TYPE>h (.CMNOI)
$PDAT?A (<POINT 7,[ASCI?(Z\B\]>)
$NEXT ?H(A)
IRP C,<C>
.$BUILD,<C ;-XR 8sT
.XCREF 8(.$RESET, .$BUILD
.$RESET
$TYPE8h (.CMNUM)
$PDAT9A (B)
$HELP (<9(>)
$NEXT (A)
9HIFIDN <C> <>,< I9hRP D,<D>
.$:BUILD>
IFDIF <C:(> <>,<
$HELP (:HC)
IRP D,<D>
.$BUILD><D>
.XCREF FH.$RESET, .$BUILD
.$RESET
$TYPEG (.CMOFI)
$NEXTG( (A)
$HELP (<>GH)
IFIDN <B> <>,Gh< IRP C,<C>
H .$BUILD>
IFDIF H(<B> <>,<
$HELPHH (B)
IRP C,<C>
.$BUILD>< B$ p<.XCREF .%D ATA, .$DATA
D@EFINE .$DATA <A>
.%DATA==1> B$YP p~.XCREF .%D EFM, .$DEFM
D@EFINE .$DEFM <POI`NT 7,<A>>
.%DEFM==1>
.% CYT qF.XCREF .%D@EFR, .$DEFR
D`EFINE .$DEFR <A>
.%DEFR==1> G-} f(vD
.XCREF fH.$RESET, .$BUILD
.$RESET
$TYPEg (.CMQST)
$HELPg( (<>)
$NEXT (AgH)
IFIDN <B> <>,gh< IRP C,<C>
h .$BUILD>
IFDIF h(<B> <>,<
$HELPhH (B)
IRP C,<C>
.$BUILD>< J.I r8_
$CALLrX .RETE
LSTOrxF.
JUMP ERA$
LSTON.ERA$ Ni 00[
.NVR==00P
.ACM==0
IRP A,<
1 ..TSAC(.ACB,A) 10
IFN .ACB,<.A1PCM==.ACM!1B<A>> 1p
IFE .ACB,< 2
IFE .NVR,< 20
PUSHJ P,[2P
>
..2pPUSH(A,\<.NVR+1>3)>>
IFE .30NVR,<
IFN .ACM3P,<
IFE <.A3pCM-17B<T4>>,<.ACM4==0
$CALL .S40AVET>
IFE <4P.ACM-377B<.A16>>,4p<.ACM==0
$CA5LL .SAVE8>
50IFE <.ACM-17B<P4>5P>,<.ACM==0
$5pCALL .SAVE4>
6 IFE <.ACM-7B<P360>>,<.ACM==0
6P$CALL .SAVE3>
6p IFE <.ACM-3B<P72>>,<.ACM==0
70 $CALL .SAVE2>
7P IFE <.ACM-1B<7pP1>>,<.ACM==0
8 $CALL .SAVE1>
80 IFE <.ACM-1B8P<.A13>>,<.ACM==0
$CALL .SV13>9
IFE <.ACM-901B<.A14>>,<.ACM==9P0
$CALL .SV19p4>
IFE <.AC:M-1B<.A15>>,<.ACM:0==0
$CALL .S:PV15>
IFE <.:pACM-1B<.A16>>,<.A;CM==0
$CALL ;0.SV16>
>>
;P
IFN .ACM,<
;p IFE .NVR,< <
PUSHJ P,[
<0 >
.ACB=<P=0
REPEAT ^D<p16,<
IFN= <.ACM&1B<.ACB>>,=0<
..PUSH(\.AC=PB,\<.NVR+1>)>
=p.ACB==.ACB+1>>
IFN .NVR,<
>0 PUSHJ P,@-.NVR(>PP)
TRNA
>p AOS -1-.NVR(P) ?
REPEAT .NV?0R,<..POP(\.NVR)> ?P
ADJSP P,-1
POPJ P,]>
POPJ P,]>
N; p`.XCREF .%S BCM, .$SBCM
IFD@IF <A><>,<DEFINE` .$SBCM <EXP <A>
>>
.%SBCM==1
>
.%SBCM==1
N.@ f^A
IFNDEf0F ..BSIZ,<PRINTX fP?$SET without prefpvious $BUILD>
g IFNB <B>,<..STRg00 (..SET,<C>,B,gPA)>
IFB <Bgp>,<..STR0 (..SET,h<C>,FWMASK,A)>
,FWMASK,A)>
.XCREF w(a, b
a==.
wHXWD b-1,b-1
DwhEFINE $ETAB <.XCRxEF a, b
b==.-a>b
b== O%|
(`
IF1,<PRI
HNTX % Use STOPCD
hmacro for stopcod
e A instead of $
(STOP>
S..A::! $
HCALL .STOP
LST
hOF.
JUMP [XWD
'A',[ITEXT (<B>
()]
EXP %%.MOD]
LSTON. MOD O,(v THu.
.XCREF Th.$RESET, .$BUILD
.$RESET
$NEXTU( (A)
$TYPE (.CUHMINI)
$SBCM (BUh)
IRP C,<C>
.$BUILD,<C>
O= Aht
.XCREF B.$RESET, .$BUILD
.$RESET
$TYPEBH (.CMSWI)
$PDATBhA (A)
$NEXT (0C)
IRP B,<B>
.$BUILD,<B>
O= @t
.XCREF @(.$RESET, .$BUILD
.$RESET
$TYPE@h (.CMSWI)
$PDATAA (B)
$NEXT (A(A)
IRP C,<C>
.$BUILD,<C>
@ b(v
.XCREF bH.$RESET, .$BUILD
.$RESET
$TYPEc (.CMTAD)
$PDATc(A (<CM%IDA!CM%ITMcH>)
$NEXT (A)
ch IRP B,<B>
.$BUILD,<B>
.$ R/
h`
$CALL T
%TEXT
LSTOF. XC
(REF
JUMP [XWD 2
H,0
EVL (A)
h ITEXT(<B>)]
LSTON.B>)]
.XCREF `h.$RESET, .$BUILD
.$RESET
$TYPEa( (.CMTAD)
$PDATaHA (CM%ITM)
$NEXahT (A)
IRP B,<B>
.$BUILD,< R}97 qhw
.XCREF r.$RESET, .$BUILD
.$RESET
$TYPErH (.CMTOK)
$PDATrhA (<POINT 7,[ASCIsZ\B\]>)
$NEXT s((A)
IRP C,<C>
.$BUILD,<C S
ha"
..TX
xA(.TQA,C,D,E,
B)
IFN .
H.TXEF,<
..TE
(RR<$TQ(A,B,C,D,E)>>
C, S@I9
-Xc
LSTOF.
-x
X(UQU,Unknown q
.ualifier)
X(IQU
.8,Invalid qualifie
.Xr)
X(IJA,Invali
.xd justification a
/rgument)
X(IWA,
/8Invalid width arg
/Xument)
X(PEA,Pr
/xemature end of ar
0gument)
X(JNA,J
08ustification is n
0Xot allowed)
X(A
0xNA,Arguments are
1not allowed)
X(
18ADS,Address must
1Xbe specified)
LSTON.
ied)
L SN p,.XCREF .%T YPE, .$TYP
DE@FINE .$TYP <A>
.%TYPE==1>
W= iv\
.XCREF i(.$RESET, .$BUILD
.$RESET
$TYPEih (.CMUQS)
$HELPj (<>)
$NEXT (Aj()
$PDATA (B)
jHIFIDN <C> <>,< IjhRP D,<D>
.$kBUILD>
IFDIF <Ck(> <>,<
$HELP (kHC)
IRP D,<D>
.$BUILD><D>
.XCREF Qh.$RESET, .$BUILD
.$RESET
$TYPER( (.CMUSR)
$NEXTRH (A)
IRP B,<B>
.$BUILD,< ^+@ v_B
IFE %%.Ov(TS,<DEFINE $WARN vH(MSG) <
$TEXT vh(T%TTY,<% ^W6/[%%w.MOD]/ MSG>)>>
Iw(FN %%.OTS,<DEFINEwH $WARN (MSG) <
wh $TEXT (T%TTY,<% x^W6/IIB+IB.PRG/ ^x(W/[%%.MOD]/ MSG>)>>
$WARN <A> _$r
m8f}
IFB <
mXA>,<.WFACD==0
mx IFN <0-2>,<.$WAC
nD==0>>
IFNB <
n8A>,<.WFACD==-1
nX IFN <0-2>,<.$WA
nxCD==.$WACD!<A>>
o
IFE <0-2>,<DE
o8FINE .$WACD,<<WO.
oXACD>B8+[ITEXT (<A>)]>>
>
< _$u
b8f%
IFB <
bXA>,<.WFACK==0
bx IFN <0-2>,<.$WAC
cK==0>>
IFNB <
c8A>,<.WFACK==-1
cX IFN <0-2>,<.$WA
cxCK==.$WACK!<A>>
d
IFE <0-2>,<DE
d8FINE .$WACK,<<WO.
dXACK>B8+[ITEXT (<A>)]>>
>
< _$+
Tg;
IFE <.W
T8FMTY>,<PRINTX ?No
TX message type in
Tx$WTBLD>
DEFINE .
UEAWTO(SUFFIX,ARGC
U8OD),<
IFN .WF'SU
UXFFIX',<
IFE <AR
UxGCOD-0>,<<WO.'SUF
VFIX'>B8+ .$W'SUFF
V8IX'>
IFE <ARGCO
VXD-1>,<<WO.'SUFFIX
v8'>B8+ [EXP .$W'SU
vXFFIX']>
IFE <AR
vxGCOD-2>,<.$W'SUFF
wIX'>
>
>
ALLW
w8TO
EXP 0
EXP 0 _$k
ef;
IFB <
e8A>,<.WFFLG==0
eX IFN <1-2>,<.$WFL
exG==0>>
IFNB <
fA>,<.WFFLG==-1
f8 IFN <1-2>,<.$WF
fXLG==.$WFLG!<A>>
fx
IFE <1-2>,<DE
gFINE .$WFLG,<<WO.
g8FLG>B8+[ITEXT (<A>)]>>
>
< _%(W
jXfg
IFB <
jxA>,<.WFJBN==0
k IFN <0-2>,<.$WJB
k8N==0>>
IFNB <
kXA>,<.WFJBN==-1
kx IFN <0-2>,<.$WJ
lBN==.$WJBN!<A>>
l8
IFE <0-2>,<DE
lXFINE .$WJBN,<<WO.
lxJBN>B8+[ITEXT (<A>)]>>
>
< _%YV
rxg)
IFB <
sA>,<.WFMFL==0
s8 IFN <1-2>,<.$WMF
sXL==0>>
IFNB <
sxA>,<.WFMFL==-1
t IFN <1-2>,<.$WM
t8FL==.$WMFL!<A>>
tX
IFE <1-2>,<DE
txFINE .$WMFL,<<WO.
uMFL>B8+[ITEXT (<A>)]>>
>
< _%]
W8eM
IFB <
WXA>,<.WFMTY==0
Wx IFN <0-2>,<.$WMT
XY==0>>
IFNB <
X8A>,<.WFMTY==-1
XX IFN <0-2>,<.$WM
XxTY==.$WMTY!<A>>
Y
IFE <0-2>,<DE
Y8FINE .$WMTY,<<WO.
YXMTY>B8+[ITEXT (<A>)]>>
>
< _%kr
gxfQ
IFB <
hA>,<.WFNOD==0
h8 IFN <0-2>,<.$WNO
hXD==0>>
IFNB <
hxA>,<.WFNOD==-1
i IFN <0-2>,<.$WN
i8OD==.$WNOD!<A>>
iX
IFE <0-2>,<DE
ixFINE .$WNOD,<<WO.
jNOD>B8+[ITEXT (<A>)]>>
>
< _%p
wxgA.WTOX.(.OM
xWTO,<A>,<B>,<C>,,<D>)B>,<C _%xU
_Xf
IFB <
_xA>,<.WFOBJ==0
` IFN <0-2>,<.$WOB
`8J==0>>
IFNB <
`XA>,<.WFOBJ==-1
`x IFN <0-2>,<.$WO
aBJ==.$WOBJ!<A>>
a8
IFE <0-2>,<DE
aXFINE .$WOBJ,<<WO.
axOBJ>B8+[ITEXT (<A>)]>>
>
< _%xr
pg
IFB <
p8A>,<.WFOCD==0
pX IFN <0-2>,<.$WOC
pxD==0>>
IFNB <
qA>,<.WFOCD==-1
q8 IFN <0-2>,<.$WO
qXCD==.$WOCD!<A>>
qx
IFE <0-2>,<DE
rFINE .$WOCD,<<WO.
r8OCD>B8+[ITEXT (<A>)]>>
>
< _%z@
z8gW.WTOX.(.OM
zXWTO,<A>,<B>,<C
zx>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB _%|@
xXgG
.WTOX.(.OM
xxWTR,<A>,<B>,<C>,<D>,<E>)<C _&,z
Wg-
DEFINE
Vx.EAWTO(SUFFIX),<$
uXWT'SUFFIX' <>>
ALLWTO
_&N
\xey
IFB <
]A>,<.WFTXT==0
]8 IFN <2-2>,<.$WTX
]XT==0>>
IFNB <
]xA>,<.WFTXT==-1
^ IFN <2-2>,<.$WT
^8XT==.$WTXT!<A>>
^X
IFE <2-2>,<DE
^xFINE .$WTXT,<<WO.
_TXT>B8+[ITEXT (<A>)]>>
>
< _&N8
Zec
IFB <
Z8A>,<.WFTYP==0
ZX IFN <2-2>,<.$WTY
ZxP==0>>
IFNB <
[A>,<.WFTYP==-1
[8 IFN <2-2>,<.$WT
[XYP==.$WTYP!<A>>
[x
IFE <2-2>,<DE
\FINE .$WTYP,<<WO.
\8TYP>B8+[ITEXT (<A>)]>>
>
<
t{P
u[rQ ]>t2
u}P
,MP *V=P .
P .JP .bP /P B&@P cGP )0 qX0oM$uX|Z6 "hs
.X#CREF a, b, c, #(d
.XCREF .%T#HYPE, .%FLGS, .%DA#hTA, .%HLPM, .%DEF$M, .%LST
.XCREF$( .$TYP, .$FLGS, .$H$DATA, .$HLPM, .$$hDEFM, .$LST
.%XCREF .%BREA, .%N%(XT, .%ERTN, .%RTN%H, .%DEFR, .%SBCM
.XCREF .$BREA, &.$NXT, .$ERTN, .$&(RTN, .$DEFR, .$SB&HCM
d==<FLD(.&h$TYP,CM%FNC)>!.$F'LGS!<.$LST>
'(IFN <.%BREA>,<d='H=d!CM%BRK>
'hIFG <.%HLPM>,<d=(=d!CM%HPP!CM%SDH((>
IFL (H<.%HLPM>,<d==d!(hCM%HPP>
IFN <.%DEFM>,)(<d==d!CM%DPP>
c:! <INSVL.()hb,PB.PDB)>!<INSVL*.(a,PB.FDB)> ;PD*(B, FDB
EXP d *H
EXP .$DATA *h
IFN <.%HLPM!.%D+EFM!.%BREA>,<
E+(XP .$HLPM>
IF+HN <.%DEFM!.%BREA>+h,<
EXP .$DEFM> ,
IFN <.%BREA>,,(<
EXP .$BREA> ,H
a==.-c ,h
IFN <.%NXT!.%-DEFR!.%RTN!.%ERTN-(!.%SBCM>,<
EXP -H.$NXT >
IFN <-h.%DEFR!.%RTN!.%ER.TN!.%SBCM>,<
EX.(P .$RTN >
IFN.H <.%DEFR!.%ERTN!..h%SBCM>,<
EXP .$/ERTN>
IFN <.%/(DEFR!.%SBCM>,<
/HEXP .$DEFR>
I/hFN <.%SBCM>,<
E0XP .$SBCM>
0( b==.-c
I0HF2,<
PURGE .%TY0hPE, .%FLGS, .%DAT1A, .%HLPM, .%DEFM1(, .%LST
PURGE .1H$TYP, .$FLGS, .$D1hATA, .$HLPM, .$DE2FM, .$LST
PUR2(GE .%BREA, .%NXT,2H .%ERTN, .%RTN, .2h%DEFR, .%SBCM
P3URGE .$BREA, .$NX3(T, .$ERTN, .$RTN,3H .$DEFR, .$SBCM
3h
PURGE a, b, 4c, d
>
LIST, d
>
LIST$YV qPPOINTM7,[ASCIZ\0\]NT7,[A$YYtq\0R0+1M$u
}wqT0M$uW\r Hr
.XCREF
SALL
XLIST
DEFINE .$TYP <0>
.%TYPE==0
DEFHINE .$FLGS <0>
h.%FLGS==0
DEFINE .$DATA <0>
.%(DATA==0
DEFINE H.$HLPM <>
.%HLPhM==0
DEFINE .$DEFM <0>
.%DEFM=(=0
DEFINE .$LSTH <0>
.%LST==0
h DEFINE .$BREA <0 >
.%BREA==0
D (EFINE .$NXT <0>
H .%NXT==0
DEFIN hE .$ERTN <0>
.%!ERTN==0
DEFINE !(.$RTN <0>
.%RTN!H==0
DEFINE .$DE!hFR <0>
.%DEFR=="0
DEFINE .$SBCM"( <0>
.%SBCM==0
.CREF
CM==0qZ0M$u]' ~0T 1,O)0P $YVP $YYP .-P 5IyP f=P w
VpUc
..AS
W1==-<B>
IFDEF
W0 .PSECT,<
.IFN
WP..AS1,ABSOLUTE,<
Wp
C A,[-..
XAS1]>
.IF ..AS
X01,ABSOLUTE,<
.
XP.AS2==0
IFE
Xp<..AS1&^O777777B1
Y7>,<
..AS2==1
Y0
DI A,..A
YPS1>
IFE ..AS2
Yp,<
..OP(A,
ZB,C)>
PURGE
Z0..AS1,..AS2>>
I
ZPFNDEF .PSECT,<
Zp ..AS2==0
IF
[E <..AS1&^O777777
[0B17>,<
..AS2==
[P1
DI A,.
[p.AS1>
IFE ..A
\S2,<
..OP
\0(A,B,C)>
PURGE ..AS1,..AS2>:h Wa
AD;Z:
IpU
..CX1
J==C
IFDEF .PSE
J0CT,<
.IFN ..CX
JP1,ABSOLUTE,<
Jp CAMA B,[C]
K>
.IF ..CX1,ABS
K0OLUTE,<
..CX2
KP==0
IFE <..C
KpX1&^O777777B17>,<
L
..CX2==1
L0 CAIA B,C>
LP IFE ..CX2,<
Pp
CAMA B,[
QC]>
PURGE ..CX1
Q0,..CX2>>
IFNDEF
QP .PSECT,<
..CX
Qp2==0
IFE <..
RCX1&^O777777B17>,
R0<
..CX2==1
RP CAIA B,C>
Rp
IFE ..CX2,<
S
CAMA B,[
S0C]>
PURGE ..CX1,..CX2>GE ..CX:&@ Fp\C
..TSIZ G(..PST,C)
.CASG0E ..PST,<<
MOVGPEM A,B>,<
HRGpRM A,B>,<
HRHLM A,B>,<
DPH0B A,[POINTR (B,C)]>>INTR (B,:<;Y PYi
DEFINpE ..CNS2 (NEW,OLD)<
OLD>
..CNS ()>
:L;Y 0Ya
DEFINPE ..CNS (%%%)<
p..CNS2 <%%%>,>
DEFINE ..CNS20 (NEW,OLD)<
DEFPINE ..CNS (%%%)<
..CNS2 <%%%>,<OLD'NEW>>>
OLD'NEW>>>
:dH@ CP\)
..TSIZ Cp(..PST,C)
.CASDE ..PST,<<
MOVD0E A,B>,<
HRRDPZ A,B>,<
HLRDpZ A,B>,<
LDBE A,[POINTR (B,C)]>>INTR (B,:}i1 PX
A==<<<p-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~
\pV
..OP1
]==B
IFDEF .PSE
]0CT,<
.IFN ..OP
]P1,ABSOLUTE,<
]p C A,[..OP1]
^>
.IF ..OP1,ABS
^0OLUTE,<
..OP2
^P==0
IFE <..O
^pP1&^O777777B17>,<
_
..OP2==1
_0 CI A,..OP1>
_P
IFE ..OP2,<
_p
C A,[..O
`P1]>
PURGE ..OP
`01,..OP2>>
IFNDE
`PF .PSECT,<
..O
`pP2==0
IFE <.
a.OP1&^O777777B17>
a0,<
..OP2==1
aP CI A,..OP1
ap>
IFE ..OP2,<
b
C A,[.
b0.OP1]>
PURGE ..OP1,..OP2>GE ..;m
,8bi
..PST==
,XC-FWMASK
.IF0
,x..PST,<
POINT
-0,B,35>,<
POINTR (B,C)>POI;| A0\
POP P,AP.NVA
PURGE .NApVA
.NVR==.NVR-1
.NVR==.NVR;\t @0\
PUSH P@P,A
DEFINE .NV@pB<A>
.NVR==.NVR+1
.NVR==.;] hP^Q
IFGE hp<<<B>&777777>-..iBSIZ>,<
PRINTXi0 ?WORD offset greiPater than $BUILD ipsize parameter>
j SET0. (\<B>,C,<A>)
B>,;LH XQ
IFNDEF 0C,<PRINTX C IS PNOT DEFINED
pA (<B>,D,FWMASK )>
IFDEF C,<
IFNDEF %C,<
P A (<B>,D,C) p>
IFDEF %C,<
%C (A,<B>,D,C)>>A,<B>,;LH
PY
..NS==0
p
IRP C,<..NS=..NS+1>
IFE 0..NS,<PRINTX ?EMPPTY STRUCTURE LISTp, A>
IFE ..NS-
1,<
..STR0
0(A,<B>,<C>,D)
P>
IFG ..NS-1,<
p
..ICNS
.NS)(<E (A,<B
IRP C,<
<PIFNDEFC,T DEFINED>
IFDEF 0C,<
IFNDEF %PC,<
..CNS (<p,C,D>)>
IFDEF %C,<
%C0 (..STR2,,D,C)>P
..CNS (<)>)p
..GCNS
..ICNS
.0.CNS (<E (A,<BP>>)
IFNDEF %pC,<
..CNS (<,C,D>)>
IF0DEF %C,<
%CP (..STR2,,D,C)>p>>
..CNS (<,,)>)
..GCNS>);LI 0Y
..CNS (<,C,B>).CNS (;LI pY)
IFDIF <D><F>,<
IFN0B <D>,<
AP (<B>,D,..MSK) p
IFNB <F>,<PRINTX C AND E0 ARE IN DIFFERENTP WORDS>>
..MSpK==0>
IFNB <F>,<
..MSK=..MSK!<E>>MSK=..;LJ PY9
IFDIF <pD><F>,<
IFNB <D>,<
0A (<B>,D,..MSK)P>
..MSK==0> p
IFNB <F>,<
..MSK=..MSK!<E>>MSK=..MSK!<;LJ PYO
IFDIF <pD><F>,<
IFNB <D>,<
I0FNB <F>,<
PA1 (B,D,..MSK)>p
IFB <F>,<
A2 (B,D0,..MSK)>>
..PMSK==0>
IFNB p<F>,<
..MSK=..MSK!<E>>MSK=;$\Y
38c'
IF1,<
2x
PRINTX ? Err
3or in "A"
D
3hEFINE X(NAM,ERR)
48<IFN ..X'NAM&..TX
4XEF,<PRINTX ? ERR>
4x>
$TX$ERR>
$TX$ERR>
;$^
6Xc]
..
6xTXF==0
.
7.TXB==0
78..TXP==0
7X ..TXEG==<..TXEF=
7x=0>
IRPC
8A,<
..TXC=
88=ASCII\A\_-35
8X
IFN ..TXB,<IFN
8x..TXB-..TXC,..CNS
9(<A>)
IFE
98..TXB-..TXC,..TXB
9X==0>
IFE ..TXB,
9x<..TXQ(<A>,\..TX
:F)>>
..TXC1
:8
IFN ..T
:XXB,<IFN <..TXB-"^
:x">,<..TXER(PEA)>>
;
..TXEF==..T
;8XEF!..TXEG
;X IFN ..TXEF,<..TERR<A>>
,<..TE;&(
HaL..TXA(.TQCH0)..TXA(.TQC;&)
XaU..TXER(IQU)..TXER(IQU;&)
aP..TXER(IQU)..TXER(IQU;&0
aH..TXA(.TQCHA)..TXA(.TQC;&5
Ha<..TXC0(\".CHLFD).TXC0(\".;&5
HaD..TXC0(\".CHVTB).TXC0(\".;&6
a@..TXC0(\".CHFFD).TXC0(\".;&6
a8..TXC0(\".CHCRT).TXC0(\".;&@ P]
..TSIZ P0(..PST,C)
.CAPPSE ..PST,<<
SEPpTZM B>,<
HLLQZS B>,<
HRRZQ0S B>,<
..TSQPAC (..ACT,B)
Qp .IF0 ..ACT,<
R $CALL .ZERO
R0LSTOF.
JUMP [PRPOINTR(B,C)]
RpLSTON.>,<
..TX (Z,B,C)>>>TX;&81
~X
IFNDEF
~0.PSECT,<
A==0
~P
..TSA1==<Z
~pB>
IFE ..TS
A1&^O777777777760
0,<A==1>
>
I
PFDEF .PSECT,<
pA==0
..TSA1==<Z B>
.IF .0.TSA1,ABSOLUTE,< P
IFE ..TSA1&^pO777777777760,<A==1>>
PURGE ..TSA1>
PURGE ..;&:=
|PWm
A==3
|p
IFE <B>+1,<
}A=0>
IFE <B>-
}0^O777777,<A==1>
}P
IFE <B>-^O777777B17,<A==2>7;'
bpW%
..TX1
c==C
IFDEF .P
c0SECT,<
.IFN .
cP.TX1,ABSOLUTE,<
cp TDA B,[C]>
d0 .IF ..TX1,ABSOL
dUTE,<
..TX2==
dP0
IFE <..TX1&
dp^O777777B17>,<
e ..TX2==1
e0TRA B,..TX1>
ePIFE ..TX2,<
I
epFE <..TX1&^O77777
f7>,<
..TX2==1
f0
TLA B,(.
fP.TX1)>>
IFE ..T
fpX2,<
IFE <<
g..TX1>B53-^O77777
o07>,<
..TX3
oP (A,B)>>
IFE
op ..TX2,<
TD
pA B,[..TX1]>
p0 PURGE ..TX1,..TX
pP2>>
IFNDEF .PSEC
ppT,<
..TX2==0
q
IFE <..TX1&^O77
q07777B17>,<
..
qPTX2==1
TRA
qp B,..TX1>
IFE
r..TX2,<
IFE <
r0..TX1&^O777777>,<
rP
..TX2==1
rp TLA B,(..TX1
s)>>
IFE ..TX2,<
s0
IFE <<..TX
sP1>B53-^O777777>,<
sp
..TX3 (A
t,B)>>
IFE ..T
t0X2,<
TDA
tPB,[..TX1]>
PURGE ..TX1,..TX2>;'`
uW;
IFIDN <
u0A><Z>,<
..
uPTX2==1
ANDI
upB,^-..TX1>
IFI
vDN <A><O>,<
v0 ..TX2==1
OR
vPCMI B,^-..TX1>
vp
IFIDN <A><C>,<
w
..TX2==1
w0 EQVI B,^-..TX1>QVI B,^-..TX;'
xbS
..TXE
F==0
IFNDEF
8 A,<..TXER(UQU)>
X
IFDIF <B><>,
x<IRPC B,<.IFN <
B>,NUMERIC,..TXER
8(IWA)>>
IFNB <C
X>,<IFNDEF .TXTJC
x,<..TXER(IJA)>>
IFDEF A,<
IF
8E <A_-^D18>,<IFD
XIF <EFBCD><>
x,<..TXER(ANA)>>
IFE <1-<A_-^D1
88>>,<IFDIF <BC
XD><>,<..TXER(JNA)
x>>
IFE <2-<A_
!-^D18>>,<IFIDN <
!8EF><>,<..TXER(AD
!XS)>>>
IF
!xE ..TXEF,<
IFID
"N <B><>,<..TXWD=
"8=<..TXJU==<..TXFC
"X==0>>>
IFDIF <
"xB><>,<
IFE <^
#D<B>>,<..TXWD==<
#8..TXJU==<..TXFC==
#X0>>>
IFN <^D<
#xB>>,<..TXWD==^D<
$B>
IFNB <
$8C>,<..TXJU==.TXTJ
$XC>
IFB <
$xC>,<..TXJU==.TXTJ
%L
IFE <A
%8-.TQOCT>,<..TXJU=
%X=.TXTJR>
%xIFE <A-.TQDEC>,<
&..TXJU==.TXTJR>>
&8
IFB <D>,<
&X..TXFC==" ">
&x IFNB <D>,<..TX
'FC=="D">>>
I
'8FB <EF>,<..TXP
'XT==0>
IFNB <E
'xF>,<..TXPT==1>
(IFE <..TXWD+..TXP
(8T>,<
EXP FL
(XD(A,TXT.FN)>
I
(xFN <..TXWD+..TXPT
)>,<
EXP FLD
)8(A,TXT.FN)+FLD(.
)X.TXJU,TXT.JU)+FLD
)x(..TXWD,TXT.WD)+F
*LD(..TXFC,TXT.FC)
*8+TXT.AD
PNTR(E,F)>>
T;'h
M8dw
IFE
MX..TXP,<
..IC
MxNS
..CNS<ASC
NIZ\>
..TXP==1
N8>
..CNS<A
NX>
..TXF==
Nx0
..TXB=="^"
..TXB==;'h
O8e
IF
OXN ..TXP,<
..
OxCNS<\>
EXP <F
PLD(.TQCHT,TXT.FN)
P8+[..GCNS]>>
..TXP==0>
;' 9
58c1
..TX
5XEF==..TXEF!..XA
5x
..TXF==0
6
..TXB=="^"
..TXB=="^;'
<ca..TXQB(<A>)..TXQB(<;'
(
<Xck
IF
<xN ..TXC-"^",<..TX
=C0(<A>)>
=8IFE ..TXC-"^",<..TXF==1>-"^",<..;'
(
=xd
IF
>E ..TXC-"^",<..TX
>8C0(<A>)>
I
>XFN ..TXF,<
.
>x.TXF==0
IFDEF
? .TQCHA,<
?8 IFDEF ..TQMA,.
?X.TQMA
IFN
?x <.TQCHA_-^D18>,
@<..TXF==2>>>
@8 IFE ..TXF-2,<..T
@XXC1(<A>)
..IC
@xNS
..CNS<..T
AXA(.TQCHA,>>
A8 ..TXEG==..TXEG!..TXEF==..TXEG;'
)
Axd
..TX
BF==3
IFG
B8E ..TXC-"0",IFLE
BX..TXC-"9",<..TXF=
Bx=2>
IFE ..TX
CF-2,<..CNS(A)>
C8
IFE ..TXF-3
CX,<..CNS<,>
..TXQ3(A)>
;'
)
Dd1
..TX
D8F==4
IFE
DX ..TXC-"/",<..TXF
Dx==5>
IFE .
E.TXC-"[",<..TXF==
E85>
IFE ..T
EXXF-4,<..CNS<A,>>
Ex
IFE ..TXF
F-5,<..CNS<,,>
..TXQ5(A)>
;'
*
FXdG
..TX
FxF==4
IFE
G ..TXC-"/",..TXF=
G8=5
IFE ..T
GXXC-"[",..TXF==5
Gx
IFE ..TXF-5
H,<..CNS<,>
H8..TXQ5<A>>
HX IFE ..TXF-4,<..
HxCNS<A,>
..TXF==5>
..;'
*
I8dY
..TX
IXF==6
IFE
Ix ..TXC-"/",..TXB=
J="/"
IFE .
J8.TXC-"[",..TXB=="
JX]"
IFE ..TXB
Jx-"]",..CNS<[>
K IFE ..TXB,..TXF==5 ..TXB,..T;'
+
KXdg
..TX
KxF==0
IFE
L..TXC-"]",..CNS<]
L8>
..CNS<)>
LX
..GCNS
Lx
..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q ;EpQ ;E+PQ ;F 0Q ;F\:Q @
0P
@P
PP
`P d ,pZg
.ACV2 (A)
.ACV2 (d@ -0Zq
A=.FPA-PC+..NAC
IFB <-pB>,<..NAC=..NAC+.1>
IFNB <B>,<..NAC=..NAC+B>.d` .PZ
IFG A-.p.NPAC,<PRINTX ?TO/O MANY ACS USED>
IFLE A-4,<
//P $CALL .SAVEA>
IFG A-4,<
$CALL .SAVE8>
U0]k
IFIDNUP <A><.>,<
UpXMOVEI .SAC,B
V PUSH P,.SAC
>
IFDIF <VPA><.>,<
.IFAVpTM <A>,.BLF4
W .BLF1==0
W0IFN .BLF4,<
WP .IF %A,MACRO,Wp<
.BLF1==1>
>
IFNB <X0B>,<
.BLF1==1>XP
IFN .BLF1,<Xp
LOAD .SAYC,A,B
PUSY0H P,.SAC
>
YP IFE .BLF1,< ;IYpF WASN'T A STRUCTZURE REF,
IFZ0N .BLF4,<
ZP .BLF2==<<Z A>&Zp17B17>-<P>B17
[ .IF .BLF2,A[0BSOLUTE,<
[p [P IFE .BLF2,<
.BLF1==1\
.BLF3\0==<Z A>&777777
\P PUSH P,.BLF3-..\pNA(P)>>>>
IF]E .BLF1,<
PU]0SH P,A>>
..NA=..NA+1
..
Tp]'
.BCAL1 A
.BCAL1
| l@Nf
XLIST
l` .ORG 0
LIST
.ORG 0
LIST
=Z b0^$CALL I%INTA$CALL I%IN9
zPW_
..CSN==
zpA
..CSC==0
I
{RP B,<
IFE ..C
{0SN-..CSC,<
ST
{POPI
..CAS1 (
{pB)>
..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 M\s
..PST==M0C-FWMASK
.IF0 MP..PST,<
SOS BMp>,<
$CALL .SONS
LSTOF.
JN0UMP [POINTR(B,C)]
LSTON.>C}
S8g1
.OPCD==
v.OPCD+1
WO.A==.OPCD
G),<
| mhNv
XLIST
n .....X=.
.ORG
.ORG 0
REPEAT nH .....X,<EXP 0>
nh PURGE .....X
.ORG
LIST
.v=H $0Z%
IRP A,$P<
.ENSV2 (A)> .ENSV2 (A)v=I %Z)
.ENSV3 (A)
.ENSV3 v=I %PZ-
DEFINE A<....U>EFINE [Zp $^p $j6p $lWP %I7p %KqP %h6p %h:P %i:P %lzp &:p &
p &=p LrP LzP L{P L:P L+P L,}P L<RP
L<\P L=P LHqP LMP LMP L^P LiQP Ll}P M
}PlMP MH2P MX<P MX|P M[rP M]P
NpP N
WPJN)VP\N)WP N+9P N,}P N<P N=P
Ni9P
P `P &2
y0WQ
..IFT==
yPA
IFE ..IFT,
yp<
B
..IFT==0
z>
IFN ..IFT,<
C>N ..IFT,<&4 ]p^
IRPC A^,<
B==0
IFGE^0 "A"-"A",<IFLE "^PA"-"Z",<B=1>>
IFGE "A"-"0",<_IFLE "A"-"9",<B_0=1>>
IFE "A"-"_P%",<B=1>
IFE "_pA"-"$",<B=1>
`IFE "A"-".",<B=`01>
IFE B,<STOPI>>IFE B,<STOP&t<H J\[
..PST==J0C-FWMASK
.IF0 JP..PST,<
AOS BJp>,<
$CALL .AOKS
LSTOF.
JK0UMP [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
:PSU<A>B<^D70-POS(B)>B<^D70N
0PO
SYSPRM C
IFG .PID,<MX.PID==A>
<MX.PID=O%=H 0Z
.STKV2 (A)
.STKV2 O%=I pZ
IFB <B!>,<..STKN==..STKN!0+1>
IFNB <B>,<!P..STKN==..STKN+B!p>
..STKQ==..STK"N+1
.STKV3 (A,\..STKQ)V3 (A,O%=I "PZ
IFDEF"p A,<.IF A,SYMBO#L,<PRINTX STKVAR #0A ALREADY DEFINE#PD>>
DEFINE A<-#p^OB(P)>
$A==<Z A>>
$A==<RJP RJP RJ P RJ P RJJP RJP RJ
P RJ$HP RJ%P RJ4HP RJ4`P RJ4hP RJ5P RJ5 P RLH:P RLkQP RM4(P RMD)P RMDkP RMX6P RMX<P
RMXSP RMYP RMYP RMY6P RM\P RM\ZP RN
tP RNJ6P RNd
P RNe(P RNe)P RNeHP
S
qQ S
89P S
:P
S
:Q
: P S
: P
S
:
Q S
:Q S
:Q S
:P S
:Q
S
:Q S
:Q S
:Q S
:Q S
:Q S
:Q S
:P S
:P S
:P S
:P S
:Q
:Q S
:Q S
:Q
S
:Q S
:Q S
:Q S
:Q S
:Q S
<@P S
<rQ S
<tQ S
H<Q S
I1Q S
J9Q S
\YQ S
i@P S
j6Q S
SQ StQ
S+qQ
S:<Q S=P
S=WQ SJ6Q S\rQ Si9Q SmP Sd (0ZC
.TRV2 (A)
.TRV2 (Sd@ (pZM
.TRV3 ()A,\..NV)
IFB )0<B>,<..NV=..NV+1)P>
IFNB <B>,<..NV=..NV+B>,<..Sd` *Z[
IFDEF*0 A,<.IF A,SYMBO*PL,<PRINTX TRVAR *pA ALREADY DEFINED+>>
DEFINE A<^O+0B(.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 _%~
|xh
$CALL
}I%WTO
LSTOF.
}8
JRST g
}X
$WTRST
IF
}xNB <A>,<$WTMTY (
~<A>)>
IFNB <
~8B>,<$WTTYP (<B>)
~X>
IFNB <C>,<$
~xWTTXT (<C>)>
IFNB <D>,<$WTOBJ
8 (<D>)>
IFNB
X<E>,<$WTACK (<E
x>)>
IRP F,<
$WTBLD
g:!
LSTON. g:!
LSTON. kPP >}{woP