Trailing-Edge
-
PDP-10 Archives
-
bb-bt99l-bb
-
glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,S U@ P C4 @ Y
..NAC== @0
IRP A,<
` .ACV1 (A)>
.ACV3 (\..NAC)C'
; SZ ..AS(A,B ,ADD,SUB)(A,BC,
hQf LSH A,-^D 9 LSH A,-^DC2f}
8(cT
.EAWTO(
8HMTY,0)
.EAWTO(T
8hYP,2)
.EAWTO(TX
9T,2)
.EAWTO(OBJ
9(,0)
.EAWTO(ACK,
9H0)
.EAWTO(FLG,1
9h)
.EAWTO(NOD,0)
:
.EAWTO(JBN,0)
:(
.EAWTO(ACD,0)
:H .EAWTO(OCD,0)
.EAWTO(MFL,1)
C:'
_`U~
TXZ A, <^-<B>>TXZ A,CHuI7Q x CHvN8P 'CJ9ip CJ9jp CJ9l}p E
..NA==0 ;
IRP B,<
; .BCAL2 B>
;@PUSHJ P,A
AD ;`JSP P,-..NA
P,-..NA
E2"@ V ]6
IFE V B,<..TA==0>
V@IFN B,<EXP ..TA V`
PURGE ..T A>
PURGE ..TE@tP 'E@v yQ ~ E@v:=Q | F; z:Q @ G@
4 S"
..C X(,A,B) ..CGD
7`S>
..C X(A,A,B) ..CGDP
5`S.
..C X(E,A,B) ..CGDp
6 S2
..C X(G,A,B) ..CGDy
6`S6
..C X(GE,A,B) ..CGE@
4`S&
..C X(L,A,B) ..CGEI
5 S*
..C X(LE,A,B) ..CGE`
7 S:
(j| ..C X(N,A,B) ..CGH
(OLST
X CRE
, X GEN
X PRT
X CLS
X A
X USW
HX SPL
X SIZ
X MOD
X CH
X ACT
X CRY
X DTY
X DTO
X DCC
X BSZ
X SZ
X HSZ
.( X RFM
X RFO
X RSZ
X B
X FFB
X ACW
X RMS
X MCY
X CT
X NSB
LSTON.
G"\Y D8|9
IF1, DX<%%EDT==AEDT>
Dx
IF2, <IFN <%%EEDT-AEDT>,<
PRE8INTX ? Edit NumbeEXr Doesn't Match GExLXVER in GLXA
F A$WHO(\AEDT)> F8
A$NOTE
IFXNTERN AEDT
IFxNTERN LODLEV
;G PURGE %%EDT> ;EN D IF2
=p G(tSQ @ G(tEHQ G(tHwQ G(tI8Q p G(u
P G(v yP 8G(v<P 'G(vJ6Q x G*iVp G*kVp 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 v 6
IFNB <>v@,<
PRINTX (Frov`m GLXVER)
> ;EN D IFNB
G>hMt t`.
PRINTX u GLXVER GLXCOM Ediu t(57) by JAD on 6u@-Jan-87
PRINTX u` GLXCOM Actua l Edit(A)
G>lYP G>vC@ \@Ml LALL
PAGE \`; (A Continued o ] n next page)
SAL ] L; (A Continued ]@from previous pag e) previous pagG? T TM! ASCIZ \
C OPYRIGHT Z \
CGHt;rP GHtkP GHv P GHv)9P GHv:=P I!k7P I!k<P I m P I$P ` Qt *IIY{P ` Qv *|I 3 [
IFNB < 3@B>,<..STR0 (.DECR 3`0,,<B>,A)>
IF 4 B <B>,<SOS A> <B>,<SOS A>I6=
i`Vb
A==<-1
j B<C>+1B<C-D>>
j
IF1,<IFDEF %A
j@,<PRINTX ?A ALRE
j`ADY DEFINED>>
D
k EFINE %A (OP,AC,
k Y,MSK)<
IFDIF
k@<Y><>,<
OP (<AC
k`>,B+'Y,MSK)>
I
l FIDN <Y><>,<
OP
l (<AC>,B'Y,MSK)> >AC>,B'Y,MSK)>I'7
=`Sn ..OP(A,B ,DIV)..OP(A,BIOH1 VHu>
IFB <DVh>,<
XWD [ASCIZ\WC\],[XWD B,A]>W(
IFNB <D>,<
WHXWD [EXP CM%FW!DWh
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
h(jJ
ERR EOF
hH,<End of file>
hhERR IFP,<Illegal
ifile position>
i(ERR FDE,<File dat
iHa error>
ERR FN
ihD,<File is not on
j disk>
ERR NSD,
j(<No such device>
jH
ERR FCF,<File c
jhheckpoint failed>
k
ERR SLE,<A sys
k(tem limit was exc
kHeeded>
ERR IFS,
kh<Illegal file spe
lcification>
ERR
l( FNF,<File not fo
lHund>
ERR PRT,<P
lhrotection violati
mon>
ERR DNA,<De
m(vice not availabl
mHe>
ERR NCE,<No
mh"current" entry i
nn list>
ERR NMA
n(,<No IPCF message
nH is available>
nhERR FDS,<Files ar
oe on different st
o(ructures>
ERR F
oHAE,<File already
ohexists>
ERR USE
p,<Unexpected syst
p(em error>
ERR N
pHSP,<No such pid>
ph
ERR BOL,<Beginn
qing of list reach
q(ed>
ERR EOL,<En
qHd of list reached
qh>
ERR RQF,<Rece
rivers quota full>
r(
ERR SQF,<Sende
rHrs quota full>
rhERR NRE,<No remem
sbered entry>
ER
s(R TBF,<Table is f
sHull>
ERR EIT,<T
shable entry alread
ty exists>
ERR I
t(TE,<Invalid table
tH entry>
ERR QEF
th,<Quota exceeded
uor disk full>
E
u(RR ARG,<Invalid a
uHrgument specified
uh>
ERR IFN,<Inva
vlid function spec
v(ified>
ERR IJN,
vH<Invalid job numb
vher specified>
E
wRR RAD,<Invalid r
w(adix specified>
wH ERR NUM,<Invalid
wh numeric argument
x>
ERR IDT,<Inva
x(lid date field sp
xHecified>
ERR IT
xhF,<Invalid time f
yield specified>
y( ERR DOR,<Date/ti
yHme out of range>
yh
ERR DTM,<Value
zmissing in date/t
z(ime>
ERR MDD,<M
zHissing day in dat
zhe/time>
ERR DFZ
{,<Field zero in d
{(ate/time>
ERR M
{HDS,<Mnemonic date
{h/time switch not
|implemented>
ER
|(R DFL,<Field too
|Hlarge in date/tim
|he>
ERR ILR,<Ill
}egal year format
}(in date/time>
E
}HRR NND,<Negative
}hnumber in date/ti
~me>
ERR NPF,<No
~(t known whether p
~Hast or future in
~hdate/time>
ERR
RDP,<Relative dat
(e parse required>
H
ERR NSW,<Switc
hhidoeslnot>begin
ERROM,<Unrecognize
ERR NUL,<Nuor keyw
ERR ,<Invalid guid
ERR NC,onfirmed>
( ERR ICN,<Invalid
ERR NQS,<Iotedtstr
h ERR AMB,<Ambiguo
ERR NMT,<Datch tok
ERR CMA,<Coven>
(ERR NNC,<Nodeenam
ERR INT,<Nodemterm
ERR NSN,<Unknown n
ERR IInvalidopath
hERR IUS,<Invalido
ERR DGS,<Devyrnote
ERR DNE,<Unce>
ERR DIO,<Device ca
output>
ERR BD
(F,<Invalid date/t
Hime format>
ERR
h ABS,<Fieldttooal
ERR TMTandetoollon
ffer>
ERR BDS,<
(Invalid default s
Htring>
ERR BTF,
h<Invalid table fo
ERR TME,<umust>be
h ERR TMN,<No timer
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
hERR 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>
HERR 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` kX^o
IFIDN < kxBC><>,<EXP <A> l>
IFDIF <BC>< l8>,<
IFE <A+1> lX,<<POINT 7,C>>
lx IFN <A+1>,<
m IFIDN <C><>,< m8EXP <A,B>>
mX IFDIF <C><>,<EX mxP <A,B,C>>
> >A,B,C>>
>KbN@ ` Kc Z MR IRP A,<
Z 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 t $
IFNB <>t ,<
PRINTX (Frot@m GLXVER)
> ;EN D IFNB
M&`Mt r@
PRINTX r`GLXVER GLXFIL Edis t(117) by JJF on s 17-Feb-87
PRINTs@X GLXFIL Act ual Edit(A)
M&dYP 'M2
!@R
<<<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 y L
IFNB <>y ,<
PRINTX (Froy@m GLXVER)
> ;EN D IFNB
MVpMt w@D
PRINTX w`GLXVER GLXFUN Edix t(2) by BAH on 14x -Nov-86
PRINTX x@ GLXFUN Actua l Edit(A)
MVtYP M^l uQ O2| Z`M` IRP A,<
[ IF2,<IFDEF A,<. [ IFN A,EXTERN,<IN [@TERN A>>
[`IFNDEF A,<EXTERN \ A>
Q SUPPR ESPA>>FlYSUPPRO3DYP F:O3EKrPf:O3EZ7P O3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
Sp Sv>@p SNn
= Sj ..OP(A,B ,IDIV).OP(A,BSNp @ S7-N
< Sb ..OP(A,B ,IMUL).OP(A,BS: 0 [
IFNB < 0@B>,<..STR0 (.INCR 0`0,,<B>,A)>
IF 1 B <B>,<AOS A> <B>,<AOS A>S:HKW @0
IFNB <>`,<
PRINTX (Fro m GLXVER)
> ;EN D IFNB
S:HMt (
PRINTX GLXVER GLXINI Edi@t(23) by on 27-J`un-84
PRINTX GLXINI Actual Edit(A)
S:LYP S; k
$ R <<<A>B<PO S(<B>)>>&<B>>S; KW q@
IFNB <>q`,<
PRINTX (Fror m GLXVER)
> ;EN D IFNB
S; Mt p
PRINTX p GLXVER GLXINT Edip@t(115) by LWS on p`12-Aug-87
PRINTq X GLXINT Act ual Edit(A)
S;!kP S;!k<P S;$YP &S?
_ Uz
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 l@h
IFNB <>l`,<
PRINTX (From m GLXVER)
> ;EN D IFNB
SBMt k `
PRINTX k GLXVER GLXIPC Edik@t(77) by LWS on 2k`4-Aug-87
PRINTXl 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. nXXCREF
..TEXT<A nx>
EXP 0
LSTON.
0
Uv98Q | U $@
k&
(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
KW o |
IFNB <>o ,<
PRINTX (Froo@m GLXVER)
> ;EN D IFNB
W
Mt m@t
PRINTX m`GLXVER GLXKBD Edin t(103) by LWS on n 24-Aug-87
PRINTn@X GLXKBD Act ual Edit(A)
W
$YP !WNH1 X(uJ
IFB <CXH>,<
XWD [ASCIZ\XhB\],A>
IFNB <YC>,<
XWD [EXP Y(CM%FW!C
ASCIZ \B\],A>
SCIZY"l uQ x Y&i1 {HQ^
LST {hOF. XCREF
CDO | OTSINI
CDO |(
CDO .ZP |HAGA
CDO .ZPAGN
CDO .ZCHNK
CD }O .SAVE1
CDO .S }(AVE2
CDO .SAVE3 }H
CDO .SAVE4
C }hDO .SAVET
CDO . ~SV13
CDO .SV14
CDO .SV15
CDO ~H .SV16
NT .RETT ~h
NT .RETF
CDO .RETE
CDO .AOS (
CDO .SOS
H CDO .ZERO
NT h .POPJ
CDO .S
TOP
CDO .SAVE
(8
CDO .STKST
H
CDO .TRSET
h
NT .POPJ1
C
DO .UD2SC
CDO
( .SC2UD
CDO .
HCPUTY
CDO .DI
hE
CDO
CDO
CDO
CDO C
(%RPRM
CDO C%INT
HR
CDO C%SEND
hCDO C%RECV
CDO
C%BRCV
CDO C%RE
(L
CDO C%CPID
HCDO C%KPID
CDO
hC%SPID
CDO C%MA
XP
CDO C%PIDJ
( CDO C%PIDH
CDO
H C%SIDX
CDO
C
hDO
CDO
CDO
CDO F
(%IOPN
CDO F%AOP
HN
CDO F%OOPN
hCDO F%IBYT
CDO
F%OBYT
CDO F%IB
(UF
CDO F%OBUF
H CDO F%REL
CDO
hF%DREL
CDO F%RR
EL
CDO F%REW
(CDO F%POS
CDO F
H%CHKP
CDO F%INF
hO
CDO F%FD
CD
O F%REN
CDO F%D
(EL
CDO F%FCHN
H CDO
CDO
CDO
h
CDO
CDO
CDO
CDO
CDO
CD
(O FUNCT.
C
HDO
CD
hO M%ACQP
CDO M%
RELP
CDO M%IPSN
(
CDO M%NXPG
C
HDO M%IPRC
CDO M
h%IPRM
CDO M%AQN
P
CDO M%RLNP
(CDO M%CLNC
CDO
HM%FPGS
CDO M%GM
hEM
CDO M%RMEM
CDO
CDO
CDO
(
CDO
CDO
CDO
H
CDO M%GPAG
C
hDO M%RPAG
CDO
CDO
CDO
CDO
(
CDO
CDO
CDO
H
CDO
CDO
h
CDO T%T
EXT
CDO T%TTY
( CDO
CDO
CDO
H
CDO
CDO
CDO
h
CDO
CDO
CD
O
CDO
CDO
(
CDO L%
HCLST
CDO L%DLST
h
CDO L%CENT
C
DO L%CBFR
CDO L
(%DENT
CDO L%NEX
HT
CDO L%FIRS
hCDO L%LAST
CDO
L%PREV
CDO L%PR
(EM
CDO L%CURR
H CDO L%RENT
CDO
h L%SIZE
CDO L%A
POS
CDO
CDO
( CDO
CDO
CDO
H
CDO
CDO
CDO
h
CDO
CDO
I%NOW
CDO I%EX
(IT
CDO I%ION
HCDO I%IOFF
CDO
hI%SLP
CDO I%INT
1
CDO I%INT2
(CDO I%INT3
CDO
HI%TIMR
CDO
CD
hO
CDO I%SOPR
CDO I%WTO
CDO
( CDO I%HOST
CDO
H I%JINF
CDO I%C
hJOB
CDO I%KJOB
CDO S%U2DT
(
CDO S%DT2U
CD
HO S%DATI
CDO S%
hSIXB
CDO S%CMND
CDO S%TBLK
C
(DO S%SCMP
CDO S
H%ERR
CDO S%INTR
h
CDO S%EXIT
C
DO S%TBAD
CDO S
(%TBDL
CDO S%NUM
HI
CDO K%RCO
hC
CDO K%WCOC
CDO K%SUET
C
(DO K%STYP
CDO K
H%TXTI
CDO K%SOU
hT
CDO K%BOUT
CDO K%BIN
CDO K
(%BACK
CDO K%TPO
HS
CDO K%BUFF
hCDO K%FLSH
CDO
K%OPEN
CDO K%EC
(HO
CDO
CDO
HCDO
CDO
CDO
h CDO
CDO
CDO
LSTON.
Y:W D
IFNB <> ,<
PRINTX (Fro@m GLXVER)
> ;EN D IFNB
Y:XMt @<
PRINTX `GLXVER GLXLNK Edi t(11) by AWC on 2 9-Jan-82
PRINTX@ GLXLNK Actu al Edit(A)
Y:\YP Y>
@ )`ZT
IFNB < * C>,<..STR0 (..LDB * ,A,C,B)>
IFB *@ <C>,<MOVE A, B>C>,<MOVE A,Y>%I;P YO%GP YO%yG ^ Mz
IFNDEF ^ LSTIN.,LSTIN.==0 ^@
IFE LSTIN.,<
^` IFIDN <XCREF><A _ >,<.XCREF>
_ XLIST>
LSTIN .==LSTIN.+1STINYO%{G _`N
IFG LST ` IN.,LSTIN.==LSTIN ` .-1
IFLE LSTIN `@.,<.CREF
LIST>
[KW j T
IFNB <>j ,<
PRINTX (Froj@m GLXVER)
> ;EN D IFNB
[Mt h@L
PRINTX h`GLXVER GLXMAC Edii t(514) by LWS on i 24-Aug-87
PRINTi@X GLXMAC Act ual Edit(A)
[ YP &[ 3@
#@R <<<1_<A>> -1>B<B>>_<A>>[ 8@
"@R 1B<<A>-1> -1B<B><<A>-1>[@ wOD
IFB <B w(>,<MAXSIZ==0
I wHRP A,<IFG <A-MA whXSIZ>,<MAXSIZ==A x>>>
IFNB <B>,< x(B==0
IRP A,< xHIFG <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 {@`
IFNB <>{`,<
PRINTX (Fro| m GLXVER)
> ;EN D IFNB
MVtY[hMt z X
PRINTX z GLXVER GLXMEM Ediz@t(32) by BAH on 1z`4-Nov-86
PRINTX{ GLXMEM Actu al Edit(A)
W[lYP uQ @ [th:Q [u[yQ [ukvQ [v=3P '[v|WQ [&p yOX
IFB <B y(>,<MINSIZ==377777 yH,,777777
IRP yhA,<IFG <MINSIZ-A z>,<MINSIZ==A>>>
IFNB <B>,<B== zH377777,,777777
zh IRP A,<IFG <B- {A>,<B==A>>>
A>,<B==A>>>
[>!`
# R <A-<A/B >*B><A-<A/B[?7
$@S
..MX1
$`==B
IFDEF .P
% SECT,<
.IFN .
% .MX1,ABSOLUTE,<
%@ MOVE A,[B]>
%` .IF ..MX1,ABSOL
& UTE,<
..MX2==0
&
IFE <..MX1>B5
&@3,<
..MX2==1
&`
MOVEI A,..MX
' 1>
IFE ..MX2,<
'
IFE <..MX1>B
'@17,<
..MX2==1
'`
MOVSI A,(..
( MX1)>>
IFE ..M
( X2,<
IFE <<..
(@MX1>B53-^O777777>
(`,<
..MX2==1
) HRROI A,<..MX
) 1>>>
IFE ..MX2
)@,<
IFE <<..MX
)`1>B17-^O777777B17
* >,<
..MX2==1
*
HRLOI A,(..M
*@X1-^O777777)>>
*` IFE ..MX2,<
+ MOVE A,[..MX1]
+ >
>>
IFNDEF
+@ .PSECT,<
..MX2
+`==0
IFE <..MX
, 1>B53,<
..MX2
, ==1
MOVEI A,
,@..MX1>
IFE ..M
,`X2,<
IFE <..M
- X1>B17,<
..MX
- 2==1
MOVSI A
-@,(..MX1)>>
IFE
-` ..MX2,<
IFE
. <<..MX1>B53-^O777
. 777>,<
..MX2=
.@=1
HRROI A,<
.`..MX1>>>
IFE .
/ .MX2,<
IFE <<
/ ..MX1>B17-^O77777
/@7B17>,<
..MX2
/`==1
HRLOI A,
0 (..MX1-^O777777)>
0 >
IFE ..MX2,<
0@
MOVE A,[..
0`MX1]>
>
PURGE ..MX1,..MX2RGE[Lt;ZQ x [LvN8P '[NF:=p [N^=
l`Vx
A==C
m
IF1,<IFDEF %
m A,<PRINTX ?A ALR
m@EADY DEFINED>>
m`DEFINE %A (OP,AC
n ,Y,MSK)<
IFDIF
n <Y><>,<
OP (<A
n@C>,B+'Y,MSK)>
n`IFIDN <Y><>,<
O
o P (<AC>,B'Y,MSK) >>AC>,B'Y,MSK)[PuySP ' [PvNP ' [Vg
<`Sf ..OP(A,B ,MUL)..OP(A,B[`v
2P ] X@MF IF2,<IFDEF X` A,<A==A>> IFN DEF A,<A==B>]F@ o^ TEMFDB##_
QkRp _
Ql}p _
Qm p _
Qm7p _
T=
X .OTReader
X .OU,Network-Cont
X .OTLPT
H,Printer
X .OTBtch-Stream
JP 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
R X .OTDBM,<DBMS S
X .OTFALtream>
X .OTEVT,<Event>
S X .OTFCH,<Microf
X .OTXER,
X .OTNQ-Stream>
,<NQC-Stream>
_SKW ~ t
IFNB <>~ ,<
PRINTX (Fro~@m GLXVER)
> ;EN D IFNB
[ Y_SMt |@l
PRINTX |`GLXVER GLXOTS Edi} t(12) by BAH on 1} 4-Nov-86
PRINTX}@ GLXOTS Actu al Edit(A)
t_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)>
`X.IFNBC<D>,<..XX=
a8.IFNBC<E>,<..XX=
b0 EXP ..XX
bPCIFNB <C>,<EXP
cEIFB0<C>,<
c0SIFNB,<POINT 7,[A
cpFI <D>,<0>
d IFNBS<E>,<POINT
dp IFB <E>,<0>
e>IFB><I
e0IIFNBX<I>
eP IFB <J>,<0>
epJIFNB <J>,<EXP
f0,IFB <H>
fP>IFNBP<H>
fpIFB <G>,<0>
gIFNB <G>,<EXP G >
G>,<EXP Ga@KW
@X
IFNB <>
`,<
PRINTX (Fro m GLXVER)
> ;EN D IFNB
a@Mt P
PRINTX GLXVER GLXPFH Edi @t(16) by TARL on `17-Apr-81
PRINT
X GLXPFH Act ual Edit(A)
aDYP a
(Qb LSH A,^D9 LSH A,^D9a+= 5 a;&
(a
IFB <
HB>,<..STR0(..PNT
h,,<FWMASK>,A)>
IFNB <B>,<..ST
(R0(..PNT,,<B>,A )>.PNT,,<B>,Aa>Mm
`R <POINT WID
! (B),A,POS(B)> B),A,POS(B)>a?H6 + a?
Qr <^L<<A>&< -<A>>>><<A>&<aJ}Ks SO*
SALL a(
LSTOF. XCRE aHF
%%.GLX== ah%%.GLX
GLXVR bS==GLXVRS
b(IFNB <A>,<%%.MOD bH==SIXBIT/A/>
bhIFNB <B>,<%%.OTS c==SIXBIT/B/>
c(
GLOB I%INIT
TOPS10 <
ch SEARCH UUOSYM d
%%UUOS==%%UUO d(S
>
T dHOPS20 <
SEA dhRCH MONSYM
; e%%MONS==%%MONS
>
IFB < eHB>,<
IFN G ehLXPUR,<
.TEXT f |,REL:GLXLIB/SEA f(RCH/REQUIRE:I%INI fHT/SEGMENT:LOW|
fh >
DEFINE $ gDATA (NAM,SIZ<1>) g(,<
NAM: BLOC gHK SIZ
>
ghDEFINE CDO (X),<G hLOB X>
DEFINE h( NT(X),<CDO X>
hH LIBVEC
> hh
IFNB <B>, i<
IFDEF .MC i(RV.,<.VERSION <GL iHXVRS>>
CHKEDT ih(B)
IFDIF j<B><INI>,<
j(IFN GLXPURE,<.PSE jHCT .HIGH.>
IF jhE GLXPURE,<
k TWOSEG 400000
k( RELOC 0
R kHELOC 400000
> kh
DEFINE $ lDATA(NAM,SIZ<1>), l(<
IFN GLXPUR lHE,<.PSECT DATA>
IFE GLXPURE,< mRELOC>
IFNDE m(F B%D,<B%D::! mHB%DL==:0>
NAM mh: BLOCK SIZ
nB%DL==:B%DL+SIZ n(
IFN GLXPURE, nH<.ENDPS DATA>
nh IFE GLXPURE,<RE oLOC>
>
o( IFDIF <B><OTS>, oH<
DEFINE CDO oh (X),<GLOB X>
p DEFINE NT(X),<CD p(O X>
LIBVEC pH
>
>
IFIDN <B> q<INI>,<
DEFIN q(E $DATA (NAM,SIZ< qH1>),<
NAM: B qhLOCK SIZ
>
>
>
L r(STON.
GLO rHB <.POPJ, .RETT, rh.RETF>
OPDEF $ sRET [POPJ P,]
s(OPDEF $RETT [PJRS sHT .RETT]
OPDEF sh $RETF [PJRST .RE tTF]
OPDEF $RET t(IT [JUMPT .POPJ] tH
OPDEF $RETIF [ thJUMPF .POPJ]
. uNODDT $RET,$RETT, u($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 g >
IFNB <>g@,<
PRINTX (Frog`m GLXVER)
> ;EN D IFNB
gpMt e`6
PRINTX f GLXVER GLXSCN Edif t(134) by DPM on f@4-Sep-87
PRINTXf` GLXSCN Actu al Edit(A)
gtYP .g"@ W ]J
IFN <<. [email protected]A>&B>,<PRINTX W` ?Initial field n X ot zero in $SET>
[email protected]==<C>
X`..TMSK==<B>
..TA==..TA! Y <FLD(..TVAL,..TMS Y K)>
PURGE ..T VAL,..TMSK
.TgtXrP gv
[P v g#=z I PDB CPY##C.SWIT+PDBg$tkQ P @ g$u P 'g$uh6Q g g.N @ P 6@ g.N g@uYP g@uhxP 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 X:
..STKR= =10
RADIX 8
@ ..STKN==0
IRP `A,<
.STKV1 ( A)>
$CALL .STK ST
..STKN,,..S @TKN
RADIX ..STK `R
DEFINE ENDSV. <.ENSV1 <A>>
P URGE ..STKN,..STK R,..STKQ
TKgR~r `^9
.TYPE= `8=-1
IFIDN < `XB><HALT>,<.TYPE== `x0>
IFIDN <B>< aCONT>,<.TYPE==1> a8
IFIDN <B><DEB aXUG>,<.TYPE==2>
IFL .TYPE,< b
IF2,<PRINTX ? b8Stopcode A is in bX error; see S..A bx in CREF>
S..A: c:JRST 4,.
> c8
IFB <A>,< cX
IF2,<PRINTX cx ? Stopcode with dout a A; see S.. d8 in CREF>
S..:: dXJRST 4,.
> dx
IFGE .TYPE, e<
S..A::PUS e8HJ P,.DIE
CA eXI .TYPE,[
<S exIXBIT /A/>&77777 f7000000
EXP %% f8.MOD
EXP C fX
EXP [ASCIZ | fxD|]
]
> g
PURGE . TYPE
URGE .gR~) - Zn
IFNB < - C>,<..STR0 (..DPB -@,A,C,B)>
IFB -` <C>,<MOVEM A, B>>,<MOVEM A,gV
;`S^ ..AS(A,B ,SUB,ADD)(A,Bgg
V uhO4
IFNB < vB>,<TOPS10<A==B v(>>
IFNB <C>,<T vHOPS20<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( >0{s IFN FTUUOS ,B ;DEFINE UNi?4H >p{w IFN FTJSYS , INTERN AEDT iD y8_W
IFNB yX <A>,<.TQCHA==^ yxD<B>B17+ZZ>
I zFNB <D>,<DEFINE z8 ..TQMA<D>>
zXIFNB <C>,<.TQC= zx=^D<B>B17+ZZ>
ZZ==ZZ+1ZZ>
iG, o8_G
LSTOF.
TQ(T,2,ASCIZ) ox
TQ(O,2,OCTAL) p
TQ(D,2,DECI p8MAL)
TQ(F,2, pXFILE)
TQ(7,2 px,CSEVEN)
TQ( q6,2,CSIXBIT)
q8 TQ(W,2,SIXBIT) qX
TQ(5,2,SVNBIT qx)
TQ(P,2,USE rR)
TQ(U,2,DI r8RECTORY)
TQ( rXH,2,DAYTIME)
rx TQ(C,2,TIME)
TQ(E,2,ERROR) s8
TQ(I,1,INDIRE sXCT)
TQ(M,0,CR sx,..TXC0(\".CHCRT) t)
TQ(J,0,LF,.. t8TXC0(\".CHLFD))
TQ(L,0,FF,..TXC tx0(\".CHFFD))
T uQ(K,0,VT,..TXC0(\ u8".CHVTB))
TQ(A uX,0,NOCRLF,..TXA(. uxTQCHA))
TQ(0,0 v,NULL,..TXA(.TQCH v80))
TQ(3,0,STR vXING,..TXER(IQU)) vx
TQ(V,2,VERSION w)
TQ(2,0,CAR w8ET,..TXER(IQU))
TQ(Q,2,POINTER) wx
TQ(B,2,ROB) x
TQ(1,2,OBJE x8CT)
TQ(N,2,N xXODE)
TQ(R,2, xxJIB)
LSTON.
)
LSTON.
hl?
LSTOF.
5X(33,TTY33,33,.
6X(3TTY35,35,.RETT,
TOPS20<
6PEX(37,TTY37,37,.R
7X(EXPORT,EXEC,EXE,
>
7PTOPS10<
7X(LA120,L12,.RETT,
>
8X(LA336,L36,.RETT,
8X(VK100,10,SETTLC,
9X(T05,VT05,V05,.RE
:X(VT100,00,SETTLC,
;PTOPS10< X(VT101,V
<X(VT102,VT102,102,
TOPS10< X(VT103,SET
?X(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10< XVT185,185,
BX(VT220,VTETTLC,<.
CX(V40,VT240,240,SE
EX(VT50,VT50,VCHESC
FX(VT52,VT52,<.CHES
TOPS10< X(VT1,SETTL
LS TON.
>
LSiK,P A iK4 @
..TRR==
RADIX 8
..NV==1
IRP A,<
.TRV1 ( @A)>
$CALL .TR `SET
..NV-1,, ..NV-1
RADIX .. TRR
PURGE ..T RR,..NVURGE ..Tib
T`U&
..TX(C ,A,<B>)..TX(Cib
V U2
..TX(C A,A,<B>).TX(Cib P
U U*
..TX(C E,A,<B>).TX(Cib `
U`U.
..TX(C N,A,<B>).TX(Cibp
N`Tv
..TX(N ,A,<B>)..TX(Nibt
P U
..TX(N A,A,<B>).TX(NibtP
O Tz
..TX(N E,A,<B>).TX(Nibu`
O`T~
..TX(N N,A,<B>).TX(Nibx
P`U
..TX(O ,A,<B>)..TX(Oib|
R U
..TX(O A,A,<B>).TX(Oib|P
Q U
..TX(O E,A,<B>).TX(Oib}`
Q`U
..TX(O N,A,<B>).TX(Oic KW @
IFNB <> `,<
PRINTX (Fro m GLXVER)
> ;EN D IFNB
ic Mt
PRINTX GLXVER GLXTXT Edi@t(55) by BAH on 1`4-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
R`U
..TX(Z ,A,<B>)..TX(ZicT
T U"
..TX(Z A,A,<B>).TX(ZicTP
S U
..TX(Z E,A,<B>).TX(ZicU`
S`U
..TX(Z N,A,<B>).TX(ZkR`KW `
IFNB <> ,<
PRINTX (Fro m GLXVER)
> ;EN D IFNB
kR`Mt
PRINTX @GLXVER GLXUTL Edi`t(2) by DPM on 4- Dec-85
PRINTX GLXUTL Actual Edit(A)
kRdYP mK c@ ?N BYTE (3)A a WHO (9)AVER (6) AMIN (18)AEDTo&
`Qn <^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 ?P{} A==<ZZ==Z Z+1>
.TTC==.q"eJ P q*-` +
q+= +
q6~i4 C q?
` V
TXC A, <B>
TXC A,q@ Y ML IFB <C>,< Y@A==:B> IFNB <C >,<A=:B>B <CqB p + qN5P + up 6 [8
IFNB < 6@B>,<..STR1 (..TQZ 6`,,<B>,A,..STR4) 7 >
IFB <B>,<SE TZM A><B>,<SEuh P ;z Qhu
.XCREF R.$RESET, .$BUILD
.$RESET
$TYPERH (.CMACT)
$HELPRh (<>)
$NEXT (AS)
IFIDN <B> <>,S(< IRP C,<C>
SH .$BUILD>
IFDIF Sh<B> <>,<
$HELPT (B)
IRP C,< C>
.$BUILD>< 0
`hf
.WTOX.(.OM
aACK,<A>,<B>,<C
a(>,<D>,<$WTFLG(WT .SJI),E>)LG(WT J7
DEF.$RTN <A>
.%RTN==1A>
D[
IFDIF<<,<.XCREF .%
DEFNE[.$HLPM<POINT
.%HLPM==-1>
fI9 XCREF .%L
DEF.$LST <A+1>
.%LST==11>
=Z H \J
IFG [email protected],<PRINTX H`?Level A interru I pts not supported I >
o.BGINT.(\A )B .BGINT.(\A X5
DINE .$BREA <A>
.%BREA==1> - K \h
IFDEF K ..BSIZ,<PRINTX ? K@Missing $EOB afte K`r a $BUILD>
. L .BSIZ==0
. L .BLOC==.
R L@EPEAT A,<
L`BLD0.(\..BSIZ,0) M
..BSIZ==..BSI Z+1>
==..BSI }[0 5hs6
.XCREF 6.$RESET, .$BUILD
.$RESET
$TYPE6H (.CMCMA)
$NEXT6h (A)
IRP B,< B>
.$BUILD,< I@ 1(s
.XCREF 1H.$RESET, .$BUILD
.$RESET
$TYPE2 (.CMCFM)
IRP 2(A,<A>
.$BUILD ,<A>
.$BUILD $^ >ht
.XCREF ?.$RESET, .$BUILD
.$RESET
$TYPE?H (.CMTXT)
$HELP?h (<>)
$NEXT (A@)
IFIDN <B> <>,@(< IRP C,<C>
@H .$BUILD>
IFDIF @h<B> <>,<
$HELPA (B)
IRP C,< C>
.$BUILD>< I AHt
.XCREF Ah.$RESET, .$BUILD
.$RESET
$TYPEB( (.CMTAD)
$PDATBHA (CM%IDA)
$NEXBhT (A)
IRP B,< B>
.$BUILD,< ,,U J \T
$RET J@ ;WILL INVOKE R IGHT ROUTINE
,h:
IFDIF<<,<.XCREF .%
DEFNE[.$DEFM<POINT
p@ .%DEFM==1>
IFIDN <A> <>,<
I F1 <
PRINTXg%Nult in $DE FAULT macro>>DE .` =(sr
.XCREF =H.$RESET, .$BUILD
.$RESET
$TYPE> (.CMDEV)
$NEXT>( (A)
IRP B,< B>
.$BUILD,< Lz: hr
.XCREF .$RESET, .$BUILD
.$RESET
$TYPE H (.CMNUX)
$PDAT hA (B)
$HELP (< >)
$NEXT (A)
(IFIDN <C> <>,< I HRP D,<D>
.$ hBUILD>
IFDIF <C > <>,<
$HELP ( (C)
IRP D,<D>
.$BUILD><D>
.XCREF 3.$RESET, .$BUILD
.$RESET
$TYPE3H (.CMDIR)
$NEXT3h (A)
IRP B,< B>
.$BUILD,< | R ],
IFNDE R F ..BSIZ,<PRINTX R@?$EOB without pre R`vious $BUILD>
S IFN <.-..BLOC>,< S PRINTX ?Address c S@hange between $BU S`ILD and $EOB>
T LSTOF.
.. T T==0
REPEAT . [email protected],<
BLD T`0.(\..T,1)
U ..T==..T+1 >
U PURGE ..BSIZ,.. U@T,..BLOC
LST ON.
oLST +y E .%E
DINE .$ERTN <A>
.%ERTN==1> ,
DINE>.$ERTN <1B0
.%ERTN ==1>
.%ERTN - .
DINE2.$ERTNZ<[MO
> $RET
.%ERTN==1 >
.%ERTN==1 IF2,<IFN < W(A>-.,<PRINTX ? I WHLLEGAL $FALL A>> EGAL $FALL A>> H6 [x]g
$CALL . \STOP
LSTOF.
J \8UMP [XWD 0,[ITEXT \X (<A>)]
EXP \x%%.MOD]
LSTON. .MOD]
LSTON. L[ .Hs
.XCREF .h.$RESET, .$BUILD
.$RESET
$TYPE/( (.CMFLD)
$NEXT/H (A)
$HELP (<>/h)
IFIDN <B> <>,0< IRP C,<C>
0( .$BUILD>
IFDIF 0H<B> <>,<
$HELP0h (B)
IRP C,< C>
.$BUILD>< MI +hrp
.XCREF ,.$RESET, .$BUILD
.$RESET
$TYPE,H (.CMFIL)
$HELP,h (<>)
$NEXT (A-)
IFIDN <B> <>,-(< IRP C,<C>
-H .$BUILD>
IFDIF -h<B> <>,<
$HELP. (B)
IRP C,< C>
.$BUILD>< dy
DINE .$FLGS <A>
.%FLGS==1> ex: :Hsf
.XCREF :h.$RESET, .$BUILD
.$RESET
$TYPE;( (.CMFLT)
$HELP;H (<>)
$NEXT (A;h)
IFIDN <B> <>,<< IRP C,<C>
<( .$BUILD>
IFDIF <H<B> <>,<
$HELP<h (B)
IRP C,< C>
.$BUILD>< $ GtD
.XCREF G(.$RESET, .$BUILD
.$RESET
$TYPEGh (.CMTAD)
$PDATHA (<CM%IDA!CM%ITMH(!CM%FUT>)
$NEXTHH (A)
IRP B,< B>
.$BUILD,< $ [][I`
INTER [8N A
$DATA(A ,<B>)
ATA(A |N ]T 1 * "
IFDIF<<,<.XCREF .%
DEFNE[.$HLPM<POINT
.%HLPM==1>
&5 &(rD
.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 9sP
.XCREF 9(.$RESET, .$BUILD
.$RESET
$NEXT9h (A)
$TYPE (.C:MINI)
IRP B,< B>
.$BUILD,< ./ qR
.XCREF (.$RESET, .$BUILD
.$RESET
$TYPEh (.CMKEY)
$PDATA (B)
$NEXT ((A)
IRP C,<C>
.$BUILD,<C>
.XCREF H.$RESET, .$BUILD
.$RESET
$TYPE (.CMKEY)
$PDAT(A (A)
$NEXT (0H)
IRP B,<B>
.$BUILD,<B>
/>Ky
cHf .WTOX.(.OM
chWTR,,,,<A>,<$WTF LG(WT.KIL),B>) 2|p
bhf .WTOX.(.OM
cLOG,<A>,<B>,<C >,,<D>)B>,<C :/
DEF.$NXT <A>
.%NXT==1A>
:|KV Nhu
.XCREF O.$RESET, .$BUILD
.$RESET
$TYPEOH (.CMNOD)
$HELPOh (<>)
$NEXT (AP)
IFIDN <B> <>,P(< IRP C,<C>
PH .$BUILD>
IFDIF Ph<B> <>,<
$HELPQ (B)
; $FLAGS (Q(CM%PO)
IRP C,< C>
.$BUILD>< :} r hr
.XCREF !.$RESET, .$BUILD
.$RESET
$TYPE!H (.CMNOI)
$PDAT!hA (<POINT 7,[ASCI"Z\B\]>)
$NEXT "((A)
IRP C,<C >
.$BUILD,<C ;-XR hqj
.XCREF .$RESET, .$BUILD
.$RESET
$TYPEH (.CMNUM)
$PDAThA (B)
$HELP (< >)
$NEXT (A)
(IFIDN <C> <>,< I HRP D,<D>
.$ hBUILD>
IFDIF <C > <>,<
$HELP ( (C)
IRP D,<D>
.$BUILD><D>
.XCREF )(.$RESET, .$BUILD
.$RESET
$TYPE)h (.CMOFI)
$NEXT* (A)
$HELP (<>*()
IFIDN <B> <>,*H< IRP C,<C>
*h .$BUILD>
IFDIF +<B> <>,<
$HELP+( (B)
IRP C,< C>
.$BUILD>< B$
DINE .$DATA <A>
.%DATA==1> B$YP
DINE<.$DEFM <POI
.% DEFM==1>
.% CYT R .%D
DINE .$DEFR <A>
.%DEFR==1> G-} ItZ
.XCREF I(.$RESET, .$BUILD
.$RESET
$TYPEIh (.CMQST)
$HELPJ (<>)
$NEXT (AJ()
IFIDN <B> <>,JH< IRP C,<C>
Jh .$BUILD>
IFDIF K<B> <>,<
$HELPK( (B)
IRP C,< C>
.$BUILD>< J.I Yh]R
$CALL Z .RETE
LSTO Z(F.
JUMP ERA$
LSTON.ERA$ Ni `Z:
.NVR==0
.ACM==0
IRP A,<
@ ..TSAC(.ACB,A) `
IFN .ACB,<.A CM==.ACM!1B<A>>
IFE .ACB,< @
IFE .NVR,< `
PUSHJ P,[
>
.. PUSH(A,\<.NVR+1> @)>>
IFE . `NVR,<
IFN .ACM ,<
IFE <.A CM-17B<T4>>,<.ACM @==0
$CALL .S `AVET>
IFE < .ACM-377B<.A16>>, <.ACM==0
$CA @LL .SAVE8>
`IFE <.ACM-17B<P4> >,<.ACM==0
$ CALL .SAVE4>
@ IFE <.ACM-7B<P3 `>>,<.ACM==0
$CALL .SAVE3>
IFE <.ACM-3B<P @2>>,<.ACM==0
` $CALL .SAVE2>
IFE <.ACM-1B< P1>>,<.ACM==0
@ $CALL .SAVE1>
` IFE <.ACM-1B <.A13>>,<.ACM==0
$CALL .SV13> @
IFE <.ACM- `1B<.A14>>,<.ACM== ! 0
$CALL .SV1 ! 4>
IFE <.AC !@M-1B<.A15>>,<.ACM !`==0
$CALL .S " V15>
IFE <. " ACM-1B<.A16>>,<.A "@CM==0
$CALL "`.SV16>
>>
#
IFN .ACM,<
# IFE .NVR,< #@
PUSHJ P,[
#` >
.ACB= $ =0
REPEAT ^D $ 16,<
IFN $@ <.ACM&1B<.ACB>>, $`<
..PUSH(\.AC % B,\<.NVR+1>)>
% .ACB==.ACB+1>>
IFN .NVR,<
%` PUSHJ P,@-.NVR( & P)
TRNA
& AOS -1-.NVR(P) &@
REPEAT .NV &`R,<..POP(\.NVR)> '
ADJSP P,-1
POPJ P,]>
POPJ P,]>
N; CREF .%S
IFD <A><>,<DEFINE
.%SBCM==1
>
.%SBCM==1
N.@ M@\|
IFNDE M`F ..BSIZ,<PRINTX N ?$SET without pre N vious $BUILD>
N@ IFNB <B>,<..STR N`0 (..SET,<C>,B, O A)>
IFB <B O >,<..STR0 (..SET, O@<C>,FWMASK,A)>
,FWMASK,A)>
.XCREF Za, b
a==.
Z(XWD b-1,b-1
DZHEFINE $ETAB <.XCRZhEF a, b
b== .-a>b
b== O%| gX^M
IF1,<PRI gxNTX % Use STOPCD hmacro for stopcod h8e A instead of $ hXSTOP>
S..A::! $ hxCALL .STOP
LST iOF.
JUMP [XWD i8'A',[ITEXT (<B> iX)]
EXP %%.MOD ]
LSTON. MOD O,(v 7(sD
.XCREF 7H.$RESET, .$BUILD
.$RESET
$NEXT8 (A)
$TYPE (.C8(MINI)
$SBCM (B8H)
IRP C,<C>
.$BUILD,<C>
O= $Hr.
.XCREF $h.$RESET, .$BUILD
.$RESET
$TYPE%( (.CMSWI)
$PDAT%HA (A)
$NEXT (0%h)
IRP B,<B>
.$BUILD,<B>
O= "hr
.XCREF #.$RESET, .$BUILD
.$RESET
$TYPE#H (.CMSWI)
$PDAT#hA (B)
$NEXT ($A)
IRP C,<C>
.$BUILD,<C>
@ Et4
.XCREF E(.$RESET, .$BUILD
.$RESET
$TYPEEh (.CMTAD)
$PDATFA (<CM%IDA!CM%ITMF(>)
$NEXT (A)
FH IRP B,<B>
.$ BUILD,<B>
.$ R/ j^Y
$CALL T j8%TEXT
LSTOF. XC jXREF
JUMP [XWD 2 jx,0
EVL (A)
k ITEXT(<B>)]
LSTON.B>)]
.XCREF CH.$RESET, .$BUILD
.$RESET
$TYPED (.CMTAD)
$PDATD(A (CM%ITM)
$NEXDHT (A)
IRP B,< B>
.$BUILD,< R}97 THu0
.XCREF Th.$RESET, .$BUILD
.$RESET
$TYPEU( (.CMTOK)
$PDATUHA (<POINT 7,[ASCIUhZ\B\]>)
$NEXT V(A)
IRP C,<C >
.$BUILD,<C S ~_]
..TX }(A(.TQA,C,D,E, {8B)
IFN . {x.TXEF,<
..TE {XRR<$TQ(A,B,C, D,E)>>
C, S@I9
aH
LSTOF.
(
X(UQU,Unknown q
Hualifier)
X(IQU
h,Invalid qualifie
r)
X(IJA,Invali
(d justification a
Hrgument)
X(IWA,
hInvalid width arg
ument)
X(PEA,Pr
(emature end of ar
Hgument)
X(JNA,J
hustification is n
ot allowed)
X(A
(NA,Arguments are
Hnot allowed)
X(
hADS,Address must
be specified)
L STON.
ied)
L SN . REF .%T
DEE .$TYP <A>
.%TYPE==1>
W= Khtr
.XCREF L.$RESET, .$BUILD
.$RESET
$TYPELH (.CMUQS)
$HELPLh (<>)
$NEXT (AM)
$PDATA (B)
M(IFIDN <C> <>,< IMHRP D,<D>
.$MhBUILD>
IFDIF <CN> <>,<
$HELP (N(C)
IRP D,<D>
.$BUILD><D>
.XCREF 4H.$RESET, .$BUILD
.$RESET
$TYPE5 (.CMUSR)
$NEXT5( (A)
IRP B,< B>
.$BUILD,< ^+@ ]8]}
IFE %%.O ]XTS,<DEFINE $WARN ]x(MSG) <
$TEXT ^(T%TTY,<% ^W6/[%% ^8.MOD]/ MSG>)>>
I ^XFN %%.OTS,<DEFINE ^x $WARN (MSG) <
_ $TEXT (T%TTY,<% _8^W6/IIB+IB.PRG/ ^ _XW/[%%.MOD]/ MSG>) >>
$WARN <A> _$r
The8
IFB <
UA>,<.WFACD==0
U( IFN <0-2>,<.$WAC
UHD==0>>
IFNB <
UhA>,<.WFACD==-1
V IFN <0-2>,<.$WA
V(CD==.$WACD!<A>>
VH
IFE <0-2>,<DE
VhFINE .$WACD,<<WO.
WACD>B8+[ITEXT (< A>)]>>
>
< _$u
Ihd`
IFB <
JA>,<.WFACK==0
J( IFN <0-2>,<.$WAC
JHK==0>>
IFNB <
JhA>,<.WFACK==-1
K IFN <0-2>,<.$WA
K(CK==.$WACK!<A>>
KH
IFE <0-2>,<DE
KhFINE .$WACK,<<WO.
LACK>B8+[ITEXT (< A>)]>>
>
< _$+
;Hev
IFE <.W
;hFMTY>,<PRINTX ?No
< message type in
<($WTBLD>
DEFINE .
<HEAWTO(SUFFIX,ARGC
<hOD),<
IFN .WF'SU
=FFIX',<
IFE <AR
=(GCOD-0>,<<WO.'SUF
=HFIX'>B8+ .$W'SUFF
=hIX'>
IFE <ARGCO
>D-1>,<<WO.'SUFFIX
]h'>B8+ [EXP .$W'SU
^FFIX']>
IFE <AR
^(GCOD-2>,<.$W'SUFF
^HIX'>
>
>
ALLW
^hTO
EXP 0
EXP 0 _$k
LHdv
IFB <
LhA>,<.WFFLG==0
M IFN <1-2>,<.$WFL
M(G==0>>
IFNB <
MHA>,<.WFFLG==-1
Mh IFN <1-2>,<.$WF
NLG==.$WFLG!<A>>
N(
IFE <1-2>,<DE
NHFINE .$WFLG,<<WO.
NhFLG>B8+[ITEXT (< A>)]>>
>
< _%(W
Re"
IFB <
R(A>,<.WFJBN==0
RH IFN <0-2>,<.$WJB
RhN==0>>
IFNB <
SA>,<.WFJBN==-1
S( IFN <0-2>,<.$WJ
SHBN==.$WJBN!<A>>
Sh
IFE <0-2>,<DE
TFINE .$WJBN,<<WO.
T(JBN>B8+[ITEXT (< A>)]>>
>
< _%YV
Z(ed
IFB <
ZHA>,<.WFMFL==0
Zh IFN <1-2>,<.$WMF
[L==0>>
IFNB <
[(A>,<.WFMFL==-1
[H IFN <1-2>,<.$WM
[hFL==.$WMFL!<A>>
\
IFE <1-2>,<DE
\(FINE .$WMFL,<<WO.
\HMFL>B8+[ITEXT (< A>)]>>
>
< _%]
>hd
IFB <
?A>,<.WFMTY==0
?( IFN <0-2>,<.$WMT
?HY==0>>
IFNB <
?hA>,<.WFMTY==-1
@ IFN <0-2>,<.$WM
@(TY==.$WMTY!<A>>
@H
IFE <0-2>,<DE
@hFINE .$WMTY,<<WO.
AMTY>B8+[ITEXT (< A>)]>>
>
< _%kr
O(e
IFB <
OHA>,<.WFNOD==0
Oh IFN <0-2>,<.$WNO
PD==0>>
IFNB <
P(A>,<.WFNOD==-1
PH IFN <0-2>,<.$WN
PhOD==.$WNOD!<A>>
Q
IFE <0-2>,<DE
Q(FINE .$WNOD,<<WO.
QHNOD>B8+[ITEXT (< A>)]>>
>
< _%p
_(e| .WTOX.(.OM
_HWTO,<A>,<B>,<C >,,<D>)B>,<C _%xU
GdJ
IFB <
G(A>,<.WFOBJ==0
GH IFN <0-2>,<.$WOB
GhJ==0>>
IFNB <
HA>,<.WFOBJ==-1
H( IFN <0-2>,<.$WO
HHBJ==.$WOBJ!<A>>
Hh
IFE <0-2>,<DE
IFINE .$WOBJ,<<WO.
I(OBJ>B8+[ITEXT (< A>)]>>
>
< _%xr
WHeN
IFB <
WhA>,<.WFOCD==0
X IFN <0-2>,<.$WOC
X(D==0>>
IFNB <
XHA>,<.WFOCD==-1
Xh IFN <0-2>,<.$WO
YCD==.$WOCD!<A>>
Y(
IFE <0-2>,<DE
YHFINE .$WOCD,<<WO.
YhOCD>B8+[ITEXT (< A>)]>>
>
< _%z@
ahf .WTOX.(.OM
bWTO,<A>,<B>,<C
b(>,,<$WTFLG(WT.JOB ),D>)LG(WT.JOB _%|@
`f
.WTOX.(.OM
`(WTR,<A>,<B>,<C >,<D>,<E>)<C _&,z
>Heh
DEFINE
>(.EAWTO(SUFFIX),<$
]WT'SUFFIX' <>>
ALLWTO
_&N
D(d4
IFB <
DHA>,<.WFTXT==0
Dh IFN <2-2>,<.$WTX
ET==0>>
IFNB <
E(A>,<.WFTXT==-1
EH IFN <2-2>,<.$WT
EhXT==.$WTXT!<A>>
F
IFE <2-2>,<DE
F(FINE .$WTXT,<<WO.
FHTXT>B8+[ITEXT (< A>)]>>
>
< _&N8
AHd
IFB <
AhA>,<.WFTYP==0
B IFN <2-2>,<.$WTY
B(P==0>>
IFNB <
BHA>,<.WFTYP==-1
Bh IFN <2-2>,<.$WT
CYP==.$WTYP!<A>>
C(
IFE <2-2>,<DE
CHFINE .$WTYP,<<WO.
ChTYP>B8+[ITEXT (< A>)]>>
>
<
t{ P
u[rQ ]>t2
u}P
,M P & .
P .J P .b P / P B&@P cG P )0 on 0 :KJ
,b Z6 Hq6
.XhCREF a, b, c, d
.XCREF .%T(YPE, .%FLGS, .%DAHTA, .%HLPM, .%DEFhM, .%LST
.XCREF .$TYP, .$FLGS, .($DATA, .$HLPM, .$HDEFM, .$LST
.hXCREF .%BREA, .%NXT, .%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
EXP d
EXP .$DATA
IFNM<.%HLPM!.%D
EXP .$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!.%ERhTN!.%SBCM>,<
EXP .$RTN >
IFN( <.%DEFR!.%ERTN!.H%SBCM>,<
EXP .$hERTN>
IFN <.%DEFR!.%SBCM>,<
(EXP .$DEFR>
IHFN <.%SBCM>,<
EhXP .$SBCM>
b==.-c
I(F2,<
PURGE .%TYHPE, .%FLGS, .%DAThA, .%HLPM, .%DEFM, .%LST
PURGE .($TYP, .$FLGS, .$DHATA, .$HLPM, .$DEhFM, .$LST
PURGE .%BREA, .%NXT,( .%ERTN, .%RTN, .H%DEFR, .%SBCM
PhURGE .$BREA, .$NXT, .$ERTN, .$RTN,( .$DEFR, .$SBCM
H
PURGE a, b, hc, d
>
LIST , d
>
LIST $YV N 7,[A SCIZ\0\]NT 7,[A $YY or 0 KJLb .- ol 0lXKvHV 5Iy ob 0 I!k< f= oh 0+1I'7 w
.XCREF
SALL
XLIST
hDEFINE .$TYP <0>
.%TYPE==0
DEF (INE .$FLGS <0>
H.%FLGS==0
DEFIN hE .$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 .$DEHFR <0>
.%DEFR==h0
DEFINE .$SBCM <0>
.%SBCM==0
.CREF
CM==0 op 0 KJ)b ' aJ 0T 1,O )0P $YVP $YYP .-P 5IyP f= P w
> T
..AS
>@1==-<B>
IFDEF
>` .PSECT,<
.IFN
? ..AS1,ABSOLUTE,<
?
C A,[-..
?@AS1]>
.IF ..AS
?`1,ABSOLUTE,<
.
@ .AS2==0
IFE
@ <..AS1&^O777777B1
@@7>,<
..AS2==1
@`
DI A,..A
A S1>
IFE ..AS2
A ,<
..OP(A,
A@B,C)>
PURGE
A`..AS1,..AS2>>
I
B FNDEF .PSECT,<
B ..AS2==0
IF
B@E <..AS1&^O777777
B`B17>,<
..AS2==
C 1
DI A,.
C .AS1>
IFE ..A
C@S2,<
..OP
C`(A,B,C)>
PUR GE ..AS1,..AS2> : h V
AV>9 :
1 SV
..CX1
1@==C
IFDEF .PSE
1`CT,<
.IFN ..CX
2 1,ABSOLUTE,<
2 CAMA B,[C]
2@>
.IF ..CX1,ABS
2`OLUTE,<
..CX2
3 ==0
IFE <..C
3 X1&^O777777B17>,<
3@
..CX2==1
3` CAIA B,C>
4 IFE ..CX2,<
8
CAMA B,[
8@C]>
PURGE ..CX1
8`,..CX2>>
IFNDEF
9 .PSECT,<
..CX
9 2==0
IFE <..
9@CX1&^O777777B17>,
9`<
..CX2==1
: CAIA B,C>
:
IFE ..CX2,<
:@
CAMA B,[
:`C]>
PURGE ..CX 1,..CX2>GE ..CX :&@ . Z~
..TSIZ .@(..PST,C)
.CAS .`E ..PST,<<
MOV / EM A,B>,<
HR / RM A,B>,<
HR /@LM A,B>,<
DP /`B A,[POINTR (B, C)]>>INTR (B, :<;Y X$
DEFIN E ..CNS2 (NEW,OLD @)<
OLD>
..CNS ()>
:L;Y `X
DEFIN E ..CNS (%%%)<
..CNS2 <%%%>,>
@
DEFINE ..CNS2 ` (NEW,OLD)<
DEF INE ..CNS (%%%)<
..CNS2 <%%%>, @<OLD'NEW>>>
OLD'NEW>>>
:dH@ + Zd
..TSIZ + (..PST,C)
.CAS +@E ..PST,<<
MOV +`E A,B>,<
HRR , Z A,B>,<
HLR , Z A,B>,<
LDB ,@ A,[POINTR (B, C)]>>INTR (B, :}i1
i VJ
A==<<<
i -<B>>&<B>>&<1B< ^L<B>>>>>&<1B< :~
D TN
..OP1
D@==B
IFDEF .PSE
D`CT,<
.IFN ..OP
E 1,ABSOLUTE,<
E C A,[..OP1]
E@>
.IF ..OP1,ABS
E`OLUTE,<
..OP2
F ==0
IFE <..O
F P1&^O777777B17>,<
F@
..OP2==1
F` CI A,..OP1>
G
IFE ..OP2,<
G
C A,[..O
G@P1]>
PURGE ..OP
G`1,..OP2>>
IFNDE
H F .PSECT,<
..O
H P2==0
IFE <.
[email protected]&^O777777B17>
H`,<
..OP2==1
I CI A,..OP1
I >
IFE ..OP2,<
I@
C A,[.
I`.OP1]>
PURGE .. OP1,..OP2>GE .. ;m
ha$
..PST==
C-FWMASK
.IF0
(..PST,<
POINT
H0,B,35>,<
POI NTR (B,C)>POI ;| (`ZJ
POP P, ) .NVA
PURGE .N ) VA
.NVR==.NVR -1
.NVR==.NVR ;\t '`ZB
PUSH P ( ,A
DEFINE .NV ( B<A>
.NVR==. NVR+1
.NVR==. ; ] P ]
IFGE P <<<B>&777777>-.. P@BSIZ>,<
PRINTX P` ?WORD offset gre Q ater than $BUILD Q size parameter>
Q@ SET0. (\<B>, C,<A>)
B>, ; LH
o@W
IFNDEF
o`C,<PRINTX C IS
p NOT DEFINED
p A (<B>,D,FWMASK
p@)>
IFDEF C,<
p`
IFNDEF %C,<
q A (<B>,D,C)
q >
IFDEF %C,<
q@
%C (A,<B>, D,C)>>A,<B>, ; LH
r WJ
..NS==0
r
IRP C,<..N
r@S=..NS+1>
IFE
r`..NS,<PRINTX ?EMP
s TY STRUCTURE LIST
s , A>
IFE ..NS-
s@1,<
..STR0
s`(A,<B>,<C>,D)
t >
IFG ..NS-1,<
t
..ICNS
.
[email protected] (<E (A,<B
t`>,,>)
IRP C,<
u
IFNDEF C,
u <PRINTX C NOT DE
u@FINED>
IFDEF
u`C,<
IFNDEF %
v C,<
..CNS (<
v ,C,D>)>
IF
v@DEF %C,<
%C
v` (..STR2,,D,C)>
w
..CNS (<)>)
w
..GCNS
w@ ..ICNS
.
w`.CNS (<E (A,<B
x >>)
IFNDEF %
x C,<
..CNS (<
x@,C,D>)>
IF
x`DEF %C,<
%C
y (..STR2,,D,C)>
y >>
..CNS (<,,) >)
..GCNS>) ; LI
y`WN
..CNS ( <,C,B>).CNS ( ; LI
z Wd
IFDIF <
z@D><F>,<
IFN
z`B <D>,<
A
{ (<B>,D,..MSK)
{
IFNB <F>,
{@<PRINTX C AND E
{` ARE IN DIFFERENT
| WORDS>>
..MS
| K==0>
IFNB <
|@F>,<
..MSK=.. MSK!<E>>MSK=.. ; LJ
} Wt
IFDIF <
} D><F>,<
IF
}@NB <D>,<
}`A (<B>,D,..MSK)
~ >
..MSK==0>
~
IFNB <F>,<
~@ ..MSK=..MSK!< E>>MSK=..MSK!< ; LJ
X
IFDIF <
D><F>,<
IF
@NB <D>,<
I
`FNB <F>,<
A1 (B,D,..MSK)>
IFB <F>, @<
A2 (B,D `,..MSK)>>
.. MSK==0>
IFNB <F>,<
..MSK= ..MSK!<E>>MSK= ;$\Y
hab
IF1,<
(
PRINTX ? Err
Hor in "A"
D
EFINE X(NAM,ERR)
h<IFN ..X'NAM&..TX
EF,<PRINTX ? ERR>
(>
$TX$ERR>
$TX$ERR>
;$^
b
..
(TXF==0
.
H.TXB==0
h..TXP==0
..TXEG==<..TXEF=
(=0>
IRPC
HA,<
..TXC=
h=ASCII\A\_-35
IFN ..TXB,<IFN
(..TXB-..TXC,..CNS
H(<A>)
IFE
h..TXB-..TXC,..TXB
!==0>
IFE ..TXB,
!(<..TXQ(<A>,\..TX
!HF)>>
..TXC1
!h
IFN ..T
"XB,<IFN <..TXB-"^
"(">,<..TXER(PEA)>>
"H
..TXEF==..T
"hXEF!..TXEG
# IFN ..TXEF,<..TE RR<A>>
,<..TE ;&(
x` ..TXA(.TQC H0) ..TXA(.TQC ;&)
` ..TXER(IQU ) ..TXER(IQU ;&)
8` ..TXER(IQU ) ..TXER(IQU ;&0
8` ..TXA(.TQC HA) ..TXA(.TQC ;&5 ~x_w ..TXC0(\". CHLFD).TXC0(\". ;&5 x_ ..TXC0(\". CHVTB).TXC0(\". ;&6 8_{ ..TXC0(\". CHFFD).TXC0(\". ;&6 ~8_s ..TXC0(\". CHCRT).TXC0(\". ;& @ 7@[R
..TSIZ 7`(..PST,C)
.CA 8 SE ..PST,<<
SE 8 TZM B>,<
HLL 8@ZS B>,<
HRRZ 8`S B>,<
..TS 9 AC (..ACT,B)
9 .IF0 ..ACT,<
9@ $CALL .ZERO
9`LSTOF.
JUMP [P : OINTR(B,C)]
: LSTON.>,<
..TX (Z,B,C)>>>TX ;&81
e@VD
IFNDEF
e`.PSECT,<
A==0
f
..TSA1==<Z
f B>
IFE ..TS
f@A1&^O777777777760
f`,<A==1>
>
I
g FDEF .PSECT,<
g A==0
..TSA1=
g@=<Z B>
.IF .
g`.TSA1,ABSOLUTE,<
h
IFE ..TSA1&^
h O777777777760,<A
h@==1>>
PURGE .. TSA1>
PURGE .. ;&:=
d V(
A==3
d
IFE <B>+1,<
d@A=0>
IFE <B>-
d`^O777777,<A==1>
e
IFE <B>-^O777 777B17,<A==2>7 ;'
J U`
..TX1
J@==C
IFDEF .P
J`SECT,<
.IFN .
K .TX1,ABSOLUTE,<
K TDA B,[C]>
K` .IF ..TX1,ABSOL
K@UTE,<
..TX2==
L 0
IFE <..TX1&
L ^O777777B17>,<
L@ ..TX2==1
L`TRA B,..TX1>
M IFE ..TX2,<
I
M FE <..TX1&^O77777
M@7>,<
..TX2==1
M`
TLA B,(.
N .TX1)>>
IFE ..T
N X2,<
IFE <<
[email protected]>B53-^O77777
V`7>,<
..TX3
W (A,B)>>
IFE
W ..TX2,<
TD
W@A B,[..TX1]>
W` PURGE ..TX1,..TX
X 2>>
IFNDEF .PSEC
X T,<
..TX2==0
X@
IFE <..TX1&^O77
X`7777B17>,<
..
Y TX2==1
TRA
Y B,..TX1>
IFE
[email protected],<
IFE <
Y`..TX1&^O777777>,<
Z
..TX2==1
Z TLA B,(..TX1
Z@)>>
IFE ..TX2,<
Z`
IFE <<..TX
[ 1>B53-^O777777>,<
[
..TX3 (A
[@,B)>>
IFE ..T
[`X2,<
TDA
\ B,[..TX1]>
PUR GE ..TX1,..TX2> ;'`
\@Uv
IFIDN <
\`A><Z>,<
..
] TX2==1
ANDI
] B,^-..TX1>
IFI
]@DN <A><O>,<
]` ..TX2==1
OR
^ CMI B,^-..TX1>
^
IFIDN <A><C>,<
^@
..TX2==1
^` EQVI B,^-..TX 1>QVI B,^-..TX ;'
(a
..TXE
HF==0
IFNDEF
h A,<..TXER(UQU)>
IFDIF <B><>,
(<IRPC B,<.IFN <
HB>,NUMERIC,..TXER
h(IWA)>>
IFNB <C
>,<IFNDEF .TXTJC
(,<..TXER(IJA)>>
HIFDEF A,<
IF
hE <A_-^D18>,<IFD
IF <EFBCD><>
(,<..TXER(ANA)>>
H IFE <1-<A_-^D1
h8>>,<IFDIF <BC
D><>,<..TXER(JNA)
(>>
IFE <2-<A_
H-^D18>>,<IFIDN <
hEF><>,<..TXER(AD
S)>>>
IF
(E ..TXEF,<
IFID
HN <B><>,<..TXWD=
h=<..TXJU==<..TXFC
==0>>>
IFDIF <
(B><>,<
IFE <^
HD<B>>,<..TXWD==<
h..TXJU==<..TXFC==
0>>>
IFN <^D<
(B>>,<..TXWD==^D<
HB>
IFNB <
hC>,<..TXJU==.TXTJ
C>
IFB <
(C>,<..TXJU==.TXTJ
HL
IFE <A
h-.TQOCT>,<..TXJU=
=.TXTJR>
(IFE <A-.TQDEC>,<
H..TXJU==.TXTJR>>
h
IFB <D>,<
..TXFC==" ">
( IFNB <D>,<..TX
HFC=="D">>>
I
hFB <EF>,<..TXP
T==0>
IFNB <E
(F>,<..TXPT==1>
HIFE <..TXWD+..TXP
hT>,<
EXP FL
D(A,TXT.FN)>
I
(FN <..TXWD+..TXPT
H>,<
EXP FLD
h(A,TXT.FN)+FLD(.
.TXJU,TXT.JU)+FLD
((..TXWD,TXT.WD)+F
HLD(..TXFC,TXT.FC)
h+TXT.AD
PNT R(E,F)>>
T ;'h
4hc2
IFE
5..TXP,<
..IC
5(NS
..CNS<ASC
5HIZ\>
..TXP==1
5h>
..CNS<A
6>
..TXF==
6(0
..TXB== "^"
..TXB== ;'h
6hc>
IF
7N ..TXP,<
..
7(CNS<\>
EXP <F
7HLD(.TQCHT,TXT.FN)
7h+[..GCNS]>>
..TXP==0>
;' 9
hal
..TX
EF==..TXEF!..XA
(
..TXF==0
H
..TXB=="^ "
..TXB=="^ ;'
#Hb ..TXQB(< A>) ..TXQB(< ;'
(
$b&
IF
$(N ..TXC-"^",<..TX
$HC0(<A>)>
$hIFE ..TXC-"^",<.. TXF==1>-"^",<.. ;'
(
%(bF
IF
%HE ..TXC-"^",<..TX
%hC0(<A>)>
I
&FN ..TXF,<
.
&(.TXF==0
IFDEF
&H .TQCHA,<
&h IFDEF ..TQMA,.
'.TQMA
IFN
'( <.TQCHA_-^D18>,
'H<..TXF==2>>>
'h IFE ..TXF-2,<..T
(XC1(<A>)
..IC
((NS
..CNS<..T
(HXA(.TQCHA,>>
(h ..TXEG==..TXEG !..TXEF==..TXEG ;'
)
)(bX
..TX
)HF==3
IFG
)hE ..TXC-"0",IFLE
*..TXC-"9",<..TXF=
*(=2>
IFE ..TX
*HF-2,<..CNS(A)>
*h
IFE ..TXF-3
+,<..CNS<,>
..TXQ3(A)>
;'
)
+Hbl
..TX
+hF==4
IFE
, ..TXC-"/",<..TXF
,(==5>
IFE .
,H.TXC-"[",<..TXF==
,h5>
IFE ..T
-XF-4,<..CNS<A,>>
-(
IFE ..TXF
-H-5,<..CNS<,,>
..TXQ5(A)>
;'
*
.c
..TX
.(F==4
IFE
.H ..TXC-"/",..TXF=
.h=5
IFE ..T
/XC-"[",..TXF==5
/(
IFE ..TXF-5
/H,<..CNS<,>
/h..TXQ5<A>>
0 IFE ..TXF-4,<..
0(CNS<A,>
.. TXF==5>
.. ;'
*
0hc
..TX
1F==6
IFE
1( ..TXC-"/",..TXB=
1H="/"
IFE .
1h.TXC-"[",..TXB=="
2]"
IFE ..TXB
2(-"]",..CNS<[>
2H IFE ..TXB,..T XF==5 ..TXB,..T ;'
+
3c"
..TX
3(F==0
IFE
3H..TXC-"]",..CNS<]
3h>
..CNS<)>
4
..GCNS
4(
..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 Y"
.ACV2 ( A)
.ACV2 ( d@ `Y,
A=.FPA C+..NAC
IFB < B>,<..NAC=..NAC+ @1>
IFNB <B>,<. .NAC=..NAC+B>. d` Y:
IFG A- .NPAC,<PRINTX ?TO @O MANY ACS USED>
IFLE A-4,<
$CALL .SAVEA>
IFG A-4,<
$CALL .SAVE8>
<`\&
IFIDN = <A><.>,<
= XMOVEI .SAC,B
=@ PUSH P,.SAC
>
IFDIF < > A><.>,<
.IFA > TM <A>,.BLF4
>@ .BLF1==0
>`IFN .BLF4,<
? .IF %A,MACRO, ? <
.BLF1==1>
>
IFNB < ?`B>,<
.BLF1==1> @
IFN .BLF1,< @
LOAD .SA @@C,A,B
PUS @`H P,.SAC
>
A IFE .BLF1,< ;I A F WASN'T A STRUCT A@URE REF,
IF A`N .BLF4,<
B .BLF2==<<Z A>& B 17B17>-<P>B17
B@ .IF .BLF2,A B`BSOLUTE,<
C C IFE .BLF2,<
.BLF1==1 C@
.BLF3 C`==<Z A>&777777
D PUSH P,.BLF3-.. D NA(P)>>>>
IF D@E .BLF1,<
PU D`SH P,A>>
.. NA=..NA+1
..
< [b
.BCAL1 A
.BCAL1
| S0M
XLIST
SP .ORG 0
LIST
.ORG 0
LIST
=Z I`\N $CALL I%IN TA $CALL I%IN 9
b V
..CSN==
b A
..CSC==0
I
b@RP B,<
IFE ..C
b`SN-..CSC,<
ST
c OPI
..CAS1 (
c B)>
..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 4@[.
..PST== 4`C-FWMASK
.IF0 5 ..PST,<
SOS B 5 >,<
$CALL .SO 5@S
LSTOF.
J 5`UMP [POINTR(B,C )]
LSTON.>C }
:hel
.OPCD==
]H.OPCD+1
WO.A== .OPCD
G),<
| TXM-
XLIST
Tx .....X=.
.ORG
.ORG 0
REPEAT U8 .....X,<EXP 0>
UX PURGE .....X
. ORG
LIST
. v=H `X`
IRP A,
<
.ENSV2 (A) > .ENSV2 (A) v=I
@Xd
.ENSV3 (A)
.ENSV3 v=I
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
``V
..IFT==
a A
IFE ..IFT,
a <
B
..IFT==0
a@>
IFN ..IFT,<
C>N ..IFT,< &4 E \>
IRPC A E@,<
B==0
IFGE E` "A"-"A",<IFLE " F A"-"Z",<B=1>>
IFGE "A"-"0",< F@IFLE "A"-"9",<B F`=1>>
IFE "A"-" G %",<B=1>
IFE " G A"-"$",<B=1>
G@IFE "A"-".",<B= G`1>
IFE B,<STOP I>>IFE B,<STOP &t<H 1@[
..PST== 1`C-FWMASK
.IF0 2 ..PST,<
AOS B 2 >,<
$CALL .AO 2@S
LSTOF.
J 2`UMP [POINTR(B,C )]
LSTON.>C &tj7Q ? ';VP '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '< P *IA *I *|A *| 6MiTQ @ 7 ;rp 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
" R <A>B<^D70 -POS(B)>B<^D70 N
0 P O
SYSPRM C
IFG .PID,<MX.PID= =A>
<MX.PID= O%=H `X>
.STKV2 (A)
.STKV2 O%=I XL
IFB <B @>,<..STKN==..STKN `+1>
IFNB <B>,< ..STKN==..STKN+B >
..STKQ==..STK @N+1
.STKV3 (A, \..STKQ)V3 (A, O%=I
XZ
IFDEF
A,<.IF A,SYMBO
@L,<PRINTX STKVAR
`A ALREADY DEFINE D>>
DEFINE A<- ^OB(P)>
$A==< Z A>>
$A==< RJP RJP RJ P RJ P RJJP RJP RJ
P RJ$HP RJ%P RJ4`P 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 `X~
.TRV2 ( A)
.TRV2 ( Sd@ Y
.TRV3 ( @A,\..NV)
IFB `<B>,<..NV=..NV+1 >
IFNB <B>,<.. NV=..NV+B>,<.. Sd` @Y
IFDEF ` A,<.IF A,SYMBO L,<PRINTX TRVAR A ALREADY DEFINED @>>
DEFINE A<^O `B(.FP)>
$A==< Z A>>
$A==< S"P S"P S" P S" P S"JP S"P S"
P S"$HP S"%P S"4`P S"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 _%~
d(f>
$CALL
dHI%WTO
LSTOF.
dh
JRST g
e
$WTRST
IF
e(NB <A>,<$WTMTY (
eH<A>)>
IFNB <
ehB>,<$WTTYP (<B>)
f>
IFNB <C>,<$
f(WTTXT (<C>)>
fHIFNB <D>,<$WTOBJ
fh (<D>)>
IFNB
g<E>,<$WTACK (<E
g(>)>
IRP F,<
gHF>
$WTBLD
gh
g:!
LSTON. g:!
LSTON. kP P >}{woP