Google
 

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
,5d@P C4@ ZYY
	..NAC==Zy0		
	IRP A,<
	[  .ACV1 (A)>		
	.ACV3 (\..NAC)C' Y%..AS(A,B,ADD,SUB)(A,BC, g@~<LSH A,-^D9LSH 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
	TXZA,<^-<B>>TXZ A,CR/
	DEFINE	1YXTEXT.(OPCODE,NEW1x)<
	OPCODE	<A,<NEW>>>ODE	<A,<E2"@ 	
	  IFE 9B,<..TA==0>
	  XIFN B,<EXP ..TAx
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ }Xm
	    ..CX(,A,B)   ..CGD 	
	    ..CX(A,A,B)  ..CGDP y
	    ..CX(E,A,B)  ..CGDp X}
	    ..CX(G,A,B)  ..CGDy  
	    ..CX(GE,A,B) ..CGE@ ~q
	    ..CX(L,A,B)  ..CGEI  ~Xu
	    ..CX(LE,A,B) ..CGE` Y
	    ..CX(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 JQk

	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> ;END IF2

atiG4-ZQ G:YlP 
G>hKW ;H#`
	IFNB <>;h,<
	PRINTX  (Fro<m GLXVER)
	> ;END IFNB 
	P :#X
	PRINTX :(GLXVER	GLXCOM Edi:Ht(32) by PJT on 9:h-Jul-79
	PRINTX	;    	GLXCOM	Actual Edit(A)
	G>lYPPLALL
PAGE/p; (A Continued o0n next page)
SAL00L;Y(AContinued 0Pfrom previous page) previous pagG?pP$GHt;rP GHtkP GHv	P GHv)9P GHv:=P GR/
	DEFINE .yXTEXT.(OPCODE,NEW0y)<
	OPCODE	<<NEW>>>OPCODE	<<NEWI!k7P I!k<P ImP I$P'pIY{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?pP&IOH1 ih
	IFB <D	>,<
	XWD	[ASCIZ\(C\],[XWD B,A]>H
	IFNB <D>,<
	hXWD	[EXP CM%FW!D
		ASCIZ\C\],[XWD 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(QKPhKJ)bPP 
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 checkpoint failed>8
	ERR	SLE,<A SysXtem Limit Was Excxeeded>
	ERR	IFS,<Illegal File Spe8cification>
	ERRX	FNF,<File Not Foxund>
	ERR	PRT,<Protection Violati8on>
	ERR	DNA,<DeXvice Was Not Avaixlable>
	ERR	NCE,<No "current" ent8ry in list>
	ERRX	NMA,<No IPCF mesxsage 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%JINF>
d for I%JINKKBP 
KKI"P KKBP 
KK$)BPAKK-*"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  -zkIRP A,<
-0	IF2,<IFNDEF A,<EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP  MuI7Q xMn:=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)
	> ;END IFNB 
	M&`Mt 5(#2
	PRINTX 5HGLXVER	GLXFIL Edi5ht(47) by MLB on 162-Sep-79
	PRINTX6(	    	GLXFIL	Actual 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==EFLG!4>
	FLG==EMRV>9Q MS.[yP M^luQ O2|  -pzyIRP A,<
.	IF2,<IFDEF A,<..0IFN A,EXTERN,<IN.PTERN A>>
	     .pIFNDEF A,<EXTERN/ A>
	Q SUPPRESPA>>FlYSUPPRO3DYPF+O3EKrPf+O3EZ7PO3F\Yp Stkp SuZp Su}:p Sv
1p Sv
Sp Sv>@p SNn Y5..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)
	> ;END 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<POS(<B>)>>&<B>>S; KW >#t
	IFNB <>>(,<
	PRINTX  (Fro>Hm GLXVER)
	> ;END IFNB 
	PS; Mt <H#l
	PRINTX <hGLXVER	GLXINT Edi=t(47) by MLB on 5=(-Jul-79
	PRINTX	=H    	GLXINT	Actual 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 xS@v
tQ @S@v,:P S@v,rQ S@v<Q S@v<Q S@v<Q xS@v<:P'~S@v=Q  S@vMQ SBKW Eh$2
	IFNB <>F,<
	PRINTX  (FroF(m GLXVER)
	> ;END IFNB 
	SBMt D($*
	PRINTX DHGLXVER	GLXIPC EdiDht(43) by MLB on 1E1-Jun-79
	PRINTXE(	    	GLXIPC	Actual Edit(A)
	SBYP SBd+@&SBn	@&SBn
@&SBn
@&	SBn@&	SBn@&
SBn
@&
SB2P 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 xU$@ .	
	
	  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)
	> ;END IFNB 
	W
 Mt 2h#
	PRINTX 3GLXVER	GLXKBD Edi3(t(24) by MLB on 23H0-Sep-79
	PRINTX3h	    	GLXKBD	Actual Edit(A)
	W
$YP 
WNH1 It
	IFB <Ci>,<
	XWD	[ASCIZ\B\],A>
	IFNB <(C>,<
	XWD	[EXP HCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 H`~4

	  LSTIOF. XCREF

	CDOI 	     			
	CDO	.I@ZPAGA
	CDO	.ZPAGI`N
	CDO	.ZCHNK
	JCDO	.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	.NPOPJ		
	CDO
	CDN O
	CDO
	CDO
	CN@DO

	CDO				
	N`CDO	C%RPRM
	CDO	OC%INTR
	CDO	C%SEO ND
	CDO	C%RECV
O@	CDO	C%BRCV
	CDOO`	C%REL
	CDO	C%CPPID
	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%RESL
	CDO	F%DREL
	S CDO	F%RREL
	CDO	S@F%REW
	CDO	F%POSS`
	CDO	F%CHKP
	CTDO	F%INFO
	CDO	FT %FD
	CDO	F%REN
T@	CDO	F%DEL
	CDO	T`F%FCHN
	CDO
	CDUO
	CDO
	CDO
	CU DO
	CDO
	CDO
	U@CDO
	CDO

	CDOU`	      			
	CDO	VM%ACQP
	CDO	M%REV LP
	CDO	M%IPSN
V@	CDO	M%NXPG
	CDOV`	M%IPRC
	CDO	M%IWPRM
	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
	CDcO	S%SCMP
	CDO	S%c ERR
	CDO	S%INTR
	CDO	S%EXIT
	CDc`O	S%TBAD
	CDO	S%dTBDL
	CDO
	

d 	CDO	K%RCOC			
	d@CDO	K%WCOC
	CDO	d`K%SUET
	CDO	K%STeYP
	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)
	> ;END 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)
	> ;END IFNB 
	[Mt -H"t
	PRINTX -hGLXVER	GLXMAC Edi.t(142) by MLB on .(3-Oct-79
	PRINTX.H	    	GLXMAC	Actual 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-MAEXSIZ>,<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[vxQ [[v[lp [lXp [lrp [ltp [lxp [l}p [hKW JH$X
	IFNB <>Jh,<
	PRINTX  (FroKm GLXVER)
	> ;END IFNB 
	[hMt I$P
	PRINTX I(GLXVER	GLXMEM EdiIHt(11) by PJT on 5Ih-Jan-79
	PRINTX	J    	GLXMEM	Actual Edit(A)
	[lYP [n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p F |B
	IFB <BF@>,<MINSIZ==377777F`,,777777
		IRP GA,<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>> IFNDEF A,<A==B>]F@ ,TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= 59X

	X	.OT-IRDR,Reader
	X	.O+YTNCU,Network-Cont5Yroller
	X	.OTLPT5,Printer
	X	.OTB6AAT,Batch-Stream
6`	X	.OTCDP,Card-Pu7nch
	X	.OTPTP,Pa7 pertape
	X	.OTPL7@T,Plotter
	X	.OT7`JOB,Job
	X	.OTTR8M,Terminal
	X	.O8 TOPR,Operator
	X8@	.OTIBM,<IBM Remo8`te>
	X	.OTMNT,<D9evice>
	X	.OTXFR9 ,<File Transfer>
	X	.OTBIN,<Card 9`Reader Interprete:r>
	X	.OTRET,<Fi: le Retrieval>
	X:@	.OTNOT,<Retrieva:`l Notification>
;	X	.OTDBM,<DBMS System>
<DBMS S_SKW C($
	IFNB <>CH,<
	PRINTX  (FroChm GLXVER)
	> ;END IFNB 
	_SMt Ah$
	PRINTX BGLXVER	GLXOTS EdiB(t(3) by DC on 19-BHJun-79
	PRINTX	 Bh   	GLXOTS	Actual Edit(A)
	_SYP _Sh6 Ci [ASCIZ \GLXLIB.EXE\]Z \G_Tu
SQ x_TuLSP'`P `DP `HP `LP `PP a<VP a>:=P a,I3p a,\Yp a-	P a-np a.-p a.:=p atzp atiP'atkp au	p auZp auI7Q xauKqp au[Yp au^p auh6p av	Q xav
2p av>9p a
,TQ  a
,Q a
,*9Q a
,>(Q  a
,>(Q a
,k{Q a
,m3Q a
-J8Q @a
-iQ a
-}SQ @a
.Z7Q a
.\yQ 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)
	> ;END 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~8LSH A,^D9LSH 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 <SEARC5H MONSYM>	
	  TO5 PS10 <SEARCH UUOS5@YM>	
	  IFB <B>5`,<
			GLOB <I%IN6IT>
			%%.GLX==:6 %%.GLX	
					
	6@		DEFINE $DATA(NA6`M,SIZ<1>)<
			  7NAM:	BLOCK	SIZ
	7 		>
			IFN GLXPU7@RE,<.REQUEST GLXI7`NI 
					DEFINE 8..ASGN(A,ADR)<DEF8 INE A<@^O'ADR>>
8@				>
			IFE GLX8`PURE,<.REQUIRE GL9XLIB 
					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
	DEAFINE CDO (A) <IFNA B <A>,<..ASGN(A,\A@ZZ)>
			ZZ==ZZ+1A`>
	LIBVEC
	OPDEBF $RETT [PJRST .RB ETT]	
	OPDEF $REB@TF [PJRST .RETF]
	LSTON.				
tP2aPtkP aPuTP aPv=xP aPv\rP aPv|UP aR/
	   OPC 3A
	   POINTR(0,B)
	POINTR(0,e"luP'ePv8vP ePv9VP ePv;P fDP fHP gkp gk9p glp glp gltp gl}p g4P _}PRINTX % R_9eplacing SAVE wit_Xh $SAVE
		   $SAVE <A>		   $SAgpKW 1h#
	IFNB <>2,<
	PRINTX  (Fro2(m GLXVER)
	> ;END IFNB 
	gpMt 0(#

	PRINTX 0HGLXVER	GLXSCN Edi0ht(37) by MLB on 215-Sep-79
	PRINTX1(	    	GLXSCN	Actual 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 ..TVAL,..TMSK
	.Tg#=z@XIDC.SWIT+PDBCPY##C.SWIT+PDBg$tkQ<@g$uP'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 hDP hHP hLP hPP iFC@ 29TXT1. (A)TXT1. (A)iP 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)			
	LSTON.
)			
	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,PA 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(CA,A,<B>).TX(CibP Yu
		..TX(CE,A,<B>).TX(Cib` y
		..TX(CN,A,<B>).TX(Cibp A
		..TX(N,A,<B>)..TX(Nibt YM
		..TX(NA,A,<B>).TX(NibtP YE
		..TX(NE,A,<B>).TX(Nibu` I
		..TX(NN,A,<B>).TX(Nibx Q
		..TX(O,A,<B>)..TX(Oib| Y]
		..TX(OA,A,<B>).TX(Oib|P YU
		..TX(OE,A,<B>).TX(Oib}` Y
		..TX(ON,A,<B>).TX(Oic KW ,H"h
	IFNB <>,h,<
	PRINTX  (Fro-m GLXVER)
	> ;END IFNB 
	ic Mt +"`
	PRINTX +(GLXVER	GLXTXT Edi+Ht(35) by AWC on 9+h-Nov-79
	PRINTX	,    	GLXTXT	Actual Edit(A)
	ic!h P ic!k Q `ic!kPQ @ic!lQ  ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP'ic!lyP ic!lyQ ic$YP ic$cHQ Eic$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 Dic$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(ZA,A,<B>).TX(ZicTP Ye
		..TX(ZE,A,<B>).TX(ZicU` i
		..TX(ZN,A,<B>).TX(Zm6P$am?pP$mKc@ 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@ ,0zeIFB <C>,<,PA==:B> IFNB <C>,<A=:B>B <Cup ~y}
	IFNB <B>,<..STR1 (..TQZ8,,<B>,A,..STR4)X>
	IFB  <B>,<SETZM A><B>,<SEuhP$a	;z IL
	.$RESETi
	$TYPE (.CMACT)
	$HELP (<>)
	$(NEXT (A)
IFIDN H<B> <>,< IRP C,h<C>
			.$BUILD>
IFDIF <B> <>,<(
	$HELP (B)
	IHRP C,<C>
	.$BUILD><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 PADEFINE .$LPaST <A+1>
			.%LST==11>
			.%L	
=Z 9#
	  IFG YA-INT.LV,<PRINTX x?Level A interrupts not supported8>
	  .BGINT.(\A)   .BGINT.(\A	X5 RaDEFINE .$BSREA <A>
			.%BREA==1>
			.%BR	- A
	  IFDEF9 ..BSIZ,<PRINTX ?XMissing $EOB aftexr a $BUILD>
	  ..BSIZ==0			
	  .8.BLOC==.			
	  RXEPEAT A,<			
		xBLD0.(\..BSIZ,0)	
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 )
	.$RESETI
	$TYPE (.CMCMA)h
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<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>
	.$BUILD><C>
	.$BU	H  )	7Nx
		.PSECTY	DATA
	A:	BLOCKx	B
		.ENDPS
	B
		.ENDPS
	x	.1	I  	`
	.$RESET)
	$TYPE (.CMTAD)H
	$PDATA (CM%IDAh)
	$NEXT (A)
	
IRP B,<B>
	.$BUILD,<B>
	.$B	,,U 9-
	  $RET	Y			;WILL INVOKE RIGHT ROUTINE
		,h: NazDEFINE .$DOEFM <POINT 7,[ASCO IZ\A\]>
			.%DEFM==1>
			.%DE	.` )@
	.$RESETI
	$TYPE (.CMDEV)h
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<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)
	IHRP B,<B>
	.$BUILD,<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	
	  LSTON.
		
	  LST	+y RDEFINE .$ER!RTN <A>
			.%ERTN==1>
			.%ER	, SADEFINE .$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>
	.$BUILD><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>
	.$BUILD><C>
	.$BU	dy LbDEFINE .$FL!LGS <A>
			.%FLGS==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>
	.$BUILD><C>
	.$BU	$ Y	@O
	  INTER	N A
	  $DATA(A,<B>)
	ATA(Ay	91	"
	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>
	.$BUILD><C>
	.$BU	&u I"
	.$RESETi
	$NEXT (A)
	$TYPE (.CMINI)
	I(RP B,<B>
	.$BUILD,<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>,<$WTFLG(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>
	.$BUILD><C>
	.$B	:}r p	

	.$RESETp)
	$TYPE (.CMNOI)pH
	$PDATA (<POINTph 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRq(P C,<C>
	.$BUILD,<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>
	.$BUILD><C>
	.$BU	B$ LahDEFINE .$DMATA <A>
			.%DATA==1>
			.%DA	B$YP OaDEFINE .$DPEFM <POINT 7,<A>>
			.%DEFM==1	CYT U*DEFINE .$DU!EFR <A>
			.%DEFR==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>
	.$BUILD><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:	SUPPRESS 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 [XWHD 'A',[ITEXT (<hB>)]
			EXP %%.MOD]
		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/
.

	$CALLI	T%TEXT		
	LSTOFh.	XCREF			
	JRST	c			
	..CN..==(0
	..KN..==0
	 H EFLG==1
	IRP Ah,<..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>
	.$BUILD,<B>
	.$B	R}97 	Z
	.$RESET)
	$TYPE (.CMTOK)H
	$PDATA (<POINTh 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR(P C,<C>
	.$BUILD,<C>
	.$BUI	SN	  K!\DEFINE .$TKAYP <A>
			.%TYPE==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>
	.$BUILD,<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>,<DEFINE .$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>,<DEFINE .$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 
,MP 1)0 <0[VgZ6 ^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,[ASCIZ\0\]NT 7,[A$YY @0
Qm.-8:01[PuyS5Iyp001[v=3f= 60+1[Lt;Zw
	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,)0Pi$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>>
	I8FNDEF .PSECT,<
	X	..AS2==0	
	  IFxE <..AS1&^O777777
B17>,<
		..AS2==
81	
	    DI A,.
X.AS1>
	  IFE ..A
xS2,<		
	(A,..OP)>
	PURGE ..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 ..CX1,..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>,<
		PRINTXx ?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)	
	.CAXSE ..PST,<<
		SExTZM 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>-^O777777B17,<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]>	
	PURGE ..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,^-..TX1>QVI B,^-..TX
0P 
@P 
PP 
`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%INTAJSR I%INT9  +9e
	..CSN==+YA
	..CSC==0
	I+xRP B,<
	IFE ..C,SN-..CSC,<
	  ST,8OPI
	  ..CAS1 (,XB)>
	..CSC==..CSC+1>..CSC==..CSD	P ?DP >D)6P D,xP D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;WP D;WP D;XP D;XP D;YP 	D;YP 	D;ZP 
D;ZP 
D;[P D;[P D;\P 
D;\P 
D;]P D<ZP D=7P DI6P ?D\qP 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;rp77H:pz7kpv7N8p=;`Pz;-J7P#?$(:PB?$*7PP?$9PB?$HVP ?%VP ?%+qP ?%LP ?%X<P ?%[ZP ?%hzP ?%kzP ?%|P ?&P ?&
0P O +9
	IFG	A-B	MX.PID,<MX.PID==A>
C
G	A-OSP OYP O|P OyP 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.  kPP >}{woP