Google
 

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
,5d@P C4@ k]
	..NAC==k10		
	IRP A,<
	kP  .ACV1 (A)>		
	.ACV3 (\..NAC)C' )..AS(A,B,ADD,SUB)(A,BC, wx?LSH A,-^D9LSH 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
	TXZA,<^-<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 ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ q
	..CX(,A,B)   ..CGD Q
	    ..CX(A,A,B)  ..CGDP Q}
	    ..CX(E,A,B)  ..CGDp 
	    ..CX(G,A,B)  ..CGDy  Q
	    ..CX(GE,A,B) ..CGE@ Qu
	    ..CX(L,A,B)  ..CGEI  y
	    ..CX(LE,A,B) ..CGE` 	
	    ..CX(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> ;END IF2

PG4-ZQ G:YlP 
G>hKW L$d
	IFNB <>L ,<
	PRINTX  (FroL@m GLXVER)
	> ;END IFNB 
	G>hMt J@$\
	PRINTX J`GLXVER	GLXCOM EdiKt(32) by PJT on 9K -Jul-79
	PRINTX	K@    	GLXCOM	Actual Edit(A)
	G>lYPLALL
PAGE@(; (A Continued o@Hn next page)
SAL@hL;(A Continued Afrom previous page) previous pagG?pP$GHt;rP GHtkP GHv	P GHv)9P GHv:=P GR/

	DEFINE ?1XTEXT.(OPCODE,NEWA1)<
	OPCODE	<<NEW>>>OPCODE	<<NEWI!k7P I!k<P ImP I$P'pIY{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?pP&IOH1 ,!l
	IFB <D,A>,<
	XWD	[ASCIZ\,`C\],[XWD B,A]>-
	IFNB <D>,<
	- XWD	[EXP CM%FW!D-@
		ASCIZ\C\],[XWD 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(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 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%JINF>
d for I%JINKKBP 
KKI"P KKBP 
KK$)BPRKK-*"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{nIRP A,<
=h	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 G $>
	IFNB <>G@,<
	PRINTX  (FroG`m GLXVER)
	> ;END IFNB 
	M&`Mt E`$6
	PRINTX FGLXVER	GLXFIL EdiF t(47) by MLB on 1F@2-Sep-79
	PRINTXF`	    	GLXFIL	Actual 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==EFLG!4>
	FLG==EMRV>9Q MS.[yP M^luQ O2|  >({|IRP A,<
>H	IF2,<IFDEF A,<.>hIFN A,EXTERN,<IN?TERN A>>
	     ?(IFNDEF A,<EXTERN?H A>
	Q SUPPRESPA>>FlYSUPPRO3DYPF+O3EKrPf+O3EZ7PO3F\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)
	> ;END IFNB 
	S:HMt O@%
	PRINTX O`GLXVER	GLXINI EdiPt(7) by MLB on 3-P Jul-79
	PRINTX	 P@   	GLXINI	Actual Edit(A)
	S:LYP S;k }po<<<A>B<POS(<B>)>>&<B>>S; KW N@$x
	IFNB <>N`,<
	PRINTX  (FroOm GLXVER)
	> ;END IFNB 
	S; Mt M$p
	PRINTX M GLXVER	GLXINT EdiM@t(47) by MLB on 5M`-Jul-79
	PRINTX	N    	GLXINT	Actual 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 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 V %6
	IFNB <>V@,<
	PRINTX  (FroV`m GLXVER)
	> ;END IFNB 
	SBMt T`%.
	PRINTX UGLXVER	GLXIPC EdiU t(43) by MLB on 1U@1-Jun-79
	PRINTXU`	    	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/
	LSTOF. YqXCREF			
	FTEXT.Z(<A>)		
	IFN EFZ0LG,< ETEXT.(ITEXTZP,<A>)> ;IF ERRORZp, DESCRIBE IT
	E[XP	0			
	LSTON.		0			
	LSTON.	Uv98Q xU$@ >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)
	> ;END IFNB 
	W
 Mt C $"
	PRINTX C@GLXVER	GLXKBD EdiC`t(24) by MLB on 2D0-Sep-79
	PRINTXD 	    	GLXKBD	Actual Edit(A)
	W
$YP 
WNH1 .x
	IFB <C.!>,<
	XWD	[ASCIZ\.@B\],A>
	IFNB <.`C>,<
	XWD	[EXP /CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&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  (FroYm GLXVER)
	> ;END 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)
	> ;END IFNB 
	[Mt >#x
	PRINTX > GLXVER	GLXMAC Edi>@t(142) by MLB on >`3-Oct-79
	PRINTX?	    	GLXMAC	Actual Edit(A)
	[YP 1[3@ }0k<<<1_<A>>-1>B<B>>_<A>>[8@ |0c1B<<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[vxQ [[v[lp [lXp [lrp [ltp [lxp [l}p [hKW [%\
	IFNB <>[ ,<
	PRINTX  (Fro[@m GLXVER)
	> ;END IFNB 
	S; KW[hMt Y@%T
	PRINTX Y`GLXVER	GLXMEM EdiZt(11) by PJT on 5Z -Jan-79
	PRINTX	Z@    	GLXMEM	Actual 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 ~1U
   ..MX1~Q==B			
IFDEF .P~pSECT,<
   .IFN ..MX1,ABSOLUTE,<
0	MOVE A,[B]>
 P  .IF ..MX1,ABSOLpUTE,<
	..MX2==0		
	IFE <..MX1>B503,<
	P..MX2==1
	  MOVEI A,..MXp1>	
	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>> IFNDEF A,<A==B>]F@ /TEMFDB##_
QkRp _
Ql}p _
Qmp _
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 System>
<DBMS S_SKW S`%"
	IFNB <>T,<
	PRINTX  (FroT m GLXVER)
	> ;END IFNB 
	_SMt R %
	PRINTX R@GLXVER	GLXOTS EdiR`t(3) by DC on 19-SJun-79
	PRINTX	 S    	GLXOTS	Actual Edit(A)
	_SYP _Sh6 T!" [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 {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)
	> ;END IFNB 
	a@Mt H $J
	PRINTX H@GLXVER	GLXPFH EdiH`t(2) by DC on 27-IJul-79
	PRINTX	 I    	GLXPFH	Actual Edit(A)
	aDYP a w8;LSH A,^D9LSH 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.				
tPCaPtkP aPuTP aPv=xP aPv\rP aPv|UP aR/

	   OPC CQA
	   POINTR(0,B)
	POINTR(0,e"luP'ePv8vP ePv9VP ePv;P fDP fHP gkp gk9p glp glp gltp gl}p g4P oQPRINTX % Roqeplacing SAVE witph $SAVE
		   $SAVE <A>		   $SAgpKW B $
	IFNB <>B@,<
	PRINTX  (FroB`m GLXVER)
	> ;END IFNB 
	gpMt @`$
	PRINTX AGLXVER	GLXSCN EdiA t(37) by MLB on 2A@5-Sep-79
	PRINTXA`	    	GLXSCN	Actual 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 ..TVAL,..TMSK
	.Tg#=z@iHC.SWIT+PDBCPY##C.SWIT+PDBg$tkQM@g$uP'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,.IOPCPM,.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.TQOL,.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 hDP hHP hLP hPP iFC@ Bq
TXT1. (A)TXT1. (A)iP i?4( U(IFN FTUUOS,B			;DEFINE UNi?4H UA,IFN FTJSYS,	INTERN AEDT	iG, 6al
	LSTOF.
	X(T,TXT.A)			
7 	X(O,TXT.A)			
	7@X(D,TXT.A)			
	X7`(F,TXT.A)			
	X(87,TXT.A)			
	X(68 ,TXT.A)			
	X(W,[email protected])			
	X(5,T8`XT.A)			
	X(P,TX9T.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)			
	LSTON.
)			
	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,PA 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(CA,A,<B>).TX(CibP /y
		..TX(CE,A,<B>).TX(Cib` /Q}
		..TX(CN,A,<B>).TX(Cibp (QE
		..TX(N,A,<B>)..TX(Nibt *Q
		..TX(NA,A,<B>).TX(NibtP )I
		..TX(NE,A,<B>).TX(Nibu` )QM
		..TX(NN,A,<B>).TX(Nibx *QU
		..TX(O,A,<B>)..TX(Oib| ,a
		..TX(OA,A,<B>).TX(Oib|P +Y
		..TX(OE,A,<B>).TX(Oib}` +Q]
		..TX(ON,A,<B>).TX(Oic KW =#l
	IFNB <>= ,<
	PRINTX  (Fro=@m GLXVER)
	> ;END IFNB 
	ic Mt ;@#d
	PRINTX ;`GLXVER	GLXTXT Edi<t(35) by AWC on 9< -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 ,Qe
		..TX(Z,A,<B>)..TX(ZicT .q
		..TX(ZA,A,<B>).TX(ZicTP -i
		..TX(ZE,A,<B>).TX(ZicU` -Qm
		..TX(ZN,A,<B>).TX(Zm6P$am?pP$mKc@ 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{hIFB <C>,<=A==:B> IFNB <C>,<A=:B>B <Cup 1	
	IFNB <QB>,<..STR1 (..TQZp,,<B>,A,..STR4)>
	IFB  <B>,<SETZM A><B>,<SEuhP$a	;z (P
	.$RESET(!
	$TYPE (.CMACT)(@
	$HELP (<>)
	$(`NEXT (A)
IFIDN )<B> <>,< IRP C,) <C>
			.$BUILD>)@
IFDIF <B> <>,<)`
	$HELP (B)
	I*RP C,<C>
	.$BUILD><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>
			.%LST==11>
			.%L	
=Z q	'
	  IFG A-INT.LV,<PRINTX 0?Level A interruPpts not supportedp>
	  .BGINT.(\A)   .BGINT.(\A	X5 cDEFINE .$Bc9REA <A>
			.%BREA==1>
			.%BR	- Q	E
	  IFDEFq ..BSIZ,<PRINTX ?Missing $EOB afte0r a $BUILD>
	  .P.BSIZ==0			
	  .p.BLOC==.			
	  REPEAT A,<			
		0BLD0.(\..BSIZ,0)	P
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 a
	.$RESET
	$TYPE (.CMCMA) 
	$NEXT (A)
	I@RP B,<B>
	.$BUILD,<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)
	IRP C,<C>
	.$BUILD><C>
	.$BU	H  &a
;_0
		.PSECT'	DATA
	A:	BLOCK'0	B
		.ENDPS
	B
		.ENDPS
	{
11	I  Ad
	.$RESETa
	$TYPE (.CMTAD)
	$PDATA (CM%IDA )
	$NEXT (A)
	@IRP B,<B>
	.$BUILD,<B>
	.$B	,,U q	1
	  $RET				;WILL INVOKE RIGHT ROUTINE
		,h: _}DEFINE .$D_9EFM <POINT 7,[ASC_XIZ\A\]>
			.%DEFM==1>
			.%DE	.` aD
	.$RESET
	$TYPE (.CMDEV) 
	$NEXT (A)
	I@RP B,<B>
	.$BUILD,<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)
	IRP B,<B>
	.$BUILD,<B>
	.$BU	|  Q
	
	  IFNDEqF ..BSIZ,<PRINTX ?$EOB without pre0vious $BUILD>
	 P IFN <.-..BLOC>,<pPRINTX ?Address change between $BU0ILD and $EOB>
	 P LSTOF.			
	  ..pT==0
	  REPEAT . .BSIZ,<
	    BLD 00.(\..T,1)		
	   P  ..T==..T+1 >
	 p  PURGE ..BSIZ,..!T,..BLOC	
	  LSTON.
		
	  LST	+y b9DEFINE .$EbYRTN <A>
			.%ERTN==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>
	.$BUILD><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>
	.$BUILD><C>
	.$BU	dy \9eDEFINE .$F\YLGS <A>
			.%FLGS==1>
			.%FL	ex: !:
	.$RESETA
	$TYPE (.CMFLT)`
	$HELP (<>)
	$NEXT (A)
IFIDN  <B> <>,< IRP C,@<C>
			.$BUILD>`
IFDIF <B> <>,<
	$HELP (B)
	I RP C,<C>
	.$BUILD><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>
	.$BUILD><C>
	.$BU	&u &
	.$RESET!
	$NEXT (A)
	$@TYPE (.CMINI)
	I`RP B,<B>
	.$BUILD,<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 yB,<B>
	.$BUILD,<B>
	.$BUILD	/>KyD%Q/.WTOX.(.OM%qWTR,,,,<A>,<$WTFLG(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>
	.$BUILD><C>
	.$B	:}r A
	.$RESETa
	$TYPE (.CMNOI)
	$PDATA (<POINT  7,[ASCIZ\B\]>)
	$NEXT (A)
	IR`P C,<C>
	.$BUILD,<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>
	.$BUILD><C>
	.$BU	B$ ]kDEFINE .$D]9ATA <A>
			.%DATA==1>
			.%DA	B$YP `DEFINE .$D`9EFM <POINT 7,<A>>
			.%DEFM==1	CYT e9-DEFINE .$DeYEFR <A>
			.%DEFR==1>
			.%DE	G-}  
	.$RESET !
	$TYPE (.CMQST) @
	$HELP (<>)
	$ `NEXT (A)
IFIDN !<B> <>,< IRP C,! <C>
			.$BUILD>!@
IFDIF <B> <>,<!`
	$HELP (B)
	I"RP C,<C>
	.$BUILD><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:	SUPPRESS 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
	0DEFINE $ETAB <
		b==.-a> <
		O%| -!
r
S..A::!-A	$CALL .STOP
		L-`STOF.
		JUMP [XW.D 'A',[ITEXT (<. B>)]
			EXP %%.MOD]
		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|
	.$RESETa
	$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>		
	I2FE <..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>
	.$BUILD,<B>
	.$B	R}97 *A^
	.$RESET*a
	$TYPE (.CMTOK)+
	$PDATA (<POINT+  7,[ASCIZ\B\]>)
	$NEXT (A)
	IR+`P C,<C>
	.$BUILD,<C>
	.$BUI	SN	  [Y_DEFINE .$T[yYP <A>
			.%TYPE==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>
	.$BUILD,<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	<ARGCOD-1>,<<WO.'SUFFIXp'>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>,<.$WMFL==0>>
		IFNB	<0A>,<.WFMFL==-1
	P		IFN <1-2>,<.$WMpFL==.$WMFL!<A>>
			IFE <1-2>,<DE0FINE .$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>,<DEFINE .$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 
,MP 1)0 ?09[PZ6 o<			

	do!==<FLD(.$TYP,CM%Fo@NC)>!.$FLGS!<.$LSo`T> 

	IFN <.%BRpEA>,<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>,<	EXtP	.$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	.$DEwFR>	


	b==.-w c			

	IF2<	PUw@RGE a,b,c,d>
	LISTb,c,d>POINT7,[ASCIZ\0\]NT7,[A$YY C09QP.- =09YQ5Iy 30kof= 90+1Pw
	SALL
	iaXLIST
	DEFINE .$jTYP <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>
	.%BREmA==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@A0,: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	
	  IF0E <..AS1&^O777777PB17>,<
		..AS2==p1	
	    DI A,..AS1>
	  IFE ..A0S2,<		
	    ..OPP(A,B,C)>
	PURGE ..AS1,..AS2>:h k
	A: %
	  ..CX11==C
	IFDEF .PSEPCT,<
 	.IFN ..CXp1,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 ..CX1,..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<:~ 
	  ..OP11==B
	IFDEF .PSEPCT,<
 	.IFN ..OPp1,ABSOLUTE,<
	      C A,[..OP1]0>
	.IF ..OP1,ABSPOLUTE,<	
		..OP2p==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>,<
		PRINTX0 ?WORD offset grePater 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>-^O777777B17,<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]>	
	PURGE ..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,^-..TX1>QVI B,^-..TX
0P 
@P 
PP 
`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%INTAJSR I%INT9  ;qi
	..CSN==<A
	..CSC==0
	I<0RP B,<
	IFE ..C<PSN-..CSC,<
	  ST<pOPI
	  ..CAS1 (=B)>
	..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;]PD<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 B0>,<	
		$CALL .AOPS	
		LSTOF.
		JpUMP [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 ;q
	IFG	A-RAMX.PID,<MX.PID==A>
C
G	A-OSP OYP O|P OyP 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.  kPP >}{woP