Google
 
Trailing-Edge - PDP-10 Archives - BB-H137C-BM - galaxy-subsys/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,5d@P C4@ F

4
	..NAC==F!0		
	IRP A,<
	F@  .ACV1 (A)>		
	.ACV3 (\..NAC)C' p..AS(A,B,ADD,SUB)(A,BC, RiLSH A,-^D9LSH A,-^DC2f} U!<
	.EAWTO(UAMTY,0)
	.EAWTO(TU`YP,2)
	.EAWTO(TXVT,2)
	.EAWTO(OBJV ,0)
	.EAWTO(ACK,V@0)
	.EAWTO(FLG,1V`)
	.EAWTO(NOD,0)W
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
W@	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' A	$
	TXZA,<^-<B>>TXZ A,CR/
	DEFINE	XTEXT.(OPCODE,NEW )<
	OPCODE	<A,<NEW>>>ODE	<A,<E2"@ |Aj
	  IFE |aB,<..TA==0>
	  }IFN B,<EXP ..TA} 
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ iH
	    ..CX(,A,B)   ..CGD lAd
	    ..CX(A,A,B)  ..CGDP jAT
	    ..CX(E,A,B)  ..CGDp kX
	    ..CX(G,A,B)  ..CGDy  kA\
	    ..CX(GE,A,B) ..CGE@ iAL
	    ..CX(L,A,B)  ..CGEI  jP
	    ..CX(LE,A,B) ..CGE` l`
	    ..CX(N,A,B)  ..CGx mZZ==ZZ+1GH 4
	
	  LSATOF.

	X CRE	
a	X GEN	
	X!PRT	
	X CLS	
	X AUT	
	X USW	
	X SPL 	
	X SIZ   
	X @MOD	
	X CHN	

	  LSTON.


G"\Y 5y#E

	IF1, 6<%%EDT==AEDT>	
68
	IF2, <IFN <%%E6XDT-AEDT>,<
		PR6xINTX ? Edit Numbe7r Doesn't Match G78LXVER in GLXA
	7X	A$WHO(\AEDT)>	7x
		A$NOTE		
	I8NTERN AEDT		
	I88NTERN LODLEV		
;8X	PURGE %%EDT> ;END IF2

t$G4-ZQ G:YlP 

G>hKW =#m
	IFNB <>=8,<
	PRINTX  (Fro=Xm GLXVER)
	> ;END IFNB 
	PG>hMt ;X#e
	PRINTX ;xGLXVER	GLXCOM Edi<t(32) by PJT on 9<8-Jul-79
	PRINTX	<X    	GLXCOM	Actual Edit(A)
	zG>lYPyLALL
PAGE; (A Continued o8n next page)
SALXL;(AContinued xfrom previous page) previous pagG?pP$GHt;rP GHtkP GHv	P GHv)9P GHv:=P GR/
	DEFINE !XTEXT.(OPCODE,NEW!)<
	OPCODE	<<NEW>>>OPCODE	<<NEWI!k7P I!k<P ImP I$P'pIY{P .I  g!@
	IFNB <gAB>,<..STR0 (.DECRg`0,,<B>,A)>
	IFhB  <B>,<SOS A>  <B>,<SOS A>I6= A

	A==<-1aB<C>+1B<C-D>> 
	IF1,<IFDEF %A ,<PRINTX ?A ALRE@ADY DEFINED>>
	D`EFINE %A (OP,AC, Y,MSK)<	
	IFDIF   <Y><>,<
	OP (<AC @>,B+'Y,MSK)>	
	 `IFIDN <Y><>,<
	O!P (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)I'7 rA..OP(A,B,DIV)..OP(A,BI?pP&IOH1  C
	IFB <D1>,<
	XWD	[ASCIZ\PC\],[XWD B,A]>p
	IFNB <D>,<
	XWD	[EXP CM%FW!D0
		ASCIZ\C\],[XWD B,A]>
,[XIR/d
	IFN TFL!G,<
DEFINE TXT1.@(A,B,C,D,E,F,G,H,`I,J,K,L,M,N,O,P,Q ,R,S,T,U,V,W,X,Y,  ZZ,A1,B1,C1,D1,E1 @)<
A+[ASCIZ\A'B `'C'D'E'F'G'H'I'J'!K'L'M'N'O'P'Q'R'S! 'T'U'V'W'X'Y'ZZ'A!@1'B1'C1'D1'E1\]
!`>>
IFE TFLG,<
D"EFINE TXT1.(A,B,C" ,D,E,F,G,H,I,J,K,"@L,M,N,O,P,Q,R,S,T"`,U,V,W,X,Y,ZZ,A1,#B1,C1,D1,E1)<
	I# FE ZFLG,<
	OPDEF#@ OPC [A]
OPC A'#`B'C'D'E'F'G'H'I'J$'K'L'M'N'O'P'Q'R'$ S'T'U'V'W'X'Y'ZZ'$@A1'B1'C1'D1'E1
	$`>
	IFN ZFLG,<
	%OPDEF OPC [ZFLG+% A]
PTEXT.(A'B'C'%@D'E'F'G'H'I'J'K'L%`'M'N'O'P'Q'R'S'T'&U'V'W'X'Y'ZZ'A1'B& 1'C1'D1'E1)
	>
&@>>

IFE A&TXT.&`NA,<
	  .CREF
	'XTEXT. TEXT.
	  ' .XCREF
		>
IFN '@A&TXT.NA,<
	EXP'` A
		>

IFN (A&TXT.S,<
	IFE S( CHAR,<SCHAR==" ">(@
	IFE SSIDE,< IF(`E TXTF.D-<A&TXT.)M>,< SSIDE==TXT.S) R>>
	IFE SSIDE,<)@ IFE TXTF.O-<A&T)`XT.M>,< SSIDE==TX*T.SR>>
	IFE SSID* E,< SSIDE==TXT.SL*@>
	EXP <<INSVL.(*`SCHAR,TXT.SC)>+<I+NSVL.(SSIDE,TXT.S+ S)>+<INSVL.(SWIDT+@H,TXT.SP)>>
	SSI+`DE==0
	SWIDTH==0,
	SCHAR==0
>
	, CTEXT.
	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 !$
	ERA$==AER%%%
	ER%%%==ER%%%+1
R%%%==ERKK,}P KK|Y 
	ERR	EOF!,<End Of File>
	@ERR	IFP,<Illegal `file position>
	ERR	FDE,<File Dat a Error>
	ERR	FN@D,<File is not on` disk>
	ERR	NSD,<No such device>
	ERR	FCF,<File c@heckpoint failed>`
	ERR	SLE,<A System Limit Was Exc eeded>
	ERR	IFS,@<Illegal File Spe`cification>
	ERR		FNF,<File Not Fo	 und>
	ERR	PRT,<P	@rotection Violati	`on>
	ERR	DNA,<De
vice Was Not Avai
 lable>
	ERR	NCE,
@<No "current" ent
`ry in list>
	ERR	NMA,<No IPCF mes sage is available@>
	ERR	FDS,<File`s are on differen

t structures>
	E

 RR	FAE,<File alre

@ady exists>
	ERR

`	USE,<Unexpected 
	E	NSP,<No Such P
	ERR	BOL,<Beist reached>
	ERR	EOL ,<End of list rea@ched>
	ERR	RQF,<`Receiver's quota full>
	ERR	SQF,< Sender's quota fu@ll>
	ERR	NRE,<No` Remembered Entry>
	ERR	TBF,<The  Command Table is @full>
	ERR	EIT,<`Entry already exists in the table> 
	ERR	ITE,<Inval@id Table Entry>
`	ERR	QEF,<Quota Exceeded or Disk F ull>
	ERR	ARG,<I@nvalid Argument>
	ERR	UJI,<Invalid I%JINF Function >
	ERR	IJN,<Inva@lid Job Number Sp`ecified for I%JINF>
d for I%JINKKBP 
KKI"P KKBP 
KK$)BP-KK-*"P KK.9"P KR/
IF1,<
	-!IFN EFLG&1,<PRINT-@X ?Uknown qualifi-`er in A call of .B
		     PRINTX. 
>
	IFN EFLG&2,.@<PRINTX ?Bad spac.`ing specification/ in A call of B/ 
		     PRINTX
/@>
	IFN EFLG&4,<P/`RINTX ?Premature 0end of text in A0  call of B
		  0@   PRINTX
>
	IF0`N EFLG&10,<PRINTX1 ?Bad address in 1 A call of B
		1@     PRINTX
>
	1`IFN EFLG&20,<PRIN2TX ?Variable addr2 ess too long in 2@A call of B
		 2`    PRINTX
>
	I3FN EFLG&40,<PRINT3 X ?Spacing on I q3@ualifier in A ca3`ll of B
		     4PRINTX
>
> ;END OF IF1
> ;ENDKc  9EIRP A,<
Y	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 88#G
	IFNB <>8X,<
	PRINTX  (Fro8xm GLXVER)
	> ;END IFNB 
	M&`Mt 6x#?
	PRINTX 7GLXVER	GLXFIL Edi78t(47) by MLB on 17X2-Sep-79
	PRINTX7x	    	GLXFIL	Actual Edit(A)
	M&dYP M2  V0<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/' =a			
     >   SFLG==0				
	> STYP==0				
	IFI>@DN <A><^>,<STYP=>`=TXTF.2>	
	IFE S?TYP,<IFDEF TXTF.? A,<STYP==TXTF.A>?@>
	IFE STYP,<EFL?`G==EFLG!1>		
	IF@N STYP&TXT.NA,<		@ 
	     DTEXT.(ST@@YP)		
	     IFLG@`==3			
			>	 	
A	IFE STYP&TXT.NA,A <		
	    IFLG==1A@			
	    AFLG==1A`			
	    SWIDTH=B=0			
			>	 	
	ZFLG==0				
 	MR/G BA4			
	IFIDBaN <A></>,<			
	C    AFLG==0			
	C     IFLG==3			
	C@    DTEXT.(STYP)	C`	
		  >         D 		
	IFN AFLG,<	D 		
	    XTEXT. AD@TEXT.,<A>
	    D`AFLG==AFLG+1		
	E    IFE AFLG-^D31E ,<EFLG==EFLG!20> E@
	    IFIDN <A>E`<,>,<		
		IFN ZFFLG,<EFLG==EFLG!10F > 
		ZFLG==TXT.PF@
			  >		
		  >			
 		
		  >MR/g GL			

	IFG!E IFLG-3, <			
	G@    IFLG==0			
	G`	    >			
	IFE IHFLG-2,<			
	    H IFLG==0			
	    H@IFDIF<A></>,<FTEH`X4.(<A>)>	
		  I>			
	IFE IFLG-1I ,<			
	    IFLG=I@=2			
		 >	 		
 	
		/>			J&			
    EJ!FLG==EFLG!2			
 J@    IFE SSIDE,<		J`	
    IFLE "0"-"KA",<			
	IFGE "K 9"-"A",<SWIDTH==K@SWIDTH*^D10+^DA K`
		   IFE STYP-TLXTF.I<EFLG==EFLG!L 40> 
		   STYP==L@STYP!TXT.S	
		  L` EFLG==EFLG&<^-2>M	
		 >			
		  >M 			
	>				
    M@IFIDN <A><R>,< 	M`		
	   IFN SWIDTNH,<			
		SSIDE==N TXT.SR		
		EFLG=N@=EFLG&<^-2>	
		 N`      >		
		    O>			
    IFIDN <O A><L>,< 			
	O`O@ IFN SWIDTH,<			
		SSIDE==TXT.SL	P	
		EFLG==EFLG&<P ^-2>	
		       >P@		
		    >			
 P`   IFIDN <A><C>,Q< 			
	   IFN SWQ IDTH,<			
		SSIDQ@E==TXT.SM		
		EFQ`LG==EFLG&<^-2>	
R		       >		
		 R    >			
    IFN R@SWIDTH, <			
	IFR`N SSIDE,<			
	 ISFN EFLG&2,<			
	S    IFE SCHAR,< SCS@HAR=="A"	
			EFS`LG==EFLG&<^-2>
	T	     >			
		  >T 			
		  >			
		T@ >			
    IFE EFT`LG&2,< IFLG==2>		
IFLG==2>		MR/
	TFLG==06a	
	AFLG==0	
	SF7LG==0	
	IFLG==0	7 
	ZFLG==0	
	EFL7@G==0
	SCHAR==0
7`	SWIDTH==0
	SSID8E==0
	CTEXT.

8 IRPC A,<	
    I8@FN SFLG,<	
	FTEX8`1.(<A>)	
>		
I9FE SFLG+AFLG+IFLG9 ,<	
IFIDN <A>,<9@^>,<	
IFN TFLG,<9`DTEXT.(TXTF.3)>
:SFLG==1	
>	
IFE:  SFLG,<	
IFE ^D2:@9-TFLG,<
DTEXT.(:`TXTF.3)
>	
TFLG;==TFLG+1	
XTEXT.;  ATEXT.,<A>	
>	;@
>	
IFE SFLG+IF;`LG+TFLG,<	
FTEX2<.(<A>)	
>	
IFN<  IFLG,<
FTEX3.(<<@A>)	
>	
>
IFN<` TFLG,<DTEXT.(TXT=F.3)>
IFN AFLG+S= FLG+IFLG,<EFLG==EFLG!4>
	FLG==EMRV>9Q MS.[yP M^luQ O2|  SIRP A,<
9	IF2,<IFDEF A,<.XIFN A,EXTERN,<INxTERN A>>
	     IFNDEF A,<EXTERN8 A>
	Q SUPPRESPA>>FlYSUPPRO3DYPF+O3EKrPf+O3EZ7PO3F\Yp Stkp SuZp Su}:p Sv
1p Sv

Sp Sv>@p SNn r..OP(A,B,IDIV).OP(A,BS7-N q..OP(A,B,IMUL).OP(A,BS:  d!(
	IFNB <dAB>,<..STR0 (.INCRd`0,,<B>,A)>
	IFeB  <B>,<AOS A>  <B>,<AOS A>S:HKW B$
	IFNB <>B8,<
	PRINTX  (FroBXm GLXVER)
	> ;END IFNB 
	S:HMt @X$
	PRINTX @xGLXVER	GLXINI EdiAt(7) by MLB on 3-A8Jul-79
	PRINTX	 AX   	GLXINI	Actual Edit(A)
	S:LYP S;k XaF<<<A>B<POS(<B>)>>&<B>>S; KW ?X$
	IFNB <>?x,<
	PRINTX  (Fro@m GLXVER)
	> ;END IFNB 
	S; Mt >#y
	PRINTX >8GLXVER	GLXINT Edi>Xt(47) by MLB on 5>x-Jul-79
	PRINTX	?    	GLXINT	Actual Edit(A)
	"cS;!kP S;!k<P S;$YP S? 	 
	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 G8$?
	IFNB <>GX,<
	PRINTX  (FroGxm GLXVER)
	> ;END IFNB 
	SBMt Ex$7
	PRINTX FGLXVER	GLXIPC EdiF8t(43) by MLB on 1FX1-Jun-79
	PRINTXFx	    	GLXIPC	Actual Edit(A)
	SBYP SBd+P&SBn	P&SBn
P&SBn
P&	SBnP&	SBnP&
SBn

P&
SB2P SB)iP&	SB)iP&SB)kVP&SB)kYP'SB)lXP&
SB)lsP&
SB)lxP&	SB)mvP&SBal}P SPuxzQ @SR/
	LSTOF. 4aXCREF			
	FTEXT.5(<A>)		
	IFN EF5 LG,< ETEXT.(ITEXT5@,<A>)> ;IF ERROR5`, DESCRIBE IT
	E6XP	0			
	LSTON.		0			
	LSTON.	Uv98Q xU$@ 1Z
	
	  LS!TOF.

	X JNO,.J@IJNO,<-1,,GJBJNO>`	
	X TNO,.JITNO,<-1,,GJBTTY>	
	X  USR,.JIUNO,.GTPP@N		
	X CDN,.JIDN`O,<-1,,GJBPTH>	
	X PRG,.JIPNM,.GT PRG		
	X CJN,.JI@CPJ,<-1,,GJBCJB>	`
	X BAT,.JIBCH,.GTOBI		
	X JLT,. JISTM,.GTJLT		
	@X LOC,<-1,,GJBLOC`>,.GTLOC	
	X RTM,.JIRT,<-1,,GJBRT M>	

	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 5x#3
	IFNB <>6,<
	PRINTX  (Fro68m GLXVER)
	> ;END IFNB 
	W
 Mt 48#+
	PRINTX 4XGLXVER	GLXKBD Edi4xt(24) by MLB on 250-Sep-79
	PRINTX58	    	GLXKBD	Actual Edit(A)
	W
$YP 
WNH1 q O
	IFB <C	>,<
	XWD	[ASCIZ\	0B\],A>
	IFNB <	PC>,<
	XWD	[EXP 	pCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 4	

	  LST4)OF. XCREF

	CDO4H	     			
	CDO	.4hZPAGA
	CDO	.ZPAG5N
	CDO	.ZCHNK
	5(CDO	.SAVE1
	CDO	5H.SAVE2
	CDO	.SAV5hE3
	CDO	.SAVE4
6	CDO	.SAVET
	CDO6(	.SV13
	CDO	.SV16H4
	CDO	.SV15
	C6hDO	.SV16
	CDO	.R7ETT
	CDO	.RETF
7(	CDO	.RETE
	CDO	7H.AOS		
	CDO	.SOS7h		
	CDO	.ZERO		
	CDO	.POPJ
	CDO8(	.STOP
	CDO	.SAV8HE8		
	CDO	.STKST8h		
	CDO	.TRSET		9
	CDO			
	CDO	.9(POPJ		
	CDO
	CD9HO
	CDO
	CDO
	C9hDO

	CDO				
	:CDO	C%RPRM
	CDO	:(C%INTR
	CDO	C%SE:HND
	CDO	C%RECV
:h	CDO	C%BRCV
	CDO;	C%REL
	CDO	C%CP;(ID
	CDO	C%KPID
;H	CDO	C%SPID
	CDO;h	C%MAXP
	CDO	C%P<IDJ
	CDO
	CDO
<(	CDO
	CDO
	CDO

	CDO	      			<h
	CDO	F%IOPN
	C=DO	F%AOPN
	CDO	F=(%OOPN
	CDO	F%IBY=HT
	CDO	F%OBYT
	=hCDO	F%IBUF
	CDO	>F%OBUF
	CDO	F%RE>(L
	CDO	F%DREL
	>HCDO	F%RREL
	CDO	>hF%REW
	CDO	F%POS?
	CDO	F%CHKP
	C?(DO	F%INFO
	CDO	F?H%FD
	CDO	F%REN
?h	CDO	F%DEL
	CDO	@F%FCHN
	CDO
	CD@(O
	CDO
	CDO
	C@HDO
	CDO
	CDO
	@hCDO
	CDO

	CDOA	      			
	CDO	A(M%ACQP
	CDO	M%REAHLP
	CDO	M%IPSN
Ah	CDO	M%NXPG
	CDOB	M%IPRC
	CDO	M%IB(PRM
	CDO	M%AQNP
	CDO	M%RLNP
	CDBhO	M%CLNC
	CDO	M%CFPGS
	CDO	M%GMEMC(
	CDO	M%RMEM
	CCHDO
	CDO
	CDO
	ChCDO
	CDO
	CDO
D	CDO	M%GPAG
	CDOD(	M%RPAG
	CDO
	CDHDO
	CDO
	CDO
	DhCDO
	CDO
	CDO
E	CDO

	CDO	    E(  			
	CDO	T%TEXEHT
	CDO	T%TTY
	CEhDO
	CDO
	CDO
	FCDO
	CDO
	CDO
F(	CDO
	CDO
	CDO
	CDO

	CDO	   Fh   			
	CDO	L%CLGST
	CDO	L%DLST
G(	CDO	L%CENT
	CDOGH	L%CBFR
	CDO	L%DGhENT
	CDO	L%NEXT
	CDO	L%FIRS
	CDH(O	L%LAST
	CDO	L%HHPREV
	CDO	L%PREMHh
	CDO	L%CURR
	CIDO	L%RENT
	CDO	LI(%SIZE
	CDO	L%APOIHS
	CDO
	CDO
	CIhDO
	CDO
	CDO
	JCDO
	CDO
	CDO
J(
	CDO	I%INI1			
	CDO	I%NOW
	CDOJh	I%EXIT
	CDO	I%IKON
	CDO	I%IOFF
K(	CDO	I%SLP
	CDO	KHI%INT1
	CDO	I%INKhT2
	CDO	I%INT3
L	CDO
	CDO
	CDO
	CDO	I%SOPR
	CDLHO	I%WTO
	CDO
	CLhDO	I%HOST
	CDO	IM%JINF
	CDO
	CDOM(

	CDO				
	CDMHO
	CDO
	CDO	S%SMhIXB
	CDO	S%CMND
	CDO	S%TBLK
	CDN(O	S%SCMP
	CDO	S%NHERR
	CDO	S%INTR
	CDO	S%EXIT
	CDOO	S%TBAD
	CDO	S%O(TBDL
	CDO
	

OH	CDO	K%RCOC			
	OhCDO	K%WCOC
	CDO	PK%SUET
	CDO	K%STP(YP
	CDO	K%TXTI
PH	CDO	K%SOUT
	CDOPh	K%BOUT
	CDO	K%BQIN
	CDO	K%BACK
Q(	CDO	K%TPOS
	CDOQH
	CDO
	CDO
	CDQhO
	  LSTON.
  
	  LSTON.
  Y:XKW IX$Q
	IFNB <>Ix,<
	PRINTX  (FroJm GLXVER)
	> ;END IFNB 
	Y:XMt H$I
	PRINTX H8GLXVER	GLXLNK EdiHXt(5) by AWC on 6-HxJun-79
	PRINTX	 I   	GLXLNK	Actual Edit(A)
	Y:\YP Y>

@]a
	IFNB <^C>,<..STR0 (..LDB^ ,A,C,B)>
	IFB^@  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 9m
	IFNDEF YLSTIN.,LSTIN.==0	x	
IFE LSTIN.,<
	IFIDN <XCREF><A8>,<.XCREF>	
		  X XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G w
	IFG LST9IN.,LSTIN.==LSTINX.-1	
	IFLE LSTINx.,<.CREF		
		      LIST>
		   [KW 0X#	
	IFNB <>0x,<
	PRINTX  (Fro1m GLXVER)
	> ;END IFNB 
	[Mt /#
	PRINTX /8GLXVER	GLXMAC Edi/Xt(142) by MLB on /x3-Oct-79
	PRINTX0	    	GLXMAC	Actual Edit(A)
	[YP 1[3@ X!B<<<1_<A>>-1>B<B>>_<A>>[8@ W!:1B<<A>-1>-1B<B><<A>-1>[@ /I
	IFB <B/i>,<MAXSIZ==0
		I0RP A,<IFG <A-MA0(XSIZ>,<MAXSIZ==A0H>>>
	IFNB <B>,<0hB==0
		IRP A,<1IFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
QP'[v:Q[vxQ [[v[lp [lXp [lrp [ltp [lxp [l}p [hKW L$e
	IFNB <>L8,<
	PRINTX  (FroLXm GLXVER)
	> ;END IFNB 
	[hMt JX$]
	PRINTX JxGLXVER	GLXMEM EdiKt(11) by PJT on 5K8-Jan-79
	PRINTX	KX    	GLXMEM	Actual Edit(A)
	[lYP [n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 1I
	IFB <B1i>,<MINSIZ==3777772,,777777
		IRP 2(A,<IFG <MINSIZ-A2H>,<MINSIZ==A>>>
	IFNB <B>,<B==3377777,,777777
	3(	IRP A,<IFG <B-3HA>,<B==A>>>
A>,<B==A>>>
[>!` Wa><A-<A/B>*B><A-<A/B[?7 Y!,
   ..MX1YA==B			
IFDEF .PY`SECT,<
   .IFN .Z.MX1,ABSOLUTE,<
Z 	MOVE A,[B]>
 Z@  .IF ..MX1,ABSOLZ`UTE,<
	..MX2==0	[	
	IFE <..MX1>B5[ 3,<
	[@..MX2==1
	  MOVEI A,..MX[`1>	
	IFE ..MX2,<\		
	IFE <..MX1>B\ 17,<
	  ..MX2==1\@
	  MOVSI A,(..\`MX1)>>	
	IFE ..M]X2,<		
	IFE <<..] MX1>B53-^O777777>]@,<
	  ..MX2==1
]`	  HRROI A,<..MX^1>>>	
	IFE ..MX2^ ,<		
	IFE <<..MX^@1>B17-^O777777B17^`>,<
	 ..MX2==1
	  HRLOI A,(..M_ X1-^O777777)>> 
_@	IFE ..MX2,<		
	_`  MOVE A,[..MX1]`>	
	>>

IFNDEF`  .PSECT,<
	..MX2`@==0		
	IFE <..MX``1>B53,<
	  ..MX2a==1
	  MOVEI A,a ..MX1>	
	IFE ..Ma@X2,<		
	IFE <..Ma`X1>B17,<
	  ..MXb2==1
	  MOVSI Ab ,(..MX1)>>	
	IFEb@ ..MX2,<		
	IFE b`<<..MX1>B53-^O777c777>,<
	  ..MX2=c =1
	  HRROI A,<[email protected]>>>	
	IFE .c`.MX2,<		
	IFE <<d..MX1>B17-^O77777d 7B17>,<
	  ..MX2d@==1
	  HRLOI A,d`(..MX1-^O777777)>e> 
	IFE ..MX2,<	e 	
	  MOVE A,[..e@MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= !A

	A==C	!a	
	IF1,<IFDEF %"A,<PRINTX ?A ALR" EADY DEFINED>>
	"@DEFINE %A (OP,AC"`,Y,MSK)<	
	IFDIF# <Y><>,<
	OP (<A# C>,B+'Y,MSK)>	
#@	IFIDN <Y><>,<
	#`OP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK[PuySP'[PvNP'[Vg qA

..OP(A,B,MUL)..OP(A,B[`v
2P ] I6IF2,<IFDEFi A,<A==A>> IFNDEF A,<A==B>]F@ TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=  a2

	X	.OTqRDR,Reader
	X	.OTNCU,Network-Cont!roller
	X	.OTLPT A,Printer
	X	.OTB!iAT,Batch-Stream
"	X	.OTCDP,Card-Pu"(nch
	X	.OTPTP,Pa"Hpertape
	X	.OTPL"hT,Plotter
	X	.OT#JOB,Job
	X	.OTTR#(M,Terminal
	X	.O#HTOPR,Operator
	X#h	.OTIBM,<IBM Remo$te>
	X	.OTMNT,<D$(evice>
	X	.OTXFR$H,<File Transfer>
	X	.OTBIN,<Card %Reader Interprete%(r>
	X	.OTRET,<Fi%Hle Retrieval>
	X%h	.OTNOT,<Retrieva&l Notification>
&(	X	.OTDBM,<DBMS System>
<DBMS S_SKW Dx$+
	IFNB <>E,<
	PRINTX  (FroE8m GLXVER)
	> ;END IFNB 
	_SMt C8$#
	PRINTX CXGLXVER	GLXOTS EdiCxt(3) by DC on 19-DJun-79
	PRINTX	 D8   	GLXOTS	Actual Edit(A)
	_SYP _Sh6 /y [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 VA0

	..XX=/q=<FLD(A,CM%FNC)>/Q+B+<Z F> 

  0! IFNB <D>,<..XX=[email protected]!CM%HPP> 
  0` IFNB <E>,<..XX=1..XX!CM%DPP> 

1 	EXP ..XX		

  1@ IFNB <C>,<EXP 1`C>
   IFB <C>,<2EXP 0>

   IFNB2  <D>,<POINT 7,[A2@SCIZ \D\]>
   I2`FB <D>,<0>

33 IFNB <E>,<POINT3  7,[ASCIZ \E\]>
3`IFB <E>,<0>



   IFB <I4>,<0>
   IFNB <4 I>,<EXP I>

  4@ IFB <J>,<0>
  4` IFNB <J>,<EXP 5J>

   IFB <H>5 ,<0>
   IFNB <H5@>,<EXP H>

   5`IFB <G>,<0>
   6IFNB <G>,<EXP G>

G>,<EXP Ga@KW :x#[
	IFNB <>;,<
	PRINTX  (Fro;8m GLXVER)
	> ;END IFNB 
	a@Mt 98#S
	PRINTX 9XGLXVER	GLXPFH Edi9xt(2) by DC on 27-:Jul-79
	PRINTX	 :8   	GLXPFH	Actual Edit(A)
	aDYP a R)LSH A,^D9LSH A,^D9a+= +a>Mm UA.<POINT WIDUa(B),A,POS(B)>B),A,POS(B)>a? T!"<^L<<A>&<-<A>>>><<A>&<aJ}Ks )n
	iSALL
	 LSTOF. XCREF
	  TOPS20 <SEARC (H MONSYM>	
	  TO HPS10 <SEARCH UUOS hYM>	
	  IFB <B>!,<
			GLOB <I%IN!(IT>
			%%.GLX==:!H%%.GLX	
					
	!h		DEFINE $DATA(NA"M,SIZ<1>)<
			  "(NAM:	BLOCK	SIZ
	"H		>
			IFN GLXPU"hRE,<.REQUEST GLXI#NI 
					DEFINE #(..ASGN(A,ADR)<DEF#HINE A<@^O'ADR>>
#h				>
			IFE GLX$PURE,<.REQUIRE GL$(XLIB 
					DEFIN$HE ..ASGN(A,ADDR) $h<GLOB(A)>
				>
			>
	  IFNB <%(B>,<
			CHKEDT(%HB)	
			IFIDN <B%h><OTS>,<EXTERN .R&ETT,.RETF>
			IF&(DIF <B><INI>,<
&H			IFN GLXPURE,< &h.PSECT	.HIGH.>
	'		IFE GLXPURE,<
'(			DEFINE $DATA(N'HAM,SIZ<1>)<
			 'h IFNDEF	B%D,<B%(D::!	B%DL==:0>
((			  NAM:	BLOCK	S(HIZ
			  IF1,<B%(hDL==:B%DL+SIZ>
)			>
			>
			GL)(OB <IIB>	
			DEF)HINE ..ASGN(A,ADDR)h) <GLOB(A)>
			>*
			IFIDN <B><I*(NI>,<
			DEFINE *H..ASGN(A,ADDR) <A*h=ADDR>
			>
			+>
	IFNB <A>,<%%+(.MOD==SIXBIT/A/>+H 
	IFNB <B>,<%%+h.OTS==SIXBIT/B/>, 
	ZZ==VORG
	DE,(FINE CDO (A) <IFN,HB <A>,<..ASGN(A,\,hZZ)>
			ZZ==ZZ+1->
	LIBVEC
	OPDE-(F $RETT [PJRST .R-HETT]	
	OPDEF $RE-hTF [PJRST .RETF]
	LSTON.				
tPaPtkP aPuTP aPv=xP aPv\rP aPv|UP aR/
	   OPC AA
	   POINTR(0,B)
	POINTR(0,e"luP'ePv8vP ePv9VP ePv;P fDP fHP gkp gk9p glp glp gltp gl}p g4P JA

XPRINTX % RJaeplacing SAVE witKh $SAVE
		   $SAVE <A>		   $SAgpKW 38#
	IFNB <>3X,<
	PRINTX  (Fro3xm GLXVER)
	> ;END IFNB 
	gpMt 1x#
	PRINTX 2GLXVER	GLXSCN Edi28t(37) by MLB on 22X5-Sep-79
	PRINTX2x	    	GLXSCN	Actual Edit(A)
	gtYP g"@ }a~
	IFN <<.~.TA>&B>,<PRINTX~  ?Initial field n~@ot zero in $SET>
	..TVAL==<C>
	 ..TMSK==<B>
	  ..TA==..TA!@<FLD(..TVAL,..TMS`K)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@CqC.SWIT+PDBCPY##C.SWIT+PDBg$tkQ'@g$uP'g.N	@ 6@g.N
.SPID	(S(P.QSR,.IPCPQ,.SPQ(0SR,QUASAR)	
.SPI(PD	(SP.OPR,.IPCPO,(p.SPOPR,ORION)	
.)SPID	(SP.INF,.IPC)0PI,.SPINF,INFO)	
.SPID	(SP.MDA,.I)pPCPM,.SPMDA,MDA)	*
TOPS10<
.SPID	*0(SP.IPC,.IPCPS,,I*PPCC)		
.SPID	(SP*p.ACT,.IPCPA,,ACTD+AE)		
.SPID	(SP.+0TLP,.IPCPT,,TAPLA+PB)		
.SPID	(SP.T+pOL,.IPCPC,,TAPAVR,)		
.SPID	(SP.DO,0L,.IPCPD,,DSKAVR),P		
.SPID	(SP.FIL,p,.IPCPF,,FILDAE)		
>
,FILDAE)	gR^h9 9a^
	..STKR=:=10		
	RADIX 8
: 	..STKN==0
	IRP :@A,<
	  .STKV1 (:`A)>
	JSP .SAC,.;STKST
	 ..STKN,,; ..STKN
	RADIX ..;@STKR
	PURGE ..ST;`KN,..STKR,..STKQ
gR~TKR,..STKQ
	IFNB <a!C>,<..STR0 (..DPBa@,A,C,B)>
	IFBa`  <C>,<MOVEM A,B>>,<MOVEM A,gV pA..AS(A,B,SUB,ADD)(A,Bgg

V .)x
	IFNB <.IB>,<TOPS10<A==B.h>>
	IFNB <C>,<T/OPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iFC@ anTXT1. (A)TXT1. (A)iP i?4( /q"IFN FTUUOS,B			;DEFINE UNi?4H 01#IFN FTJSYS,	INTERN AEDT	iG, QC
	LSTOF.
	X(T,TXT.A)			
	X(O,TXT.A)			
	0X(D,TXT.A)			
	XP(F,TXT.A)			
	X(p7,TXT.A)			
	X(6,TXT.A)			
	X(W,0TXT.A)			
	X(5,TPXT.A)			
	X(P,TXpT.A)			
	X(U,TXT.A)			
	X(H,TXT.0A)			
	X(C,TXT.AP)			
	X(E,TXT.A)p			
	X(I,TXT.A)			
	X(M,TXT.NA)	0		
	X(J,TXT.NA)	P		
	X(L,TXT.NA)	p		
	X(K,TXT.NA)			
	X(A,TXT.NA)	0		
	X(0,TXT.NA)	P		
	X(3,TXT.A)		p	
	X(V,TXT.A)			
	X(2,TXT.NA)			0
	X(Q,TXT.A)			
	X(B,TXT.A)			
p	X(1,TXT.A)			
	X(N,TXT.A)			
	X0(R,TXT.A)			
	LSTON.
)			
	LSiJnN8 !~
LSTOF.
X(33,TTY33,33,)		A		
X(35,TTY35,35,)				
TOPS20<
aX(37,TTY37,37,)				
X(EXECUPORT,E XEC,EXE,)			
>
@X(LA36,LA36,L36,)`			
X(VT05,VT05,V05,<37,177,177,1 77>)	
X(VT100,VT@100,100,<.CHESC,"`[","K">)	
X(VT50,VT50,V50,<.CHESC ,"J">)		
X(VT52,@VT52,V52,<.CHESC,`"J">)		
LSTON.
">)		
LSTON.
iK,PA iK4@ @!


	..TRR==@A10		
	RADIX 8
	@`..NV==1			
	IRP AA,<
	  .TRV1 (A A)>		
	JSP .SAC,[email protected]		
	 ..NV-A`1,,..NV-1
	RADIXB ..TRR		
	PURGE ..TRR,..NVURGE ib 	AL
		..TX(C,A,<B>)..TX(Cib X
		..TX(CA,A,<B>).TX(CibP 
P
		..TX(CE,A,<B>).TX(Cib` 
AT
		..TX(CN,A,<B>).TX(Cibp A
		..TX(N,A,<B>)..TX(Nibt (
		..TX(NA,A,<B>).TX(NibtP  
		..TX(NE,A,<B>).TX(Nibu` A$
		..TX(NN,A,<B>).TX(Nibx A,
		..TX(O,A,<B>)..TX(Oib| 8
		..TX(OA,A,<B>).TX(Oib|P 0
		..TX(OE,A,<B>).TX(Oib}` A4
		..TX(ON,A,<B>).TX(Oic KW ."u
	IFNB <>.8,<
	PRINTX  (Fro.Xm GLXVER)
	> ;END IFNB 
	ic Mt ,X"m
	PRINTX ,xGLXVER	GLXTXT Edi-t(35) by AWC on 9-8-Nov-79
	PRINTX	-X    	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 	H
		..TX(ZA,A,<B>).TX(ZicTP @
		..TX(ZE,A,<B>).TX(ZicU` AD
		..TX(ZN,A,<B>).TX(Zm6P$am?pP$mKc@ 0Q{BYTE (3)A9WHO (9)AVER (6)AMIN (18)AEDTo&  Sa<^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 A\
.TIC==..Z
..Z==..Z+1=q? 	(
	TXC A,<B>
	TXC A,q@ Y?IFB <C>,<yA==:B> IFNB <C>,<A=:B>B <Cup j!X
	IFNB <jAB>,<..STR1 (..TQZj`,,<B>,A,..STR4)k>
	IFB  <B>,<SETZM A><B>,<SEuhP$a	;z q '
	.$RESET
	$TYPE (.CMACT)0
	$HELP (<>)
	$PNEXT (A)
IFIDN p<B> <>,< IRP C,<C>
			.$BUILD>0
IFDIF <B> <>,<P
	$HELP (B)
	IpRP C,<C>
	.$BUILD><C>
	.$BU	0 }ar
.WTOX.(.OM~ACK,<A>,<B>,<C~ >,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 ?I~DEFINE .$R?iTN <A>
			.%RTN==1A>
			.%RTN	fI9 ;i`DEFINE .$L<	ST <A+1>
			.%LST==11>
			.%L	
=Z na~
	  IFG oA-INT.LV,<PRINTX o ?Level A interruo@pts not supportedo`>
	  .BGINT.(\A)   .BGINT.(\A	X5 >	rDEFINE .$B>)REA <A>
			.%BREA==1>
			.%BR	- qA
	  IFDEFqa ..BSIZ,<PRINTX ?rMissing $EOB after r a $BUILD>
	  .[email protected]==0			
	  .r`.BLOC==.			
	  RsEPEAT A,<			
		s BLD0.(\..BSIZ,0)	s@
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 mQs
	.$RESETmq
	$TYPE (.CMCMA)n
	$NEXT (A)
	In0RP B,<B>
	.$BUILD,<B>
	.$BU	I@ jU
	.$RESETj1
	$TYPE (.CMCFM)jP
	IRP A,<A>
	.$BUILD,<A>
		$^ sq/
	.$RESETt
	$TYPE (.CMTXT)t0
	$HELP (<>)
	$tPNEXT (A)
IFIDN tp<B> <>,< IRP C,u<C>
			.$BUILD>u0
IFDIF <B> <>,<uP
	$HELP (B)
	IupRP C,<C>
	.$BUILD><C>
	.$BU	H  Q: 
		.PSECT	DATA
	A:	BLOCK 	B
		.ENDPS
	B
		.ENDPS
	#R1	I  v1;
	.$RESETvQ
	$TYPE (.CMTAD)vp
	$PDATA (CM%IDAw)
	$NEXT (A)
	w0IRP B,<B>
	.$BUILD,<B>
	.$B	,,U pa
	  $RET	q			;WILL INVOKE RIGHT ROUTINE
		,h: :	TDEFINE .$D:)EFM <POINT 7,[ASC:HIZ\A\]>
			.%DEFM==1>
			.%DE	.` rQ
	.$RESETrq
	$TYPE (.CMDEV)s
	$NEXT (A)
	Is0RP B,<B>
	.$BUILD,<B>
	.$BU	Lz: XQW
	.$RESETXq
	$TYPE (.CMNUX)Y
	$PDATA (B)
	Y0$HELP (<>)
	$NEXYPT (A)
IFIDN <CYp> <>,< IRP D,<DZ>
			.$BUILD>
IZ0FDIF <C> <>,<
	ZP$HELP (C)
	IRP ZpD,<D>
	.$BUILD><D>
	.$BUILD	N  k_
	.$RESETk1
	$TYPE (.CMDIR)kP
	$NEXT (A)
	IkpRP B,<B>
	.$BUILD,<B>
	.$BU	|  xA`
	  IFNDExaF ..BSIZ,<PRINTX y?$EOB without prey vious $BUILD>
	 y@ IFN <.-..BLOC>,<y`PRINTX ?Address czhange between $BUz ILD and $EOB>
	 z@ LSTOF.			
	  ..z`T==0
	  REPEAT .{.BSIZ,<
	    BLD{ 0.(\..T,1)		
	  {@  ..T==..T+1 >
	{`  PURGE ..BSIZ,..|T,..BLOC	
	  LSTON.
		
	  LST	+y =)lDEFINE .$E=IRTN <A>
			.%ERTN==1>
			.%ER	, >ixDEFINE .$E?	RTN <1B0+A+1>
			.%ERTN==1>
		H6 q'
	$CALL	.STOP
	LSTOF.
	J0UMP	[XWD 0,[ITEXTP (<A>)]
		 EXP p%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ gQM
	.$RESETgq
	$TYPE (.CMFLD)h
	$NEXT (A)
	$h0HELP (<>)
IFIDN hP<B> <>,< IRP C,hp<C>
			.$BUILD>i
IFDIF <B> <>,<i0
	$HELP (B)
	IiPRP C,<C>
	.$BUILD><C>
	.$BU	MI  e9
	.$RESETe1
	$TYPE (.CMFIL)eP
	$HELP (<>)
	$epNEXT (A)
IFIDN f<B> <>,< IRP C,f0<C>
			.$BUILD>fP
IFDIF <B> <>,<fp
	$HELP (B)
	IgRP C,<C>
	.$BUILD><C>
	.$BU	dy 7)<DEFINE .$F7ILGS <A>
			.%FLGS==1>
			.%FL	ex: p
	.$RESETp1
	$TYPE (.CMFLT)pP
	$HELP (<>)
	$ppNEXT (A)
IFIDN q<B> <>,< IRP C,q0<C>
			.$BUILD>qP
IFDIF <B> <>,<qp
	$HELP (B)
	IrRP C,<C>
	.$BUILD><C>
	.$BU	$ :0
	  INTER1N A
	  $DATA(A,<B>)
	ATA(A#S1	"
	IFDIF <9	A> <>,<
DEFINE 9(.$HLPM <POINT 7,[9HASCIZ\A\]>
			.%HLPM==1>
			.	&5 `
	.$RESET`1
	$TYPE (.CMIFI)`P
	$HELP (<>)
	$`pNEXT (A)
IFIDN a<B> <>,< IRP C,a0<C>
			.$BUILD>aP
IFDIF <B> <>,<ap
	$HELP (B)
	IbRP C,<C>
	.$BUILD><C>
	.$BU	&u nq}
	.$RESETo
	$NEXT (A)
	$o0TYPE (.CMINI)
	IoPRP B,<B>
	.$BUILD,<B>
	.$BU	./ T1+
	.$RESETTQ
	$TYPE (.CMKEY)Tp
	$PDATA (B)
	U$NEXT (A)
	IRP U0C,<C>
	.$BUILD,<C>
	.$BUILD	./ Rq
	.$RESETS
	$TYPE (.CMKEY)S0
	$PDATA (A)
	SP$NEXT (0)
	IRP SpB,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDA.WTOX.(.OMaWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p a.WTOX.(.OMLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV  
	.$RESET1
	$TYPE (.CMNOD)P
	$HELP (<>)
	$pNEXT (A)
IFIDN <B> <>,< IRP C,0<C>
			.$BUILD>P
IFDIF <B> <>,<p
	$HELP (B)
;	$FLAGS (CM%PO)
	0IRP C,<C>
	.$BUILD><C>
	.$B	:}r [1e
	.$RESET[Q
	$TYPE (.CMNOI)[p
	$PDATA (<POINT\ 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR\PP C,<C>
	.$BUILD,<C>
	.$BUI	;-XR UqA
	.$RESETV
	$TYPE (.CMNUM)V0
	$PDATA (B)
	VP$HELP (<>)
	$NEXVpT (A)
IFIDN <CW> <>,< IRP D,<DW0>
			.$BUILD>
IWPFDIF <C> <>,<
	Wp$HELP (C)
	IRP XD,<D>
	.$BUILD><D>
	.$BUILD	>5 bQ%
	.$RESETbq
	$TYPE (.CMOFI)c
	$NEXT (A)
	$c0HELP (<>)
IFIDN cP<B> <>,< IRP C,cp<C>
			.$BUILD>d
IFDIF <B> <>,<d0
	$HELP (B)
	IdPRP C,<C>
	.$BUILD><C>
	.$BU	B$ 8	BDEFINE .$D8)ATA <A>
			.%DATA==1>
			.%DA	B$YP ;	ZDEFINE .$D;)EFM <POINT 7,<A>>
			.%DEFM==1	CYT @)DEFINE .$D@IEFR <A>
			.%DEFR==1>
			.%DE	G-} zqg
	.$RESET{
	$TYPE (.CMQST){0
	$HELP (<>)
	${PNEXT (A)
IFIDN {p<B> <>,< IRP C,|<C>
			.$BUILD>|0
IFDIF <B> <>,<|P
	$HELP (B)
	I|pRP C,<C>
	.$BUILD><C>
	.$BU	J.@ ,~	J.I  )
	  JSP	TIF,.RETE		
		LSTOhF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  KA
	.NVR==0Ka			
	.ACM==0			

	IRP A,<		
	L 	..TSAC(.ACB,A)	L@	
		IFN .ACB,<.AL`CM==.ACM!1B<A>>	M
		IFE .ACB,<			M 
		IFE .NVR,<			M@
		    CAIA			
M`		    LSTOF.
		 N   JRST b>
		  N ..PUSH(A,\<.NVR+N@1>)>>	

	IFN .AN`CM,<	
	    IFE <O.ACM-17B<T4>>,<.AO CM==0
				$CALL [email protected]>
	    IFEO` <.ACM-377B<.A16>P>,<.ACM==0
				$P CALL .SAVE8>
	  P@  IFE <.ACM-17B<PP`4>>,<.ACM==0
			Q	$CALL .SAVE4>
	Q     IFE <.ACM-7B<Q@P3>>,<.ACM==0
		Q`		$CALL .SAVE3>
R	    IFE .NVR,<	
	    IFE <.ACM-3R@B<P2>>,<.ACM==0
R`				$CALL .SAVE2>S
	S@  IFE <.ACM-S 1B<P1>>,<.ACM==0
				$CALL .SAVE1S`>
	    IFE <.ACMT-1B<.A13>>,<.ACM=T =0
				$CALL .SVT@13>
	    IFE <.AT`CM-1B<.A14>>,<.ACUM==0
				$CALL .U SV14>
	    IFE <[email protected]<.A15>>,<.U`ACM==0
				$CALLV .SV15>
	    IFEV  <.ACM-1B<.A16>>,V@<.ACM==0
				$CAV`LL .SV16>
	    >W>


	IFN W .ACM,<	
	    IFEW@ .NVR,<			
		CAIW`A			
		LSTOF.
	X	JRST b>

	   X  .ACB==0			
	REPX@EAT ^D16,<			
	 X`   IFN <.ACM&1B<.YACB>>,<	
		..PUSY H(\.ACB,\<.NVR+1>Y@)>
		.ACB==.ACB+Y`1>>		

	IFN .NVZR,<	
	    PUSH PZ ,[[CAIA		
		    Z@ AOS -.NVR(P)	
	Z`    REPEAT .NVR,<[..POP(\.NVR)>	
	[ 	     POPJ P,0]]>[@	
	LSTON.
b:	SUPPRESS bb:	S	N.@ t0
	  IFNDEt!F ..BSIZ,<PRINTX t@?$SET without pret`vious $BUILD>
	 u IFNB <B>,<..STRu 0 (..SET,<C>,B,u@A)>
	IFB  <Bu`>,<..STR0 (..SET,v<C>,FWMASK,A)>
	,FWMASK,A)>
1 W
	a==.

Q	XWD b-1,b-1
	
pDEFINE $ETAB <
		b==.-a> <
		O%| I
S..A::!1	$CALL .STOP
		LPSTOF.
		JUMP [XWpD 'A',[ITEXT (<	B>)]
			EXP %%.MOD]
		LSTON.	M	O= ^Q}
	.$RESET^q
	$TYPE (.CMSWI)_
	$PDATA (A)
	_0$NEXT (0)
	IRP _PB,<B>
	.$BUILD,<B>
	.$BUILD	O= ]q
	.$RESET]1
	$TYPE (.CMSWI)]P
	$PDATA (B)
	]p$NEXT (A)
	IRP ^C,<C>
	.$BUILD,<C>
	.$BUILD	R

@ y1S
	.$RESETyQ
	$TYPE (.CMTAD)yp
	$PDATA (<CM%IDzA!CM%ITM>)
	$NEXz0T (A)
	IRP B,<B>
	.$BUILD,<	R/

	$CALL	q	T%TEXT		
	LSTOF
.	XCREF			
	JRST
0	c			
	..CN..==
P0
	..KN..==0
	 
p EFLG==1
	IRP A,<..CN..==..CN..+01>
	IFE <..CN..>P,<SETZ 0,		
		  p    EFLG==0>		
	

IFE <..CN..-1>,<M

0OVEI 0,A	
		   

P   EFLG==0>		
	I

pFE<..CN..-3>,<IR
			..KN..+1
			I..KN..-..CN..
			    EFLG==0	
			    HRROI0 0,A >>>
	IFN <PEFLG>,<IF1,<
		 p   PRINTX ?Invalid syntax in $TEXT0 parameter A
		P    PRINTX > 
		p    HALT . >		
	FTEXT.(<B>)		
	0IFN EFLG,<ETEXT.(P$TEXT,<B>)> 
cp:					
	SUPPRESS c			
	LSTON.	c			
	LSTON.		RMY  wqG
	.$RESETx
	$TYPE (.CMTAD)x0
	$PDATA (CM%ITMxP)
	$NEXT (A)
	xpIRP B,<B>
	.$BUILD,<B>
	.$B	R}97 1 5
	.$RESETQ
	$TYPE (.CMTOK)p
	$PDATA (<POINT 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRPP C,<C>
	.$BUILD,<C>
	.$BUI	SN	  6I6DEFINE .$T6iYP <A>
			.%TYPE==1>
			.%TYP	W= }1}
	.$RESET}Q
	$TYPE (.CMUQS)}p
	$HELP (<>)
	$~NEXT (A)
	$PDAT~0A (B)
IFIDN <C~P> <>,< IRP D,<D~p>
			.$BUILD>
IFDIF <C> <>,<
	0$HELP (C)
	IRP PD,<D>
	.$BUILD><D>
	.$BUILD	W\@ l1i
	.$RESETlQ
	$TYPE (.CMUSR)lp
	$NEXT (A)
	ImRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ 1=
IFE %%.OQTS,<DEFINE $WARN p(MSG) <
		$TEXT (T%TTY,<% ^W6/[%%0.MOD]/ MSG>)>>
IPFN %%.OTS,<DEFINEp $WARN (MSG) <
		$TEXT (T%TTY,<% 0^W6/IIB+IB.PRG/ ^PW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r qa 
		IFB	<rA>,<.WFACD==0
		r 	IFN <0-2>,<.$WACr@D==0>>
		IFNB	<r`A>,<.WFACD==-1
	s		IFN <0-2>,<.$WAs CD==.$WACD!<A>>
			IFE <0-2>,<DEs`FINE .$WACD,<<WO.tACD>B8+[ITEXT (<A>)]>>
		>
<	_$u faH
		IFB	<gA>,<.WFACK==0
		g 	IFN <0-2>,<.$WACg@K==0>>
		IFNB	<g`A>,<.WFACK==-1
	h		IFN <0-2>,<.$WAh CK==.$WACK!<A>>
			IFE <0-2>,<DEh`FINE .$WACK,<<WO.iACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ XA^
	IFE	<.WXaFMTY>,<PRINTX ?NoY message type in Y $WTBLD>
DEFINE .Y@EAWTO(SUFFIX,ARGCY`OD),<
IFN .WF'SUZFFIX',<
	IFE	<ARZ GCOD-0>,<<WO.'SUFZ@FIX'>B8+ .$W'SUFFZ`IX'>
	IFE	<ARGCO[D-1>,<<WO.'SUFFIXz`'>B8+ [EXP .$W'SU{FFIX']>
	IFE	<AR{ GCOD-2>,<.$W'SUFF{@IX'>
>
>
	ALLW{`TO				
	EXP	0			
		
	EXP	0				_$k iA^
		IFB	<iaA>,<.WFFLG==0
		j	IFN <1-2>,<.$WFLj G==0>>
		IFNB	<j@A>,<.WFFLG==-1
	j`		IFN <1-2>,<.$WFkLG==.$WFLG!<A>>
			IFE <1-2>,<DEk@FINE .$WFLG,<<WO.k`FLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W o

		IFB	<o!A>,<.WFJBN==0
		o@	IFN <0-2>,<.$WJBo`N==0>>
		IFNB	<pA>,<.WFJBN==-1
	p 		IFN <0-2>,<.$WJp@BN==.$WJBN!<A>>
			IFE <0-2>,<DEqFINE .$WJBN,<<WO.q JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV w!L
		IFB	<wAA>,<.WFMFL==0
		w`	IFN <1-2>,<.$WMFxL==0>>
		IFNB	<x A>,<.WFMFL==-1
	x@		IFN <1-2>,<.$WMx`FL==.$WMFL!<A>>
			IFE <1-2>,<DEy FINE .$WMFL,<<WO.y@MFL>B8+[ITEXT (<A>)]>>
		>
<	_%] [ap
		IFB	<\A>,<.WFMTY==0
		\ 	IFN <0-2>,<.$WMT\@Y==0>>
		IFNB	<\`A>,<.WFMTY==-1
	]		IFN <0-2>,<.$WM] TY==.$WMTY!<A>>
			IFE <0-2>,<DE]`FINE .$WMTY,<<WO.^MTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr l!t
		IFB	<lAA>,<.WFNOD==0
		l`	IFN <0-2>,<.$WNOmD==0>>
		IFNB	<m A>,<.WFNOD==-1
	m@		IFN <0-2>,<.$WNm`OD==.$WNOD!<A>>
			IFE <0-2>,<DEn FINE .$WNOD,<<WO.n@NOD>B8+[ITEXT (<A>)]>>
		>
<	_%p |!d.WTOX.(.OM|AWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU d2
		IFB	<d!A>,<.WFOBJ==0
		d@	IFN <0-2>,<.$WOBd`J==0>>
		IFNB	<eA>,<.WFOBJ==-1
	e 		IFN <0-2>,<.$WOe@BJ==.$WOBJ!<A>>
			IFE <0-2>,<DEfFINE .$WOBJ,<<WO.f OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr tA6
		IFB	<taA>,<.WFOCD==0
		u	IFN <0-2>,<.$WOCu D==0>>
		IFNB	<u@A>,<.WFOCD==-1
	u`		IFN <0-2>,<.$WOvCD==.$WOCD!<A>>
			IFE <0-2>,<DEv@FINE .$WOCD,<<WO.v`OCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ ~az.WTOX.(.OMWTO,<A>,<B>,<C >,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ }j
.WTOX.(.OM}!WTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z [AP
	DEFINE	[!.EAWTO(SUFFIX),<$zWT'SUFFIX'	<>>
	ALLWTO				

		_&N a!
		IFB	<aAA>,<.WFTXT==0
		a`	IFN <2-2>,<.$WTXbT==0>>
		IFNB	<b A>,<.WFTXT==-1
	b@		IFN <2-2>,<.$WTb`XT==.$WTXT!<A>>
			IFE <2-2>,<DEc FINE .$WTXT,<<WO.c@TXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 ^A
		IFB	<^aA>,<.WFTYP==0
		_	IFN <2-2>,<.$WTY_ P==0>>
		IFNB	<_@A>,<.WFTYP==-1
	 `		IFN <2-2>,<.$WT`YP==.$WTYP!<A>>
			IFE <2-2>,<DE`@FINE .$WTYP,<<WO.``TYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP 1)0 0k<PZ6 Iq			

	dJ==<FLD(.$TYP,CM%FJ0NC)>!.$FLGS!<.$LSJPT> 

	IFN <.%BRJpEA>,<d==d!CM%BRKK> 

	IFN <.%HLK0PM>,<d==d!CM%HPKPP!CM%SDH> 
					Kp	

	IFN <.%DEFML>,<d==d!CM%DPP>L0 

c:	XWD	b,LPa			

	EXP d		Lp		

	EXP .$DATAM			

IFN <.%HLPM0M!.%DEFM!.%BREA>,MP<
		EXP	.$HLPM>	Mp	


IFN <.%DEFNM!.%BREA>,<
		EXN0P	.$DEFM>		


NPIFN <.%BREA>,<	EXNpP	.$BREA>		

	Oa==.-c			;LENGTHO0 OF THE FDB

IFOPN <.%NXT!.%DEFR!.Op%RTN!.%ERTN>,< EXPP .$NXT >	

IFNP0 <.%DEFR!.%RTN!.%PPERTN>,<EXP .$RTN Pp>	

IFN <.%DEFRQ!.%ERTN>,<	EXP	.$Q0ERTN>	

IFN <.%QPDEFR>,<		EXP	.$DEQpFR>	


	b==.-Rc			

	IF2<	PUR0RGE a,b,c,d>
	LISTb,c,d>POINT 7,[ASCIZ\0\]NT 7,[A$YY 09QP.- 0Mt#o5Iy 
0

Spf=0+1$wK
	SALL
	DQXLIST
	DEFINE .$DpTYP <0>
	.%TYPE=E=0
	DEFINE .$FLGE0S <0>
	.%FLGS==0EP
	DEFINE .$DATA Ep<0>
	.%DATA==0
F	DEFINE .$HLPM <>F0
	.%HLPM==0
	DEFPFINE .$DEFM <0>
Fp	.%DEFM==0
	DEFIGNE .$LST <0>
	.%G0LST==0
	DEFINE .GP$BREA <0>
	.%BREGpA==0
	DEFINE .$NHXT <0>
	.%NXT==0H0
	DEFINE .$ERTN HP<0>
	.%ERTN==0
Hp	DEFINE .$RTN <0>I
	.%RTN==0
	DEFI0INE .$DEFR <0>
	.%DEFR==0<0>
	K@0	'i0T 1,)0P $YVP $YYP .-P 5IyP f=P w
	   ..ASs!1==-<B>	
	IFDEFs@ .PSECT,<
	.IFN s`..AS1,ABSOLUTE,<
	     C A,[-..t AS1]>	
	.IF ..ASt@1,ABSOLUTE,<
		.t`.AS2==0	
	  IFE u<..AS1&^O777777B1u 7>,<
		..AS2==1	u@
	    DI A,..Au`S1>
	  IFE ..AS2v,<
	    ..OP(A,v B,C)>	
	PURGE [email protected],..AS2>>
	Iv`FNDEF .PSECT,<
	w	..AS2==0	
	  IFw E <..AS1&^O777777w@B17>,<
		..AS2==w`1	
	    DI A,.x.AS1>
	  IFE ..Ax S2,<		
	    ..OPx@(A,B,C)>
	PURGE ..AS1,..AS2>:h 	B
	A: f|
	  ..CX1f!==C
	IFDEF .PSEf@CT,<
 	.IFN ..CXf`1,ABSOLUTE,<
	  g    CAMA B,[C]g >
	.IF ..CX1,ABSgAOLUTE,<	
		..CX2g`==0	
	  IFE <..ChX1&^O777777B17>,<h 
		..CX2==1	
	 h@   CAIA B,C>
h`	  IFE ..CX2,<		
	    CAMA B,[m C]>
	PURGE ..CX1m@,..CX2>>
	IFNDEFm` .PSECT,<
		..CXn2==0	
	  IFE <..n CX1&^O777777B17>,n@<
		..CX2==1	
	n`    CAIA B,C>
	  IFE ..CX2,<		o 
	    CAMA B,[o@C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ b!
	..TSIZ bA(..PST,C)
	.CASb`E ..PST,<<
		MOVcEM A,B>,<
		HRc RM A,B>,<
		HRc@LM A,B>,<
		DPc`B A,[POINTR (B,C)]>>INTR (B,:<;Y 8aJ
   DEFIN9E ..CNS2 (NEW,OLD9 )<
	  OLD>			
	..CNS ()>			
	:L;Y 6AB
   DEFIN6aE ..CNS (ARG)<
	7..CNS2 <ARG>,>
7 
   DEFINE ..CNS27@ (NEW,OLD)<
	DEF7`INE ..CNS (ARG)<
	  ..CNS2 <ARG>,8 <OLD'NEW>>>
   OLD'NEW>>>
   :dH@ _
	..TSIZ _!(..PST,C)
	.CAS_@E ..PST,<<
		MOV_`E A,B>,<
		HRR`Z A,B>,<
		HLR` Z A,B>,<
		LDB`@ A,[POINTR (B,C)]>>INTR (B,:}i1 a	p
	A==<<<-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ yt
	  ..OP1y!==B
	IFDEF .PSEy@CT,<
 	.IFN ..OPy`1,ABSOLUTE,<
	  z    C A,[..OP1]z >
	.IF ..OP1,ABSz@OLUTE,<	
		..OP2z`==0	
	  IFE <..O{P1&^O777777B17>,<{ 
		..OP2==1	
	{{@   CI A,..OP1>
	  IFE ..OP2,<		|
	    C A,[..O| P1]>
	PURGE ..OP|@1,..OP2>>
	IFNDE|`F .PSECT,<
		..O}P2==0	
	  IFE <.} .OP1&^O777777B17>}@,<
		..OP2==1	
}`	    CI A,..OP1~>
	  IFE ..OP2,<~ 		
	    C A,[.[email protected]]>
	PURGE ..OP1,..OP2>GE ..;| \a
		POP P,].NVA
		PURGE .N] VA
		.NVR==.NVR-1
		.NVR==.NVR;\t \
		PUSH P\!,A
		.NVB==A
		.NVR==.NVR+1;] vA@
	  IFGE va<<<B>&777777>-..wBSIZ>,<
		PRINTXw  ?WORD offset grew@ater than $BUILD w`size parameter>
x	  SET0. (\<B>,C,<A>)
	B>,;LH $!
2
	IFNDEF $AC,<PRINTX C IS $`NOT DEFINED
	  %A (<B>,D,FWMASK% )>	
	IFDEF C,<
	IFNDEF %C,<
	%`  A (<B>,D,C)&>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH &a
p

	..NS==0'			
	IRP C,<..N' S=..NS+1>	
	IFE '@..NS,<PRINTX ?EMP'`TY STRUCTURE LIST(, A>
	IFE ..NS-( 1,<		
	  ..STR0 (@(A,<B>,<C>,D)(`>
	IFG ..NS-1,<	)	
	..ICNS			
	.) .CNS (<E (A,<B)@>,,>) 
	IRP C,<)`		
	  IFNDEF C,*<PRINTX C NOT DE* FINED>
	  IFDEF *@C,<
	  IFNDEF %*`C,<
	  ..CNS (<+,C,D>)>	
	  IF+ DEF %C,<
	  %C+@ (..STR2,,D,C)>+` 
	  ..CNS (<)>),		
	  ..GCNS		
, 	  ..ICNS		
	  .,@.CNS (<E (A,<B,`>>) 
	  IFNDEF %-C,<
	  ..CNS (<- ,C,D>)>	
	  IF-@DEF %C,<
	  %C-` (..STR2,,D,C)>.>> 
	..CNS (<,,)>)		
	..GCNS>);LI .A
t
	..CNS (<,C,B>).CNS (;LI /



	IFDIF </!D><F>,<
	  IFN/@B <D>,<
	    A/` (<B>,D,..MSK)	0
	    IFNB <F>,0 <PRINTX C AND E0@ ARE IN DIFFERENT0` WORDS>>
	  ..MS1K==0>		
	IFNB <1 F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ 1a


	IFDIF <2D><F>,<	
	  IF2 NB <D>,<
	    2@A (<B>,D,..MSK)2`>	
	  ..MSK==0>	3	
	IFNB <F>,<
3 	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ 3a0


	IFDIF <4D><F>,<	
	  IF4 NB <D>,<
	    I4@FNB <F>,<		
		4`A1 (B,D,..MSK)>5 
	    IFB <F>,5 <		
		A2 (B,D5@,..MSK)>> 
	  ..5`MSK==0>		
	IFNB 6<F>,<
	  ..MSK=..MSK!<E>>MSK=;&@ kAr
	..TSIZ ka(..PST,C)	
	.CAlSE ..PST,<<
		SEl TZM B>,<	
		HLLl@ZS B>,<	
		HRRZl`S B>,<	
	  ..TSmAC (..ACT,B)	
	m   .IF0 ..ACT,<
	m@	$CALL .ZERO	
		m`LSTOF.
		JUMP [PnOINTR(B,C)]
		n LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 !	j
	IFNDEF A.PSECT,<
	A==0	`		
	..TSA1==<Z B>		
	  IFE ..TS A1&^O777777777760@,<A==1> 
	>
	I`FDEF .PSECT,<
	A==0			
	..TSA1= =<Z B>		
	.IF .@.TSA1,ABSOLUTE,<	`
	  IFE ..TSA1&^O777777777760,<A ==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= a	N
	A==3			
	IFE <B>+1,< A=0>	
	IFE <B>-@^O777777,<A==1> `
	IFE <B>-^O777777B17,<A==2>7;' 	
   ..TX1!==C			
IFDEF .P@SECT,<
   .IFN .`.TX1,ABSOLUTE,<
	TDA B,[C]>
 @  .IF ..TX1,ABSOL!UTE,<		
	..TX2==a0		
	IFE <..TX1&^O777777B17>,<
	   ..TX2==1		
	  @TRA B,..TX1>
	`IFE ..TX2,<		
	IFE <..TX1&^O77777!7>,<
	  ..TX2==1A		
	  TLA B,(.`.TX1)>>
	IFE ..TX2,<		
	  IFE << ..TX1>B53-^O77777A7>,< 
	    ..TX3` (A,B)>>	
	IFE

 ..TX2,<		
	  TD

 A B,[..TX1]>	


@	PURGE ..TX1,..TX

`2>>
IFNDEF .PSEC
	..TX2==0		
	IFE7<..TX1&^O77
	TX..1		
	  TRA B,..TX1>
	IFE  ..TX2,<		
	IFE <@..TX1&^O777777>,<`
	  ..TX2==1		
	  TLA B,(..TX1 )>>
	IFE ..TX2,<@		
	  IFE <<..TX`1>B53-^O777777>,< 
	    ..TX3 (A ,B)>>	
	IFE ..T@X2,<		
	  TDA `B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` !	
	IFIDN <AA><Z>,<		
	  ..`TX2==1
	  ANDI B,^-..TX1>	
	IFI DN <A><O>,<		
	@  ..TX2==1
	OR`CMI B,^-..TX1>	
	IFIDN <A><C>,< 		
	  ..TX2==1
@	  EQVI B,^-..TX1>QVI B,^-..TX
0P 
@P 
PP 
`P d  G

8
	.ACV2 (A)
	.ACV2 (d@ GA

B
	A=.FPAGaC+..NAC		
	IFB <HB>,<..NAC=..NAC+H 1>
	IFNB <B>,<..NAC=..NAC+B>.d` Ha

P
	IFG A-I.NPAC,<PRINTX ?TOI O MANY ACS USED>
	IFLE A-4,<
	JI` $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z p!JSR I%INTAJSR I%INT9  a	@
	..CSN==A
	..CSC==0
	I RP B,<
	IFE ..C@SN-..CSC,<
	  ST`OPI
	  ..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;]P D<ZP D=7P DI6P ?D\qP l,UP S@P ,<H hAN
	..PST==haC-FWMASK
	.IF0 i..PST,<
		SOS Bi >,<	
		$CALL .SOi@S	
		LSTOF.
		Ji`UMP [POINTR(B,C)]
		LSTON.>C} WaT
	.OPCD==zA.OPCD+1
	WO.A==.OPCD
G),<
		$j6p %I7p &=p P `P &2 A	2
	..IFT==aA		
	IFE ..IFT,<
	B
	..IFT==0 >		
	IFN ..IFT,<
	C>N ..IFT,<&t<H eA6
	..PST==eaC-FWMASK
	.IF0 f..PST,<
		AOS Bf >,<	
		$CALL .AOf@S	
		LSTOF.
		Jf`UMP [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 ak
	IFG	A--1MX.PID,<MX.PID==A>
C
G	A-OSP OYP O|P OyP O%=H <!b
	.STKV2 (A)
	.STKV2 O%=I <ap
	IFB <B=>,<..STKN==..STKN= +1>
	IFNB <B>,<[email protected]==..STKN+B=`>
	..STKQ==..STK>N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I >A~
   IFDEF>a A,<.IF A,SYMBO?L,<PRINTX STKVAR ? A ALREADY DEFINE?@D>>
	DEFINE A<-?`^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  BA


	.TRV2 (A)
	.TRV2 (Sd@ C


	.TRV3 (C!A,\..NV)	
	IFB C@<B>,<..NV=..NV+1C`>
	IFNB <B>,<..NV=..NV+B>,<..Sd` D!

,
   IFDEFDA A,<.IF A,SYMBOD`L,<PRINTX TRVAR EA ALREADY DEFINEDE >>
	DEFINE A<^OE@B(.FP)>
	$A==<Z A>>
	$A==<_%~ !$
		$CALL	AI%WTO		
		LSTOF.`			
		JRST	g		
		$WTRST			
	IF NB <A>,<$WTMTY (@<A>)>	
	IFNB <`B>,<$WTTYP (<B>)>	
	IFNB <C>,<$ WTTXT (<C>)>	
	@IFNB <D>,<$WTOBJ` (<D>)>	
	IFNB <E>,<$WTACK (<E >)>	
		IRP F,<@F>		
		$WTBLD			
	g:	LSTON.  kPP >}{woP