Google
 
Trailing-Edge - PDP-10 Archives - bb-l014t-bm_tops20_v7_0_atpch20 - autopatch/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,UU@P C4@ Y(y
	..NAC==y0		
	IRP A,<
	  .ACV1 (A)>		
	.ACV3 (\..NAC)C' 8Y#E..AS(A,B,ADD,SUB)(A,BC, Q!ULSH A,-^D9LSH A,-^DC2f} 2
	.EAWTO(!MTY,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)
	. `EAWTO(NHD,0)		

TO(NHD,0)		
C:' ]%i
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ D,'
	  IFE D9B,<..TA==0>
	  DXIFN B,<EXP ..TADx
		    PURGE ..TA>
	PURGE ..TE2&i1 Qqp
	IFIDN <R!E><C>,<EXTERNAL R@BMAN,BDEV>
	SIR`XBIT	/A/
	XWD	BMAN,BDEV
D	AoAkEKK|bE@tP'E@vyQ ~E@v:=Q |F:<P F;z:Q @G@ 1Y#
	    ..CX(,A,B)   ..CGD 5#)
	    ..CX(A,A,B)  ..CGDP 3#
	    ..CX(E,A,B)  ..CGDp 3Y#
	    ..CX(G,A,B)  ..CGDy  4#!
	    ..CX(GE,A,B) ..CGE@ 2#
	    ..CX(L,A,B)  ..CGEI  2Y#
	    ..CX(LE,A,B) ..CGE` 4Y#%
	    ..CX(N,A,B)  ..CGH 9|

	  LST!OF.

	X CRE	
	aX GEN	
	X PRT	
	X CLS	
	XAAUT	
	X USW	
	X SPL	!
	X SIZ   
	X M@OD	
	X CHN	

	  LSTON.


	G3.= U!*IFN C.GALA,IFN C.GALAG4,m:Q G4-ZQ G4.

zQ G:YlP 

G>vC@ [IdLALL
PAGE[i; (A Continued o\n next page)
SAL\(L; (A Continued \Hfrom previous page) previous pagGHt;rP GHtkP GHv	P GHv)9P GHv:=P IuQ @IukyP Iv>9Q  I!k7P I!k<P ImP I$P'pIY{P .I  .y*}
	IFNB </B>,<..STR0 (.DECR/80,,<B>,A)>
	IF/XB  <B>,<SOS A>  <B>,<SOS A>I6= g&M
	A==<-1g9B<C>+1B<C-D>> gX
	IF1,<IFDEF %Agx,<PRINTX ?A ALREhADY DEFINED>>
	Dh8EFINE %A (OP,AC,hXY,MSK)<	
	IFDIF hx<Y><>,<
	OP (<ACi>,B+'Y,MSK)>
	Ii8FIDN <Y><>,<
	OPiX (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 ;#Y..OP(A,B,DIV)..OP(A,BIOH1 IAF
	IFB <Di>,<
	XWD	[ASCIZ\C\],[XWD B,A]>(
	IFNB <D>,<
	HXWD	[EXP CM%FW!Dh
		ASCIZ\C\],[XWD B,A]>
,[XKH(Q P 3KJ

,bP KJ)bP KJIBP KJLbP !KJ=P ,KJ{P 	KJIBP !KJ=bP )KJIP 'KJZ"P 1KJX"P KJ9P &KJ$\BP +KJ$kP KJ$nBP KJ$|bP KJ%bP KJ%h"P KJ%i"P KJ%|BP KJ&I"P +KJ&K"P KJ&mP #KJ-P 

KJ-iBP 1KJ-l"P *KJ-yBP KJ-{P 
KJ.;P (KJ4"P KJ4"P 0KJ4+"P %KJ49BP KJ4="P )KJ4I"P KJ4LbP KJ5bP %KJ5iP KJ5iBP KJ6;"P KJL;BP KJLMP KJLh"P 0KJLkBP KJLlP KJLlbP KJM+BP KJMHbP -KJMLBP KJMmP KJMmbP KJN

P ,KJN

bPIKJNI"P\P KJfkP (KJlIP KJlLbP KJt1P KJt9"P KJt:"P $KJtlP 2KJtmP .KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv	BP KJv
"P 3KJv

bP .KJvbP KJv)"P KJv9P KJv;P 2KJv;BP KJv<P 	KJv=bP KJv[P KJv["P KK-P KK

YBP A9l
	IF1,<IFaDEF ERA$,PRINTX ?Duplicate error  code A>
	ERA$=@=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y b!9`
	ERR	EOFbA,<End of file>
	b`ERR	IFP,<Illegal cfile position>
	c ERR	FDE,<File datc@a error>
	ERR	FNc`D,<File is not ond disk>
	ERR	FSM,d <File still mapped@d>			;[301]
	ERRd`	NSD,<No such deveice>
	ERR	FCF,<Fe ile checkpoint fae@iled>
	ERR	SLE,<e`A system limit wafs exceeded>
	ERRf 	IFS,<Illegal filf@e specification>
	ERR	FNF,<File ngot found>
	ERR	Pg RT,<Protection vig@olation>
	ERR	DNg`A,<Device not avahilable>
	ERR	NCEh ,<No "current" enh@try in list>
	ERh`R	NMA,<No IPCF meissage is availabli e>
	ERR	FDS,<Fili@es are on differei`nt structures>
	jERR	FAE,<File alrj eady exists>
	ERj@R	USE,<Unexpectedj` system error>
	kERR	NSP,<No such k pid>
	ERR	BOL,<Bk@eginning of list k`reached>
	ERR	EOlL,<End of list rel ached>
	ERR	RQF,l@<Receivers quota l`full>
	ERR	SQF,<mSenders quota fulm l>
	ERR	NRE,<No m@remembered entry>m`
	ERR	TBF,<Tablen is full>
	ERR	En IT,<Table entry an@lready exists>
	n`ERR	ITE,<Invalid otable entry>
	ERo R	QEF,<Quota exceo@eded or disk fullo`>
	ERR	ARG,<Invaplid argument specp ified>
	ERR	IFN,p@<Invalid functionp` specified>
	ERRq	IJN,<Invalid jobq  number specifiedq@>
	ERR	RAD,<Invaq`lid radix specifired>
	ERR	NUM,<Inr valid numeric argr@ument>
	ERR	IDT,r`<Invalid date fiesld specified>
	Es RR	ITF,<Invalid ts@ime field specifis`ed>
	ERR	DOR,<Datte/time out of rat nge>
	ERR	DTM,<Vt@alue missing in dt`ate/time>
	ERR	MuDD,<Missing day iu n date/time>
	ERu@R	DFZ,<Field zerou` in date/time>
	vERR	MDS,<Mnemonicv  date/time switchv@ not implemented>v`
	ERR	DFL,<Fieldw too large in datw e/time>
	ERR	ILRw@,<Illegal year fow`rmat in date/timex>
	ERR	NND,<Negax tive number in dax@te/time>
	ERR	NPx`F,<Not known whetyher past or futury e in date/time>
y@	ERR	RDP,<Relativy`e date parse requzired>
	ERR	NSW,<z Switch does not bz@egin with slash>
	ERR	NOM,<Unreco{gnized switch or { keyword>
	ERR	NU{@L,<Null switch or{` keyword given>
|	ERR	INW,<Invalid|  guide word>
	ER|@R	NC,<Not confirm|`ed>
	ERR	ICN,<In}valid character i} n number>
	ERR	N}@QS,<Invalid quote}`d string - does n~ot begin with quo~ te>
	ERR	AMB,<Am~@biguous switch or~` keyword>
	ERR	NMT,<Does not matc h token>
	ERR	CM@A,<Comma not give`n>
	ERR	NNC,<Node name may not ex ceed 6 characters@>
	ERR	INT,<Node` terminator "::" must be specified >
	ERR	NSN,<Unkn@own node name>
	`ERR	IPS,<Invalid path specificatio n>
	ERR	IUS,<Inv@alid user specifi`cation>
	ERR	DGS,<Device name may  not exceed 6 cha@racters>
	ERR	DN`E,<Unknown device>
	ERR	DIO,<Devi ce can not do inp@ut or output>
	E`RR	BDF,<Invalid date/time format>
	ERR	ABS,<Field @too long for inte`rnal buffer>
	ERR	TMT,<Command to o long for intern@al buffer>
	ERR	`BDS,<Invalid default string>
	ERR 	BTF,<Invalid tab@le format>
	ERR	`TME,<Date/time must be in the futu re>
	ERR	TMN,<No@ timer entry has `expired>
	ERR	TM	A,<Timer entry al	 ready exists>
	E	@RR	DVT,<Device te	`rminator ":" must
 be specified>
	
 ERR	NCI,<Argument
@ block may not be
` in the ACs>
	ERR	TLU,<Terminal l ocation is unknow@n>
	ERR	FIO,<Fil`e is offline>
	E

RR	FBM,<File bein

 g modified>
	ERR

@	WLK,<Write-locke

`d device>
	ERR	Cnnotcsupers
	ERR	CDD,<Cannotpty directory>
	E RR	SNF,<Sub-file @directory not fou`nd>
	ERR	ESL,<Search list is empt y>
	ERR	LVL,<SFD@ level nested dee`per than the maximum allowed>
	ER R	CCW,<Cannot cre@ate/write on any `structure in search list>
	ERR	FC U,<Cannot update @file>
	ERR	ENQ,<`File has outstanding Enqueue locke s set>
	ERR	SWS,@<Software write-l`ock on structure>
	ERR	DER,<Hardw are device error>@
	ERR	DTE,<Hard `data error>
	ERR	BKT,<Block too l arge>
	ERR	IPP,<@Non-existant UFD>`
	ERR	TRN,<RIB or transmission er ror>
	ERR	ILC,<I@llegal character `in date/time>
	ERR	NFT,<Date/time  must be in the f@uture>
	ERR	NPS,`<Date/time must be in the past>
	 ERR	UDM,<Unrecogn@ized month in dat`e/time>
	ERR	UDN,<Unrecognized na me in date/time>
	ERR	IFA,<Illega`l file attribute>
	ERR	FAI,<File  attribute inconsi@stancy>
	ERR	CEI`,<Can't enable/disable interrupt s ystem>
	ERR	ENF,@<Linked list entr`y not found>
	ERR	NSL,<No such li nked list>
	ERR	@NFP,<No free page`s>
	ERR	NPI,<No free pages for IPCF reception>
KKBP 
KKI"P KKiBP 'KKBP KK|bP *KK$)BP 

KK%M"P $KK%X"P #KK%Y"P "KK%[BP "KK%]P  KK&+BP -KK,K"P /KK,KBP /KK-*"P KK.9"P KK=JbP &KZ` Q1-
	IFIDN <QQBC><>,<EXP <A>Qp>
	IFDIF <BC><R>,<
	 IFE <A+1>R0,<<POINT 7,C>>
RP	 IFN <A+1>,<
	Rp   IFIDN <C><>,<SEXP <A,B>>
	  S0 IFDIF <C><>,<EXSPP <A,B,C>>
	>>A,B,C>>
	>Kc  Y	JIRP A,<
Y)	IF2,<IFNDEF A,<EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP  Mv
P Mv=8P MuI7Q xMvN8P'Mn:=p MF:=P M$pQ"P M$tP'M$t:P M$t:P M$t;P M$t<RP M$ty7P M$u6Q @M$uI7Q xM$u[rP M$v

ZP M$v:=P M$v<P M$v\{P M2  y!w<<<A>B<POS(<B>)>>&<B>>M>h1p M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MHuiWQ @MHv
Q  MJh1p MJhrp MJip MJiVp MJk=p MJlsp MJl}p MJm9p MR4zP MR6L`P MRV>9Q MS.[yP M^luQ O2|  YiXIRP A,<
Z		IF2,<IFDEF A,<.Z(IFN A,EXTERN,<INZHTERN A>>
	     ZhIFNDEF A,<EXTERN[ A>
	Q SUPPRESPA>>YSUPPRO3FX7P iQf@ +QfI@ <StLQ St\Yp Stkp SuZp Suh1Q SulQ Su}:p Sv
1p Sv

Sp Sv>9Q Sv>@p SNn :Y#U..OP(A,B,IDIV).OP(A,BS7-N 9Y#M..OP(A,B,IMUL).OP(A,BS:  +y*e
	IFNB <,B>,<..STR0 (.INCR,80,,<B>,A)>
	IF,XB  <B>,<AOS A>  <B>,<AOS A>S;k !9"<<<A>B<POS(<B>)>>&<B>>S;!kP S;!k<P S? \Y%e
	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 SBd+@&SBn	@&SBn
@&SBn
@&	SBn@&	SBn@&
SBn

@&
SB2P SB)iP&	SB)iP&SB)kVP&SB)kYP'SB)lXP&
SB)lsP&
SB)lxP&	SB)lyP&SPuxzQ @SR/
	LSTOF.	T1XCREF
	..TEXT<ATP>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ a:&

	  LST !OF.

	X JNO,.JI @JNO,<-1,,GJBJNO>	 `
	X TNO,.JITNO,<!-1,,GJBTTY>	
	X ! USR,.JIUNO,.GTPPN!@		
	X CDN,.JIDNO!`,<-1,,GJBPTH>	
	"X PRG,.JIPNM,.GTP" RG		
	X`CJN,.JIC"@PJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.G#TOBI		
	X JLT,.J# ISTM,.GTJLT		
	X#@ LOC,<-1,,GJBLOC>#`,<-1,,GJBLOC> 
	$X RTM,.JIRT,<-1,,$ GJBRTM>	
	X TLC,$@<-1,,GJBTLC>,<-1,$`,GJBTLC>	
	  LSTON.


	  LSTU +,U +(U  +$Up +U~` +"U$t(:P U$t9P U$t:WP U$u+P U$u+WP U$uKqP U$uX<P U$uZ7P U$v

SP U$v-PNU$vKP)U$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
	IFB <CI>,<
	XWD	[ASCIZ\hB\],A>
	IFNB <C>,<
	XWD	[EXP (CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 z!M

	  LSTz1OF. XCREF

	CDOzP	OTSINI			
	CDO	zp    			
	CDO	.ZP{AGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD{PO	.SAVE1
	CDO	.S{pAVE2
	CDO	.SAVE3|
	CDO	.SAVE4
	C|0DO	.SAVET
	CDO	.|PSV13
	CDO	.SV14
	CDO	.SV15
	CDO}	.SV16
	CDO	.RET}0T
	CDO	.RETF
	C}PDO	.RETE
	CDO	.A}pOS		
	CDO	.SOS		~
	CDO	.ZERO		
	~0CDO	.POPJ		
	CDO~P	.STOP		
	CDO	.S~pAVE8		
	CDO	.STKST		
	CDO	.TRSET0		
	CDO	.POPJ1		P
	CDO	.UD2SC		
p	CDO	.SC2UD		
	CDO	.CPUTY		
	CDO0
	CDO
	CDO

	PCDO			
	CDO	C%RPpRM
	CDO	C%INTR
	CDO	C%SEND
	CDO0	C%RECV
	CDO	C%BPRCV
	CDO	C%REL
p	CDO	C%CPID
	CDO	C%KPID
	CDO	C%S0PID
	CDO	C%MAXP
	CDO	C%PIDJ
	CDpO
	CDO
	CDO
	CDO
	CDO

	CDO	0      			
	CDO	FP%IOPN
	CDO	F%AOPpN
	CDO	F%OOPN
	CDO	F%IBYT
	CDO	0F%OBYT
	CDO	F%IBPUF
	CDO	F%OBUF
p	CDO	F%REL
	CDO	F%DREL
	CDO	F%RR0EL
	CDO	F%REW
	PCDO	F%POS
	CDO	Fp%CHKP
	CDO	F%INFO
	CDO	F%FD
	CD0O	F%REN
	CDO	F%DPEL
	CDO	F%FCHN
p	CDO
	CDO
	CDO
	CDO
	CDO
	CDO0
	CDO
	CDO
	CDPO

	CDO	      	p		
	CDO	M%ACQP
	CDO	M%RELP
	CDO0	M%IPSN
	CDO	M%NPXPG
	CDO	M%IPRC
	CDO	M%IPRM
	CD	O	M%AQNP
	CDO	M%	0RLNP
	CDO	M%CLNC	P
	CDO	M%FPGS
	C	pDO	M%GMEM
	CDO	M
%RMEM
	CDO
	CDO
0
	CDO
	CDO
	CD
PO
	CDO
	CDO	M%G
pPAG
	CDO	M%RPAG
	CDO
	CDO
	CDO0
	CDO
	CDO
	CDPO
	CDO
	CDO

p	CDO	      			
	

CDO	T%TEXT
	CDO	

0T%TTY
	CDO
	CDO

P
	CDO
	CDO
	CD

pO
	CDO
	CDO
	C
	CDO
	CDO

	CDO	      			
	CDO	L%CLST
	CDOLST
	CDO	L%CENT
	CDO	L%CBFR
	CDO	L%DENT
	CDPO	L%NEXT
	CDO	L%pFIRS
	CDO	L%LAST
	CDO	L%PREV
	C0DO	L%PREM
	CDO	LP%CURR
	CDO	L%RENpT
	CDO	L%SIZE
	CDO	L%APOS
	CDO
	CDO
	CDO
	CDOP
	CDO
	CDO
	CDpO
	CDO

	CDO			
	CDO	I%NOW
	C0DO	I%EXIT
	CDO	IP%ION
	CDO	I%IOFFp
	CDO	I%SLP
	CDO	I%INT1
	CDO	I%0INT2
	CDO	I%INT3P
	CDO	I%TIMR
	CpDO
	CDO
	CDO	I%SOPR
	CDO	I%WTO
	CDO
	CDO	I%HOSPT
	CDO	I%JINF
	pCDO
	CDO

	CDO			
	CDO
	CDO	S0%DATI
	CDO	S%SIXPB
	CDO	S%CMND
	pCDO	S%TBLK
	CDO	S%SCMP
	CDO	S%ER0R
	CDO	S%INTR
	PCDO	S%EXIT
	CDO	pS%TBAD
	CDO	S%TBDL
	CDO	S%NUMI
0

	CDO	K%RCOC		P	
	CDO	K%WCOC
	pCDO	K%SUET
	CDO	K%STYP
	CDO	K%TX0TI
	CDO	K%SOUT
P	CDO	K%BOUT
	CDOp	K%BIN
	CDO	K%BACK
	CDO	K%TPOS
0	CDO	K%BUFF
	CDOP	K%FLSH
	CDO	K%OpPEN
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDOP
	CDO
	  LSTON.
  
	  LSTON.Y>

@ %9*1
	IFNB <%YC>,<..STR0 (..LDB%x,A,C,B)>
	IFB&  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG ]	r
	IFNDEF ])LSTIN.,LSTIN.==0	]H	
IFE LSTIN.,<
]h	IFIDN <XCREF><A^>,<.XCREF>	
		  ^( XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G ^i|
	IFG LST_	IN.,LSTIN.==LSTIN_(.-1	
	IFLE LSTIN_H.,<.CREF		
		      LIST>
		   [3@  y"<<<1_<A>>-1>B<B>>_<A>>[8@ y!1B<<A>-1>-1B<B><<A>-1>[@ uQ9
	IFB <Buq>,<MAXSIZ==0
		IvRP A,<IFG <A-MAv0XSIZ>,<MAXSIZ==AvP>>>
	IFNB <B>,<vpB==0
		IRP A,<wIFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
QP'[v:Qv[vxQp[viSp [k9p [lp [lp [lXp [lrp [ltp [lxp [l}p [n:=P [tuQ @[th:Q [u[yQ [ui1Q [ukvQ  [v=3P'[v|WQ [v}Q [&p wQM
	IFB <Bwq>,<MINSIZ==377777x,,777777
		IRP x0A,<IFG <MINSIZ-AxP>,<MINSIZ==A>>>
	IFNB <B>,<B==y377777,,777777
	y0	IRP A,<IFG <B-yPA>,<B==A>>>
A>,<B==A>>>
[>!`y9"<A-<A/B>*B><A-<A/B[>w@&
   ..MX1"==B			
IFDEF .P"8SECT,<
   .IFN ."X.MX1,ABSOLUTE,<
"x	MOVE A,[B]>
 #  .IF ..MX1,ABSOL#8UTE,<
	..MX2==0	#X	
	IFE <..MX1>B5#x3,<
	$..MX2==1
	  MOVEI A,..MX$81>	
	IFE ..MX2,<$X		
	IFE <..MX1>B$x17,<
	  ..MX2==1%
	  MOVSI A,(..%8MX1)>>	
	IFE ..M%XX2,<		
	IFE <<..%xMX1>B53-^O777777>&,<
	  ..MX2==1
&8	  HRROI A,<..MX&X1>>>	
	IFE ..MX2&x,<		
	IFE <<..MX'1>B17-^O777777B17'8>,<
	'X..MX2==1
	  HRLOI A,(..M'xX1-^O777777)>> 
(	IFE ..MX2,<		
	(8  MOVE A,[..MX1](X>	
	>>

IFNDEF(x .PSECT,<
	..MX2)==0		
	IFE <..MX)81>B53,<
	  ..MX2)X==1
	  MOVEI A,)x..MX1>	
	IFE ..M*X2,<		
	IFE <..M*8X1>B17,<
	  ..MX*X2==1
	  MOVSI A*x,(..MX1)>>	
	IFE+ ..MX2,<		
	IFE +8<<..MX1>B53-^O777+X777>,<
	  ..MX2=+x=1
	  HRROI A,<,..MX1>>>	
	IFE .,8.MX2,<		
	IFE <<,X..MX1>B17-^O77777,x7B17>,<
	  ..MX2-==1
	  HRLOI A,-8(..MX1-^O777777)>-X> 
	IFE ..MX2,<	-x	
	  MOVE A,[...MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= j&c
	A==C	j9	
	IF1,<IFDEF %jXA,<PRINTX ?A ALRjxEADY DEFINED>>
	kDEFINE %A (OP,ACk8,Y,MSK)<	
	IFDIFkX <Y><>,<
	OP (<AkxC>,B+'Y,MSK)>
	lIFIDN <Y><>,<
	Ol8P (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg :#Q..OP(A,B,MUL)..OP(A,B[`v
2P [b6<P F] WI>IF2,<IFDEFWi A,<A==A>> IFNDEF A,<A==B>]F@ <|TEMFDB##_
QkRp _
Ql7p _
Qlxp _
Ql}p _
Qmp _
Qm7p _
T= +I;

	X	.OT!RDR,Reader
	X	.O TNCU,Network-Cont+iroller
	X	.OTLPT+),Printer
	X	.OTB-)AT,Batch-Stream
-H	X	.OTCDP,Card-Pu-hnch
	X	.OTPTP,Pa.pertape
	X	.OTPL.(T,Plotter
	X	.OT.HJOB,Job
	X	.OTTR.hM,Terminal
	X	.O/TOPR,Operator
	X/(	.OTIBM,<IBM Remo/Hte>
	X	.OTMNT,<D/hevice>
	X	.OTFTS0,<File Transfer>
	X	.OTBIN,<Card 0HReader Interprete0hr>
	X	.OTRET,<Fi1le Retrieval>
	X1(	.OTNOT,<Retrieva1Hl Notification>
1h	X	.OTDBM,<DBMS S2ystem>
	X	.OTFAL2(,<File Access Lis2Htener>
	X	.OTSNA2h,<SNA Workstation>
 Workstation_Sh6 ;A;\ [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 a

tTQ  a

tQ a

t*9Q a

t>(Q  a

t>(Q a

tk{Q a

tm3Q a

uJ8Q @a

uiQ a

u}SQ @a

vZ7Q a

v\yQ al}P aI3 <!<

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

  = IFNB <D>,<..XX==y..XX!CM%HPP> 
  > IFNB <E>,<..XX=>8..XX!CM%DPP> 

>X	EXP ..XX		

  >x IFNB <C>,<EXP ?C>
   IFB <C>,<?8EXP 0>

   IFNB?X <D>,<POINT 7,[A?xSCIZ \D\]>
   I@FB <D>,<0>

@@8 IFNB <E>,<POINT@X 7,[ASCIZ \E\]>
AIFB <E>,<0>



   IFB <IA8>,<0>
   IFNB <AXI>,<EXP I>

  Ax IFB <J>,<0>
  B IFNB <J>,<EXP B8J>

   IFB <H>BX,<0>
   IFNB <HBx>,<EXP H>

   CIFB <G>,<0>
   C8IFNB <G>,<EXP G>

G>,<EXP Ga !QLSH A,^D9LSH A,^D9a+= 5a;&  x/H
	 IFB  <x!B>,<..STR0(..PNTx@,,<FWMASK>,A)>
x`	 IFNB <B>,<..STyR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm !s<POINT WID9(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 	!`<^L<<A>&<-<A>>>><<A>&<aJNh6P aJ}Ks `

	SALL	`1			
	LSTOF. XCRE`PF			

	LOC 0			`p
	ASCIZ \
COPYRaIGHT (c) DIGITAL a0EQUIPMENT CORPORAaPTION 1975,1988.
apALL RIGHTS RESERVbED.
\				
	RELOb0C			

	%%.GLX==bP%%.GLX			


	IbpFNB <A>,<%%.MOD=c=SIXBIT/A/> 
	Ic0FNB <B>,<%%.OTS=cP=SIXBIT/B/> 

cp	GLOB	I%INIT			
d
	TOPS10	<			
	d0	SEARCH	UUOSYM		
		%%UUOS==%%UUOSdp		
	>				

	TOePS20	<			
		SEARe0CH	MONSYM		
;		%eP%MONS==%%MONS		
ep	>				

	IFB <fB>,<			
		.TEXT	f0|,REL:GLXLIB/SEARfPCH/REQUIRE:I%INITfp|
		DEFINE	$DATAg (NAM,SIZ<1>),< 
			NAM:	BLOCK	SIgPZ
		>			
		DEFIgpNE	CDO (X),<GLOB hX> 
		LIBVEC			
	>				

	IFNB hP<B>,<IFDIF <B><hpINI>,< 
		IFN GLiXPURE,<.PSECT .HIi0GH.> 
		IFE GLXPiPURE,<		
			TWOSEipG	400000	
			RELjOC	0	
			RELOC	4j000000	
		>			
jP
		DEFINE $DATA(NjpAM,SIZ<1>),< 
		k	IFN GLXPURE,<.PSk0ECT DATA> 
			IFkPE GLXPURE,<RELOC>kp 
			IFNDEF B%Dl,<B%D::! B%DL==l0:0>
			NAM:	BLOClPK	SIZ
			B%DL==lp:B%DL+SIZ 
			ImFN GLXPURE,<.ENDPm0S DATA> 
			IFE mPGLXPURE,<RELOC> 
		>			

		IFDInF <B><OTS>,<	
	n0		DEFINE	CDO (X),nP<GLOB X> 
			LIBnpVEC		
		>			

o	>>				

	IFNB o0<B>,<IFIDN <B><oPINI>,< 
		DEFINEop	$DATA (NAM,SIZ<1p>),< 
			NAM:	BLp0OCK	SIZ
		>			
pP	>>				

	LSTONpp.				

	GLOB	<.qPOPJ, .RETT, .RETq0F>	
	OPDEF	$RET	qP[POPJ	P,]	
	OPDEqpF	$RETT	[PJRST	.RrETT]	
	OPDEF	$REr0TF	[PJRST	.RETF]	rP
	OPDEF	$RETIT	[rpJUMPT	.POPJ]	
	OsPDEF	$RETIF	[JUMPs0F	.POPJ]	
	.NODDsPT	$RET,$RETT,$RETspF,$RETIT,$RETIF
$RETIT,$RETIF
aPtP aPtkP aPuTP aPu92Q @aPv\rP e"luP'ePv8vP ePv9VP ePv;P fDP fHP gkp gk9p glp glp gltp gl}p g"@ E9,;
	IFN <<.EY.TA>&B>,<PRINTXEx ?Initial field nFot zero in $SET>
	FX..TVAL==<C>
	Fx..TMSK==<B>
	  ..TA==..TA!G<FLD(..TVAL,..TMSG8K)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@RI=C.SWIT+PDBCPY##C.SWIT+PDBg$tkQB@g$uP'g$uh6Q  g&t{ Ui.IFE C.GALA,IFE C.GALAg.N	@ 6@g.N
.SPID	(S5!P.QSR,.IPCPQ,.SPQ5@SR,QUASAR)	
.SPI5`D	(SP.OPR,.IPCPO,6.SPOPR,ORION)	
.6 SPID	(SP.INF,.IPC6@PI,.SPINF,INFO)	
.SPID	(SP.MDA,.I7PCPM,.SPMDA,MDA)	7 
.SPID	(SP.NEB,,7@.SPNEB,NEBULA)		
TOPS10<
.SPID	(8SP.IPC,.IPCPS,,IP8 CC)		
.SPID	(SP.8@ACT,.IPCPA,,ACTDA8`E)		
.SPID	(SP.T9LP,.IPCPT,,TAPLAB9 )		
.SPID	(SP.TO9@L,.IPCPC,,TAPAVR)9`		
.SPID	(SP.DOL:,.IPCPD,,DSKAVR)	: 	
.SPID	(SP.FIL,:@.IPCPF,,FILDAE)		
>
,FILDAE)		gR^h9 9(#
	..STKR=Y=10		
	RADIX 8
x	..STKN==0
	IRP A,<
	  .STKV1 (8A)>
	$CALL	.STKXST
	 ..STKN,,..SxTKN
	RADIX ..STKR
	PURGE ..STKN,8..STKR,..STKQ
   TKR,..STKQ
  gR~)  (Y*K
	IFNB <(yC>,<..STR0 (..DPB),A,C,B)>
	IFB)8  <C>,<MOVEM A,B>>,<MOVEM A,gV 9#I..AS(A,B,SUB,ADD)(A,Bgg

V t1)
	IFNB <tQB>,<TOPS10<A==Btp>>
	IFNB <C>,<TuOPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( QAeIFN FTUUOS,K,}PKKLi?4H AiIFN FTJSYS,KI"PKKiBiD _.

  IFNB_1	<A>,<.TQCHA==^_PD<B>B17+ZZ>
  I_pFNB 	<D>,<DEFINE` ..TQMA<D>>
  `0IFNB	<C>,<.TQC=`P=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, U-u
	LSTOF.
	TQ(T,2,ASCIZ)		UP	
	TQ(O,2,OCTAL)Up			
	TQ(D,2,DECIVMAL)			
	TQ(F,2,V0FILE)			
	TQ(7,2VP,CSEVEN)			
	TQ(Vp6,2,CSIXBIT)			
W	TQ(W,2,SIXBIT)		W0	
	TQ(5,2,SVNBITWP)			
	TQ(P,2,USEWpR)			
	TQ(U,2,DIXRECTORY)			
	TQ(X0H,2,DAYTIME)			
XP	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		Y	
	TQ(I,1,INDIREY0CT)		
	TQ(M,0,CRYP,..TXC0(\".CHCRT)Yp)	
	TQ(J,0,LF,..ZTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCZP0(\".CHFFD))	
	TZpQ(K,0,VT,..TXC0(\[".CHVTB))	
	TQ(A[0,0,NOCRLF,..TXA(.[PTQCHA))	
	TQ(0,0[p,NULL,..TXA(.TQCH\0))	
	TQ(3,0,STR\0ING,..TXER(IQU))	\P
	TQ(V,2,VERSION\p)			
	TQ(2,0,CAR]ET,..TXER(IQU))	
	TQ(Q,2,POINTER)]P			
	TQ(B,2,ROB)]p			
	TQ(1,2,OBJE^CT)			
	TQ(N,2,N^0ODE)			
	TQ(R,2,^PJIB)			
	LSTON.
)			
	LSTON. A:T
	LSTOF.
	X(33,TTY33,33,)%a				
	X(35,TTY35&!,35,)				
TOPS20&<
	X(37,TTY37,37&I,)				
	X(EXECUP&hORT,EXEC,EXE,)			'
>
TOPS10<
	X('(LA120,LA120,L12,)'H			
>
	X(LA36,L'hA36,L36,)			
	X((VT05,VT05,V05,<37((,177,177,177>)	
(H	X(VT100,VT100,10(h0,<.CHESC,"[","K")>)	
	X(VT50,VT50)(,V50,<.CHESC,"J">)H)		
	X(VT52,VT52)h,V52,<.CHESC,"J">*)		
TOPS10<	X(VT*(61,VT61,V61,<.CHE*HSC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ y(U
	..TRR==	10		
	RADIX 8
		8..NV==1			
	IRP 	XA,<
	  .TRV1 (	xA)>		
	$CALL	.TR
SET		
	 ..NV-1,,
8..NV-1
	RADIX ..
XTRR		
	PURGE ..TRR,..NVURGE ..Tib R%
		..TX(C,A,<B>)..TX(Cib SY%
		..TX(CA,A,<B>).TX(CibP RY%
		..TX(CE,A,<B>).TX(Cib` S%
		..TX(CN,A,<B>).TX(Cibp L$a
		..TX(N,A,<B>)..TX(Nibt MY$m
		..TX(NA,A,<B>).TX(NibtP LY$e
		..TX(NE,A,<B>).TX(Nibu` M$i
		..TX(NN,A,<B>).TX(Nibx N$q
		..TX(O,A,<B>)..TX(Oib| OY$}
		..TX(OA,A,<B>).TX(Oib|P NY$u
		..TX(OE,A,<B>).TX(Oib}` O$y
		..TX(ON,A,<B>).TX(Oic!h2Q ic!i0Q ic!iQP ic!iWQ `ic!j6Q ic!jZQ ic!k Q `ic!kPQ @ic!lQ  ic!lQ |ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP'ic!lyP ic!lyQ ic!mrQ pic!nQ icP P%
		..TX(Z,A,<B>)..TX(ZicT QY%
		..TX(ZA,A,<B>).TX(ZicTP PY%
		..TX(ZE,A,<B>).TX(ZicU` Q%	
		..TX(ZN,A,<B>).TX(Zm:7 S! 
	IFG  <SAAMAN-ADEV>,<AEDS`T==:AMAN>
	IFLET <AMAN-ADEV>,<AEDT==:ADEV>
mKc@ TA&BYTE (3)ATaWHO (9)AVER (6)AMIN (18)AEDTotkP ouxZP o&  I!\<^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<ujP o<ukrP o<uxUP o<uxrP o<vNP o<vN8P p %:(
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +

q+= +
q6~i4 C q? ]Y%m
	TXC A,<B>
	TXC A,q@ X)DIFB <C>,<XIA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up 1y+
	IFNB <2B>,<..STR1 (..TQZ28,,<B>,A,..STR4)2X>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z )A*
	.$RESETI
	$TYPE (.CMACT)h
	$HELP (<>)
	$NEXT (A)
IFIDN (<B> <>,< IRP C,H<C>
			.$BUILD>h
IFDIF <B> <>,<
	$HELP (B)
	I(RP C,<C>
	.$BUILD><C>
	.$BU	0 N4t
.WTOX.(.OMN!ACK,<A>,<B>,<CN@>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 N!<tDEFINE .$RNATN <A>
			.%RTN==1A>
			.%RTN	fI9 I!<LDEFINE .$LIAST <A+1>
			.%LST==11>
			.%L	
=Z 69+;
	  IFG 6YA-INT.LV,<PRINTX 6x?Level A interru7pts not supported78>
	  .BGINT.(\A)   .BGINT.(\A	X5 KA<^DEFINE .$BKaREA <A>
			.%BREA==1>
			.%BR	- 9+Y
	  IFDEF99 ..BSIZ,<PRINTX ?9XMissing $EOB afte9xr a $BUILD>
	  .:.BSIZ==0			
	  .:8.BLOC==.			
	  R:XEPEAT A,<			
		:xBLD0.(\..BSIZ,0)	;
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 |)?h
	.$RESET|I
	$TYPE (.CMCMA)|h
	$NEXT (A)
	I}RP B,<B>
	.$BUILD,<B>
	.$BU	I@ xi?J
	.$RESETy	
	$TYPE (.CMCFM)y(
	IRP A,<A>
	.$BUILD,<A>
		$^ )@2
	.$RESETI
	$TYPE (.CMTXT)h
	$HELP (<>)
	$NEXT (A)
IFIDN (<B> <>,< IRP C,H<C>
			.$BUILD>h
IFDIF <B> <>,<
	$HELP (B)
	I(RP C,<C>
	.$BUILD><C>
	.$BU	I  i@>
	.$RESET	
	$TYPE (.CMTAD)(
	$PDATA (CM%IDAH)
	$NEXT (A)
	hIRP B,<B>
	.$BUILD,<B>
	.$B	,,U 89+E
	  $RET	8Y			;WILL INVOKE RIGHT ROUTINE
		,h: GA<@DEFINE .$DGaEFM <POINT 7,[ASCHIZ\A\]>
			.%DEFM==1>
			.%DE	.` )@
	.$RESETI
	$TYPE (.CMDEV)h
;**;[323]At DEFINE $DEV +3L chan(ge the $DEV macroH to by pass the :h check
	$FLAGS (CM%PO!CM%NSF)	;[3(23]By pass : checHk
	$NEXT (A)
	hIRP B,<B>
	.$BUILD,<B>
	.$B	Lz: g)>L
	.$RESETgI
	$TYPE (.CMNUX)gh
	$PDATA (B)
	h$HELP (<>)
	$NEXh(T (A)
IFIDN <ChH> <>,< IRP D,<Dhh>
			.$BUILD>
IiFDIF <C> <>,<
	i($HELP (C)
	IRP iHD,<D>
	.$BUILD><D>
	.$BUILD	N  yi?T
	.$RESETz	
	$TYPE (.CMDIR)z(
	$NEXT (A)
	IzHRP B,<B>
	.$BUILD,<B>
	.$BU	|  @,
	  IFNDE@9F ..BSIZ,<PRINTX @X?$EOB without pre@xvious $BUILD>
	 A IFN <.-..BLOC>,<A8PRINTX ?Address cAXhange between $BUAxILD and $EOB>
	 B LSTOF.			
	  ..B8T==0
	  REPEAT .BX.BSIZ,<
	    BLDBx0.(\..T,1)		
	  C  ..T==..T+1 >
	C8  PURGE ..BSIZ,..CXT,..BLOC	
	  LSTON.
		
	  LST	+y Ja<XDEFINE .$EKRTN <A>
			.%ERTN==1>
			.%ER	, L!<dDEFINE .$ELARTN <1B0+A+1>
			.%ERTN==1>
		- M<nDEFINE .$EM!RTN <[MOVEI S2,[AM@SCIZ\A\]
				  M`    $RETF]>
			.%ERTN==1>
			.	H6 J,Y
	$CALL	.J1STOP
	LSTOF.
	JJPUMP	[XWD 0,[ITEXTJp (<A>)]
		 EXP K%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ v)?B
	.$RESETvI
	$TYPE (.CMFLD)vh
	$NEXT (A)
	$wHELP (<>)
IFIDN w(<B> <>,< IRP C,wH<C>
			.$BUILD>wh
IFDIF <B> <>,<x
	$HELP (B)
	Ix(RP C,<C>
	.$BUILD><C>
	.$BU	MI  si?.
	.$RESETt	
	$TYPE (.CMFIL)t(
	$HELP (<>)
	$tHNEXT (A)
IFIDN th<B> <>,< IRP C,u<C>
			.$BUILD>u(
IFDIF <B> <>,<uH
	$HELP (B)
	IuhRP C,<C>
	.$BUILD><C>
	.$BU	dy Da<(DEFINE .$FELGS <A>
			.%FLGS==1>
			.%FL	ex: ~i@
	.$RESET	
	$TYPE (.CMFLT)(
	$HELP (<>)
	$HNEXT (A)
IFIDN h<B> <>,< IRP C,<C>
			.$BUILD>(
IFDIF <B> <>,<H
	$HELP (B)
	IhRP C,<C>
	.$BUILD><C>
	.$BU	$ I!,M$X
	  INTERIQN A
	  $DATA(A,<B>)
	ATA(AB&,F1	"
	IFDIF <FAA> <>,<
DEFINE F`.$HLPM <POINT 7,[GASCIZ\A\]>
			.%HLPM==1>
			.	&5 ni?
	.$RESETo	
	$TYPE (.CMIFI)o(
	$HELP (<>)
	$oHNEXT (A)
IFIDN oh<B> <>,< IRP C,p<C>
			.$BUILD>p(
IFDIF <B> <>,<pH
	$HELP (B)
	IphRP C,<C>
	.$BUILD><C>
	.$BU	&u }I?r
	.$RESET}i
	$NEXT (A)
	$~TYPE (.CMINI)
	I~(RP B,<B>
	.$BUILD,<B>
	.$BU	./ c	> 
	.$RESETc)
	$TYPE (.CMKEY)cH
	$PDATA (B)
	ch$NEXT (A)
	IRP dC,<C>
	.$BUILD,<C>
	.$BUILD	./ aI>
	.$RESETai
	$TYPE (.CMKEY)b
	$PDATA (A)
	b($NEXT (0)
	IRP bHB,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDTa5(.WTOX.(.OMUWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p T5".WTOX.(.OMT!LOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV IA
	.$RESETi
	$TYPE (.CMNOD)
	$HELP (<>)
	$(NEXT (A)
IFIDN H<B> <>,< IRP C,h<C>
			.$BUILD>
IFDIF <B> <>,<(
	$HELP (B)
;	H$FLAGS (CM%PO)
	hIRP C,<C>
	.$BUILD><C>
	.$B	:}r j	>Z
	.$RESETj)
	$TYPE (.CMNOI)jH
	$PDATA (<POINTjh 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRk(P C,<C>
	.$BUILD,<C>
	.$BUI	;-XR dI>6
	.$RESETdi
	$TYPE (.CMNUM)e
	$PDATA (B)
	e($HELP (<>)
	$NEXeHT (A)
IFIDN <Ceh> <>,< IRP D,<Df>
			.$BUILD>
If(FDIF <C> <>,<
	fH$HELP (C)
	IRP fhD,<D>
	.$BUILD><D>
	.$BUILD	>5 q)?
	.$RESETqI
	$TYPE (.CMOFI)qh
	$NEXT (A)
	$rHELP (<>)
IFIDN r(<B> <>,< IRP C,rH<C>
			.$BUILD>rh
IFDIF <B> <>,<s
	$HELP (B)
	Is(RP C,<C>
	.$BUILD><C>
	.$BU	B$ EA<.DEFINE .$DEaATA <A>
			.%DATA==1>
			.%DA	B$YP HA<FDEFINE .$DHaEFM <POINT 7,<A>>
			.%DEFM==1	CYT O<zDEFINE .$DO!EFR <A>
			.%DEFR==1>
			.%DE	F

:` O5
	SKIPA		O!	;[323]Skip over O@the skip return
O`	JRST	g		;[323]MPake the macro skiP pable

	SKIPN	GP@$NEBF		;[323]RemoP`te?
	JRST	f		;[Q323]No
	.QWTO.(.Q OMACK,<A>,<B>,<Q@C>,<D>,<$WTFLG(Q`WT.SJI),E>)
f:R	.WTOX.(.OMWTO,<R A>,<B>,<C>,,<ER@>) ;[323]
g:!
 ;[323]
g:!
	G-} )@j
	.$RESETI
	$TYPE (.CMQST)h
	$HELP (<>)
	$

NEXT (A)
IFIDN 

(<B> <>,< IRP C,

H<C>
			.$BUILD>

h
IFDIF <B> <>,<
	$HELP (B)
	I C,<C>
	.$BUILD><C>
	.$BU	G>K` I4f
	SKIPA		I!	;[323]Skip over I@the skip return
I`	JRST	g		;[323]MJake the macro skiJ pable

	SKIPN	GJ@$NEBF		;[323]MessJ`age originate remKotely?
	JRST	f	K 	;[323]No
	.QWTOK@.(.OMWTO,<A>,<BK`>,<C>,<E>,<$WTMLFL(MF.WTO),D>)
Lf:	.WTOX.(.OMWTOL@,<A>,<B>,<C>,,L`<D>) ;[323] no.
g:!
23]no.H,D
	  $CALLH!	.RETE			
		LSTOH@F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  *
	.NVR==09			
	.ACM==0			

	IRP A,<		
	x	..TSAC(.ACB,A)		
		IFN .ACB,<.A8CM==.ACM!1B<A>>	X
		IFE .ACB,<			x
		IFE .NVR,<			
		    CAIA			
8		    LSTOF.
		 X   JRST b>
		  x..PUSH(A,\<.NVR+1>)>>	

	IFN .A8CM,<	
	    IFE <X.ACM-17B<T4>>,<.AxCM==0
				$CALL .SAVET>
	    IFE8 <.ACM-377B<.A16>X>,<.ACM==0
				$xCALL .SAVE8>
	    IFE <.ACM-17B<P84>>,<.ACM==0
			X	$CALL .SAVE4>
	x    IFE <.ACM-7B<P3>>,<.ACM==0
		8		$CALL .SAVE3>
X	    IFE .NVR,<	
	    IFE <.ACM-3B<P2>>,<.ACM==0
8				$CALL .SAVE2>X
	  IFE <.ACM-x1B<P1>>,<.ACM==0
				$CALL .SAVE18>
	    IFE <.ACMX-1B<.A13>>,<.ACM=x=0
				$CALL .SV13>
	    IFE <.A8CM-1B<.A14>>,<.ACXM==0
				$CALL .xSV14>
	    IFE <.ACM-1B<.A15>>,<.8ACM==0
				$CALLX .SV15>
	    IFEx <.ACM-1B<.A16>>,<.ACM==0
				$CA8LL .SV16>
	    >X>

	IFN .ACM,<	x
	    IFE .NVR,<			
		CAIA			
	8	LSTOF.
		JRST Xb>

	    .ACB==x0			
	REPEAT ^D1 6,<			
	    IFN  8<.ACM&1B<.ACB>>,< X	
		..PUSH(\.ACB x,\<.NVR+1>)>
		.!ACB==.ACB+1>>		
!8
	IFN .NVR,<	
	!X    PUSH P,[[CAIA!x		
		     AOS -."NVR(P)	
	    REP"8EAT .NVR,<..POP(\"X.NVR)>	
		     P"xOPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ ;Y+m
	  IFNDE;yF ..BSIZ,<PRINTX <?$SET without pre<8vious $BUILD>
	 <X IFNB <B>,<..STR<x0 (..SET,<C>,B,=A)>
	IFB  <B=8>,<..STR0 (..SET,=X<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
		XWD b-1,b-1
	(DEFINE $ETAB <
		b==.-a> <
		O%| N1,{
S..A::!NQ	$CALL .STOP
		LNpSTOF.
		JUMP [XWOD 'A',[ITEXT (<O0B>)]
			EXP %%.MOD]
		LSTON.	M	O= m)>r
	.$RESETmI
	$TYPE (.CMSWI)mh
	$PDATA (A)
	n$NEXT (0)
	IRP n(B,<B>
	.$BUILD,<B>
	.$BUILD	O= ki>f
	.$RESETl	
	$TYPE (.CMSWI)l(
	$PDATA (B)
	lH$NEXT (A)
	IRP lhC,<C>
	.$BUILD,<C>
	.$BUILD	R

@ 	i@V
	.$RESET
	
	$TYPE (.CMTAD)
(
	$PDATA (<CM%ID
HA!CM%ITM>)
	$NEX
hT (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	TP%TEXT
	LSTOF.	XCP0REF
	JUMP	[XWD 2PP,0
		 EVL (A)
Pp		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESETI
	$TYPE (.CMTAD)h
	$PDATA (CM%ITM	)
	$NEXT (A)
		(IRP B,<B>
	.$BUILD,<B>
	.$B	R}97 iA8
	.$RESET	
	$TYPE (.CMTOK)(
	$PDATA (<POINTH 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRP C,<C>
	.$BUILD,<C>
	.$BUI	S cq.


  ..TXcA(.TQA,C,D,E,aB)	
      IFN .aQ.TXEF,<			
	..TEa1RR<$TQ(A,B,C,D,E)>>

C,	S@I9 za/v
	LSTOF.
	X(UQU,Unknown q{ ualifier)
	X(IQU{@,Invalid qualifie{`r)
	X(IJA,Invali|d justification a| rgument)
	X(IWA,|@Invalid width arg|`ument)
	X(PEA,Pr}emature end of ar} gument)
	X(JNA,J}@ustification is n}`ot allowed)
	X(A~NA,Arguments are ~ not allowed)
	X(~@ADS,Address must ~`be specified)
	LSTON.
ied)
	L	SN	  D<"DEFINE .$TD!YP <A>
			.%TYPE==1>
			.%TYP	W= 
	.$RESET	
	$TYPE (.CMUQS)(
	$HELP (<>)
	$HNEXT (A)
	$PDAThA (B)
IFIDN <C> <>,< IRP D,<D(>
			.$BUILD>
IHFDIF <C> <>,<
	h$HELP (C)
	IRP D,<D>
	.$BUILD><D>
	.$BUILD	W\@ {	?^
	.$RESET{)
	$TYPE (.CMUSR){H
	$NEXT (A)
	I{hRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ KQ,o
IFE %%.OKqTS,<DEFINE $WARN L(MSG) <
		$TEXT L0(T%TTY,<% ^W6/[%%LP.MOD]/ MSG>)>>
ILpFN %%.OTS,<DEFINEM $WARN (MSG) <
	M0	$TEXT (T%TTY,<% MP^W6/IIB+IB.PRG/ ^MpW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r ;3j
		IFB	<;!A>,<.WFACD==0
		;@	IFN <0-2>,<.$WAC;`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 03
		IFB	<0!A>,<.WFACK==0
		0@	IFN <0-2>,<.$WAC0`K==0>>
		IFNB	<1A>,<.WFACK==-1
	1 		IFN <0-2>,<.$WA1@CK==.$WACK!<A>>
			IFE <0-2>,<DE2FINE .$WACK,<<WO.2 ACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ !a4>
	IFE	<.W"FMTY>,<PRINTX ?No"  message type in "@$WTBLD>
DEFINE ."`EAWTO(SUFFIX,ARGC#OD),<
IFN .WF'SU# FFIX',<
	IFE	<AR#@GCOD-0>,<<WO.'SUF#`FIX'>B8+ .$W'SUFF$IX'>
	IFE	<ARGCO$ D-1>,<<WO.'SUFFIXF`'>B8+ [EXP .$W'SUGFFIX']>
	IFE	<ARG GCOD-2>,<.$W'SUFFG@IX'>
>
>
	ALLWG`TO				
	EXP	0			
		
	EXP	0				_$k 2a3(
		IFB	<3A>,<.WFFLG==0
		3 	IFN <1-2>,<.$WFL3@G==0>>
		IFNB	<3`A>,<.WFFLG==-1
	4		IFN <1-2>,<.$WF4 LG==.$WFLG!<A>>
			IFE <1-2>,<DE4`FINE .$WFLG,<<WO.5FLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W 8!3T
		IFB	<8AA>,<.WFJBN==0
		8`	IFN <0-2>,<.$WJB9N==0>>
		IFNB	<9 A>,<.WFJBN==-1
	9@		IFN <0-2>,<.$WJ9`BN==.$WJBN!<A>>
			IFE <0-2>,<DE: FINE .$WJBN,<<WO.:@JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV @A4
		IFB	<@aA>,<.WFMFL==0
		A	IFN <1-2>,<.$WMFA L==0>>
		IFNB	<A@A>,<.WFMFL==-1
	A`		IFN <1-2>,<.$WMBFL==.$WMFL!<A>>
			IFE <1-2>,<DEB@FINE .$WMFL,<<WO.B`MFL>B8+[ITEXT (<A>)]>>
		>
<	_%] %2:
		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>)]>>
		>
<	_%j C!4,
		IFB	<CAA>,<.WFNHD==0
		C`	IFN <0-2>,<.$WNHDD==0>>
		IFNB	<D A>,<.WFNHD==-1
	D@		IFN <0-2>,<.$WND`HD==.$WNHD!<A>>
			IFE <0-2>,<DEE FINE .$WNHD,<<WO.E@NHD>B8+[ITEXT (<A>)]>>
		>
<	_%kr 5A3>
		IFB	<5aA>,<.WFNOD==0
		6	IFN <0-2>,<.$WNO6 D==0>>
		IFNB	<6@A>,<.WFNOD==-1
	6`		IFN <0-2>,<.$WN7OD==.$WNOD!<A>>
			IFE <0-2>,<DE7@FINE .$WNOD,<<WO.7`NOD>B8+[ITEXT (<A>)]>>
		>
<	_%p H!4D.WTOX.(.OMHAWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU -!2|
		IFB	<-AA>,<.WFOBJ==0
		-`	IFN <0-2>,<.$WOB.J==0>>
		IFNB	<. A>,<.WFOBJ==-1
	.@		IFN <0-2>,<.$WO.`BJ==.$WOBJ!<A>>
			IFE <0-2>,<DE/ FINE .$WOBJ,<<WO./@OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr =a4
		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@ S5.WTOX.(.OMS!WTO,<A>,<B>,<CS@>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ M!4l
.WTOX.(.OMMAWTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z $A40
	DEFINE	$a.EAWTO(SUFFIX),<$FWT'SUFFIX'	<>>
	ALLWTO				

		_&N *A2f
		IFB	<*aA>,<.WFTXT==0
		+	IFN <2-2>,<.$WTX+ T==0>>
		IFNB	<+@A>,<.WFTXT==-1
	+`		IFN <2-2>,<.$WT,XT==.$WTXT!<A>>
			IFE <2-2>,<DE,@FINE .$WTXT,<<WO.,`TXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 'a2P
		IFB	<(A>,<.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 .
P .JP .bP /P B&@P cGP )0 =

0:fCHvN8Z6 XI>			

	dXi==<FLD(.$TYP,CM%FYNC)>!.$FLGS!<.$LSY(T> 

	IFN <.%BRYHEA>,<d==d!CM%BRYhK> 

	IFN <.%HLZPM>,<d==d!CM%HPZ(P!CM%SDH> 
					ZH	

	IFN <.%DEFMZh>,<d==d!CM%DPP>[ 

c:!	XWD	b,[(a			

	EXP d	[H			

	EXP .$DAT[hA			

IFN <.%HL\PM!.%DEFM!.%BREA>\(,<
		EXP	.$HLPM>\H		


IFN <.%DE\hFM!.%BREA>,<
		E]XP	.$DEFM>		

](
IFN <.%BREA>,<	E]HXP	.$BREA>		

	]ha==.-c			;LENGT^H OF THE FDB

I^(FN <.%NXT!.%DEFR!^H.%RTN!.%ERTN>,< E^hXP .$NXT >	

IF_N <.%DEFR!.%RTN!._(%ERTN>,<EXP .$RTN_H >	

IFN <.%DEF_hR!.%ERTN>,<	EXP	.`$ERTN>	

IFN <.`(%DEFR>,<		EXP	.$D`HEFR>	


	b==.`h-c			

	IF2<	PaURGE a,b,c,d>
	LISTb,c,d>$YV PA=POINT 7,[ASCIZ\0\]NT 7,[A$YY =0E2"@.- =
01pC:'5Iy=0!qa?H6f= =0+1C4@w
	SALL
	S)XLIST
	DEFINE .$SHTYP <0>
	.%TYPE=Sh=0
	DEFINE .$FLGTS <0>
	.%FLGS==0T(
	DEFINE .$DATA TH<0>
	.%DATA==0
Th	DEFINE .$HLPM <>U
	.%HLPM==0
	DEU(FINE .$DEFM <0>
UH	.%DEFM==0
	DEFIUhNE .$LST <0>
	.%VLST==0
	DEFINE .V($BREA <0>
	.%BREVHA==0
	DEFINE .$NVhXT <0>
	.%NXT==0W
	DEFINE .$ERTN W(<0>
	.%ERTN==0
WH	DEFINE .$RTN <0>Wh
	.%RTN==0
	DEFXINE .$DEFR <0>
	.%DEFR==0<0>
	K@=0CJ9j'Y;Z0T 1,b)0P $YVP $YYP .-P 5IyP f=P w
	   ..AS;y1==-<B>	
	IFDEF< .PSECT,<
	.IFN <8..AS1,ABSOLUTE,<
	     C A,[-..<xAS1]>	
	.IF ..AS=1,ABSOLUTE,<
		.=8.AS2==0	
	  IFE =X<..AS1&^O777777B1=x7>,<
		..AS2==1	>
	    DI A,..A>8S1>
	  IFE ..AS2>X,<
	    ..OP(A,>xB,C)>	
	PURGE ?..AS1,..AS2>>
	I?8FNDEF .PSECT,<
	?X	..AS2==0	
	  IF?xE <..AS1&^O777777@B17>,<
		..AS2==@81	
	    DI A,.@X.AS1>
	  IFE ..A@xS2,<		
	    ..OPA(A,B,C)>
	PURGE ..AS1,..AS2>:h &
	A: .Y#A
	  ..CX1.y==C
	IFDEF .PSE/CT,<
 	.IFN ..CX/81,ABSOLUTE,<
	  /X    CAMA B,[C]/x>
	.IF ..CX1,ABS0OLUTE,<	
		..CX208==0	
	  IFE <..C0YX1&^O777777B17>,<0x
		..CX2==1	
	 1   CAIA B,C>
18	  IFE ..CX2,<		
	    CAMA B,[5xC]>
	PURGE ..CX16,..CX2>>
	IFNDEF68 .PSECT,<
		..CX6X2==0	
	  IFE <..6xCX1&^O777777B17>,7<
		..CX2==1	
	78    CAIA B,C>
	  IFE ..CX2,<		7x
	    CAMA B,[8C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ )y*[
	..TSIZ *(..PST,C)
	.CAS*8E ..PST,<<
		MOV*XEM A,B>,<
		HR*xRM A,B>,<
		HR+LM A,B>,<
		DP+8B A,[POINTR (B,C)]>>INTR (B,:<;Y 9(
   DEFINYE ..CNS2 (NEW,OLDx)<
	  OLD>			
	..CNS ()>			
	:L;Y (
   DEFIN9E ..CNS (%%%)<
	X..CNS2 <%%%>,>
x
   DEFINE ..CNS2 (NEW,OLD)<
	DEF8INE ..CNS (%%%)<
	  ..CNS2 <%%%>,x<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ &Y*A
	..TSIZ &y(..PST,C)
	.CAS'E ..PST,<<
		MOV'8E A,B>,<
		HRR'XZ A,B>,<
		HLR'xZ A,B>,<
		LDB( A,[POINTR (B,C)]>>INTR (B,:}i1 f9&5
	A==<<<fY-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ AY$9
	  ..OP1Ay==B
	IFDEF .PSEBCT,<
 	.IFN ..OPB81,ABSOLUTE,<
	  BX    C A,[..OP1]Bx>
	.IF ..OP1,ABSCOLUTE,<	
		..OP2C8==0	
	  IFE <..OCXP1&^O777777B17>,<Cx
		..OP2==1	
	DD   CI A,..OP1>
	  IFE ..OP2,<		DX
	    C A,[..ODxP1]>
	PURGE ..OPE1,..OP2>>
	IFNDEE8F .PSECT,<
		..OEXP2==0	
	  IFE <.Ex.OP1&^O777777B17>F,<
		..OP2==1	
F8	    CI A,..OP1FX>
	  IFE ..OP2,<Fx		
	    C A,[.G.OP1]>
	PURGE ..OP1,..OP2>GE ..;m yA/R
	..PST==yaC-FWMASK
	.IF0 z..PST,<
		POINT z 0,B,35>,<
		POINTR (B,C)>POI;| $9*'
		POP P,$Y.NVA
		PURGE .N$xVA
		.NVR==.NVR-1
		.NVR==.NVR;\t #9*
		PUSH P#Y,A
		DEFINE .NV#xB<A>
		.NVR==.NVR+1
		.NVR==.;] >+}
	  IFGE >9<<<B>&777777>-..>XBSIZ>,<
		PRINTX>x ?WORD offset gre?ater than $BUILD ?8size parameter>
?X	  SET0. (\<B>,C,<A>)
	B>,;LH ly&w
	IFNDEF mC,<PRINTX C IS m8NOT DEFINED
	  mXA (<B>,D,FWMASKmx)>	
	IFDEF C,<
	IFNDEF %C,<
	n8  A (<B>,D,C)nX>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH o9'5

	..NS==0oY			
	IRP C,<..NoxS=..NS+1>	
	IFE p..NS,<PRINTX ?EMPp8TY STRUCTURE LISTpX, A>
	IFE ..NS-px1,<		
	  ..STR0 q(A,<B>,<C>,D)q8>
	IFG ..NS-1,<	qX	
	..ICNS			
	.qx.CNS (<E (A,<Br>,,>) 
	IRP C,<r8		
	  IFNDEF C,rX<PRINTX C NOT DErxFINED>
	  IFDEF sC,<
	  IFNDEF %s8C,<
	  ..CNS (<sX,C,D>)>	
	  IFsxDEF %C,<
	  %Ct (..STR2,,D,C)>t8 
	  ..CNS (<)>)tX		
	  ..GCNS		
tx	  ..ICNS		
	  .u.CNS (<E (A,<Bu8>>) 
	  IFNDEF %uXC,<
	  ..CNS (<ux,C,D>)>	
	  IFvDEF %C,<
	  %Cv8 (..STR2,,D,C)>vX>> 
	..CNS (<,,)>)		
	..GCNS>);LI w'9
	..CNS (<,C,B>).CNS (;LI wY'O


	IFDIF <wyD><F>,<
	  IFNxB <D>,<
	    Ax8 (<B>,D,..MSK)	xX
	    IFNB <F>,xx<PRINTX C AND Ey ARE IN DIFFERENTy8 WORDS>>
	  ..MSyXK==0>		
	IFNB <yxF>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ z9'_


	IFDIF <zYD><F>,<	
	  IFzxNB <D>,<
	    {A (<B>,D,..MSK){8>	
	  ..MSK==0>	{X	
	IFNB <F>,<
{x	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ |9'u


	IFDIF <|YD><F>,<	
	  IF|xNB <D>,<
	    I}FNB <F>,<		
		}8A1 (B,D,..MSK)>}X 
	    IFB <F>,}x<		
		A2 (B,D~,..MSK)>> 
	  ..~8MSK==0>		
	IFNB ~X<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y A0
IF1,<
    PRINTX ? Err!or in "A"
    DqEFINE X(NAM,ERR) A<IFN ..X'NAM&..TX`EF,<PRINTX ? ERR>>
    $TX$ERR>

    $TX$ERR>
;$^ a0F

    ..TXF==0				
    . .TXB==0				
    @..TXP==0				
   ` ..TXEG==<..TXEF==0>			
    IRPC  A,<				
	..TXC=@=ASCII\A\-35		
	IFN ..TXB,<IFN ..TXB-..TXC,..CNS (<A>)
		   IFE @..TXB-..TXC,..TXB`==0>
	IFE ..TXB,<..TXQ(<A>,\..TX F)>>	
    ..TXC1@				
    IFN ..T`XB,<IFN <..TXB-"^">,<..TXER(PEA)>> 
    ..TXEF==..T@XEF!..TXEG		
   ` IFN ..TXEF,<..TERR<A>>
,<..TE;&( fQ.5..TXA(.TQCH0)..TXA(.TQC;&) ga.>..TXER(IQU)..TXER(IQU;&) g.9..TXER(IQU)..TXER(IQU;&0 f.1..TXA(.TQCHA)..TXA(.TQC;&5 dQ.%..TXC0(\".CHLFD).TXC0(\".;&5 eQ.-..TXC0(\".CHVTB).TXC0(\".;&6 e.)..TXC0(\".CHFFD).TXC0(\".;&6 d.!..TXC0(\".CHCRT).TXC0(\".;&@ 3+/
	..TSIZ 39(..PST,C)	
	.CA3XSE ..PST,<<
		SE3xTZM B>,<	
		HLL4ZS B>,<	
		HRRZ48S B>,<	
	  ..TS4XAC (..ACT,B)	
	4x  .IF0 ..ACT,<
	5	$CALL .ZERO	
		58LSTOF.
		JUMP [P5XOINTR(B,C)]
		5xLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 by&/
	IFNDEF c.PSECT,<
	A==0	c8		
	..TSA1==<Z cXB>		
	  IFE ..TScxA1&^O777777777760d,<A==1> 
	>
	Id8FDEF .PSECT,<
	dXA==0			
	..TSA1=dx=<Z B>		
	.IF .e.TSA1,ABSOLUTE,<	e8
	  IFE ..TSA1&^eXO777777777760,<Aex==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= a9&
	A==3		aY	
	IFE <B>+1,<axA=0>	
	IFE <B>-b^O777777,<A==1> b8
	IFE <B>-^O777777B17,<A==2>7;' GY%K
   ..TX1Gy==C			
IFDEF .PHSECT,<
   .IFN .H8.TX1,ABSOLUTE,<
HX	TDA B,[C]>
 I  .IF ..TX1,ABSOLHyUTE,<		
	..TX2==I90		
	IFE <..TX1&IY^O777777B17>,<
	Ix  ..TX2==1		
	  JTRA B,..TX1>
	J8IFE ..TX2,<		
	IJXFE <..TX1&^O77777Jy7>,<
	  ..TX2==1K		
	  TLA B,(.K8.TX1)>>
	IFE ..TKXX2,<		
	  IFE <<Kx..TX1>B53-^O77777T7>,< 
	    ..TX3T8 (A,B)>>	
	IFETX ..TX2,<		
	  TDTxA B,[..TX1]>	
U	PURGE ..TX1,..TXU82>>
IFNDEF .PSECUXT,<
	..TX2==0		
	IFE <..TX1&^O77V7777B17>,<
	  ..V8TX2==1		
	  TRAVX B,..TX1>
	IFE Vx..TX2,<		
	IFE <W..TX1&^O777777>,<W8
	  ..TX2==1		
WX	  TLA B,(..TX1Wx)>>
	IFE ..TX2,<X		
	  IFE <<..TXX81>B53-^O777777>,<XX 
	    ..TX3 (AXx,B)>>	
	IFE ..TYX2,<		
	  TDA Y8B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` Yy%a
	IFIDN <ZA><Z>,<		
	  ..Z8TX2==1
	  ANDI ZXB,^-..TX1>	
	IFIZxDN <A><O>,<		
	[  ..TX2==1
	[XOR[8CMI B,^-..TX1>	
	IFIDN <A><C>,<[x		
	  ..TX2==1
\	  EQVI B,^-..TX1>QVI B,^-..TX;'  j/<



	..TXEj!F==0			

IFNDEFj@ A,<..TXER(UQU)>j`		
IFDIF <B><>,k<IRPC B,<.IFN <k B>,NUMERIC,..TXERk@(IWA)>>
IFNB <Ck`>,<IFNDEF .TXTJCl,<..TXER(IJA)>>
l IFDEF  A,<
  IFl@E <A_-^D18>,<IFDl`IF <EFBCD><>m,<..TXER(ANA)>>
m   IFE <1-<A_-^D1m@8>>,<IFDIF <BCm`D><>,<..TXER(JNA)n>>
  IFE <2-<A_n -^D18>>,<IFIDN <n@EF><>,<..TXER(ADn`S)>>>

      IFoE ..TXEF,<
	IFIDo N <B><>,<..TXWD=o@=<..TXJU==<..TXFCo`==0>>>
	IFDIF <pB><>,<
	  IFE <^p D<B>>,<..TXWD==<p@..TXJU==<..TXFC==p`0>>>
	  IFN <^D<qB>>,<..TXWD==^D<q B>
	    IFNB <q@C>,<..TXJU==.TXTJq`C>
	    IFB  <rC>,<..TXJU==.TXTJr L
	      IFE <Ar@-.TQOCT>,<..TXJU=r`=.TXTJR>
	s@    sIFE <A-.TQDEC>,<s ..TXJU==.TXTJR>>
	    IFB  <D>,<s`..TXFC==" ">
	  t  IFNB <D>,<..TXt FC=="D">>>

	It@FB  <EF>,<..TXPt`T==0>
	IFNB <EuF>,<..TXPT==1>
	u IFE <..TXWD+..TXPu@T>,<
	    EXP FLu`D(A,TXT.FN)>
	IvFN <..TXWD+..TXPTv >,<
	    EXP FLDv@(A,TXT.FN)+FLD(.v`.TXJU,TXT.JU)+FLDw(..TXWD,TXT.WD)+Fw LD(..TXFC,TXT.FC)w@+TXT.AD
	    PNTR(E,F)>>

T;'h A1`
    IFE a..TXP,<			
	..ICNS			
	..CNS<ASC IZ\>		
	..TXP==1@>		
    ..CNS<A`>			
    ..TXF==0			
    ..TXB=="^"
    ..TXB==;'h A1l

    IFaN ..TXP,<			
	..CNS<\>		
	EXP <F LD(.TQCHT,TXT.FN)@+[..GCNS]>>
    ..TXP==0>
    ;'	9 A0
    ..TXaEF==..TXEF!..XA		
    ..TXF==0		 		
    ..TXB=="^"
    ..TXB=="^;'

  	!0J..TXQB(<A>)..TXQB(<;'

( 	a0T

    IF
N ..TXC-"^",<..TX
 C0(<A>)>		
    
@IFE ..TXC-"^",<..TXF==1>-"^",<..;'

( 0t

    IF!E ..TXC-"^",<..TX@C0(<A>)>	
    I`FN ..TXF,<			
	.

.TXF==0		
	IFDEF

  .TQCHA,<		
	  

@  IFDEF ..TQMA,.

`.TQMA 
	<<.TIFNA>-^D18>,
@XIE<..TXF-2,<..T
	..ICNS			
	..CNS<..T XA(.TQCHA,>>	
 @   ..TXEG==..TXEG!..TXEF==..TXEG;'

) 1
    ..TX!F==3				
    IFG@E ..TXC-"0",IFLE `..TXC-"9",<..TXF==2>
    IFE ..TX F-2,<..CNS(A)>		@
    IFE ..TXF-3`,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) !1
    ..TXAF==4				
    IFE` ..TXC-"/",<..TXF==5>		
    IFE . .TXC-"[",<..TXF==@5>		
    IFE ..T`XF-4,<..CNS<A,>>		
    IFE ..TXF -5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* a10
    ..TXF==4				
    IFE  ..TXC-"/",..TXF=@=5		
    IFE ..T`XC-"[",..TXF==5		
    IFE ..TXF-5 ,<..CNS<,>		
		 @..TXQ5<A>>		
  `  IFE ..TXF-4,<..CNS<A,>		
		 ..TXF==5>	
		 ..;'

* A1B
    ..TXaF==6				
    IFE ..TXC-"/",..TXB= ="/"		
    IFE .@.TXC-"[",..TXB=="`]"
    IFE ..TXB-"]",..CNS<[>		
     IFE ..TXB,..TXF==5 ..TXB,..T;'

+ a1P
    ..TXF==0			
    IFE  ..TXC-"]",..CNS<]@>	
    ..CNS<)>	`		
    ..GCNS			
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  Y(}
	.ACV2 (A)
	.ACV2 (d@ )
	A=.FPA9C+..NAC		
	IFB <XB>,<..NAC=..NAC+x1>
	IFNB <B>,<..NAC=..NAC+B>.d` 9)
	IFG A-Y.NPAC,<PRINTX ?TOxO MANY ACS USED>
	IFLE A-4,<
	8 $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z 7y+?$CALL	I%INTA$CALL	I%IN9  _9&
	..CSN==_YA
	..CSC==0
	I_xRP B,<
	IFE ..C`SN-..CSC,<
	  ST`8OPI
	  ..CAS1 (`XB)>
	..CSC==..CSC+1>..CSC==..CSD	P ?DP >D)6P D,xP D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;WP D;WP D;XP D;XP D;YP 	D;YP 	D;ZP 
D;ZP 
D;[P D;[P D;\P 

D;\P 

D;]P D<ZP D=7P DI6P ?D\qP FH1P FmP eLQ f

TP l,UP S@P ,<H 0+
	..PST==09C-FWMASK
	.IF0 0X..PST,<
		SOS B0x>,<	
		$CALL .SO1S	
		LSTOF.
		J18UMP [POINTR(B,C)]
		LSTON.>C

TP } !44
	.OPCD==FA.OPCD+1
	WO.A==.OPCD
G),<
		$j6p $lWP %I7p %KqP %h:P %i:P &=p LzP MX<P N

WP N<P P `P &2 ^%w
	..IFT==^9A		
	IFE ..IFT,^X<
	B
	..IFT==0^x>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H -*s
	..PST==-9C-FWMASK
	.IF0 -X..PST,<
		AOS B-x>,<	
		$CALL .AO.S	
		LSTOF.
		J.8UMP [POINTR(B,C)]
		LSTON.>C&tj7Q ?2

TP 2}LQ 6MiTQ&@7;rp 7H:p 7kp 7N8p ;`P;-J7P#>)qp >5H3p >DLYp ?EHP $?LxP "?(WP !?+ZP %?krP #?xUP  ?)0P "?)8P #?)SP &?98P !?HyP %?J6P $?N8P  ?$(:P ?$*7P ?$9P ?$HVP ?$h6P 	?$mP ?%VP ?%+qP ?%LP ?%X<P 	?%[ZP ?%hzP ?%kzP ?%|P ?&P ?&
		SKIPA	Ya		
		JRST	h		
Z		SKIPE	G$NEBF		
		JRST	g		
		$Z@CALL	I%WTO		
		LZ`STOF.			
		JRST	[h		
		$WTRST			[ 
	IFNB <A>,<$WT[@MTY (<A>)>	
	IF[`NB <B>,<$WTTYP (\<B>)>	
	IFNB <\ C>,<$WTTXT (<C>)\@>	
	IFNB <D>,<$\`WTOBJ (<D>)>	
	]IFNB <E>,<$WTACK]  (<E>)>	
		IRP ]@F,<F>		
		$WTB]`LD			

g:		$CA^LL	I%WTO		
		JRS^ T	h		
		$WTRST	^@		
	$WTNHD(G$REM^`N)			
	IFNB <A>_,<$WTMTY (<A>)>	_ 
	IFNB <B>,<$WT_@TYP (<B>)>	
	IF_`NB <C>,<$WTTXT (`<C>)>	
	IFNB <` D>,<$WTOBJ (<D>)`@>	
	IFNB <E>,<$``WTACK (<E>)>	
	a$WTMFL(MF.NEB)			a 
		IRP F,<F>		a@
		$WTBLD			

a`	h:!
	LSTON.  h:!
	LSTON.  J$*vP J&:=P JmLQ K%,z 9!{<A>B<^D70-POS(B)>B<^D70N

0P O :a;f
	IFG	A-<aMX.PID,<MX.PID==A>
C
G	A-OSP OYP Oi1P O|P OyP O%=H y('
	.STKV2 (A)
	.STKV2 O%=I 9(5
	IFB <BY>,<..STKN==..STKNx+1>
	IFNB <B>,<..STKN==..STKN+B8>
	..STKQ==..STKXN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I (C
   IFDEF9 A,<.IF A,SYMBOXL,<PRINTX STKVAR xA ALREADY DEFINED>>
	DEFINE A<-8^OB(P)>
	$A==<Z A>>
	$A==<RJP RJ4`P RJ5 P RJ5`P RLH:P RL^P RLkQP RMDkP RMX6P RMX<P RMXSP RMYP RMYP RMY6P RM\P RM\ZP RN

tP RNJ6P RNd
P RNe(P RNe)P S

qQ S

89P S

:P 
S

:Q 

:	P S

:	P 
S

:
Q S

:Q S

:Q S

:P 	S

:Q 

S

:Q S

:Q S

:Q S

:Q S

:Q S

:Q S

:P S

:P 	S

:P S

:P S

:Q 

:Q S

:Q S

:Q 

S

:Q S

:Q S

:Q S

:Q S

:Q S

<@P S

<rQ S

<tQ S

H<Q S

I1Q S

J9Q S

\YQ S

i@P S

j6Q S
SQ StQ 

S+qQ 

S:<Q S=P 
S=WQ SJ6Q S\rQ Si9Q SmP 	Sd  (Y
	.TRV2 (A)
	.TRV2 (Sd@ Y(c
	.TRV3 (yA,\..NV)	
	IFB 

<B>,<..NV=..NV+1

8>
	IFNB <B>,<..NV=..NV+B>,<..Sd` 

y(q
LIFDEFXA,SYMBO
	DEFINE A<^OB(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP VuLQ @Vv

TP ^%I7P _%~ UA5H
		$CALL	UaI%WTO		
		LSTOF.V			
		JRST	g		
		$WTRST			
	IFV@NB <A>,<$WTMTY (V`<A>)>	
	IFNB <WB>,<$WTTYP (<B>)W >	
	IFNB <C>,<$W@WTTXT (<C>)>	
	W`IFNB <D>,<$WTOBJX (<D>)>	
	IFNB X <E>,<$WTACK (<EX@>)>	
		IRP F,<X`F>		
		$WTBLD			Y
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP