PDP-10 Archive: galaxy-subsys/glxmac.unv from bb-h137f-bm

Trailing-Edge - PDP-10 Archives - bb-h137f-bm - galaxy-subsys/glxmac.unv

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

x
,ST@P C4@ q9
	..NAC==0		
	IRP A,<
	0  .ACV1 (A)>		
	.ACV3 (\..NAC)C' <q3g..AS(A,B,ADD,SUB)(A,BC, i1vLSH A,-^D9LSH A,-^DC2f} "B'
	.EAWTO("9MTY,0)
	.EAWTO(T"XYP,2)
	.EAWTO(TX"xT,2)
	.EAWTO(OBJ#,0)
	.EAWTO(ACK,#80)
	.EAWTO(FLG,1#X)
	.EAWTO(NOD,0)#x
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
$8	.EAWTO(OCD,0)
	$X.EAWTO(MFL,1)
	.$xEAWTO(NHD,0)		

TO(NHD,0)		
C:' a16
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ H1<I
	  IFE HQB,<..TA==0>
	  HpIFN B,<EXP ..TAI
		    PURGE ..TA>
	PURGE ..TE2&i1 V	-7
	IFIDN <V9E><C>,<EXTERNAL VXBMAN,BDEV>
	SIVxXBIT	/A/
	XWD	BMAN,BDEV
D	QPQLE$KJtlE@tP'E@vyQ ~E@v:=Q |F:<P F;z:Q @G@ 5q3/
	    ..CX(,A,B)   ..CGD 913K
	    ..CX(A,A,B)  ..CGDP 713;
	    ..CX(E,A,B)  ..CGDp 7q3?
	    ..CX(G,A,B)  ..CGDy  813C
	    ..CX(GE,A,B) ..CGE@ 6133
	    ..CX(L,A,B)  ..CGEI  6q37
	    ..CX(LE,A,B) ..CGE` 8q3G
	    ..CX(N,A,B)  ..CGH yIk

	  LSTOF.

	X CRE	
	YX GEN	
	X PRT	
y	X CLS	
	X9AUT	
	X USW	
	X SPL	
	X SIZ   
	X M8OD	
	X CHN	

	  LSTON.


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

zQ G:YlP

G>vC@ _a.LALL
PAGE`; (A Continued o` n next page)
SAL`@L; (A Continued ``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  3;
	IFNB <31B>,<..STR0 (.DECR3P0,,<B>,A)>
	IF3pB  <B>,<SOS A>  <B>,<SOS A>I6= k16o
	A==<-1kQB<C>+1B<C-D>> kp
	IF1,<IFDEF %Al,<PRINTX ?A ALREl0ADY DEFINED>>
	DlPEFINE %A (OP,AC,lpY,MSK)<	
	IFDIF m<Y><>,<
	OP (<ACm0>,B+'Y,MSK)>
	ImPFIDN <Y><>,<
	OPmp (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 ?13{..OP(A,B,DIV)..OP(A,BIOH1 YQ'
	IFB <Dy>,<
	XWD	[ASCIZ\C\],[XWD B,A]>8
	IFNB <D>,<
	XXWD	[EXP CM%FW!Dx
		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 9I[
	IF1,<IFYDEF ERA$,PRINTX x?Duplicate error code A>
	ERA$=8=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y `IO
	ERR	EOF`9,<End of file>
	`XERR	IFP,<Illegal `xfile position>
	aERR	FDE,<File data8a error>
	ERR	FNaXD,<File is not onax disk>
	ERR	FSM,b<File still mappeb8d>			;[301]
	ERRbX	NSD,<No such devbxice>
	ERR	FCF,<Fcile checkpoint fac8iled>
	ERR	SLE,<cXA system limit wacxs exceeded>
	ERRd	IFS,<Illegal fild8e specification>
	ERR	FNF,<File ndxot found>
	ERR	PeRT,<Protection vie8olation>
	ERR	DNeXA,<Device not avaexilable>
	ERR	NCEf,<No "current" enf8try in list>
	ERfXR	NMA,<No IPCF mefxssage is availablge>
	ERR	FDS,<Filg8es are on differegXnt structures>
	gxERR	FAE,<File alrheady exists>
	ERh8R	USE,<UnexpectedhX system error>
	hxERR	NSP,<No such ipid>
	ERR	BOL,<Bi8eginning of list iXreached>
	ERR	EOixL,<End of list rejached>
	ERR	RQF,j8<Receivers quota jXfull>
	ERR	SQF,<jxSenders quota fulkl>
	ERR	NRE,<No k8remembered entry>kX
	ERR	TBF,<Tablekx is full>
	ERR	ElIT,<Table entry al8lready exists>
	lXERR	ITE,<Invalid lxtable entry>
	ERmR	QEF,<Quota excem8eded or disk fullmX>
	ERR	ARG,<Invamxlid argument specnified>
	ERR	IFN,n8<Invalid functionnX specified>
	ERRnx	IJN,<Invalid jobo number specifiedo8>
	ERR	RAD,<InvaoXlid radix specifioxed>
	ERR	NUM,<Inpvalid numeric argp8ument>
	ERR	IDT,pX<Invalid date fiepxld specified>
	EqRR	ITF,<Invalid tq8ime field specifiqXed>
	ERR	DOR,<Daqxte/time out of rarnge>
	ERR	DTM,<Vr8alue missing in drXate/time>
	ERR	MrxDD,<Missing day isn date/time>
	ERs8R	DFZ,<Field zerosX in date/time>
	sxERR	MDS,<Mnemonict date/time switcht8 not implemented>tX
	ERR	DFL,<Fieldtx too large in datue/time>
	ERR	ILRu8,<Illegal year fouXrmat in date/timeux>
	ERR	NND,<Negavtive number in dav8te/time>
	ERR	NPvXF,<Not known whetvxher past or futurwe in date/time>
w8	ERR	RDP,<RelativwXe date parse requwxired>
	ERR	NSW,<xSwitch does not bx8egin with slash>
	ERR	NOM,<Unrecoxxgnized switch or ykeyword>
	ERR	NUy8L,<Null switch oryX keyword given>
yx	ERR	INW,<Invalidz guide word>
	ERz8R	NC,<Not confirmzXed>
	ERR	ICN,<Inzxvalid character i{n number>
	ERR	N{8QS,<Invalid quote{Xd string - does n{xot begin with quo|te>
	ERR	AMB,<Am|8biguous switch or|X keyword>
	ERR	N|xMT,<Does not matc}h token>
	ERR	CM}8A,<Comma not give}Xn>
	ERR	NNC,<Nod}xe name may not ex~ceed 6 characters~8>
	ERR	INT,<Node~X 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 l	ocation is unknow	8n>
	ERR	FIO,<Fil	Xe is offline>
	E	xRR	FBM,<File bein
g modified>
	ERR
8	WLK,<Write-locke
Xd device>
	ERR	C
xSD,<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
	ERR	LVL,<SFDmdee
	ERR	CCW,<Cannot cre8ate/write on any Xstructure in searxch list>
	ERR	FCU,<Cannot update 8file>
	ERR	ENQ,<XFile has outstandxing Enqueue lockes set>
	ERR	SWS,8<Software write-lXock on structure>x
	ERR	DER,<Hardware device error>8
	ERR	DTE,<Hard Xdata error>
	ERRx	BKT,<Block too large>
	ERR	IPP,<8Non-existant UFD>X
	ERR	TRN,<RIB oxr transmission error>
	ERR	ILC,<I8llegal character Xin date/time>
	ExRR	NFT,<Date/time must be in the f8uture>
	ERR	NPS,X<Date/time must bxe in the past>
	ERR	UDM,<Unrecogn8ized month in datXe/time>
	ERR	UDNx,<Unrecognized name in date/time>
	ERR	IFA,<IllegaXl file attribute>x
	ERR	FAI,<File attribute inconsi8stancy>
	ERR	CEIX,<Can't enable/dixsable interrupt system>
	ERR	ENF,8<Linked list entrXy not found>
	ERxR	NSL,<No such linked list>
	ERR	8NFP,<No free pageXs>
	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` UI=>
	IFIDN <UiBC><>,<EXP <A>V>
	IFDIF <BC><V(>,<
	 IFE <A+1>VH,<<POINT 7,C>>
Vh	 IFN <A+1>,<
	W   IFIDN <C><>,<W(EXP <A,B>>
	  WH IFDIF <C><>,<EXWhP <A,B,C>>
	>>A,B,C>>
	>Kc  ]!-lIRP A,<
]A	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|  ^-zIRP A,<
^!	IF2,<IFDEF A,<.^@IFN A,EXTERN,<IN^`TERN A>>
	     _IFNDEF 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 >q3w..OP(A,B,IDIV).OP(A,BS7-N =q3o..OP(A,B,IMUL).OP(A,BS:  0;
	IFNB <01B>,<..STR0 (.INCR0P0,,<B>,A)>
	IF0pB  <B>,<AOS A>  <B>,<AOS A>S;k %Q2-<<<A>B<POS(<B>)>>&<B>>S;!kP S;!k<P S? `q6
	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.	XIXCREF
	..TEXT<AXh>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ yJ

	  LSTOF.

	X JNO,.JI8JNO,<-1,,GJBJNO>	X
	X TNO,.JITNO,<x-1,,GJBTTY>	
	X USR,.JIUNO,.GTPPN8		
	X CDN,.JIDNOX,<-1,,GJBPTH>	
	xX PRG,.JIPNM,.GTP RG		
	XXCJN,.JIC 8PJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.G xTOBI		
	X JLT,.J!ISTM,.GTJLT		
	X!8 LOC,<-1,,GJBLOC>!X,<-1,,GJBLOC> 
	!xX RTM,.JIRT,<-1,,"GJBRTM>	
	X TLC,"8<-1,,GJBTLC>,<-1,"X,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$vKP9U$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
	IFB <CY>,<
	XWD	[ASCIZ\xB\],A>
	IFNB <C>,<
	XWD	[EXP 8CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 ~)1n

	  LST~IOF. XCREF

	CDO~h	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%RR	HEL
	CDO	F%REW
		hCDO	F%POS
	CDO	F
%CHKP
	CDO	F%INF
(O
	CDO	F%FD
	CD
HO	F%REN
	CDO	F%D
hEL
	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%AQNP
	CDO	M%
	CDO	M%CLNC
	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
	CHDO	L%PREM
	CDO	Lh%CURR
	CDO	L%RENT
	CDO	L%SIZE
	(CDO	L%APOS
	CDO
	CDO
	CDO
	CDOh
	CDO
	CDO
	CDO
	CDO

	CDO		(	
	CDO	I%NOW
	CHDO	I%EXIT
	CDO	Ih%ION
	CDO	I%IOFF
	CDO	I%SLP
	CD(O	I%INT1
	CDO	I%HINT2
	CDO	I%INT3h
	CDO	I%TIMR
	CDO
	CDO
	CDO	I%(SOPR
	CDO	I%WTO
	CDO
	CDO	I%HOShT
	CDO	I%JINF
	CDO
	CDO

	CDO(			
	CDO
	CDO	SH%DATI
	CDO	S%SIXhB
	CDO	S%CMND
	CDO	S%TBLK
	CDO	(S%SCMP
	CDO	S%ERHR
	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%TXHTI
	CDO	K%SOUT
h	CDO	K%BOUT
	CDO	K%BIN
	CDO	K%BA(CK
	CDO	K%TPOS
H	CDO	K%BUFF
	CDOh	K%FLSH
	CDO	K%OPEN
	CDO
	CDO
(	CDO
	CDO
	CDO
	CDO
	CDO
	CDOh
	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 a!.
	IFNDEF aALSTIN.,LSTIN.==0	a`	
IFE LSTIN.,<
b	IFIDN <XCREF><Ab >,<.XCREF>	
		  b@ XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G c.
	IFG LSTc!IN.,LSTIN.==LSTINc@.-1	
	IFLE LSTINc`.,<.CREF		
		      LIST>
		   [3@ %2)<<<1_<A>>-1>B<B>>_<A>>[8@ $2!1B<<A>-1>-1B<B><<A>-1>[@ yi/Z
	IFB <Bz	>,<MAXSIZ==0
		Iz(RP A,<IFG <A-MAzHXSIZ>,<MAXSIZ==Azh>>>
	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/n
	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>>>
[>!`$Q2%<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>	
	>>

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=0=1
	  HRROI A,<00..MX1>>>	
	IFE .0P.MX2,<		
	IFE <<0p..MX1>B17-^O7777717B17>,<
	  ..MX210==1
	  HRLOI A,1P(..MX1-^O777777)>1p> 
	IFE ..MX2,<	2	
	  MOVE A,[..20MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= n17
	A==C	nQ	
	IF1,<IFDEF %npA,<PRINTX ?A ALRoEADY DEFINED>>
	o0DEFINE %A (OP,ACoP,Y,MSK)<	
	IFDIFop <Y><>,<
	OP (<ApC>,B+'Y,MSK)>
	p0IFIDN <Y><>,<
	OpPP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg >13s..OP(A,B,MUL)..OP(A,B[`v
2P [b6<P F] [a-`IF2,<IFDEF\ A,<A==A>> IFNDEF A,<A==B>]F@ LkTEMFDB##_
QkRp _
Ql7p _
Qlxp _
Ql}p _
Qmp _
Qm7p _
T= )AK

	X	.OT9RDR,Reader
	X	.OyTNCU,Network-Cont)aroller
	X	.OTLPT)!,Printer
	X	.OTB+AT,Batch-Stream
+8	X	.OTCDP,Card-Pu+Xnch
	X	.OTPTP,Pa+xpertape
	X	.OTPL,T,Plotter
	X	.OT,8JOB,Job
	X	.OTTR,XM,Terminal
	X	.O,xTOPR,Operator
	X-	.OTIBM,<IBM Remo-8te>
	X	.OTMNT,<D-Xevice>
	X	.OTFTS-x,<File Transfer>
	X	.OTBIN,<Card .8Reader Interprete.Xr>
	X	.OTRET,<Fi.xle Retrieval>
	X/	.OTNOT,<Retrieva/8l Notification>
/X	X	.OTDBM,<DBMS S/xystem>
	X	.OTFAL0,<File Access Lis08tener>
	X	.OTSNA0X,<SNA Workstation>
 Workstation_Sh6 91KK [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)>:1+B+<Z F> 

  :q IFNB <D>,<..XX=;i..XX!CM%HPP> 
  < IFNB <E>,<..XX=<(..XX!CM%DPP> 

<H	EXP ..XX		

  <h IFNB <C>,<EXP =C>
   IFB <C>,<=(EXP 0>

   IFNB=H <D>,<POINT 7,[A=hSCIZ \D\]>
   I>FB <D>,<0>

>>( IFNB <E>,<POINT>H 7,[ASCIZ \E\]>
?IFB <E>,<0>



   IFB <I?(>,<0>
   IFNB <?HI>,<EXP I>

  ?h IFB <J>,<0>
  @ IFNB <J>,<EXP @(J>

   IFB <H>@H,<0>
   IFNB <H@h>,<EXP H>

   AIFB <G>,<0>
   A(IFNB <G>,<EXP G>

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

	SALL	dI			
	LSTOF. XCREdhF			

	LOC 0			e
	ASCIZ \
COPYRe(IGHT (c) DIGITAL eHEQUIPMENT CORPORAehTION 1975,1988.
fALL RIGHTS RESERVf(ED.
\				
	RELOfHC			

	%%.GLX==fh%%.GLX			


	IgFNB <A>,<%%.MOD=g(=SIXBIT/A/> 
	IgHFNB <B>,<%%.OTS=gh=SIXBIT/B/> 

h	GLOB	I%INIT			
h(
	TOPS10	<			
	hH	SEARCH	UUOSYM		
		%%UUOS==%%UUOSi		
	>				

	TOi(PS20	<			
		SEARiHCH	MONSYM		
;		%ih%MONS==%%MONS		
j	>				

	IFB <j(B>,<			
		.TEXT	jH|,REL:GLXLIB/SEARjhCH/REQUIRE:I%INITk|
		DEFINE	$DATAk( (NAM,SIZ<1>),< 
			NAM:	BLOCK	SIkhZ
		>			
		DEFIlNE	CDO (X),<GLOB l(X> 
		LIBVEC			
	>				

	IFNB lh<B>,<IFDIF <B><mINI>,< 
		IFN GLm(XPURE,<.PSECT .HImHGH.> 
		IFE GLXPmhURE,<		
			TWOSEnG	400000	
			RELn(OC	0	
			RELOC	4nH00000	
		>			
nh
		DEFINE $DATA(NoAM,SIZ<1>),< 
		o(	IFN GLXPURE,<.PSoHECT DATA> 
			IFohE GLXPURE,<RELOC>p 
			IFNDEF B%Dp(,<B%D::! B%DL==pH:0>
			NAM:	BLOCphK	SIZ
			B%DL==q:B%DL+SIZ 
			Iq(FN GLXPURE,<.ENDPqHS DATA> 
			IFE qhGLXPURE,<RELOC> 
		>			

		IFDIr(F <B><OTS>,<	
	rH		DEFINE	CDO (X),rh<GLOB X> 
			LIBsVEC		
		>			

s(	>>				

	IFNB sH<B>,<IFIDN <B><shINI>,< 
		DEFINEt	$DATA (NAM,SIZ<1t(>),< 
			NAM:	BLtHOCK	SIZ
		>			
th	>>				

	LSTONu.				

	GLOB	<.u(POPJ, .RETT, .RETuHF>	
	OPDEF	$RET	uh[POPJ	P,]	
	OPDEvF	$RETT	[PJRST	.Rv(ETT]	
	OPDEF	$REvHTF	[PJRST	.RETF]	vh
	OPDEF	$RETIT	[wJUMPT	.POPJ]	
	Ow(PDEF	$RETIF	[JUMPwHF	.POPJ]	
	.NODDwhT	$RET,$RETT,$RETxF,$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"@ IQ<]
	IFN <<.Iq.TA>&B>,<PRINTXJ ?Initial field nJ0ot zero in $SET>
	Jp..TVAL==<C>
	K..TMSK==<B>
	  ..TA==..TA!K0<FLD(..TVAL,..TMSKPK)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@P9MC.SWIT+PDBCPY##C.SWIT+PDBg$tkQB@g$uP'g$uh6Q  g&t{ Z-PIFE C.GALA,IFE C.GALAg.N	@ 6@g.N
.SPID	(S3P.QSR,.IPCPQ,.SPQ30SR,QUASAR)	
.SPI3PD	(SP.OPR,.IPCPO,3p.SPOPR,ORION)	
.4SPID	(SP.INF,.IPC40PI,.SPINF,INFO)	
.SPID	(SP.MDA,.I4pPCPM,.SPMDA,MDA)	5
.SPID	(SP.NEB,,50.SPNEB,NEBULA)		
TOPS10<
.SPID	(5pSP.IPC,.IPCPS,,IP6CC)		
.SPID	(SP.60ACT,.IPCPA,,ACTDA6PE)		
.SPID	(SP.T6pLP,.IPCPT,,TAPLAB7)		
.SPID	(SP.TO70L,.IPCPC,,TAPAVR)7P		
.SPID	(SP.DOL7p,.IPCPD,,DSKAVR)	8	
.SPID	(SP.FIL,80.IPCPF,,FILDAE)		
>
,FILDAE)		gR^h9 Q8E
	..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:m
	IFNB <-C>,<..STR0 (..DPB-0,A,C,B)>
	IFB-P  <C>,<MOVEM A,B>>,<MOVEM A,gV =13k..AS(A,B,SUB,ADD)(A,Bgg

V xI/J
	IFNB <xiB>,<TOPS10<A==By>>
	IFNB <C>,<Ty(OPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( aQFIFN FTUUOS,JN\bPKJfki?4H !QJIFN FTJSYS,Jt1PKJt9"iD c)>&

  IFNBcI	<A>,<.TQCHA==^chD<B>B17+ZZ>
  IdFNB 	<D>,<DEFINEd( ..TQMA<D>>
  dHIFNB	<C>,<.TQC=dh=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, Y)>
	LSTOF.
	TQ(T,2,ASCIZ)		Yh	
	TQ(O,2,OCTAL)Z			
	TQ(D,2,DECIZ(MAL)			
	TQ(F,2,ZHFILE)			
	TQ(7,2Zh,CSEVEN)			
	TQ([6,2,CSIXBIT)			
[(	TQ(W,2,SIXBIT)		[H	
	TQ(5,2,SVNBIT[h)			
	TQ(P,2,USE\R)			
	TQ(U,2,DI\(RECTORY)			
	TQ(\HH,2,DAYTIME)			
\h	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		](	
	TQ(I,1,INDIRE]HCT)		
	TQ(M,0,CR]h,..TXC0(\".CHCRT)^)	
	TQ(J,0,LF,..^(TXC0(\".CHLFD))	
	TQ(L,0,FF,..TXC^h0(\".CHFFD))	
	T_Q(K,0,VT,..TXC0(\_(".CHVTB))	
	TQ(A_H,0,NOCRLF,..TXA(._hTQCHA))	
	TQ(0,0`,NULL,..TXA(.TQCH`(0))	
	TQ(3,0,STR`HING,..TXER(IQU))	`h
	TQ(V,2,VERSIONa)			
	TQ(2,0,CARa(ET,..TXER(IQU))	
	TQ(Q,2,POINTER)ah			
	TQ(B,2,ROB)b			
	TQ(1,2,OBJEb(CT)			
	TQ(N,2,NbHODE)			
	TQ(R,2,bhJIB)			
	LSTON.
)			
	LSTON. YJD
	LSTOF.
	X(33,TTY33,33,)#Y				
	X(35,TTY35$,35,)				
TOPS20#y<
	X(37,TTY37,37$A,)				
	X(EXECUP$`ORT,EXEC,EXE,)			%
>
TOPS10<
	X(% LA120,LA120,L12,)%@			
>
	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==
	RADIX 8
	.NV==1			
	IRP<
	  .TRV1 (A)>		
	$CALL	.TR0SET		
	 ..NV-1,,P..NV-1
	RADIX ..pTRR		
	PURGE ..TRR,..NVURGE ..Tib V153
		..TX(C,A,<B>)..TX(Cib Wq5?
		..TX(CA,A,<B>).TX(CibP Vq57
		..TX(CE,A,<B>).TX(Cib` W15;
		..TX(CN,A,<B>).TX(Cibp P15
		..TX(N,A,<B>)..TX(Nibt Qq5
		..TX(NA,A,<B>).TX(NibtP Pq5
		..TX(NE,A,<B>).TX(Nibu` Q15
		..TX(NN,A,<B>).TX(Nibx R15
		..TX(O,A,<B>)..TX(Oib| Sq5
		..TX(OA,A,<B>).TX(Oib|P Rq5
		..TX(OE,A,<B>).TX(Oib}` S15
		..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 T15#
		..TX(Z,A,<B>)..TX(ZicT Uq5/
		..TX(ZA,A,<B>).TX(ZicTP Tq5'
		..TX(ZE,A,<B>).TX(ZicU` U15+
		..TX(ZN,A,<B>).TX(Zm:7 W9-A
	IFG  <WYAMAN-ADEV>,<AEDWxT==:AMAN>
	IFLEX <AMAN-ADEV>,<AEDT==:ADEV>
mKc@ XY-GBYTE (3)AXyWHO (9)AVER (6)AMIN (18)AEDTotkP ouxZP o&  a1~<^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 "yJ
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +

q+= +
q6~i4 C q? aq6
	TXC A,<B>
	TXC A,q@ \A-fIFB <C>,<\aA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up 6;7
	IFNB <61B>,<..STR1 (..TQZ6P,,<B>,A,..STR4)6p>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z 9Q
	.$RESETY
	$TYPE (.CMACT)x
	$HELP (<>)
	$NEXT (A)
IFIDN 8<B> <>,< IRP C,X<C>
			.$BUILD>x
IFDIF <B> <>,<
	$HELP (B)
	I8RP C,<C>
	.$BUILD><C>
	.$BU	0 NyD{
.WTOX.(.OMOACK,<A>,<B>,<CO8>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 LLcDEFINE .$RL1TN <A>
			.%RTN==1A>
			.%RTN	fI9 GL;DEFINE .$LG1ST <A+1>
			.%LST==11>
			.%L	
=Z :Q;]
	  IFG :qA-INT.LV,<PRINTX ;?Level A interru;0pts not supported;P>
	  .BGINT.(\A)   .BGINT.(\A	X5 I1LMDEFINE .$BIQREA <A>
			.%BREA==1>
			.%BR	- =1;{
	  IFDEF=Q ..BSIZ,<PRINTX ?=pMissing $EOB afte>r a $BUILD>
	  .>0.BSIZ==0			
	  .>P.BLOC==.			
	  R>pEPEAT A,<			
		?BLD0.(\..BSIZ,0)	?0
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 zOW
	.$RESETz9
	$TYPE (.CMCMA)zX
	$NEXT (A)
	IzxRP B,<B>
	.$BUILD,<B>
	.$BU	I@ vYO9
	.$RESETvy
	$TYPE (.CMCFM)w
	IRP A,<A>
	.$BUILD,<A>
		$^ 9P
	.$RESETY
	$TYPE (.CMTXT)x
	$HELP (<>)
	$NEXT (A)
IFIDN 8<B> <>,< IRP C,X<C>
			.$BUILD>x
IFDIF <B> <>,<
	$HELP (B)
	I8RP C,<C>
	.$BUILD><C>
	.$BU	I  yP
	.$RESET
	$TYPE (.CMTAD)8
	$PDATA (CM%IDAX)
	$NEXT (A)
	xIRP B,<B>
	.$BUILD,<B>
	.$B	,,U <Q;g
	  $RET	<q			;WILL INVOKE RIGHT ROUTINE
		,h: E1L/DEFINE .$DEQEFM <POINT 7,[ASCEpIZ\A\]>
			.%DEFM==1>
			.%DE	.` O
	.$RESET9
	$TYPE (.CMDEV)X
	$NEXT (A)
	IxRP B,<B>
	.$BUILD,<B>
	.$BU	Lz: eN;
	.$RESETe9
	$TYPE (.CMNUX)eX
	$PDATA (B)
	ex$HELP (<>)
	$NEXfT (A)
IFIDN <Cf8> <>,< IRP D,<DfX>
			.$BUILD>
IfxFDIF <C> <>,<
	g$HELP (C)
	IRP g8D,<D>
	.$BUILD><D>
	.$BUILD	N  wYOC
	.$RESETwy
	$TYPE (.CMDIR)x
	$NEXT (A)
	Ix8RP B,<B>
	.$BUILD,<B>
	.$BU	|  D1<?
	  IFNDEDQF ..BSIZ,<PRINTX Dp?$EOB without preEvious $BUILD>
	 E0 IFN <.-..BLOC>,<EPPRINTX ?Address cEphange between $BUFILD and $EOB>
	 F0 LSTOF.			
	  ..FPT==0
	  REPEAT .Fp.BSIZ,<
	    BLDG0.(\..T,1)		
	  G0  ..T==..T+1 >
	GP  PURGE ..BSIZ,..GpT,..BLOC	
	  LSTON.
		
	  LST	+y HQLGDEFINE .$EHqRTN <A>
			.%ERTN==1>
			.%ER	, JLSDEFINE .$EJ1RTN <1B0+A+1>
			.%ERTN==1>
		- JqL]DEFINE .$EKRTN <[MOVEI S2,[AK0SCIZ\A\]
				  KP    $RETF]>
			.%ERTN==1>
			.	H6 N)<z
	$CALL	.NISTOP
	LSTOF.
	JNhUMP	[XWD 0,[ITEXTO (<A>)]
		 EXP O(%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ tO1
	.$RESETt9
	$TYPE (.CMFLD)tX
	$NEXT (A)
	$txHELP (<>)
IFIDN u<B> <>,< IRP C,u8<C>
			.$BUILD>uX
IFDIF <B> <>,<ux
	$HELP (B)
	IvRP C,<C>
	.$BUILD><C>
	.$BU	MI  qYO
	.$RESETqy
	$TYPE (.CMFIL)r
	$HELP (<>)
	$r8NEXT (A)
IFIDN rX<B> <>,< IRP C,rx<C>
			.$BUILD>s
IFDIF <B> <>,<s8
	$HELP (B)
	IsXRP C,<C>
	.$BUILD><C>
	.$BU	dy BQLDEFINE .$FBqLGS <A>
			.%FLGS==1>
			.%FL	ex: |YOu
	.$RESET|y
	$TYPE (.CMFLT)}
	$HELP (<>)
	$}8NEXT (A)
IFIDN }X<B> <>,< IRP C,}x<C>
			.$BUILD>~
IFDIF <B> <>,<~8
	$HELP (B)
	I~XRP C,<C>
	.$BUILD><C>
	.$BU	$ M9<n h
	  INTERMiN A
	  $DATA(A,<B>)
	ATA(AR<g1	"
	IFDIF <D1A> <>,<
DEFINE DP.$HLPM <POINT 7,[DpASCIZ\A\]>
			.%HLPM==1>
			.	&5 lYNu
	.$RESETly
	$TYPE (.CMIFI)m
	$HELP (<>)
	$m8NEXT (A)
IFIDN mX<B> <>,< IRP C,mx<C>
			.$BUILD>n
IFDIF <B> <>,<n8
	$HELP (B)
	InXRP C,<C>
	.$BUILD><C>
	.$BU	&u {9Oa
	.$RESET{Y
	$NEXT (A)
	${xTYPE (.CMINI)
	I|RP B,<B>
	.$BUILD,<B>
	.$BU	./ `yN
	.$RESETa
	$TYPE (.CMKEY)a8
	$PDATA (B)
	aX$NEXT (A)
	IRP axC,<C>
	.$BUILD,<C>
	.$BUILD	./ _9N
	.$RESET_Y
	$TYPE (.CMKEY)_x
	$PDATA (A)
	`$NEXT (0)
	IRP `8B,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDRYE.WTOX.(.OMRyWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p QyE.WTOX.(.OMRLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV

YPw
	.$RESET

y
	$TYPE (.CMNOD)
	$HELP (<>)
	$XT (A)
IFIDN >,< IRP C,
			.$BUILD>
IFDIF <B> <>,<8
	$HELP (B)
;	X$FLAGS (CM%PO)
	xIRP C,<C>
	.$BUILD><C>
	.$B	:}r gyNI
	.$RESETh
	$TYPE (.CMNOI)h8
	$PDATA (<POINThX 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRiP C,<C>
	.$BUILD,<C>
	.$BUI	;-XR b9N%
	.$RESETbY
	$TYPE (.CMNUM)bx
	$PDATA (B)
	c$HELP (<>)
	$NEXc8T (A)
IFIDN <CcX> <>,< IRP D,<Dcx>
			.$BUILD>
IdFDIF <C> <>,<
	d8$HELP (C)
	IRP dXD,<D>
	.$BUILD><D>
	.$BUILD	>5 oO	
	.$RESETo9
	$TYPE (.CMOFI)oX
	$NEXT (A)
	$oxHELP (<>)
IFIDN p<B> <>,< IRP C,p8<C>
			.$BUILD>pX
IFDIF <B> <>,<px
	$HELP (B)
	IqRP C,<C>
	.$BUILD><C>
	.$BU	B$ C1LDEFINE .$DCQATA <A>
			.%DATA==1>
			.%DA	B$YP F1L5DEFINE .$DFQEFM <POINT 7,<A>>
			.%DEFM==1	CYT LqLiDEFINE .$DMEFR <A>
			.%DEFR==1>
			.%DE	F

:` OyE
.QWTO.(.OMPACK,<A>,<B>,<CP8>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	G-} 9PK
	.$RESETY
	$TYPE (.CMQST)x
	$HELP (<>)
	$NEXT (A)
IFIDN 8<B> <>,< IRP C,X<C>
			.$BUILD>x
IFDIF <B> <>,<	
	$HELP (B)
	I	8RP C,<C>
	.$BUILD><C>
	.$BU	G>K` MDm.QWTO.(.OMM9WTO,<A>,<B>,<CMX>,,<$WTMFL(MF.WTO),D>)FL(MF.WTO	J.I  L<e
	  $CALLL9	.RETE			
		LSTOLXF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  1:9
	.NVR==0Q			
	.ACM==0			

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

	IFN .APCM,<	
	    IFE <p.ACM-17B<T4>>,<.ACM==0
				$CALL 0.SAVET>
	    IFEP <.ACM-377B<.A16>p>,<.ACM==0
				$CALL .SAVE8>
	  0  IFE <.ACM-17B<PP4>>,<.ACM==0
			p	$CALL .SAVE4>
	    IFE <.ACM-7B<0P3>>,<.ACM==0
		P		$CALL .SAVE3>
p	    IFE .NVR,<	
	    IFE <.ACM-30B<P2>>,<.ACM==0
P				$CALL .SAVE2>p
	0  IFE <.ACM-1B<P1>>,<.ACM==0
				$CALL .SAVE1P>
	    IFE <.ACMp-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,<	#
	    IFE .NVR,<#0			
		CAIA			
	#P	LSTOF.
		JRST #pb>

	    .ACB==$0			
	REPEAT ^D1$06,<			
	    IFN $P<.ACM&1B<.ACB>>,<$p	
		..PUSH(\.ACB%,\<.NVR+1>)>
		.%0ACB==.ACB+1>>		
%P
	IFN .NVR,<	
	%p    PUSH P,[[CAIA&		
		     AOS -.&0NVR(P)	
	    REP&PEAT .NVR,<..POP(\&p.NVR)>	
		     P'OPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ ?q<
	  IFNDE@F ..BSIZ,<PRINTX @0?$SET without pre@Pvious $BUILD>
	 @p IFNB <B>,<..STRA0 (..SET,<C>,B,A0A)>
	IFB  <BAP>,<..STR0 (..SET,Ap<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
	XWD b-1,b-1
	8DEFINE $ETAB <
		b==.-a> <
		O%| RI=
S..A::!Ri	$CALL .STOP
		LSSTOF.
		JUMP [XWS(D 'A',[ITEXT (<SHB>)]
			EXP %%.MOD]
		LSTON.	M	O= kNa
	.$RESETk9
	$TYPE (.CMSWI)kX
	$PDATA (A)
	kx$NEXT (0)
	IRP lB,<B>
	.$BUILD,<B>
	.$BUILD	O= iYNU
	.$RESETiy
	$TYPE (.CMSWI)j
	$PDATA (B)
	j8$NEXT (A)
	IRP jXC,<C>
	.$BUILD,<C>
	.$BUILD	R

@ yP7
	.$RESET
	$TYPE (.CMTAD)8
	$PDATA (<CM%IDXA!CM%ITM>)
	$NEXxT (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	TT)%TEXT
	LSTOF.	XCTHREF
	JUMP	[XWD 2Th,0
		 EVL (A)
U		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESETY
	$TYPE (.CMTAD)x
	$PDATA (CM%ITM)
	$NEXT (A)
	8IRP B,<B>
	.$BUILD,<B>
	.$B	R}97 yQ
	.$RESET
	$TYPE (.CMTOK)8
	$PDATA (<POINTX 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRP C,<C>
	.$BUILD,<C>
	.$BUI	S h	>,


  ..TXgA(.TQA,C,D,E,e)B)	
      IFN .ei.TXEF,<			
	..TEeIRR<$TQ(A,B,C,D,E)>>

C,	S@I9 ~y@
	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	  AqLDEFINE .$TBYP <A>
			.%TYPE==1>
			.%TYP	W= 	yPa
	.$RESET

	$TYPE (.CMUQS)
8
	$HELP (<>)
	$
XNEXT (A)
	$PDAT
xA (B)
IFIDN <C> <>,< IRP D,<D8>
			.$BUILD>
IXFDIF <C> <>,<
	x$HELP (C)
	IRP

D,<D>
	.$BUILD><D>
	.$BUILD	W\@ xyOM
	.$RESETy
	$TYPE (.CMUSR)y8
	$NEXT (A)
	IyXRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ Oi=
IFE %%.OP	TS,<DEFINE $WARN P((MSG) <
		$TEXT PH(T%TTY,<% ^W6/[%%Ph.MOD]/ MSG>)>>
IQFN %%.OTS,<DEFINEQ( $WARN (MSG) <
	QH	$TEXT (T%TTY,<% Qh^W6/IIB+IB.PRG/ ^RW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r ?D
		IFB	<?9A>,<.WFACD==0
		?X	IFN <0-2>,<.$WAC?xD==0>>
		IFNB	<@A>,<.WFACD==-1
	@8		IFN <0-2>,<.$WA@XCD==.$WACD!<A>>
			IFE <0-2>,<DEAFINE .$WACD,<<WO.A8ACD>B8+[ITEXT (<A>)]>>
		>
<	_$u 4C3
		IFB	<49A>,<.WFACK==0
		4X	IFN <0-2>,<.$WAC4xK==0>>
		IFNB	<5A>,<.WFACK==-1
	58		IFN <0-2>,<.$WA5XCK==.$WACK!<A>>
			IFE <0-2>,<DE6FINE .$WACK,<<WO.68ACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ %yD_
	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.'SUFFIXJx'>B8+ [EXP .$W'SUKFFIX']>
	IFE	<ARK8GCOD-2>,<.$W'SUFFKXIX'>
>
>
	ALLWKxTO				
	EXP	0			
		
	EXP	0				_$k 6yCI
		IFB	<7A>,<.WFFLG==0
		78	IFN <1-2>,<.$WFL7XG==0>>
		IFNB	<7xA>,<.WFFLG==-1
	8		IFN <1-2>,<.$WF88LG==.$WFLG!<A>>
			IFE <1-2>,<DE8xFINE .$WFLG,<<WO.9FLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W <9Cu
		IFB	<<YA>,<.WFJBN==0
		<x	IFN <0-2>,<.$WJB=N==0>>
		IFNB	<=8A>,<.WFJBN==-1
	=X		IFN <0-2>,<.$WJ=xBN==.$WJBN!<A>>
			IFE <0-2>,<DE>8FINE .$WJBN,<<WO.>XJBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV DYD7
		IFB	<DyA>,<.WFMFL==0
		E	IFN <1-2>,<.$WMFE8L==0>>
		IFNB	<EXA>,<.WFMFL==-1
	Ex		IFN <1-2>,<.$WMFFL==.$WMFL!<A>>
			IFE <1-2>,<DEFXFINE .$WMFL,<<WO.FxMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] )B[
		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 G9DM
		IFB	<GYA>,<.WFNHD==0
		Gx	IFN <0-2>,<.$WNHHD==0>>
		IFNB	<H8A>,<.WFNHD==-1
	HX		IFN <0-2>,<.$WNHxHD==.$WNHD!<A>>
			IFE <0-2>,<DEI8FINE .$WNHD,<<WO.IXNHD>B8+[ITEXT (<A>)]>>
		>
<	_%kr 9YC_
		IFB	<9yA>,<.WFNOD==0
		:	IFN <0-2>,<.$WNO:8D==0>>
		IFNB	<:XA>,<.WFNOD==-1
	:x		IFN <0-2>,<.$WN;OD==.$WNOD!<A>>
			IFE <0-2>,<DE;XFINE .$WNOD,<<WO.;xNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p L9De.WTOX.(.OMLYWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU 19C
		IFB	<1YA>,<.WFOBJ==0
		1x	IFN <0-2>,<.$WOB2J==0>>
		IFNB	<28A>,<.WFOBJ==-1
	2X		IFN <0-2>,<.$WO2xBJ==.$WOBJ!<A>>
			IFE <0-2>,<DE38FINE .$WOBJ,<<WO.3XOBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr AyD!
		IFB	<BA>,<.WFOCD==0
		B8	IFN <0-2>,<.$WOCBXD==0>>
		IFNB	<BxA>,<.WFOCD==-1
	C		IFN <0-2>,<.$WOC8CD==.$WOCD!<A>>
			IFE <0-2>,<DECxFINE .$WOCD,<<WO.DOCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ PyE.WTOX.(.OMQWTO,<A>,<B>,<CQ8>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ NDs
.WTOX.(.OMN9WTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z (YDQ
	DEFINE	(y.EAWTO(SUFFIX),<$JWT'SUFFIX'	<>>
	ALLWTO				

		_&N .YC
		IFB	<.yA>,<.WFTXT==0
		/	IFN <2-2>,<.$WTX/8T==0>>
		IFNB	</XA>,<.WFTXT==-1
	/x		IFN <2-2>,<.$WT0XT==.$WTXT!<A>>
			IFE <2-2>,<DE0XFINE .$WTXT,<<WO.0xTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 +yBq
		IFB	<,A>,<.WFTYP==0
		,8	IFN <2-2>,<.$WTY,XP==0>>
		IFNB	<,xA>,<.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 L{0-Pg.N	@Z6 V9Mw			

	dVY==<FLD(.$TYP,CM%FVxNC)>!.$FLGS!<.$LSWT> 

	IFN <.%BRW8EA>,<d==d!CM%BRWXK> 

	IFN <.%HLWxPM>,<d==d!CM%HPXP!CM%SDH> 
					X8	

	IFN <.%DEFMXX>,<d==d!CM%DPP>Xx 

c:!	XWD	b,Ya			

	EXP d	Y8			

	EXP .$DATYXA			

IFN <.%HLYxPM!.%DEFM!.%BREA>Z,<
		EXP	.$HLPM>Z8		


IFN <.%DEZXFM!.%BREA>,<
		EZxXP	.$DEFM>		

[
IFN <.%BREA>,<	E[8XP	.$BREA>		

	[Xa==.-c			;LENGT[xH OF THE FDB

I\FN <.%NXT!.%DEFR!\8.%RTN!.%ERTN>,< E\XXP .$NXT >	

IF\xN <.%DEFR!.%RTN!.]%ERTN>,<EXP .$RTN]8 >	

IFN <.%DEF]XR!.%ERTN>,<	EXP	.]x$ERTN>	

IFN <.^%DEFR>,<		EXP	.$D^8EFR>	


	b==.^X-c			

	IF2<	P^xURGE a,b,c,d>
	LISTb,c,d>$YVDN1LsPOINT/7,[ASCIZ\0\]NT 7,[A$YY L0C4@.- Ly0g"@5Iy Lo01ra+=f= Lu0+1aJ}Ksw
	SALL
	QXLIST
	DEFINE .$Q8TYP <0>
	.%TYPE=QX=0
	DEFINE .$FLGQxS <0>
	.%FLGS==0R
	DEFINE .$DATA R8<0>
	.%DATA==0
RX	DEFINE .$HLPM <>Rx
	.%HLPM==0
	DESFINE .$DEFM <0>
S8	.%DEFM==0
	DEFISXNE .$LST <0>
	.%SxLST==0
	DEFINE .T$BREA <0>
	.%BRET8A==0
	DEFINE .$NTXXT <0>
	.%NXT==0Tx
	DEFINE .$ERTN U<0>
	.%ERTN==0
U8	DEFINE .$RTN <0>UX
	.%RTN==0
	DEFUxINE .$DEFR <0>
	.%DEFR==0<0>
	K@L}0-]gR^h9'qKI0T 1,b)0P $YVP $YYP .-P 5IyP f=P w
	   ..AS@1==-<B>	
	IFDEF@0 .PSECT,<
	.IFN @P..AS1,ABSOLUTE,<
	     C A,[-..AAS1]>	
	.IF ..ASA01,ABSOLUTE,<
		.AP.AS2==0	
	  IFE Ap<..AS1&^O777777B1B7>,<
		..AS2==1	B0
	    DI A,..ABPS1>
	  IFE ..AS2Bp,<
	    ..OP(A,CB,C)>	
	PURGE C0..AS1,..AS2>>
	ICPFNDEF .PSECT,<
	Cp	..AS2==0	
	  IFDE <..AS1&^O777777D0B17>,<
		..AS2==DP1	
	    DI A,.Dp.AS1>
	  IFE ..AES2,<		
	    ..OPE0(A,B,C)>
	PURGE ..AS1,..AS2>:h 6)
	A: 2q3c
	  ..CX13==C
	IFDEF .PSE30CT,<
 	.IFN ..CX3P1,ABSOLUTE,<
	  3p    CAMA B,[C]4>
	.IF ..CX1,ABS41OLUTE,<	
		..CX24P==0	
	  IFE <..C4qX1&^O777777B17>,<5
		..CX2==1	
	 50   CAIA B,C>
5P	  IFE ..CX2,<		
	    CAMA B,[:C]>
	PURGE ..CX1:0,..CX2>>
	IFNDEF:P .PSECT,<
		..CX:p2==0	
	  IFE <..;CX1&^O777777B17>,;0<
		..CX2==1	
	;P    CAIA B,C>
	  IFE ..CX2,<		<
	    CAMA B,[<0C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ .:}
	..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 Q81
   DEFINqE ..CNS2 (NEW,OLD)<
	  OLD>			
	..CNS ()>			
	:L;Y 18)
   DEFINQE ..CNS (%%%)<
	p..CNS2 <%%%>,>

   DEFINE ..CNS20 (NEW,OLD)<
	DEFPINE ..CNS (%%%)<
	  ..CNS2 <%%%>,<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ *q:c
	..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 jQ6W
	A==<<<jq-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ Eq4[
	  ..OP1F==B
	IFDEF .PSEF0CT,<
 	.IFN ..OPFP1,ABSOLUTE,<
	  Fp    C A,[..OP1]G>
	.IF ..OP1,ABSG0OLUTE,<	
		..OP2GP==0	
	  IFE <..OGpP1&^O777777B17>,<H
		..OP2==1	
	HH0   CI A,..OP1>
	  IFE ..OP2,<		Hp
	    C A,[..OIP1]>
	PURGE ..OPI01,..OP2>>
	IFNDEIPF .PSECT,<
		..OIpP2==0	
	  IFE <.J.OP1&^O777777B17>J0,<
		..OP2==1	
JP	    CI A,..OP1Jp>
	  IFE ..OP2,<K		
	    C A,[.K0.OP1]>
	PURGE ..OP1,..OP2>GE ..;m }Y?s
	..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==.;] B1<
	  IFGE BQ<<<B>&777777>-..BpBSIZ>,<
		PRINTXC ?WORD offset greC0ater than $BUILD CPsize parameter>
Cp	  SET0. (\<B>,C,<A>)
	B>,;LH q7
	IFNDEF q1C,<PRINTX C IS qPNOT DEFINED
	  qpA (<B>,D,FWMASKr)>	
	IFDEF C,<
	IFNDEF %C,<
	rP  A (<B>,D,C)rp>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH sQ7W

	..NS==0sq			
	IRP C,<..NtS=..NS+1>	
	IFE t0..NS,<PRINTX ?EMPtPTY STRUCTURE LISTtp, A>
	IFE ..NS-u1,<		
	  ..STR0 u0(A,<B>,<C>,D)uP>
	IFG ..NS-1,<	up	
	..ICNS			
	.v.CNS (<E (A,<Bv0>,,>) 
	IRP C,<vP		
	  IFNDEF C,vp<PRINTX C NOT DEwFINED>
	  IFDEF w0C,<
	  IFNDEF %wPC,<
	  ..CNS (<wp,C,D>)>	
	  IFxDEF %C,<
	  %Cx0 (..STR2,,D,C)>xP 
	  ..CNS (<)>)xp		
	  ..GCNS		
y	  ..ICNS		
	  .y0.CNS (<E (A,<ByP>>) 
	  IFNDEF %ypC,<
	  ..CNS (<z,C,D>)>	
	  IFz0DEF %C,<
	  %CzP (..STR2,,D,C)>zp>> 
	..CNS (<,,)>)		
	..GCNS>);LI {17[
	..CNS (<,C,B>).CNS (;LI {q7q

	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 ~Q8

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

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

    $TX$ERR>
;$^ y@g

    ..TXF==0				
    .8.TXB==0				
    X..TXP==0				
   x ..TXEG==<..TXEF=	=0>			
    IRPC 	8A,<				
	..TXC=	X=ASCII\A\-35		
	IFN ..TXB,<IFN 
..TXB-..TXC,..CNS
8(<A>)
		   IFE 
X..TXB-..TXC,..TXB
x==0>
	IFE ..TXB,<..TXQ(<A>,\..TX8F)>>	
    ..TXC1X				
    IFN ..TxXB,<IFN <..TXB-"^

">,<..TXER(PEA)>>

8
    ..TXEF==..T

XXEF!..TXEG

x IFN ..TXEF,<..TERR<A>>
,<..TE;&( ji>V..TXA(.TQCH0)..TXA(.TQC;&) ky>_..TXER(IQU)..TXER(IQU;&) k)>Z..TXER(IQU)..TXER(IQU;&0 j)>R..TXA(.TQCHA)..TXA(.TQC;&5 hi>F..TXC0(\".CHLFD).TXC0(\".;&5 ii>N..TXC0(\".CHVTB).TXC0(\".;&6 i)>J..TXC0(\".CHFFD).TXC0(\".;&6 h)>B..TXC0(\".CHCRT).TXC0(\".;&@ 71;Q
	..TSIZ 7Q(..PST,C)	
	.CA7pSE ..PST,<<
		SE8TZM B>,<	
		HLL80ZS B>,<	
		HRRZ8PS B>,<	
	  ..TS8pAC (..ACT,B)	
	9  .IF0 ..ACT,<
	90	$CALL .ZERO	
		9PLSTOF.
		JUMP [P9pOINTR(B,C)]
		:LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 g6Q
	IFNDEF g1.PSECT,<
	A==0	gP		
	..TSA1==<Z gpB>		
	  IFE ..TShA1&^O777777777760h0,<A==1> 
	>
	IhPFDEF .PSECT,<
	hpA==0			
	..TSA1=i=<Z B>		
	.IF .i0.TSA1,ABSOLUTE,<	iP
	  IFE ..TSA1&^ipO777777777760,<Aj==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= eQ65
	A==3		eq	
	IFE <B>+1,<fA=0>	
	IFE <B>-f0^O777777,<A==1> fP
	IFE <B>-^O777777B17,<A==2>7;' Kq5m
   ..TX1L==C			
IFDEF .PL0SECT,<
   .IFN .LP.TX1,ABSOLUTE,<
Lp	TDA B,[C]>
 M0  .IF ..TX1,ABSOLMUTE,<		
	..TX2==MQ0		
	IFE <..TX1&Mq^O777777B17>,<
	N  ..TX2==1		
	  N0TRA B,..TX1>
	NPIFE ..TX2,<		
	INpFE <..TX1&^O77777O7>,<
	  ..TX2==1O1		
	  TLA B,(.OP.TX1)>>
	IFE ..TOpX2,<		
	  IFE <<P..TX1>B53-^O77777X17>,< 
	    ..TX3XP (A,B)>>	
	IFEXp ..TX2,<		
	  TDYA B,[..TX1]>	
Y0	PURGE ..TX1,..TXYP2>>
IFNDEF .PSECYpT,<
	..TX2==0		
	IFE <..TX1&^O77Z07777B17>,<
	  ..ZPTX2==1		
	  TRAZp B,..TX1>
	IFE [..TX2,<		
	IFE <[0..TX1&^O777777>,<[P
	  ..TX2==1		
[p	  TLA B,(..TX1\)>>
	IFE ..TX2,<\0		
	  IFE <<..TX\P1>B53-^O777777>,<\p 
	    ..TX3 (A],B)>>	
	IFE ..T]0X2,<		
	  TDA ]PB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` ^6
	IFIDN <^1A><Z>,<		
	  ..^PTX2==1
	  ANDI ^pB,^-..TX1>	
	IFI_DN <A><O>,<		
	_0  ..TX2==1
	 pORPCMI B,^-..TX1>	
	IFIDN <A><C>,<`		
	  ..TX2==1
`0	  EQVI B,^-..TX1>QVI B,^-..TX;'  n?]

	..TXEn9F==0			

IFNDEFnX A,<..TXER(UQU)>nx		
IFDIF <B><>,o<IRPC B,<.IFN <o8B>,NUMERIC,..TXERoX(IWA)>>
IFNB <Cox>,<IFNDEF .TXTJCp,<..TXER(IJA)>>
p8IFDEF  A,<
  IFpXE <A_-^D18>,<IFDpxIF <EFBCD><>q,<..TXER(ANA)>>
q8  IFE <1-<A_-^D1qX8>>,<IFDIF <BCqxD><>,<..TXER(JNA)r>>
  IFE <2-<A_r8-^D18>>,<IFIDN <rXEF><>,<..TXER(ADrxS)>>>

      IFsE ..TXEF,<
	IFIDs8N <B><>,<..TXWD=sX=<..TXJU==<..TXFCsx==0>>>
	IFDIF <tB><>,<
	  IFE <^t8D<B>>,<..TXWD==<tX..TXJU==<..TXFC==tx0>>>
	  IFN <^D<uB>>,<..TXWD==^D<u8B>
	    IFNB <uXC>,<..TXJU==.TXTJuxC>
	    IFB  <vC>,<..TXJU==.TXTJv8L
	      IFE <AvX-.TQOCT>,<..TXJU=vx=.TXTJR>
	wX    wIFE <A-.TQDEC>,<w8..TXJU==.TXTJR>>
	    IFB  <D>,<wx..TXFC==" ">
	  x  IFNB <D>,<..TXx8FC=="D">>>

	IxXFB  <EF>,<..TXPxxT==0>
	IFNB <EyF>,<..TXPT==1>
	y8IFE <..TXWD+..TXPyXT>,<
	    EXP FLyxD(A,TXT.FN)>
	IzFN <..TXWD+..TXPTz8>,<
	    EXP FLDzX(A,TXT.FN)+FLD(.zx.TXJU,TXT.JU)+FLD{(..TXWD,TXT.WD)+F{8LD(..TXFC,TXT.FC){X+TXT.AD
	    PNTR(E,F)>>

T;'h YB
    IFE y..TXP,<			
	..ICNS			
	..CNS<ASC8IZ\>		
	..TXP==1X>		
    ..CNS<Ax>			
    ..TXF== 0			
    ..TXB=="^"
..TXB==;'h  YB

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

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

(

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

( A

    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;'

) A'
    ..TX9F==3				
    IFGXE ..TXC-"0",IFLE x..TXC-"9",<..TXF==2>
    IFE ..TX8F-2,<..CNS(A)>		X
    IFE ..TXF-3x,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) 9A;
    ..TXYF==4				
    IFEx ..TXC-"/",<..TXF==5>		
    IFE .8.TXC-"[",<..TXF==X5>		
    IFE ..TxXF-4,<..CNS<A,>>		
    IFE ..TXF8-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* yAQ
    ..TXF==4				
    IFE8 ..TXC-"/",..TXF=X=5		
    IFE ..TxXC-"[",..TXF==5		
    IFE ..TXF-58,<..CNS<,>		
		 X..TXQ5<A>>		
  x  IFE ..TXF-4,<..CNS<A,>		
		 ..TXF==5>	
		 ..;'

* YAc
    ..TXyF==6				
    IFE ..TXC-"/",..TXB=8="/"		
    IFE .X.TXC-"[",..TXB=="x]"
    IFE ..TXB-"]",..CNS<[>		
8    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ yAq
    ..TXF==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  q9
	.ACV2 (A)
	.ACV2 (d@ 19)
	A=.FPAQC+..NAC		
	IFB <pB>,<..NAC=..NAC+1>
	IFNB <B>,<..NAC=..NAC+B>.d` Q97
	IFG A-q.NPAC,<PRINTX ?TOO MANY ACS USED>
	IFLE A-4,<
	P $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z <;a$CALL	I%INTA$CALL	I%IN9  cQ6'
	..CSN==cqA
	..CSC==0
	IdRP B,<
	IFE ..Cd0SN-..CSC,<
	  STdPOPI
	  ..CAS1 (dpB)>
	..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 41;-
	..PST==4QC-FWMASK
	.IF0 4p..PST,<
		SOS B5>,<	
		$CALL .SO50S	
		LSTOF.
		J5PUMP [POINTR(B,C)]
		LSTON.>C

TP } %DU
	.OPCD==JY.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 b16
	..IFT==bQA		
	IFE ..IFT,bp<
	B
	..IFT==0c>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H 11;
	..PST==1QC-FWMASK
	.IF0 1p..PST,<
		AOS B2>,<	
		$CALL .AO20S	
		LSTOF.
		J2PUMP [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	WY		
		JRST	h		
Wx		SKIPE	G$NEBF		
		JRST	g		
		$X8CALL	I%WTO		
		LXXSTOF.			
		JRST	Xxh		
		$WTRST			Y
	IFNB <A>,<$WTY8MTY (<A>)>	
	IFYXNB <B>,<$WTTYP (Yx<B>)>	
	IFNB <ZC>,<$WTTXT (<C>)Z8>	
	IFNB <D>,<$ZXWTOBJ (<D>)>	
	ZxIFNB <E>,<$WTACK[ (<E>)>	
		IRP [8F,<F>		
		$WTB[XLD			

g:		$CA[xLL	I%WTO		
		JRS\T	h		
		$WTRST	\8		
	$WTNHD(G$REM\XN)			
	IFNB <A>\x,<$WTMTY (<A>)>	]
	IFNB <B>,<$WT]8TYP (<B>)>	
	IF]XNB <C>,<$WTTXT (]x<C>)>	
	IFNB <^D>,<$WTOBJ (<D>)^8>	
	IFNB <E>,<$^XWTACK (<E>)>	
	^x$WTMFL(MF.NEB)			_
		IRP F,<F>		_8
		$WTBLD			

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

0P O 8QKU
	IFG	A-:QMX.PID,<MX.PID==A>
C
G	A-OSP OYP Oi1P O|P OyP O%=H 	8I
	.STKV2 (A)
	.STKV2 O%=I 	Q8W
	IFB <B	q>,<..STKN==..STKN
+1>
	IFNB <B>,<
0..STKN==..STKN+B
P>
	..STKQ==..STK
pN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I 18e
   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

: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  18{
	.TRV2 (A)
	.TRV2 (Sd@ q9
	.TRV3 (A,\..NV)	
	IFB 0<B>,<..NV=..NV+1P>
	IFNB <B>,<..NV=..NV+B>,<..Sd` 9
   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 _%~ S9E7
		$CALL	SYI%WTO		
		LSTOF.Sx			
		JRST	g		
		$WTRST			
	IFT8NB <A>,<$WTMTY (TX<A>)>	
	IFNB <TxB>,<$WTTYP (<B>)U>	
	IFNB <C>,<$U8WTTXT (<C>)>	
	UXIFNB <D>,<$WTOBJUx (<D>)>	
	IFNB V<E>,<$WTACK (<EV8>)>	
		IRP F,<VXF>		
		$WTBLD			Vx
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP