Google
 
Trailing-Edge - PDP-10 Archives - BB-KL11J-BM_1990 - galsys/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' Pq5..AS(A,B,ADD,SUB)(A,BC, 2i3LSH A,-^D9LSH A,-^DC2f} 6CG
	.EAWTO(69MTY,0)
	.EAWTO(T6XYP,2)
	.EAWTO(TX6xT,2)
	.EAWTO(OBJ7,0)
	.EAWTO(ACK,780)
	.EAWTO(FLG,17X)
	.EAWTO(NOD,0)7x
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
88	.EAWTO(OCD,0)
	8X.EAWTO(MFL,1)
	.8xEAWTO(NHD,0)		

TO(NHD,0)		
C:' u17+
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ \1=i
	  IFE \QB,<..TA==0>
	  \pIFN B,<EXP ..TA]
		    PURGE ..TA>
	PURGE ..TE2&i1 j	.W/h
	IFIDN <j9E><C>,<EXTERNAL jXBMAN,BDEV>
	SIjxXBIT	/A/
	XWD	BMAN,BDEV
D	RRzEl}PE@tP'E@vyQ ~E@v:=Q |F:<P F;z:Q @G@ Iq4O
	    ..CX(,A,B)   ..CGD M14k
	    ..CX(A,A,B)  ..CGDP K14[
	    ..CX(E,A,B)  ..CGDp Kq4_
	    ..CX(G,A,B)  ..CGDy  L14c
	    ..CX(GE,A,B) ..CGE@ J14S
	    ..CX(L,A,B)  ..CGEI  Jq4W
	    ..CX(LE,A,B) ..CGE` Lq4g
	    ..CX(N,A,B)  ..CGH 0yK

	  LST0OF.

	X CRE	
	0YX GEN	
	X PRT	
/y	X CLS	
	X9AUT	
	X USW	
	X SPL	1
	X SIZ   
	X M18OD	
	X CHN	

	  LSTON.


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

zQ G:YlP 

G>vC@ sa/&LALL
PAGEt; (A Continued ot n next page)
SALt@L; (A Continued t`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  G<?
	IFNB <G1B>,<..STR0 (.DECRGP0,,<B>,A)>
	IFGpB  <B>,<SOS A>  <B>,<SOS A>I6= 18
	A==<-1QB<C>+1B<C-D>> p
	IF1,<IFDEF %A,<PRINTX ?A ALRE0ADY DEFINED>>
	DPEFINE %A (OP,AC,pY,MSK)<	
	IFDIF <Y><>,<
	OP (<AC0>,B+'Y,MSK)>
	IPFIDN <Y><>,<
	OPp (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 S15..OP(A,B,DIV)..OP(A,BIOH1 )ARV
	IFB <D)a>,<
	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 .9J{
	IF1,<IF.YDEF ERA$,PRINTX .x?Duplicate error /code A>
	ERA$=/8=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y tJo
	ERR	EOFt9,<End of file>
	tXERR	IFP,<Illegal txfile position>
	uERR	FDE,<File datu8a error>
	ERR	FNuXD,<File is not onux disk>
	ERR	FSM,v<File still mappev8d>			;[301]
	ERRvX	NSD,<No such devvxice>
	ERR	FCF,<Fwile checkpoint faw8iled>
	ERR	SLE,<wXA system limit wawxs exceeded>
	ERRx	IFS,<Illegal filx8e specification>
	ERR	FNF,<File nxxot found>
	ERR	PyRT,<Protection viy8olation>
	ERR	DNyXA,<Device not avayxilable>
	ERR	NCEz,<No "current" enz8try in list>
	ERzXR	NMA,<No IPCF mezxssage is availabl{e>
	ERR	FDS,<Fil{8es are on differe{Xnt structures>
	{xERR	FAE,<File alr|eady exists>
	ER|8R	USE,<Unexpected|X system error>
	|xERR	NSP,<No such }pid>
	ERR	BOL,<B}8eginning of list }Xreached>
	ERR	EO}xL,<End of list re~ached>
	ERR	RQF,~8<Receivers quota ~Xfull>
	ERR	SQF,<~xSenders quota full>
	ERR	NRE,<No 8remembered entry>X
	ERR	TBF,<Tablex is full>
	ERR	EIT,<Table entry a8lready exists>
	XERR	ITE,<Invalid xtable entry>
	ERR	QEF,<Quota exce8eded or disk fullX>
	ERR	ARG,<Invaxlid argument specified>
	ERR	IFN,8<Invalid functionX specified>
	ERRx	IJN,<Invalid job number specified8>
	ERR	RAD,<InvaXlid radix specifixed>
	ERR	NUM,<Invalid numeric arg8ument>
	ERR	IDT,X<Invalid date fiexld specified>
	ERR	ITF,<Invalid t8ime field specifiXed>
	ERR	DOR,<Daxte/time out of range>
	ERR	DTM,<V8alue missing in dXate/time>
	ERR	MxDD,<Missing day in date/time>
	ER8R	DFZ,<Field zeroX in date/time>
	xERR	MDS,<Mnemonic date/time switch8 not implemented>X
	ERR	DFL,<Fieldx too large in dat	e/time>
	ERR	ILR	8,<Illegal year fo	Xrmat in date/time	x>
	ERR	NND,<Nega
tive number in da
8te/time>
	ERR	NP
XF,<Not known whet
xher past or future in date/time>
8	ERR	RDP,<RelativXe date parse requxired>
	ERR	NSW,<

Switch does not b

8egin with slash>

X
	ERR	NOM,<Unreco

xgnizeddswitch or 
	ERR	NUdswitch>or
	ERR	INW,<Invalid guide word>
	ER8R	NC,<Not confirmXed>
	ERR	ICN,<Inxvalid character in number>
	ERR	N8QS,<Invalid quoteXd string - does nxot begin with quote>
	ERR	AMB,<Am8biguous switch orX keyword>
	ERR	NxMT,<Does not match token>
	ERR	CM8A,<Comma not giveXn>
	ERR	NNC,<Nodxe name may not exceed 6 characters8>
	ERR	INT,<NodeX terminator "::" xmust be specified>
	ERR	NSN,<Unkn8own node name>
	XERR	IPS,<Invalid xpath specification>
	ERR	IUS,<Inv8alid user specifiXcation>
	ERR	DGSx,<Device name may not exceed 6 cha8racters>
	ERR	DNXE,<Unknown devicex>
	ERR	DIO,<Device can not do inp8ut or output>
	EXRR	BDF,<Invalid dxate/time format>
	ERR	ABS,<Field 8too long for inteXrnal buffer>
	ERxR	TMT,<Command too long for intern8al buffer>
	ERR	XBDS,<Invalid defaxult string>
	ERR	BTF,<Invalid tab8le format>
	ERR	XTME,<Date/time muxst be in the future>
	ERR	TMN,<No8 timer entry has Xexpired>
	ERR	TMxA,<Timer entry already exists>
	E8RR	DVT,<Device teXrminator ":" mustx be specified>
	ERR	NCI,<Argument8 block may not beX in the ACs>
	ERxR	TLU,<Terminal location is unknow8n>
	ERR	FIO,<FilXe is offline>
	ExRR	FBM,<File being modified>
	ERR8	WLK,<Write-lockeXd device>
	ERR	CxSD,<Cannot supersede a directory>
	ERR	CDD,<CannotX delete a non-empxty directory>
	E RR	SNF,<Sub-file  8directory not fou Xnd>
	ERR	ESL,<Se xarch list is empt!y>
	ERR	LVL,<SFD!8 level nested dee!Xper than the maxi!xmum allowed>
	ER"R	CCW,<Cannot cre"8ate/write on any "Xstructure in sear"xch list>
	ERR	FC#U,<Cannot update #8file>
	ERR	ENQ,<#XFile has outstand#xing Enqueue locke$s set>
	ERR	SWS,$8<Software write-l$Xock on structure>$x
	ERR	DER,<Hardw%are device error>%8
	ERR	DTE,<Hard %Xdata error>
	ERR%x	BKT,<Block too l&arge>
	ERR	IPP,<&8Non-existant UFD>&X
	ERR	TRN,<RIB o&xr transmission er'ror>
	ERR	ILC,<I'8llegal character 'Xin date/time>
	E'xRR	NFT,<Date/time( must be in the f(8uture>
	ERR	NPS,(X<Date/time must b(xe in the past>
	)ERR	UDM,<Unrecogn)8ized month in dat)Xe/time>
	ERR	UDN)x,<Unrecognized na*me in date/time>
	ERR	IFA,<Illega*Xl file attribute>*x
	ERR	FAI,<File +attribute inconsi+8stancy>
	ERR	CEI+X,<Can't enable/di+xsable interrupt s,ystem>
	ERR	ENF,,8<Linked list entr,Xy not found>
	ER,xR	NSL,<No such li-nked list>
	ERR	-8NFP,<No free page-Xs>
	ERR	NPI,<No -xfree 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` iI>^
	IFIDN <iiBC><>,<EXP <A>j>
	IFDIF <BC><j(>,<
	 IFE <A+1>jH,<<POINT 7,C>>
jh	 IFN <A+1>,<
	k   IFIDN <C><>,<k(EXP <A,B>>
	  kH IFDIF <C><>,<EXkhP <A,B,C>>
	>>A,B,C>>
	>Kc  q!/

IRP A,<
qA	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  739<<<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|  r/IRP A,<
r!	IF2,<IFDEF A,<.r@IFN A,EXTERN,<INr`TERN A>>
	     sIFNDEF A,<EXTERNs  A>
	Q SUPPRESPA>>YSUPPRO3FX7P jQf@ +QfI@ <StLQ St\Yp Stkp SuZp Suh1Q SulQ Su}:p Sv
1p Sv

Sp Sv>9Q Sv>@p SNn Rq5..OP(A,B,IDIV).OP(A,BS7-N Qq5..OP(A,B,IMUL).OP(A,BS:  D<'
	IFNB <D1B>,<..STR0 (.INCRDP0,,<B>,A)>
	IFDpB  <B>,<AOS A>  <B>,<AOS A>S;k 9Q3M<<<A>B<POS(<B>)>>&<B>>S;!kP S;!k<P S? tq7'
	TXO A,<B>
	TXO A,S@,9QQ @S@,9QP S@,9RP `S@,9VP S@,9XP$S@,9YQ S@,9YQ  S@,9[P"[email protected]Q S@t,:P'S@t9QQ @S@t9QP S@t9RP `S@t9VP S@t9XP$S@t9YQ S@t9YQ  S@t9[P"S@t:P S@u-xQ  S@u[XQ xS@v

tQ @S@v,:P S@v,rQ S@v<Q S@v<Q S@v<Q xS@v<:P'~S@v=Q  S@vMQ 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.	lIXCREF
	..TEXT<Alh>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ yK5

	  LST2OF.

	X JNO,.JI28JNO,<-1,,GJBJNO>	2X
	X TNO,.JITNO,<2x-1,,GJBTTY>	
	X 3USR,.JIUNO,.GTPPN38		
	X CDN,.JIDNO3X,<-1,,GJBPTH>	
	3xX PRG,.JIPNM,.GTP4RG		
	XXCJN,.JIC48PJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.G4xTOBI		
	X JLT,.J5ISTM,.GTJLT		
	X58 LOC,<-1,,GJBLOC>5X,<-1,,GJBLOC> 
	5xX RTM,.JIRT,<-1,,6GJBRTM>	
	X TLC,68<-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$vKP!U$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 )3

	  LSTIOF. XCREF

	CDOh	OTSINI			
	CDO	    			
	CDO	.ZP(AGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CDhO	.SAVE1
	CDO	.SAVE2
	CDO	.SAVE3(
	CDO	.SAVE4
	CHDO	.SAVET
	CDO	.hSV13
	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
	CDO H	M%IPSN
	CDO	M%N hXPG
	CDO	M%IPRC
	CDO	M%IPRM
	CD!(O	M%AQNP
	CDO	M%!HRLNP
	CDO	M%CLNC!h
	CDO	M%FPGS
	C"DO	M%GMEM
	CDO	M"(%RMEM
	CDO
	CDO"H
	CDO
	CDO
	CD"hO
	CDO
	CDO	M%G#PAG
	CDO	M%RPAG
	CDO
	CDO
	CDO#H
	CDO
	CDO
	CD#hO
	CDO
	CDO

$	CDO	      			
	$(CDO	T%TEXT
	CDO	$HT%TTY
	CDO
	CDO$h
	CDO
	CDO
	CD%O
	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
	CD&hO	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
	CDO0	K%BIN
	CDO	K%BA0(CK
	CDO	K%TPOS
0H	CDO	K%BUFF
	CDO0h	K%FLSH
	CDO	K%O1PEN
	CDO
	CDO
1(	CDO
	CDO
	CDO
	CDO
	CDO
	CDO1h
	CDO
	  LSTON.
  
	  LSTON.Y>

@ =Q;s
	IFNB <=qC>,<..STR0 (..LDB>,A,C,B)>
	IFB>0  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG u!/4
	IFNDEF uALSTIN.,LSTIN.==0	u`	
IFE LSTIN.,<
v	IFIDN <XCREF><Av >,<.XCREF>	
		  v@ XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G w/>
	IFG LSTw!IN.,LSTIN.==LSTIN[email protected]	
	IFLE LSTINw`.,<.CREF		
		      LIST>
		z[3@ 93I<<<1<A>>-1>B<B>><A>>[8@ 83A1B<<A>-1>-1B<B><<A>-1>[@ 
	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 i1
	IFB <B	>,<MINSIZ==377777(,,777777
		IRP HA,<IFG <MINSIZ-Ah>,<MINSIZ==A>>>
	IFNB <B>,<B==(377777,,777777
	H	IRP A,<IFG <B-hA>,<B==A>>>
A>,<B==A>>>
[>!`8Q3E<A-<A/B>*B><A-<A/B[>w@&
   ..MX1:1==B			
IFDEF .P:PSECT,<
   .IFN .:p.MX1,ABSOLUTE,<
;	MOVE A,[B]>
 ;0  .IF ..MX1,ABSOL;PUTE,<
	..MX2==0	;p	
	IFE <..MX1>B5<3,<
	<0..MX2==1
	  MOVEI A,..MX<P1>	
	IFE ..MX2,<<p		
	IFE <..MX1>B=17,<
	  ..MX2==1=0
	  MOVSI A,(..=PMX1)>>	
	IFE ..M=pX2,<		
	IFE <<..>MX1>B53-^O777777>>0,<
	  ..MX2==1
>P	  HRROI A,<..MX>p1>>>	
	IFE ..MX2?,<		
	IFE <<..MX?01>B17-^O777777B17?P>,<
	?p..MX2==1
	  HRLOI A,(..M@X1-^O777777)>> 
@0	IFE ..MX2,<		
	@P  MOVE A,[..MX1]@p>	
	>>

IFNDEFA .PSECT,<
	..MX2A0==0		
	IFE <..MXAP1>B53,<
	  ..MX2Ap==1
	  MOVEI A,B..MX1>	
	IFE ..MB0X2,<		
	IFE <..MBPX1>B17,<
	  ..MXBp2==1
	  MOVSI AC,(..MX1)>>	
	IFEC0 ..MX2,<		
	IFE CP<<..MX1>B53-^O777Cp777>,<
	  ..MX2=D=1
	  HRROI A,<D0..MX1>>>	
	IFE .DP.MX2,<		
	IFE <<Dp..MX1>B17-^O77777E7B17>,<
	  ..MX2E0==1
	  HRLOI A,EP(..MX1-^O777777)>Ep> 
	IFE ..MX2,<	F	
	  MOVE A,[..F0MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 18%
	A==C	Q	
	IF1,<IFDEF %pA,<PRINTX ?A ALREADY DEFINED>>
	0DEFINE %A (OP,ACP,Y,MSK)<	
	IFDIFp <Y><>,<
	OP (<AC>,B+'Y,MSK)>
	0IFIDN <Y><>,<
	OPP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg R15..OP(A,B,MUL)..OP(A,B[`v
2P [b6<P F] oa/IF2,<IFDEFp A,<A==A>> IFNDEF A,<A==B>]F@ NTEMFDB##_
QkRp _
Ql7p _
Qlxp _
Ql}p _
Qmp _
Qm7p _
T= =AL&

	X	.OT9RDR,Reader
	X	.O1yTNCU,Network-Cont=aroller
	X	.OTLPT=!,Printer
	X	.OTB?!AT,Batch-Stream
?@	X	.OTCDP,Card-Pu?`nch
	X	.OTPTP,Pa@pertape
	X	.OTPL@ T,Plotter
	X	.OT@@JOB,Job
	X	.OTTR@`M,Terminal
	X	.OATOPR,Operator
	XA 	.OTIBM,<IBM RemoA@te>
	X	.OTMNT,<DA`evice>
	X	.OTFTSB,<File Transfer>
	X	.OTBIN,<Card B@Reader InterpreteB`r>
	X	.OTRET,<FiCle Retrieval>
	XC 	.OTNOT,<RetrievaC@l Notification>
C`	X	.OTDBM,<DBMS SDystem>
	X	.OTFALD ,<File Access LisD@tener>
	X	.OTSNAD`,<SNA Workstation>
 Workstation_Sh6 M9Lk [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 NM+

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

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

PP	EXP ..XX		

  Pp IFNB <C>,<EXP QC>
   IFB <C>,<Q0EXP 0>

   IFNBQP <D>,<POINT 7,[AQpSCIZ \D\]>
   IRFB <D>,<0>

RR0 IFNB <E>,<POINTRP 7,[ASCIZ \E\]>
SIFB <E>,<0>



   IFB <IS0>,<0>
   IFNB <SPI>,<EXP I>

  Sp IFB <J>,<0>
  T IFNB <J>,<EXP T0J>

   IFB <H>TP,<0>
   IFNB <HTp>,<EXP H>

   UIFB <G>,<0>
   U0IFNB <G>,<EXP G>

G>,<EXP Ga 2)3LSH A,^D9LSH A,^D9a+= 5a;&  A	
	 IFB  <9B>,<..STR0(..PNTX,,<FWMASK>,A)>
x	 IFNB <B>,<..STR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 6135<POINT WID6Q(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 4!3"<^L<<A>&<-<A>>>><<A>&<aJNh6P aJ}Ks x)0`

	SALL	xI			
	LSTOF. XCRExhF			

	LOC 0			y
	ASCIZ \
COPYRy(IGHT (c) DIGITAL yHEQUIPMENT CORPORAyhTION 1975,1988.
zALL RIGHTS RESERVz(ED.
\				
	RELOzHC			

	%%.GLX==zh%%.GLX			


	I{FNB <A>,<%%.MOD={(=SIXBIT/A/> 
	I{HFNB <B>,<%%.OTS={h=SIXBIT/B/> 

|	GLOB	I%INIT			
|(
	TOPS10	<			
	|H	SEARCH	UUOSYM		
		%%UUOS==%%UUOS}		
	>				

	TO}(PS20	<			
		SEAR}HCH	MONSYM		
;		%}h%MONS==%%MONS		
~	>				

	IFB <~(B>,<			
		.TEXT	~H|,REL:GLXLIB/SEAR~hCH/REQUIRE:I%INIT|
		DEFINE	$DATA( (NAM,SIZ<1>),< 
			NAM:	BLOCK	SIhZ
		>			
		DEFINE	CDO (X),<GLOB (X> 
		LIBVEC			
	>				

	IFNB h<B>,<IFDIF <B><INI>,< 
		IFN GL(XPURE,<.PSECT .HIHGH.> 
		IFE GLXPhURE,<		
			TWOSEG	400000	
			REL(OC	0	
			RELOC	4H00000	
		>			
h
		DEFINE $DATA(NAM,SIZ<1>),< 
		(	IFN GLXPURE,<.PSHECT DATA> 
			IFhE GLXPURE,<RELOC> 
			IFNDEF B%D(,<B%D::! B%DL==H:0>
			NAM:	BLOChK	SIZ
			B%DL==:B%DL+SIZ 
			I(FN GLXPURE,<.ENDPHS 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, .RET	HF>	
	OPDEF	$RET		h[POPJ	P,]	
	OPDE
F	$RETT	[PJRST	.R
(ETT]	
	OPDEF	$RE
HTF	[PJRST	.RETF]	
h
	OPDEF	$RETIT	[JUMPT	.POPJ]	
	O(PDEF	$RETIF	[JUMPHF	.POPJ]	
	.NODDhT	$RET,$RETT,$RET

F,$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"@ ]Q=}
	IFN <<.]q.TA>&B>,<PRINTX^ ?Initial field n^0ot zero in $SET>
	^p..TVAL==<C>
	 ..TMSK==<B>
	  ..TA==..TA!_0<FLD(..TVAL,..TMS_PK)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@dAN$C.SWIT+PDBCPY##C.SWIT+PDBg$tkQB@g$uP'g$uh6Q  g&t{ n.pIFE C.GALA,IFE C.GALAg.N	@ 6@g.N
.SPID	(SGP.QSR,.IPCPQ,.SPQG8SR,QUASAR)	
.SPIGXD	(SP.OPR,.IPCPO,Gx.SPOPR,ORION)	
.HSPID	(SP.INF,.IPCH8PI,.SPINF,INFO)	
.SPID	(SP.MDA,.IHxPCPM,.SPMDA,MDA)	I
.SPID	(SP.NEB,,I8.SPNEB,NEBULA)		
TOPS10<
.SPID	(IxSP.IPC,.IPCPS,,IPJCC)		
.SPID	(SP.J8ACT,.IPCPA,,ACTDAJXE)		
.SPID	(SP.TJxLP,.IPCPT,,TAPLABK)		
.SPID	(SP.TOK8L,.IPCPC,,TAPAVR)KX		
.SPID	(SP.DOLKx,.IPCPD,,DSKAVR)	L	
.SPID	(SP.FIL,L8.IPCPF,,FILDAE)		
>
,FILDAE)		gR^h9 Q9e
	..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~)  @q<
	IFNB <AC>,<..STR0 (..DPBA0,A,C,B)>
	IFBAP  <C>,<MOVEM A,B>>,<MOVEM A,gV Q15..AS(A,B,SUB,ADD)(A,Bgg

V 

I0j
	IFNB <

iB>,<TOPS10<A==B
	IFNB0<C>,<T>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2PhDP?hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( .IRtIFN FTUUOS,SB)kYPi?4H /	RxIFN FTJSYS,	SB)lyP

  IFNBwI	<A>,<.TQCHA==^whD<B>B17+ZZ>
  IxFNB 	<D>,<DEFINEx( ..TQMA<D>>
  xHIFNB	<C>,<.TQC=xh=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, m)?6
	LSTOF.
	TQ(T,2,ASCIZ)		mh	
	TQ(O,2,OCTAL)n			
	TQ(D,2,DECIn(MAL)			
	TQ(F,2,nHFILE)			
	TQ(7,2nh,CSEVEN)			
	TQ(o6,2,CSIXBIT)			
o(	TQ(W,2,SIXBIT)		oH	
	TQ(5,2,SVNBIToh)			
	TQ(P,2,USEpR)			
	TQ(U,2,DIp(RECTORY)			
	TQ(pHH,2,DAYTIME)			
ph	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		q(	
	TQ(I,1,INDIREqHCT)		
	TQ(M,0,CRqh,..TXC0(\".CHCRT)r)	
	TQ(J,0,LF,..r(TXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCrh0(\".CHFFD))	
	TsQ(K,0,VT,..TXC0(\s(".CHVTB))	
	TQ(AsH,0,NOCRLF,..TXA(.shTQCHA))	
	TQ(0,0t,NULL,..TXA(.TQCHt(0))	
	TQ(3,0,STRtHING,..TXER(IQU))	th
	TQ(V,2,VERSIONu)			
	TQ(2,0,CARu(ET,..TXER(IQU))	
	TQ(Q,2,POINTER)uh			
	TQ(B,2,ROB)v			
	TQ(1,2,OBJEv(CT)			
	TQ(N,2,NvHODE)			
	TQ(R,2,vhJIB)			
	LSTON.
)			
	LSTON. YKd
	LSTOF.
	X(33,TTY33,33,)7Y				
	X(35,TTY358,35,)				
TOPS207y<
	X(37,TTY37,378A,)				
	X(EXECUP8`ORT,EXEC,EXE,)			9
>
TOPS10<
	X(9 LA120,LA120,L12,)9@			
>
	X(LA36,L9`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	.TR"0SET		
	 ..NV-1,,"P..NV-1
	RADIX .."pTRR		
	PURGE ..TRR,..NVURGE ..Tib j16S
		..TX(C,A,<B>)..TX(Cib kq6_
		..TX(CA,A,<B>).TX(CibP jq6W
		..TX(CE,A,<B>).TX(Cib` k16[
		..TX(CN,A,<B>).TX(Cibp d16#
		..TX(N,A,<B>)..TX(Nibt eq6/
		..TX(NA,A,<B>).TX(NibtP dq6'
		..TX(NE,A,<B>).TX(Nibu` e16+
		..TX(NN,A,<B>).TX(Nibx f163
		..TX(O,A,<B>)..TX(Oib| gq6?
		..TX(OA,A,<B>).TX(Oib|P fq67
		..TX(OE,A,<B>).TX(Oib}` g16;
		..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 h16C
		..TX(Z,A,<B>)..TX(ZicT iq6O
		..TX(ZA,A,<B>).TX(ZicTP hq6G
		..TX(ZE,A,<B>).TX(ZicU` i16K
		..TX(ZN,A,<B>).TX(Zm:7 k9.a
	IFG  <kYAMAN-ADEV>,<AEDkxT==:AMAN>
	IFLEl <AMAN-ADEV>,<AEDT==:ADEV>
mKc@ lY.gBYTE (3)AlyWHO (9)AVER (6)AMIN (18)AEDTotkP ouxZP o&  3a3<^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 6yK7
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +

q+= +
q6~i4 C q? uq7/
	TXC A,<B>
	TXC A,q@ pA/IFB <C>,<paA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up J<W
	IFNB <J1B>,<..STR1 (..TQZJP,,<B>,A,..STR4)Jp>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z %!R:
	.$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 byF
.WTOX.(.OMcACK,<A>,<B>,<Cc8>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 `NDEFINE .$R`9TN <A>
			.%RTN==1A>
			.%RTN	fI9 [M[DEFINE .$L[9ST <A+1>
			.%LST==11>
			.%L	
=Z NQ<}
	  IFG NqA-INT.LV,<PRINTX O?Level A interruO0pts not supportedOP>
	  .BGINT.(\A)   .BGINT.(\A	X5 ]9MmDEFINE .$B]YREA <A>
			.%BREA==1>
			.%BR	- Q1=
	  IFDEFQQ ..BSIZ,<PRINTX ?QpMissing $EOB afteRr a $BUILD>
	  .R0.BSIZ==0			
	  .RP.BLOC==.			
	  RRpEPEAT A,<			
		SBLD0.(\..BSIZ,0)	S0
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 !Px
	.$RESETA
	$TYPE (.CMCMA)`
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$BU	I@ 
aPZ
	.$RESET
	$TYPE (.CMCFM) 
	IRP A,<A>
	.$BUILD,<A>
		$^ !QB
	.$RESETA
	$TYPE (.CMTXT)`
	$HELP (<>)
	$NEXT (A)
IFIDN  <B> <>,< IRP C,@<C>
			.$BUILD>`
IFDIF <B> <>,<
	$HELP (B)
	I RP C,<C>
	.$BUILD><C>
	.$BU	I  aQN
	.$RESET
	$TYPE (.CMTAD) 
	$PDATA (CM%IDA@)
	$NEXT (A)
	`IRP B,<B>
	.$BUILD,<B>
	.$B	,,U PQ=
	  $RET	Pq			;WILL INVOKE RIGHT ROUTINE
		,h: Y9MODEFINE .$DYYEFM <POINT 7,[ASCYxIZ\A\]>
			.%DEFM==1>
			.%DE	.` !Q.
	.$RESETA
	$TYPE (.CMDEV)`
;**;[323]At DEFINE $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: y!O\
	.$RESETyA
	$TYPE (.CMNUX)y`
	$PDATA (B)
	z$HELP (<>)
	$NEXz T (A)
IFIDN <Cz@> <>,< IRP D,<Dz`>
			.$BUILD>
I{FDIF <C> <>,<
	{ $HELP (C)
	IRP {@D,<D>
	.$BUILD><D>
	.$BUILD	N  aPd
	.$RESET


	$TYPE (.CMDIR)

 
	$NEXT (A)
	I

@RP B,<B>
	.$BUILD,<B>
	.$BU	|  X1=_
	  IFNDEXQF ..BSIZ,<PRINTX Xp?$EOB without preYvious $BUILD>
	 Y0 IFN <.-..BLOC>,<YPPRINTX ?Address cYphange between $BUZILD and $EOB>
	 Z0 LSTOF.			
	  ..ZPT==0
	  REPEAT .Zp.BSIZ,<
	    BLD[0.(\..T,1)		
	  [0  ..T==..T+1 >
	[P  PURGE ..BSIZ,..[pT,..BLOC	
	  LSTON.
		
	  LST	+y \YMgDEFINE .$E\yRTN <A>
			.%ERTN==1>
			.%ER	, ^MsDEFINE .$E^9RTN <1B0+A+1>
			.%ERTN==1>
		- ^yM}DEFINE .$E_RTN <[MOVEI S2,[A_8SCIZ\A\]
				  _X    $RETF]>
			.%ERTN==1>
			.	H6 b)>
	$CALL	.bISTOP
	LSTOF.
	JbhUMP	[XWD 0,[ITEXTc (<A>)]
		 EXP c(%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ !PR
	.$RESETA
	$TYPE (.CMFLD)`
	$NEXT (A)
	$	HELP (<>)
IFIDN 	 <B> <>,< IRP C,	@<C>
			.$BUILD>	`
IFDIF <B> <>,<

	$HELP (B)
	I
 RP C,<C>
	.$BUILD><C>
	.$BU	MI  aP>
	.$RESET
	$TYPE (.CMFIL) 
	$HELP (<>)
	$@NEXT (A)
IFIDN `<B> <>,< IRP C,<C>
			.$BUILD> 
IFDIF <B> <>,<@
	$HELP (B)
	I`RP C,<C>
	.$BUILD><C>
	.$BU	dy VYM7DEFINE .$FVyLGS <A>
			.%FLGS==1>
			.%FL	ex: aQ
	.$RESET
	$TYPE (.CMFLT) 
	$HELP (<>)
	$@NEXT (A)
IFIDN `<B> <>,< IRP C,<C>
			.$BUILD> 
IFDIF <B> <>,<@
	$HELP (B)
	I`RP C,<C>
	.$BUILD><C>
	.$BU	$ a9>6P
	  INTERaiN A
	  $DATA(A,<B>)
	ATA(AS5>14[	"
	IFDIF <X9A> <>,<
DEFINE XX.$HLPM <POINT 7,[XxASCIZ\A\]>
			.%HLPM==1>
			.	&5 aP
	.$RESET
	$TYPE (.CMIFI) 
	$HELP (<>)
	$@NEXT (A)
IFIDN `<B> <>,< IRP C,<C>
			.$BUILD> 
IFDIF <B> <>,<@
	$HELP (B)
	I`RP C,<C>
	.$BUILD><C>
	.$BU	&u AQ
	.$RESETa
	$NEXT (A)
	$TYPE (.CMINI)
	I RP B,<B>
	.$BUILD,<B>
	.$BU	./ uO0
	.$RESETu!
	$TYPE (.CMKEY)u@
	$PDATA (B)
	u`$NEXT (A)
	IRP vC,<C>
	.$BUILD,<C>
	.$BUILD	./ sAO$
	.$RESETsa
	$TYPE (.CMKEY)t
	$PDATA (A)
	t $NEXT (0)
	IRP t@B,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDfYF7.WTOX.(.OMfyWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p eyF1.WTOX.(.OMfLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV "AR&
	.$RESET"a
	$TYPE (.CMNOD)#
	$HELP (<>)
	$# NEXT (A)
IFIDN #@<B> <>,< IRP C,#`<C>
			.$BUILD>$
IFDIF <B> <>,<$ 
	$HELP (B)
;	$@$FLAGS (CM%PO)
	$`IRP C,<C>
	.$BUILD><C>
	.$B	:}r |Oj
	.$RESET|!
	$TYPE (.CMNOI)|@
	$PDATA (<POINT|` 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR} P C,<C>
	.$BUILD,<C>
	.$BUI	;-XR vAOF
	.$RESETva
	$TYPE (.CMNUM)w
	$PDATA (B)
	w $HELP (<>)
	$NEXw@T (A)
IFIDN <Cw`> <>,< IRP D,<Dx>
			.$BUILD>
Ix FDIF <C> <>,<
	x@$HELP (C)
	IRP x`D,<D>
	.$BUILD><D>
	.$BUILD	>5 !P*
	.$RESETA
	$TYPE (.CMOFI)`
	$NEXT (A)
	$HELP (<>)
IFIDN  <B> <>,< IRP C,@<C>
			.$BUILD>`
IFDIF <B> <>,<
	$HELP (B)
	I RP C,<C>
	.$BUILD><C>
	.$BU	B$ W9M=DEFINE .$DWYATA <A>
			.%DATA==1>
			.%DA	B$YP Z9MUDEFINE .$DZYEFM <POINT 7,<A>>
			.%DEFM==1	CYT `yN	DEFINE .$DaEFR <A>
			.%DEFR==1>
			.%DE	F

:` cyF#
.QWTO.(.OMdACK,<A>,<B>,<Cd8>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	G-} !Qz
	.$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`.aFTO,<A>,<B>,<CaX>,,<$WTMFL(MF.WTO),D>)FL(MF.WTO	J.I  `>
	  $CALL`9	.RETE			
		LSTO`XF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  +1;Y
	.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
				$0CALL .SAVE8>
	  00  IFE <.ACM-17B<P0P4>>,<.ACM==0
			0p	$CALL .SAVE4>
	1    IFE <.ACM-7B<10P3>>,<.ACM==0
		1P		$CALL .SAVE3>
1p	    IFE .NVR,<	
	    IFE <.ACM-320B<P2>>,<.ACM==0
2P				$CALL .SAVE2>2p
	30  IFE <.ACM-31B<P1>>,<.ACM==0
				$CALL .SAVE13P>
	    IFE <.ACM3p-1B<.A13>>,<.ACM=4=0
				$CALL .SV4013>
	    IFE <.A4PCM-1B<.A14>>,<.AC4pM==0
				$CALL .5SV14>
	    IFE <50.ACM-1B<.A15>>,<.5PACM==0
				$CALL5p .SV15>
	    IFE6 <.ACM-1B<.A16>>,60<.ACM==0
				$CA6PLL .SV16>
	    >6p>

	IFN .ACM,<	7
	    IFE .NVR,<70			
		CAIA			
	7P	LSTOF.
		JRST 7pb>

	    .ACB==80			
	REPEAT ^D1806,<			
	    IFN 8P<.ACM&1B<.ACB>>,<8p	
		..PUSH(\.ACB9,\<.NVR+1>)>
		.90ACB==.ACB+1>>		
9P
	IFN .NVR,<	
	9p    PUSH P,[[CAIA:		
		     AOS -.:0NVR(P)	
	    REP:PEAT .NVR,<..POP(\:p.NVR)>	
		     P;OPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ Sq=/
	  IFNDETF ..BSIZ,<PRINTX T0?$SET without preTPvious $BUILD>
	 Tp IFNB <B>,<..STRU0 (..SET,<C>,B,U0A)>
	IFB  <BUP>,<..STR0 (..SET,Up<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
-	XWD b-1,b-1
	- DEFINE $ETAB <
		b==.-a> <
		O%| fI><
S..A::!fi	$CALL .STOP
		LgSTOF.
		JUMP [XWg(D 'A',[ITEXT (<gHB>)]
			EXP %%.MOD]
		LSTON.	M	O= !P
	.$RESETA
	$TYPE (.CMSWI)`
	$PDATA (A)
	$NEXT (0)
	IRP  B,<B>
	.$BUILD,<B>
	.$BUILD	O= }aOv
	.$RESET~
	$TYPE (.CMSWI)~ 
	$PDATA (B)
	~@$NEXT (A)
	IRP ~`C,<C>
	.$BUILD,<C>
	.$BUILD	R

@ aQf
	.$RESET
	$TYPE (.CMTAD) 
	$PDATA (<CM%ID@A!CM%ITM>)
	$NEX`T (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	Th)%TEXT
	LSTOF.	XChHREF
	JUMP	[XWD 2hh,0
		 EVL (A)
i		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESETA
	$TYPE (.CMTAD)`
	$PDATA (CM%ITM)
	$NEXT (A)
	 IRP B,<B>
	.$BUILD,<B>
	.$B	R}97 'aRH
	.$RESET(
	$TYPE (.CMTOK)( 
	$PDATA (<POINT(@ 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR)P C,<C>
	.$BUILD,<C>
	.$BUI	S |	?L


  ..TX{A(.TQA,C,D,E,y)B)	
      IFN .yi.TXEF,<			
	..TEyIRR<$TQ(A,B,C,D,E)>>

C,	S@I9 yA7
	LSTOF.
	X(UQU,Unknown q8ualifier)
	X(IQUX,Invalid qualifiexr)
	X(IJA,Invalid justification a8rgument)
	X(IWA,XInvalid width argxument)
	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	  UyM1DEFINE .$TVYP <A>
			.%TYPE==1>
			.%TYP	W= aR
	.$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)
	I B,<B>
	.$BUILD,<B>
	.$BU	^+@ ci>0
IFE %%.Od	TS,<DEFINE $WARN d((MSG) <
		$TEXT dH(T%TTY,<% ^W6/[%%dh.MOD]/ MSG>)>>
IeFN %%.OTS,<DEFINEe( $WARN (MSG) <
	eH	$TEXT (T%TTY,<% eh^W6/IIB+IB.PRG/ ^fW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r SE+
		IFB	<S9A>,<.WFACD==0
		SX	IFN <0-2>,<.$WACSxD==0>>
		IFNB	<TA>,<.WFACD==-1
	T8		IFN <0-2>,<.$WATXCD==.$WACD!<A>>
			IFE <0-2>,<DEUFINE .$WACD,<<WO.U8ACD>B8+[ITEXT (<A>)]>>
		>
<	_$u HDS
		IFB	<H9A>,<.WFACK==0
		HX	IFN <0-2>,<.$WACHxK==0>>
		IFNB	<IA>,<.WFACK==-1
	I8		IFN <0-2>,<.$WAIXCK==.$WACK!<A>>
			IFE <0-2>,<DEJFINE .$WACK,<<WO.J8ACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ 9yE
	IFE	<.W:FMTY>,<PRINTX ?No:8 message type in :X$WTBLD>
DEFINE .:xEAWTO(SUFFIX,ARGC;OD),<
IFN .WF'SU;8FFIX',<
	IFE	<AR;XGCOD-0>,<<WO.'SUF;xFIX'>B8+ .$W'SUFF<IX'>
	IFE	<ARGCO<8D-1>,<<WO.'SUFFIX^x'>B8+ [EXP .$W'SU_FFIX']>
	IFE	<AR_8GCOD-2>,<.$W'SUFF_XIX'>
>
>
	ALLW_xTO				
	EXP	0			
		
	EXP	0				_$k JyDi
		IFB	<KA>,<.WFFLG==0
		K8	IFN <1-2>,<.$WFLKXG==0>>
		IFNB	<KxA>,<.WFFLG==-1
	L		IFN <1-2>,<.$WFL8LG==.$WFLG!<A>>
			IFE <1-2>,<DELxFINE .$WFLG,<<WO.MFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W P9E
		IFB	<PYA>,<.WFJBN==0
		Px	IFN <0-2>,<.$WJBQN==0>>
		IFNB	<Q8A>,<.WFJBN==-1
	QX		IFN <0-2>,<.$WJQxBN==.$WJBN!<A>>
			IFE <0-2>,<DER8FINE .$WJBN,<<WO.RXJBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV XYEW
		IFB	<XyA>,<.WFMFL==0
		Y	IFN <1-2>,<.$WMFY8L==0>>
		IFNB	<YXA>,<.WFMFL==-1
	Yx		IFN <1-2>,<.$WMZFL==.$WMFL!<A>>
			IFE <1-2>,<DEZXFINE .$WMFL,<<WO.ZxMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] =C{
		IFB	<=9A>,<.WFMTY==0
		=X	IFN <0-2>,<.$WMT=xY==0>>
		IFNB	<>A>,<.WFMTY==-1
	>8		IFN <0-2>,<.$WM>XTY==.$WMTY!<A>>
			IFE <0-2>,<DE?FINE .$WMTY,<<WO.?8MTY>B8+[ITEXT (<A>)]>>
		>
<	_%j [9Em
		IFB	<[YA>,<.WFNHD==0
		[x	IFN <0-2>,<.$WNH\D==0>>
		IFNB	<\8A>,<.WFNHD==-1
	\X		IFN <0-2>,<.$WN\xHD==.$WNHD!<A>>
			IFE <0-2>,<DE]8FINE .$WNHD,<<WO.]XNHD>B8+[ITEXT (<A>)]>>
		>
<	_%kr MYD
		IFB	<MyA>,<.WFNOD==0
		N	IFN <0-2>,<.$WNON8D==0>>
		IFNB	<NXA>,<.WFNOD==-1
	Nx		IFN <0-2>,<.$WNOOD==.$WNOD!<A>>
			IFE <0-2>,<DEOXFINE .$WNOD,<<WO.OxNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p `9F.WTOX.(.OM`YWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU E9D=
		IFB	<EYA>,<.WFOBJ==0
		Ex	IFN <0-2>,<.$WOBFJ==0>>
		IFNB	<F8A>,<.WFOBJ==-1
	FX		IFN <0-2>,<.$WOFxBJ==.$WOBJ!<A>>
			IFE <0-2>,<DEG8FINE .$WOBJ,<<WO.GXOBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr UyEA
		IFB	<VA>,<.WFOCD==0
		V8	IFN <0-2>,<.$WOCVXD==0>>
		IFNB	<VxA>,<.WFOCD==-1
	W		IFN <0-2>,<.$WOW8CD==.$WOCD!<A>>
			IFE <0-2>,<DEWxFINE .$WOCD,<<WO.XOCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ dyF+.WTOX.(.OMeWTO,<A>,<B>,<Ce8>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ bF
.WTOX.(.OMb9WTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z <YEq
	DEFINE	<y.EAWTO(SUFFIX),<$^WT'SUFFIX'	<>>
	ALLWTO				

		_&N BYD'
		IFB	<ByA>,<.WFTXT==0
		C	IFN <2-2>,<.$WTXC8T==0>>
		IFNB	<CXA>,<.WFTXT==-1
	Cx		IFN <2-2>,<.$WTDXT==.$WTXT!<A>>
			IFE <2-2>,<DEDXFINE .$WTXT,<<WO.DxTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 ?yD
		IFB	<@A>,<.WFTYP==0
		@8	IFN <2-2>,<.$WTY@XP==0>>
		IFNB	<@xA>,<.WFTYP==-1
	A		IFN <2-2>,<.$WTA8YP==.$WTYP!<A>>
			IFE <2-2>,<DEAxFINE .$WTYP,<<WO.BTYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P .
P .JP .bP /P B&@P cGP )0 N0bPZ6 jAO			

	dja==<FLD(.$TYP,CM%FkNC)>!.$FLGS!<.$LSk T> 

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

	IFN <.%HLlPM>,<d==d!CM%HPl P!CM%SDH> 
					l@	

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

c:!	XWD	b,m a			

	EXP d	m@			

	EXP .$DATm`A			

IFN <.%HLnPM!.%DEFM!.%BREA>n ,<
		EXP	.$HLPM>n@		


IFN <.%DEn`FM!.%BREA>,<
		EoXP	.$DEFM>		

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

	o`a==.-c			;LENGTpH OF THE FDB

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

IFqN <.%DEFR!.%RTN!.q %ERTN>,<EXP .$RTNq@ >	

IFN <.%DEFq`R!.%ERTN>,<	EXP	.r$ERTN>	

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


	b==.r`-c			

	IF2<	PsURGE a,b,c,d>
	LISTb,c,d>$YV b9NPOINT 7,[ASCIZ\0\]NT 7,[A$YY N0;BP.- N0
"P35IyN09"Pf=N0+1Pw
	SALL
	e!XLIST
	DEFINE .$e@TYP <0>
	.%TYPE=e`=0
	DEFINE .$FLGfS <0>
	.%FLGS==0f 
	DEFINE .$DATA f@<0>
	.%DATA==0
f`	DEFINE .$HLPM <>g
	.%HLPM==0
	DEg FINE .$DEFM <0>
g@	.%DEFM==0
	DEFIg`NE .$LST <0>
	.%hLST==0
	DEFINE .h $BREA <0>
	.%BREh@A==0
	DEFINE .$Nh`XT <0>
	.%NXT==0i
	DEFINE .$ERTN i <0>
	.%ERTN==0
i@	DEFINE .$RTN <0>i`
	.%RTN==0
	DEFjINE .$DEFR <0>
	.%DEFR==0<0>
	K@N09P'qLi0T 1,!)0P $YVP $YYP .-P 5IyP f=P w
	   ..AST1==-<B>	
	IFDEFT0 .PSECT,<
	.IFN TP..AS1,ABSOLUTE,<
	     C A,[-..UAS1]>	
	.IF ..ASU01,ABSOLUTE,<
		.UP.AS2==0	
	  IFE Up<..AS1&^O777777B1V7>,<
		..AS2==1	V0
	    DI A,..AVPS1>
	  IFE ..AS2Vp,<
	    ..OP(A,WB,C)>	
	PURGE W0..AS1,..AS2>>
	IWPFNDEF .PSECT,<
	Wp	..AS2==0	
	  IFXE <..AS1&^O777777X0B17>,<
		..AS2==XP1	
	    DI A,.Xp.AS1>
	  IFE ..AYS2,<		
	    ..OPY0(A,B,C)>
	PURGE ..AS1,..AS2>:h 7I
	AG: Fq5
	  ..CX1G==C
	IFDEF .PSEG0CT,<
 	.IFN ..CXGP1,ABSOLUTE,<
	  Gp    CAMA B,[C]H>
	.IF ..CX1,ABSH1OLUTE,<	
		..CX2HP==0	
	  IFE <..CHqX1&^O777777B17>,<I
		..CX2==1	
	 I0   CAIA B,C>
IP	  IFE ..CX2,<		
	    CAMA B,[NC]>
	PURGE ..CX1N0,..CX2>>
	IFNDEFNP .PSECT,<
		..CXNp2==0	
	  IFE <..OCX1&^O777777B17>,O0<
		..CX2==1	
	OP    CAIA B,C>
	  IFE ..CX2,<		P
	    CAMA B,[P0C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ B<
	..TSIZ B1(..PST,C)
	.CASBPE ..PST,<<
		MOVBpEM A,B>,<
		HRCRM A,B>,<
		HRC0LM A,B>,<
		DPCPB A,[POINTR (B,C)]>>INTR (B,:<;Y Q9Q
   DEFINqE ..CNS2 (NEW,OLD)<
	  OLD>			
	..CNS ()>			
	:L;Y 19I
   DEFINQE ..CNS (%%%)<
	p..CNS2 <%%%>,>

   DEFINE ..CNS20 (NEW,OLD)<
	DEFPINE ..CNS (%%%)<
	  ..CNS2 <%%%>,<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ >q<
	..TSIZ ?(..PST,C)
	.CAS?0E ..PST,<<
		MOV?PE A,B>,<
		HRR?pZ A,B>,<
		HLR@Z A,B>,<
		LDB@0 A,[POINTR (B,C)]>>INTR (B,:}i1 ~Q7w
	A==<<<~q-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ Yq5{
	  ..OP1Z==B
	IFDEF .PSEZ0CT,<
 	.IFN ..OPZP1,ABSOLUTE,<
	  Zp    C A,[..OP1][>
	.IF ..OP1,ABS[0OLUTE,<	
		..OP2[P==0	
	  IFE <..O[pP1&^O777777B17>,<\
		..OP2==1	
	\\0   CI A,..OP1>
	  IFE ..OP2,<		\p
	    C A,[..O]P1]>
	PURGE ..OP]01,..OP2>>
	IFNDE]PF .PSECT,<
		..O]pP2==0	
	  IFE <.^.OP1&^O777777B17>^0,<
		..OP2==1	
^P	    CI A,..OP1^p>
	  IFE ..OP2,<_		
	    C A,[._0.OP1]>
	PURGE ..OP1,..OP2>GE ..;m YA
	..PST==yC-FWMASK
	.IF0 ..PST,<
		POINT 80,B,35>,<
		POINTR (B,C)>POI;| <Q;i
		POP P,<q.NVA
		PURGE .N=VA
		.NVR==.NVR-1
		.NVR==.NVR;\t ;Q;a
		PUSH P;q,A
		DEFINE .NV<B<A>
		.NVR==.NVR+1
		.NVR==.;] V1=?
	  IFGE VQ<<<B>&777777>-..VpBSIZ>,<
		PRINTXW ?WORD offset greW0ater than $BUILD WPsize parameter>
Wp	  SET0. (\<B>,C,<A>)
	B>,;LH 89
	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 Q8w

	..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,<B
0>,,>) 
	IRP C,<
P		
	  IFNDEF C,
p<PRINTX C NOT DEFINED>
	  IFDEF 0C,<
	  IFNDEF %PC,<
	  ..CNS (<p,C,D>)>	
	  IF

DEF %C,<
	  %C

0 (..STR2,,D,C)>

P 
	  ..CNS (<)>)

p		
	  ..GCNS		
	  ..ICNS		
	.C. (<E (A,<B
	CIFNDEF %
	  ..CNS (<,C,D>)>	
	  IF0DEF %C,<
	  %CP (..STR2,,D,C)>p>> 
	..CNS (<,,)>)		
	..GCNS>);LI 18{
	..CNS (<,C,B>).CNS (;LI q9


	IFDIF <D><F>,<
	  IFN0B <D>,<
	    AP (<B>,D,..MSK)	p
	    IFNB <F>,<PRINTX C AND E0 ARE IN DIFFERENTP WORDS>>
	  ..MSpK==0>		
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ Q9!


	IFDIF <qD><F>,<	
	  IFNB <D>,<
	    0A (<B>,D,..MSK)P>	
	  ..MSK==0>	p	
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ Q97


	IFDIF <qD><F>,<	
	  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 YAQ
IF1,<
    PRINTX ? Err9or in "A"
    D	EFINE X(NAM,ERR) Y<IFN ..X'NAM&..TXxEF,<PRINTX ? ERR>>
    $TX$ERR>

    $TX$ERR>
;$^ yB

    ..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==..T XXEF!..TXEG		
    x IFN ..TXEF,<..TERR<A>>
,<..TE;&( ~i?v..TXA(.TQCH0)..TXA(.TQC;&) y?..TXER(IQU)..TXER(IQU;&) )?z..TXER(IQU)..TXER(IQU;&0 ~)?r..TXA(.TQCHA)..TXA(.TQC;&5 |i?f..TXC0(\".CHLFD).TXC0(\".;&5 }i?n..TXC0(\".CHVTB).TXC0(\".;&6 })?j..TXC0(\".CHFFD).TXC0(\".;&6 |)?b..TXC0(\".CHCRT).TXC0(\".;&@ K1<q
	..TSIZ KQ(..PST,C)	
	.CAKpSE ..PST,<<
		SELTZM B>,<	
		HLLL0ZS B>,<	
		HRRZLPS B>,<	
	  ..TSLpAC (..ACT,B)	
	M  .IF0 ..ACT,<
	M0	$CALL .ZERO	
		MPLSTOF.
		JUMP [PMpOINTR(B,C)]
		NLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 {7q
	IFNDEF {1.PSECT,<
	A==0	{P		
	..TSA1==<Z {pB>		
	  IFE ..TS|A1&^O777777777760|0,<A==1> 
	>
	I|PFDEF .PSECT,<
	|pA==0			
	..TSA1=}=<Z B>		
	.IF .}0.TSA1,ABSOLUTE,<	}P
	  IFE ..TSA1&^}pO777777777760,<A~==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= yQ7U
	A==3		yq	
	IFE <B>+1,<zA=0>	
	IFE <B>-z0^O777777,<A==1> zP
	IFE<B>-^O777777B17,<A==2>7;' q7
   ..TX1`==C			
IFDEF .P`0SECT,<
   .IFN .`P.TX1,ABSOLUTE,<
`p	TDA B,[C]>
 a0  .IF ..TX1,ABSOLaUTE,<		
	..TX2==aQ0		
	IFE <..TX1&aq^O777777B17>,<
	b  ..TX2==1		
	  b0TRA B,..TX1>
	bPIFE ..TX2,<		
	IbpFE <..TX1&^O77777c7>,<
	  ..TX2==1c1		
	  TLA B,(.cP.TX1)>>
	IFE ..TcpX2,<		
	  IFE <<d..TX1>B53-^O77777l17>,< 
	    ..TX3lP (A,B)>>	
	IFElp ..TX2,<		
	  TDmA B,[..TX1]>	
m0	PURGE ..TX1,..TXmP2>>
IFNDEF .PSECmpT,<
	..TX2==0		
	IFE <..TX1&^O77n07777B17>,<
	  ..nPTX2==1		
	  TRAnp B,..TX1>
	IFE o..TX2,<		
	IFE <o0..TX1&^O777777>,<oP
	  ..TX2==1		
op	  TLA B,(..TX1p)>>
	IFE ..TX2,<p0		
	  IFE <<..TXpP1>B53-^O777777>,<pp 
	    ..TX3 (Aq,B)>>	
	IFE ..Tq0X2,<		
	  TDA qPB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` r7#
	IFIDN <r1A><Z>,<		
	  ..rPTX2==1
	  ANDI rpB,^-..TX1>	
	IFIsDN <A><O>,<		
	s0  ..TX2==1
	spORsPCMI B,^-..TX1>	
	IFIDN <A><C>,<t		
	  ..TX2==1
t0	  EQVI B,^-..TX1>QVI B,^-..TX;'  @}



	..TXE9F==0			

IFNDEFX A,<..TXER(UQU)>x		
IFDIF <B><>,<IRPC B,<.IFN <8B>,NUMERIC,..TXERX(IWA)>>
IFNB <Cx>,<IFNDEF .TXTJC,<..TXER(IJA)>>
8IFDEF  A,<
  IFXE <A_-^D18>,<IFDxIF <EFBCD><>,<..TXER(ANA)>>
8  IFE <1-<A_-^D1X8>>,<IFDIF <BCxD><>,<..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==.TXTJ	xC>
	    IFB  <
C>,<..TXJU==.TXTJ
8L
	      IFE <A
X-.TQOCT>,<..TXJU=
x=.TXTJR>
	X    IFE <A-.TQDEC>,<8..TXJU==.TXTJR>>
	    IFB  <D>,<x..TXFC==" ">
	  

  IFNB <D>,<..TX

8FC=="D">>>

	I

XFB  <EF>,<..TXP

xT==0>
	IFNB.<E==1>
	FE<<..TXWD+..TXP
	D(AEXPTFL)>
	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 2YC!
    IFE 2y..TXP,<			
	..IC3NS			
	..CNS<ASC38IZ\>		
	..TXP==13X>		
    ..CNS<A3x>			
    ..TXF==40			
    ..TXB=="^"
    ..TXB==;'h 4YC-

    IF4yN ..TXP,<			
	..5CNS<\>		
	EXP <F58LD(.TQCHT,TXT.FN)5X+[..GCNS]>>
    ..TXP==0>
    ;'	9 YA[
    ..TXyEF==..TXEF!..XA		
    ..TXF==0		8		
    ..TXB=="^"
    ..TXB=="^;'

  !9B..TXQB(<A>)..TXQB(<;'

( !yB

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

( #B5

    IF#9E ..TXC-"^",<..TX#XC0(<A>)>	
    I#xFN ..TXF,<			
	.$.TXF==0		
	IFDEF$8 .TQCHA,<		
	  $X  IFDEF ..TQMA,.$x.TQMA 
	    IFN% <.TQCHA_-^D18>,%8<..TXF==2>>>
   %X IFE ..TXF-2,<..T%xXC1(<A>)	
	..IC&NS			
	..CNS<..T&8XA(.TQCHA,>>	
 &X   ..TXEG==..TXEG!..TXEF==..TXEG;'

) 'BG
    ..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)>
		 ;'

) )9B[
    ..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)>
;'

* +yBq
    ..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>	
		 ..;'

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

+ 0yC
    ..TX1F==0			
    IFE 18..TXC-"]",..CNS<]1X>	
    ..CNS<)>	1x		
    ..GCNS			2
    ..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:I
	A=.FPA(QC+..NAC		
	IFB <(pB>,<..NAC=..NAC+)1>
	IFNB <B>,<..NAC=..NAC+B>.d` )Q:W
	IFG A-)q.NPAC,<PRINTX ?TO*O MANY ACS USED>
	IFLE A-4,<
	**P $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z P=$CALL	I%INTA$CALL	I%IN9  wQ7G
	..CSN==wqA
	..CSC==0
	IxRP B,<
	IFE ..Cx0SN-..CSC,<
	  STxPOPI
	  ..CAS1 (xpB)>
	..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 H1<M
	..PST==HQC-FWMASK
	.IF0 Hp..PST,<
		SOS BI>,<	
		$CALL .SOI0S	
		LSTOF.
		JIPUMP [POINTR(B,C)]
		LSTON.>C

TP } 9Eu
	.OPCD==^Y.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 v179
	..IFT==vQA		
	IFE ..IFT,vp<
	B
	..IFT==0w>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H E1<5
	..PST==EQC-FWMASK
	.IF0 Ep..PST,<
		AOS BF>,<	
		$CALL .AOF0S	
		LSTOF.
		JFPUMP [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		
kx		SKIPE	G$NEBF		
		JRST	g		
		$l8CALL	I%WTO		
		LlXSTOF.			
		JRST	lxh		
		$WTRST			m
	IFNB <A>,<$WTm8MTY (<A>)>	
	IFmXNB <B>,<$WTTYP (mx<B>)>	
	IFNB <nC>,<$WTTXT (<C>)n8>	
	IFNB <D>,<$nXWTOBJ (<D>)>	
	nxIFNB <E>,<$WTACKo (<E>)>	
		IRP o8F,<F>		
		$WTBoXLD			

g:		$CAoxLL	I%WTO		
		JRSpT	h		
		$WTRST	p8		
	$WTNHD(G$REMpXN)			
	IFNB <A>px,<$WTMTY (<A>)>	q
	IFNB <B>,<$WTq8TYP (<B>)>	
	IFqXNB <C>,<$WTTXT (qx<C>)>	
	IFNB <rD>,<$WTOBJ (<D>)r8>	
	IFNB <E>,<$rXWTACK (<E>)>	
	rx$WTMFL(MF.NEB)			s
		IRP F,<F>		s8
		$WTBLD			

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

0P O LYLu
	IFG	A-NYMX.PID,<MX.PID==A>
C
G	A-OSP OYP Oi1P O|P OyP O%=H 9i
	.STKV2 (A)
	.STKV2 O%=I Q9w
	IFB <Bq>,<..STKN==..STKN+1>
	IFNB <B>,<0..STKN==..STKN+BP>
	..STKQ==..STKpN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I 1:
   IFDEFQ A,<.IF A,SYMBOpL,<PRINTX STKVAR  A ALREADY DEFINE 0D>>
	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 

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  #1:
	.TRV2 (A)
	.TRV2 (Sd@ #q:%
	.TRV3 ($A,\..NV)	
	IFB $0<B>,<..NV=..NV+1$P>
	IFNB <B>,<..NV=..NV+B>,<..Sd` %:3
   IFDEF%1 A,<.IF A,SYMBO%PL,<PRINTX TRVAR %pA ALREADY DEFINED&>>
	DEFINE A<^O&0B(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP VuLQ @Vv

TP ^%I7P _%~ g9FW
		$CALL	gYI%WTO		
		LSTOF.gx			
		JRST	g		
		$WTRST			
	IFh8NB <A>,<$WTMTY (hX<A>)>	
	IFNB <hxB>,<$WTTYP (<B>)i>	
	IFNB <C>,<$i8WTTXT (<C>)>	
	iXIFNB <D>,<$WTOBJix (<D>)>	
	IFNB j<E>,<$WTACK (<Ej8>)>	
		IRP F,<jXF>		
		$WTBLD			jx
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP