Google
 
Trailing-Edge - PDP-10 Archives - BB-L014E-BM - autopatch/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,Ld@P C4@ N!

v
	..NAC==NA0		
	IRP A,<
	N`  .ACV1 (A)>		
	.ACV3 (\..NAC)C' x!B..AS(A,B,ADD,SUB)(A,BC, [	XLSH A,-^D9LSH A,-^DC2f} ]A~
	.EAWTO(]aMTY,0)
	.EAWTO(T^YP,2)
	.EAWTO(TX^ T,2)
	.EAWTO(OBJ^@,0)
	.EAWTO(ACK,^`0)
	.EAWTO(FLG,1_)
	.EAWTO(NOD,0)_ 
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
_`	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' a	f
	TXZA,<^-<B>>TXZ A,CR/
	DEFINE	%!XTEXT.(OPCODE,NEW%@)<
	OPCODE	<A,<NEW>>>ODE	<A,<E2"@ a,
	  IFE B,<..TA==0>
	   IFN B,<EXP ..TA@
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ q!

	    ..CX(,A,B)   ..CGD ta&
	    ..CX(A,A,B)  ..CGDP ra
	    ..CX(E,A,B)  ..CGDp s!
	    ..CX(G,A,B)  ..CGDy  sa
	    ..CX(GE,A,B) ..CGE@ qa
	    ..CX(L,A,B)  ..CGEI  r!
	    ..CX(LE,A,B) ..CGE` t!"
	    ..CX(N,A,B)  ..CGx /ZZ==ZZ+1GH !v
	
	  LSaTOF.

	X CRE	
	X GEN	
	XAPRT	
	X CLS	
	X AUT	!
	X USW	
	X SPL@	
	X SIZ   
	X `MOD	
	X CHN	

	  LSTON.


G"\Y A$

	IF1, A8<%%EDT==AEDT>	
AX
	IF2, <IFN <%%EAxDT-AEDT>,<
		PRBINTX ? Edit NumbeB8r Doesn't Match GBXLXVER in GLXA
	Bx	A$WHO(\AEDT)>	C
		A$NOTE		
	IC8NTERN AEDT		
	ICXNTERN LODLEV		
;Cx	PURGE %%EDT> ;END IF2

PG4-ZQ G:YlP 

G>hKW @X$	
	IFNB <>@x,<
	PRINTX  (FroAm GLXVER)
	> ;END IFNB 
	G>hMt ?$
	PRINTX ?8GLXVER	GLXCOM Edi?Xt(33) by CTK on 2?x2-Aug-81
	PRINTX@	    	GLXCOM	Actual Edit(A)
	G>lYP#!LALL
PAGE#9; (A Continued o#Xn next page)
SAL#xL;!(AContinued $from previous page) previous pagG?pP$GHt;rP GHtkP GHv	P GHv)9P GHv:=P GR/
	DEFINE "AXTEXT.(OPCODE,NEW$A)<
	OPCODE	<<NEW>>>OPCODE	<<NEWI!k7P I!k<P ImP I$P'pIY{P .I  oA
	IFNB <oaB>,<..STR0 (.DECRp0,,<B>,A)>
	IFp B  <B>,<SOS A>  <B>,<SOS A>I6= &a
J
	A==<-1'B<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 zaV..OP(A,B,DIV)..OP(A,BI?pP&IOH1 1!
	IFB <DQ>,<
	XWD	[ASCIZ\pC\],[XWD B,A]>
	IFNB <D>,<
	0XWD	[EXP CM%FW!DP
		ASCIZ\C\],[XWD B,A]>
,[XIR/!&
	IFN TFL'AG,<
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,<
	EXP0 A
		>

IFN 0 A&TXT.S,<
	IFE S0@CHAR,<SCHAR==" ">0`
	IFE SSIDE,< IF1E TXTF.D-<A&TXT.1 M>,< SSIDE==TXT.S1@R>>
	IFE SSIDE,<1` IFE TXTF.O-<A&T2XT.M>,< SSIDE==TX2 T.SR>>
	IFE SSID2@E,< SSIDE==TXT.SL2`>
	EXP <<INSVL.(3SCHAR,TXT.SC)>+<I3 NSVL.(SSIDE,TXT.S3@S)>+<INSVL.(SWIDT3`H,TXT.SP)>>
	SSI4DE==0
	SWIDTH==04 
	SCHAR==0
>
	4@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 Af
	ERA$==aER%%%
	ER%%%==ER%%%+1
R%%%==ERKK,}P KK|Y 
	ERR	EOF File>
	RR	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 Sys tem Limit Was Exc@eeded>
	ERR	IFS,`<Illegal File Specification>
	ERR 	FNF,<File Not Fo@und>
	ERR	PRT,<P`rotection Violation>
	ERR	DNA,<De vice Was Not Avai@lable>
	ERR	NCE,`<No "current" entry in list>
	ERR 	NMA,<No IPCF mes@sage is available`>
	ERR	FDS,<Files are on differen t structures>
	E@RR	FAE,<File alre`ady exists>
	ERR	USE,<Unexpected  System Error>
	E@RR	NSP,<No Such P`id>
	ERR	BOL,<Beginning of list r eached>
	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 exi sts in the table>@
	ERR	ITE,<Inval`id Table Entry>
	ERR	QEF,<Quota E xceeded or Disk F@ull>
	ERR	ARG,<I`nvalid Argument>
	ERR	UJI,<Invali d I%JINF Function@>
	ERR	IJN,<Inva`lid Job Number Specified for I%JINF>
d for I%JINKKBP 
KKI"P KKBP 
KK$)BP5KK-*"P KK.9"P KR/
IF1,<
	5AIFN EFLG&1,<PRINT5`X ?Uknown qualifi6er in A call of 6 B
		     PRINTX6@
>
	IFN EFLG&2,6`<PRINTX ?Bad spac7ing specification7  in A call of B7@
		     PRINTX
7`>
	IFN EFLG&4,<P8RINTX ?Premature 8 end of text in A8@ call of B
		  8`   PRINTX
>
	IF9N EFLG&10,<PRINTX9  ?Bad address in 9@A call of B
		9`     PRINTX
>
	:IFN EFLG&20,<PRIN: TX ?Variable addr:@ess too long in :`A call of B
		 ;    PRINTX
>
	I; FN EFLG&40,<PRINT;@X ?Spacing on I q;`ualifier in A ca<ll of B
		     < PRINTX
>
> ;END OF IF1
> ;ENDKc   YIRP 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 6X#9
	IFNB <>6x,<
	PRINTX  (Fro7m GLXVER)
	> ;END IFNB 
	M&`Mt 5#1
	PRINTX 58GLXVER	GLXFIL Edi5Xt(64) by JYW on 25x0-Sep-82
	PRINTX6	    	GLXFIL	Actual Edit(A)
	M&dYP M2  ^!r<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/' FR			
     F!   SFLG==0				
	F@STYP==0				
	IFIF`DN <A><^>,<STYP=G=TXTF.2>	
	IFE SG TYP,<IFDEF TXTF.G@A,<STYP==TXTF.A>G`>
	IFE STYP,<EFLHG==EFLG!1>		
	IFH N STYP&TXT.NA,<		H@
	     DTEXT.(STH`YP)		
	     IFLGI==3			
			>	 	
I 	IFE STYP&TXT.NA,I@<		
	    IFLG==1I`			
	    AFLG==1J			
	    SWIDTH=J =0			
			>	 	
	ZFLG==0				
 	MR/G Jav			
	IFIDKN <A></>,<			
	K     AFLG==0			
	K@    IFLG==3			
	K`    DTEXT.(STYP)	L	
		  >         L  		
	IFN AFLG,<	L@		
	    XTEXT. AL`TEXT.,<A>
	    MAFLG==AFLG+1		
	M     IFE AFLG-^D31M@,<EFLG==EFLG!20> M`
	    IFIDN <A>N<,>,<		
		IFN ZFN LG,<EFLG==EFLG!10N@> 
		ZFLG==TXT.PN`
			  >		
		  >			
 		
		  >MR/g O!			

	IFOAE IFLG-3, <			
	O`    IFLG==0			
	P	    >			
	IFE IP FLG-2,<			
	    P@IFLG==0			
	    P`IFDIF<A></>,<FTEQX4.(<A>)>	
		  Q >			
	IFE IFLG-1Q@,<			
	    IFLG=Q`=2			
		 >	 		
 	
		/>			R!h			
    ERAFLG==EFLG!2			
 R`    IFE SSIDE,<		S	
    IFLE "0"-"S A",<			
	IFGE "S@9"-"A",<SWIDTH==S`SWIDTH*^D10+^DA T
		   IFE STYP-TT XTF.I<EFLG==EFLG!T@40> 
		   STYP==T`STYP!TXT.S	
		  U EFLG==EFLG&<^-2>U 	
		 >			
		  >U@			
	>				
    U`IFIDN <A><R>,< 	V		
	   IFN SWIDTV H,<			
		SSIDE==V@TXT.SR		
		EFLG=V`=EFLG&<^-2>	
		 W      >		
		    W >			
    IFIDN <W@A><L>,< 			
	XW` IFN SWIDTH,<			
		SSIDE==TXT.SL	X 	
		EFLG==EFLG&<X@^-2>	
		       >X`		
		    >			
 Y   IFIDN <A><C>,Y < 			
	   IFN SWY@IDTH,<			
		SSIDY`E==TXT.SM		
		EFZLG==EFLG&<^-2>	
Z 		       >		
		 Z@   >			
    IFN Z`SWIDTH, <			
	IF[N SSIDE,<			
	 I[ FN EFLG&2,<			
	[@   IFE SCHAR,< SC[`HAR=="A"	
			EF\LG==EFLG&<^-2>
	\ 	     >			
		  >\@			
		  >			
		\` >			
    IFE EF]LG&2,< IFLG==2>		
IFLG==2>		MR/
	TFLG==0?	
	AFLG==0	
	SF? LG==0	
	IFLG==0	?@
	ZFLG==0	
	EFL?`G==0
	SCHAR==0
@	SWIDTH==0
	SSID@ E==0
	CTEXT.

@@IRPC A,<	
    I@`FN SFLG,<	
	FTEXA1.(<A>)	
>		
IA FE SFLG+AFLG+IFLGA@,<	
IFIDN <A>,<A`^>,<	
IFN TFLG,<BDTEXT.(TXTF.3)>
B SFLG==1	
>	
IFEB@ SFLG,<	
IFE ^D2B`9-TFLG,<
DTEXT.(CTXTF.3)
>	
TFLGC ==TFLG+1	
XTEXT.C@ ATEXT.,<A>	
>	C`
>	
IFE SFLG+IFDLG+TFLG,<	
FTEX2D .(<A>)	
>	
IFND@ IFLG,<
FTEX3.(<D`A>)	
>	
>
IFNE TFLG,<DTEXT.(TXTE F.3)>
IFN AFLG+SE@FLG+IFLG,<EFLG==EFLG!4>
	FLG==EMRV>9Q MS.[yP M^luQ O2|  !9IRP A,<
!Y	IF2,<IFDEF A,<.!xIFN A,EXTERN,<IN"TERN A>>
	     "8IFNDEF A,<EXTERN"X A>
	Q SUPPRESPA>>FlYSUPPRO3DYPF4O3EKrPf4O3EZ7PO3F\Yp Stkp SuZp Su}:p Sv
1p Sv

Sp Sv>@p SNn z!R..OP(A,B,IDIV).OP(A,BS7-N y!J..OP(A,B,IMUL).OP(A,BS:  lAj
	IFNB <laB>,<..STR0 (.INCRm0,,<B>,A)>
	IFm B  <B>,<AOS A>  <B>,<AOS A>S:HKW J8$W
	IFNB <>JX,<
	PRINTX  (FroJxm GLXVER)
	> ;END IFNB 
	S:HMt Hx$O
	PRINTX IGLXVER	GLXINI EdiI8t(7) by MLB on 3-IXJul-79
	PRINTX	 Ix   	GLXINI	Actual Edit(A)
	S:LYP S;k a<<<A>B<POS(<B>)>>&<B>>S; KW 8x#K
	IFNB <>9,<
	PRINTX  (Fro98m GLXVER)
	> ;END IFNB 
	S; Mt 78#C
	PRINTX 7XGLXVER	GLXINT Edi7xt(50) by vnd on 38-Jun-82
	PRINTX	88    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP S? !	b
	TXO A,<B>
	TXO A,S@,9QQ @S@,9QP S@,9RP `S@,9VP S@,9XP$S@,9YQ S@,9YQ  S@,9[P"S@.MQ 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 OX%
	IFNB <>Ox,<
	PRINTX  (FroPm GLXVER)
	> ;END IFNB 
	SBMt N$y
	PRINTX N8GLXVER	GLXIPC EdiNXt(43) by MLB on 1Nx1-Jun-79
	PRINTXO	    	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. =XCREF			
	FTEXT.= (<A>)		
	IFN EF=@LG,< ETEXT.(ITEXT=`,<A>)> ;IF ERROR>, DESCRIBE IT
	E> XP	0			
	LSTON.		0			
	LSTON.	Uv98Q xU$@ !Q
	
	  LSATOF.

	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 EX$1
	IFNB <>Ex,<
	PRINTX  (FroFm GLXVER)
	> ;END IFNB 
	W
 Mt D$)
	PRINTX D8GLXVER	GLXKBD EdiDXt(24) by MLB on 2Dx0-Sep-79
	PRINTXE	    	GLXKBD	Actual Edit(A)
	W
$YP 
WNH1 !
	IFB <C1>,<
	XWD	[ASCIZ\PB\],A>
	IFNB <pC>,<
	XWD	[EXP CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 <)P

	  LST<IOF. XCREF

	CDO<h	     			
	CDO	.=ZPAGA
	CDO	.ZPAG=(N
	CDO	.ZCHNK
	=HCDO	.SAVE1
	CDO	=h.SAVE2
	CDO	.SAV>E3
	CDO	.SAVE4
>(	CDO	.SAVET
	CDO>H	.SV13
	CDO	.SV1>h4
	CDO	.SV15
	C?DO	.SV16
	CDO	.R?(ETT
	CDO	.RETF
?H	CDO	.RETE
	CDO	?h.AOS		
	CDO	.SOS@		
	CDO	.ZERO		
	CDO	.POPJ
	CDO@H	.STOP
	CDO	.SAV@hE8		
	CDO	.STKSTA		
	CDO	.TRSET		A(
	CDO			
	CDO	.AHPOPJ		
	CDO
	CDAhO
	CDO
	CDO
	CBDO

	CDO				
	B(CDO	C%RPRM
	CDO	BHC%INTR
	CDO	C%SEBhND
	CDO	C%RECV
C	CDO	C%BRCV
	CDOC(	C%REL
	CDO	C%CPCHID
	CDO	C%KPID
Ch	CDO	C%SPID
	CDOD	C%MAXP
	CDO	C%PD(IDJ
	CDO
	CDO
DH	CDO
	CDO
	CDO

	CDO	      			E
	CDO	F%IOPN
	CE(DO	F%AOPN
	CDO	FEH%OOPN
	CDO	F%IBYEhT
	CDO	F%OBYT
	FCDO	F%IBUF
	CDO	F(F%OBUF
	CDO	F%REFHL
	CDO	F%DREL
	FhCDO	F%RREL
	CDO	GF%REW
	CDO	F%POSG(
	CDO	F%CHKP
	CGHDO	F%INFO
	CDO	FGh%FD
	CDO	F%REN
H	CDO	F%DEL
	CDO	H(F%FCHN
	CDO
	CDHHO
	CDO
	CDO
	CHhDO
	CDO
	CDO
	ICDO
	CDO

	CDOI(	      			
	CDO	IHM%ACQP
	CDO	M%REIhLP
	CDO	M%IPSN
J	CDO	M%NXPG
	CDOJ(	M%IPRC
	CDO	M%IJHPRM
	CDO	M%AQNP
	CDO	M%RLNP
	CDKO	M%CLNC
	CDO	M%K(FPGS
	CDO	M%GMEMKH
	CDO	M%RMEM
	CKhDO
	CDO
	CDO
	LCDO
	CDO
	CDO
L(	CDO	M%GPAG
	CDOLH	M%RPAG
	CDO
	CLhDO
	CDO
	CDO
	MCDO
	CDO
	CDO
M(	CDO

	CDO	    MH  			
	CDO	T%TEXMhT
	CDO	T%TTY
	CNDO
	CDO
	CDO
	N(CDO
	CDO
	CDO
NH	CDO
	CDO
	CDO
	CDO

	CDO	   O   			
	CDO	L%CLO(ST
	CDO	L%DLST
OH	CDO	L%CENT
	CDOOh	L%CBFR
	CDO	L%DPENT
	CDO	L%NEXT
	CDO	L%FIRS
	CDPHO	L%LAST
	CDO	L%PhPREV
	CDO	L%PREMQ
	CDO	L%CURR
	CQ(DO	L%RENT
	CDO	LQH%SIZE
	CDO	L%APOQhS
	CDO
	CDO
	CRDO
	CDO
	CDO
	R(CDO
	CDO
	CDO
RH
	CDO	I%INI1			
	CDO	I%NOW
	CDOS	I%EXIT
	CDO	I%IS(ON
	CDO	I%IOFF
SH	CDO	I%SLP
	CDO	ShI%INT1
	CDO	I%INTT2
	CDO	I%INT3
T(	CDO
	CDO
	CDO
	CDO	I%SOPR
	CDThO	I%WTO
	CDO
	CUDO	I%HOST
	CDO	IU(%JINF
	CDO
	CDOUH

	CDO				
	CDUhO
	CDO
	CDO	S%SVIXB
	CDO	S%CMND
	CDO	S%TBLK
	CDVHO	S%SCMP
	CDO	S%VhERR
	CDO	S%INTR
	CDO	S%EXIT
	CDW(O	S%TBAD
	CDO	S%WHTBDL
	CDO
	

Wh	CDO	K%RCOC			
	XCDO	K%WCOC
	CDO	X(K%SUET
	CDO	K%STXHYP
	CDO	K%TXTI
Xh	CDO	K%SOUT
	CDOY	K%BOUT
	CDO	K%BY(IN
	CDO	K%BACK
YH	CDO	K%TPOS
	CDOYh
	CDO
	CDO
	CDZO
	  LSTON.
  
	  LSTON.
  Y:XKW Qx%
	IFNB <>R,<
	PRINTX  (FroR8m GLXVER)
	> ;END IFNB 
	Y:XMt P8%
	PRINTX PXGLXVER	GLXLNK EdiPxt(5) by AWC on 6-QJun-79
	PRINTX	 Q8   	GLXLNK	Actual Edit(A)
	Y:\YP Y>

@ f6
	IFNB <f!C>,<..STR0 (..LDBf@,A,C,B)>
	IFBf`  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG $Y/
	IFNDEF $yLSTIN.,LSTIN.==0	%	
IFE LSTIN.,<
%8	IFIDN <XCREF><A%X>,<.XCREF>	
		  %x XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G &99
	IFG LST&YIN.,LSTIN.==LSTIN&x.-1	
	IFLE LSTIN'.,<.CREF		
		      LIST>
		   [KW ;X#a
	IFNB <>;x,<
	PRINTX  (Fro<m GLXVER)
	> ;END IFNB 
	[Mt :#Y
	PRINTX :8GLXVER	GLXMAC Edi:Xt(143) by vnd on :x25-May-82
	PRINT;X	    	GLXMAC	Actual Edit(A)
	[YP 1[3@ `A<<<1_<A>>-1>B<B>>_<A>>[8@ _A|1B<<A>-1>-1B<B><<A>-1>[@ 7iJ
	IFB <B8	>,<MAXSIZ==0
		I8(RP A,<IFG <A-MA8HXSIZ>,<MAXSIZ==A8h>>>
	IFNB <B>,<9B==0
		IRP A,<9(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 T8%'
	IFNB <>TX,<
	PRINTX  (FroTxm GLXVER)
	> ;END IFNB 
	[hMt Rx%
	PRINTX SGLXVER	GLXMEM EdiS8t(11) by PJT on 5SX-Jan-79
	PRINTX	Sx    	GLXMEM	Actual Edit(A)
	[lYP [n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 9i^
	IFB <B:	>,<MINSIZ==377777:(,,777777
		IRP :HA,<IFG <MINSIZ-A:h>,<MINSIZ==A>>>
	IFNB <B>,<B==;(377777,,777777
	;H	IRP A,<IFG <B-;hA>,<B==A>>>
A>,<B==A>>>
[>!` `<A-<A/B>*B><A-<A/B[?7 aAn
   ..MX1aa==B			
IFDEF .PbSECT,<
   .IFN .b .MX1,ABSOLUTE,<
b@	MOVE A,[B]>
 b`  .IF ..MX1,ABSOLcUTE,<
	..MX2==0	c 	
	IFE <..MX1>B5c@3,<
	c`..MX2==1
	  MOVEI A,..MXd1>	
	IFE ..MX2,<d 		
	IFE <..MX1>Bd@17,<
	  ..MX2==1d`
	  MOVSI A,(..eMX1)>>	
	IFE ..Me X2,<		
	IFE <<..e@MX1>B53-^O777777>e`,<
	  ..MX2==1
f	  HRROI A,<..MXf 1>>>	
	IFE ..MX2f@,<		
	IFE <<..MXf`1>B17-^O777777B17g>,<
	g ..MX2==1
	  HRLOI A,(..Mg@X1-^O777777)>> 
g`	IFE ..MX2,<		
	h  MOVE A,[..MX1]h >	
	>>

IFNDEFh@ .PSECT,<
	..MX2h`==0		
	IFE <..MXi1>B53,<
	  ..MX2i ==1
	  MOVEI A,i@..MX1>	
	IFE ..Mi`X2,<		
	IFE <..MjX1>B17,<
	  ..MXj 2==1
	  MOVSI Aj@,(..MX1)>>	
	IFEj` ..MX2,<		
	IFE k<<..MX1>B53-^O777k 777>,<
	  ..MX2=k@=1
	  HRROI A,<k`..MX1>>>	
	IFE .l.MX2,<		
	IFE <<l ..MX1>B17-^O77777l@7B17>,<
	  ..MX2l`==1
	  HRLOI A,m(..MX1-^O777777)>m > 
	IFE ..MX2,<	m@	
	  MOVE A,[..m`MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= )a
`
	A==C	*	
	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 yaN..OP(A,B,MUL)..OP(A,B[`v
2P ] ixIF2,<IFDEF	 A,<A==A>> IFNDEF A,<A==B>]F@ HTEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= )t

	X	.OT!RDR,Reader
	X	.O!TNCU,Network-Cont)!roller
	X	.OTLPT(a,Printer
	X	.OTB*	AT,Batch-Stream
*(	X	.OTCDP,Card-Pu*Hnch
	X	.OTPTP,Pa*hpertape
	X	.OTPL+T,Plotter
	X	.OT+(JOB,Job
	X	.OTTR+HM,Terminal
	X	.O+hTOPR,Operator
	X,	.OTIBM,<IBM Remo,(te>
	X	.OTMNT,<D,Hevice>
	X	.OTXFR,h,<File Transfer>
	X	.OTBIN,<Card -(Reader Interprete-Hr>
	X	.OTRET,<Fi-hle Retrieval>
	X.	.OTNOT,<Retrieva.(l Notification>
.H	X	.OTDBM,<DBMS System>
<DBMS S_SKW M$m
	IFNB <>M8,<
	PRINTX  (FroMXm GLXVER)
	> ;END IFNB 
	_SMt KX$e
	PRINTX KxGLXVER	GLXOTS EdiLt(3) by DC on 19-L8Jun-79
	PRINTX	 LX   	GLXOTS	Actual Edit(A)
	_SYP _Sh6 71; [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 ^ar

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

  8A IFNB <D>,<..XX=8`..XX!CM%HPP> 
  9 IFNB <E>,<..XX=9 ..XX!CM%DPP> 

9@	EXP ..XX		

  9` IFNB <C>,<EXP :C>
   IFB <C>,<: EXP 0>

   IFNB:@ <D>,<POINT 7,[A:`SCIZ \D\]>
   I;FB <D>,<0>

;;  IFNB <E>,<POINT;@ 7,[ASCIZ \E\]>
<IFB <E>,<0>



   IFB <I< >,<0>
   IFNB <<@I>,<EXP I>

  <` IFB <J>,<0>
  = IFNB <J>,<EXP = J>

   IFB <H>=@,<0>
   IFNB <H=`>,<EXP H>

   >IFB <G>,<0>
   > IFNB <G>,<EXP G>

G>,<EXP Ga@KW H$E
	IFNB <>H8,<
	PRINTX  (FroHXm GLXVER)
	> ;END IFNB 
	a@Mt FX$=
	PRINTX FxGLXVER	GLXPFH EdiGt(2) by DC on 27-G8Jul-79
	PRINTX	 GX   	GLXPFH	Actual Edit(A)
	aDYP a ZITLSH A,^D9LSH A,^D9a+= +a>Mm ]ap<POINT WID^(B),A,POS(B)>B),A,POS(B)>a? \Ad<^L<<A>&<-<A>>>><<A>&<aJ}Ks I0
	(	SALL
	((LSTOF. XCREF
	  TOPS20 <SEARC(HH MONSYM>	
	  TO(hPS10 <SEARCH UUOS)YM>	
	  IFB <B>)(,<
			GLOB <I%IN)HIT>
			%%.GLX==:)h%%.GLX	
					
	*		DEFINE $DATA(NA*(M,SIZ<1>)<
			  *HNAM:	BLOCK	SIZ
	*h		>
			IFN GLXPU+RE,<.REQUEST GLXI+(NI 
					DEFINE +H..ASGN(A,ADR)<DEF+hINE A<@^O'ADR>>
,				>
			IFE GLX,(PURE,<.REQUIRE GL,HXLIB 
					DEFIN,hE ..ASGN(A,ADDR) -<GLOB(A)>
				>
			>
	  IFNB <-HB>,<
			CHKEDT(-hB)	
			IFIDN <B.><OTS>,<EXTERN .R.(ETT,.RETF>
			IF.HDIF <B><INI>,<
.h			IFN GLXPURE,< /.PSECT	.HIGH.>
	/(		IFE GLXPURE,<
/H			DEFINE $DATA(N/hAM,SIZ<1>)<
			 0 IFNDEF	B%D,<B%0(D::!	B%DL==:0>
0H			  NAM:	BLOCK	S0hIZ
			  IF1,<B%1DL==:B%DL+SIZ>
1(			>
			>
			GL1HOB <IIB>	
			DEF1hINE ..ASGN(A,ADDR2) <GLOB(A)>
			>2(
			IFIDN <B><I2HNI>,<
			DEFINE 2h..ASGN(A,ADDR) <A3=ADDR>
			>
			3(>
	IFNB <A>,<%%3H.MOD==SIXBIT/A/>3h 
	IFNB <B>,<%%4.OTS==SIXBIT/B/>4( 
	ZZ==VORG
	DE4HFINE CDO (A) <IFN4hB <A>,<..ASGN(A,\5ZZ)>
			ZZ==ZZ+15(>
	LIBVEC
	OPDE5HF $RETT [PJRST .R5hETT]	
	OPDEF $RE6TF [PJRST .RETF]
	LSTON.				
tP&aPtkP aPuTP aPv=xP aPv\rP aPv|UP aR/
	   OPC &aA
	   POINTR(0,B)
	POINTR(0,e"luP'ePv8vPAePv9VPhePv;P fDP fHP gkp gk9p glp glp gltp gl}p g4P Ra
		   $SAVE <A>		   $SAgpKW C$
	IFNB <>C8,<
	PRINTX  (FroCXm GLXVER)
	> ;END IFNB 
	gpMt AX$
	PRINTX AxGLXVER	GLXSCN EdiBt(37) by MLB on 2B85-Sep-79
	PRINTXBX	    	GLXSCN	Actual Edit(A)
	gtYP g"@ @
	IFN <<.!.TA>&B>,<PRINTX@ ?Initial field n`ot zero in $SET>
	 ..TVAL==<C>
	@..TMSK==<B>
	  ..TA==..TA!`<FLD(..TVAL,..TMSK)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@LaC.SWIT+PDBCPY##C.SWIT+PDBg$tkQ0@g$uP'g.N	@ 6@g.N
.SPID	(S01P.QSR,.IPCPQ,.SPQ0PSR,QUASAR)	
.SPI0pD	(SP.OPR,.IPCPO,1.SPOPR,ORION)	
.10SPID	(SP.INF,.IPC1PPI,.SPINF,INFO)	
.SPID	(SP.MDA,.I2PCPM,.SPMDA,MDA)	20
TOPS10<
.SPID	2P(SP.IPC,.IPCPS,,I2pPCC)		
.SPID	(SP3.ACT,.IPCPA,,ACTD30AE)		
.SPID	(SP.3PTLP,.IPCPT,,TAPLA3pB)		
.SPID	(SP.T4OL,.IPCPC,,TAPAVR40)		
.SPID	(SP.DO4PL,.IPCPD,,DSKAVR)4p		
.SPID	(SP.FIL5,.IPCPF,,FILDAE)		
>
,FILDAE)	gR^h9 B

 
	..STKR=B!=10		
	RADIX 8
B@	..STKN==0
	IRP B`A,<
	  .STKV1 (CA)>
	JSP .SAC,.C STKST
	 ..STKN,,C@..STKN
	RADIX ..C`STKR
	PURGE ..STDKN,..STKR,..STKQ
gR~TKR,..STKQ
	IFNB <iAC>,<..STR0 (..DPBi`,A,C,B)>
	IFBj  <C>,<MOVEM A,B>>,<MOVEM A,gV xaF..AS(A,B,SUB,ADD)(A,Bgg

V 6I:
	IFNB <6iB>,<TOPS10<A==B7>>
	IFNB <C>,<T7(OPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iFC@ &0TXT1. (A)TXT1. (A)iP i?4( ;#YIFN FTUUOS,B			;DEFINE UNi?4H ;Q#]IFN FTJSYS,	INTERN AEDT	iG, q
	LSTOF.
	X(T,TXT.A)			
0	X(O,TXT.A)			
	PX(D,TXT.A)			
	Xp(F,TXT.A)			
	X(7,TXT.A)			
	X(60,TXT.A)			
	X(W,PTXT.A)			
	X(5,TpXT.A)			
	X(P,TXT.A)			
	X(U,TXT0.A)			
	X(H,TXT.PA)			
	X(C,TXT.Ap)			
	X(E,TXT.A)			
	X(I,TXT.A)	0		
	X(M,TXT.NA)	P		
	X(J,TXT.NA)	p		
	X(L,TXT.NA)			
	X(K,TXT.NA)	0		
	X(A,TXT.NA)	P		
	X(0,TXT.NA)	p		
	X(3,TXT.A)			
	X(V,TXT.A)			0
	X(2,TXT.NA)			P
	X(Q,TXT.A)			
	X(B,TXT.A)			
 	X(1,TXT.A)			
	 0X(N,TXT.A)			
	X P(R,TXT.A)			
	LSTON.
)			
	LSiJnN8 $A@
LSTOF.
$!X(33,TTY33,33,)		$a		
X(35,TTY35,35!1,)				
TOPS20<
%X(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@ HA

R
	..TRR==Ha10		
	RADIX 8
	I..NV==1			
	IRP I A,<
	  .TRV1 (I@A)>		
	JSP .SAC,I`.TRSET		
	 ..NV-J1,,..NV-1
	RADIXJ  ..TRR		
	PURGE ..TRR,..NVURGE ib a	
		..TX(C,A,<B>)..TX(Cib !	
		..TX(CA,A,<B>).TX(CibP !	
		..TX(CE,A,<B>).TX(Cib` a	
		..TX(CN,A,<B>).TX(Cibp a^
		..TX(N,A,<B>)..TX(Nibt 
		..TX(NA,A,<B>).TX(NibtP 

!b
		..TX(NE,A,<B>).TX(Nibu` 

af
		..TX(NN,A,<B>).TX(Nibx 
		..TX(O,A,<B>)..TX(Oib| !z
		..TX(OA,A,<B>).TX(Oib|P !r
		..TX(OE,A,<B>).TX(Oib}` av
		..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(37) by CTK on 1=86-Nov-81
	PRINTX=X	    	GLXTXT	Actual Edit(A)
	4ic!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 !	

		..TX(ZA,A,<B>).TX(ZicTP !	
		..TX(ZE,A,<B>).TX(ZicU` a	
		..TX(ZN,A,<B>).TX(Zm6P$am?pP$mKc@ ;q=BYTE (3)A'YWHO (9)AVER (6)AMIN (18)AEDTo&  \`<^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? !	j
	TXC A,<B>
	TXC A,q@ yIFB <C>,< A==:B> IFNB <C>,<A=:B>B <Cup rA
	IFNB <raB>,<..STR1 (..TQZs,,<B>,A,..STR4)s >
	IFB  <B>,<SETZM A><B>,<SEuhP$a	;z  i
	.$RESET1
	$TYPE (.CMACT)P
	$HELP (<>)
	$pNEXT (A)
IFIDN 

<B> <>,< IRP C,

0<C>
			.$BUILD>

P
IFDIF <B> <>,<

p
	$HELP (B)
	I C,<C>
	.$BUILD><C>
	.$BU	0 4
.WTOX.(.OM!ACK,<A>,<B>,<C@>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 Gi@DEFINE .$RH	TN <A>
			.%RTN==1A>
			.%RTN	fI9 D	"DEFINE .$LD)ST <A+1>
			.%LST==11>
			.%L	
=Z w@
	  IFG w!A-INT.LV,<PRINTX w@?Level A interruw`pts not supportedx>
	  .BGINT.(\A)   .BGINT.(\A	X5 F)4DEFINE .$BFIREA <A>
			.%BREA==1>
			.%BR	- ya^
	  IFDEFz ..BSIZ,<PRINTX ?z Missing $EOB aftez@r a $BUILD>
	  .z`.BSIZ==0			
	  .{.BLOC==.			
	  R{ EPEAT A,<			
		{@BLD0.(\..BSIZ,0)	{`
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 uq5
	.$RESETv
	$TYPE (.CMCMA)v0
	$NEXT (A)
	IvPRP B,<B>
	.$BUILD,<B>
	.$BU	I@ r1
	.$RESETrQ
	$TYPE (.CMCFM)rp
	IRP A,<A>
	.$BUILD,<A>
		$^ |q
	.$RESET|1
	$TYPE (.CMTXT)|P
	$HELP (<>)
	$|pNEXT (A)
IFIDN }<B> <>,< IRP C,}0<C>
			.$BUILD>}P
IFDIF <B> <>,<}p
	$HELP (B)
	I~RP C,<C>
	.$BUILD><C>
	.$BU	H  	qTE@
		.PSECT
!	DATA
	A:	BLOCK
@	B
		.ENDPS
	B
		.ENDPS
	$,J1	I  ~Q}
	.$RESET~q
	$TYPE (.CMTAD)
	$PDATA (CM%IDA0)
	$NEXT (A)
	PIRP B,<B>
	.$BUILD,<B>
	.$B	,,U yJ
	  $RET	y!			;WILL INVOKE RIGHT ROUTINE
		,h: B)DEFINE .$DBIEFM <POINT 7,[ASCBhIZ\A\]>
			.%DEFM==1>
			.%DE	.` zq]
	.$RESET{
	$TYPE (.CMDEV){0
	$NEXT (A)
	I{PRP B,<B>
	.$BUILD,<B>
	.$BU	Lz: `q
	.$RESETa
	$TYPE (.CMNUX)a0
	$PDATA (B)
	aP$HELP (<>)
	$NEXapT (A)
IFIDN <Cb> <>,< IRP D,<Db0>
			.$BUILD>
IbPFDIF <C> <>,<
	bp$HELP (C)
	IRP cD,<D>
	.$BUILD><D>
	.$BUILD	N  s1!
	.$RESETsQ
	$TYPE (.CMDIR)sp
	$NEXT (A)
	ItRP B,<B>
	.$BUILD,<B>
	.$BU	|  a"
	  IFNDEF ..BSIZ,<PRINTX  ?$EOB without pre@vious $BUILD>
	 ` IFN <.-..BLOC>,<PRINTX ?Address c hange between $BU@ILD and $EOB>
	 ` LSTOF.			
	  ..T==0
	  REPEAT . .BSIZ,<
	    BLD@0.(\..T,1)		
	  `  ..T==..T+1 >
	  PURGE ..BSIZ,.. T,..BLOC	
	  LSTON.
		
	  LST	+y EI.DEFINE .$EEiRTN <A>
			.%ERTN==1>
			.%ER	, G	:DEFINE .$EG)RTN <1B0+A+1>
			.%ERTN==1>
		H6 

i
	$CALL	.

1STOP
	LSTOF.
	J

PUMP	[XWD 0,[ITEXT

p (<A>)]
		%EXPD
	LSTON. .MOD]
	LSTON. 	L[ oq
	.$RESETp
	$TYPE (.CMFLD)p0
	$NEXT (A)
	$pPHELP (<>)
IFIDN pp<B> <>,< IRP C,q<C>
			.$BUILD>q0
IFDIF <B> <>,<qP
	$HELP (B)
	IqpRP C,<C>
	.$BUILD><C>
	.$BU	MI  m1{
	.$RESETmQ
	$TYPE (.CMFIL)mp
	$HELP (<>)
	$nNEXT (A)
IFIDN n0<B> <>,< IRP C,nP<C>
			.$BUILD>np
IFDIF <B> <>,<o
	$HELP (B)
	Io0RP C,<C>
	.$BUILD><C>
	.$BU	dy ?I~DEFINE .$F?iLGS <A>
			.%FLGS==1>
			.%FL	ex: x1S
	.$RESETxQ
	$TYPE (.CMFLT)xp
	$HELP (<>)
	$yNEXT (A)
IFIDN y0<B> <>,< IRP C,yP<C>
			.$BUILD>yp
IFDIF <B> <>,<z
	$HELP (B)
	Iz0RP C,<C>
	.$BUILD><C>
	.$BU	$ !]EP
	  INTERQN A
	  $DATA(A,<B>)
	ATA(A$-V1	"
	IFDIF <A)A> <>,<
DEFINE AH.$HLPM <POINT 7,[AhASCIZ\A\]>
			.%HLPM==1>
			.	&5 h1S
	.$RESEThQ
	$TYPE (.CMIFI)hp
	$HELP (<>)
	$iNEXT (A)
IFIDN i0<B> <>,< IRP C,iP<C>
			.$BUILD>ip
IFDIF <B> <>,<j
	$HELP (B)
	Ij0RP C,<C>
	.$BUILD><C>
	.$BU	&u w?
	.$RESETw1
	$NEXT (A)
	$wPTYPE (.CMINI)
	IwpRP B,<B>
	.$BUILD,<B>
	.$BU	./ \Qm
	.$RESET\q
	$TYPE (.CMKEY)]
	$PDATA (B)
	]0$NEXT (A)
	IRP ]PC,<C>
	.$BUILD,<C>
	.$BUILD	./ [a
	.$RESET[1
	$TYPE (.CMKEY)[P
	$PDATA (A)
	[p$NEXT (0)
	IRP \B,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDaH.WTOX.(.OM	WTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p B.WTOX.(.OM!LOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV 1 U
	.$RESETQ
	$TYPE (.CMNOD)p
	$HELP (<>)
	$	NEXT (A)
IFIDN 	0<B> <>,< IRP C,	P<C>
			.$BUILD>	p
IFDIF <B> <>,<

	$HELP (B)
;	
0$FLAGS (CM%PO)
	
PIRP C,<C>
	.$BUILD><C>
	.$B	:}r cQ'
	.$RESETcq
	$TYPE (.CMNOI)d
	$PDATA (<POINTd0 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRdpP C,<C>
	.$BUILD,<C>
	.$BUI	;-XR ^
	.$RESET^1
	$TYPE (.CMNUM)^P
	$PDATA (B)
	^p$HELP (<>)
	$NEX_T (A)
IFIDN <C_0> <>,< IRP D,<D_P>
			.$BUILD>
I_pFDIF <C> <>,<
	`$HELP (C)
	IRP `0D,<D>
	.$BUILD><D>
	.$BUILD	>5 jqg
	.$RESETk
	$TYPE (.CMOFI)k0
	$NEXT (A)
	$kPHELP (<>)
IFIDN kp<B> <>,< IRP C,l<C>
			.$BUILD>l0
IFDIF <B> <>,<lP
	$HELP (B)
	IlpRP C,<C>
	.$BUILD><C>
	.$BU	B$ @)DEFINE .$D@IATA <A>
			.%DATA==1>
			.%DA	B$YP C)DEFINE .$DCIEFM <POINT 7,<A>>
			.%DEFM==1	CYT HIFDEFINE .$DHiEFR <A>
			.%DEFR==1>
			.%DE	G-}  )
	.$RESET1
	$TYPE (.CMQST)P
	$HELP (<>)
	$pNEXT (A)
IFIDN <B> <>,< IRP C,0<C>
			.$BUILD>P
IFDIF <B> <>,<p
	$HELP (B)
	IRP C,<C>
	.$BUILD><C>
	.$BU	J.@ ,~	J.I  IH
	  JSP	TiF,.RETE		
		LSTO	F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  Sa
	.NVR==0T			
	.ACM==0			

	IRP A,<		
	T@	..TSAC(.ACB,A)	T`	
		IFN .ACB,<.AUCM==.ACM!1B<A>>	U 
		IFE .ACB,<			U@
		IFE .NVR,<			U`
		    CAIA			
V		    LSTOF.
		 V    JRST b>
		  V@..PUSH(A,\<.NVR+V`1>)>>	

	IFN .AWCM,<	
	    IFE <W .ACM-17B<T4>>,<.AW@CM==0
				$CALL W`.SAVET>
	    IFEX <.ACM-377B<.A16>X >,<.ACM==0
				$X@CALL .SAVE8>
	  X`  IFE <.ACM-17B<PY4>>,<.ACM==0
			Y 	$CALL .SAVE4>
	Y@    IFE <.ACM-7B<Y`P3>>,<.ACM==0
		Z		$CALL .SAVE3>
Z@	    IFE .NVR,<	
	    IFE <.ACM-3Z`B<P2>>,<.ACM==0
[				$CALL .SAVE2>[ 
	[`  IFE <.ACM-[@1B<P1>>,<.ACM==0
				$CALL .SAVE1\>
	    IFE <.ACM\ -1B<.A13>>,<.ACM=\@=0
				$CALL .SV\`13>
	    IFE <.A]CM-1B<.A14>>,<.AC] M==0
				$CALL .]@SV14>
	    IFE <]`.ACM-1B<.A15>>,<.^ACM==0
				$CALL^  .SV15>
	    IFE^@ <.ACM-1B<.A16>>,^`<.ACM==0
				$CA_LL .SV16>
	    >_ >


	IFN _@.ACM,<	
	    IFE_` .NVR,<			
		CAI`A			
		LSTOF.
	` 	JRST b>

	   `@ .ACB==0			
	REP``EAT ^D16,<			
	 a   IFN <.ACM&1B<.a ACB>>,<	
		..PUSa@H(\.ACB,\<.NVR+1>a`)>
		.ACB==.ACB+b1>>		

	IFN .NVb R,<	
	    PUSH Pb@,[[CAIA		
		    b` AOS -.NVR(P)	
	c    REPEAT .NVR,<c ..POP(\.NVR)>	
	c@	     POPJ P,0]]>c`	
	LSTON.
b:	SUPPRESS bb:	S	N.@ |!r
	  IFNDE|AF ..BSIZ,<PRINTX |`?$SET without pre}vious $BUILD>
	 }  IFNB <B>,<..STR}@0 (..SET,<C>,B,}`A)>
	IFB  <B~>,<..STR0 (..SET,~ <C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
q	XWD b-1,b-1
	DEFINE $ETAB <
		b==.-a> <
		O%| 1
S..A::!Q	$CALL .STOP
		LpSTOF.
		JUMP [XWD 'A',[ITEXT (<0B>)]
			EXP %%.MOD]
		LSTON.	M	O= fq?
	.$RESETg
	$TYPE (.CMSWI)g0
	$PDATA (A)
	gP$NEXT (0)
	IRP gpB,<B>
	.$BUILD,<B>
	.$BUILD	O= e13
	.$RESETeQ
	$TYPE (.CMSWI)ep
	$PDATA (B)
	f$NEXT (A)
	IRP f0C,<C>
	.$BUILD,<C>
	.$BUILD	R

@ Q 
	.$RESETq
	$TYPE (.CMTAD)
	$PDATA (<CM%ID0A!CM%ITM>)
	$NEXPT (A)
	IRP B,<B>
	.$BUILD,<	R/

	$CALL	T%TEXT		
	LSTOF0.	XCREF			
	JRSTP	c			
	..CN..==p0
	..KN..==0
	  EFLG==1
	IRP A0,<..CN..==..CN..+P1>
	IFE <..CN..>p,<SETZ 0,		
		      EFLG==0>		
	0IFE <..CN..-1>,<MPOVEI 0,A	
		   p   EFLG==0>		
	IFE <..CN..-3>,<IR0P A,<	
			..KN.P.==..KN..+1
			IpFE <..KN..-..CN..>,<
			    EFLG=0=0	
			    HRROIP 0,A >>>
	IFN <pEFLG>,<IF1,<
		    PRINTX ?Invali0d syntax in $TEXTP parameter A
		p    PRINTX > 
		    HALT . >		
	0FTEXT.(<B>)		
	PIFN EFLG,<ETEXT.(p$TEXT,<B>)> 
c:					
	SUPPRESS0 c			
	LSTON.	c			
	LSTON.		RMY   	
	.$RESET1
	$TYPE (.CMTAD)P
	$PDATA (CM%ITMp)
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$B	R}97 
	.$RESET
	$TYPE (.CMTOK)
	$PDATA (<POINT0 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRpP C,<C>
	.$BUILD,<C>
	.$BUI	SN	  >ixDEFINE .$T?	YP <A>
			.%TYPE==1>
			.%TYP	W= Q ?
	.$RESETq
	$TYPE (.CMUQS)
	$HELP (<>)
	$0NEXT (A)
	$PDATPA (B)
IFIDN <Cp> <>,< IRP D,<D>
			.$BUILD>
I0FDIF <C> <>,<
	P$HELP (C)
	IRP pD,<D>
	.$BUILD><D>
	.$BUILD	W\@ tQ+
	.$RESETtq
	$TYPE (.CMUSR)u
	$NEXT (A)
	Iu0RP B,<B>
	.$BUILD,<B>
	.$BU	^+@ 
IFE,%%.ONE $WARN (MSG) <
		$TEXT 0(T%TTY,<% ^W6/[%%P.MOD]/ MSG>)>>
IpFN %%.OTS,<DEFINE $WARN (MSG) <
	0	$TEXT (T%TTY,<% P^W6/IIB+IB.PRG/ ^pW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r zb
		IFB	<z!A>,<.WFACD==0
		z@	IFN <0-2>,<.$WACz`D==0>>
		IFNB	<{A>,<.WFACD==-1
	{ 		IFN <0-2>,<.$WA{@CD==.$WACD!<A>>
			IFE <0-2>,<DE|FINE .$WACD,<<WO.| ACD>B8+[ITEXT (<A>)]>>
		>
<	_$u o

		IFB	<o!A>,<.WFACK==0
		o@	IFN <0-2>,<.$WACo`K==0>>
		IFNB	<pA>,<.WFACK==-1
	p 		IFN <0-2>,<.$WAp@CK==.$WACK!<A>>
			IFE <0-2>,<DEqFINE .$WACK,<<WO.q ACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ `a 
	IFE	<.WaFMTY>,<PRINTX ?Noa  message type in a@$WTBLD>
DEFINE .a`EAWTO(SUFFIX,ARGCbOD),<
IFN .WF'SUb FFIX',<
	IFE	<ARb@GCOD-0>,<<WO.'SUFb`FIX'>B8+ .$W'SUFFcIX'>
	IFE	<ARGCOc D-1>,<<WO.'SUFFIX'>B8+ [EXP .$W'SU FFIX']>
	IFE	<AR@GCOD-2>,<.$W'SUFF`IX'>
>
>
	ALLWTO				
	EXP	0			
		
	EXP	0				_$k qa 
		IFB	<rA>,<.WFFLG==0
		r 	IFN <1-2>,<.$WFLr@G==0>>
		IFNB	<r`A>,<.WFFLG==-1
	s		IFN <1-2>,<.$WFs LG==.$WFLG!<A>>
			IFE <1-2>,<DEs`FINE .$WFLG,<<WO.tFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W w!L
		IFB	<wAA>,<.WFJBN==0
		w`	IFN <0-2>,<.$WJBxN==0>>
		IFNB	<x A>,<.WFJBN==-1
	x@		IFN <0-2>,<.$WJx`BN==.$WJBN!<A>>
			IFE <0-2>,<DEy FINE .$WJBN,<<WO.y@JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV A
		IFB	<aA>,<.WFMFL==0
			IFN <1-2>,<.$WMF L==0>>
		IFNB	<@A>,<.WFMFL==-1
	`		IFN <1-2>,<.$WMFL==.$WMFL!<A>>
			IFE <1-2>,<DE@FINE .$WMFL,<<WO.`MFL>B8+[ITEXT (<A>)]>>
		>
<	_%] d2
		IFB	<d!A>,<.WFMTY==0
		d@	IFN <0-2>,<.$WMTd`Y==0>>
		IFNB	<eA>,<.WFMTY==-1
	e 		IFN <0-2>,<.$WMe@TY==.$WMTY!<A>>
			IFE <0-2>,<DEfFINE .$WMTY,<<WO.f MTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr tA6
		IFB	<taA>,<.WFNOD==0
		u	IFN <0-2>,<.$WNOu D==0>>
		IFNB	<u@A>,<.WFNOD==-1
	u`		IFN <0-2>,<.$WNvOD==.$WNOD!<A>>
			IFE <0-2>,<DEv@FINE .$WNOD,<<WO.v`NOD>B8+[ITEXT (<A>)]>>
		>
<	_%p A&.WTOX.(.OMaWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU l!t
		IFB	<lAA>,<.WFOBJ==0
		l`	IFN <0-2>,<.$WOBmJ==0>>
		IFNB	<m A>,<.WFOBJ==-1
	m@		IFN <0-2>,<.$WOm`BJ==.$WOBJ!<A>>
			IFE <0-2>,<DEn FINE .$WOBJ,<<WO.n@OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr |ax
		IFB	<}A>,<.WFOCD==0
		} 	IFN <0-2>,<.$WOC}@D==0>>
		IFNB	<}`A>,<.WFOCD==-1
	~		IFN <0-2>,<.$WO~ CD==.$WOCD!<A>>
			IFE <0-2>,<DE~`FINE .$WOCD,<<WO.OCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ <.WTOX.(.OM!WTO,<A>,<B>,<C@>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ !,
.WTOX.(.OMAWTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z ca
	DEFINE	cA.EAWTO(SUFFIX),<$!WT'SUFFIX'	<>>
	ALLWTO				

		_&N iA^
		IFB	<iaA>,<.WFTXT==0
		j	IFN <2-2>,<.$WTXj T==0>>
		IFNB	<j@A>,<.WFTXT==-1
	j`		IFN <2-2>,<.$WTkXT==.$WTXT!<A>>
			IFE <2-2>,<DEk@FINE .$WTXT,<<WO.k`TXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 faH
		IFB	<gA>,<.WFTYP==0
		g 	IFN <2-2>,<.$WTYg@P==0>>
		IFNB	<g`A>,<.WFTYP==-1
	h		IFN <2-2>,<.$WTh YP==.$WTYP!<A>>
			IFE <2-2>,<DEh`FINE .$WTYP,<<WO.iTYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP 1)0 X0=QyZ6 RU			

	dR1==<FLD(.$TYP,CM%FRPNC)>!.$FLGS!<.$LSRpT> 

	IFN <.%BRSEA>,<d==d!CM%BRS0K> 

	IFN <.%HLSPPM>,<d==d!CM%HPSpP!CM%SDH> 
					T	

	IFN <.%DEFMT0>,<d==d!CM%DPP>TP 

c:	XWD	b,Tpa			

	EXP d		U		

	EXP .$DATAU0			

IFN <.%HLPUPM!.%DEFM!.%BREA>,Up<
		EXP	.$HLPM>	V	


IFN <.%DEFV0M!.%BREA>,<
		EXVPP	.$DEFM>		


VpIFN <.%BREA>,<	EXWP	.$BREA>		

	W0a==.-c			;LENGTHWP OF THE FDB

IFWpN <.%NXT!.%DEFR!.X%RTN!.%ERTN>,< EXX0P .$NXT >	

IFNXP <.%DEFR!.%RTN!.%XpERTN>,<EXP .$RTN Y>	

IFN <.%DEFRY0!.%ERTN>,<	EXP	.$YPERTN>	

IFN <.%YpDEFR>,<		EXP	.$DEZFR>	


	b==.-Z0c			

	IF2<	PUZPRGE a,b,c,d>
	LISTb,c,d>POINT|7,[ASCIZ\0\]NT 7,[A$YY \0d+P.- V0<:P~5Iy L09[Pf= R0+1Q{w
	SALL
	LqXLIST
	DEFINE .$MTYP <0>
	.%TYPE=M0=0
	DEFINE .$FLGMPS <0>
	.%FLGS==0Mp
	DEFINE .$DATA N<0>
	.%DATA==0
N0	DEFINE .$HLPM <>NP
	.%HLPM==0
	DENpFINE .$DEFM <0>
O	.%DEFM==0
	DEFIO0NE .$LST <0>
	.%OPLST==0
	DEFINE .Op$BREA <0>
	.%BREPA==0
	DEFINE .$NP0XT <0>
	.%NXT==0PP
	DEFINE .$ERTN Pp<0>
	.%ERTN==0
Q	DEFINE .$RTN <0>Q0
	.%RTN==0
	DEFQPINE .$DEFR <0>
	.%DEFR==0<0>
	K@Z0Mt$o'!+0T 1,Y)0P $YVP $YYP .-P 5IyP f=P w
	   ..AS{A1==-<B>	
	IFDEF{` .PSECT,<
	.IFN |..AS1,ABSOLUTE,<
	     C A,[-..|@AS1]>	
	.IF ..AS|`1,ABSOLUTE,<
		.}.AS2==0	
	  IFE } <..AS1&^O777777B1}@7>,<
		..AS2==1	}`
	    DI A,..A~S1>
	  IFE ..AS2~ ,<
	    ..OP(A,~@B,C)>	
	PURGE ~`..AS1,..AS2>>
	IFNDEF .PSECT,<
	 	..AS2==0	
	  IF@E <..AS1&^O777777`B17>,<
		..AS2==1	
	    DI A,. .AS1>
	  IFE ..A@S2,<		
	    ..OP`(A,B,C)>
	PURGE ..AS1,..AS2>:h 

	A: n!>
	  ..CX1nA==C
	IFDEF .PSEn`CT,<
 	.IFN ..CXo1,ABSOLUTE,<
	  o     CAMA B,[C]o@>
	.IF ..CX1,ABSoaOLUTE,<	
		..CX2p==0	
	  IFE <..Cp!X1&^O777777B17>,<p@
		..CX2==1	
	 p`   CAIA B,C>
q	  IFE ..CX2,<		
	    CAMA B,[u@C]>
	PURGE ..CX1u`,..CX2>>
	IFNDEFv .PSECT,<
		..CXv 2==0	
	  IFE <..v@CX1&^O777777B17>,v`<
		..CX2==1	
	w    CAIA B,C>
	  IFE ..CX2,<		w@
	    CAMA B,[w`C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ jA`
	..TSIZ ja(..PST,C)
	.CASkE ..PST,<<
		MOVk EM A,B>,<
		HRk@RM A,B>,<
		HRk`LM A,B>,<
		DPlB A,[POINTR (B,C)]>>INTR (B,:<;Y A


   DEFINA!E ..CNS2 (NEW,OLDA@)<
	  OLD>			
	..CNS ()>			
	:L;Y >a


   DEFIN?E ..CNS (ARG)<
	? ..CNS2 <ARG>,>
?@
   DEFINE ..CNS2?` (NEW,OLD)<
	DEF@INE ..CNS (ARG)<
	  ..CNS2 <ARG>,@@<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ g!F
	..TSIZ gA(..PST,C)
	.CASg`E ..PST,<<
		MOVhE A,B>,<
		HRRh Z A,B>,<
		HLRh@Z A,B>,<
		LDBh` A,[POINTR (B,C)]>>INTR (B,:}i1 &
2
	A==<<<&!-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ !6
	  ..OP1A==B
	IFDEF .PSE`CT,<
 	.IFN ..OP1,ABSOLUTE,<
	       C A,[..OP1]@>
	.IF ..OP1,ABS`OLUTE,<	
		..OP2==0	
	  IFE <..O P1&^O777777B17>,<@
		..OP2==1	
	`   CI A,..OP1>
	  IFE ..OP2,<		 
	    C A,[..O@P1]>
	PURGE ..OP`1,..OP2>>
	IFNDEF .PSECT,<
		..O P2==0	
	  IFE <.@.OP1&^O777777B17>`,<
		..OP2==1	
	    CI A,..OP1 >
	  IFE ..OP2,<@		
	    C A,[.`.OP1]>
	PURGE ..OP1,..OP2>GE ..;| e,
		POP P,e!.NVA
		PURGE .Ne@VA
		.NVR==.NVR-1
		.NVR==.NVR;\t d!$
		PUSH PdA,A
		.NVB==A
		.NVR==.NVR+1;] ~a
	  IFGE <<<B>&777777>-.. BSIZ>,<
		PRINTX@ ?WORD offset gre`ater than $BUILD size parameter>
 	  SET0. (\<B>,C,<A>)
	B>,;LH ,A
t
	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 /2

	..NS==0/!			
	IRP C,<..N/@S=..NS+1>	
	IFE /`..NS,<PRINTX ?EMP0TY STRUCTURE LIST0 , A>
	IFE ..NS-0@1,<		
	  ..STR0 0`(A,<B>,<C>,D)1>
	IFG ..NS-1,<	1 	
	..ICNS			
	.1@.CNS (<E (A,<B1`>,,>) 
	IRP C,<2		
	  IFNDEF C,2 <PRINTX C NOT DE2@FINED>
	  IFDEF 2`C,<
	  IFNDEF %3C,<
	  ..CNS (<3 ,C,D>)>	
	  IF3@DEF %C,<
	  %C3` (..STR2,,D,C)>4 
	  ..CNS (<)>)4 		
	  ..GCNS		
4@	  ..ICNS		
	  .4`.CNS (<E (A,<B5>>) 
	  IFNDEF %5 C,<
	  ..CNS (<5@,C,D>)>	
	  IF5`DEF %C,<
	  %C6 (..STR2,,D,C)>6 >> 
	..CNS (<,,)>)		
	..GCNS>);LI 6a6
	..CNS (<,C,B>).CNS (;LI 7!L


	IFDIF <7AD><F>,<
	  IFN7`B <D>,<
	    A8 (<B>,D,..MSK)	8 
	    IFNB <F>,8@<PRINTX C AND E8` ARE IN DIFFERENT9 WORDS>>
	  ..MS9 K==0>		
	IFNB <9@F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ :\


	IFDIF <:!D><F>,<	
	  IF:@NB <D>,<
	    :`A (<B>,D,..MSK);>	
	  ..MSK==0>	; 	
	IFNB <F>,<
;@	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ <r


	IFDIF <<!D><F>,<	
	  IF<@NB <D>,<
	    I<`FNB <F>,<		
		=A1 (B,D,..MSK)>=  
	    IFB <F>,=@<		
		A2 (B,D=`,..MSK)>> 
	  ..>MSK==0>		
	IFNB > <F>,<
	  ..MSK=..MSK!<E>>MSK=;&@ sa4
	..TSIZ t(..PST,C)	
	.CAt SE ..PST,<<
		SEt@TZM B>,<	
		HLLt`ZS B>,<	
		HRRZuS B>,<	
	  ..TSu AC (..ACT,B)	
	u@  .IF0 ..ACT,<
	u`	$CALL .ZERO	
		vLSTOF.
		JUMP [Pv OINTR(B,C)]
		v@LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 "A
,
	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==3		!!	
	IFE <B>+1,<!@A=0>	
	IFE <B>-!`^O777777,<A==1> "
	IFE <B>-^O777777B17,<A==2>7;' !	H
   ..TX1A==C			
IFDEF .P`SECT,<
   .IFN ..TX1,ABSOLUTE,<
 	TDA B,[C]>
 `  .IF ..TX1,ABSOLAUTE,<		
	..TX2==	0		
	IFE <..TX1&	!^O777777B17>,<
		@  ..TX2==1		
	  	`TRA B,..TX1>
	
IFE ..TX2,<		
	I
 FE <..TX1&^O77777
A7>,<
	  ..TX2==1
a		
	  TLA B,(..TX1)>>
	IFE ..T X2,<		
	  IFE <<@..TX1>B53-^O77777a7>,< 
	    ..TX3 (A,B)>>	
	IFE  ..TX2,<		
	  TD@A B,[..TX1]>	
`	PURGE ..TX1,..TX2>>
IFNDEF .PSEC T,<
	..TX2==0		
	IFE <..TX1&^O77`7777B17>,<
	  ..TX2==1		
	  TRA  B,..TX1>
	IFE @..TX2,<		
	IFE <`..TX1&^O777777>,<
	  ..TX2==1		
 	  TLA B,(..TX1@)>>
	IFE ..TX2,<`		
	  IFE <<..TX1>B53-^O777777>,<  
	    ..TX3 (A@,B)>>	
	IFE ..T`X2,<		
	  TDA B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` A	^
	IFIDN <aA><Z>,<		
	  ..TX2==1
	  ANDI  B,^-..TX1>	
	IFI@DN <A><O>,<		
	`  ..TX2==1
	 ORCMI B,^-..TX1>	
	IFIDN <A><C>,<@		
	  ..TX2==1
`	  EQVI B,^-..TX1>QVI B,^-..TX
0P 
@P 
PP 
`P d  O!

z
	.ACV2 (A)
	.ACV2 (d@ Oa
	A=.FPAPC+..NAC		
	IFB <P B>,<..NAC=..NAC+P@1>
	IFNB<B>,<..NAC=..NAC+B>.d` Q
	IFG A-Q!.NPAC,<PRINTX ?TOQ@O MANY ACS USED>
	IFLE A-4,<
	RR $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z xADJSR I%INTAJSR I%INT9  

	..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 pa
	..PST==qC-FWMASK
	.IF0 q ..PST,<
		SOS Bq@>,<	
		$CALL .SOq`S	
		LSTOF.
		JrUMP [POINTR(B,C)]
		LSTON.>C} `
	.OPCD==a.OPCD+1
	WO.A==.OPCD
G),<
		$j6p %I7p &=p P `P &2 a	t
	..IFT==A		
	IFE ..IFT, <
	B
	..IFT==0@>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H max
	..PST==nC-FWMASK
	.IF0 n ..PST,<
		AOS Bn@>,<	
		$CALL .AOn`S	
		LSTOF.
		JoUMP [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 -
	IFG	A-5QMX.PID,<MX.PID==A>
C
G	A-OSP OYP O|P OyP O%=H DA

$
	.STKV2 (A)
	.STKV2 O%=I E

2
	IFB <BE!>,<..STKN==..STKNE@+1>
	IFNB <B>,<E`..STKN==..STKN+BF>
	..STKQ==..STKF N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I Fa

@
   IFDEFG A,<.IF A,SYMBOG L,<PRINTX STKVAR G@A ALREADY DEFINEG`D>>
	DEFINE A<-H^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  Ja

V
	.TRV2 (A)
	.TRV2 (Sd@ K!

`
	.TRV3 (KAA,\..NV)	
	IFB K`<B>,<..NV=..NV+1L>
	IFNB <B>,<..NV=..NV+B>,<..Sd` LA

n
   IFDEFLa A,<.IF A,SYMBOML,<PRINTX TRVAR M A ALREADY DEFINEDM@>>
	DEFINE A<^OM`B(.FP)>
	$A==<Z A>>
	$A==<_%~ 	Af
		$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