Trailing-Edge
-
PDP-10 Archives
-
BB-FT68E-SM
-
exec/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,5 d@ P C4 @ k]
..NAC==k10
IRP A,<
kP .ACV1 (A)>
.ACV3 (\..NAC)C' ) ..AS(A,B ,ADD,SUB)(A,BC, wx? LSH A,-^D 9 LSH A,-^DC2f} z1e
.EAWTO(zQMTY,0)
.EAWTO(TzpYP,2)
.EAWTO(TX{T,2)
.EAWTO(OBJ{0,0)
.EAWTO(ACK,{P0)
.EAWTO(FLG,1{p)
.EAWTO(NOD,0)|
.EAWTO(JBN,0)
.EAWTO(ACD,0)
|P .EAWTO(OCD,0)
.EAWTO(MFL,1)
C:' 9QM
TXZ A, <^-<B>>TXZ A,CR/
DEFINE BXTEXT.(OPCODE,NEWB0)<
OPCODE <A,< NEW>>>ODE <A,<E2"@ !Q
IFE !qB,<..TA==0>
"IFN B,<EXP ..TA"0
PURGE ..T A>
PURGE ..TE@tP 'E@v yQ ~ E@v:=Q | F; z:Q @ G@ q
..C X(,A,B) ..CGD Q
..C X(A,A,B) ..CGDP Q }
..C X(E,A,B) ..CGDp
..C X(G,A,B) ..CGDy Q
..C X(GE,A,B) ..CGE@ Q u
..C X(L,A,B) ..CGEI y
..C X(LE,A,B) ..CGE`
..C X(N,A,B) ..CGx ZZ==ZZ+1GH :]
LS:QTOF.
X CRE
:q X GEN
X1PRT
X CLS
X AUT ;
X USW
X SPL;0
X SIZ
X ;PMOD
X CHN
LSTON.
G"\Y [ n
IF1, [(<%%EDT==AEDT>
[H
IF2, <IFN <%%E[hDT-AEDT>,<
PR\INTX ? Edit Numbe\(r Doesn't Match G\HLXVER in GLXA
\h A$WHO(\AEDT)> ]
A$NOTE
I](NTERN AEDT
I]HNTERN LODLEV
;]h PURGE %%EDT> ;EN D IF2
P G4-ZQ G:YlP
G>hKW L $d
IFNB <>L ,<
PRINTX (FroL@m GLXVER)
> ;EN D IFNB
G>hMt J@$\
PRINTX J`GLXVER GLXCOM EdiK t(32) by PJT on 9K -Jul-79
PRINTX K@ GLXCOM Actua l Edit(A)
G>lYP LALL
PAGE@(; (A Continued o@Hn next page)
SAL@hL;(A Continued Afrom previous pag e) previous pagG?p P $ GHt;rP GHtkP GHv P GHv)9P GHv:=P GR/
DEFINE ?1XTEXT.(OPCODE,NEWA1)<
OPCODE <<NEW >>>OPCODE <<NEWI!k7P I!k<P I m P I$P 'p IY{P .I
1i
IFNB <
QB>,<..STR0 (.DECR
p0,,<B>,A)>
IF<B>,<SOS A> <B>,<SOS A>I6= CQ1
A==<-1CqB<C>+1B<C-D>> D
IF1,<IFDEF %AD0,<PRINTX ?A ALREDPADY DEFINED>>
DDpEFINE %A (OP,AC,EY,MSK)<
IFDIF E0<Y><>,<
OP (<ACEP>,B+'Y,MSK)>
EpIFIDN <Y><>,<
OFP (<AC>,B'Y,MSK) >>AC>,B'Y,MSK)I'7 Q= ..OP(A,B ,DIV)..OP(A,BI?p P & IOH1 ,!l
IFB <D,A>,<
XWD [ASCIZ\,`C\],[XWD B,A]>-
IFNB <D>,<
- XWD [EXP CM%FW!D-@
ASCIZ\C\],[X WD B,A]>
,[XIR/
IFN TFLD1G,<
DEFINE TXT1.DP(A,B,C,D,E,F,G,H,DpI,J,K,L,M,N,O,P,QE,R,S,T,U,V,W,X,Y,E0ZZ,A1,B1,C1,D1,E1EP)<
A+[ASCIZ\A'BEp'C'D'E'F'G'H'I'J'FK'L'M'N'O'P'Q'R'SF0'T'U'V'W'X'Y'ZZ'AFP1'B1'C1'D1'E1\]
Fp>>
IFE TFLG,<
DGEFINE TXT1.(A,B,CG0,D,E,F,G,H,I,J,K,GPL,M,N,O,P,Q,R,S,TGp,U,V,W,X,Y,ZZ,A1,HB1,C1,D1,E1)<
IH0FE ZFLG,<
OPDEFHP OPC [A]
OPC A'HpB'C'D'E'F'G'H'I'JI'K'L'M'N'O'P'Q'R'I0S'T'U'V'W'X'Y'ZZ'IPA1'B1'C1'D1'E1
Ip>
IFN ZFLG,<
JOPDEF OPC [ZFLG+J0A]
PTEXT.(A'B'C'JPD'E'F'G'H'I'J'K'LJp'M'N'O'P'Q'R'S'T'KU'V'W'X'Y'ZZ'A1'BK01'C1'D1'E1)
>
KP>>
IFE A&TXT.KpNA,<
.CREF
LXTEXT. TEXT.
L0.XCREF
>
IFN LPA&TXT.NA,<
EXPLp A
>
IFN MA&TXT.S,<
IFE SM0CHAR,<SCHAR==" ">MP
IFE SSIDE,< IFMpE TXTF.D-<A&TXT.NM>,< SSIDE==TXT.SN0R>>
IFE SSIDE,<NP IFE TXTF.O-<A&TNpXT.M>,< SSIDE==TXOT.SR>>
IFE SSIDO0E,< SSIDE==TXT.SLOP>
EXP <<INSVL.(OpSCHAR,TXT.SC)>+<IPNSVL.(SSIDE,TXT.SP0S)>+<INSVL.(SWIDTPPH,TXT.SP)>>
SSIPpDE==0
SWIDTH==0Q
SCHAR==0
>
Q0CTEXT.
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 91M
ERA$==9QER%%%
ER%%%==ER %%%+1
R%%%==ERKK,}P KK|Y *G
ERR EOF*1,<End Of File>
*PERR IFP,<Illegal *pfile position>
+ERR FDE,<File Dat+0a Error>
ERR FN+PD,<File is not on+p disk>
ERR NSD,,<No such device>
ERR FCF,<File c,Pheckpoint failed>,p
ERR SLE,<A Sys-tem Limit Was Exc-0eeded>
ERR IFS,-P<Illegal File Spe-pcification>
ERR. FNF,<File Not Fo.0und>
ERR PRT,<P.Protection Violati.pon>
ERR DNA,<De/vice Was Not Avai/0lable>
ERR NCE,/P<No "current" ent/pry in list>
ERR0 NMA,<No IPCF mes00sage is available0P>
ERR FDS,<File0ps are on differen1t structures>
E10RR FAE,<File alre1Pady exists>
ERR1p USE,<Unexpected 2System Error>
E20RR NSP,<No Such P2Pid>
ERR BOL,<Be2pginning of list r3eached>
ERR EOL30,<End of list rea3Pched>
ERR RQF,<3pReceiver's quota 4full>
ERR SQF,<40Sender's quota fu4Pll>
ERR NRE,<No4p Remembered Entry5>
ERR TBF,<The 50Command Table is 5Pfull>
ERR EIT,<5pEntry already exi6sts in the table>60
ERR ITE,<Inval6Pid Table Entry>
6p ERR QEF,<Quota E7xceeded or Disk F70ull>
ERR ARG,<I7Pnvalid Argument>
ERR UJI,<Invali8d I%JINF Function80>
ERR IJN,<Inva8Plid Job Number Sp8pecified for I%JIN F>
d for I%JINKKBP
KK I"P KK BP
KK$)BP R KK-*"P KK.9"P KR/
IF1,<
R1IFN EFLG&1,<PRINTRPX ?Uknown qualifiRper in A call of SB
PRINTXS0
>
IFN EFLG&2,SP<PRINTX ?Bad spacSping specificationT in A call of BT0
PRINTX
TP>
IFN EFLG&4,<PTpRINTX ?Premature Uend of text in AU0 call of B
UP PRINTX
>
IFUpN EFLG&10,<PRINTXV ?Bad address in V0A call of B
VP PRINTX
>
VpIFN EFLG&20,<PRINWTX ?Variable addrW0ess too long in WPA call of B
Wp PRINTX
>
IXFN EFLG&40,<PRINTX0X ?Spacing on I qXPualifier in A caXpll of B
YPRINTX
>
> ;END OF IF1
> ;ENDKc =H{n IRP A,<
=h 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 G $>
IFNB <>G@,<
PRINTX (FroG`m GLXVER)
> ;EN D IFNB
M&`Mt E`$6
PRINTX F GLXVER GLXFIL EdiF t(47) by MLB on 1F@2-Sep-79
PRINTXF` GLXFIL Actu al Edit(A)
M&dYP M2 {Y <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/' bq9
c SFLG==0
c0STYP==0
IFIcPDN <A><^>,<STYP=cp=TXTF.2>
IFE SdTYP,<IFDEF TXTF.d0A,<STYP==TXTF.A>dP>
IFE STYP,<EFLdpG==EFLG!1>
IFeN STYP&TXT.NA,< e0
DTEXT.(STePYP)
IFLGep==3
>
f IFE STYP&TXT.NA,f0<
IFLG==1fP
AFLG==1fp
SWIDTH=g=0
>
ZFLG==0
MR/G gQ]
IFIDgqN <A></>,<
h AFLG==0
h0 IFLG==3
hP DTEXT.(STYP) hp
> i
IFN AFLG,< i0
XTEXT. AiPTEXT.,<A>
ipAFLG==AFLG+1
j IFE AFLG-^D31j0,<EFLG==EFLG!20> jP
IFIDN <A>jp<,>,<
IFN ZFkLG,<EFLG==EFLG!10k0>
ZFLG==TXT.PkP
>
>
>MR/g lu
IFl1E IFLG-3, <
lP IFLG==0
lp >
IFE ImFLG-2,<
m0IFLG==0
mPIFDIF<A></>,<FTEmpX4.(<A>)>
n>
IFE IFLG-1n0,<
IFLG=nP=2
>
/> oO
Eo1FLG==EFLG!2
oP IFE SSIDE,< op
IFLE "0"-"pA",<
IFGE "p09"-"A",<SWIDTH==pPSWIDTH*^D10+^DA pp
IFE STYP-TqXTF.I<EFLG==EFLG!q040>
STYP==qPSTYP!TXT.S
qp EFLG==EFLG&<^-2>r
>
>r0
>
rPIFIDN <A><R>,< rp
IFN SWIDTsH,<
SSIDE==s0TXT.SR
EFLG=sP=EFLG&<^-2>
sp >
t>
IFIDN <t0A><L>,<
tptP IFN SWIDTH,<
SSIDE==TXT.SL u
EFLG==EFLG&<u0^-2>
>uP
>
up IFIDN <A><C>,v<
IFN SWv0IDTH,<
SSIDvPE==TXT.SM
EFvpLG==EFLG&<^-2>
w >
w0 >
IFN wPSWIDTH, <
IFwpN SSIDE,<
IxFN EFLG&2,<
x0 IFE SCHAR,< SCxPHAR=="A"
EFxpLG==EFLG&<^-2>
y >
>y0
>
yP >
IFE EFypLG&2,< IFLG==2>
IFLG==2> MR/
TFLG==0[q
AFLG==0
SF\LG==0
IFLG==0 \0
ZFLG==0
EFL\PG==0
SCHAR==0
\p SWIDTH==0
SSID]E==0
CTEXT.
]0IRPC A,<
I]PFN SFLG,<
FTEX]p1.(<A>)
>
I^FE SFLG+AFLG+IFLG^0,<
IFIDN <A>,<^P^>,<
IFN TFLG,<^pDTEXT.(TXTF.3)>
_SFLG==1
>
IFE_0 SFLG,<
IFE ^D2_P9-TFLG,<
DTEXT.(_pTXTF.3)
>
TFLG`==TFLG+1
XTEXT.`0 ATEXT.,<A>
> `P
>
IFE SFLG+IF`pLG+TFLG,<
FTEX2a.(<A>)
>
IFNa0 IFLG,<
FTEX3.(<aPA>)
>
>
IFNap TFLG,<DTEXT.(TXTbF.3)>
IFN AFLG+Sb0FLG+IFLG,<EFLG==E FLG!4>
FLG==EMRV>9Q MS.[yP M^l uQ O2| >({| IRP A,<
>H IF2,<IFDEF A,<.>hIFN A,EXTERN,<IN?TERN A>>
?(IFNDEF A,<EXTERN?H A>
Q SUPPR ESPA>>FlYSUPPRO3DYP F+O3EKrPf+O3EZ7P O3F\Yp Stkp SuZp Su}:p Sv
1p Sv
Sp Sv>@p SNn 9 ..OP(A,B ,IDIV).OP(A,BS7-N 1 ..OP(A,B ,IMUL).OP(A,BS: 1Q
IFNB < QB>,<..STR0 (.INCR p0,,<B>,A)>
IF
B <B>,<AOS A> <B>,<AOS A>S:HKW Q %
IFNB <>Q ,<
PRINTX (FroQ@m GLXVER)
> ;EN D IFNB
S:HMt O@%
PRINTX O`GLXVER GLXINI EdiP t(7) by MLB on 3-P Jul-79
PRINTX P@ GLXINI Actual Edit(A)
S:LYP S; k }po <<<A>B<PO S(<B>)>>&<B>>S; KW N@$x
IFNB <>N`,<
PRINTX (FroO m GLXVER)
> ;EN D IFNB
S; Mt M $p
PRINTX M GLXVER GLXINT EdiM@t(47) by MLB on 5M`-Jul-79
PRINTX N GLXINT Actua l Edit(A)
S;!kP S;!k<P S;$YP S? 9I
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 V %6
IFNB <>V@,<
PRINTX (FroV`m GLXVER)
> ;EN D IFNB
SBMt T`%.
PRINTX U GLXVER GLXIPC EdiU t(43) by MLB on 1U@1-Jun-79
PRINTXU` 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/
LSTOF. YqXCREF
FTEXT.Z(<A>)
IFN EFZ0LG,< ETEXT.(ITEXTZP,<A>)> ;IF ERRORZp, DESCRIBE IT
E[XP 0
LSTON. 0
LSTON. Uv98Q x U $@ >A
LS<1TOF.
X JNO,.J<PIJNO,<-1,,GJBJNO><p
X TNO,.JITNO,=<-1,,GJBTTY>
X=0 USR,.JIUNO,.GTPP=PN
X CDN,.JIDN=pO,<-1,,GJBPTH>
> X PRG,.JIPNM,.GT>0PRG
X CJN,.JI>PCPJ,<-1,,GJBCJB> >p
X BAT,.JIBCH,.?GTOBI
X JLT,.?0JISTM,.GTJLT
?PX LOC,<-1,,GJBLOC?p>,.GTLOC
X RTM@,.JIRT,<-1,,GJBRT@0M>
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 D`$*
IFNB <>E ,<
PRINTX (FroE m GLXVER)
> ;EN D IFNB
W
Mt C $"
PRINTX C@GLXVER GLXKBD EdiC`t(24) by MLB on 2D 0-Sep-79
PRINTXD GLXKBD Actu al Edit(A)
W
$YP
WNH1 .x
IFB <C.!>,<
XWD [ASCIZ\.@B\],A>
IFNB <.`C>,<
XWD [EXP / CM%FW!C
ASCIZ \B\],A>
SCIZY"l uQ x Y&i1 Y7
LSTY8OF. XCREF
CDOYX
CDO .YxZPAGA
CDO .ZPAGZN
CDO .ZCHNK
Z8CDO .SAVE1
CDO ZX.SAVE2
CDO .SAVZxE3
CDO .SAVE4
[ CDO .SAVET
CDO[8 .SV13
CDO .SV1[X4
CDO .SV15
C[xDO .SV16
CDO .R\ETT
CDO .RETF
\8 CDO .RETE
CDO \X.AOS
CDO .SOS\x
CDO .ZERO
CDO .POPJ
CDO]8 .STOP
CDO .SAV]XE8
CDO .STKST]x
CDO .TRSET ^
CDO
CDO .^8POPJ
CDO
CD^XO
CDO
CDO
C^xDO
CDO
_CDO C%RPRM
CDO _8C%INTR
CDO C%SE_XND
CDO C%RECV
_x CDO C%BRCV
CDO` C%REL
CDO C%CP`8ID
CDO C%KPID
`X CDO C%SPID
CDO`x C%MAXP
CDO C%PaIDJ
CDO
CDO
a8 CDO
CDO
CDO
CDO ax
CDO F%IOPN
CbDO F%AOPN
CDO Fb8%OOPN
CDO F%IBYbXT
CDO F%OBYT
bxCDO F%IBUF
CDO cF%OBUF
CDO F%REc8L
CDO F%DREL
cXCDO F%RREL
CDO cxF%REW
CDO F%POSd
CDO F%CHKP
Cd8DO F%INFO
CDO FdX%FD
CDO F%REN
dx CDO F%DEL
CDO eF%FCHN
CDO
CDe8O
CDO
CDO
CeXDO
CDO
CDO
exCDO
CDO
CDOf
CDO f8M%ACQP
CDO M%REfXLP
CDO M%IPSN
fx CDO M%NXPG
CDOg M%IPRC
CDO M%Ig8PRM
CDO M%AQNP
CDO M%RLNP
CDgxO M%CLNC
CDO M%hFPGS
CDO M%GMEMh8
CDO M%RMEM
ChXDO
CDO
CDO
hxCDO
CDO
CDO
i CDO M%GPAG
CDOi8 M%RPAG
CDO
CiXDO
CDO
CDO
ixCDO
CDO
CDO
j CDO
CDO j8
CDO T%TEXjXT
CDO T%TTY
CjxDO
CDO
CDO
kCDO
CDO
CDO
k8 CDO
CDO
CDO
CDO
CDO kx
CDO L%CLlST
CDO L%DLST
l8 CDO L%CENT
CDOlX L%CBFR
CDO L%DlxENT
CDO L%NEXT
CDO L%FIRS
CDm8O L%LAST
CDO L%mXPREV
CDO L%PREMmx
CDO L%CURR
CnDO L%RENT
CDO Ln8%SIZE
CDO L%APOnXS
CDO
CDO
CnxDO
CDO
CDO
oCDO
CDO
CDO
o8
CDO I%INI1
CDO I%NOW
CDOox I%EXIT
CDO I%IpON
CDO I%IOFF
p8 CDO I%SLP
CDO pXI%INT1
CDO I%INpxT2
CDO I%INT3
q CDO
CDO
CDO
CDO I%SOPR
CDqXO I%WTO
CDO
CqxDO I%HOST
CDO Ir%JINF
CDO
CDOr8
CDO
CDrXO
CDO
CDO S%SrxIXB
CDO S%CMND
CDO S%TBLK
CDs8O S%SCMP
CDO S%sXERR
CDO S%INTR
CDO S%EXIT
CDtO S%TBAD
CDO S%t8TBDL
CDO
tX CDO K%RCOC
txCDO K%WCOC
CDO uK%SUET
CDO K%STu8YP
CDO K%TXTI
uX CDO K%SOUT
CDOux K%BOUT
CDO K%BvIN
CDO K%BACK
v8 CDO K%TPOS
CDOvX
CDO
CDO
CDvxO
LSTON.
LSTON.
Y:XKW X@%H
IFNB <>X`,<
PRINTX (FroY m GLXVER)
> ;EN D IFNB
Y:XMt W %@
PRINTX W GLXVER GLXLNK EdiW@t(5) by AWC on 6-W`Jun-79
PRINTX X GLXLNK Actual Edit(A)
Y:\YP Y>
@ q
IFNB <C>,<..STR0 (..LDB0,A,C,B)>
IFBP <C>,<MOVE A, B>C>,<MOVE A,Y>%I;P YO%GP YO%yG AH|
IFNDEF AhLSTIN.,LSTIN.==0 B
IFE LSTIN.,<
B( IFIDN <XCREF><ABH>,<.XCREF>
Bh XLIST>
LSTIN .==LSTIN.+1STINYO%{G C(|
IFG LSTCHIN.,LSTIN.==LSTINCh.-1
IFLE LSTIND.,<.CREF
LIST>
[KW ?@$
IFNB <>?`,<
PRINTX (Fro@ m GLXVER)
> ;EN D IFNB
[Mt > #x
PRINTX > GLXVER GLXMAC Edi>@t(142) by MLB on >`3-Oct-79
PRINTX? GLXMAC Actu al Edit(A)
[ YP 1[ 3@ }0k <<<1_<A>> -1>B<B>>_<A>>[ 8@ |0c 1B<<A>-1> -1B<B><<A>-1>[@ TX}1
IFB <BTx>,<MAXSIZ==0
IURP A,<IFG <A-MAU8XSIZ>,<MAXSIZ==AUX>>>
IFNB <B>,<UxB==0
IRP A,<VIFG <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 [ %\
IFNB <>[ ,<
PRINTX (Fro[@m GLXVER)
> ;EN D IFNB
S; KW[hMt Y@%T
PRINTX Y`GLXVER GLXMEM EdiZ t(11) by PJT on 5Z -Jan-79
PRINTX Z@ GLXMEM Actua l Edit(A)
Y[lYP [n:=P [tuQ @ [th:Q [u[yQ [ukvQ [v=3P '[v|WQ [&p VX}E
IFB <BVx>,<MINSIZ==377777W,,777777
IRP W8A,<IFG <MINSIZ-AWX>,<MINSIZ==A>>>
IFNB <B>,<B==X377777,,777777
X8 IRP A,<IFG <B-XXA>,<B==A>>>
A>,<B==A>>>
[>!` |pg <A-<A/B >*B><A-<A/B[?7 ~1 U
..MX1~Q==B
IFDEF .P~pSECT,<
.IFN ..MX1,ABSOLUTE,<
0 MOVE A,[B]>
P .IF ..MX1,ABSOLpUTE,<
..MX2==0
IFE <..MX1>B5 03,<
P..MX2==1
MOVEI A,..MX p1>
IFE ..MX2,<
IFE <..MX1>B017,<
..MX2==1P
MOVSI A,(..pMX1)>>
IFE ..MX2,<
IFE <<..0MX1>B53-^O777777>P,<
..MX2==1
p HRROI A,<..MX1>>>
IFE ..MX20,<
IFE <<..MXP1>B17-^O777777B17p>,<
..MX2==1
HRLOI A,(..M0X1-^O777777)>>
P IFE ..MX2,<
p MOVE A,[..MX1]>
>>
IFNDEF0 .PSECT,<
..MX2P==0
IFE <..MXp1>B53,<
..MX2==1
MOVEI A,0..MX1>
IFE ..MPX2,<
IFE <..MpX1>B17,<
..MX2==1
MOVSI A0,(..MX1)>>
IFEP ..MX2,<
IFE p<<..MX1>B53-^O777777>,<
..MX2=0=1
HRROI A,<P..MX1>>>
IFE .p.MX2,<
IFE << ..MX1>B17-^O77777 07B17>,<
..MX2 P==1
HRLOI A, p(..MX1-^O777777)>
>
IFE ..MX2,<
0
MOVE A,[..
PMX1]>
>
PURGE ..MX1,..MX2RGE[Lt;ZQ x [LvN8P '[NF:=p [N^= FQG
A==C Fq
IF1,<IFDEF %GA,<PRINTX ?A ALRG0EADY DEFINED>>
GPDEFINE %A (OP,ACGp,Y,MSK)<
IFDIFH <Y><>,<
OP (<AH0C>,B+'Y,MSK)>
HP IFIDN <Y><>,<
HpOP (<AC>,B'Y,MSK )>>AC>,B'Y,MSK[PuySP ' [PvNP ' [Vg Q5 ..OP(A,B ,MUL)..OP(A,B[`v
2P ] ;X{_ IF2,<IFDEF;x A,<A==A>> IFN DEF A,<A==B>]F@ / TEMFDB##_
QkRp _
Ql}p _
Qm p _
Qm7p _
T= Eq[
X .OT>RDR,Reader
X .O<TNCU,Network-ContFroller
X .OTLPTEQ,Printer
X .OTBFyAT,Batch-Stream
G X .OTCDP,Card-PuG8nch
X .OTPTP,PaGXpertape
X .OTPLGxT,Plotter
X .OTHJOB,Job
X .OTTRH8M,Terminal
X .OHXTOPR,Operator
XHx .OTIBM,<IBM RemoIte>
X .OTMNT,<DI8evice>
X .OTXFRIX,<File Transfer>
X .OTBIN,<Card JReader InterpreteJ8r>
X .OTRET,<FiJXle Retrieval>
XJx .OTNOT,<RetrievaKl Notification>
K8 X .OTDBM,<DBMS S ystem>
<DBMS S_SKW S`%"
IFNB <>T ,<
PRINTX (FroT m GLXVER)
> ;EN D IFNB
_SMt R %
PRINTX R@GLXVER GLXOTS EdiR`t(3) by DC on 19-S Jun-79
PRINTX S GLXOTS Actual Edit(A)
_S YP _S h6 T!" [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 {QY
..XX=U=<FLD(A,CM%FNC)>Ta+B+<Z F>
U1 IFNB <D>,<..XX=UP..XX!CM%HPP>
Up IFNB <E>,<..XX=V..XX!CM%DPP>
V0 EXP ..XX
VP IFNB <C>,<EXP VpC>
IFB <C>,<WEXP 0>
IFNBW0 <D>,<POINT 7,[AWPSCIZ \D\]>
IWpFB <D>,<0>
XX IFNB <E>,<POINTX0 7,[ASCIZ \E\]>
XpIFB <E>,<0>
IFB <IY>,<0>
IFNB <Y0I>,<EXP I>
YP IFB <J>,<0>
Yp IFNB <J>,<EXP ZJ>
IFB <H>Z0,<0>
IFNB <HZP>,<EXP H>
ZpIFB <G>,<0>
[IFNB <G>,<EXP G >
G>,<EXP Ga@KW I`$R
IFNB <>J ,<
PRINTX (FroJ m GLXVER)
> ;EN D IFNB
a@Mt H $J
PRINTX H@GLXVER GLXPFH EdiH`t(2) by DC on 27-I Jul-79
PRINTX I GLXPFH Actual Edit(A)
aDYP a w8; LSH A,^D9 LSH A,^D9a+= + a>Mm zPW <POINT WIDzp(B),A,POS(B)> B),A,POS(B)>a? y0K <^L<<A>&< -<A>>>><<A>&<aJ}Ks ;8}
DxSALL
ELSTOF. XCREF
TOPS20 <SEARCE8H MONSYM>
TOEXPS10 <SEARCH UUOSExYM>
IFB <B>F,<
GLOB <I%INF8IT>
%%.GLX==:FX%%.GLX
Fx DEFINE $DATA(NAGM,SIZ<1>)<
G8NAM: BLOCK SIZ
GX >
IFN GLXPUGxRE,<.REQUEST GLXIHNI
DEFINE H8..ASGN(A,ADR)<DEFHXINE A<@^O'ADR>>
Hx >
IFE GLXIPURE,<.REQUIRE GLI8XLIB
DEFINIXE ..ASGN(A,ADDR) Ix<GLOB(A)>
>
>
IFNB <J8B>,<
CHKEDT(JXB)
IFIDN <BJx><OTS>,<EXTERN .RKETT,.RETF>
IFK8DIF <B><INI>,<
KX IFN GLXPURE,< Kx.PSECT .HIGH.>
L IFE GLXPURE,<
L8 DEFINE $DATA(NLXAM,SIZ<1>)<
Lx IFNDEF B%D,<B%MD::! B%DL==:0>
M8 NAM: BLOCK SMXIZ
IF1,<B%MxDL==:B%DL+SIZ>
N >
>
GLN8OB <IIB>
DEFNXINE ..ASGN(A,ADDRNx) <GLOB(A)>
>O
IFIDN <B><IO8NI>,<
DEFINE OX..ASGN(A,ADDR) <AOx=ADDR>
>
P>
IFNB <A>,<%%P8.MOD==SIXBIT/A/>PX
IFNB <B>,<%%Px.OTS==SIXBIT/B/>Q
ZZ==VORG
DEQ8FINE CDO (A) <IFNQXB <A>,<..ASGN(A,\QxZZ)>
ZZ==ZZ+1R>
LIBVEC
OPDER8F $RETT [PJRST .RRXETT]
OPDEF $RERxTF [PJRST .RETF]
LSTON.
tP C aPtkP aPuTP aPv=xP aPv\rP aPv|UP aR/
OPC CQA
POINTR(0, B)
POINTR(0,e"l uP'ePv8vP ePv9VP ePv;P fD P fH P gkp gk9p glp glp gltp gl}p g4P oQ PRINTX % Roqeplacing SAVE witph $SAVE
$SA VE <A> $SAgpKW B $
IFNB <>B@,<
PRINTX (FroB`m GLXVER)
> ;EN D IFNB
gpMt @`$
PRINTX A GLXVER GLXSCN EdiA t(37) by MLB on 2A@5-Sep-79
PRINTXA` GLXSCN Actu al Edit(A)
gtYP g"@ "q
'
IFN <<.#.TA>&B>,<PRINTX#0 ?Initial field n#Pot zero in $SET>
$..TVAL==<C>
$0..TMSK==<B>
..TA==..TA!$P<FLD(..TVAL,..TMS$pK)>
PURGE ..T VAL,..TMSK
.Tg#=z @ iH C.SWIT+PDB CPY##C.SWIT+PDBg$tkQ M @ g$u P 'g.N @ 6@ g.N
.SPID (SM!P.QSR,.IPCPQ,.SPQM@SR,QUASAR)
.SPIM`D (SP.OPR,.IPCPO,N .SPOPR,ORION)
.N SPID (SP.INF,.IPCN@PI,.SPINF,INFO)
.SPID (SP.MDA,.IO PCPM,.SPMDA,MDA) O
TOPS10<
.SPID O@(SP.IPC,.IPCPS,,IO`PCC)
.SPID (SPP .ACT,.IPCPA,,ACTDP AE)
.SPID (SP.P@TLP,.IPCPT,,TAPLAP`B)
.SPID (SP.TQ OL,.IPCPC,,TAPAVRQ )
.SPID (SP.DOQ@L,.IPCPD,,DSKAVR)Q`
.SPID (SP.FILR ,.IPCPF,,FILDAE)
>
,FILDAE) gR^h9 ^q
..STKR=_=10
RADIX 8
_0 ..STKN==0
IRP _PA,<
.STKV1 (_pA)>
JSP .SAC,.`STKST
..STKN,,`0..STKN
RADIX ..`PSTKR
PURGE ..ST`pKN,..STKR,..STKQ
gR~TKR,..STKQ
IFNB <1C>,<..STR0 (..DPBP,A,C,B)>
IFBp <C>,<MOVEM A, B>>,<MOVEM A,gV Q- ..AS(A,B ,SUB,ADD)(A,Bgg
V S8}!
IFNB <SXB>,<TOPS10<A==BSx>>
IFNB <C>,<TTOPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hD P hH P hL P hP P iFC@ Bq
TXT1. (A) TXT1. (A)i P i?4( U ( IFN FTUUOS ,B ;DEFINE UNi?4H UA , IFN FTJSYS , INTERN AEDT iG, 6a l
LSTOF.
X(T,TXT.A)
7 X(O,TXT.A)
7@X(D,TXT.A)
X7`(F,TXT.A)
X(8 7,TXT.A)
X(68 ,TXT.A)
X(W,[email protected])
X(5,T8`XT.A)
X(P,TX9 T.A)
X(U,TXT9 .A)
X(H,TXT.9@A)
X(C,TXT.A9`)
X(E,TXT.A):
X(I,TXT.A) :
X(M,TXT.NA) :@
X(J,TXT.NA) :`
X(L,TXT.NA) ;
X(K,TXT.NA) ;
X(A,TXT.NA) ;@
X(0,TXT.NA) ;`
X(3,TXT.A) <
X(V,TXT.A) <
X(2,TXT.NA) <@
X(Q,TXT.A)
X(B,TXT.A)
= X(1,TXT.A)
= X(N,TXT.A)
X=@(R,TXT.A)
LS TON.
)
LSiJnN8 A1'
LSTOF.
AX(33,TTY33,33,) AQ
X(35,TTY35,35>!,)
TOPS20<
AqX(37,TTY37,37,) B
X(EXECUPORT,EB0XEC,EXE,)
>
BPX(LA36,LA36,L36,)Bp
X(VT05,VT05,CV05,<37,177,177,1C077>)
X(VT100,VTCP100,100,<.CHESC,"Cp[","K">)
X(VT50D,VT50,V50,<.CHESCD0,"J">)
X(VT52,DPVT52,V52,<.CHESC,Dp"J">)
LSTON.
">)
LSTON.
iK,P A iK4 @ e19
..TRR==eQ10
RADIX 8
ep..NV==1
IRP fA,<
.TRV1 (f0A)>
JSP .SAC,fP.TRSET
..NV-fp1,,..NV-1
RADIXg ..TRR
PURGE ..TRR,..NVURGE ib .Qu
..TX(C ,A,<B>)..TX(Cib 0
..TX(C A,A,<B>).TX(Cib P /y
..TX(C E,A,<B>).TX(Cib ` /Q}
..TX(C N,A,<B>).TX(Cibp (QE
..TX(N ,A,<B>)..TX(Nibt *Q
..TX(N A,A,<B>).TX(NibtP )I
..TX(N E,A,<B>).TX(Nibu` )QM
..TX(N N,A,<B>).TX(Nibx *QU
..TX(O ,A,<B>)..TX(Oib| ,a
..TX(O A,A,<B>).TX(Oib|P +Y
..TX(O E,A,<B>).TX(Oib}` +Q]
..TX(O N,A,<B>).TX(Oic KW = #l
IFNB <>= ,<
PRINTX (Fro=@m GLXVER)
> ;EN D IFNB
ic Mt ;@#d
PRINTX ;`GLXVER GLXTXT Edi< t(35) by AWC on 9< -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 ,Qe
..TX(Z ,A,<B>)..TX(ZicT .q
..TX(Z A,A,<B>).TX(ZicTP -i
..TX(Z E,A,<B>).TX(ZicU` -Qm
..TX(Z N,A,<B>).TX(Zm6 P $ am?p P $ mK c@ U`|$ BYTE (3)ADHWHO (9)AVER (6) AMIN (18)AEDTo& xpG <^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 @Q
.TIC==. .Z
..Z==..Z+1=q? :Q
TXC A, <B>
TXC A,q@ <h{h IFB <C>,<=A==:B> IFNB <C >,<A=:B>B <Cup 1
IFNB <QB>,<..STR1 (..TQZp,,<B>,A,..STR4)>
IFB <B>,<SE TZM A><B>,<SEuh P $ a ;z (P
.$RESET(!
$TYPE (.CMACT)(@
$HELP (<>)
$(`NEXT (A)
IFIDN ) <B> <>,< IRP C,) <C>
.$BUILD>)@
IFDIF <B> <>,<)`
$HELP (B)
I* RP C,<C>
.$BU ILD><C>
.$BU 0 "q
.WTOX.(.OM#ACK,<A>,<B>,<C#0>,<D>,<$WTFLG(WT .SJI),E>)LG(WT J7 dY' DEFINE .$RdyTN <A>
.%RTN ==1A>
.%RTN fI9 `y DEFINE .$LaST <A+1>
.%L ST==11>
.%L
=Z q '
IFG A-INT.LV,<PRINTX 0?Level A interruPpts not supportedp>
.BGINT.(\A ) .BGINT.(\A X5 c DEFINE .$Bc9REA <A>
.%BR EA==1>
.%BR - Q E
IFDEFq ..BSIZ,<PRINTX ?Missing $EOB afte0r a $BUILD>
.P.BSIZ==0
.p.BLOC==.
REPEAT A,<
0BLD0.(\..BSIZ,0) P
..BSIZ==..BSI Z+1>
==..BSI }[0 a
.$RESET
$TYPE (.CMCMA)
$NEXT (A)
I@RP B,<B>
.$BU ILD,<B>
.$BU I@ !~
.$RESETA
$TYPE (.CMCFM)`
IRP A,<A>
.$BUILD,<A>
$^ X
.$RESET!
$TYPE (.CMTXT)@
$HELP (<>)
$`NEXT (A)
IFIDN <B> <>,< IRP C, <C>
.$BUILD>@
IFDIF <B> <>,<`
$HELP (B)
I RP C,<C>
.$BU ILD><C>
.$BU H &a
;_0
.PSECT' DATA
A: BLOCK'0 B
.ENDPS
B
.ENDPS
{
1 1 I Ad
.$RESETa
$TYPE (.CMTAD)
$PDATA (CM%IDA )
$NEXT (A)
@IRP B,<B>
.$B UILD,<B>
.$B ,,U q 1
$RET ;WILL INVOKE R IGHT ROUTINE
,h: _} DEFINE .$D_9EFM <POINT 7,[ASC_XIZ\A\]>
.%DE FM==1>
.%DE .` aD
.$RESET
$TYPE (.CMDEV)
$NEXT (A)
I@RP B,<B>
.$BU ILD,<B>
.$BU Lz: }a
.$RESET~
$TYPE (.CMNUX)~
$PDATA (B)
~@$HELP (<>)
$NEX~`T (A)
IFIDN <C > <>,< IRP D,<D >
.$BUILD>
I@FDIF <C> <>,<
`$HELP (C)
IRP D,<D>
.$BUILD ><D>
.$BUILD N !
.$RESETA
$TYPE (.CMDIR)`
$NEXT (A)
I RP B,<B>
.$BU ILD,<B>
.$BU | Q
IFNDE qF ..BSIZ,<PRINTX ?$EOB without pre 0vious $BUILD>
P IFN <.-..BLOC>,< pPRINTX ?Address c hange between $BU 0ILD and $EOB>
P LSTOF.
.. pT==0
REPEAT . .BSIZ,<
BLD 00.(\..T,1)
P ..T==..T+1 >
p PURGE ..BSIZ,..!T,..BLOC
LST ON.
LST +y b9 DEFINE .$EbYRTN <A>
.%ER TN==1>
.%ER , cy! DEFINE .$EdRTN <1B0+A+1>
.%ERTN==1>
H6 )
P
$CALL .)!STOP
LSTOF.
J)@UMP [XWD 0,[ITEXT)` (<A>)]
EXP * %%.MOD]
LSTON. .MOD]
LSTON. L[
av
.$RESET
$TYPE (.CMFLD)
$NEXT (A)
$LP (<>)
IFIDN >,< IRP C, <C>
.$BUILD>
IFDIF <B> <>,<@
$HELP (B)
I`RP C,<C>
.$BU ILD><C>
.$BU MI
!b
.$RESET
A
$TYPE (.CMFIL)
`
$HELP (<>)
$ NEXT (A)
IFIDN <B> <>,< IRP C, @<C>
.$BUILD> `
IFDIF <B> <>,<
$HELP (B)
I
RP C,<C>
.$BU ILD><C>
.$BU dy \9e DEFINE .$F\YLGS <A>
.%FL GS==1>
.%FL ex: !:
.$RESETA
$TYPE (.CMFLT)`
$HELP (<>)
$ NEXT (A)
IFIDN <B> <>,< IRP C,@<C>
.$BUILD>`
IFDIF <B> <>,<
$HELP (B)
I RP C,<C>
.$BU ILD><C>
.$BU $ (
D_@
INTER(AN A
$DATA(A ,<B>)
ATA(A |
= 1 " ]yu
IFDIF <^A> <>,<
DEFINE ^8.$HLPM <POINT 7,[^XASCIZ\A\]>
. %HLPM==1>
. &5 !:
.$RESETA
$TYPE (.CMIFI)`
$HELP (<>)
$ NEXT (A)
IFIDN <B> <>,< IRP C,@<C>
.$BUILD>`
IFDIF <B> <>,<
$HELP (B)
I RP C,<C>
.$BU ILD><C>
.$BU &u &
.$RESET!
$NEXT (A)
$@TYPE (.CMINI)
I`RP B,<B>
.$BU ILD,<B>
.$BU ./ yAT
.$RESETya
$TYPE (.CMKEY)z
$PDATA (B)
z $NEXT (A)
IRP z@C,<C>
.$BUILD ,<C>
.$BUILD ./ xH
.$RESETx!
$TYPE (.CMKEY)x@
$PDATA (A)
x`$NEXT (0)
IRP y B,<B>
.$BUILD ,<B>
.$BUILD />Ky D %Q/ .WTOX.(.OM%qWTR,,,,<A>,<$WTF LG(WT.KIL),B>) 2|p $q) .WTOX.(.OM%LOG,<A>,<B>,<C >,,<D>)B>,<C :/
.%NXT ==1A>
.%NXT :|KV %!<
.$RESET%A
$TYPE (.CMNOD)%`
$HELP (<>)
$& NEXT (A)
IFIDN & <B> <>,< IRP C,&@<C>
.$BUILD>&`
IFDIF <B> <>,<'
$HELP (B)
; ' $FLAGS (CM%PO)
'@IRP C,<C>
.$B UILD><C>
.$B :} r A
.$RESET a
$TYPE (.CMNOI)
$PDATA (<POINT 7,[ASCIZ\B\]>)
$NEXT (A)
IR`P C,<C>
.$BUI LD,<C>
.$BUI ;-XR {j
.$RESET{!
$TYPE (.CMNUM){@
$PDATA (B)
{`$HELP (<>)
$NEX| T (A)
IFIDN <C| > <>,< IRP D,<D|@>
.$BUILD>
I|`FDIF <C> <>,<
} $HELP (C)
IRP } D,<D>
.$BUILD ><D>
.$BUILD >5 aN
.$RESET
$TYPE (.CMOFI)
$NEXT (A)
$@HELP (<>)
IFIDN `<B> <>,< IRP C, <C>
.$BUILD>
IFDIF <B> <>,< @
$HELP (B)
I `RP C,<C>
.$BU ILD><C>
.$BU B$ ]k DEFINE .$D]9ATA <A>
.%DA TA==1>
.%DA B$YP ` DEFINE .$D`9EFM <POINT 7,<A> >
.%DEFM==1 CYT e9- DEFINE .$DeYEFR <A>
.%DE FR==1>
.%DE G-}
.$RESET !
$TYPE (.CMQST) @
$HELP (<>)
$ `NEXT (A)
IFIDN ! <B> <>,< IRP C,! <C>
.$BUILD>!@
IFDIF <B> <>,<!`
$HELP (B)
I" RP C,<C>
.$BU ILD><C>
.$BU J.@ ,~ J.I %9
/
JSP T%YF,.RETE
LSTO%xF.
JUMP ERA$
LSTON.ERA$ Ni pQ
.NVR==0pq
.ACM==0
IRP A,<
q0 ..TSAC(.ACB,A) qP
IFN .ACB,<.AqpCM==.ACM!1B<A>> r
IFE .ACB,< r0
IFE .NVR,< rP
CAIA
rp LSTOF.
s JRST b>
s0..PUSH(A,\<.NVR+sP1>)>>
IFN .AspCM,<
IFE <t.ACM-17B<T4>>,<.At0CM==0
$CALL tP.SAVET>
IFEtp <.ACM-377B<.A16>u>,<.ACM==0
$u0CALL .SAVE8>
uP IFE <.ACM-17B<Pup4>>,<.ACM==0
v $CALL .SAVE4>
v0 IFE <.ACM-7B<vPP3>>,<.ACM==0
vp $CALL .SAVE3>
w IFE .NVR,<
IFE <.ACM-3wPB<P2>>,<.ACM==0
wp $CALL .SAVE2>x
xP IFE <.ACM-x01B<P1>>,<.ACM==0
$CALL .SAVE1xp>
IFE <.ACMy-1B<.A13>>,<.ACM=y0=0
$CALL .SVyP13>
IFE <.AypCM-1B<.A14>>,<.ACzM==0
$CALL .z0SV14>
IFE <zP.ACM-1B<.A15>>,<.zpACM==0
$CALL{ .SV15>
IFE{0 <.ACM-1B<.A16>>,{P<.ACM==0
$CA{pLL .SV16>
>|>
IFN |0.ACM,<
IFE|P .NVR,<
CAI|pA
LSTOF.
} JRST b>
}0 .ACB==0
REP}PEAT ^D16,<
}p IFN <.ACM&1B<.~ACB>>,<
..PUS~0H(\.ACB,\<.NVR+1>~P)>
.ACB==.ACB+~p1>>
IFN .NVR,<
PUSH P0,[[CAIA
P AOS -.NVR(P)
p REPEAT .NVR,< ..POP(\.NVR)>
0 POPJ P,0]]> P
LSTON.
b: S UPPRESS bb: S N.@ Y
IFNDE1F ..BSIZ,<PRINTX P?$SET without prepvious $BUILD>
IFNB <B>,<..STR00 (..SET,<C>,B,PA)>
IFB <Bp>,<..STR0 (..SET,<C>,FWMASK,A)>
,FWMASK,A)>
a==.
/a XWD b-1,b-1
0 DEFINE $ETAB <
b==.-a> <
O%| -!
r
S..A::!-A $CALL .STOP
L-`STOF.
JUMP [XW. D 'A',[ITEXT (<. B>)]
EXP %%.M OD]
LSTON. M O= a&
.$RESET
$TYPE (.CMSWI)
$PDATA (A)
@$NEXT (0)
IRP `B,<B>
.$BUILD ,<B>
.$BUILD O= !
.$RESETA
$TYPE (.CMSWI)`
$PDATA (B)
$NEXT (A)
IRP C,<C>
.$BUILD ,<C>
.$BUILD R
@ A|
.$RESET a
$TYPE (.CMTAD)
$PDATA (<CM%ID A!CM%ITM>)
$NEX @T (A)
IRP B,< B>
.$BUILD,< R/
$CALL/ T%TEXT
LSTOF/ . XCREF
JRST/@ c
..CN..==/`0
..KN..==0
0 EFLG==1
IRP A0 ,<..CN..==..CN..+0@1>
IFE <..CN..>0`,<SETZ 0,
1 EFLG==0>
1 IFE <..CN..-1>,<M1@OVEI 0,A
1` EFLG==0>
I2 FE <..CN..-3>,<IR2 P A,<
..KN.2@.==..KN..+1
I2`FE <..KN..-..CN..3 >,<
EFLG=3 =0
HRROI3@ 0,A >>>
IFN <3`EFLG>,<IF1,<
4 PRINTX ?Invali4 d syntax in $TEXT4@ parameter A
4` PRINTX >
5 HALT . >
5 FTEXT.(<B>)
5@IFN EFLG,<ETEXT.(5`$TEXT,<B>)>
c6 :
SUPPRESS6 c
LSTON. c
LSTON. RMY p
.$RESET !
$TYPE (.CMTAD) @
$PDATA (CM%ITM `)
$NEXT (A)
IRP B,<B>
.$B UILD,<B>
.$B R}97 *A^
.$RESET*a
$TYPE (.CMTOK)+
$PDATA (<POINT+ 7,[ASCIZ\B\]>)
$NEXT (A)
IR+`P C,<C>
.$BUI LD,<C>
.$BUI SN [Y_ DEFINE .$T[yYP <A>
.%TYP E==1>
.%TYP W= "A&
.$RESET"a
$TYPE (.CMUQS)#
$HELP (<>)
$# NEXT (A)
$PDAT#@A (B)
IFIDN <C#`> <>,< IRP D,<D$ >
.$BUILD>
I$ FDIF <C> <>,<
$@$HELP (C)
IRP $`D,<D>
.$BUILD ><D>
.$BUILD W \@ A
.$RESETa
$TYPE (.CMUSR)
$NEXT (A)
I RP B,<B>
.$BU ILD,<B>
.$BU ^+@ *A
f
IFE %%.O*aTS,<DEFINE $WARN + (MSG) <
$TEXT + (T%TTY,<% ^W6/[%%[email protected]]/ MSG>)>>
I+`FN %%.OTS,<DEFINE, $WARN (MSG) <
, $TEXT (T%TTY,<% ,@^W6/IIB+IB.PRG/ ^,`W/[%%.MOD]/ MSG>) >>
$WARN <A> _$r qI
IFB <A>,<.WFACD==0
0 IFN <0-2>,<.$WACPD==0>>
IFNB <pA>,<.WFACD==-1
IFN <0-2>,<.$WA0CD==.$WACD!<A>>
IFE <0-2>,<DEpFINE .$WACD,<<WO.ACD>B8+[ITEXT (< A>)]>>
>
< _$u qq
IFB <
A>,<.WFACK==0
0 IFN <0-2>,<.$WAC
PK==0>>
IFNB <
pA>,<.WFACK==-1
IFN$<0-2>,<.$WA
IFE.<0-2>,<DE.ACK>B8+[ITEXT (< A>)]>>
>
< _$+ }Q
IFE <.W}qFMTY>,<PRINTX ?No~ message type in ~0$WTBLD>
DEFINE .~PEAWTO(SUFFIX,ARGC~pOD),<
IFN .WF'SUFFIX',<
IFE <AR0GCOD-0>,<<WO.'SUFPFIX'>B8+ .$W'SUFFpIX'>
IFE <ARGCO D-1>,<<WO.'SUFFIX p'>B8+ [EXP .$W'SU FFIX']>
IFE <AR 0GCOD-2>,<.$W'SUFF PIX'>
>
>
ALLW pTO
EXP 0
EXP 0 _$k Q
IFB <qA>,<.WFFLG==0
IFN <1-2>,<.$WFL0G==0>>
IFNB <PA>,<.WFFLG==-1
p IFN <1-2>,<.$WFLG==.$WFLG!<A>>
IFE <1-2>,<DEPFINE .$WFLG,<<WO.pFLG>B8+[ITEXT (< A>)]>>
>
< _%(W 3
IFB <1A>,<.WFJBN==0
P IFN <0-2>,<.$WJBpN==0>>
IFNB <A>,<.WFJBN==-1
0 IFN <0-2>,<.$WJPBN==.$WJBN!<A>>
IFE <0-2>,<DEFINE .$WJBN,<<WO.0JBN>B8+[ITEXT (< A>)]>>
>
< _%YV 1u
IFB < QA>,<.WFMFL==0
p IFN <1-2>,<.$WMF L==0>>
IFNB < 0A>,<.WFMFL==-1
P IFN <1-2>,<.$WM pFL==.$WMFL!<A>>
IFE <1-2>,<DE 0FINE .$WMFL,<<WO. PMFL>B8+[ITEXT (< A>)]>>
>
< _%] q
IFB <A>,<.WFMTY==0
0 IFN <0-2>,<.$WMTPY==0>>
IFNB <pA>,<.WFMTY==-1
IFN <0-2>,<.$WM0TY==.$WMTY!<A>>
IFE <0-2>,<DEpFINE .$WMTY,<<WO.MTY>B8+[ITEXT (< A>)]>>
>
< _%kr 1
IFB <QA>,<.WFNOD==0
p IFN <0-2>,<.$WNOD==0>>
IFNB <0A>,<.WFNOD==-1
P IFN <0-2>,<.$WNpOD==.$WNOD!<A>>
IFE <0-2>,<DE0FINE .$WNOD,<<WO.PNOD>B8+[ITEXT (< A>)]>>
>
< .%p ( !1WTO,<A>,<B>,<C >,,<D>)B>,<C %xU [
IFB < 1A>,<.WFOBJ==0
P IFN <0-2>,<.$WOB pJ==0>>
IFNB <
A>,<.WFOBJ==-1
0 IFN <0-2>,<.$WO
PBJ==.$WOBJ!<A>>
p
IFE <0-2>,<DE FINE .$WOBJ,<<WO. 0OBJ>B8+[ITEXT (< A>)]>>
>
< _%xr Q_
IFB <qA>,<.WFOCD==0
IFN <0-2>,<.$WOC0D==0>>
IFNB <PA>,<.WFOCD==-1
p IFN <0-2>,<.$WOCD==.$WOCD!<A>>
IFE <0-2>,<DEPFINE .$WOCD,<<WO.pOCD>B8+[ITEXT (< A>)]>>
>
< _%z@ #q# .WTOX.(.OM$WTO,<A>,<B>,<C$0>,,<$WTFLG(WT.JOB ),D>)LG(WT.JOB _%|@ "
.WTOX.(.OM"1WTR,<A>,<B>,<C >,<D>,<E>)<C _&,z Qy
DEFINE 1.EAWTO(SUFFIX),<$ WT'SUFFIX' <>>
ALLWTO
_&N 1E
IFB <QA>,<.WFTXT==0
p IFN <2-2>,<.$WTXT==0>>
IFNB <0A>,<.WFTXT==-1
P IFN <2-2>,<.$WTpXT==.$WTXT!<A>>
IFE <2-2>,<DE0FINE .$WTXT,<<WO.PTXT>B8+[ITEXT (< A>)]>>
>
< _&N8 Q/
IFB <qA>,<.WFTYP==0
IFN <2-2>,<.$WTY0P==0>>
IFNB <PA>,<.WFTYP==-1
p IFN <2-2>,<.$WTYP==.$WTYP!<A>>
IFE <2-2>,<DEPFINE .$WTYP,<<WO.pTYP>B8+[ITEXT (< A>)]>>
>
<
t{ P
u[rQ ]>t2
u}P
,M P 1 )0 ? 09[P Z6 o<
do!==<FLD(.$TYP,CM%Fo@NC)>!.$FLGS!<.$LSo`T>
IFN <.%BRp EA>,<d==d!CM%BRp K>
IFN <.%HLp@PM>,<d==d!CM%HPp`P!CM%SDH>
q
IFN <.%DEFMq >,<d==d!CM%DPP>q@
c: XWD b,q`a
EXP d r
EXP .$DATAr
IFN <.%HLPr@M!.%DEFM!.%BREA>,r`<
EXP .$HLPM> s
IFN <.%DEFs M!.%BREA>,<
EXs@P .$DEFM>
s`IFN <.%BREA>,< EXt P .$BREA>
t a==.-c ;LENGTHt@ OF THE FDB
IFt`N <.%NXT!.%DEFR!.u %RTN!.%ERTN>,< EXu P .$NXT >
IFNu@ <.%DEFR!.%RTN!.%u`ERTN>,<EXP .$RTN v >
IFN <.%DEFRv !.%ERTN>,< EXP .$v@ERTN>
IFN <.%v`DEFR>,< EXP .$DEw FR>
b==.-w c
IF2< PUw@RGE a,b,c,d>
LISTb,c,d> POINT7,[A SCIZ\0\]NT 7,[A $YY C 09QP .- = 09YQ 5Iy 3 0k o f= 9 0+1P w
SALL
iaXLIST
DEFINE .$j TYP <0>
.%TYPE=j =0
DEFINE .$FLGj@S <0>
.%FLGS==0j`
DEFINE .$DATA k <0>
.%DATA==0
k DEFINE .$HLPM <>k@
.%HLPM==0
DEk`FINE .$DEFM <0>
l .%DEFM==0
DEFIl NE .$LST <0>
.%l@LST==0
DEFINE .l`$BREA <0>
.%BREm A==0
DEFINE .$Nm XT <0>
.%NXT==0m@
DEFINE .$ERTN m`<0>
.%ERTN==0
n DEFINE .$RTN <0>n
.%RTN==0
DEFn@INE .$DEFR <0>
.%DEFR==0<0>
K@ A 0,:P ' 0T 1,@ )0P $YVP $YYP .-P 5IyP f= P w
..AS11==-<B>
IFDEFP .PSECT,<
.IFN p..AS1,ABSOLUTE,<
C A,[-..0AS1]>
.IF ..ASP1,ABSOLUTE,<
.p.AS2==0
IFE <..AS1&^O777777B107>,<
..AS2==1 P
DI A,..ApS1>
IFE ..AS2,<
..OP(A,0B,C)>
PURGE P..AS1,..AS2>>
IpFNDEF .PSECT,<
..AS2==0
IF 0E <..AS1&^O777777 PB17>,<
..AS2== p1
DI A,. .AS1>
IFE ..A 0S2,<
..OP P(A,B,C)>
PUR GE ..AS1,..AS2> : h k
A : %
..CX1 1==C
IFDEF .PSE PCT,<
.IFN ..CX p1,ABSOLUTE,<
CAMA B,[C]
0>
.IF ..CX1,ABS
QOLUTE,<
..CX2
p==0
X1IFE7<..CB17>,<
..CX2==1
CAIA B,C>
IFE ..CX2,<
CAMA B,[0C]>
PURGE ..CX1P,..CX2>>
IFNDEFp .PSECT,<
..CX2==0
IFE <..0CX1&^O777777B17>,P<
..CX2==1
p CAIA B,C>
IFE ..CX2,< 0
CAMA B,[PC]>
PURGE ..CX 1,..CX2>GE ..CX :&@ 1G
..TSIZ Q(..PST,C)
.CASpE ..PST,<<
MOVEM A,B>,<
HR0RM A,B>,<
HRPLM A,B>,<
DPpB A,[POINTR (B, C)]>>INTR (B, :<;Y ]qs
DEFIN^E ..CNS2 (NEW,OLD^0)<
OLD>
..CNS ()>
:L;Y [Qk
DEFIN[qE ..CNS (ARG)<
\..CNS2 <ARG>,>
\0
DEFINE ..CNS2\P (NEW,OLD)<
DEF\pINE ..CNS (ARG)<
..CNS2 <ARG>,]0<OLD'NEW>>>
OLD'NEW>>>
:dH@ -
..TSIZ 1(..PST,C)
.CASPE ..PST,<<
MOVpE A,B>,<
HRRZ A,B>,<
HLR0Z A,B>,<
LDBP A,[POINTR (B, C)]>>INTR (B, :}i1 Bq
A==<<<C-<B>>&<B>>&<1B< ^L<B>>>>>&<1B< :~
..OP1 1==B
IFDEF .PSE PCT,<
.IFN ..OP p1,ABSOLUTE,<
C A,[..OP1] 0>
.IF ..OP1,ABS POLUTE,<
..OP2 p==0
IFE <..O P1&^O777777B17>,< 0
..OP2==1
P CI A,..OP1>
IFE ..OP2,< !
C A,[..O!0P1]>
PURGE ..OP!P1,..OP2>>
IFNDE!pF .PSECT,<
..O"P2==0
IFE <."0.OP1&^O777777B17>"P,<
..OP2==1
"p CI A,..OP1#>
IFE ..OP2,<#0
C A,[.#P.OP1]>
PURGE .. OP1,..OP2>GE .. ;| q
POP P,.NVA
PURGE .N0VA
.NVR==.NVR -1
.NVR==.NVR ;\t
PUSH P1,A
.NVB==A
.NVR==.NVR+1 ; ] Q i
IFGE q<<<B>&777777>-.. BSIZ>,<
PRINTX 0 ?WORD offset gre Pater than $BUILD psize parameter>
SET0. (\<B>, C,<A>)
B>, ; LH I1[
IFNDEF IQC,<PRINTX C IS IpNOT DEFINED
JA (<B>,D,FWMASKJ0)>
IFDEF C,<
IFNDEF %C,<
Jp A (<B>,D,C)K>
IFDEF %C,<
%C (A,<B>, D,C)>>A,<B>, ; LH Kq
..NS==0L
IRP C,<..NL0S=..NS+1>
IFE LP..NS,<PRINTX ?EMPLpTY STRUCTURE LISTM, A>
IFE ..NS-M01,<
..STR0 MP(A,<B>,<C>,D)Mp>
IFG ..NS-1,< N
..ICNS
.N0.CNS (<E (A,<BNP>,,>)
IRP C,<Np
IFNDEF C,O<PRINTX C NOT DEO0FINED>
IFDEF OPC,<
IFNDEF %OpC,<
..CNS (<P,C,D>)>
IFP0DEF %C,<
%CPP (..STR2,,D,C)>Pp
..CNS (<)>)Q
..GCNS
Q0 ..ICNS
.QP.CNS (<E (A,<BQp>>)
IFNDEF %RC,<
..CNS (<R0,C,D>)>
IFRPDEF %C,<
%CRp (..STR2,,D,C)>S>>
..CNS (<,,) >)
..GCNS>) ; LI SQ
..CNS ( <,C,B>).CNS ( ; LI T3
IFDIF <T1D><F>,<
IFNTPB <D>,<
ATp (<B>,D,..MSK) U
IFNB <F>,U0<PRINTX C AND EUP ARE IN DIFFERENTUp WORDS>>
..MSVK==0>
IFNB <V0F>,<
..MSK=.. MSK!<E>>MSK=.. ; LJ VqC
IFDIF <WD><F>,<
IFW0NB <D>,<
WPA (<B>,D,..MSK)Wp>
..MSK==0> X
IFNB <F>,<
X0 ..MSK=..MSK!< E>>MSK=..MSK!< ; LJ XqY
IFDIF <YD><F>,<
IFY0NB <D>,<
IYPFNB <F>,<
YpA1 (B,D,..MSK)>Z
IFB <F>,Z0<
A2 (B,DZP,..MSK)>>
..ZpMSK==0>
IFNB [<F>,<
..MSK= ..MSK!<E>>MSK= ;& @ Q
..TSIZ q(..PST,C)
.CASE ..PST,<<
SE0TZM B>,<
HLLPZS B>,<
HRRZpS B>,<
..TSAC (..ACT,B)
0 .IF0 ..ACT,<
P $CALL .ZERO
pLSTOF.
JUMP [POINTR(B,C)]
0LSTON.>,<
..TX (Z,B,C)>>>TX ;&81 ?1
IFNDEF ?Q.PSECT,<
A==0 ?p
..TSA1==<Z @B>
IFE ..TS@0A1&^O777777777760@P,<A==1>
>
I@pFDEF .PSECT,<
AA==0
..TSA1=A0=<Z B>
.IF .AP.TSA1,ABSOLUTE,< Ap
IFE ..TSA1&^BO777777777760,<AB0==1>>
PURGE .. TSA1>
PURGE .. ;&:= =qw
A==3 >
IFE <B>+1,<>0A=0>
IFE <B>->P^O777777,<A==1> >p
IFE <B>-^O777 777B17,<A==2>7 ;' $/
..TX1$1==C
IFDEF .P$PSECT,<
.IFN .$p.TX1,ABSOLUTE,<
% TDA B,[C]>
%P .IF ..TX1,ABSOL%1UTE,<
..TX2==%q0
IFE <..TX1&&^O777777B17>,<
&0 ..TX2==1
&PTRA B,..TX1>
&pIFE ..TX2,<
I'FE <..TX1&^O77777'17>,<
..TX2==1'Q
TLA B,(.'p.TX1)>>
IFE ..T(X2,<
IFE <<(0..TX1>B53-^O777770Q7>,<
..TX30p (A,B)>>
IFE1 ..TX2,<
TD10A B,[..TX1]>
1P PURGE ..TX1,..TX1p2>>
IFNDEF .PSEC2T,<
..TX2==0
IFE <..TX1&^O772P7777B17>,<
..2pTX2==1
TRA3 B,..TX1>
IFE 30..TX2,<
IFE <3P..TX1&^O777777>,<3p
..TX2==1
4 TLA B,(..TX140)>>
IFE ..TX2,<4P
IFE <<..TX4p1>B53-^O777777>,<5
..TX3 (A50,B)>>
IFE ..T5PX2,<
TDA 5pB,[..TX1]>
PUR GE ..TX1,..TX2> ;'` 61E
IFIDN <6QA><Z>,<
..6pTX2==1
ANDI 7B,^-..TX1>
IFI70DN <A><O>,<
7P ..TX2==1
8OR7pCMI B,^-..TX1>
IFIDN <A><C>,<80
..TX2==1
8P EQVI B,^-..TX 1>QVI B,^-..TX
0 P
@ P
P P
` P d la
.ACV2 ( A)
.ACV2 ( d@ lQk
A=.FPAlqC+..NAC
IFB <mB>,<..NAC=..NAC+m01>
IFNB <B>,<. .NAC=..NAC+B>. d` mqy
IFG A-n.NPAC,<PRINTX ?TOn0O MANY ACS USED>
IFLE A-4,<
onp $CALL .SAVEA>
IFG A-4,<
$CALL .SAVE8>
=Z 1 + JSR I%INT A JSR I%INT 9 ;qi
..CSN==<A
..CSC==0
I<0RP B,<
IFE ..C<PSN-..CSC,<
ST<pOPI
..CAS1 (=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 l,UP S@P ,<H
..PST==K
.IF0 ..PST,<
SOS B0>,<
$CALL .SOPS
LSTOF.
JpUMP [POINTR(B,C )]
LSTON.>C } |q}
.OPCD== Q.OPCD+1
WO.A== .OPCD
G),<
$j6p %I7p &=p P `P &2 :Q[
..IFT==:qA
IFE ..IFT,;<
B
..IFT==0;0>
IFN ..IFT,<
C>N ..IFT,< &t<H
Q_
..PST==
qC-FWMASK
.IF0 ..PST,<
AOS B 0>,<
$CALL .AO PS
LSTOF.
J pUMP [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 ;q
IFG A-RAMX.PID,<MX.PID== A>
C
G A- OSP OYP O|P O yP O%=H a1
.STKV2 (A)
.STKV2 O%=I aq
IFB <Bb>,<..STKN==..STKNb0+1>
IFNB <B>,<bP..STKN==..STKN+Bbp>
..STKQ==..STKcN+1
.STKV3 (A, \..STKQ)V3 (A, O%=I cQ'
IFDEFcq A,<.IF A,SYMBOdL,<PRINTX STKVAR d0A ALREADY DEFINEdPD>>
DEFINE A<-dp^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 gQ=
.TRV2 ( A)
.TRV2 ( Sd@ hG
.TRV3 (h1A,\..NV)
IFB hP<B>,<..NV=..NV+1hp>
IFNB <B>,<.. NV=..NV+B>,<.. Sd` i1U
IFDEFiQ A,<.IF A,SYMBOipL,<PRINTX TRVAR jA ALREADY DEFINEDj0>>
DEFINE A<^OjPB(.FP)>
$A==< Z A>>
$A==< _%~ &1M
$CALL &QI%WTO
LSTOF.&p
JRST g
$WTRST
IF'0NB <A>,<$WTMTY ('P<A>)>
IFNB <'pB>,<$WTTYP (<B>)(>
IFNB <C>,<$(0WTTXT (<C>)>
(PIFNB <D>,<$WTOBJ(p (<D>)>
IFNB )<E>,<$WTACK (<E)0>)>
IRP F,<)PF>
$WTBLD
g: LSTON. kP P >}{woP