PDP-10 Archive: subsys/glxmac.unv from k20v7c

Trailing-Edge - PDP-10 Archives - k20v7c - subsys/glxmac.unv

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

x
,ST@P C4@ a9"
	..NAC==0		
	IRP A,<
	   .ACV1 (A)>		
	.ACV3 (\..NAC)C' =a3n..AS(A,B,ADD,SUB)(A,BC, Y1}LSH A,-^D9LSH A,-^DC2f} #	B.
	.EAWTO(#)MTY,0)
	.EAWTO(T#HYP,2)
	.EAWTO(TX#hT,2)
	.EAWTO(OBJ$,0)
	.EAWTO(ACK,$(0)
	.EAWTO(FLG,1$H)
	.EAWTO(NOD,0)$h
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
%(	.EAWTO(OCD,0)
	%H.EAWTO(MFL,1)
	.%hEAWTO(NHD,0)		

TO(NHD,0)		
C:' b!6
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ I!<P
	  IFE IAB,<..TA==0>
	  I`IFN B,<EXP ..TAJ
		    PURGE ..TA>
	PURGE ..TE2&i1 Vy->p
	IFIDN <W)E><C>,<EXTERNAL WHBMAN,BDEV>
	SIWhXBIT	/A/
	XWD	BMAN,BDEV
D	QWQSEKJv	BE@tP'E@vyQ ~E@v:=Q |F:<P F;z:Q @G@ 6a36
	    ..CX(,A,B)   ..CGD :!3R
	    ..CX(A,A,B)  ..CGDP 8!3B
	    ..CX(E,A,B)  ..CGDp 8a3F
	    ..CX(G,A,B)  ..CGDy  9!3J
	    ..CX(GE,A,B) ..CGE@ 7!3:
	    ..CX(L,A,B)  ..CGEI  7a3>
	    ..CX(LE,A,B) ..CGE` 9a3N
	    ..CX(N,A,B)  ..CGH iIr

	  LST	OF.

	X CRE	
	IX GEN	
	X PRT	
i	X CLS	
	X)AUT	
	X USW	
	X SPL		
	X SIZ   
	X M(OD	
	X CHN	

	  LSTON.


	G3.= Z)-RIFN C.GALA,IFN C.GALAG4,m:Q G4-ZQ G4.

zQ G:YlP

G>vC@L`Q.
PAGE`q; (A Continued oan next page)
SALa0L; (A Continued aPfrom 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  4;&
	IFNB <4!B>,<..STR0 (.DECR4@0,,<B>,A)>
	IF4`B  <B>,<SOS A>  <B>,<SOS A>I6= l!6v
	A==<-1lAB<C>+1B<C-D>> l`
	IF1,<IFDEF %Am,<PRINTX ?A ALREm ADY DEFINED>>
	Dm@EFINE %A (OP,AC,m`Y,MSK)<	
	IFDIF n<Y><>,<
	OP (<ACn >,B+'Y,MSK)>
	In@FIDN <Y><>,<
	OPn` (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 @!4..OP(A,B,DIV)..OP(A,BIOH1 IQ.
	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 )Ib
	IF1,<IFIDEF ERA$,PRINTX h?Duplicate error code A>
	ERA$=(=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y a	IV
	ERR	EOFa),<End of file>
	aHERR	IFP,<Illegal ahfile position>
	bERR	FDE,<File datb(a error>
	ERR	FNbHD,<File is not onbh disk>
	ERR	FSM,c<File still mappec(d>			;[301]
	ERRcH	NSD,<No such devchice>
	ERR	FCF,<Fdile checkpoint fad(iled>
	ERR	SLE,<dHA system limit wadhs exceeded>
	ERRe	IFS,<Illegal file(e specification>
	ERR	FNF,<File nehot found>
	ERR	PfRT,<Protection vif(olation>
	ERR	DNfHA,<Device not avafhilable>
	ERR	NCEg,<No "current" eng(try in list>
	ERgHR	NMA,<No IPCF meghssage is availablhe>
	ERR	FDS,<Filh(es are on differehHnt structures>
	hhERR	FAE,<File alrieady exists>
	ERi(R	USE,<UnexpectediH system error>
	ihERR	NSP,<No such jpid>
	ERR	BOL,<Bj(eginning of list jHreached>
	ERR	EOjhL,<End of list rekached>
	ERR	RQF,k(<Receivers quota kHfull>
	ERR	SQF,<khSenders quota fulll>
	ERR	NRE,<No l(remembered entry>lH
	ERR	TBF,<Tablelh is full>
	ERR	EmIT,<Table entry am(lready exists>
	mHERR	ITE,<Invalid mhtable entry>
	ERnR	QEF,<Quota excen(eded or disk fullnH>
	ERR	ARG,<Invanhlid argument specoified>
	ERR	IFN,o(<Invalid functionoH specified>
	ERRoh	IJN,<Invalid jobp number specifiedp(>
	ERR	RAD,<InvapHlid radix specifiphed>
	ERR	NUM,<Inqvalid numeric argq(ument>
	ERR	IDT,qH<Invalid date fieqhld specified>
	ErRR	ITF,<Invalid tr(ime field specifirHed>
	ERR	DOR,<Darhte/time out of rasnge>
	ERR	DTM,<Vs(alue missing in dsHate/time>
	ERR	MshDD,<Missing day itn date/time>
	ERt(R	DFZ,<Field zerotH in date/time>
	thERR	MDS,<Mnemonicu date/time switchu( not implemented>uH
	ERR	DFL,<Fielduh too large in datve/time>
	ERR	ILRv(,<Illegal year fovHrmat in date/timevh>
	ERR	NND,<Negawtive number in daw(te/time>
	ERR	NPwHF,<Not known whetwhher past or futurxe in date/time>
x(	ERR	RDP,<RelativxHe date parse requxhired>
	ERR	NSW,<ySwitch does not by(egin with slash>
	ERR	NOM,<Unrecoyhgnized switch or zkeyword>
	ERR	NUz(L,<Null switch orzH keyword given>
zh	ERR	INW,<Invalid{ guide word>
	ER{(R	NC,<Not confirm{Hed>
	ERR	ICN,<In{hvalid character i|n number>
	ERR	N|(QS,<Invalid quote|Hd string - does n|hot begin with quo}te>
	ERR	AMB,<Am}(biguous switch or}H keyword>
	ERR	N}hMT,<Does not matc~h token>
	ERR	CM~(A,<Comma not give~Hn>
	ERR	NNC,<Nod~he name may not exceed 6 characters(>
	ERR	INT,<NodeH terminator "::" hmust be specified>
	ERR	NSN,<Unkn(own node name>
	HERR	IPS,<Invalid hpath specification>
	ERR	IUS,<Inv(alid user specifiHcation>
	ERR	DGSh,<Device name may not exceed 6 cha(racters>
	ERR	DNHE,<Unknown deviceh>
	ERR	DIO,<Device can not do inp(ut or output>
	EHRR	BDF,<Invalid dhate/time format>
	ERR	ABS,<Field (too long for inteHrnal buffer>
	ERhR	TMT,<Command too long for intern(al buffer>
	ERR	HBDS,<Invalid defahult string>
	ERR	BTF,<Invalid tab(le format>
	ERR	HTME,<Date/time muhst be in the future>
	ERR	TMN,<No( timer entry has Hexpired>
	ERR	TMhA,<Timer entry already exists>
	E(RR	DVT,<Device teHrminator ":" musth be specified>
		ERR	NCI,<Argument	( block may not be	H in the ACs>
	ER	hR	TLU,<Terminal l
ocation is unknow
(n>
	ERR	FIO,<Fil
He is offline>
	E
hRR	FBM,<File being modified>
	ERR(	WLK,<Write-lockeHd device>
	ERR	ChSD,<Cannot supers

ede a directory>

(
	ERR	CDD,<Cannot

H delete a non-emp

hty directory>
	E	SNF,<Sub-fileu
	ERR	ESL,<Se empty>
	ERR	LVL,<SFD( level nested deeHper than the maxihmum allowed>
	ERR	CCW,<Cannot cre(ate/write on any Hstructure in searhch list>
	ERR	FCU,<Cannot update (file>
	ERR	ENQ,<HFile has outstandhing Enqueue lockes set>
	ERR	SWS,(<Software write-lHock on structure>h
	ERR	DER,<Hardware device error>(
	ERR	DTE,<Hard Hdata error>
	ERRh	BKT,<Block too large>
	ERR	IPP,<(Non-existant UFD>H
	ERR	TRN,<RIB ohr transmission error>
	ERR	ILC,<I(llegal character Hin date/time>
	EhRR	NFT,<Date/time must be in the f(uture>
	ERR	NPS,H<Date/time must bhe in the past>
	ERR	UDM,<Unrecogn(ized month in datHe/time>
	ERR	UDNh,<Unrecognized name in date/time>
	ERR	IFA,<IllegaHl file attribute>h
	ERR	FAI,<File attribute inconsi(stancy>
	ERR	CEIH,<Can't enable/dihsable interrupt system>
	ERR	ENF,(<Linked list entrHy not found>
	ERhR	NSL,<No such linked list>
	ERR	(NFP,<No free pageHs>
	ERR	NPI,<No hfree 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` V9=E
	IFIDN <VYBC><>,<EXP <A>Vx>
	IFDIF <BC><W>,<
	 IFE <A+1>W8,<<POINT 7,C>>
WX	 IFN <A+1>,<
	Wx   IFIDN <C><>,<XEXP <A,B>>
	  X8 IFDIF <C><>,<EXXXP <A,B,C>>
	>>A,B,C>>
	>Kc  ^-sIRP A,<
^1	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  $2 <<<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|  ^q.IRP A,<
_	IF2,<IFDEF A,<._0IFN A,EXTERN,<IN_PTERN A>>
	     _pIFNDEF A,<EXTERN` A>
	Q SUPPRESPA>>YSUPPRO3FX7P Qf@ +QfI@ <StLQ St\Yp Stkp SuZp Suh1Q SulQ Su}:p Sv
1p Sv

Sp Sv>9Q Sv>@p SNn ?a3~..OP(A,B,IDIV).OP(A,BS7-N >a3v..OP(A,B,IMUL).OP(A,BS:  1;
	IFNB <1!B>,<..STR0 (.INCR1@0,,<B>,A)>
	IF1`B  <B>,<AOS A>  <B>,<AOS A>S;k &A24<<<A>B<POS(<B>)>>&<B>>S;!kP S;!k<P S? aa6
	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.	Y9XCREF
	..TEXT<AYX>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ iJ

	  LST	OF.

	X JNO,.JI(JNO,<-1,,GJBJNO>	H
	X TNO,.JITNO,<h-1,,GJBTTY>	
	X  USR,.JIUNO,.GTPPN (		
	X CDN,.JIDNO H,<-1,,GJBPTH>	
	 hX PRG,.JIPNM,.GTP!RG		
	XHCJN,.JIC!(PJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.G!hTOBI		
	X JLT,.J"ISTM,.GTJLT		
	X"( LOC,<-1,,GJBLOC>"H,<-1,,GJBLOC> 
	"hX RTM,.JIRT,<-1,,#GJBRTM>	
	X TLC,#(<-1,,GJBTLC>,<-1,#H,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 1u

	  LST9OF. XCREF

	CDOX	OTSINI			
	CDO	x    			
	CDO	.ZPAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CDXO	.SAVE1
	CDO	.SxAVE2
	CDO	.SAVE3
	CDO	.SAVE4
	C8DO	.SAVET
	CDO	.XSV13
	CDO	.SV14
	CDO	.SV15
	CDO	.SV16
	CDO	.RET8T
	CDO	.RETF
	CXDO	.RETE
	CDO	.AxOS		
	CDO	.SOS		
	CDO	.ZERO		
	8CDO	.POPJ		
	CDOX	.STOP		
	CDO	.SxAVE8		
	CDO	.STKST		
	CDO	.TRSET8		
	CDO	.POPJ1		X
	CDO	.UD2SC		
x	CDO	.SC2UD		
	CDO	.CPUTY		
	CDO8
	CDO
	CDO

	XCDO			
	CDO	C%RPxRM
	CDO	C%INTR
	CDO	C%SEND
	CDO8	C%RECV
	CDO	C%BXRCV
	CDO	C%REL
x	CDO	C%CPID
	CDO	C%KPID
	CDO	C%S8PID
	CDO	C%MAXP
	CDO	C%PIDJ
	CDxO
	CDO
	CDO
	CDO
	CDO

	CDO	8      			
	CDO	FX%IOPN
	CDO	F%AOPxN
	CDO	F%OOPN
		CDO	F%IBYT
	CDO		8F%OBYT
	CDO	F%IB	XUF
	CDO	F%OBUF
	x	CDO	F%REL
	CDO	
F%DREL
	CDO	F%RR
8EL
	CDO	F%REW
	
XCDO	F%POS
	CDO	F
x%CHKP
	CDO	F%INFO
	CDO	F%FD
	CD8O	F%REN
	CDO	F%DXEL
	CDO	F%FCHN
x	CDO
	CDO
	CDO


	CDO
	CDO
	CDO

8
	CDO
	CDO
	CD

XO

	CDO

x		
	CDO	M%ACQP
	CDO	M%RELP
	CDOPSN
	CDO	M%N
	CDO	M%IPRC
	CDO	M%IPRM
	CDO	M%AQNP
	CDO	M%8RLNP
	CDO	M%CLNCX
	CDO	M%FPGS
	CxDO	M%GMEM
	CDO	M%RMEM
	CDO
	CDO8
	CDO
	CDO
	CDXO
	CDO
	CDO	M%GxPAG
	CDO	M%RPAG
	CDO
	CDO
	CDO8
	CDO
	CDO
	CDXO
	CDO
	CDO

x	CDO	      			
	CDO	T%TEXT
	CDO	8T%TTY
	CDO
	CDOX
	CDO
	CDO
	CDxO
	CDO
	CDO
	CDO
	CDO
	CDO
8
	CDO	      			
X	CDO	L%CLST
	CDOx	L%DLST
	CDO	L%CENT
	CDO	L%CBFR
	CDO	L%DENT
	CDXO	L%NEXT
	CDO	L%xFIRS
	CDO	L%LAST
	CDO	L%PREV
	C8DO	L%PREM
	CDO	LX%CURR
	CDO	L%RENxT
	CDO	L%SIZE
	CDO	L%APOS
	CDO
	CDO
	CDO
	CDOX
	CDO
	CDO
	CDxO
	CDO

	CDO			
	CDO	I%NOW
	C8DO	I%EXIT
	CDO	IX%ION
	CDO	I%IOFFx
	CDO	I%SLP
	CDO	I%INT1
	CDO	I%8INT2
	CDO	I%INT3X
	CDO	I%TIMR
	CxDO
	CDO
	CDO	I%SOPR
	CDO	I%WTO
	CDO
	CDO	I%HOSXT
	CDO	I%JINF
	xCDO
	CDO

	CDO			
	CDO
	CDO	S8%DATI
	CDO	S%SIXXB
	CDO	S%CMND
	xCDO	S%TBLK
	CDO	S%SCMP
	CDO	S%ER8R
	CDO	S%INTR
	XCDO	S%EXIT
	CDO	xS%TBAD
	CDO	S%TBDL
	CDO	S%NUMI
8

	CDO	K%RCOC		X	
	CDO	K%WCOC
	xCDO	K%SUET
	CDO	K%STYP
	CDO	K%TX8TI
	CDO	K%SOUT
X	CDO	K%BOUT
	CDOx	K%BIN
	CDO	K%BACK
	CDO	K%TPOS
8	CDO	K%BUFF
	CDOX	K%FLSH
	CDO	K%OxPEN
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDOX
	CDO
	  LSTON.
  
	  LSTON.Y>

@ *A:Z
	IFNB <*aC>,<..STR0 (..LDB+,A,C,B)>
	IFB+   <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG b.
	IFNDEF b1LSTIN.,LSTIN.==0	bP	
IFE LSTIN.,<
bp	IFIDN <XCREF><Ac>,<.XCREF>	
		  c0 XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G cq.%
	IFG LSTdIN.,LSTIN.==LSTINd0.-1	
	IFLE LSTINdP.,<.CREF		
		      LIST>
		   [3@ &20<<<1_<A>>-1>B<B>>_<A>>[8@ %2(1B<<A>-1>-1B<B><<A>-1>[@ zY/a
	IFB <Bzy>,<MAXSIZ==0
		I{RP A,<IFG <A-MA{8XSIZ>,<MAXSIZ==A{X>>>
	IFNB <B>,<{xB==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 |Y/u
	IFB <B|y>,<MINSIZ==377777},,777777
		IRP }8A,<IFG <MINSIZ-A}X>,<MINSIZ==A>>>
	IFNB <B>,<B==~377777,,777777
	~8	IRP A,<IFG <B-~XA>,<B==A>>>
A>,<B==A>>>
[>!`%A2,<A-<A/B>*B><A-<A/B[>w@&
   ..MX1'!==B			
IFDEF .P'@SECT,<
   .IFN .'`.MX1,ABSOLUTE,<
(	MOVE A,[B]>
 (   .IF ..MX1,ABSOL(@UTE,<
	..MX2==0	(`	
	IFE <..MX1>B5)3,<
	) ..MX2==1
	  MOVEI A,..MX)@1>	
	IFE ..MX2,<)`		
	IFE <..MX1>B*17,<
	  ..MX2==1* 
	  MOVSI A,(..*@MX1)>>	
	IFE ..M*`X2,<		
	IFE <<..+MX1>B53-^O777777>+ ,<
	  ..MX2==1
+@	  HRROI A,<..MX+`1>>>	
	IFE ..MX2,,<		
	IFE <<..MX, 1>B17-^O777777B17,@>,<
	,`..MX2==1
	  HRLOI A,(..M-X1-^O777777)>> 
- 	IFE ..MX2,<		
	-@  MOVE A,[..MX1]-`>	
	>>

IFNDEF. .PSECT,<
	..MX2. ==0		
	IFE <..MX.@1>B53,<
	  ..MX2.`==1
	  MOVEI A,/..MX1>	
	IFE ..M/ X2,<		
	IFE <..M/@X1>B17,<
	  ..MX/`2==1
	  MOVSI A0,(..MX1)>>	
	IFE0  ..MX2,<		
	IFE 0@<<..MX1>B53-^O7770`777>,<
	  ..MX2=1=1
	  HRROI A,<1 ..MX1>>>	
	IFE .[email protected],<		
	IFE <<1`..MX1>B17-^O7777727B17>,<
	  ..MX22 ==1
	  HRLOI A,2@(..MX1-^O777777)>2`> 
	IFE ..MX2,<	3	
	  MOVE A,[..3 MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= o!7


	A==C	oA	
	IF1,<IFDEF %o`A,<PRINTX ?A ALRpEADY DEFINED>>
	p DEFINE %A (OP,ACp@,Y,MSK)<	
	IFDIFp` <Y><>,<
	OP (<AqC>,B+'Y,MSK)>
	q IFIDN <Y><>,<
	Oq@P (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg ?!3z..OP(A,B,MUL)..OP(A,B[`v
2P [b6<P F] \Q-gIF2,<IFDEF\q A,<A==A>> IFNDEF A,<A==B>]F@ LrTEMFDB##_
QkRp _
Ql7p _
Qlxp _
Ql}p _
Qmp _
Qm7p _
T= *1K



	X	.OT)RDR,Reader
	X	.OiTNCU,Network-Cont*Qroller
	X	.OTLPT*,Printer
	X	.OTB,	AT,Batch-Stream
,(	X	.OTCDP,Card-Pu,Hnch
	X	.OTPTP,Pa,hpertape
	X	.OTPL-T,Plotter
	X	.OT-(JOB,Job
	X	.OTTR-HM,Terminal
	X	.O-hTOPR,Operator
	X.	.OTIBM,<IBM Remo.(te>
	X	.OTMNT,<D.Hevice>
	X	.OTFTS.h,<File Transfer>
	X	.OTBIN,<Card /(Reader Interprete/Hr>
	X	.OTRET,<Fi/hle Retrieval>
	X0	.OTNOT,<Retrieva0(l Notification>
0H	X	.OTDBM,<DBMS S0hystem>
	X	.OTFAL1,<File Access Lis1(tener>
	X	.OTSNA1H,<SNA Workstation>
 Workstation_Sh6 :!KR [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 ;L

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

  ;a IFNB <D>,<..XX=<Y..XX!CM%HPP> 
  <x IFNB <E>,<..XX==..XX!CM%DPP> 

=8	EXP ..XX		

  =X IFNB <C>,<EXP =xC>
   IFB <C>,<>EXP 0>

   IFNB>8 <D>,<POINT 7,[A>XSCIZ \D\]>
   I>xFB <D>,<0>

?? IFNB <E>,<POINT?8 7,[ASCIZ \E\]>
?xIFB <E>,<0>



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

  @X IFB <J>,<0>
  @x IFNB <J>,<EXP AJ>

   IFB <H>A8,<0>
   IFNB <HAX>,<EXP H>

   AxIFB <G>,<0>
   BIFNB <G>,<EXP G>

G>,<EXP Ga 1yLSH A,^D9LSH A,^D9a+= 5a;&  }	?p
	 IFB  <})B>,<..STR0(..PNT}H,,<FWMASK>,A)>
}h	 IFNB <B>,<..ST~R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm #!2<POINT WID#A(B),A,POS(B)>B),A,POS(B)>a?H6 +a? !2	<^L<<A>&<-<A>>>><<A>&<aJNh6P aJ}Ks e/G

	SALL	e9			
	LSTOF. XCREeXF			

	LOC 0			ex
	ASCIZ \
COPYRfIGHT (c) DIGITAL f8EQUIPMENT CORPORAfXTION 1975,1988.
fxALL RIGHTS RESERVgED.
\				
	RELOg8C			

	%%.GLX==gX%%.GLX			


	IgxFNB <A>,<%%.MOD=h=SIXBIT/A/> 
	Ih8FNB <B>,<%%.OTS=hX=SIXBIT/B/> 

hx	GLOB	I%INIT			
i
	TOPS10	<			
	i8	SEARCH	UUOSYM		
		%%UUOS==%%UUOSix		
	>				

	TOjPS20	<			
		SEARj8CH	MONSYM		
;		%jX%MONS==%%MONS		
jx	>				

	IFB <kB>,<			
		.TEXT	k8|,REL:GLXLIB/SEARkXCH/REQUIRE:I%INITkx|
		DEFINE	$DATAl (NAM,SIZ<1>),< 
			NAM:	BLOCK	SIlXZ
		>			
		DEFIlxNE	CDO (X),<GLOB mX> 
		LIBVEC			
	>				

	IFNB mX<B>,<IFDIF <B><mxINI>,< 
		IFN GLnXPURE,<.PSECT .HIn8GH.> 
		IFE GLXPnXURE,<		
			TWOSEnxG	400000	
			RELoOC	0	
			RELOC	4o800000	
		>			
oX
		DEFINE $DATA(NoxAM,SIZ<1>),< 
		p	IFN GLXPURE,<.PSp8ECT DATA> 
			IFpXE GLXPURE,<RELOC>px 
			IFNDEF B%Dq,<B%D::! B%DL==q8:0>
			NAM:	BLOCqXK	SIZ
			B%DL==qx:B%DL+SIZ 
			IrFN GLXPURE,<.ENDPr8S DATA> 
			IFE rXGLXPURE,<RELOC> 
		>			

		IFDIsF <B><OTS>,<	
	s8		DEFINE	CDO (X),sX<GLOB X> 
			LIBsxVEC		
		>			

t	>>				

	IFNB t8<B>,<IFIDN <B><tXINI>,< 
		DEFINEtx	$DATA (NAM,SIZ<1u>),< 
			NAM:	BLu8OCK	SIZ
		>			
uX	>>				

	LSTONux.				

	GLOB	<.vPOPJ, .RETT, .RETv8F>	
	OPDEF	$RET	vX[POPJ	P,]	
	OPDEvxF	$RETT	[PJRST	.RwETT]	
	OPDEF	$REw8TF	[PJRST	.RETF]	wX
	OPDEF	$RETIT	[wxJUMPT	.POPJ]	
	OxPDEF	$RETIF	[JUMPx8F	.POPJ]	
	.NODDxXT	$RET,$RETT,$RETxxF,$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"@ JA<d
	IFN <<.Ja.TA>&B>,<PRINTXK ?Initial field nK ot zero in $SET>
	K`..TVAL==<C>
	L..TMSK==<B>
	  ..TA==..TA!L <FLD(..TVAL,..TMSL@K)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z Q)M
C.SWIT+PDBCPY##C.SWIT+PDBg$tkQ@@g$uP'g$uh6Qg&t{ Zq-WIFE C.GALA,IFE C.GALAg.N	@ 6@g.N
.SPID	(S4P.QSR,.IPCPQ,.SPQ4 SR,QUASAR)	
.SPI4@D	(SP.OPR,.IPCPO,4`.SPOPR,ORION)	
.5SPID	(SP.INF,.IPC5 PI,.SPINF,INFO)	
.SPID	(SP.MDA,.I5`PCPM,.SPMDA,MDA)	6
.SPID	(SP.NEB,,6 .SPNEB,NEBULA)		
TOPS10<
.SPID	(6`SP.IPC,.IPCPS,,IP7CC)		
.SPID	(SP.7 ACT,.IPCPA,,ACTDA7@E)		
.SPID	(SP.T7`LP,.IPCPT,,TAPLAB8)		
.SPID	(SP.TO8 L,.IPCPC,,TAPAVR)8@		
.SPID	(SP.DOL8`,.IPCPD,,DSKAVR)	9	
.SPID	(SP.FIL,9 .IPCPF,,FILDAE)		
>
,FILDAE)		gR^h9 A8L
	..STKR=a=10		
	RADIX 8
	..STKN==0
	IRP  A,<
	  .STKV1 (@A)>
	$CALL	.STK`ST
	 ..STKN,,..S	TKN
	RADIX ..STK	 R
	PURGE ..STKN,	@..STKR,..STKQ
   TKR,..STKQ
  gR~)  -a:t
	IFNB <.C>,<..STR0 (..DPB. ,A,C,B)>
	IFB.@  <C>,<MOVEM A,B>>,<MOVEM A,gV >!3r..AS(A,B,SUB,ADD)(A,Bgg

V y9/Q
	IFNB <yYB>,<TOPS10<A==Byx>>
	IFNB <C>,<TzOPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( QQMIFN FTUUOS,JtlP2KJtmi?4H QQIFN FTJSYS,JuhbPKJuiiD d>-

  IFNBd9	<A>,<.TQCHA==^dXD<B>B17+ZZ>
  IdxFNB 	<D>,<DEFINEe ..TQMA<D>>
  e8IFNB	<C>,<.TQC=eX=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, Z>
	LSTOF.
	TQ(T,2,ASCIZ)		ZX	
	TQ(O,2,OCTAL)Zx			
	TQ(D,2,DECI[MAL)			
	TQ(F,2,[8FILE)			
	TQ(7,2[X,CSEVEN)			
	TQ([x6,2,CSIXBIT)			
\	TQ(W,2,SIXBIT)		\8	
	TQ(5,2,SVNBIT\X)			
	TQ(P,2,USE\xR)			
	TQ(U,2,DI]RECTORY)			
	TQ(]8H,2,DAYTIME)			
]X	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		^	
	TQ(I,1,INDIRE^8CT)		
	TQ(M,0,CR^X,..TXC0(\".CHCRT)^x)	
	TQ(J,0,LF,..TXC0(\".CHLFD))	
	TQ(L,0,FF,..TXC_X0(\".CHFFD))	
	T_xQ(K,0,VT,..TXC0(\`".CHVTB))	
	TQ(A`8,0,NOCRLF,..TXA(.`XTQCHA))	
	TQ(0,0`x,NULL,..TXA(.TQCHa0))	
	TQ(3,0,STRa8ING,..TXER(IQU))	aX
	TQ(V,2,VERSIONax)			
	TQ(2,0,CARbET,..TXER(IQU))	
	TQ(Q,2,POINTER)bX			
	TQ(B,2,ROB)bx			
	TQ(1,2,OBJEcCT)			
	TQ(N,2,Nc8ODE)			
	TQ(R,2,cXJIB)			
	LSTON.
)			
	LSTON. IJK
	LSTOF.
	X(33,TTY33,33,)$I				
	X(35,TTY35%	,35,)				
TOPS20$i<
	X(37,TTY37,37%1,)				
	X(EXECUP%PORT,EXEC,EXE,)			%p
>
TOPS10<
	X(&LA120,LA120,L12,)&0			
>
	X(LA36,L&PA36,L36,)			
	X(&pVT05,VT05,V05,<37',177,177,177>)	
'0	X(VT100,VT100,10'P0,<.CHESC,"[","K"'p>)	
	X(VT50,VT50(,V50,<.CHESC,"J">(0)		
	X(VT52,VT52(P,V52,<.CHESC,"J">(p)		
TOPS10<	X(VT)61,VT61,V61,<.CHE)0SC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ 8~
	..TRR==!10		
	RADIX 8
	@..NV==1			
	IRP `A,<
	  .TRV1 (A)>		
	$CALL	.TR SET		
	 ..NV-1,,@..NV-1
	RADIX ..`TRR		
	PURGE ..TRR,..NVURGE ..Tib W!5:
		..TX(C,A,<B>)..TX(Cib Xa5F
		..TX(CA,A,<B>).TX(CibP Wa5>
		..TX(CE,A,<B>).TX(Cib` X!5B
		..TX(CN,A,<B>).TX(Cibp Q!5

		..TX(N,A,<B>)..TX(Nibt Ra5
		..TX(NA,A,<B>).TX(NibtP Qa5
		..TX(NE,A,<B>).TX(Nibu` R!5
		..TX(NN,A,<B>).TX(Nibx S!5
		..TX(O,A,<B>)..TX(Oib| Ta5&
		..TX(OA,A,<B>).TX(Oib|P Sa5
		..TX(OE,A,<B>).TX(Oib}` T!5"
		..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 U!5*
		..TX(Z,A,<B>)..TX(ZicT Va56
		..TX(ZA,A,<B>).TX(ZicTP Ua5.
		..TX(ZE,A,<B>).TX(ZicU` V!52
		..TX(ZN,A,<B>).TX(Zm:7 X)-H
	IFG  <XIAMAN-ADEV>,<AEDXhT==:AMAN>
	IFLEY <AMAN-ADEV>,<AEDT==:ADEV>
mKc@ YI-NBYTE (3)AYiWHO (9)AVER (6)AMIN (18)AEDTotkP ouxZP o&   Q2<^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 #iJ
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +

q+= +
q6~i4 C q? ba6
	TXC A,<B>
	TXC A,q@ ]1-mIFB <C>,<]QA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up 7;>
	IFNB <7!B>,<..STR1 (..TQZ7@,,<B>,A,..STR4)7`>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z )Q
	.$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 OiE
.WTOX.(.OMP	ACK,<A>,<B>,<CP(>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 MLjDEFINE .$RM!TN <A>
			.%RTN==1A>
			.%RTN	fI9 HLBDEFINE .$LH!ST <A+1>
			.%LST==11>
			.%L	
=Z ;A;d
	  IFG ;aA-INT.LV,<PRINTX <?Level A interru< pts not supported<@>
	  .BGINT.(\A)   .BGINT.(\A	X5 J!LTDEFINE .$BJAREA <A>
			.%BREA==1>
			.%BR	- >!<
	  IFDEF>A ..BSIZ,<PRINTX ?>`Missing $EOB afte?r a $BUILD>
	  .? .BSIZ==0			
	  .[email protected]==.			
	  R?`EPEAT A,<			
		@BLD0.(\..BSIZ,0)	@ 
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 {	O^
	.$RESET{)
	$TYPE (.CMCMA){H
	$NEXT (A)
	I{hRP B,<B>
	.$BUILD,<B>
	.$BU	I@ wIO@
	.$RESETwi
	$TYPE (.CMCFM)x
	IRP A,<A>
	.$BUILD,<A>
		$^ )P
	.$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  iP&
	.$RESET	
	$TYPE (.CMTAD)(
	$PDATA (CM%IDAH)
	$NEXT (A)
	hIRP B,<B>
	.$BUILD,<B>
	.$B	,,U =A;n
	  $RET	=a			;WILL INVOKE RIGHT ROUTINE
		,h: F!L6DEFINE .$DFAEFM <POINT 7,[ASCF`IZ\A\]>
			.%DEFM==1>
			.%DE	.` 	P
	.$RESET)
	$TYPE (.CMDEV)H
	$NEXT (A)
	IhRP B,<B>
	.$BUILD,<B>
	.$BU	Lz: f	NB
	.$RESETf)
	$TYPE (.CMNUX)fH
	$PDATA (B)
	fh$HELP (<>)
	$NEXgT (A)
IFIDN <Cg(> <>,< IRP D,<DgH>
			.$BUILD>
IghFDIF <C> <>,<
	h$HELP (C)
	IRP h(D,<D>
	.$BUILD><D>
	.$BUILD	N  xIOJ
	.$RESETxi
	$TYPE (.CMDIR)y
	$NEXT (A)
	Iy(RP B,<B>
	.$BUILD,<B>
	.$BU	|  E!<F
	  IFNDEEAF ..BSIZ,<PRINTX E`?$EOB without preFvious $BUILD>
	 F  IFN <.-..BLOC>,<F@PRINTX ?Address cF`hange between $BUGILD and $EOB>
	 G  LSTOF.			
	  ..G@T==0
	  REPEAT .G`.BSIZ,<
	    BLDH0.(\..T,1)		
	  H   ..T==..T+1 >
	H@  PURGE ..BSIZ,..H`T,..BLOC	
	  LSTON.
		
	  LST	+y IALNDEFINE .$EIaRTN <A>
			.%ERTN==1>
			.%ER	, KLZDEFINE .$EK!RTN <1B0+A+1>
			.%ERTN==1>
		- KaLdDEFINE .$ELRTN <[MOVEI S2,[AL SCIZ\A\]
				  L@    $RETF]>
			.%ERTN==1>
			.	H6 O=
	$CALL	.O9STOP
	LSTOF.
	JOXUMP	[XWD 0,[ITEXTOx (<A>)]
		 EXP P%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ u	O8
	.$RESETu)
	$TYPE (.CMFLD)uH
	$NEXT (A)
	$uhHELP (<>)
IFIDN v<B> <>,< IRP C,v(<C>
			.$BUILD>vH
IFDIF <B> <>,<vh
	$HELP (B)
	IwRP C,<C>
	.$BUILD><C>
	.$BU	MI  rIO$
	.$RESETri
	$TYPE (.CMFIL)s
	$HELP (<>)
	$s(NEXT (A)
IFIDN sH<B> <>,< IRP C,sh<C>
			.$BUILD>t
IFDIF <B> <>,<t(
	$HELP (B)
	ItHRP C,<C>
	.$BUILD><C>
	.$BU	dy CALDEFINE .$FCaLGS <A>
			.%FLGS==1>
			.%FL	ex: }IO|
	.$RESET}i
	$TYPE (.CMFLT)~
	$HELP (<>)
	$~(NEXT (A)
IFIDN ~H<B> <>,< IRP C,~h<C>
			.$BUILD>
IFDIF <B> <>,<(
	$HELP (B)
	IHRP C,<C>
	.$BUILD><C>
	.$BU	$ N)<u!X
	  INTERNYN A
	  $DATA(A,<B>)
	ATA(AR<n1	"
	IFDIF <E!A> <>,<
DEFINE E@.$HLPM <POINT 7,[E`ASCIZ\A\]>
			.%HLPM==1>
			.	&5 mIN|
	.$RESETmi
	$TYPE (.CMIFI)n
	$HELP (<>)
	$n(NEXT (A)
IFIDN nH<B> <>,< IRP C,nh<C>
			.$BUILD>o
IFDIF <B> <>,<o(
	$HELP (B)
	IoHRP C,<C>
	.$BUILD><C>
	.$BU	&u |)Oh
	.$RESET|I
	$NEXT (A)
	$|hTYPE (.CMINI)
	I}RP B,<B>
	.$BUILD,<B>
	.$BU	./ aiN
	.$RESETb	
	$TYPE (.CMKEY)b(
	$PDATA (B)
	bH$NEXT (A)
	IRP bhC,<C>
	.$BUILD,<C>
	.$BUILD	./ `)N

	.$RESET`I
	$TYPE (.CMKEY)`h
	$PDATA (A)
	a$NEXT (0)
	IRP a(B,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDSIE.WTOX.(.OMSiWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p RiE.WTOX.(.OMS	LOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV 
	.$RESET
	$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 hiNP
	.$RESETi	
	$TYPE (.CMNOI)i(
	$PDATA (<POINTiH 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRjP C,<C>
	.$BUILD,<C>
	.$BUI	;-XR c)N,
	.$RESETcI
	$TYPE (.CMNUM)ch
	$PDATA (B)
	d$HELP (<>)
	$NEXd(T (A)
IFIDN <CdH> <>,< IRP D,<Ddh>
			.$BUILD>
IeFDIF <C> <>,<
	e($HELP (C)
	IRP eHD,<D>
	.$BUILD><D>
	.$BUILD	>5 p	O
	.$RESETp)
	$TYPE (.CMOFI)pH
	$NEXT (A)
	$phHELP (<>)
IFIDN q<B> <>,< IRP C,q(<C>
			.$BUILD>qH
IFDIF <B> <>,<qh
	$HELP (B)
	IrRP C,<C>
	.$BUILD><C>
	.$BU	B$ D!L$DEFINE .$DDAATA <A>
			.%DATA==1>
			.%DA	B$YP G!L<DEFINE .$DGAEFM <POINT 7,<A>>
			.%DEFM==1	CYT MaLpDEFINE .$DNEFR <A>
			.%DEFR==1>
			.%DE	F

:` PiE

.QWTO.(.OMQ	ACK,<A>,<B>,<CQ(>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	G-} )PR
	.$RESETI
	$TYPE (.CMQST)h
	$HELP (<>)
	$	NEXT (A)
IFIDN 	(<B> <>,< IRP C,	H<C>
			.$BUILD>	h
IFDIF <B> <>,<

	$HELP (B)
	I
(RP C,<C>
	.$BUILD><C>
	.$BU	G>K` N	Dt.QWTO.(.OMN)WTO,<A>,<B>,<CNH>,,<$WTMFL(MF.WTO),D>)FL(MF.WTO	J.I  M	<l
	  $CALLM)	.RETE			
		LSTOMHF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  !:@
	.NVR==0A			
	.ACM==0			

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

	IFN .A@CM,<	
	    IFE <`.ACM-17B<T4>>,<.ACM==0
				$CALL  .SAVET>
	    IFE@ <.ACM-377B<.A16>`>,<.ACM==0
				$CALL .SAVE8>
	     IFE <.ACM-17B<P@4>>,<.ACM==0
			`	$CALL .SAVE4>
	    IFE <.ACM-7B< P3>>,<.ACM==0
		@		$CALL .SAVE3>
`	    IFE .NVR,<	
	    IFE <.ACM-3 B<P2>>,<.ACM==0
@				$CALL .SAVE2>`
	    IFE <.ACM- 1B<P1>>,<.ACM==0
				$CALL .SAVE1 @>
	    IFE <.ACM `-1B<.A13>>,<.ACM=!=0
				$CALL .SV! 13>
	    IFE <.A!@CM-1B<.A14>>,<.AC!`M==0
				$CALL ."SV14>
	    IFE <" .ACM-1B<.A15>>,<."@ACM==0
				$CALL"` .SV15>
	    IFE# <.ACM-1B<.A16>>,# <.ACM==0
				$CA#@LL .SV16>
	    >#`>

	IFN .ACM,<	$
	    IFE .NVR,<$ 			
		CAIA			
	$@	LSTOF.
		JRST $`b>

	    .ACB==%0			
	REPEAT ^D1% 6,<			
	    IFN %@<.ACM&1B<.ACB>>,<%`	
		..PUSH(\.ACB&,\<.NVR+1>)>
		.& ACB==.ACB+1>>		
&@
	IFN .NVR,<	
	&`    PUSH P,[[CAIA'		
		     AOS -.' NVR(P)	
	    REP'@EAT .NVR,<..POP(\'`.NVR)>	
		     P(OPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ @a<
	  IFNDEAF ..BSIZ,<PRINTX A ?$SET without preA@vious $BUILD>
	 A` IFNB <B>,<..STRB0 (..SET,<C>,B,B A)>
	IFB  <BB@>,<..STR0 (..SET,B`<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
		XWD b-1,b-1
	(DEFINE $ETAB <
		b==.-a> <
		O%| S9=#
S..A::!SY	$CALL .STOP
		LSxSTOF.
		JUMP [XWTD 'A',[ITEXT (<T8B>)]
			EXP %%.MOD]
		LSTON.	M	O= l	Nh
	.$RESETl)
	$TYPE (.CMSWI)lH
	$PDATA (A)
	lh$NEXT (0)
	IRP mB,<B>
	.$BUILD,<B>
	.$BUILD	O= jIN\
	.$RESETji
	$TYPE (.CMSWI)k
	$PDATA (B)
	k($NEXT (A)
	IRP kHC,<C>
	.$BUILD,<C>
	.$BUILD	R

@ iP>
	.$RESET	
	$TYPE (.CMTAD)(
	$PDATA (<CM%IDHA!CM%ITM>)
	$NEXhT (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	TU%TEXT
	LSTOF.	XCU8REF
	JUMP	[XWD 2UX,0
		 EVL (A)
Ux		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESETI
	$TYPE (.CMTAD)h
	$PDATA (CM%ITM)
	$NEXT (A)
	(IRP B,<B>
	.$BUILD,<B>
	.$B	R}97 iQ 
	.$RESET	
	$TYPE (.CMTOK)(
	$PDATA (<POINTH 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRP C,<C>
	.$BUILD,<C>
	.$BUI	S hy>3


  ..TXh	A(.TQA,C,D,E,fB)	
      IFN .fY.TXEF,<			
	..TEf9RR<$TQ(A,B,C,D,E)>>

C,	S@I9 i@
	LSTOF.
	X(UQU,Unknown q(ualifier)
	X(IQUH,Invalid qualifiehr)
	X(IJA,Invalid justification a(rgument)
	X(IWA,HInvalid width arghument)
	X(PEA,Premature end of ar(gument)
	X(JNA,JHustification is nhot allowed)
	X(ANA,Arguments are (not allowed)
	X(HADS,Address must hbe specified)
	LSTON.
ied)
	L	SN	  BaLDEFINE .$TCYP <A>
			.%TYPE==1>
			.%TYP	W= 
iPh
	.$RESET	
	$TYPE (.CMUQS)(
	$HELP (<>)
	$HNEXT (A)
	$PDAThA (B)
IFIDN <C

> <>,< IRP D,<D

(>
			.$BUILD>
I

HFDIF <C> <>,<

h$HELP (C)
	IRP<D>
	.$BUILD><D>
	.$BUILD	W\@ yiOT
	.$RESETz	
	$TYPE (.CMUSR)z(
	$NEXT (A)
	IzHRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ PY=
IFE %%.OPyTS,<DEFINE $WARN Q(MSG) <
		$TEXT Q8(T%TTY,<% ^W6/[%%QX.MOD]/ MSG>)>>
IQxFN %%.OTS,<DEFINER $WARN (MSG) <
	R8	$TEXT (T%TTY,<% RX^W6/IIB+IB.PRG/ ^RxW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r @	D
		IFB	<@)A>,<.WFACD==0
		@H	IFN <0-2>,<.$WAC@hD==0>>
		IFNB	<AA>,<.WFACD==-1
	A(		IFN <0-2>,<.$WAAHCD==.$WACD!<A>>
			IFE <0-2>,<DEBFINE .$WACD,<<WO.B(ACD>B8+[ITEXT (<A>)]>>
		>
<	_$u 5	C:
		IFB	<5)A>,<.WFACK==0
		5H	IFN <0-2>,<.$WAC5hK==0>>
		IFNB	<6A>,<.WFACK==-1
	6(		IFN <0-2>,<.$WA6HCK==.$WACK!<A>>
			IFE <0-2>,<DE7FINE .$WACK,<<WO.7(ACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ &iDf
	IFE	<.W'	FMTY>,<PRINTX ?No'( message type in 'H$WTBLD>
DEFINE .'hEAWTO(SUFFIX,ARGC(OD),<
IFN .WF'SU((FFIX',<
	IFE	<AR(HGCOD-0>,<<WO.'SUF(hFIX'>B8+ .$W'SUFF)IX'>
	IFE	<ARGCO)(D-1>,<<WO.'SUFFIXKh'>B8+ [EXP .$W'SULFFIX']>
	IFE	<ARL(GCOD-2>,<.$W'SUFFLHIX'>
>
>
	ALLWLhTO				
	EXP	0			
		
	EXP	0				_$k 7iCP
		IFB	<8	A>,<.WFFLG==0
		8(	IFN <1-2>,<.$WFL8HG==0>>
		IFNB	<8hA>,<.WFFLG==-1
	9		IFN <1-2>,<.$WF9(LG==.$WFLG!<A>>
			IFE <1-2>,<DE9hFINE .$WFLG,<<WO.:FLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W =)C|
		IFB	<=IA>,<.WFJBN==0
		=h	IFN <0-2>,<.$WJB>N==0>>
		IFNB	<>(A>,<.WFJBN==-1
	>H		IFN <0-2>,<.$WJ>hBN==.$WJBN!<A>>
			IFE <0-2>,<DE?(FINE .$WJBN,<<WO.?HJBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV EID>
		IFB	<EiA>,<.WFMFL==0
		F	IFN <1-2>,<.$WMFF(L==0>>
		IFNB	<FHA>,<.WFMFL==-1
	Fh		IFN <1-2>,<.$WMGFL==.$WMFL!<A>>
			IFE <1-2>,<DEGHFINE .$WMFL,<<WO.GhMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] *	Bb
		IFB	<*)A>,<.WFMTY==0
		*H	IFN <0-2>,<.$WMT*hY==0>>
		IFNB	<+A>,<.WFMTY==-1
	+(		IFN <0-2>,<.$WM+HTY==.$WMTY!<A>>
			IFE <0-2>,<DE,FINE .$WMTY,<<WO.,(MTY>B8+[ITEXT (<A>)]>>
		>
<	_%j H)DT
		IFB	<HIA>,<.WFNHD==0
		Hh	IFN <0-2>,<.$WNHID==0>>
		IFNB	<I(A>,<.WFNHD==-1
	IH		IFN <0-2>,<.$WNIhHD==.$WNHD!<A>>
			IFE <0-2>,<DEJ(FINE .$WNHD,<<WO.JHNHD>B8+[ITEXT (<A>)]>>
		>
<	_%kr :ICf
		IFB	<:iA>,<.WFNOD==0
		;	IFN <0-2>,<.$WNO;(D==0>>
		IFNB	<;HA>,<.WFNOD==-1
	;h		IFN <0-2>,<.$WN<OD==.$WNOD!<A>>
			IFE <0-2>,<DE<HFINE .$WNOD,<<WO.<hNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p M)Dl.WTOX.(.OMMIWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU 2)C$
		IFB	<2IA>,<.WFOBJ==0
		2h	IFN <0-2>,<.$WOB3J==0>>
		IFNB	<3(A>,<.WFOBJ==-1
	3H		IFN <0-2>,<.$WO3hBJ==.$WOBJ!<A>>
			IFE <0-2>,<DE4(FINE .$WOBJ,<<WO.4HOBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr BiD(
		IFB	<C	A>,<.WFOCD==0
		C(	IFN <0-2>,<.$WOCCHD==0>>
		IFNB	<ChA>,<.WFOCD==-1
	D		IFN <0-2>,<.$WOD(CD==.$WOCD!<A>>
			IFE <0-2>,<DEDhFINE .$WOCD,<<WO.EOCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ QiE.WTOX.(.OMR	WTO,<A>,<B>,<CR(>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ O	Dz
.WTOX.(.OMO)WTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z )IDX
	DEFINE	)i.EAWTO(SUFFIX),<$K	WT'SUFFIX'	<>>
	ALLWTO				

		_&N /IC
		IFB	</iA>,<.WFTXT==0
		0	IFN <2-2>,<.$WTX0(T==0>>
		IFNB	<0HA>,<.WFTXT==-1
	0h		IFN <2-2>,<.$WT1XT==.$WTXT!<A>>
			IFE <2-2>,<DE1HFINE .$WTXT,<<WO.1hTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 ,iBx
		IFB	<-	A>,<.WFTYP==0
		-(	IFN <2-2>,<.$WTY-HP==0>>
		IFNB	<-hA>,<.WFTYP==-1
	.		IFN <2-2>,<.$WT.(YP==.$WTYP!<A>>
			IFE <2-2>,<DE.hFINE .$WTYP,<<WO./TYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P .
P .JP .bP /P B&@P cGP )0 M0>@Z6 W)M~			

	dWI==<FLD(.$TYP,CM%FWhNC)>!.$FLGS!<.$LSXT> 

	IFN <.%BRX(EA>,<d==d!CM%BRXHK> 

	IFN <.%HLXhPM>,<d==d!CM%HPYP!CM%SDH> 
					Y(	

	IFN <.%DEFMYH>,<d==d!CM%DPP>Yh 

c:!	XWD	b,Za			

	EXP d	Z(			

	EXP .$DATZHA			

IFN <.%HLZhPM!.%DEFM!.%BREA>[,<
		EXP	.$HLPM>[(		


IFN <.%DE[HFM!.%BREA>,<
		E[hXP	.$DEFM>		

\
IFN <.%BREA>,<	E\(XP	.$BREA>		

	\Ha==.-c			;LENGT\hH OF THE FDB

I]FN <.%NXT!.%DEFR!](.%RTN!.%ERTN>,< E]HXP .$NXT >	

IF]hN <.%DEFR!.%RTN!.^%ERTN>,<EXP .$RTN^( >	

IFN <.%DEF^HR!.%ERTN>,<	EXP	.^h$ERTN>	

IFN <._%DEFR>,<		EXP	.$D_(EFR>	


	b==._H-c			

	IF2<	P_hURGE a,b,c,d>
	LISTb,c,d>$YVO!LzPOINT7,[ASCIZ\0\]NT7,[A$YY M01}C2f}.- M0-dg.N
	SALL
	R	XLIST
	DEFINE .$R(TYP <0>
	.%TYPE=RH=0
	DEFINE .$FLGRhS <0>
	.%FLGS==0S
	DEFINE .$DATA S(<0>
	.%DATA==0
SH	DEFINE .$HLPM <>Sh
	.%HLPM==0
	DETFINE .$DEFM <0>
T(	.%DEFM==0
	DEFITHNE .$LST <0>
	.%ThLST==0
	DEFINE .U$BREA <0>
	.%BREU(A==0
	DEFINE .$NUHXT <0>
	.%NXT==0Uh
	DEFINE .$ERTN V<0>
	.%ERTN==0
V(	DEFINE .$RTN <0>VH
	.%RTN==0
	DEFVhINE .$DEFR <0>
	.%DEFR==0<0>
	K@M09C''aKP0T 1,b)0P $YVP $YYP .-P 5IyP f=P w
	   ..ASA1==-<B>	
	IFDEFA  .PSECT,<
	.IFN [email protected],ABSOLUTE,<
	     C A,[-..BAS1]>	
	.IF ..ASB 1,ABSOLUTE,<
		.[email protected]==0	
	  IFE B`<..AS1&^O777777B1C7>,<
		..AS2==1	C 
	    DI A,..AC@S1>
	  IFE ..AS2C`,<
	    ..OP(A,DB,C)>	
	PURGE D ..AS1,..AS2>>
	ID@FNDEF .PSECT,<
	D`	..AS2==0	
	  IFEE <..AS1&^O777777E B17>,<
		..AS2==E@1	
	    DI A,.E`.AS1>
	  IFE ..AFS2,<		
	    ..OPF (A,B,C)>
	PURGE ..AS1,..AS2>:h 60
	A&i1: 3a3j
	  ..CX14==C
	IFDEF .PSE4 CT,<
 	.IFN ..CX4@1,ABSOLUTE,<
	  4`    CAMA B,[C]5>
	.IF ..CX1,ABS5!OLUTE,<	
		..CX25@==0	
	  IFE <..C5aX1&^O777777B17>,<6
		..CX2==1	
	 6    CAIA B,C>
6@	  IFE ..CX2,<		
	    CAMA B,[;C]>
	PURGE ..CX1; ,..CX2>>
	IFNDEF;@ .PSECT,<
		..CX;`2==0	
	  IFE <..<CX1&^O777777B17>,< <
		..CX2==1	
	<@    CAIA B,C>
	  IFE ..CX2,<		=
	    CAMA B,[= C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ /;
	..TSIZ /!(..PST,C)
	.CAS/@E ..PST,<<
		MOV/`EM A,B>,<
		HR0RM A,B>,<
		HR0 LM A,B>,<
		DP0@B A,[POINTR (B,C)]>>INTR (B,:<;Y A88
   DEFINaE ..CNS2 (NEW,OLD)<
	  OLD>			
	..CNS ()>			
	:L;Y !80
   DEFINAE ..CNS (%%%)<
	`..CNS2 <%%%>,>

   DEFINE ..CNS2  (NEW,OLD)<
	DEF@INE ..CNS (%%%)<
	  ..CNS2 <%%%>,<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ +a:j
	..TSIZ ,(..PST,C)
	.CAS, E ..PST,<<
		MOV,@E A,B>,<
		HRR,`Z A,B>,<
		HLR-Z A,B>,<
		LDB-  A,[POINTR (B,C)]>>INTR (B,:}i1 kA6^
	A==<<<ka-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ Fa4b
	  ..OP1G==B
	IFDEF .PSEG CT,<
 	.IFN ..OPG@1,ABSOLUTE,<
	  G`    C A,[..OP1]H>
	.IF ..OP1,ABSH OLUTE,<	
		..OP2H@==0	
	  IFE <..OH`P1&^O777777B17>,<I
		..OP2==1	
	II    CI A,..OP1>
	  IFE ..OP2,<		I`
	    C A,[..OJP1]>
	PURGE ..OPJ 1,..OP2>>
	IFNDEJ@F .PSECT,<
		..OJ`P2==0	
	  IFE <.K.OP1&^O777777B17>K ,<
		..OP2==1	
K@	    CI A,..OP1K`>
	  IFE ..OP2,<L		
	    C A,[.L .OP1]>
	PURGE ..OP1,..OP2>GE ..;m ~I?z
	..PST==~iC-FWMASK
	.IF0 ..PST,<
		POINT (0,B,35>,<
		POINTR (B,C)>POI;| )A:P
		POP P,)a.NVA
		PURGE .N*VA
		.NVR==.NVR-1
		.NVR==.NVR;\t (A:H
		PUSH P(a,A
		DEFINE .NV)B<A>
		.NVR==.NVR+1
		.NVR==.;] C!<&
	  IFGE CA<<<B>&777777>-..C`BSIZ>,<
		PRINTXD ?WORD offset greD ater than $BUILD D@size parameter>
D`	  SET0. (\<B>,C,<A>)
	B>,;LH r7 
	IFNDEF r!C,<PRINTX C IS r@NOT DEFINED
	  r`A (<B>,D,FWMASKs)>	
	IFDEF C,<
	IFNDEF %C,<
	s@  A (<B>,D,C)s`>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH tA7^

	..NS==0ta			
	IRP C,<..NuS=..NS+1>	
	IFE u ..NS,<PRINTX ?EMPu@TY STRUCTURE LISTu`, A>
	IFE ..NS-v1,<		
	  ..STR0 v (A,<B>,<C>,D)v@>
	IFG ..NS-1,<	v`	
	..ICNS			
	.w.CNS (<E (A,<Bw >,,>) 
	IRP C,<w@		
	  IFNDEF C,w`<PRINTX C NOT DExFINED>
	  IFDEF x C,<
	  IFNDEF %x@C,<
	  ..CNS (<x`,C,D>)>	
	  IFyDEF %C,<
	  %Cy  (..STR2,,D,C)>y@ 
	  ..CNS (<)>)y`		
	  ..GCNS		
z	  ..ICNS		
	  .z .CNS (<E (A,<Bz@>>) 
	  IFNDEF %z`C,<
	  ..CNS (<{,C,D>)>	
	  IF{ DEF %C,<
	  %C{@ (..STR2,,D,C)>{`>> 
	..CNS (<,,)>)		
	..GCNS>);LI |!7b
	..CNS (<,C,B>).CNS (;LI |a7x


	IFDIF <}D><F>,<
	  IFN} B <D>,<
	    A}@ (<B>,D,..MSK)	}`
	    IFNB <F>,~<PRINTX C AND E~  ARE IN DIFFERENT~@ WORDS>>
	  ..MS~`K==0>		
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ A8


	IFDIF <aD><F>,<	
	  IFNB <D>,<
	     A (<B>,D,..MSK)@>	
	  ..MSK==0>	`	
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ A8


	IFDIF <aD><F>,<	
	  IFNB <D>,<
	    I FNB <F>,<		
		@A1 (B,D,..MSK)>` 
	    IFB <F>,<		
		A2 (B,D ,..MSK)>> 
	  ..@MSK==0>		
	IFNB `<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y I@8
IF1,<
    PRINTX ? Err)or in "A"
    DyEFINE X(NAM,ERR) I<IFN ..X'NAM&..TXhEF,<PRINTX ? ERR>>
    $TX$ERR>

    $TX$ERR>
;$^ i@n

    ..		TXF==0				
    .	(.TXB==0				
    	H..TXP==0				
   	h ..TXEG==<..TXEF=
=0>			
    IRPC 
(A,<				
	..TXC=
H=ASCII\A\-35		
h
	IFN ..TXB,<IFN ..TXB-..TXC,..CNS((<A>)
		   IFE H..TXB-..TXC,..TXBh==0>
	IFE ..TXB,

<..TXQ(<A>,\..TX

(F)>>	
    ..TXC1

H				
    IFN ..T

hXB,<IFNX<..TXB-"^
HXEF..TXEF==..T
h IN ..TXEF,<..TERR<A>>
,<..TE;&( kY>]..TXA(.TQCH0)..TXA(.TQC;&) li>f..TXER(IQU)..TXER(IQU;&) l>a..TXER(IQU)..TXER(IQU;&0 k>Y..TXA(.TQCHA)..TXA(.TQC;&5 iY>M..TXC0(\".CHLFD).TXC0(\".;&5 jY>U..TXC0(\".CHVTB).TXC0(\".;&6 j>Q..TXC0(\".CHFFD).TXC0(\".;&6 i>I..TXC0(\".CHCRT).TXC0(\".;&@ 8!;X
	..TSIZ 8A(..PST,C)	
	.CA8`SE ..PST,<<
		SE9TZM B>,<	
		HLL9 ZS B>,<	
		HRRZ9@S B>,<	
	  ..TS9`AC (..ACT,B)	
	:  .IF0 ..ACT,<
	: 	$CALL .ZERO	
		:@LSTOF.
		JUMP [P:`OINTR(B,C)]
		;LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 h6X
	IFNDEF h!.PSECT,<
	A==0	h@		
	..TSA1==<Z h`B>		
	  IFE ..TSiA1&^O777777777760i ,<A==1> 
	>
	Ii@FDEF .PSECT,<
	i`A==0			
	..TSA1=j=<Z B>		
	.IF .j .TSA1,ABSOLUTE,<	j@
	  IFE ..TSA1&^j`O777777777760,<Ak==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= fA6<
	A==3		fa	
	IFE <B>+1,<gA=0>	
	IFE <B>-g ^O777777,<A==1> g@
	IFE <B>-^O777777B17,<A==2>7;' La5t
   ..TX1M==C			
IFDEF .PM SECT,<
   .IFN .[email protected],ABSOLUTE,<
M`	TDA B,[C]>
 N   .IF ..TX1,ABSOLNUTE,<		
	..TX2==NA0		
	IFE <..TX1&Na^O777777B17>,<
	O  ..TX2==1		
	  O TRA B,..TX1>
	O@IFE ..TX2,<		
	IO`FE <..TX1&^O77777P7>,<
	  ..TX2==1P!		
	  TLA B,(.[email protected])>>
	IFE ..TP`X2,<		
	  IFE <<Q..TX1>B53-^O77777Y!7>,< 
	    ..TX3Y@ (A,B)>>	
	IFEY` ..TX2,<		
	  TDZA B,[..TX1]>	
Z 	PURGE ..TX1,..TXZ@2>>
IFNDEF .PSECZ`T,<
	..TX2==0		
	IFE <..TX1&^O77[ 7777B17>,<
	  ..[@TX2==1		
	  TRA[` B,..TX1>
	IFE \..TX2,<		
	IFE <\ ..TX1&^O777777>,<\@
	  ..TX2==1		
\`	  TLA B,(..TX1])>>
	IFE ..TX2,<] 		
	  IFE <<..TX]@1>B53-^O777777>,<]` 
	    ..TX3 (A^,B)>>	
	IFE ..T^ X2,<		
	  TDA ^@B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` _6

	IFIDN <_!A><Z>,<		
	  .._@TX2==1
	  ANDI _`B,^-..TX1>	
	IFI`DN <A><O>,<		
	`   ..TX2==1
	``OR`@CMI B,^-..TX1>	
	IFIDN <A><C>,<a		
	  ..TX2==1
a 	  EQVI B,^-..TX1>QVI B,^-..TX;'  o	?d



	..TXEo)F==0			

IFNDEFoH A,<..TXER(UQU)>oh		
IFDIF <B><>,p<IRPC B,<.IFN <p(B>,NUMERIC,..TXERpH(IWA)>>
IFNB <Cph>,<IFNDEF .TXTJCq,<..TXER(IJA)>>
q(IFDEF  A,<
  IFqHE <A_-^D18>,<IFDqhIF <EFBCD><>r,<..TXER(ANA)>>
r(  IFE <1-<A_-^D1rH8>>,<IFDIF <BCrhD><>,<..TXER(JNA)s>>
  IFE <2-<A_s(-^D18>>,<IFIDN <sHEF><>,<..TXER(ADshS)>>>

      IFtE ..TXEF,<
	IFIDt(N <B><>,<..TXWD=tH=<..TXJU==<..TXFCth==0>>>
	IFDIF <uB><>,<
	  IFE <^u(D<B>>,<..TXWD==<uH..TXJU==<..TXFC==uh0>>>
	  IFN <^D<vB>>,<..TXWD==^D<v(B>
	    IFNB <vHC>,<..TXJU==.TXTJvhC>
	    IFB  <wC>,<..TXJU==.TXTJw(L
	      IFE <AwH-.TQOCT>,<..TXJU=wh=.TXTJR>
	xH    xIFE <A-.TQDEC>,<x(..TXJU==.TXTJR>>
	    IFB  <D>,<xh..TXFC==" ">
	  y  IFNB <D>,<..TXy(FC=="D">>>

	IyHFB  <EF>,<..TXPyhT==0>
	IFNB <EzF>,<..TXPT==1>
	z(IFE <..TXWD+..TXPzHT>,<
	    EXP FLzhD(A,TXT.FN)>
	I{FN <..TXWD+..TXPT{(>,<
	    EXP FLD{H(A,TXT.FN)+FLD(.{h.TXJU,TXT.JU)+FLD|(..TXWD,TXT.WD)+F|(LD(..TXFC,TXT.FC)|H+TXT.AD
	    PNTR(E,F)>>

T;'h IB
    IFE i..TXP,<			
	..IC NS			
	..CNS<ASC (IZ\>		
	..TXP==1 H>		
    ..CNS<A h>			
    ..TXF==!0			
    ..TXB=="^"
    ..TXB==;'h !IB

    IF!iN ..TXP,<			
	.."CNS<\>		
	EXP <F"(LD(.TQCHT,TXT.FN)"H+[..GCNS]>>
    ..TXP==0>
    ;'	9 I@B
    ..TXiEF==..TXEF!..XA		
    ..TXF==0		(		
    ..TXB=="^"
    ..TXB=="^;'

  )@r..TXQB(<A>)..TXQB(<;'

( i@|

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

( 	A

    IF)E ..TXC-"^",<..TXHC0(<A>)>	
    IhFN ..TXF,<			
	..TXF==0		
	IFDEF( .TQCHA,<		
	  H  IFDEF ..TQMA,.h.TQMA 
	    IFN <.TQCHA_-^D18>,(<..TXF==2>>>
   H IFE ..TXF-2,<..ThXC1(<A>)	
	..ICNS			
	..CNS<..T(XA(.TQCHA,>>	
 H   ..TXEG==..TXEG!..TXEF==..TXEG;'

) 	A.
    ..TX)F==3				
    IFGHE ..TXC-"0",IFLE h..TXC-"9",<..TXF==2>
    IFE ..TX(F-2,<..CNS(A)>		H
    IFE ..TXF-3h,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) )AB
    ..TXIF==4				
    IFEh ..TXC-"/",<..TXF==5>		
    IFE .(.TXC-"[",<..TXF==H5>		
    IFE ..ThXF-4,<..CNS<A,>>		
    IFE ..TXF(-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* iAX
    ..TX	F==4				
    IFE( ..TXC-"/",..TXF=H=5		
    IFE ..ThXC-"[",..TXF==5		
    IFE ..TXF-5(,<..CNS<,>		
		 H..TXQ5<A>>		
  h  IFE ..TXF-4,<..CNS<A,>		
		 ..TXF==5>	
		 ..;'

* IAj
    ..TXiF==6				
    IFE ..TXC-"/",..TXB=(="/"		
    IFE .H.TXC-"[",..TXB=="h]"
    IFE ..TXB-"]",..CNS<[>		
(    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ iAx
    ..TX	F==0			
    IFE (..TXC-"]",..CNS<]H>	
    ..CNS<)>	h		
    ..GCNS			
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  a9&
	.ACV2 (A)
	.ACV2 (d@ !90
	A=.FPAAC+..NAC		
	IFB <`B>,<..NAC=..NAC+1>
	IFNB <B>,<..NAC=..NAC+B>.d` A9>
	IFG A-a.NPAC,<PRINTX ?TOO MANY ACS USED>
	IFLE A-4,<
	@ $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z =;h$CALL	I%INTA$CALL	I%IN9  dA6.
	..CSN==daA
	..CSC==0
	IeRP B,<
	IFE ..Ce SN-..CSC,<
	  STe@OPI
	  ..CAS1 (e`B)>
	..CSC==..CSC+1>..CSC==..CSD	P ?DP >D)6P D,xP D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;WP D;WP D;XP D;XP D;YP 	D;YP 	D;ZP 
D;ZP 
D;[P D;[P D;\P

D;\P

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

TP l,UP S@P ,<H 5!;4
	..PST==5AC-FWMASK
	.IF0 5`..PST,<
		SOS B6>,<	
		$CALL .SO6 S	
		LSTOF.
		J6@UMP [POINTR(B,C)]
		LSTON.>C

TP } &	D\
	.OPCD==KI.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 c!6 
	..IFT==cAA		
	IFE ..IFT,c`<
	B
	..IFT==0d>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H 2!;
	..PST==2AC-FWMASK
	.IF0 2`..PST,<
		AOS B3>,<	
		$CALL .AO3 S	
		LSTOF.
		J3@UMP [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	XI		
		JRST	h		
Xh		SKIPE	G$NEBF		
		JRST	g		
		$Y(CALL	I%WTO		
		LYHSTOF.			
		JRST	Yhh		
		$WTRST			Z
	IFNB <A>,<$WTZ(MTY (<A>)>	
	IFZHNB <B>,<$WTTYP (Zh<B>)>	
	IFNB <[C>,<$WTTXT (<C>)[(>	
	IFNB <D>,<$[HWTOBJ (<D>)>	
	[hIFNB <E>,<$WTACK\ (<E>)>	
		IRP \(F,<F>		
		$WTB\HLD			

g:		$CA\hLL	I%WTO		
		JRS]T	h		
		$WTRST	](		
	$WTNHD(G$REM]HN)			
	IFNB <A>]h,<$WTMTY (<A>)>	^
	IFNB <B>,<$WT^(TYP (<B>)>	
	IF^HNB <C>,<$WTTXT (^h<C>)>	
	IFNB <_D>,<$WTOBJ (<D>)_(>	
	IFNB <E>,<$_HWTACK (<E>)>	
	_h$WTMFL(MF.NEB)			`
		IRP F,<F>		`(
		$WTBLD			

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

0P O 9AK\
	IFG	A-;AMX.PID,<MX.PID==A>
C
G	A-OSP OYP Oi1P O|P OyP O%=H 
8P
	.STKV2 (A)
	.STKV2 O%=I 
A8^
	IFB <B
a>,<..STKN==..STKN+1>
	IFNB <B>,< ..STKN==..STKN+B@>
	..STKQ==..STK`N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I

!8l
   IFDEF

A A,<.IF A,SYMBO

`L,<PRINTXYSTKVARE
	DEFINE)A<-
	$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  !9
	.TRV2 (A)
	.TRV2 (Sd@ a9


	.TRV3 (A,\..NV)	
	IFB  <B>,<..NV=..NV+1@>
	IFNB <B>,<..NV=..NV+B>,<..Sd` 9
   IFDEF! A,<.IF A,SYMBO@L,<PRINTX TRVAR `A ALREADY DEFINED>>
	DEFINE A<^O B(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP VuLQ @Vv

TP ^%I7P _%~ T)E>
		$CALL	TII%WTO		
		LSTOF.Th			
		JRST	g		
		$WTRST			
	IFU(NB <A>,<$WTMTY (UH<A>)>	
	IFNB <UhB>,<$WTTYP (<B>)V>	
	IFNB <C>,<$V(WTTXT (<C>)>	
	VHIFNB <D>,<$WTOBJVh (<D>)>	
	IFNB W<E>,<$WTACK (<EW(>)>	
		IRP F,<WHF>		
		$WTBLD			Wh
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP