PDP-10 Archive: autopatch/glxmac.unv from bb-l014w-bm_tops20_v7_0_atpch

Trailing-Edge - PDP-10 Archives - bb-l014w-bm_tops20_v7_0_atpch_23 - autopatch/glxmac.unv

There are 92 other files named glxmac.unv in the archive. Click here to see a list.

x
,UU@P C4@ q*
	..NAC== 0		
	IRP A,<
	 0  .ACV1 (A)>		
	.ACV3 (\..NAC)C' Iq$O..AS(A,B,ADD,SUB)(A,BC, +i"^LSH A,-^D9LSH A,-^DC2f} /3
	.EAWTO(/9MTY,0)
	.EAWTO(T/XYP,2)
	.EAWTO(TX/xT,2)
	.EAWTO(OBJ0,0)
	.EAWTO(ACK,080)
	.EAWTO(FLG,10X)
	.EAWTO(NOD,0)0x
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
18	.EAWTO(OCD,0)
	1X.EAWTO(MFL,1)
	.1xEAWTO(NHD,0)		

TO(NHD,0)		
C:' n1&s
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ U1-1
	  IFE UQB,<..TA==0>
	  UpIFN B,<EXP ..TAV
		    PURGE ..TA>
	PURGE ..TE2&i1 c	0
	IFIDN <c9E><C>,<EXTERNAL cXBMAN,BDEV>
	SIcxXBIT	/A/
	XWD	BMAN,BDEV
D	CB|EE@v:=Q |F:<P F;z:Q @G@ Bq$
	    ..CX(,A,B)   ..CGD F1$3
	    ..CX(A,A,B)  ..CGDP D1$#
	    ..CX(E,A,B)  ..CGDp Dq$'
	    ..CX(G,A,B)  ..CGDy  E1$+
	    ..CX(GE,A,B) ..CGE@ C1$
	    ..CX(L,A,B)  ..CGEI  Cq$
	    ..CX(LE,A,B) ..CGE` Eq$/
	..CX(N,A,B)  ..CGH 1;

	  LST09OF.

	X CRE	
	0yX GEN	
	X PRT	
0	X CLS	
	XYAUT	
	X USW	
	X SPL	19
	X SIZ   
	X M1XOD	
	X CHN	

	  LSTON.


	G3.= f93IFN C.GALA,IFN C.GALAG4,m:Q G4-ZQ G4.

zQ G:YlP

G>vC@ lanLALL
PAGEm; (A Continued om n next page)
SALm@L; (A Continued m`from 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  @,
	IFNB <@1B>,<..STR0 (.DECR@P0,,<B>,A)>
	IF@pB  <B>,<SOS A>  <B>,<SOS A>I6= x1'W
	A==<-1xQB<C>+1B<C-D>> xp
	IF1,<IFDEF %Ay,<PRINTX ?A ALREy0ADY DEFINED>>
	DyPEFINE %A (OP,AC,ypY,MSK)<	
	IFDIF z<Y><>,<
	OP (<ACz0>,B+'Y,MSK)>
	IzPFIDN <Y><>,<
	OPzp (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 L1$c..OP(A,B,DIV)..OP(A,BIOH1 )aBX
	IFB <D*>,<
	XWD	[ASCIZ\* C\],[XWD B,A]>*@
	IFNB <D>,<
	*`XWD	[EXP CM%FW!D+
		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 .Y:}
	IF1,<IF.yDEF ERA$,PRINTX /?Duplicate error /8code A>
	ERA$=/X=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y t9:q
	ERR	EOFtY,<End of file>
	txERR	IFP,<Illegal ufile position>
	u8ERR	FDE,<File datuXa error>
	ERR	FNuxD,<File is not onv disk>
	ERR	FSM,v8<File still mappevXd>			;[301]
	ERRvx	NSD,<No such devwice>
	ERR	FCF,<Fw8ile checkpoint fawXiled>
	ERR	SLE,<wxA system limit waxs exceeded>
	ERRx8	IFS,<Illegal filxXe specification>
	ERR	FNF,<File nyot found>
	ERR	Py8RT,<Protection viyXolation>
	ERR	DNyxA,<Device not avazilable>
	ERR	NCEz8,<No "current" enzXtry in list>
	ERzxR	NMA,<No IPCF me{ssage is availabl{8e>
	ERR	FDS,<Fil{Xes are on differe{xnt structures>
	|ERR	FAE,<File alr|8eady exists>
	ER|XR	USE,<Unexpected|x system error>
	}ERR	NSP,<No such }8pid>
	ERR	BOL,<B}Xeginning of list }xreached>
	ERR	EO~L,<End of list re~8ached>
	ERR	RQF,~X<Receivers quota ~xfull>
	ERR	SQF,<Senders quota ful8l>
	ERR	NRE,<No Xremembered entry>x
	ERR	TBF,<Table is full>
	ERR	E8IT,<Table entry aXlready exists>
	xERR	ITE,<Invalid table entry>
	ER8R	QEF,<Quota exceXeded or disk fullx>
	ERR	ARG,<Invalid argument spec8ified>
	ERR	IFN,X<Invalid functionx specified>
	ERR	IJN,<Invalid job8 number specifiedX>
	ERR	RAD,<Invaxlid radix specified>
	ERR	NUM,<In8valid numeric argXument>
	ERR	IDT,x<Invalid date field specified>
	E8RR	ITF,<Invalid tXime field specifixed>
	ERR	DOR,<Date/time out of ra8nge>
	ERR	DTM,<VXalue missing in dxate/time>
	ERR	MDD,<Missing day i8n date/time>
	ERXR	DFZ,<Field zerox in date/time>
	ERR	MDS,<Mnemonic8 date/time switchX not implemented>x
	ERR	DFL,<Field	 too large in dat	8e/time>
	ERR	ILR	X,<Illegal year fo	xrmat in date/time
>
	ERR	NND,<Nega
8tive number in da
Xte/time>
	ERR	NP
xF,<Not known whether past or futur8e in date/time>
X	ERR	RDP,<Relativxe date parse requ

ired>
	ERR	NSW,<

8Switch does not b

Xegin with slash>

x
	ERR	NOM,<Unreco 
	ERR	NUdswitch>or
	ERR	INW,<Invalid8 guide word>
	ERXR	NC,<Not confirmxed>
	ERR	ICN,<Invalid character i8n number>
	ERR	NXQS,<Invalid quotexd string - does not begin with quo8te>
	ERR	AMB,<AmXbiguous switch orx keyword>
	ERR	NMT,<Does not matc8h token>
	ERR	CMXA,<Comma not givexn>
	ERR	NNC,<Node name may not ex8ceed 6 charactersX>
	ERR	INT,<Nodex terminator "::" must be specified8>
	ERR	NSN,<UnknXown node name>
	xERR	IPS,<Invalid path specificatio8n>
	ERR	IUS,<InvXalid user specifixcation>
	ERR	DGS,<Device name may8 not exceed 6 chaXracters>
	ERR	DNxE,<Unknown device>
	ERR	DIO,<Devi8ce can not do inpXut or output>
	ExRR	BDF,<Invalid date/time format>
	ERR	ABS,<Field Xtoo long for intexrnal buffer>
	ERR	TMT,<Command to8o long for internXal buffer>
	ERR	xBDS,<Invalid default string>
	ERR8	BTF,<Invalid tabXle format>
	ERR	xTME,<Date/time must be in the futu8re>
	ERR	TMN,<NoX timer entry has xexpired>
	ERR	TMA,<Timer entry al8ready exists>
	EXRR	DVT,<Device texrminator ":" must be specified>
	8ERR	NCI,<ArgumentX block may not bex in the ACs>
	ERR	TLU,<Terminal l8ocation is unknowXn>
	ERR	FIO,<Filxe is offline>
	ERR	FBM,<File bein8g modified>
	ERRX	WLK,<Write-lockexd device>
	ERR	CSD,<Cannot supers8ede a directory>
	ERR	CDD,<Cannotx delete a non-emp ty directory>
	E 8RR	SNF,<Sub-file  Xdirectory not fou xnd>
	ERR	ESL,<Se!arch list is empt!8y>
	ERR	LVL,<SFD!X level nested dee!xper than the maxi"mum allowed>
	ER"8R	CCW,<Cannot cre"Xate/write on any "xstructure in sear#ch list>
	ERR	FC#8U,<Cannot update #Xfile>
	ERR	ENQ,<#xFile has outstand$ing Enqueue locke$8s set>
	ERR	SWS,$X<Software write-l$xock on structure>%
	ERR	DER,<Hardw%8are device error>%X
	ERR	DTE,<Hard %xdata error>
	ERR&	BKT,<Block too l&8arge>
	ERR	IPP,<&XNon-existant UFD>&x
	ERR	TRN,<RIB o'r transmission er'8ror>
	ERR	ILC,<I'Xllegal character 'xin date/time>
	E(RR	NFT,<Date/time(8 must be in the f(Xuture>
	ERR	NPS,(x<Date/time must b)e in the past>
	)8ERR	UDM,<Unrecogn)Xized month in dat)xe/time>
	ERR	UDN*,<Unrecognized na*8me in date/time>
	ERR	IFA,<Illega*xl file attribute>+
	ERR	FAI,<File +8attribute inconsi+Xstancy>
	ERR	CEI+x,<Can't enable/di,sable interrupt s,8ystem>
	ERR	ENF,,X<Linked list entr,xy not found>
	ER-R	NSL,<No such li-8nked list>
	ERR	-XNFP,<No free page-xs>
	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` bI.&
	IFIDN <biBC><>,<EXP <A>c>
	IFDIF <BC><c(>,<
	 IFE <A+1>cH,<<POINT 7,C>>
ch	 IFN <A+1>,<
	d   IFIDN <C><>,<d(EXP <A,B>>
	  dH IFDIF <C><>,<EXdhP <A,B,C>>
	>>A,B,C>>
	>Kc  j!TIRP A,<
jA	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  0#<<<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|  kbIRP A,<
k!	IF2,<IFDEF A,<.k@IFN A,EXTERN,<INk`TERN A>>
	     lIFNDEF A,<EXTERNl  A>
	Q SUPPRESPA>>YSUPPRO3FX7P jQf@ +QfI@ <StLQ St\Yp Stkp SuZp Suh1Q SulQ Su}:p Sv
1p Sv

Sp Sv>9Q Sv>@p SNn Kq$_..OP(A,B,IDIV).OP(A,BS7-N Jq$W..OP(A,B,IMUL).OP(A,BS:  =+o
	IFNB <=1B>,<..STR0 (.INCR=P0,,<B>,A)>
	IF=pB  <B>,<AOS A>  <B>,<AOS A>S;k 2Q#<<<A>B<POS(<B>)>>&<B>>S;!kP S;!k<P S? mq&o
	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.	eIXCREF
	..TEXT<Aeh>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ y;7

	  LST29OF.

	X JNO,.JI2XJNO,<-1,,GJBJNO>	2x
	X TNO,.JITNO,<3-1,,GJBTTY>	
	X 38USR,.JIUNO,.GTPPN3X		
	X CDN,.JIDNO3x,<-1,,GJBPTH>	
	4X PRG,.JIPNM,.GTP48RG		
	XxCJN,.JIC4XPJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.G5TOBI		
	X JLT,.J58ISTM,.GTJLT		
	X5X LOC,<-1,,GJBLOC>5x,<-1,,GJBLOC> 
	6X RTM,.JIRT,<-1,,68GJBRTM>	
	X TLC,6X<-1,,GJBTLC>,<-1,6x,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$vKPAU$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
	IFB <C+a>,<
	XWD	[ASCIZ\,B\],A>
	IFNB <, C>,<
	XWD	[EXP ,@CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 )"V

	  LSTIOF. XCREF

	CDOh	OTSINI			
	CDO

    			
	CDO	.ZP

(AGA
	CDO	.ZPAGN

H
	CDO	.ZCHNK
	CD

hO	.SAVE1
	CDO	.S
	CDO	.SAVE3
	CDO	.SAVE4
	C	.SAVET
	CDO	.
	CDO	.SV14
	CDO	.SV15
	CDO(	.SV16
	CDO	.RETHT
	CDO	.RETF
	ChDO	.RETE
	CDO	.AOS		
	CDO	.SOS		(
	CDO	.ZERO		
	HCDO	.POPJ		
	CDOh	.STOP		
	CDO	.SAVE8		
	CDO	.STK(ST		
	CDO	.TRSETH		
	CDO	.POPJ1		h
	CDO	.UD2SC		
	CDO	.SC2UD		
	C(DO	.CPUTY		
	CDOH
	CDO
	CDO

	hCDO			
	CDO	C%RPRM
	CDO	C%INTR
(	CDO	C%SEND
	CDOH	C%RECV
	CDO	C%BhRCV
	CDO	C%REL
	CDO	C%CPID
	CDO(	C%KPID
	CDO	C%SHPID
	CDO	C%MAXP
	CDO	C%PIDJ
	CDO
	CDO
	CDO
	C(DO
	CDO

	CDO	H      			
	CDO	Fh%IOPN
	CDO	F%AOPN
	CDO	F%OOPN
	(CDO	F%IBYT
	CDO	HF%OBYT
	CDO	F%IBhUF
	CDO	F%OBUF
	CDO	F%REL
	CDO	(F%DREL
	CDO	F%RRHEL
	CDO	F%REW
	hCDO	F%POS
	CDO	F%CHKP
	CDO	F%INF(O
	CDO	F%FD
	CDHO	F%REN
	CDO	F%DhEL
	CDO	F%FCHN
	CDO
	CDO
	CDO
	CDO
	CDO
	CDOH
	CDO
	CDO
	CDhO

	CDO	      			
	CDO	M%ACQP
(	CDO	M%RELP
	CDOH	M%IPSN
	CDO	M%NhXPG
	CDO	M%IPRC
	CDO	M%IPRM
	CD(O	M%AQNP
	CDO	M%HRLNP
	CDO	M%CLNCh
	CDO	M%FPGS
	CDO	M%GMEM
	CDO	M(%RMEM
	CDO
	CDOH
	CDO
	CDO
	CDhO
	CDO
	CDO	M%GPAG
	CDO	M%RPAG
	CDO
	CDO
	CDOH
	CDO
	CDO
	CDhO
	CDO
	CDO

	CDO	      			
	(CDO	T%TEXT
	CDO	HT%TTY
	CDO
	CDOh
	CDO
	CDO
	CDO
	CDO
	CDO
	C(DO
	CDO
	CDO
H
	CDO	      			
h	CDO	L%CLST
	CDO	L%DLST
	CDO	L%C(ENT
	CDO	L%CBFR
	CDO	L%DENT
	CDhO	L%NEXT
	CDO	L% FIRS
	CDO	L%LAST (
	CDO	L%PREV
	C HDO	L%PREM
	CDO	L h%CURR
	CDO	L%REN!T
	CDO	L%SIZE
	!(CDO	L%APOS
	CDO
	CDO
	CDO
	CDO!h
	CDO
	CDO
	CD"O
	CDO

	CDO		"(	
	CDO	I%NOW
	C"HDO	I%EXIT
	CDO	I"h%ION
	CDO	I%IOFF#
	CDO	I%SLP
	CD#(O	I%INT1
	CDO	I%#HINT2
	CDO	I%INT3#h
	CDO	I%TIMR
	C$DO
	CDO
	CDO	I%$(SOPR
	CDO	I%WTO
	CDO
	CDO	I%HOS$hT
	CDO	I%JINF
	%CDO
	CDO

	CDO%(			
	CDO
	CDO	S%H%DATI
	CDO	S%SIX%hB
	CDO	S%CMND
	&CDO	S%TBLK
	CDO	&(S%SCMP
	CDO	S%ER&HR
	CDO	S%INTR
	&hCDO	S%EXIT
	CDO	'S%TBAD
	CDO	S%TB'(DL
	CDO	S%NUMI
'H

	CDO	K%RCOC		'h	
	CDO	K%WCOC
	(CDO	K%SUET
	CDO	((K%STYP
	CDO	K%TX(HTI
	CDO	K%SOUT
(h	CDO	K%BOUT
	CDO)	K%BIN
	CDO	K%BA)(CK
	CDO	K%TPOS
)H	CDO	K%BUFF
	CDO)h	K%FLSH
	CDO	K%O*PEN
	CDO
	CDO
*(	CDO
	CDO
	CDO
	CDO
	CDO
	CDO*h
	CDO
	  LSTON.
  
	  LSTON.Y>

@ 6Q+;
	IFNB <6qC>,<..STR0 (..LDB7,A,C,B)>
	IFB70  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG n!|
	IFNDEF nALSTIN.,LSTIN.==0	n`	
IFE LSTIN.,<
o	IFIDN <XCREF><Ao >,<.XCREF>	
		  o@ XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G p
	IFG LSTp!IN.,LSTIN.==LSTINp@.-1	
	IFLE LSTINp`.,<.CREF		
		      LIST>
		   [3@ 2#<<<1_<A>>-1>B<B>>_<A>>[8@ 1#	1B<<A>-1>-1B<B><<A>-1>[@ i B
	IFB <B	>,<MAXSIZ==0
		I(RP A,<IFG <A-MAHXSIZ>,<MAXSIZ==Ah>>>
	IFNB <B>,<B==0
		IRP A,<(IFG <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 i V
	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>>>
[>!`-1Q#>*B><A-<A/B[>w@&
   ..MX131==B			
IFDEF .P3PSECT,<
   .IFN .3p.MX1,ABSOLUTE,<
4	MOVE A,[B]>
 40  .IF ..MX1,ABSOL4PUTE,<
	..MX2==0	4p	
	IFE <..MX1>B553,<
	50..MX2==1
	  MOVEI A,..MX5P1>	
	IFE ..MX2,<5p		
	IFE <..MX1>B617,<
	  ..MX2==160
	  MOVSI A,(..6PMX1)>>	
	IFE ..M6pX2,<		
	IFE <<..7MX1>B53-^O777777>70,<
	  ..MX2==1
7P	  HRROI A,<..MX7p1>>>	
	IFE ..MX28,<		
	IFE <<..MX801>B17-^O777777B178P>,<
	8p..MX2==1
	  HRLOI A,(..M9X1-^O777777)>> 
90	IFE ..MX2,<		
	9P  MOVE A,[..MX1]9p>	
	>>

IFNDEF: .PSECT,<
	..MX2:0==0		
	IFE <..MX:P1>B53,<
	  ..MX2:p==1
	  MOVEI A,;..MX1>	
	IFE ..M;0X2,<		
	IFE <..M;PX1>B17,<
	  ..MX;p2==1
	  MOVSI A<,(..MX1)>>	
	IFE<0 ..MX2,<		
	IFE <P<<..MX1>B53-^O777<p777>,<
	  ..MX2===1
	  HRROI A,<=0..MX1>>>	
	IFE .=P.MX2,<		
	IFE <<=p..MX1>B17-^O77777>7B17>,<
	  ..MX2>0==1
	  HRLOI A,>P(..MX1-^O777777)>>p> 
	IFE ..MX2,<	?	
	  MOVE A,[..?0MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= {1'm
	A==C	{Q	
	IF1,<IFDEF %{pA,<PRINTX ?A ALR|EADY DEFINED>>
	|0DEFINE %A (OP,AC|P,Y,MSK)<	
	IFDIF|p <Y><>,<
	OP (<A}C>,B+'Y,MSK)>
	}0IFIDN <Y><>,<
	O}PP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg K1$[..OP(A,B,MUL)..OP(A,B[`v
2P[b6<PF] haHIF2,<IFDEFi A,<A==A>> IFNDEF A,<A==B>]F@ >
QkRp _
Ql7p _
Qlxp _
Ql}p _
Qmp _
Qm7p _
T= =a<(

	X	.OT9RDR,Reader
	X	.O2TNCU,Network-Cont>roller
	X	.OTLPT=A,Printer
	X	.OTB?AAT,Batch-Stream
?`	X	.OTCDP,Card-Pu@nch
	X	.OTPTP,Pa@ pertape
	X	.OTPL@@T,Plotter
	X	.OT@`JOB,Job
	X	.OTTRAM,Terminal
	X	.OA TOPR,Operator
	XA@	.OTIBM,<IBM RemoA`te>
	X	.OTMNT,<DBevice>
	X	.OTFTSB ,<File Transfer>
	X	.OTBIN,<Card B`Reader InterpreteCr>
	X	.OTRET,<FiC le Retrieval>
	XC@	.OTNOT,<RetrievaC`l Notification>
D	X	.OTDBM,<DBMS SD ystem>
	X	.OTFALD@,<File Access LisD`tener>
	X	.OTSNAE,<SNA Workstation>
 Workstation_Sh6 MY<m [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 N9=-

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

  O IFNB <D>,<..XX=P..XX!CM%HPP> 
  P0 IFNB <E>,<..XX=PP..XX!CM%DPP> 

Pp	EXP ..XX		

  Q IFNB <C>,<EXP Q0C>
   IFB <C>,<QPEXP 0>

   IFNBQp <D>,<POINT 7,[ARSCIZ \D\]>
   IR0FB <D>,<0>

SRP IFNB <E>,<POINTRp 7,[ASCIZ \E\]>
S0IFB <E>,<0>



   IFB <ISP>,<0>
   IFNB <SpI>,<EXP I>

  T IFB <J>,<0>
  T0 IFNB <J>,<EXP TPJ>

   IFB <H>Tp,<0>
   IFNB <HU>,<EXP H>

   U0IFB <G>,<0>
   UPIFNB <G>,<EXP G>

G>,<EXP Ga +)"ZLSH A,^D9LSH A,^D9a+= 5a;&  	0Q
	 IFB  <	9B>,<..STR0(..PNT	X,,<FWMASK>,A)>
	x	 IFNB <B>,<..ST
R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm /1"}<POINT WID/Q(B),A,POS(B)>B),A,POS(B)>a?H6 +a? -!"j<^L<<A>&<-<A>>>><<A>&<aJNh6P aJ}Ks q) (

	SALL	qI			
	LSTOF. XCREqhF			

	LOC 0			r
	ASCIZ \
COPYRr(IGHT (c) DIGITAL rHEQUIPMENT CORPORArhTION 1975,1988.
sALL RIGHTS RESERVs(ED.
\				
	RELOsHC			

	%%.GLX==sh%%.GLX			


	ItFNB <A>,<%%.MOD=t(=SIXBIT/A/> 
	ItHFNB <B>,<%%.OTS=th=SIXBIT/B/> 

u	GLOB	I%INIT			
u(
	TOPS10	<			
	uH	SEARCH	UUOSYM		
		%%UUOS==%%UUOSv		
	>				

	TOv(PS20	<			
		SEARvHCH	MONSYM		
;		%vh%MONS==%%MONS		
w	>				

	IFB <w(B>,<			
		.TEXT	wH|,REL:GLXLIB/SEARwhCH/REQUIRE:I%INITx|
		DEFINE	$DATAx( (NAM,SIZ<1>),< 
			NAM:	BLOCK	SIxhZ
		>			
		DEFIyNE	CDO (X),<GLOB y(X> 
		LIBVEC			
	>				

	IFNB yh<B>,<IFDIF <B><zINI>,< 
		IFN GLz(XPURE,<.PSECT .HIzHGH.> 
		IFE GLXPzhURE,<		
			TWOSE{G	400000	
			REL{(OC	0	
			RELOC	4{H00000	
		>			
{h
		DEFINE $DATA(N|AM,SIZ<1>),< 
		|(	IFN GLXPURE,<.PS|HECT DATA> 
			IF|hE GLXPURE,<RELOC>} 
			IFNDEF B%D}(,<B%D::! B%DL==}H:0>
			NAM:	BLOC}hK	SIZ
			B%DL==~:B%DL+SIZ 
			I~(FN GLXPURE,<.ENDP~HS DATA> 
			IFE ~hGLXPURE,<RELOC> 
		>			

		IFDI(F <B><OTS>,<	
	H		DEFINE	CDO (X),h<GLOB X> 
			LIBVEC		
		>			

(	>>				

	IFNB H<B>,<IFIDN <B><hINI>,< 
		DEFINE	$DATA (NAM,SIZ<1(>),< 
			NAM:	BLHOCK	SIZ
		>			
h	>>				

	LSTON.				

	GLOB	<.(POPJ, .RETT, .RETHF>	
	OPDEF	$RET	h[POPJ	P,]	
	OPDEF	$RETT	[PJRST	.R(ETT]	
	OPDEF	$REHTF	[PJRST	.RETF]	h
	OPDEF	$RETIT	[JUMPT	.POPJ]	
	O(PDEF	$RETIF	[JUMPHF	.POPJ]	
	.NODDhT	$RET,$RETT,$RETF,$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"@ VQ-E
	IFN <<.Vq.TA>&B>,<PRINTXW ?Initial field nW0ot zero in $SET>
	Wp..TVAL==<C>
	X..TMSK==<B>
	  ..TA==..TA!X0<FLD(..TVAL,..TMSXPK)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@da>&C.SWIT+PDBCPY##C.SWIT+PDBg$tkQB@g$uP'g$uh6Q  g&t{ g8IFE C.GALA,IFE C.GALAg.N	@ 6@g.N
.SPID	(SG9P.QSR,.IPCPQ,.SPQGXSR,QUASAR)	
.SPIGxD	(SP.OPR,.IPCPO,H.SPOPR,ORION)	
.H8SPID	(SP.INF,.IPCHXPI,.SPINF,INFO)	
.SPID	(SP.MDA,.IIPCPM,.SPMDA,MDA)	I8
.SPID	(SP.NEB,,IX.SPNEB,NEBULA)		
TOPS10<
.SPID	(JSP.IPC,.IPCPS,,IPJ8CC)		
.SPID	(SP.JXACT,.IPCPA,,ACTDAJxE)		
.SPID	(SP.TKLP,.IPCPT,,TAPLABK8)		
.SPID	(SP.TOKXL,.IPCPC,,TAPAVR)Kx		
.SPID	(SP.DOLL,.IPCPD,,DSKAVR)	L8	
.SPID	(SP.FIL,LX.IPCPF,,FILDAE)		
>
,FILDAE)		gR^h9 Q)-
	..STKR=q=10		
	RADIX 8
	..STKN==0
	IRP 0A,<
	  .STKV1 (PA)>
	$CALL	.STKpST
	 ..STKN,,..STKN
	RADIX ..STK0R
	PURGE ..STKN,P..STKR,..STKQ
   TKR,..STKQ
  gR~)  9q+U
	IFNB <:C>,<..STR0 (..DPB:0,A,C,B)>
	IFB:P  <C>,<MOVEM A,B>>,<MOVEM A,gV J1$S..AS(A,B,SUB,ADD)(A,Bgg

V I 2
	IFNB <iB>,<TOPS10<A==B>>
	IFNB <C>,<T(OPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( .iBvIFN FTUUOS,
SB)lsP
i?4H /)BzIFN FTJSYS,SBal}PiD p)/

  IFNBpI	<A>,<.TQCHA==^phD<B>B17+ZZ>
  IqFNB 	<D>,<DEFINEq( ..TQMA<D>>
  qHIFNB	<C>,<.TQC=qh=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, f).~
	LSTOF.
	TQ(T,2,ASCIZ)		fh	
	TQ(O,2,OCTAL)g			
	TQ(D,2,DECIg(MAL)			
	TQ(F,2,gHFILE)			
	TQ(7,2gh,CSEVEN)			
	TQ(h6,2,CSIXBIT)			
h(	TQ(W,2,SIXBIT)		hH	
	TQ(5,2,SVNBIThh)			
	TQ(P,2,USEiR)			
	TQ(U,2,DIi(RECTORY)			
	TQ(iHH,2,DAYTIME)			
ih	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		j(	
	TQ(I,1,INDIREjHCT)		
	TQ(M,0,CRjh,..TXC0(\".CHCRT)k)	
	TQ(J,0,LF,..k(TXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCkh0(\".CHFFD))	
	TlQ(K,0,VT,..TXC0(\l(".CHVTB))	
	TQ(AlH,0,NOCRLF,..TXA(.lhTQCHA))	
	TQ(0,0m,NULL,..TXA(.TQCHm(0))	
	TQ(3,0,STRmHING,..TXER(IQU))	mh
	TQ(V,2,VERSIONn)			
	TQ(2,0,CARn(ET,..TXER(IQU))	
	TQ(Q,2,POINTER)nh			
	TQ(B,2,ROB)o			
	TQ(1,2,OBJEo(CT)			
	TQ(N,2,NoHODE)			
	TQ(R,2,ohJIB)			
	LSTON.
)			
	LSTON. Y;f
	LSTOF.
	X(33,TTY33,33,)7y				
	X(35,TTY3589,35,)				
TOPS208<
	X(37,TTY37,378a,)				
	X(EXECUP9ORT,EXEC,EXE,)			9 
>
TOPS10<
	X(9@LA120,LA120,L12,)9`			
>
	X(LA36,L:A36,L36,)			
	X(: VT05,VT05,V05,<37:@,177,177,177>)	
:`	X(VT100,VT100,10;0,<.CHESC,"[","K"; >)	
	X(VT50,VT50;@,V50,<.CHESC,"J">;`)		
	X(VT52,VT52<,V52,<.CHESC,"J">< )		
TOPS10<	X(VT<@61,VT61,V61,<.CHE<`SC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ )_
	..TRR==110		
	RADIX 8
	P..NV==1			
	IRP pA,<
	  .TRV1 (A)>		
	$CALL	.TR0SET		
	 ..NV-1,,P..NV-1
	RADIX ..pTRR		
	PURGE ..TRR,..NVURGE ..Tib c1&
		..TX(C,A,<B>)..TX(Cib dq&'
		..TX(CA,A,<B>).TX(CibP cq&
		..TX(CE,A,<B>).TX(Cib` d1&#
		..TX(CN,A,<B>).TX(Cibp ]1%k
		..TX(N,A,<B>)..TX(Nibt ^q%w
		..TX(NA,A,<B>).TX(NibtP ]q%o
		..TX(NE,A,<B>).TX(Nibu` ^1%s
		..TX(NN,A,<B>).TX(Nibx _1%{
		..TX(O,A,<B>)..TX(Oib| `q&
		..TX(OA,A,<B>).TX(Oib|P _q%
		..TX(OE,A,<B>).TX(Oib}` `1&
		..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 a1&
		..TX(Z,A,<B>)..TX(ZicT bq&
		..TX(ZA,A,<B>).TX(ZicTP aq&
		..TX(ZE,A,<B>).TX(ZicU` b1&
		..TX(ZN,A,<B>).TX(Zm:7 d9)
	IFG  <dYAMAN-ADEV>,<AEDdxT==:AMAN>
	IFLEe <AMAN-ADEV>,<AEDT==:ADEV>
mKc@ eY/BYTE (3)AeyWHO (9)AVER (6)AMIN (18)AEDTotkP ouxZP o&  ,a"f<^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 7;9
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +

q+= +
q6~i4 C q? nq&w
	TXC A,<B>
	TXC A,q@ iANIFB <C>,<iaA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up C,
	IFNB <C1B>,<..STR1 (..TQZCP,,<B>,A,..STR4)Cp>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z %AB<
	.$RESET%a
	$TYPE (.CMACT)&
	$HELP (<>)
	$& NEXT (A)
IFIDN &@<B> <>,< IRP C,&`<C>
			.$BUILD>'
IFDIF <B> <>,<' 
	$HELP (B)
	I'@RP C,<C>
	.$BUILD><C>
	.$BU	0 _5}
.WTOX.(.OM_9ACK,<A>,<B>,<C_X>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 `9>DEFINE .$R`YTN <A>
			.%RTN==1A>
			.%RTN	fI9 [9=]DEFINE .$L[YST <A+1>
			.%LST==11>
			.%L	
=Z GQ,E
	  IFG GqA-INT.LV,<PRINTX H?Level A interruH0pts not supportedHP>
	  .BGINT.(\A)   .BGINT.(\A	X5 ]Y=oDEFINE .$B]yREA <A>
			.%BREA==1>
			.%BR	- J1,c
	  IFDEFJQ ..BSIZ,<PRINTX ?JpMissing $EOB afteKr a $BUILD>
	  .K0.BSIZ==0			
	  .KP.BLOC==.			
	  RKpEPEAT A,<			
		LBLD0.(\..BSIZ,0)	L0
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 A@z
	.$RESETa
	$TYPE (.CMCMA)
	$NEXT (A)
	I RP B,<B>
	.$BUILD,<B>
	.$BU	I@ @\
	.$RESET!
	$TYPE (.CMCFM)@
	IRP A,<A>
	.$BUILD,<A>
		$^ AAD
	.$RESETa
	$TYPE (.CMTXT)
	$HELP (<>)
	$ NEXT (A)
IFIDN @<B> <>,< IRP C,`<C>
			.$BUILD>
IFDIF <B> <>,< 
	$HELP (B)
	I@RP C,<C>
	.$BUILD><C>
	.$BU	I  AP
	.$RESET!
	$TYPE (.CMTAD)@
	$PDATA (CM%IDA`)
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$B	,,U IQ,O
	  $RET	Iq			;WILL INVOKE RIGHT ROUTINE
		,h: YY=QDEFINE .$DYyEFM <POINT 7,[ASCZIZ\A\]>
			.%DEFM==1>
			.%DE	.` AA0
	.$RESETa
	$TYPE (.CMDEV)
;**;[323]At DEF INE $DEV +3L chan@ge the $DEV macro` to by pass the : check
	$FLAGS ( CM%PO!CM%NSF)	;[3@23]By pass : chec`k
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$B	Lz: yA?^
	.$RESETya
	$TYPE (.CMNUX)z
	$PDATA (B)
	z $HELP (<>)
	$NEXz@T (A)
IFIDN <Cz`> <>,< IRP D,<D{>
			.$BUILD>
I{ FDIF <C> <>,<
	{@$HELP (C)
	IRP {`D,<D>
	.$BUILD><D>
	.$BUILD	N

@f
	.$RESET

!
	$TYPE (.CMDIR)

@
	$NEXT (A)
	I

`RP B,<B>
	.$BUILD,<B>
	.$BU	|  Q1-'
	  IFNDEQQF ..BSIZ,<PRINTX Qp?$EOB without preRvious $BUILD>
	 R0 IFN <.-..BLOC>,<RPPRINTX ?Address cRphange between $BUSILD and $EOB>
	 S0 LSTOF.			
	  ..SPT==0
	  REPEAT .Sp.BSIZ,<
	    BLDT0.(\..T,1)		
	  T0  ..T==..T+1 >
	TP  PURGE ..BSIZ,..TpT,..BLOC	
	  LSTON.
		
	  LST	+y \y=iDEFINE .$E]RTN <A>
			.%ERTN==1>
			.%ER	, ^9=uDEFINE .$E^YRTN <1B0+A+1>
			.%ERTN==1>
		- _=DEFINE .$E_9RTN <[MOVEI S2,[A_XSCIZ\A\]
				  _x    $RETF]>
			.%ERTN==1>
			.	H6 [)-b
	$CALL	.[ISTOP
	LSTOF.
	J[hUMP	[XWD 0,[ITEXT\ (<A>)]
		 EXP \(%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ A@T
	.$RESETa
	$TYPE (.CMFLD)	
	$NEXT (A)
	$	 HELP (<>)
IFIDN 	@<B> <>,< IRP C,	`<C>
			.$BUILD>

IFDIF <B> <>,<
 
	$HELP (B)
	I
@RP C,<C>
	.$BUILD><C>
	.$BU	MI  @@
	.$RESET!
	$TYPE (.CMFIL)@
	$HELP (<>)
	$`NEXT (A)
IFIDN <B> <>,< IRP C, <C>
			.$BUILD>@
IFDIF <B> <>,<`
	$HELP (B)
	IRP C,<C>
	.$BUILD><C>
	.$BU	dy Vy=9DEFINE .$FWLGS <A>
			.%FLGS==1>
			.%FL	ex: A
	.$RESET!
	$TYPE (.CMFLT)@
	$HELP (<>)
	$`NEXT (A)
IFIDN <B> <>,< IRP C, <C>
			.$BUILD>@
IFDIF <B> <>,<`
	$HELP (B)
	IRP C,<C>
	.$BUILD><C>
	.$BU	$ Z9-V6p
	  INTERZiN A
	  $DATA(A,<B>)
	ATA(AC7-O1	"
	IFDIF <XYA> <>,<
DEFINE Xx.$HLPM <POINT 7,[YASCIZ\A\]>
			.%HLPM==1>
			.	&5 @
	.$RESET!
	$TYPE (.CMIFI)@
	$HELP (<>)
	$`NEXT (A)
IFIDN <B> <>,< IRP C, <C>
			.$BUILD>@
IFDIF <B> <>,<`
	$HELP (B)
	IRP C,<C>
	.$BUILD><C>
	.$BU	&u aA
	.$RESET
	$NEXT (A)
	$ TYPE (.CMINI)
	I@RP B,<B>
	.$BUILD,<B>
	.$BU	./ u!?2
	.$RESETuA
	$TYPE (.CMKEY)u`
	$PDATA (B)
	v$NEXT (A)
	IRP v C,<C>
	.$BUILD,<C>
	.$BUILD	./ sa?&
	.$RESETt
	$TYPE (.CMKEY)t 
	$PDATA (A)
	t@$NEXT (0)
	IRP t`B,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDfy69.WTOX.(.OMgWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p f63.WTOX.(.OMf9LOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV "aB(
	.$RESET#
	$TYPE (.CMNOD)# 
	$HELP (<>)
	$#@NEXT (A)
IFIDN #`<B> <>,< IRP C,$<C>
			.$BUILD>$ 
IFDIF <B> <>,<$@
	$HELP (B)
;	$`$FLAGS (CM%PO)
	%IRP C,<C>
	.$BUILD><C>
	.$B	:}r |!?l
	.$RESET|A
	$TYPE (.CMNOI)|`
	$PDATA (<POINT} 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR}@P C,<C>
	.$BUILD,<C>
	.$BUI	;-XR va?H
	.$RESETw
	$TYPE (.CMNUM)w 
	$PDATA (B)
	w@$HELP (<>)
	$NEXw`T (A)
IFIDN <Cx> <>,< IRP D,<Dx >
			.$BUILD>
Ix@FDIF <C> <>,<
	x`$HELP (C)
	IRP yD,<D>
	.$BUILD><D>
	.$BUILD	>5 A@,
	.$RESETa
	$TYPE (.CMOFI)
	$NEXT (A)
	$ HELP (<>)
IFIDN @<B> <>,< IRP C,`<C>
			.$BUILD>
IFDIF <B> <>,< 
	$HELP (B)
	I@RP C,<C>
	.$BUILD><C>
	.$BU	B$ WY=?DEFINE .$DWyATA <A>
			.%DATA==1>
			.%DA	B$YP ZY=WDEFINE .$DZyEFM <POINT 7,<A>>
			.%DEFM==1	CYT a>DEFINE .$Da9EFR <A>
			.%DEFR==1>
			.%DE	F

:` `6%
	SKIPA		`9	;[323]Skip over `Xthe skip return
`x	JRST	g		;[323]Maake the macro skia8pable

	SKIPN	GaX$NEBF		;[323]Remoaxte?
	JRST	f		;[b323]No
	.QWTO.(.b8OMACK,<A>,<B>,<bXC>,<D>,<$WTFLG(bxWT.SJI),E>)
;**c;[324]change 1 lic8ne in the $QACK mcXacro  JYCW  11/23cx/88
f:	.WTOX.(.dOMACK,<A>,<B>,<d8C>,<D>,<$WTFLG(dXWT.SJI),E>)
g:!
I),E>)
g:	G-} AA|
	.$RESETa
	$TYPE (.CMQST)
	$HELP (<>)
	$ NEXT (A)
IFIDN @<B> <>,< IRP C,`<C>
			.$BUILD>
IFDIF <B> <>,< 
	$HELP (B)
	I@RP C,<C>
	.$BUILD><C>
	.$BU	G>K` Z5o
	SKIPA		Z9	;[323]Skip over ZXthe skip return
Zx	JRST	g		;[323]M[ake the macro ski[8pable

	SKIPN	G[X$NEBF		;[323]Mess[xage originate rem\otely?
	JRST	f	\8	;[323]No
	.QWTO\X.(.OMWTO,<A>,<B\x>,<C>,<E>,<$WTM]FL(MF.WTO),D>)
]8f:	.WTOX.(.OMWTO]X,<A>,<B>,<C>,,]x<D>) ;[323] no.
g:!
23]no.Y-M
	  $CALLY9	.RETE			
		LSTOYXF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  $1+!
	.NVR==0$Q			
	.ACM==0			

	IRP A,<		
	%	..TSAC(.ACB,A)	%0	
		IFN .ACB,<.A%PCM==.ACM!1B<A>>	%p
		IFE .ACB,<			&
		IFE .NVR,<			&0
		    CAIA			
&P		    LSTOF.
		 &p   JRST b>
		  '..PUSH(A,\<.NVR+'01>)>>	

	IFN .A'PCM,<	
	    IFE <'p.ACM-17B<T4>>,<.A(CM==0
				$CALL (0.SAVET>
	    IFE(P <.ACM-377B<.A16>(p>,<.ACM==0
				$)CALL .SAVE8>
	  )0  IFE <.ACM-17B<P)P4>>,<.ACM==0
			)p	$CALL .SAVE4>
	*    IFE <.ACM-7B<*0P3>>,<.ACM==0
		*P		$CALL .SAVE3>
*p	    IFE .NVR,<	
	    IFE <.ACM-3+0B<P2>>,<.ACM==0
+P				$CALL .SAVE2>+p
	,0  IFE <.ACM-,1B<P1>>,<.ACM==0
				$CALL .SAVE1,P>
	    IFE <.ACM,p-1B<.A13>>,<.ACM=-=0
				$CALL .SV-013>
	    IFE <.A-PCM-1B<.A14>>,<.AC-pM==0
				$CALL ..SV14>
	    IFE <.0.ACM-1B<.A15>>,<..PACM==0
				$CALL.p .SV15>
	    IFE/ <.ACM-1B<.A16>>,/0<.ACM==0
				$CA/PLL .SV16>
	    >/p>

	IFN .ACM,<	0
	    IFE .NVR,<00			
		CAIA			
	0P	LSTOF.
		JRST 0pb>

	    .ACB==10			
	REPEAT ^D1106,<			
	    IFN 1P<.ACM&1B<.ACB>>,<1p	
		..PUSH(\.ACB2,\<.NVR+1>)>
		.20ACB==.ACB+1>>		
2P
	IFN .NVR,<	
	2p    PUSH P,[[CAIA3		
		     AOS -.30NVR(P)	
	    REP3PEAT .NVR,<..POP(\3p.NVR)>	
		     P4OPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ Lq,w
	  IFNDEMF ..BSIZ,<PRINTX M0?$SET without preMPvious $BUILD>
	 Mp IFNB <B>,<..STRN0 (..SET,<C>,B,N0A)>
	IFB  <BNP>,<..STR0 (..SET,Np<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
-!	XWD b-1,b-1
	-@DEFINE $ETAB <
		b==.-a> <
		O%| _I.
S..A::!_i	$CALL .STOP
		L`STOF.
		JUMP [XW`(D 'A',[ITEXT (<`HB>)]
			EXP %%.MOD]
		LSTON.	M	O= A@
	.$RESETa
	$TYPE (.CMSWI)
	$PDATA (A)
	 $NEXT (0)
	IRP @B,<B>
	.$BUILD,<B>
	.$BUILD	O= ~?x
	.$RESET~!
	$TYPE (.CMSWI)~@
	$PDATA (B)
	~`$NEXT (A)
	IRP C,<C>
	.$BUILD,<C>
	.$BUILD	R

@ Ah
	.$RESET!
	$TYPE (.CMTAD)@
	$PDATA (<CM%ID`A!CM%ITM>)
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	Ta)%TEXT
	LSTOF.	XCaHREF
	JUMP	[XWD 2ah,0
		 EVL (A)
b		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESETa
	$TYPE (.CMTAD)
	$PDATA (CM%ITM )
	$NEXT (A)
	@IRP B,<B>
	.$BUILD,<B>
	.$B	R}97 (BJ
	.$RESET(!
	$TYPE (.CMTOK)(@
	$PDATA (<POINT(` 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR) P C,<C>
	.$BUILD,<C>
	.$BUI	S u	/


  ..TXtA(.TQA,C,D,E,r)B)	
      IFN .ri.TXEF,<			
	..TErIRR<$TQ(A,B,C,D,E)>>

C,	S@I9 y0
	LSTOF.


	X(UQU,Unknown q

8ualifier)
	X(IQU

X,Invalid qualifie

xr)
	X(IJA,Invalion a
	X(IWA, width arg
	X(PEA,Premature end of ar8gument)
	X(JNA,JXustification is nxot allowed)
	X(ANA,Arguments are 8not allowed)
	X(XADS,Address must xbe specified)
	LSTON.
ied)
	L	SN	  V=3DEFINE .$TV9YP <A>
			.%TYPE==1>
			.%TYP	W=  B
	.$RESET !
	$TYPE (.CMUQS) @
	$HELP (<>)
	$ `NEXT (A)
	$PDAT!A (B)
IFIDN <C! > <>,< IRP D,<D!@>
			.$BUILD>
I!`FDIF <C> <>,<
	"$HELP (C)
	IRP " D,<D>
	.$BUILD><D>
	.$BUILD	W\@ 
	.$RESET
	$TYPE (.CMUSR)
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ \i-x
IFE %%.O]	TS,<DEFINE $WARN ]((MSG) <
		$TEXT ]H(T%TTY,<% ^W6/[%%]h.MOD]/ MSG>)>>
I^FN %%.OTS,<DEFINE^( $WARN (MSG) <
	^H	$TEXT (T%TTY,<% ^h^W6/IIB+IB.PRG/ ^_W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r L4s
		IFB	<L9A>,<.WFACD==0
		LX	IFN <0-2>,<.$WACLxD==0>>
		IFNB	<MA>,<.WFACD==-1
	M8		IFN <0-2>,<.$WAMXCD==.$WACD!<A>>
			IFE <0-2>,<DENFINE .$WACD,<<WO.N8ACD>B8+[ITEXT (<A>)]>>
		>
<	_$u A4
		IFB	<A9A>,<.WFACK==0
		AX	IFN <0-2>,<.$WACAxK==0>>
		IFNB	<BA>,<.WFACK==-1
	B8		IFN <0-2>,<.$WABXCK==.$WACK!<A>>
			IFE <0-2>,<DECFINE .$WACK,<<WO.C8ACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ 2y5G
	IFE	<.W3FMTY>,<PRINTX ?No38 message type in 3X$WTBLD>
DEFINE .3xEAWTO(SUFFIX,ARGC4OD),<
IFN .WF'SU48FFIX',<
	IFE	<AR4XGCOD-0>,<<WO.'SUF4xFIX'>B8+ .$W'SUFF5IX'>
	IFE	<ARGCO58D-1>,<<WO.'SUFFIXWx'>B8+ [EXP .$W'SUXFFIX']>
	IFE	<ARX8GCOD-2>,<.$W'SUFFXXIX'>
>
>
	ALLWXxTO				
	EXP	0			
		
	EXP	0				_$k Cy41
		IFB	<DA>,<.WFFLG==0
		D8	IFN <1-2>,<.$WFLDXG==0>>
		IFNB	<DxA>,<.WFFLG==-1
	E		IFN <1-2>,<.$WFE8LG==.$WFLG!<A>>
			IFE <1-2>,<DEExFINE .$WFLG,<<WO.FFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W I94]
		IFB	<IYA>,<.WFJBN==0
		Ix	IFN <0-2>,<.$WJBJN==0>>
		IFNB	<J8A>,<.WFJBN==-1
	JX		IFN <0-2>,<.$WJJxBN==.$WJBN!<A>>
			IFE <0-2>,<DEK8FINE .$WJBN,<<WO.KXJBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV QY5
		IFB	<QyA>,<.WFMFL==0
		R	IFN <1-2>,<.$WMFR8L==0>>
		IFNB	<RXA>,<.WFMFL==-1
	Rx		IFN <1-2>,<.$WMSFL==.$WMFL!<A>>
			IFE <1-2>,<DESXFINE .$WMFL,<<WO.SxMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] 63C
		IFB	<69A>,<.WFMTY==0
		6X	IFN <0-2>,<.$WMT6xY==0>>
		IFNB	<7A>,<.WFMTY==-1
	78		IFN <0-2>,<.$WM7XTY==.$WMTY!<A>>
			IFE <0-2>,<DE8FINE .$WMTY,<<WO.88MTY>B8+[ITEXT (<A>)]>>
		>
<	_%j T955
		IFB	<TYA>,<.WFNHD==0
		Tx	IFN <0-2>,<.$WNHUD==0>>
		IFNB	<U8A>,<.WFNHD==-1
	UX		IFN <0-2>,<.$WNUxHD==.$WNHD!<A>>
			IFE <0-2>,<DEV8FINE .$WNHD,<<WO.VXNHD>B8+[ITEXT (<A>)]>>
		>
<	_%kr FY4G
		IFB	<FyA>,<.WFNOD==0
		G	IFN <0-2>,<.$WNOG8D==0>>
		IFNB	<GXA>,<.WFNOD==-1
	Gx		IFN <0-2>,<.$WNHOD==.$WNOD!<A>>
			IFE <0-2>,<DEHXFINE .$WNOD,<<WO.HxNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p Y95M.WTOX.(.OMYYWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU >94
		IFB	<>YA>,<.WFOBJ==0
		>x	IFN <0-2>,<.$WOB?J==0>>
		IFNB	<?8A>,<.WFOBJ==-1
	?X		IFN <0-2>,<.$WO?xBJ==.$WOBJ!<A>>
			IFE <0-2>,<DE@8FINE .$WOBJ,<<WO.@XOBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr Ny5	
		IFB	<OA>,<.WFOCD==0
		O8	IFN <0-2>,<.$WOCOXD==0>>
		IFNB	<OxA>,<.WFOCD==-1
	P		IFN <0-2>,<.$WOP8CD==.$WOCD!<A>>
			IFE <0-2>,<DEPxFINE .$WOCD,<<WO.QOCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ e6-.WTOX.(.OMe9WTO,<A>,<B>,<CeX>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ ^95u
.WTOX.(.OM^YWTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z 5Y59
	DEFINE	5y.EAWTO(SUFFIX),<$WWT'SUFFIX'	<>>
	ALLWTO				

		_&N ;Y3o
		IFB	<;yA>,<.WFTXT==0
		<	IFN <2-2>,<.$WTX<8T==0>>
		IFNB	<<XA>,<.WFTXT==-1
	<x		IFN <2-2>,<.$WT=XT==.$WTXT!<A>>
			IFE <2-2>,<DE=XFINE .$WTXT,<<WO.=xTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 8y3Y
		IFB	<9A>,<.WFTYP==0
		98	IFN <2-2>,<.$WTY9XP==0>>
		IFNB	<9xA>,<.WFTYP==-1
	:		IFN <2-2>,<.$WT:8YP==.$WTYP!<A>>
			IFE <2-2>,<DE:xFINE .$WTYP,<<WO.;TYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P .
P .JP .bP /P B&@P cGP )0 >09PZ6 ja?			

	dk==<FLD(.$TYP,CM%Fk NC)>!.$FLGS!<.$LSk@T> 

	IFN <.%BRk`EA>,<d==d!CM%BRlK> 

	IFN <.%HLl PM>,<d==d!CM%HPl@P!CM%SDH> 
					l`	

	IFN <.%DEFMm>,<d==d!CM%DPP>m  

c:!	XWD	b,m@a			

	EXP d	m`			

	EXP .$DATnA			

IFN <.%HLn PM!.%DEFM!.%BREA>n@,<
		EXP	.$HLPM>n`		


IFN <.%DEoFM!.%BREA>,<
		Eo XP	.$DEFM>		

o@
IFN <.%BREA>,<	Eo`XP	.$BREA>		

	pa==.-c			;LENGTp H OF THE FDB

Ip@FN <.%NXT!.%DEFR!p`.%RTN!.%ERTN>,< EqXP .$NXT >	

IFq N <.%DEFR!.%RTN!.q@%ERTN>,<EXP .$RTNq` >	

IFN <.%DEFrR!.%ERTN>,<	EXP	.r $ERTN>	

IFN <.r@%DEFR>,<		EXP	.$Dr`EFR>	


	b==.s-c			

	IF2<	Ps URGE a,b,c,d>
	LISTb,c,d>$YVbY>POINTR7,[ASCIZ\0\]NT 7,[A$YY >!0=bP.- >0bP5Iy >0lP2f= >0+1Pw
	SALL
	eAXLIST
	DEFINE .$e`TYP <0>
	.%TYPE=f=0
	DEFINE .$FLGf S <0>
	.%FLGS==0f@
	DEFINE .$DATA f`<0>
	.%DATA==0
g	DEFINE .$HLPM <>g 
	.%HLPM==0
	DEg@FINE .$DEFM <0>
g`	.%DEFM==0
	DEFIhNE .$LST <0>
	.%h LST==0
	DEFINE .h@$BREA <0>
	.%BREh`A==0
	DEFINE .$NiXT <0>
	.%NXT==0i 
	DEFINE .$ERTN i@<0>
	.%ERTN==0
i`	DEFINE .$RTN <0>j
	.%RTN==0
	DEFj INE .$DEFR <0>
	.%DEFR==0<0>
	K@>0;BP'q<k0T 1,i)0P $YVP $YYP .-P 5IyP f=P w
	   ..ASM1==-<B>	
	IFDEFM0 .PSECT,<
	.IFN MP..AS1,ABSOLUTE,<
	     C A,[-..NAS1]>	
	.IF ..ASN01,ABSOLUTE,<
		.NP.AS2==0	
	  IFE Np<..AS1&^O777777B1O7>,<
		..AS2==1	O0
	    DI A,..AOPS1>
	  IFE ..AS2Op,<
	    ..OP(A,PB,C)>	
	PURGE P0..AS1,..AS2>>
	IPPFNDEF .PSECT,<
	Pp	..AS2==0	
	  IFQE <..AS1&^O777777Q0B17>,<
		..AS2==QP1	
	    DI A,.Qp.AS1>
	  IFE ..ARS2,<		
	    ..OPR0(A,B,C)>
	PURGE ..AS1,..AS2>:h '
	A: ?q$K
	  ..CX1@==C
	IFDEF .PSE@0CT,<
 	.IFN ..CX@P1,ABSOLUTE,<
	  @p    CAMA B,[C]A>
	.IF ..CX1,ABSA1OLUTE,<	
		..CX2AP==0	
	  IFE <..CAqX1&^O777777B17>,<B
		..CX2==1	
	 B0   CAIA B,C>
BP	  IFE ..CX2,<		
	    CAMA B,[GC]>
	PURGE ..CX1G0,..CX2>>
	IFNDEFGP .PSECT,<
		..CXGp2==0	
	  IFE <..HCX1&^O777777B17>,H0<
		..CX2==1	
	HP    CAIA B,C>
	  IFE ..CX2,<		I
	    CAMA B,[I0C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ ;+e
	..TSIZ ;1(..PST,C)
	.CAS;PE ..PST,<<
		MOV;pEM A,B>,<
		HR<RM A,B>,<
		HR<0LM A,B>,<
		DP<PB A,[POINTR (B,C)]>>INTR (B,:<;Y Q)
   DEFINqE ..CNS2 (NEW,OLD)<
	  OLD>			
	..CNS ()>			
	:L;Y 1)
   DEFINQE ..CNS (%%%)<
	p..CNS2 <%%%>,>

   DEFINE ..CNS20 (NEW,OLD)<
	DEFPINE ..CNS (%%%)<
	  ..CNS2 <%%%>,<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ 7q+K
	..TSIZ 8(..PST,C)
	.CAS80E ..PST,<<
		MOV8PE A,B>,<
		HRR8pZ A,B>,<
		HLR9Z A,B>,<
		LDB90 A,[POINTR (B,C)]>>INTR (B,:}i1 wQ'?
	A==<<<wq-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ Rq%C
	  ..OP1S==B
	IFDEF .PSES0CT,<
 	.IFN ..OPSP1,ABSOLUTE,<
	  Sp    C A,[..OP1]T>
	.IF ..OP1,ABST0OLUTE,<	
		..OP2TP==0	
	  IFE <..OTpP1&^O777777B17>,<U
		..OP2==1	
	UU0   CI A,..OP1>
	  IFE ..OP2,<		Up
	    C A,[..OVP1]>
	PURGE ..OPV01,..OP2>>
	IFNDEVPF .PSECT,<
		..OVpP2==0	
	  IFE <.W.OP1&^O777777B17>W0,<
		..OP2==1	
WP	    CI A,..OP1Wp>
	  IFE ..OP2,<X		
	    C A,[.X0.OP1]>
	PURGE ..OP1,..OP2>GE ..;m 
Y0[
	..PST==
yC-FWMASK
	.IF0 ..PST,<
		POINT 80,B,35>,<
		POINTR (B,C)>POI;| 5Q+1
		POP P,5q.NVA
		PURGE .N6VA
		.NVR==.NVR-1
		.NVR==.NVR;\t 4Q+)
		PUSH P4q,A
		DEFINE .NV5B<A>
		.NVR==.NVR+1
		.NVR==.;] O1-
	  IFGE OQ<<<B>&777777>-..OpBSIZ>,<
		PRINTXP ?WORD offset greP0ater than $BUILD PPsize parameter>
Pp	  SET0. (\<B>,C,<A>)
	B>,;LH ~(
	IFNDEF ~1C,<PRINTX C IS ~PNOT DEFINED
	  ~pA (<B>,D,FWMASK)>	
	IFDEF C,<
	IFNDEF %C,<
	P  A (<B>,D,C)p>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH Q(?

	..NS==0q			
	IRP C,<..NS=..NS+1>	
	IFE 0..NS,<PRINTX ?EMPPTY STRUCTURE LISTp, A>
	IFE ..NS-1,<		
	  ..STR0 0(A,<B>,<C>,D)P>
	IFG ..NS-1,<	p	
	..ICNS			
	..CNS (<E (A,<B0>,,>) 
	IRP C,<P		
	  IFNDEF C,p<PRINTX C NOT DEFINED>
	  IFDEF 0C,<
	  IFNDEF %PC,<
	  ..CNS (<p,C,D>)>	
	  IFDEF %C,<
	  %C0 (..STR2,,D,C)>P 
	  ..CNS (<)>)p		
	  ..GCNS		
	  ..ICNS		
	  .0.CNS (<E (A,<BP>>) 
	  IFNDEF %pC,<
	  ..CNS (<,C,D>)>	
	  IF0DEF %C,<
	  %CP (..STR2,,D,C)>p>> 
	..CNS (<,,)>)		
	..GCNS>);LI 1(C
	..CNS (<,C,B>).CNS (;LI q(Y

	IFDIF <	D><F>,<
	  IFN	0B <D>,<
	    A	P (<B>,D,..MSK)		p
	    IFNB <F>,
<PRINTX C AND E
0 ARE IN DIFFERENT
P WORDS>>
	  ..MS
pK==0>		
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ Q(i

	IFDIF <qD><F>,<	
	  IF

NB <D>,<

0A (<B>,D,..MSK)

P>	
	  ..MSK==0>

p	
	IFNB <F>,<
	..MSK=..MSK!<E>>MSK=..MSK!<;LJ

	IFDIFF<<	
	  IFNB <D>,<
	    I0FNB <F>,<		
		PA1 (B,D,..MSK)>p 
	    IFB <F>,<		
		A2 (B,D0,..MSK)>> 
	  ..PMSK==0>		
	IFNB p<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y Y1
IF1,<
    PRINTX ? Err9or in "A"
    D	EFINE X(NAM,ERR) Y<IFN ..X'NAM&..TXxEF,<PRINTX ? ERR>>
    $TX$ERR>

    $TX$ERR>
;$^ y1O

    ..TXF==0				
    .8.TXB==0				
    X..TXP==0				
   x ..TXEG==<..TXEF==0>			
    IRPC 8A,<				
	..TXC=X=ASCII\A\-35		
	IFN ..TXB,<IFN ..TXB-..TXC,..CNS8(<A>)
		   IFE X..TXB-..TXC,..TXBx==0>
	IFE ..TXB,<..TXQ(<A>,\..TX8F)>>	
    ..TXC1X				
    IFN ..TxXB,<IFN <..TXB-"^">,<..TXER(PEA)>>8
    ..TXEF==..TXXEF!..TXEG		
   x IFN ..TXEF,<..TERR<A>>
,<..TE;&( wi/>..TXA(.TQCH0)..TXA(.TQC;&) xy/G..TXER(IQU)..TXER(IQU;&) x)/B..TXER(IQU)..TXER(IQU;&0 w)/:..TXA(.TQCHA)..TXA(.TQC;&5 ui/...TXC0(\".CHLFD).TXC0(\".;&5 vi/6..TXC0(\".CHVTB).TXC0(\".;&6 v)/2..TXC0(\".CHFFD).TXC0(\".;&6 u)/*..TXC0(\".CHCRT).TXC0(\".;&@ D1,9
	..TSIZ DQ(..PST,C)	
	.CADpSE ..PST,<<
		SEETZM B>,<	
		HLLE0ZS B>,<	
		HRRZEPS B>,<	
	  ..TSEpAC (..ACT,B)	
	F  .IF0 ..ACT,<
	F0	$CALL .ZERO	
		FPLSTOF.
		JUMP [PFpOINTR(B,C)]
		GLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 t'9
	IFNDEF t1.PSECT,<
	A==0	tP		
	..TSA1==<Z tpB>		
	  IFE ..TSuA1&^O777777777760u0,<A==1> 
	>
	IuPFDEF .PSECT,<
	upA==0			
	..TSA1=v=<Z B>		
	.IF .v0.TSA1,ABSOLUTE,<	vP
	  IFE ..TSA1&^vpO777777777760,<Aw==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= rQ'
	A==3		rq	
	IFE <B>+1,<sA=0>	
	IFE <B>-s0^O777777,<A==1> sP
	IFE <B>-^O777777B17,<A==2>7;' Xq&U
   ..TX1Y==C			
IFDEF .PY0SECT,<
   .IFN .YP.TX1,ABSOLUTE,<
Yp	TDA B,[C]>
 Z0  .IF ..TX1,ABSOLZUTE,<		
	..TX2==ZQ0		
	IFE <..TX1&Zq^O777777B17>,<
	[  ..TX2==1		
	  [0TRA B,..TX1>
	[PIFE ..TX2,<		
	I[pFE <..TX1&^O77777\7>,<
	  ..TX2==1\1		
	  TLA B,(.\P.TX1)>>
	IFE ..T\pX2,<		
	  IFE <<]..TX1>B53-^O77777e17>,< 
	    ..TX3eP (A,B)>>	
	IFEep ..TX2,<		
	  TDfA B,[..TX1]>	
f0	PURGE ..TX1,..TXfP2>>
IFNDEF .PSECfpT,<
	..TX2==0		
	IFE <..TX1&^O77g07777B17>,<
	  ..gPTX2==1		
	  TRAgp B,..TX1>
	IFE h..TX2,<		
	IFE <h0..TX1&^O777777>,<hP
	  ..TX2==1		
hp	  TLA B,(..TX1i)>>
	IFE ..TX2,<i0		
	  IFE <<..TXiP1>B53-^O777777>,<ip 
	    ..TX3 (Aj,B)>>	
	IFE ..Tj0X2,<		
	  TDA jPB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` k&k
	IFIDN <k1A><Z>,<		
	  ..kPTX2==1
	  ANDI kpB,^-..TX1>	
	IFIlDN <A><O>,<		
	l0  ..TX2==1
	lpORlPCMI B,^-..TX1>	
	IFIDN <A><C>,<m		
	  ..TX2==1
m0	  EQVI B,^-..TX1>QVI B,^-..TX;'  {0E

	..TXE{9F==0			

IFNDEF{X A,<..TXER(UQU)>{x		
IFDIF <B><>,|<IRPC B,<.IFN <|8B>,NUMERIC,..TXER|X(IWA)>>
IFNB <C|x>,<IFNDEF .TXTJC},<..TXER(IJA)>>
}8IFDEF  A,<
  IF}XE <A_-^D18>,<IFD}xIF <EFBCD><>~,<..TXER(ANA)>>
~8  IFE <1-<A_-^D1~X8>>,<IFDIF <BC~xD><>,<..TXER(JNA)>>
  IFE <2-<A_8-^D18>>,<IFIDN <XEF><>,<..TXER(ADxS)>>>

      IFE ..TXEF,<
	IFID8N <B><>,<..TXWD=X=<..TXJU==<..TXFCx==0>>>
	IFDIF <B><>,<
	  IFE <^8D<B>>,<..TXWD==<X..TXJU==<..TXFC==x0>>>
	  IFN <^D<B>>,<..TXWD==^D<8B>
	    IFNB <XC>,<..TXJU==.TXTJxC>
	    IFB  <C>,<..TXJU==.TXTJ8L
	      IFE <AX-.TQOCT>,<..TXJU=x=.TXTJR>
	X    IFE <A-.TQDEC>,<8..TXJU==.TXTJR>>
	    IFB  <D>,<x..TXFC==" ">
	    IFNB <D>,<..TX8FC=="D">>>

	IXFB  <EF>,<..TXPxT==0>
	IFNB <EF>,<..TXPT==1>
	8IFE <..TXWD+..TXPXT>,<
	    EXP FLxD(A,TXT.FN)>
	IFN <..TXWD+..TXPT8>,<
	    EXP FLDX(A,TXT.FN)+FLD(.x.TXJU,TXT.JU)+FLD(..TXWD,TXT.WD)+F8LD(..TXFC,TXT.FC)X+TXT.AD
	    PNTR(E,F)>>

T;'h +Y2i
    IFE +y..TXP,<			
	..IC,NS			
	..CNS<ASC,8IZ\>		
	..TXP==1,X>		
    ..CNS<A,x>			
    ..TXF==-0			
    ..TXB=="^"
    ..TXB==;'h -Y2u

    IF-yN ..TXP,<			
	...CNS<\>		
	EXP <F.8LD(.TQCHT,TXT.FN).X+[..GCNS]>>
    ..TXP==0>
    ;'	9 Y1#
    ..TXyEF==..TXEF!..XA		
    ..TXF==0		8		
    ..TXB=="^"
    ..TXB=="^;'

  91S..TXQB(<A>)..TXQB(<;'

( y1]

    IFN ..TXC-"^",<..TX8C0(<A>)>		
    XIFE ..TXC-"^",<..TXF==1>-"^",<..;'

( 1}

    IF9E ..TXC-"^",<..TXXC0(<A>)>	
    IxFN ..TXF,<			
	..TXF==0		
	IFDEF8 .TQCHA,<		
	  X  IFDEF ..TQMA,.x.TQMA 
	    IFN <.TQCHA_-^D18>,8<..TXF==2>>>
   X IFE ..TXF-2,<..TxXC1(<A>)	
	..ICNS			
	..CNS<..T8XA(.TQCHA,>>	
 X   ..TXEG==..TXEG!..TXEF==..TXEG;'

)  2
    ..TX 9F==3				
    IFG XE ..TXC-"0",IFLE  x..TXC-"9",<..TXF=!=2>
    IFE ..TX!8F-2,<..CNS(A)>		!X
    IFE ..TXF-3!x,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) "92#
    ..TX"YF==4				
    IFE"x ..TXC-"/",<..TXF#==5>		
    IFE .#8.TXC-"[",<..TXF==#X5>		
    IFE ..T#xXF-4,<..CNS<A,>>$		
    IFE ..TXF$8-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* $y29
    ..TX%F==4				
    IFE%8 ..TXC-"/",..TXF=%X=5		
    IFE ..T%xXC-"[",..TXF==5		&
    IFE ..TXF-5&8,<..CNS<,>		
		 &X..TXQ5<A>>		
  &x  IFE ..TXF-4,<..'CNS<A,>		
		 ..TXF==5>	
		 ..;'

* 'Y2K
    ..TX'yF==6				
    IFE( ..TXC-"/",..TXB=(8="/"		
    IFE .(X.TXC-"[",..TXB=="(x]"
    IFE ..TXB)-"]",..CNS<[>		
)8    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ )y2Y
    ..TX*F==0			
    IFE *8..TXC-"]",..CNS<]*X>	
    ..CNS<)>	*x		
    ..GCNS			+
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d   q*
	.ACV2 (A)
	.ACV2 (d@ !1*
	A=.FPA!QC+..NAC		
	IFB <!pB>,<..NAC=..NAC+"1>
	IFNB <B>,<..NAC=..NAC+B>.d` "Q*
	IFG A-"q.NPAC,<PRINTX ?TO#O MANY ACS USED>
	IFLE A-4,<
	##P $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z I,I$CALL	I%INTA$CALL	I%IN9  pQ'
	..CSN==pqA
	..CSC==0
	IqRP B,<
	IFE ..Cq0SN-..CSC,<
	  STqPOPI
	  ..CAS1 (qpB)>
	..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 A1,
	..PST==AQC-FWMASK
	.IF0 Ap..PST,<
		SOS BB>,<	
		$CALL .SOB0S	
		LSTOF.
		JBPUMP [POINTR(B,C)]
		LSTON.>C

TP } 25=
	.OPCD==WY.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 o1'
	..IFT==oQA		
	IFE ..IFT,op<
	B
	..IFT==0p>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H >1+}
	..PST==>QC-FWMASK
	.IF0 >p..PST,<
		AOS B?>,<	
		$CALL .AO?0S	
		LSTOF.
		J?PUMP [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	ky		
		JRST	h		
l		SKIPE	G$NEBF		
		JRST	g		
		$lXCALL	I%WTO		
		LlxSTOF.			
		JRST	mh		
		$WTRST			m8
	IFNB <A>,<$WTmXMTY (<A>)>	
	IFmxNB <B>,<$WTTYP (n<B>)>	
	IFNB <n8C>,<$WTTXT (<C>)nX>	
	IFNB <D>,<$nxWTOBJ (<D>)>	
	oIFNB <E>,<$WTACKo8 (<E>)>	
		IRP oXF,<F>		
		$WTBoxLD			

g:		$CApLL	I%WTO		
		JRSp8T	h		
		$WTRST	pX		
	$WTNHD(G$REMpxN)			
	IFNB <A>q,<$WTMTY (<A>)>	q8
	IFNB <B>,<$WTqXTYP (<B>)>	
	IFqxNB <C>,<$WTTXT (r<C>)>	
	IFNB <r8D>,<$WTOBJ (<D>)rX>	
	IFNB <E>,<$rxWTACK (<E>)>	
	s$WTMFL(MF.NEB)			s8
		IRP F,<F>		sX
		$WTBLD			

sx	h:!
	LSTON.  h:!
	LSTON.  J$*vP J&:=P JmLQ K%,z 0Q#<A>B<^D70-POS(B)>B<^D70N

0P O Ly<w
	IFG	A-NyMX.PID,<MX.PID==A>
C
G	A-OSP OYP Oi1P O|P OyP O%=H )1
	.STKV2 (A)
	.STKV2 O%=I Q)?
	IFB <Bq>,<..STKN==..STKN+1>
	IFNB <B>,<0..STKN==..STKN+BP>
	..STKQ==..STKpN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I 1)M
   IFDEFQ A,<.IF A,SYMBOpL,<PRINTX STKVAR A ALREADY DEFINE0D>>
	DEFINE A<-P^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

: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

: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  1)c
	.TRV2 (A)
	.TRV2 (Sd@ q)m
	.TRV3 (A,\..NV)	
	IFB 0<B>,<..NV=..NV+1P>
	IFNB <B>,<..NV=..NV+B>,<..Sd` ){
   IFDEF1 A,<.IF A,SYMBOPL,<PRINTX TRVAR pA ALREADY DEFINED>>
	DEFINE A<^O0B(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP VuLQ @Vv

TP ^%I7P _%~ gY6Y
		$CALL	gyI%WTO		
		LSTOF.h			
		JRST	g		
		$WTRST			
	IFhXNB <A>,<$WTMTY (hx<A>)>	
	IFNB <iB>,<$WTTYP (<B>)i8>	
	IFNB <C>,<$iXWTTXT (<C>)>	
	ixIFNB <D>,<$WTOBJj (<D>)>	
	IFNB j8<E>,<$WTACK (<EjX>)>	
		IRP F,<jxF>		
		$WTBLD			k
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP