Trailing-Edge
-
PDP-10 Archives
-
BB-4157E-BM
-
fortran-tools/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,5 d@ P C4 @ ZYY
..NAC==Zy0
IRP A,<
[ .ACV1 (A)>
.ACV3 (\..NAC)C' Y % ..AS(A,B ,ADD,SUB)(A,BC, g@~< LSH A,-^D 9 LSH A,-^DC2f} iya
.EAWTO(jMTY,0)
.EAWTO(Tj8YP,2)
.EAWTO(TXjXT,2)
.EAWTO(OBJjx,0)
.EAWTO(ACK,k0)
.EAWTO(FLG,1k8)
.EAWTO(NOD,0)kX
.EAWTO(JBN,0)
.EAWTO(ACD,0)
l .EAWTO(OCD,0)
.EAWTO(MFL,1)
C:' )I
TXZ A, <^-<B>>TXZ A,CR/
DEFINE 1YXTEXT.(OPCODE,NEW1x)<
OPCODE <A,< NEW>>>ODE <A,<E2"@
IFE 9B,<..TA==0>
XIFN B,<EXP ..TAx
PURGE ..T A>
PURGE ..TE@tP 'E@v yQ ~ E@v:=Q | F; z:Q @ G@ }Xm
..C X(,A,B) ..CGD
..C X(A,A,B) ..CGDP y
..C X(E,A,B) ..CGDp X}
..C X(G,A,B) ..CGDy
..C X(GE,A,B) ..CGE@ ~q
..C X(L,A,B) ..CGEI ~Xu
..C X(LE,A,B) ..CGE` Y
..C X(N,A,B) ..CGx ZZ==ZZ+1GH )YY
LS*TOF.
X CRE
*9 X GEN
XyPRT
X CLS
X AUT *Y
X USW
X SPL*x
X SIZ
X +MOD
X CHN
LSTON.
G"\Y JQ k
IF1, Jp<%%EDT==AEDT>
K
IF2, <IFN <%%EK0DT-AEDT>,<
PRKPINTX ? Edit NumbeKpr Doesn't Match GLLXVER in GLXA
L0 A$WHO(\AEDT)> LP
A$NOTE
ILpNTERN AEDT
IMNTERN LODLEV
;M0 PURGE %%EDT> ;EN D IF2
atiG4-ZQ G:YlP
G>hKW ;H#`
IFNB <>;h,<
PRINTX (Fro<m GLXVER)
> ;EN D IFNB
P :#X
PRINTX :(GLXVER GLXCOM Edi:Ht(32) by PJT on 9:h-Jul-79
PRINTX ; GLXCOM Actua l Edit(A)
G>lYPP LALL
PAGE/p; (A Continued o0n next page)
SAL00L;Y(A Continued 0Pfrom previous pag e) previous pagG?p P $ GHt;rP GHtkP GHv P GHv)9P GHv:=P GR/
DEFINE .yXTEXT.(OPCODE,NEW0y)<
OPCODE <<NEW >>>OPCODE <<NEWI!k7P I!k<P I m P I$P 'p IY{P .I {ye
IFNB <|B>,<..STR0 (.DECR|80,,<B>,A)>
IF|XB <B>,<SOS A> <B>,<SOS A>I6= 3-
A==<-139B<C>+1B<C-D>> 3X
IF1,<IFDEF %A3x,<PRINTX ?A ALRE4ADY DEFINED>>
D48EFINE %A (OP,AC,4XY,MSK)<
IFDIF 4x<Y><>,<
OP (<AC5>,B+'Y,MSK)>
58IFIDN <Y><>,<
O5XP (<AC>,B'Y,MSK) >>AC>,B'Y,MSK)I'7 9 ..OP(A,B ,DIV)..OP(A,BI?p P & IOH1 ih
IFB <D >,<
XWD [ASCIZ\ (C\],[XWD B,A]> H
IFNB <D>,<
hXWD [EXP CM%FW!D
ASCIZ\C\],[X WD B,A]>
,[XIR/Y
IFN TFL3yG,<
DEFINE TXT1.4(A,B,C,D,E,F,G,H,48I,J,K,L,M,N,O,P,Q4X,R,S,T,U,V,W,X,Y,4xZZ,A1,B1,C1,D1,E15)<
A+[ASCIZ\A'B58'C'D'E'F'G'H'I'J'5XK'L'M'N'O'P'Q'R'S5x'T'U'V'W'X'Y'ZZ'A61'B1'C1'D1'E1\]
68>>
IFE TFLG,<
D6XEFINE TXT1.(A,B,C6x,D,E,F,G,H,I,J,K,7L,M,N,O,P,Q,R,S,T78,U,V,W,X,Y,ZZ,A1,7XB1,C1,D1,E1)<
I7xFE ZFLG,<
OPDEF8 OPC [A]
OPC A'88B'C'D'E'F'G'H'I'J8X'K'L'M'N'O'P'Q'R'8xS'T'U'V'W'X'Y'ZZ'9A1'B1'C1'D1'E1
98>
IFN ZFLG,<
9XOPDEF OPC [ZFLG+9xA]
PTEXT.(A'B'C':D'E'F'G'H'I'J'K'L:8'M'N'O'P'Q'R'S'T':XU'V'W'X'Y'ZZ'A1'B:x1'C1'D1'E1)
>
;>>
IFE A&TXT.;8NA,<
.CREF
;XXTEXT. TEXT.
;x.XCREF
>
IFN <A&TXT.NA,<
EXP<8 A
>
IFN <XA&TXT.S,<
IFE S<xCHAR,<SCHAR==" ">=
IFE SSIDE,< IF=8E TXTF.D-<A&TXT.=XM>,< SSIDE==TXT.S=xR>>
IFE SSIDE,<> IFE TXTF.O-<A&T>8XT.M>,< SSIDE==TX>XT.SR>>
IFE SSID>xE,< SSIDE==TXT.SL?>
EXP <<INSVL.(?8SCHAR,TXT.SC)>+<I?XNSVL.(SSIDE,TXT.S?xS)>+<INSVL.(SWIDT@H,TXT.SP)>>
SSI@8DE==0
SWIDTH==0@X
SCHAR==0
>
@xCTEXT.
TFLG==0
ZFLG==0
PURGE OPC
PURGEKH(QKP h KJ)bP P
KJ-yBP KJ-{P KJ4"P KJ49BP KJ4I"P KJ4LbP KJ5iP KJ5iBP KJLlP KJLlbP KJM+BP KJNI"P
KJt9"P KJuX"P KJv)"P KJv9P KJv<P KK-P KK
YBP (yI
ERA$==)ER%%%
ER%%%==ER %%%+1
R%%%==ERKK,}P KK|Y YC
ERR EOFy,<End Of File>
ERR IFP,<Illegal 8file position>
XERR FDE,<File Datxa Error>
ERR FND,<File is not on8 disk>
ERR NSD,X<No such device>
ERR FCF,<File c heckpoint failed> 8
ERR SLE,<A Sys Xtem Limit Was Exc xeeded>
ERR IFS, <Illegal File Spe 8cification>
ERR X FNF,<File Not Fo xund>
ERR PRT,<P rotection Violati 8on>
ERR DNA,<De Xvice Was Not Avai xlable>
ERR NCE, <No "current" ent 8ry in list>
ERR X NMA,<No IPCF mes xsage is available >
ERR FDS,<File 8s are on differen Xt structures>
E xRR FAE,<File alre!ady exists>
ERR!8 USE,<Unexpected !XSystem Error>
E!xRR NSP,<No Such P"id>
ERR BOL,<Be"8ginning of list r"Xeached>
ERR EOL"x,<End of list rea#ched>
ERR RQF,<#8Receiver's quota #Xfull>
ERR SQF,<#xSender's quota fu$ll>
ERR NRE,<No$8 Remembered Entry$X>
ERR TBF,<The $xCommand Table is %full>
ERR EIT,<%8Entry already exi%Xsts in the table>%x
ERR ITE,<Inval&id Table Entry>
&8 ERR QEF,<Quota E&Xxceeded or Disk F&xull>
ERR ARG,<I'nvalid Argument>
ERR UJI,<Invali'Xd I%JINF Function'x>
ERR IJN,<Inva(lid Job Number Sp(8ecified for I%JIN F>
d for I%JINKKBP
KK I"P KK BP
KK$)BP A KK-*"P KK.9"P KR/
E
IF1,<
AyIFN EFLG&1,<PRINTBX ?Uknown qualifiB8er in A call of BXB
PRINTXBx
>
IFN EFLG&2,C<PRINTX ?Bad spacC8ing specificationCX in A call of BCx
PRINTX
D>
IFN EFLG&4,<PD8RINTX ?Premature DXend of text in ADx call of B
E PRINTX
>
IFE8N EFLG&10,<PRINTXEX ?Bad address in ExA call of B
F PRINTX
>
F8IFN EFLG&20,<PRINFXTX ?Variable addrFxess too long in GA call of B
G8 PRINTX
>
IGXFN EFLG&40,<PRINTGxX ?Spacing on I qHualifier in A caH8ll of B
HXPRINTX
>
> ;END OF IF1
> ;ENDKc -zk IRP A,<
-0 IF2,<IFNDEF A,< EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP MuI7Q x Mn:=p MF:=P M$pQ"P M$t :P M$t:P M$t;P M$t<RP M$ty7P M$u[rP M$v
ZP M$v:=P M$v<P M$v\{P M&`KW 6h#:
IFNB <>7,<
PRINTX (Fro7(m GLXVER)
> ;EN D IFNB
M&`Mt 5(#2
PRINTX 5HGLXVER GLXFIL Edi5ht(47) by MLB on 162-Sep-79
PRINTX6( GLXFIL Actu al Edit(A)
M&dYP M2 jX~U <A>B<POS( B)> <<<A>B<POM>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MJhrp MJip MJk=p MJlsp MJl}p MJm9p MR/' R9
RY SFLG==0
RxSTYP==0
IFISDN <A><^>,<STYP=S8=TXTF.2>
IFE SSXTYP,<IFDEF TXTF.SxA,<STYP==TXTF.A>T>
IFE STYP,<EFLT8G==EFLG!1>
IFTXN STYP&TXT.NA,< Tx
DTEXT.(STUYP)
IFLGU8==3
>
UX IFE STYP&TXT.NA,Ux<
IFLG==1V
AFLG==1V8
SWIDTH=VX=0
>
ZFLG==0
Y MR/G W
IFIDW9N <A></>,<
WX AFLG==0
Wx IFLG==3
X DTEXT.(STYP) X8
> XX
IFN AFLG,< Xx
XTEXT. AYTEXT.,<A>
Y8AFLG==AFLG+1
YX IFE AFLG-^D31Yx,<EFLG==EFLG!20> Z
IFIDN <A>Z8<,>,<
IFN ZFZXLG,<EFLG==EFLG!10Zx>
ZFLG==TXT.P[
>
>
>MR/g [Y
IF[yE IFLG-3, <
\ IFLG==0
\8 >
IFE I\XFLG-2,<
\xIFLG==0
]IFDIF<A></>,<FTE]8X4.(<A>)>
]X>
IFE IFLG-1]x,<
IFLG=^=2
>
/> ^YK
E^yFLG==EFLG!2
_ IFE SSIDE,< _8
IFLE "0"-"_XA",<
IFGE "_x9"-"A",<SWIDTH==`SWIDTH*^D10+^DA `8
IFE STYP-T`XXTF.I<EFLG==EFLG!`x40>
STYP==aSTYP!TXT.S
a8 EFLG==EFLG&<^-2>aX
>
>ax
>
bIFIDN <A><R>,< b8
IFN SWIDTbXH,<
SSIDE==bxTXT.SR
EFLG=c=EFLG&<^-2>
c8 >
cX>
IFIDN <cxA><L>,<
d8d IFN SWIDTH,<
SSIDE==TXT.SL dX
EFLG==EFLG&<dx^-2>
>e
>
e8 IFIDN <A><C>,eX<
IFN SWexIDTH,<
SSIDfE==TXT.SM
EFf8LG==EFLG&<^-2>
fX >
fx >
IFN gSWIDTH, <
IFg8N SSIDE,<
IgXFN EFLG&2,<
gx IFE SCHAR,< SChHAR=="A"
EFh8LG==EFLG&<^-2>
hX >
>hx
>
i >
IFE EFi8LG&2,< IFLG==2>
IFLG==2> MR/
TFLG==0K9
AFLG==0
SFKXLG==0
IFLG==0 Kx
ZFLG==0
EFLLG==0
SCHAR==0
L8 SWIDTH==0
SSIDLXE==0
CTEXT.
LxIRPC A,<
IMFN SFLG,<
FTEXM81.(<A>)
>
IMXFE SFLG+AFLG+IFLGMx,<
IFIDN <A>,<N^>,<
IFN TFLG,<N8DTEXT.(TXTF.3)>
NXSFLG==1
>
IFENx SFLG,<
IFE ^D2O9-TFLG,<
DTEXT.(O8TXTF.3)
>
TFLGOX==TFLG+1
XTEXT.Ox ATEXT.,<A>
> P
>
IFE SFLG+IFP8LG+TFLG,<
FTEX2PX.(<A>)
>
IFNPx IFLG,<
FTEX3.(<QA>)
>
>
IFNQ8 TFLG,<DTEXT.(TXTQXF.3)>
IFN AFLG+SQxFLG+IFLG,<EFLG==E FLG!4>
FLG==EMRV>9Q MS.[yP M^l uQ O2| -pzy IRP A,<
. IF2,<IFDEF A,<..0IFN A,EXTERN,<IN.PTERN A>>
.pIFNDEF A,<EXTERN/ A>
Q SUPPR ESPA>>FlYSUPPRO3DYP F+O3EKrPf+O3EZ7P O3F\Yp Stkp SuZp Su}:p Sv
1p Sv
Sp Sv>@p SNn Y 5 ..OP(A,B ,IDIV).OP(A,BS7-N Y - ..OP(A,B ,IMUL).OP(A,BS: xyM
IFNB <yB>,<..STR0 (.INCRy80,,<B>,A)>
IFyXB <B>,<AOS A> <B>,<AOS A>S:HKW @H$
IFNB <>@h,<
PRINTX (FroAm GLXVER)
> ;EN D IFNB
S:HMt ?$
PRINTX ?(GLXVER GLXINI Edi?Ht(7) by MLB on 3-?hJul-79
PRINTX @ GLXINI Actual Edit(A)
S:LYP S; k m8~k <<<A>B<PO S(<B>)>>&<B>>S; KW >#t
IFNB <>>(,<
PRINTX (Fro>Hm GLXVER)
> ;EN D IFNB
P S; Mt <H#l
PRINTX <hGLXVER GLXINT Edi=t(47) by MLB on 5=(-Jul-79
PRINTX =H GLXINT Actua l Edit(A)
S;!kP S;!k<P S;$YP S? (YE
TXO A, <B>
TXO A,S@,9QQ @ S@,9QP S@,9RP `S@,9VP S@,9XP$ S@,9YQ S@,9YQ S@,9[P" [email protected]Q S@t,:P 'S@t9QQ @ S@t9QP S@t9RP `S@t9VP S@t9XP $ S@t9YQ S@t9YQ 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 Eh$2
IFNB <>F,<
PRINTX (FroF(m GLXVER)
> ;EN D IFNB
SBMt D($*
PRINTX DHGLXVER GLXIPC EdiDht(43) by MLB on 1E1-Jun-79
PRINTXE( GLXIPC Actu al Edit(A)
SB YP SB d+@&SB n @&SB n
@&SB n
@& SB n @& SB n @&
SB n
@&
SB 2P SB)iP & SB)iP &SB)kVP &SB)kYP 'SB)lXP &
SB)lsP &
SB)lxP & SB)mvP &SBal}P SPuxzQ @ SR/
U
LSTOF. I9XCREF
FTEXT.IX(<A>)
IFN EFIxLG,< ETEXT.(ITEXTJ,<A>)> ;IF ERRORJ8, DESCRIBE IT
EJXXP 0
LSTON. 0
LSTON. Uv98Q x U $@ .
LS+yTOF.
X JNO,.J,IJNO,<-1,,GJBJNO>,8
X TNO,.JITNO,,X<-1,,GJBTTY>
X,x USR,.JIUNO,.GTPP-N
X CDN,.JIDN-8O,<-1,,GJBPTH>
-X X PRG,.JIPNM,.GT-xPRG
X CJN,.JI.CPJ,<-1,,GJBCJB> .8
X BAT,.JIBCH,..XGTOBI
X JLT,..xJISTM,.GTJLT
/X LOC,<-1,,GJBLOC/8>,.GTLOC
X RTM/X,.JIRT,<-1,,GJBRT/xM>
LSTON.
$tLSTON.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$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p UVn @ 4@ UVn
KW 4(#&
IFNB <>4H,<
PRINTX (Fro4hm GLXVER)
> ;EN D IFNB
W
Mt 2h#
PRINTX 3GLXVER GLXKBD Edi3(t(24) by MLB on 23H0-Sep-79
PRINTX3h GLXKBD Actu al Edit(A)
W
$YP
WNH1 It
IFB <C i>,<
XWD [ASCIZ\ B\],A>
IFNB < (C>,<
XWD [EXP HCM%FW!C
ASCIZ \B\],A>
SCIZY"l uQ x Y&i1 H`~4
LSTI OF. XCREF
CDOI
CDO .I@ZPAGA
CDO .ZPAGI`N
CDO .ZCHNK
J CDO .SAVE1
CDO J .SAVE2
CDO .SAVJ@E3
CDO .SAVE4
J` CDO .SAVET
CDOK .SV13
CDO .SV1K 4
CDO .SV15
CK@DO .SV16
CDO .RK`ETT
CDO .RETF
L CDO .RETE
CDO L .AOS
CDO .SOSL@
CDO .ZERO
CDO .POPJ
CDOM .STOP
CDO .SAVM E8
CDO .STKSTM@
CDO .TRSET M`
CDO
CDO .N POPJ
CDO
CDN O
CDO
CDO
CN@DO
CDO
N`CDO C%RPRM
CDO O C%INTR
CDO C%SEO ND
CDO C%RECV
O@ CDO C%BRCV
CDOO` C%REL
CDO C%CPP ID
CDO C%KPID
P CDO C%SPID
CDOP@ C%MAXP
CDO C%PP`IDJ
CDO
CDO
Q CDO
CDO
CDO
CDO Q@
CDO F%IOPN
CQ`DO F%AOPN
CDO FR %OOPN
CDO F%IBYR T
CDO F%OBYT
R@CDO F%IBUF
CDO R`F%OBUF
CDO F%RES L
CDO F%DREL
S CDO F%RREL
CDO S@F%REW
CDO F%POSS`
CDO F%CHKP
CT DO F%INFO
CDO FT %FD
CDO F%REN
T@ CDO F%DEL
CDO T`F%FCHN
CDO
CDU O
CDO
CDO
CU DO
CDO
CDO
U@CDO
CDO
CDOU`
CDO V M%ACQP
CDO M%REV LP
CDO M%IPSN
V@ CDO M%NXPG
CDOV` M%IPRC
CDO M%IW PRM
CDO M%AQNP
CDO M%RLNP
CDW@O M%CLNC
CDO M%W`FPGS
CDO M%GMEMX
CDO M%RMEM
CX DO
CDO
CDO
X@CDO
CDO
CDO
X` CDO M%GPAG
CDOY M%RPAG
CDO
CY DO
CDO
CDO
Y@CDO
CDO
CDO
Y` CDO
CDO Z
CDO T%TEXZ T
CDO T%TTY
CZ@DO
CDO
CDO
Z`CDO
CDO
CDO
[ CDO
CDO
CDO
CDO
CDO [@
CDO L%CL[`ST
CDO L%DLST
\ CDO L%CENT
CDO\ L%CBFR
CDO L%D\@ENT
CDO L%NEXT
CDO L%FIRS
CD] O L%LAST
CDO L%] PREV
CDO L%PREM]@
CDO L%CURR
C]`DO L%RENT
CDO L^ %SIZE
CDO L%APO^ S
CDO
CDO
C^@DO
CDO
CDO
^`CDO
CDO
CDO
_
CDO I%INI1
CDO I%NOW
CDO_@ I%EXIT
CDO I%I_`ON
CDO I%IOFF
` CDO I%SLP
CDO ` I%INT1
CDO I%IN`@T2
CDO I%INT3
`` CDO
CDO
CDO
CDO I%SOPR
CDa O I%WTO
CDO
Ca@DO I%HOST
CDO Ia`%JINF
CDO
CDOb
CDO
CDb O
CDO
CDO S%Sb@IXB
CDO S%CMND
CDO S%TBLK
CDc O S%SCMP
CDO S%c ERR
CDO S%INTR
CDO S%EXIT
CDc`O S%TBAD
CDO S%d TBDL
CDO
d CDO K%RCOC
d@CDO K%WCOC
CDO d`K%SUET
CDO K%STe YP
CDO K%TXTI
e CDO K%SOUT
CDOe@ K%BOUT
CDO K%Be`IN
CDO K%BACK
f CDO K%TPOS
CDOf
CDO
CDO
CDf@O
LSTON.
LSTON.
Y:XKW H$D
IFNB <>H(,<
PRINTX (FroHHm GLXVER)
> ;EN D IFNB
Y:XMt FH$<
PRINTX FhGLXVER GLXLNK EdiGt(5) by AWC on 6-G(Jun-79
PRINTX GH GLXLNK Actual Edit(A)
Y:\YP Y>
@ r9
IFNB <rYC>,<..STR0 (..LDBrx,A,C,B)>
IFBs <C>,<MOVE A, B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 1{
IFNDEF 10LSTIN.,LSTIN.==0 1P
IFE LSTIN.,<
1p IFIDN <XCREF><A2>,<.XCREF>
20 XLIST>
LSTIN .==LSTIN.+1STINYO%{G 2p{
IFG LST3IN.,LSTIN.==LSTIN30.-1
IFLE LSTIN3P.,<.CREF
LIST>
[KW /"|
IFNB <>/(,<
PRINTX (Fro/Hm GLXVER)
> ;EN D IFNB
[Mt -H"t
PRINTX -hGLXVER GLXMAC Edi.t(142) by MLB on .(3-Oct-79
PRINTX.H GLXMAC Actu al Edit(A)
[ YP 1[ 3@ lx~g <<<1_<A>> -1>B<B>>_<A>>[ 8@ kx~_ 1B<<A>-1> -1B<B><<A>-1>[@ D |.
IFB <BD@>,<MAXSIZ==0
ID`RP A,<IFG <A-MAE XSIZ>,<MAXSIZ==AE >>>
IFNB <B>,<E@B==0
IRP A,<E`IFG <A-B>,<B== A>>>
B>,<B==[tP '[t;ZQ x [v
QP '[v :Q [v xQ [ [v [lp [lXp [lrp [ltp [lxp [l}p [hKW JH$X
IFNB <>Jh,<
PRINTX (FroKm GLXVER)
> ;EN D IFNB
[hMt I$P
PRINTX I(GLXVER GLXMEM EdiIHt(11) by PJT on 5Ih-Jan-79
PRINTX J GLXMEM Actua l Edit(A)
[lYP [n:=P [tuQ @ [th:Q [u[yQ [ukvQ [v=3P '[v|WQ [&p F |B
IFB <BF@>,<MINSIZ==377777F`,,777777
IRP G A,<IFG <MINSIZ-AG >,<MINSIZ==A>>>
IFNB <B>,<B==G`377777,,777777
H IRP A,<IFG <B-H A>,<B==A>>>
A>,<B==A>>>
[>!` l8~c <A-<A/B >*B><A-<A/B[?7 mxQ
..MX1n==B
IFDEF .Pn8SECT,<
.IFN .nX.MX1,ABSOLUTE,<
nx MOVE A,[B]>
o .IF ..MX1,ABSOLo8UTE,<
..MX2==0 oX
IFE <..MX1>B5ox3,<
p..MX2==1
MOVEI A,..MXp81>
IFE ..MX2,<pX
IFE <..MX1>Bpx17,<
..MX2==1q
MOVSI A,(..q8MX1)>>
IFE ..MqXX2,<
IFE <<..qxMX1>B53-^O777777>r,<
..MX2==1
r8 HRROI A,<..MXrX1>>>
IFE ..MX2rx,<
IFE <<..MXs1>B17-^O777777B17s8>,<
sX..MX2==1
HRLOI A,(..MsxX1-^O777777)>>
t IFE ..MX2,<
t8 MOVE A,[..MX1]tX>
>>
IFNDEFtx .PSECT,<
..MX2u==0
IFE <..MXu81>B53,<
..MX2uX==1
MOVEI A,ux..MX1>
IFE ..MvX2,<
IFE <..Mv8X1>B17,<
..MXvX2==1
MOVSI Avx,(..MX1)>>
IFEw ..MX2,<
IFE w8<<..MX1>B53-^O777wX777>,<
..MX2=wx=1
HRROI A,<x..MX1>>>
IFE .x8.MX2,<
IFE <<xX..MX1>B17-^O77777xx7B17>,<
..MX2y==1
HRLOI A,y8(..MX1-^O777777)>yX>
IFE ..MX2,< yx
MOVE A,[..zMX1]>
>
PURGE ..MX1,..MX2RGE[Lt;ZQ x [LvN8P '[NF:=p [N^= 6C
A==C 69
IF1,<IFDEF %6XA,<PRINTX ?A ALR6xEADY DEFINED>>
7DEFINE %A (OP,AC78,Y,MSK)<
IFDIF7X <Y><>,<
OP (<A7xC>,B+'Y,MSK)>
8 IFIDN <Y><>,<
88OP (<AC>,B'Y,MSK )>>AC>,B'Y,MSK[PuySP ' [PvNP ' [Vg 1 ..OP(A,B ,MUL)..OP(A,B[`v
2P ] + z\ IF2,<IFDEF+@ A,<A==A>> IFN DEF A,<A==B>]F@ , TEMFDB##_
QkRp _
Ql}p _
Qm p _
Qm7p _
T= 59X
X .OT-IRDR,Reader
X .O+YTNCU,Network-Cont5Yroller
X .OTLPT5,Printer
X .OTB6AAT,Batch-Stream
6` X .OTCDP,Card-Pu7 nch
X .OTPTP,Pa7 pertape
X .OTPL7@T,Plotter
X .OT7`JOB,Job
X .OTTR8 M,Terminal
X .O8 TOPR,Operator
X8@ .OTIBM,<IBM Remo8`te>
X .OTMNT,<D9 evice>
X .OTXFR9 ,<File Transfer>
X .OTBIN,<Card 9`Reader Interprete: r>
X .OTRET,<Fi: le Retrieval>
X:@ .OTNOT,<Retrieva:`l Notification>
; X .OTDBM,<DBMS S ystem>
<DBMS S_SKW C($
IFNB <>CH,<
PRINTX (FroChm GLXVER)
> ;EN D IFNB
_SMt Ah$
PRINTX BGLXVER GLXOTS EdiB(t(3) by DC on 19-BHJun-79
PRINTX Bh GLXOTS Actual Edit(A)
_S YP _S h6 Ci [ASCIZ \G LXLIB.EXE\]Z \G_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 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 al}P aI3 kU
..XX=DI=<FLD(A,CM%FNC)>D)+B+<Z F>
Dy IFNB <D>,<..XX=E..XX!CM%HPP>
E8 IFNB <E>,<..XX=EX..XX!CM%DPP>
Ex EXP ..XX
F IFNB <C>,<EXP F8C>
IFB <C>,<FXEXP 0>
IFNBFx <D>,<POINT 7,[AGSCIZ \D\]>
IG8FB <D>,<0>
HGX IFNB <E>,<POINTGx 7,[ASCIZ \E\]>
H8IFB <E>,<0>
IFB <IHX>,<0>
IFNB <HxI>,<EXP I>
I IFB <J>,<0>
I8 IFNB <J>,<EXP IXJ>
IFB <H>Ix,<0>
IFNB <HJ>,<EXP H>
J8IFB <G>,<0>
JXIFNB <G>,<EXP G >
G>,<EXP Ga@KW 9(#N
IFNB <>9H,<
PRINTX (Fro9hm GLXVER)
> ;EN D IFNB
a@Mt 7h#F
PRINTX 8GLXVER GLXPFH Edi8(t(2) by DC on 27-8HJul-79
PRINTX 8h GLXPFH Actual Edit(A)
aDYP a g ~8 LSH A,^D9 LSH A,^D9a+= + a>Mm j~S <POINT WIDj8(B),A,POS(B)> B),A,POS(B)>a? hx~G <^L<<A>&< -<A>>>><<A>&<aJ}Ks + |
4@SALL
4`LSTOF. XCREF
TOPS20 <SEARC5 H MONSYM>
TO5 PS10 <SEARCH UUOS5@YM>
IFB <B>5`,<
GLOB <I%IN6 IT>
%%.GLX==:6 %%.GLX
6@ DEFINE $DATA(NA6`M,SIZ<1>)<
7 NAM: BLOCK SIZ
7 >
IFN GLXPU7@RE,<.REQUEST GLXI7`NI
DEFINE 8 ..ASGN(A,ADR)<DEF8 INE A<@^O'ADR>>
8@ >
IFE GLX8`PURE,<.REQUIRE GL9 XLIB
DEFIN9 E ..ASGN(A,ADDR) 9@<GLOB(A)>
>
>
IFNB <: B>,<
CHKEDT(: B)
IFIDN <B:@><OTS>,<EXTERN .R:`ETT,.RETF>
IF; DIF <B><INI>,<
; IFN GLXPURE,< ;@.PSECT .HIGH.>
;` IFE GLXPURE,<
< DEFINE $DATA(N< AM,SIZ<1>)<
<@ IFNDEF B%D,<B%<`D::! B%DL==:0>
= NAM: BLOCK S= IZ
IF1,<B%=@DL==:B%DL+SIZ>
=` >
>
GL> OB <IIB>
DEF> INE ..ASGN(A,ADDR>@) <GLOB(A)>
>>`
IFIDN <B><I? NI>,<
DEFINE ? ..ASGN(A,ADDR) <A?@=ADDR>
>
?`>
IFNB <A>,<%%@ .MOD==SIXBIT/A/>@
IFNB <B>,<%%@@.OTS==SIXBIT/B/>@`
ZZ==VORG
DEA FINE CDO (A) <IFNA B <A>,<..ASGN(A,\A@ZZ)>
ZZ==ZZ+1A`>
LIBVEC
OPDEB F $RETT [PJRST .RB ETT]
OPDEF $REB@TF [PJRST .RETF]
LSTON.
tP 2 aPtkP aPuTP aPv=xP aPv\rP aPv|UP aR/
OPC 3A
POINTR(0, B)
POINTR(0,e"l uP'ePv8vP ePv9VP ePv;P fD P fH P gkp gk9p glp glp gltp gl}p g4P _} PRINTX % R_9eplacing SAVE wit_Xh $SAVE
$SA VE <A> $SAgpKW 1h#
IFNB <>2,<
PRINTX (Fro2(m GLXVER)
> ;EN D IFNB
gpMt 0(#
PRINTX 0HGLXVER GLXSCN Edi0ht(37) by MLB on 215-Sep-79
PRINTX1( GLXSCN Actu al Edit(A)
gtYP g"@ 9 #
IFN <<.Y.TA>&B>,<PRINTXx ?Initial field not zero in $SET>
X..TVAL==<C>
x..TMSK==<B>
..TA==..TA!<FLD(..TVAL,..TMS8K)>
PURGE ..T VAL,..TMSK
.Tg#=z @ XID C.SWIT+PDB CPY##C.SWIT+PDBg$tkQ < @ g$u P 'g.N @ 6@ g.N
.SPID (S<iP.QSR,.IPCPQ,.SPQ=SR,QUASAR)
.SPI=(D (SP.OPR,.IPCPO,=H.SPOPR,ORION)
.=hSPID (SP.INF,.IPC>PI,.SPINF,INFO)
.SPID (SP.MDA,.I>HPCPM,.SPMDA,MDA) >h
TOPS10<
.SPID ?(SP.IPC,.IPCPS,,I?(PCC)
.SPID (SP?H.ACT,.IPCPA,,ACTD?hAE)
.SPID (SP.@TLP,.IPCPT,,TAPLA@(B)
.SPID (SP.T@HOL,.IPCPC,,TAPAVR@h)
.SPID (SP.DOAL,.IPCPD,,DSKAVR)A(
.SPID (SP.FILAH,.IPCPF,,FILDAE)
>
,FILDAE) gR^h9 N9
..STKR=NY=10
RADIX 8
Nx ..STKN==0
IRP OA,<
.STKV1 (O8A)>
JSP .SAC,.OXSTKST
..STKN,,Ox..STKN
RADIX ..PSTKR
PURGE ..STP8KN,..STKR,..STKQ
gR~TKR,..STKQ
IFNB <uyC>,<..STR0 (..DPBv,A,C,B)>
IFBv8 <C>,<MOVEM A, B>>,<MOVEM A,gV ) ..AS(A,B ,SUB,ADD)(A,Bgg
V C |
IFNB <C B>,<TOPS10<A==BC@>>
IFNB <C>,<TC`OPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hD P hH P hL P hP P iFC@ 29 TXT1. (A) TXT1. (A)i P i?4( DI $ IFN FTUUOS ,B ;DEFINE UNi?4H E ( IFN FTJSYS , INTERN AEDT iG, &)
h
LSTOF.
X(T,TXT.A)
&h X(O,TXT.A)
'X(D,TXT.A)
X'((F,TXT.A)
X('H7,TXT.A)
X(6'h,TXT.A)
X(W,(TXT.A)
X(5,T((XT.A)
X(P,TX(HT.A)
X(U,TXT(h.A)
X(H,TXT.)A)
X(C,TXT.A)()
X(E,TXT.A))H
X(I,TXT.A) )h
X(M,TXT.NA) *
X(J,TXT.NA) *(
X(L,TXT.NA) *H
X(K,TXT.NA) *h
X(A,TXT.NA) +
X(0,TXT.NA) +(
X(3,TXT.A) +H
X(V,TXT.A) +h
X(2,TXT.NA) ,
X(Q,TXT.A)
X(B,TXT.A)
,H X(1,TXT.A)
,hX(N,TXT.A)
X-(R,TXT.A)
LS TON.
)
LSiJnN8 0y#
LSTOF.
0YX(33,TTY33,33,) 1
X(35,TTY35,35-i,)
TOPS20<
19X(37,TTY37,37,) 1X
X(EXECUPORT,E1xXEC,EXE,)
>
2X(LA36,LA36,L36,)28
X(VT05,VT05,2XV05,<37,177,177,12x77>)
X(VT100,VT3100,100,<.CHESC,"38[","K">)
X(VT503X,VT50,V50,<.CHESC3x,"J">)
X(VT52,4VT52,V52,<.CHESC,48"J">)
LSTON.
">)
LSTON.
iK,P A iK4 @ Ty5
..TRR==U10
RADIX 8
U8..NV==1
IRP UXA,<
.TRV1 (UxA)>
JSP .SAC,V.TRSET
..NV-V81,,..NV-1
RADIXVX ..TRR
PURGE ..TRR,..NVURGE ib q
..TX(C ,A,<B>)..TX(Cib Y}
..TX(C A,A,<B>).TX(Cib P Yu
..TX(C E,A,<B>).TX(Cib ` y
..TX(C N,A,<B>).TX(Cibp A
..TX(N ,A,<B>)..TX(Nibt YM
..TX(N A,A,<B>).TX(NibtP YE
..TX(N E,A,<B>).TX(Nibu` I
..TX(N N,A,<B>).TX(Nibx Q
..TX(O ,A,<B>)..TX(Oib| Y]
..TX(O A,A,<B>).TX(Oib|P YU
..TX(O E,A,<B>).TX(Oib}` Y
..TX(O N,A,<B>).TX(Oic KW ,H"h
IFNB <>,h,<
PRINTX (Fro-m GLXVER)
> ;EN D IFNB
ic Mt +"`
PRINTX +(GLXVER GLXTXT Edi+Ht(35) by AWC on 9+h-Nov-79
PRINTX , GLXTXT Actua l Edit(A)
ic!h P ic!k Q ` ic!kPQ @ ic!l Q ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP 'ic!lyP ic!lyQ ic$YP ic$cHQ E ic$cHQ @ ic$cIQ E` ic$cIQ ic$cJQ ic$cKQ @ ic$cKQ ic$cPQ D` ic$cQQ ic$cQQ ic$cRQ ` ic$cRQ ic$cSQ ic$cTQ ` ic$cTQ @ ic$cUQ D ic$cUQ D@ ic$cVQ D ic$cVQ C` ic$cWQ ` ic$cWQ @ ic$cXQ ic$cXQ ic$cYQ ic$cZQ ic$cZQ @ ic$c[Q @ ic$c[Q ` icP a
..TX(Z ,A,<B>)..TX(ZicT Ym
..TX(Z A,A,<B>).TX(ZicTP Ye
..TX(Z E,A,<B>).TX(ZicU` i
..TX(Z N,A,<B>).TX(Zm6 P $ am?p P $ mK c@ E({! BYTE (3)A4WHO (9)AVER (6) AMIN (18)AEDTo& h8~C <^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 0
.TIC==. .Z
..Z==..Z+1=q? )YM
TXC A, <B>
TXC A,q@ ,0ze IFB <C>,<,PA==:B> IFNB <C >,<A=:B>B <Cup ~y}
IFNB <B>,<..STR1 (..TQZ8,,<B>,A,..STR4)X>
IFB <B>,<SE TZM A><B>,<SEuh P $ a ;z IL
.$RESETi
$TYPE (.CMACT)
$HELP (<>)
$(NEXT (A)
IFIDN H<B> <>,< IRP C,h<C>
.$BUILD>
IFDIF <B> <>,<(
$HELP (B)
IHRP C,<C>
.$BU ILD><C>
.$BU 0 9
.WTOX.(.OMYACK,<A>,<B>,<Cx>,<D>,<$WTFLG(WT .SJI),E>)LG(WT J7 T!$ DEFINE .$RTATN <A>
.%RTN ==1A>
.%RTN fI9 PA DEFINE .$LPaST <A+1>
.%L ST==11>
.%L
=Z 9#
IFG YA-INT.LV,<PRINTX x?Level A interrupts not supported8>
.BGINT.(\A ) .BGINT.(\A X5 Ra DEFINE .$BSREA <A>
.%BR EA==1>
.%BR - A
IFDEF9 ..BSIZ,<PRINTX ?XMissing $EOB aftexr a $BUILD>
..BSIZ==0
.8.BLOC==.
RXEPEAT A,<
xBLD0.(\..BSIZ,0)
..BSIZ==..BSI Z+1>
==..BSI }[0 )
.$RESETI
$TYPE (.CMCMA)h
$NEXT (A)
IRP B,<B>
.$BU ILD,<B>
.$BU I@ ~iz
.$RESET
$TYPE (.CMCFM)(
IRP A,<A>
.$BUILD,<A>
$^ IT
.$RESETi
$TYPE (.CMTXT)
$HELP (<>)
$ (NEXT (A)
IFIDN H<B> <>,< IRP C, h<C>
.$BUILD>
IFDIF <B> <>,<
(
$HELP (B)
I
HRP C,<C>
.$BU ILD><C>
.$BU H ) 7Nx
.PSECTY DATA
A: BLOCKx B
.ENDPS
B
.ENDPS
x . 1 I `
.$RESET )
$TYPE (.CMTAD) H
$PDATA (CM%IDA h)
$NEXT (A)
IRP B,<B>
.$B UILD,<B>
.$B ,,U 9-
$RET Y ;WILL INVOKE R IGHT ROUTINE
,h: Naz DEFINE .$DOEFM <POINT 7,[ASCO IZ\A\]>
.%DE FM==1>
.%DE .` )@
.$RESETI
$TYPE (.CMDEV)h
$NEXT (A)
IRP B,<B>
.$BU ILD,<B>
.$BU Lz: m)|
.$RESETmI
$TYPE (.CMNUX)mh
$PDATA (B)
n$HELP (<>)
$NEXn(T (A)
IFIDN <CnH> <>,< IRP D,<Dnh>
.$BUILD>
IoFDIF <C> <>,<
o($HELP (C)
IRP oHD,<D>
.$BUILD ><D>
.$BUILD N i
.$RESET
$TYPE (.CMDIR) (
$NEXT (A)
I HRP B,<B>
.$BU ILD,<B>
.$BU |
F$IFNDE,<PRINTXe
IFN <.-..BLOC>,<8PRINTX ?Address cXhange between $BUxILD and $EOB>
LSTOF.
..8T==0
REPEAT .X.BSIZ,<
BLDx0.(\..T,1)
..T==..T+1 >
8 PURGE ..BSIZ,..XT,..BLOC
LST ON.
LST +y R DEFINE .$ER!RTN <A>
.%ER TN==1>
.%ER , SA DEFINE .$ESaRTN <1B0+A+1>
.%ERTN==1>
H6 I L
$CALL .iSTOP
LSTOF.
JUMP [XWD 0,[ITEXT( (<A>)]
EXP H%%.MOD]
LSTON. .MOD]
LSTON. L[ |)r
.$RESET|I
$TYPE (.CMFLD)|h
$NEXT (A)
$}HELP (<>)
IFIDN }(<B> <>,< IRP C,}H<C>
.$BUILD>}h
IFDIF <B> <>,<~
$HELP (B)
I~(RP C,<C>
.$BU ILD><C>
.$BU MI yi^
.$RESETz
$TYPE (.CMFIL)z(
$HELP (<>)
$zHNEXT (A)
IFIDN zh<B> <>,< IRP C,{<C>
.$BUILD>{(
IFDIF <B> <>,<{H
$HELP (B)
I{hRP C,<C>
.$BU ILD><C>
.$BU dy Lb DEFINE .$FL!LGS <A>
.%FL GS==1>
.%FL ex: i6
.$RESET
$TYPE (.CMFLT)(
$HELP (<>)
$HNEXT (A)
IFIDN h<B> <>,< IRP C,<C>
.$BUILD>(
IFDIF <B> <>,<H
$HELP (B)
IhRP C,<C>
.$BU ILD><C>
.$BU $ Y @O
INTER N A
$DATA(A ,<B>)
ATA(A y 9 1 "
IFDIF <MaA> <>,<
DEFINE N .$HLPM <POINT 7,[N ASCIZ\A\]>
. %HLPM==1>
. &5 ti6
.$RESETu
$TYPE (.CMIFI)u(
$HELP (<>)
$uHNEXT (A)
IFIDN uh<B> <>,< IRP C,v<C>
.$BUILD>v(
IFDIF <B> <>,<vH
$HELP (B)
IvhRP C,<C>
.$BU ILD><C>
.$BU &u I"
.$RESETi
$NEXT (A)
$TYPE (.CMINI)
I(RP B,<B>
.$BU ILD,<B>
.$BU ./ i P
.$RESETi)
$TYPE (.CMKEY)iH
$PDATA (B)
ih$NEXT (A)
IRP jC,<C>
.$BUILD ,<C>
.$BUILD ./ gID
.$RESETgi
$TYPE (.CMKEY)h
$PDATA (A)
h($NEXT (0)
IRP hHB,<B>
.$BUILD ,<B>
.$BUILD />Ky + .WTOX.(.OM9WTR,,,,<A>,<$WTF LG(WT.KIL),B>) 2|p 9% .WTOX.(.OMYLOG,<A>,<B>,<C >,,<D>)B>,<C :/
DEFINE .$NQAXT <A>
.%NXT ==1A>
.%NXT :|KV i8
.$RESET
$TYPE (.CMNOD)(
$HELP (<>)
$HNEXT (A)
IFIDN h<B> <>,< IRP C,<C>
.$BUILD>(
IFDIF <B> <>,<H
$HELP (B)
; h$FLAGS (CM%PO)
IRP C,<C>
.$B UILD><C>
.$B :} r p
.$RESETp)
$TYPE (.CMNOI)pH
$PDATA (<POINTph 7,[ASCIZ\B\]>)
$NEXT (A)
IRq(P C,<C>
.$BUI LD,<C>
.$BUI ;-XR jIf
.$RESETji
$TYPE (.CMNUM)k
$PDATA (B)
k($HELP (<>)
$NEXkHT (A)
IFIDN <Ckh> <>,< IRP D,<Dl>
.$BUILD>
Il(FDIF <C> <>,<
lH$HELP (C)
IRP lhD,<D>
.$BUILD ><D>
.$BUILD >5 w)J
.$RESETwI
$TYPE (.CMOFI)wh
$NEXT (A)
$xHELP (<>)
IFIDN x(<B> <>,< IRP C,xH<C>
.$BUILD>xh
IFDIF <B> <>,<y
$HELP (B)
Iy(RP C,<C>
.$BU ILD><C>
.$BU B$ Lah DEFINE .$DMATA <A>
.%DA TA==1>
.%DA B$YP Oa DEFINE .$DPEFM <POINT 7,<A> >
.%DEFM==1 CYT U* DEFINE .$DU!EFR <A>
.%DE FR==1>
.%DE G-} I
.$RESETi
$TYPE (.CMQST)
$HELP (<>)
$(NEXT (A)
IFIDN H<B> <>,< IRP C,h<C>
.$BUILD>
IFDIF <B> <>,<(
$HELP (B)
IHRP C,<C>
.$BU ILD><C>
.$BU J.@ ,~ J.I ,
JSP T!F,.RETE
LSTO@F.
JUMP ERA$
LSTON.ERA$ Ni `
.NVR==0`9
.ACM==0
IRP A,<
`x ..TSAC(.ACB,A) a
IFN .ACB,<.Aa8CM==.ACM!1B<A>> aX
IFE .ACB,< ax
IFE .NVR,< b
CAIA
b8 LSTOF.
bX JRST b>
bx..PUSH(A,\<.NVR+c1>)>>
IFN .Ac8CM,<
IFE <cX.ACM-17B<T4>>,<.AcxCM==0
$CALL d.SAVET>
IFEd8 <.ACM-377B<.A16>dX>,<.ACM==0
$dxCALL .SAVE8>
e IFE <.ACM-17B<Pe84>>,<.ACM==0
eX $CALL .SAVE4>
ex IFE <.ACM-7B<fP3>>,<.ACM==0
f8 $CALL .SAVE3>
fX IFE .NVR,<
IFE <.ACM-3gB<P2>>,<.ACM==0
g8 $CALL .SAVE2>gX
h IFE <.ACM-gx1B<P1>>,<.ACM==0
$CALL .SAVE1h8>
IFE <.ACMhX-1B<.A13>>,<.ACM=hx=0
$CALL .SVi13>
IFE <.Ai8CM-1B<.A14>>,<.ACiXM==0
$CALL .ixSV14>
IFE <j.ACM-1B<.A15>>,<.j8ACM==0
$CALLjX .SV15>
IFEjx <.ACM-1B<.A16>>,k<.ACM==0
$CAk8LL .SV16>
>kX>
IFN kx.ACM,<
IFEl .NVR,<
CAIl8A
LSTOF.
lX JRST b>
lx .ACB==0
REPmEAT ^D16,<
m8 IFN <.ACM&1B<.mXACB>>,<
..PUSmxH(\.ACB,\<.NVR+1>n)>
.ACB==.ACB+n81>>
IFN .NVnXR,<
PUSH Pnx,[[CAIA
o AOS -.NVR(P)
o8 REPEAT .NVR,<oX..POP(\.NVR)>
ox POPJ P,0]]>p
LSTON.
b: S UPPRESS bb: S N.@ YU
IFNDEyF ..BSIZ,<PRINTX ?$SET without pre 8vious $BUILD>
X IFNB <B>,<..STR x0 (..SET,<C>,B,
A)>
IFB <B
8>,<..STR0 (..SET,
X<C>,FWMASK,A)>
,FWMASK,A)>
a==.
) XWD b-1,b-1
HDEFINE $ETAB <
b==.-a> <
O%| i n
S..A::! $CALL .STOP
L (STOF.
JUMP [XW HD 'A',[ITEXT (< hB>)]
EXP %%.M OD]
LSTON. M O= s)"
.$RESETsI
$TYPE (.CMSWI)sh
$PDATA (A)
t$NEXT (0)
IRP t(B,<B>
.$BUILD ,<B>
.$BUILD O= qi
.$RESETr
$TYPE (.CMSWI)r(
$PDATA (B)
rH$NEXT (A)
IRP rhC,<C>
.$BUILD ,<C>
.$BUILD R
@ x
.$RESET)
$TYPE (.CMTAD)H
$PDATA (<CM%IDhA!CM%ITM>)
$NEXT (A)
IRP B,< B>
.$BUILD,< R/
.
$CALL I T%TEXT
LSTOF h. XCREF
JRST c
..CN..== (0
..KN..==0
H EFLG==1
IRP A h,<..CN..==..CN..+ 1>
IFE <..CN..> (,<SETZ 0,
H EFLG==0>
hIFE <..CN..-1>,<M!OVEI 0,A
!( EFLG==0>
I!HFE <..CN..-3>,<IR!hP A,<
..KN.".==..KN..+1
I"(FE <..KN..-..CN.."H>,<
EFLG="h=0
HRROI# 0,A >>>
IFN <#(EFLG>,<IF1,<
#H PRINTX ?Invali#hd syntax in $TEXT$ parameter A
$( PRINTX >
$H HALT . >
$hFTEXT.(<B>)
%IFN EFLG,<ETEXT.(%($TEXT,<B>)>
c%H:
SUPPRESS%h c
LSTON. c
LSTON. RMY
Il
.$RESET
i
$TYPE (.CMTAD)
$PDATA (CM%ITM
$NEXT (A)
RP B,<B>
.$B UILD,<B>
.$B R}97 Z
.$RESET)
$TYPE (.CMTOK)H
$PDATA (<POINTh 7,[ASCIZ\B\]>)
$NEXT (A)
IR(P C,<C>
.$BUI LD,<C>
.$BUI SN K!\ DEFINE .$TKAYP <A>
.%TYP E==1>
.%TYP W= "
.$RESET)
$TYPE (.CMUQS)H
$HELP (<>)
$hNEXT (A)
$PDATA (B)
IFIDN <C(> <>,< IRP D,<DH>
.$BUILD>
IhFDIF <C> <>,<
$HELP (C)
IRP (D,<D>
.$BUILD ><D>
.$BUILD W \@
.$RESET)
$TYPE (.CMUSR)H
$NEXT (A)
IhRP B,<B>
.$BU ILD,<B>
.$BU ^+@ b
IFE %%.O)TS,<DEFINE $WARN H(MSG) <
$TEXT h(T%TTY,<% ^W6/[%%.MOD]/ MSG>)>>
I(FN %%.OTS,<DEFINEH $WARN (MSG) <
h $TEXT (T%TTY,<% ^W6/IIB+IB.PRG/ ^ (W/[%%.MOD]/ MSG>) >>
$WARN <A> _$r 9E
IFB <YA>,<.WFACD==0
x IFN <0-2>,<.$WACD==0>>
IFNB <8A>,<.WFACD==-1
X IFN <0-2>,<.$WAxCD==.$WACD!<A>>
IFE <0-2>,<DE8FINE .$WACD,<<WO.XACD>B8+[ITEXT (< A>)]>>
>
< _$u {9m
IFB <{YA>,<.WFACK==0
{x IFN <0-2>,<.$WAC|K==0>>
IFNB <|8A>,<.WFACK==-1
|X IFN <0-2>,<.$WA|xCK==.$WACK!<A>>
IFE <0-2>,<DE}8FINE .$WACK,<<WO.}XACK>B8+[ITEXT (< A>)]>>
>
< _$+ m
IFE <.Wm9FMTY>,<PRINTX ?NomX message type in mx$WTBLD>
DEFINE .nEAWTO(SUFFIX,ARGCn8OD),<
IFN .WF'SUnXFFIX',<
IFE <ARnxGCOD-0>,<<WO.'SUFoFIX'>B8+ .$W'SUFFo8IX'>
IFE <ARGCOoXD-1>,<<WO.'SUFFIX8'>B8+ [EXP .$W'SUXFFIX']>
IFE <ARxGCOD-2>,<.$W'SUFFIX'>
>
>
ALLW8TO
EXP 0
EXP 0 _$k ~
IFB <~9A>,<.WFFLG==0
~X IFN <1-2>,<.$WFL~xG==0>>
IFNB <A>,<.WFFLG==-1
8 IFN <1-2>,<.$WFXLG==.$WFLG!<A>>
IFE <1-2>,<DE FINE .$WFLG,<<WO. 8FLG>B8+[ITEXT (< A>)]>>
>
< _%(W Y/
IFB <yA>,<.WFJBN==0
IFN <0-2>,<.$WJB8N==0>>
IFNB <XA>,<.WFJBN==-1
x IFN <0-2>,<.$WJBN==.$WJBN!<A>>
IFE <0-2>,<DEXFINE .$WJBN,<<WO.xJBN>B8+[ITEXT (< A>)]>>
>
< _%YV yq
IFB <
A>,<.WFMFL==0
8 IFN <1-2>,<.$WMF
XL==0>>
IFNB <
xA>,<.WFMFL==-1
IFN$<1-2>,<.$WM
IFE.<1-2>,<DE.MFL>B8+[ITEXT (< A>)]>>
>
< _%] p9
IFB <pYA>,<.WFMTY==0
px IFN <0-2>,<.$WMTqY==0>>
IFNB <q8A>,<.WFMTY==-1
qX IFN <0-2>,<.$WMqxTY==.$WMTY!<A>>
IFE <0-2>,<DEr8FINE .$WMTY,<<WO.rXMTY>B8+[ITEXT (< A>)]>>
>
< _%kr y
IFB <A>,<.WFNOD==0
8 IFN <0-2>,<.$WNOXD==0>>
IFNB <xA>,<.WFNOD==-1
IFN <0-2>,<.$WN8OD==.$WNOD!<A>>
IFE <0-2>,<DExFINE .$WNOD,<<WO.NOD>B8+[ITEXT (< A>)]>>
>
< _%p y .WTOX.(.OMWTO,<A>,<B>,<C >,,<D>)B>,<C _%xU xYW
IFB <xyA>,<.WFOBJ==0
y IFN <0-2>,<.$WOBy8J==0>>
IFNB <yXA>,<.WFOBJ==-1
yx IFN <0-2>,<.$WOzBJ==.$WOBJ!<A>>
IFE <0-2>,<DEzXFINE .$WOBJ,<<WO.zxOBJ>B8+[ITEXT (< A>)]>>
>
< _%xr [
IFB < 9A>,<.WFOCD==0
X IFN <0-2>,<.$WOC xD==0>>
IFNB <
A>,<.WFOCD==-1
8 IFN <0-2>,<.$WO
XCD==.$WOCD!<A>>
x
IFE <0-2>,<DE FINE .$WOCD,<<WO. 8OCD>B8+[ITEXT (< A>)]>>
>
< _%z@ 9 .WTOX.(.OMYWTO,<A>,<B>,<Cx>,,<$WTFLG(WT.JOB ),D>)LG(WT.JOB _%|@ Y
.WTOX.(.OMyWTR,<A>,<B>,<C >,<D>,<E>)<C _&,z pu
DEFINE oy.EAWTO(SUFFIX),<$YWT'SUFFIX' <>>
ALLWTO
_&N uyA
IFB <vA>,<.WFTXT==0
v8 IFN <2-2>,<.$WTXvXT==0>>
IFNB <vxA>,<.WFTXT==-1
w IFN <2-2>,<.$WTw8XT==.$WTXT!<A>>
IFE <2-2>,<DEwxFINE .$WTXT,<<WO.xTXT>B8+[ITEXT (< A>)]>>
>
< _&N8 s+
IFB <s9A>,<.WFTYP==0
sX IFN <2-2>,<.$WTYsxP==0>>
IFNB <tA>,<.WFTYP==-1
t8 IFN <2-2>,<.$WTtXYP==.$WTYP!<A>>
IFE <2-2>,<DEuFINE .$WTYP,<<WO.u8TYP>B8+[ITEXT (< A>)]>>
>
<
t{ P
u[rQ ]>t2
u}P
,M P 1 )0 < 0 [Vg Z6 ^I8
d^i==<FLD(.$TYP,CM%F_NC)>!.$FLGS!<.$LS_(T>
IFN <.%BR_HEA>,<d==d!CM%BR_hK>
IFN <.%HL`PM>,<d==d!CM%HP`(P!CM%SDH>
`H
IFN <.%DEFM`h>,<d==d!CM%DPP>a
c: XWD b,a(a
EXP d aH
EXP .$DATAah
IFN <.%HLPbM!.%DEFM!.%BREA>,b(<
EXP .$HLPM> bH
IFN <.%DEFbhM!.%BREA>,<
EXcP .$DEFM>
c(IFN <.%BREA>,< EXcHP .$BREA>
cha==.-c ;LENGTHd OF THE FDB
IFd(N <.%NXT!.%DEFR!.dH%RTN!.%ERTN>,< EXdhP .$NXT >
IFNe <.%DEFR!.%RTN!.%e(ERTN>,<EXP .$RTN eH>
IFN <.%DEFReh!.%ERTN>,< EXP .$fERTN>
IFN <.%f(DEFR>,< EXP .$DEfHFR>
b==.-fhc
IF2< PUgRGE a,b,c,d>
LISTb,c,d> POINT 7,[A SCIZ\0\]NT 7,[A $YY @ 0
Qm .- 8 : 01[PuyS 5Iy p 0 01[v=3 f= 6 0+1[Lt;Z w
SALL
Y)XLIST
DEFINE .$YHTYP <0>
.%TYPE=Yh=0
DEFINE .$FLGZS <0>
.%FLGS==0Z(
DEFINE .$DATA ZH<0>
.%DATA==0
Zh DEFINE .$HLPM <>[
.%HLPM==0
DE[(FINE .$DEFM <0>
[H .%DEFM==0
DEFI[hNE .$LST <0>
.%\LST==0
DEFINE .\($BREA <0>
.%BRE\HA==0
DEFINE .$N\hXT <0>
.%NXT==0]
DEFINE .$ERTN ](<0>
.%ERTN==0
]H DEFINE .$RTN <0>]h
.%RTN==0
DEF^INE .$DEFR <0>
.%DEFR==0<0>
K@ > 0zZ_
QkR ' @ 0T:1, )0P i $YVP $YYP .-P 5IyP f= P w
..ASy1==-<B>
IFDEF .PSECT,<
.IFN 8..AS1,ABSOLUTE,<
C A,[-..xAS1]>
.IF ..AS 1,ABSOLUTE,<
. 8.AS2==0
IFE X<..AS1&^O777777B1 x7>,<
..AS2==1
DI A,..A
8S1>
IFE ..AS2
X,<
..OP(A,
xB,C)>
PURGE ..AS1,..AS2>>
I 8FNDEF .PSECT,<
X ..AS2==0
IF xE <..AS1&^O777777
B17>,<
..AS2==
81
DI A,.
X.AS1>
IFE ..A
xS2,<
(A,..OP)>
PUR GE ..AS1,..AS2> : h g
A # : zY !
..CX1zy==C
IFDEF .PSE{CT,<
.IFN ..CX{81,ABSOLUTE,<
{X CAMA B,[C]{x>
.IF ..CX1,ABS|OLUTE,<
..CX2|8==0
IFE <..C|XX1&^O777777B17>,<|x
..CX2==1
} CAIA B,C>
}8 IFE ..CX2,<
CAMA B,[xC]>
PURGE ..CX1,..CX2>>
IFNDEF8 .PSECT,<
..CXX2==0
IFE <..xCX1&^O777777B17>,<
..CX2==1
8 CAIA B,C>
IFE ..CX2,< x
CAMA B,[C]>
PURGE ..CX 1,..CX2>GE ..CX :&@ vyC
..TSIZ w(..PST,C)
.CASw8E ..PST,<<
MOVwXEM A,B>,<
HRwxRM A,B>,<
HRxLM A,B>,<
DPx8B A,[POINTR (B, C)]>>INTR (B, :<;Y M9o
DEFINMYE ..CNS2 (NEW,OLDMx)<
OLD>
..CNS ()>
:L;Y Kg
DEFINK9E ..CNS (ARG)<
KX..CNS2 <ARG>,>
Kx
DEFINE ..CNS2L (NEW,OLD)<
DEFL8INE ..CNS (ARG)<
..CNS2 <ARG>,Lx<OLD'NEW>>>
OLD'NEW>>>
:dH@ sY)
..TSIZ sy(..PST,C)
.CAStE ..PST,<<
MOVt8E A,B>,<
HRRtXZ A,B>,<
HLRtxZ A,B>,<
LDBu A,[POINTR (B, C)]>>INTR (B, :}i1 29
A==<<<2Y-<B>>&<B>>&<1B< ^L<B>>>>>&<1B< :~
==..OP1
IFDEF .PSECT,<
.IFN ..OP81,ABSOLUTE,<
X C A,[..OP1]x>
.IF ..OP1,ABSOLUTE,<
..OP28==0
IFE <..OXP1&^O777777B17>,<x
..OP2==1
CI A,..OP1>
IFE ..OP2,< X
C A,[..OxP1]>
PURGE ..OP1,..OP2>>
IFNDE8F .PSECT,<
..OXP2==0
IFE <.x.OP1&^O777777B17>,<
..OP2==1
8 CI A,..OP1X>
IFE ..OP2,<x
C A,[..OP1]>
PURGE .. OP1,..OP2>GE .. ;| q9
POP P,qY.NVA
PURGE .NqxVA
.NVR==.NVR -1
.NVR==.NVR ;\t pY
PUSH Ppy,A
.NVB==A
.NVR==.NVR+1 ; ] e
IFGE 9<<<B>&777777>-.. XBSIZ>,<
PRINTX x ?WORD offset gre
ater than $BUILD
8size parameter>
X SET0. (\<B>, C,<A>)
B>, ; LH 8yW
IFNDEF 9C,<PRINTX C IS 98NOT DEFINED
9XA (<B>,D,FWMASK9x)>
IFDEF C,<
IFNDEF %C,<
:8 A (<B>,D,C):X>
IFDEF %C,<
%C (A,<B>, D,C)>>A,<B>, ; LH ;9
..NS==0;Y
IRP C,<..N;xS=..NS+1>
IFE <..NS,<PRINTX ?EMP<8TY STRUCTURE LIST<X, A>
IFE ..NS-<x1,<
..STR0 =(A,<B>,<C>,D)=8>
IFG ..NS-1,< =X
..ICNS
.=x.CNS (<E (A,<B>>,,>)
IRP C,<>8
IFNDEF C,>X<PRINTX C NOT DE>xFINED>
IFDEF ?C,<
IFNDEF %?8C,<
..CNS (<?X,C,D>)>
IF?xDEF %C,<
%C@ (..STR2,,D,C)>@8
..CNS (<)>)@X
..GCNS
@x ..ICNS
.A.CNS (<E (A,<BA8>>)
IFNDEF %AXC,<
..CNS (<Ax,C,D>)>
IFBDEF %C,<
%CB8 (..STR2,,D,C)>BX>>
..CNS (<,,) >)
..GCNS>) ; LI C
..CNS ( <,C,B>).CNS ( ; LI CY/
IFDIF <CyD><F>,<
IFNDB <D>,<
AD8 (<B>,D,..MSK) DX
IFNB <F>,Dx<PRINTX C AND EE ARE IN DIFFERENTE8 WORDS>>
..MSEXK==0>
IFNB <ExF>,<
..MSK=.. MSK!<E>>MSK=.. ; LJ F9?
IFDIF <FYD><F>,<
IFFxNB <D>,<
GA (<B>,D,..MSK)G8>
..MSK==0> GX
IFNB <F>,<
Gx ..MSK=..MSK!< E>>MSK=..MSK!< ; LJ H9U
IFDIF <HYD><F>,<
IFHxNB <D>,<
IIFNB <F>,<
I8A1 (B,D,..MSK)>IX
IFB <F>,Ix<
A2 (B,DJ,..MSK)>>
..J8MSK==0>
IFNB JX<F>,<
..MSK= ..MSK!<E>>MSK= ;& @
..TSIZ 9(..PST,C)
.CA XSE ..PST,<<
SE xTZM B>,<
HLLZS B>,<
HRRZ8S B>,<
..TSXAC (..ACT,B)
x .IF0 ..ACT,<
$CALL .ZERO
8LSTOF.
JUMP [PXOINTR(B,C)]
xLSTON.>,<
..TX (Z,B,C)>>>TX ;&81 .y
IFNDEF /.PSECT,<
A==0 /8
..TSA1==<Z /XB>
IFE ..TS/xA1&^O7777777777600,<A==1>
>
I08FDEF .PSECT,<
0XA==0
..TSA1=0x=<Z B>
.IF .1.TSA1,ABSOLUTE,< 18
IFE ..TSA1&^1XO777777777760,<A1x==1>>
PURGE .. TSA1>
PURGE .. ;&:= -9s
A==3 -Y
IFE <B>+1,<-xA=0>
IFE <B>-.^O777777,<A==1> .8
IFE <B>-^O777 777B17,<A==2>7 ;' Y+
..TX1y==C
IFDEF .PSECT,<
.IFN .8.TX1,ABSOLUTE,<
X TDA B,[C]>
.IF ..TX1,ABSOLyUTE,<
..TX2==90
IFE <..TX1&Y^O777777B17>,<
x ..TX2==1
TRA B,..TX1>
8IFE ..TX2,<
IXFE <..TX1&^O77777y7>,<
..TX2==1
TLA B,(.8.TX1)>>
IFE ..TXX2,<
IFE <<x..TX1>B53-^O77777 7>,<
..TX3 8 (A,B)>>
IFE X ..TX2,<
TD xA B,[..TX1]>
! PURGE ..TX1,..TX!82>>
IFNDEF .PSEC!XT,<
..TX2==0
IFE <..TX1&^O77"7777B17>,<
.."8TX2==1
TRA"X B,..TX1>
IFE "x..TX2,<
IFE <#..TX1&^O777777>,<#8
..TX2==1
#X TLA B,(..TX1#x)>>
IFE ..TX2,<$
IFE <<..TX$81>B53-^O777777>,<$X
..TX3 (A$x,B)>>
IFE ..T%X2,<
TDA %8B,[..TX1]>
PUR GE ..TX1,..TX2> ;'` %yA
IFIDN <&A><Z>,<
..&8TX2==1
ANDI &XB,^-..TX1>
IFI&xDN <A><O>,<
' ..TX2==1
'XOR'8CMI B,^-..TX1>
IFIDN <A><C>,<'x
..TX2==1
( EQVI B,^-..TX 1>QVI B,^-..TX
0 P
@ P
P P
` P d [Y]
.ACV2 ( A)
.ACV2 ( d@ \g
A=.FPA\9C+..NAC
IFB <\XB>,<..NAC=..NAC+\x1>
IFNB <B>,<. .NAC=..NAC+B>. d` ]9u
IFG A-]Y.NPAC,<PRINTX ?TO]xO MANY ACS USED>
IFLE A-4,<
^^8 $CALL .SAVEA>
IFG A-4,<
$CALL .SAVE8>
=Z y' JSR I%INT A JSR I%INT 9 +9e
..CSN==+YA
..CSC==0
I+xRP B,<
IFE ..C,SN-..CSC,<
ST,8OPI
..CAS1 (,XB)>
..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 l,UP S@P ,<H }s
..PST==}9C-FWMASK
.IF0 }X..PST,<
SOS B}x>,<
$CALL .SO~S
LSTOF.
J~8UMP [POINTR(B,C )]
LSTON.>C } l9y
.OPCD==.OPCD+1
WO.A== .OPCD
G),<
$j6p %I7p &=p P `P &2 *W
..IFT==*9A
IFE ..IFT,*X<
B
..IFT==0*x>
IFN ..IFT,<
C>N ..IFT,< &t<H z[
..PST==z9C-FWMASK
.IF0 zX..PST,<
AOS Bzx>,<
$CALL .AO{S
LSTOF.
J{8UMP [POINTR(B,C )]
LSTON.>C &tj7Q: ? 6MiTQ @ 7 ;rp 7 7 H:p z 7 kp v 7 N8p = ;`P z ;-J7P# ?$(:P B ?$*7P P ?$9P B ?$HVP ?%VP ?%+qP ?%LP ?%X<P ?%[ZP ?%hzP ?%kzP ?%|P ?& P ?&
0 P O +9
IFG A-B MX.PID,<MX.PID== A>
C
G A- OSP OYP O|P O yP O%=H Py
.STKV2 (A)
.STKV2 O%=I Q9
IFB <BQY>,<..STKN==..STKNQx+1>
IFNB <B>,<R..STKN==..STKN+BR8>
..STKQ==..STKRXN+1
.STKV3 (A, \..STKQ)V3 (A, O%=I S#
IFDEFS9 A,<.IF A,SYMBOSXL,<PRINTX STKVAR SxA ALREADY DEFINETD>>
DEFINE A<-T8^OB(P)>
$A==< Z A>>
$A==< RJP RJ4`P RJ5 P RJ5`P RL^P RMDkP RMX<P RNd
P RNe(P RNe)P Sd W9
.TRV2 ( A)
.TRV2 ( Sd@ WYC
.TRV3 (WyA,\..NV)
IFB X<B>,<..NV=..NV+1X8>
IFNB <B>,<.. NV=..NV+B>,<.. Sd` XyQ
IFDEFY A,<.IF A,SYMBOY8L,<PRINTX TRVAR YXA ALREADY DEFINEDYx>>
DEFINE A<^OZB(.FP)>
$A==< Z A>>
$A==< _%~ yI
$CALL I%WTO
LSTOF.8
JRST g
$WTRST
IFxNB <A>,<$WTMTY (<A>)>
IFNB <8B>,<$WTTYP (<B>)X>
IFNB <C>,<$xWTTXT (<C>)>
IFNB <D>,<$WTOBJ8 (<D>)>
IFNB X<E>,<$WTACK (<Ex>)>
IRP F,<F>
$WTBLD
g: LSTON. kP P >}{woP