Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11l-bm_tops20_v7_0_tsu03_2_of_3 - galsys/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,U_@P C4@ *Q:Y
	..NAC==*q0		
	IRP A,<
	+  .ACV1 (A)>		
	.ACV3 (\..NAC)C' TQ5%..AS(A,B,ADD,SUB)(A,BC, 6I34LSH A,-^D9LSH A,-^DC.:=p C2f} 9yCg
	.EAWTO(:MTY,0)
	.EAWTO(T:8YP,2)
	.EAWTO(TX:XT,2)
	.EAWTO(OBJ:x,0)
	.EAWTO(ACK,;0)
	.EAWTO(FLG,1;8)
	.EAWTO(NOD,0);X
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
<	.EAWTO(OCD,0)
	<8.EAWTO(MFL,1)
	.<XEAWTO(NHD,0)		
<x
	.EAWTO(PID,0)		
AWTO(PID,0)		C:' y7I
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ `>
	  IFE `1B,<..TA==0>
	  `PIFN B,<EXP ..TA`p
		    PURGE ..TA>
	PURGE ..TE2&i1 mi.u:
	IFIDN <nE><C>,<EXTERNAL n8BMAN,BDEV>
	SInXXBIT	/A/
	XWD	BMAN,BDEV
D	SRSMELpE@tP'E@vyQ ~E@v:=Q |F:<P F;z:Q @G@ MQ4m
	    ..CX(,A,B)   ..CGD Q5	
	    ..CX(A,A,B)  ..CGDP O4y
	    ..CX(E,A,B)  ..CGDp OQ4}
	    ..CX(G,A,B)  ..CGDy  P5
	    ..CX(GE,A,B) ..CGE@ N4q
	    ..CX(L,A,B)  ..CGEI  NQ4u
	    ..CX(LE,A,B) ..CGE` PQ5
	    ..CX(N,A,B)  ..CGH :yK[

	  LST:OF.

	X CRE	
	:YX GEN	
	X PRT	
9y	X CLS	
	X9AUT	
	X USW	
	X SPL	;
	X SIZ   
	X M;8OD	
	X CHN	

	  LSTON.


	G3.= q/	IFN C.GALA,IFN C.GALAG4,m:Q G4-ZQ G4.
zQ G:YlP 
G>vC@ wA/DLALL
PAGEwa; (A Continued oxn next page)
SALx L; (A Continued x@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  Jq<]
	IFNB <KB>,<..STR0 (.DECRK00,,<B>,A)>
	IFKPB  <B>,<SOS A>  <B>,<SOS A>I6= 8-
	A==<-11B<C>+1B<C-D>> P
	IF1,<IFDEF %Ap,<PRINTX ?A ALREADY DEFINED>>
	D0EFINE %A (OP,AC,PY,MSK)<	
	IFDIF p<Y><>,<
	OP (<AC>,B+'Y,MSK)>
	I0FIDN <Y><>,<
	OPP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 W59..OP(A,B,DIV)..OP(A,BIOH1 3qS)
	IFB <D4>,<
	XWD	[ASCIZ\40C\],[XWD B,A]>4P
	IFNB <D>,<
	4pXWD	[EXP CM%FW!D5
		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 89KK
	IF1,<IF8YDEF ERA$,PRINTX 8x?Duplicate error 9code A>
	ERA$=98=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y ~K?
	ERR	EOF~9,<End of file>
	~XERR	IFP,<Illegal ~xfile position>
	ERR	FDE,<File dat8a error>
	ERR	FNXD,<File is not onx disk>
	ERR	FSM,<File still mappe8d>			;[301]
	ERRX	NSD,<No such devxice>
	ERR	FCF,<File checkpoint fa8iled>
	ERR	SLE,<XA system limit waxs exceeded>
	ERR	IFS,<Illegal fil8e specification>
	ERR	FNF,<File nxot found>
	ERR	PRT,<Protection vi8olation>
	ERR	DNXA,<Device not avaxilable>
	ERR	NCE,<No "current" en8try in list>
	ERXR	NMA,<No IPCF mexssage is available>
	ERR	FDS,<Fil8es are on differeXnt structures>
	xERR	FAE,<File already exists>
	ER8R	USE,<UnexpectedX system error>
	xERR	NSP,<No such pid>
	ERR	BOL,<B8eginning of list Xreached>
	ERR	EOxL,<End of list reached>
	ERR	RQF,8<Receivers quota Xfull>
	ERR	SQF,<xSenders quota ful	l>
	ERR	NRE,<No 	8remembered entry>	X
	ERR	TBF,<Table	x is full>
	ERR	E
IT,<Table entry a
8lready exists>
	
XERR	ITE,<Invalid 
xtable entry>
	ERR	QEF,<Quota exce8eded or disk fullX>
	ERR	ARG,<Invaxlid argument spec
ified>
	ERR	IFN,
8<Invalid function
X specified>
	ERR
x	IJN,<Invalidfjob
	ERR	RAD,<Invaifi
	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 date/time>
	ERR	ILR8,<Illegal year foXrmat in date/timex>
	ERR	NND,<Negative number in da8te/time>
	ERR	NPXF,<Not known whetxher past or future in date/time>
8	ERR	RDP,<RelativXe date parse requxired>
	ERR	NSW,<Switch does not b8egin with slash>
	ERR	NOM,<Unrecoxgnized switch or keyword>
	ERR	NU8L,<Null switch orX keyword given>
x	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,<Devi ce can not do inp 8ut or output>
	E XRR	BDF,<Invalid d xate/time format>
	ERR	ABS,<Field !8too long for inte!Xrnal buffer>
	ER!xR	TMT,<Command to"o long for intern"8al buffer>
	ERR	"XBDS,<Invalid defa"xult string>
	ERR#	BTF,<Invalid tab#8le format>
	ERR	#XTME,<Date/time mu#xst be in the futu$re>
	ERR	TMN,<No$8 timer entry has $Xexpired>
	ERR	TM$xA,<Timer entry al%ready exists>
	E%8RR	DVT,<Device te%Xrminator ":" must%x be specified>
	&ERR	NCI,<Argument&8 block may not be&X in the ACs>
	ER&xR	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 supers)ede a directory>
	ERR	CDD,<Cannot)X delete a non-emp)xty 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 l0arge>
	ERR	IPP,<08Non-existant UFD>0X
	ERR	TRN,<RIB o0xr transmission er1ror>
	ERR	ILC,<I18llegal character 1Xin date/time>
	E1xRR	NFT,<Date/time2 must be in the f28uture>
	ERR	NPS,2X<Date/time must b2xe in the past>
	3ERR	UDM,<Unrecogn38ized month in dat3Xe/time>
	ERR	UDN3x,<Unrecognized na4me in date/time>
	ERR	IFA,<Illega4Xl file attribute>4x
	ERR	FAI,<File 5attribute inconsi58stancy>
	ERR	CEI5X,<Can't enable/di5xsable interrupt s6ystem>
	ERR	ENF,68<Linked list entr6Xy not found>
	ER6xR	NSL,<No such li7nked list>
	ERR	78NFP,<No free page7Xs>
	ERR	NPI,<No 7xfree 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` m)>|
	IFIDN <mIBC><>,<EXP <A>mh>
	IFDIF <BC><n>,<
	 IFE <A+1>n(,<<POINT 7,C>>
nH	 IFN <A+1>,<
	nh   IFIDN <C><>,<oEXP <A,B>>
	  o( IFDIF <C><>,<EXoHP <A,B,C>>
	>>A,B,C>>
	>Kc  u/*IRP A,<
u!	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  :q3W<<<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|  ua/8IRP A,<
v	IF2,<IFDEF A,<.v IFN A,EXTERN,<INv@TERN A>>
	     v`IFNDEF A,<EXTERNw A>
	Q SUPPRESPA>>YSUPPRO3FX7P mQf@ +QfI@ <StLQ St\Yp Stkp SuZp Suh1Q SulQ Su}:p Sv
1p Sv
Sp Sv>9Q Sv>@p SNn VQ55..OP(A,B,IDIV).OP(A,BS7-N UQ5-..OP(A,B,IMUL).OP(A,BS:  Gq<E
	IFNB <HB>,<..STR0 (.INCRH00,,<B>,A)>
	IFHPB  <B>,<AOS A>  <B>,<AOS A>S;k =13k<<<A>B<POS(<B>)>>&<B>>S;!kP S;!k<P S? xQ7E
	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.	p)XCREF
	..TEXT<ApH>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ YL

	  LST<OF.

	X JNO,.JI<8JNO,<-1,,GJBJNO>	<X
	X TNO,.JITNO,<<x-1,,GJBTTY>	
	X =USR,.JIUNO,.GTPPN=8		
	X CDN,.JIDNO=X,<-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$vKPQU$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
	IFB <C5q>,<
	XWD	[ASCIZ\6B\],A>
	IFNB <60C>,<
	XWD	[EXP 6PCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 	3,

	  LST)OF. XCREF

	CDOH	OTSINI			
	CDO	h    			
	CDO	.ZPAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CDHO	.SAVE1
	CDO	.ShAVE2
	CDO	.SAVE3
	CDO	.SAVE4
	C(DO	.SAVET
	CDO	.HSV13
	CDO	.SV14
	CDO	.SV15
	CDO	.SV16
	CDO	.RET(T
	CDO	.RETF
	CHDO	.RETE
	CDO	.AhOS		
	CDO	.SOS		
	CDO	.ZERO		
	(CDO	.POPJ		
	CDOH	.STOP		
	CDO	.ShAVE8		
	CDO	.STKST		
	CDO	.TRSET(		
	CDO	.POPJ1		H
	CDO	.UD2SC		
h	CDO	.SC2UD		
	CDO	.CPUTY		
	CDO(
	CDO
	CDO

	HCDO			
	CDO	C%RPhRM
	CDO	C%INTR
	CDO	C%SEND
	CDO(	C%RECV
	CDO	C%BHRCV
	CDO	C%REL
h	CDO	C%CPID
	CDO	C%KPID
	CDO	C%S(PID
	CDO	C%MAXP
	CDO	C%PIDJ
	CDhO
	CDO
	CDO
	CDO
	CDO

	CDO	(      			
	CDO	FH%IOPN
	CDO	F%AOPhN
	CDO	F%OOPN
	 CDO	F%IBYT
	CDO	 (F%OBYT
	CDO	F%IB HUF
	CDO	F%OBUF
 h	CDO	F%REL
	CDO	!F%DREL
	CDO	F%RR!(EL
	CDO	F%REW
	!HCDO	F%POS
	CDO	F!h%CHKP
	CDO	F%INF"O
	CDO	F%FD
	CD"(O	F%REN
	CDO	F%D"HEL
	CDO	F%FCHN
"h	CDO
	CDO
	CDO
	CDO
	CDO
	CDO#(
	CDO
	CDO
	CD#HO

	CDO	      	#h		
	CDO	M%ACQP
$	CDO	M%RELP
	CDO$(	M%IPSN
	CDO	M%N$HXPG
	CDO	M%IPRC
	CDO	M%IPRM
	CD%O	M%AQNP
	CDO	M%%(RLNP
	CDO	M%CLNC%H
	CDO	M%FPGS
	C%hDO	M%GMEM
	CDO	M&%RMEM
	CDO
	CDO&(
	CDO
	CDO
	CD&HO
	CDO
	CDO	M%G&hPAG
	CDO	M%RPAG
	CDO
	CDO
	CDO'(
	CDO
	CDO
	CD'HO
	CDO
	CDO

'h	CDO	      			
	(CDO	T%TEXT
	CDO	((T%TTY
	CDO
	CDO(H
	CDO
	CDO
	CD(hO
	CDO
	CDO
	C)DO
	CDO
	CDO
)(
	CDO	      			
)H	CDO	L%CLST
	CDO)h	L%DLST
	CDO	L%C*ENT
	CDO	L%CBFR
	CDO	L%DENT
	CD*HO	L%NEXT
	CDO	L%*hFIRS
	CDO	L%LAST+
	CDO	L%PREV
	C+(DO	L%PREM
	CDO	L+H%CURR
	CDO	L%REN+hT
	CDO	L%SIZE
	,CDO	L%APOS
	CDO
	CDO
	CDO
	CDO,H
	CDO
	CDO
	CD,hO
	CDO

	CDO		-	
	CDO	I%NOW
	C-(DO	I%EXIT
	CDO	I-H%ION
	CDO	I%IOFF-h
	CDO	I%SLP
	CD.O	I%INT1
	CDO	I%.(INT2
	CDO	I%INT3.H
	CDO	I%TIMR
	C.hDO
	CDO
	CDO	I%/SOPR
	CDO	I%WTO
	CDO
	CDO	I%HOS/HT
	CDO	I%JINF
	/hCDO
	CDO

	CDO0			
	CDO
	CDO	S0(%DATI
	CDO	S%SIX0HB
	CDO	S%CMND
	0hCDO	S%TBLK
	CDO	1S%SCMP
	CDO	S%ER1(R
	CDO	S%INTR
	1HCDO	S%EXIT
	CDO	1hS%TBAD
	CDO	S%TB2DL
	CDO	S%NUMI
2(

	CDO	K%RCOC		2H	
	CDO	K%WCOC
	2hCDO	K%SUET
	CDO	3K%STYP
	CDO	K%TX3(TI
	CDO	K%SOUT
3H	CDO	K%BOUT
	CDO3h	K%BIN
	CDO	K%BA4CK
	CDO	K%TPOS
4(	CDO	K%BUFF
	CDO4H	K%FLSH
	CDO	K%O4hPEN
	CDO
	CDO
5	CDO
	CDO
	CDO
	CDO
	CDO
	CDO5H
	CDO
	  LSTON.
  
	  LSTON.Y>
@ A1<
	IFNB <AQC>,<..STR0 (..LDBAp,A,C,B)>
	IFBB  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG y/R
	IFNDEF y!LSTIN.,LSTIN.==0	y@	
IFE LSTIN.,<
y`	IFIDN <XCREF><Az>,<.XCREF>	
		  z  XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G za/\
	IFG LST{IN.,LSTIN.==LSTIN{ .-1	
	IFLE LSTIN{@.,<.CREF		
		      LIST>
		   [3@ <q3g<<<1_<A>>-1>B<B>>_<A>>[8@ ;q3_1B<<A>-1>-1B<B><<A>-1>[@ I1
	IFB <Bi>,<MAXSIZ==0
		IRP A,<IFG <A-MA(XSIZ>,<MAXSIZ==AH>>>
	IFNB <B>,<hB==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)Q  [v=3P'[v|WQ [v}Q [v}Q @[&p I1,
	IFB <Bi>,<MINSIZ==377777,,777777
		IRP (A,<IFG <MINSIZ-AH>,<MINSIZ==A>>>
	IFNB <B>,<B==377777,,777777
	(	IRP A,<IFG <B-HA>,<B==A>>>
A>,<B==A>>>
[>!`<13c<A-<A/B>*B><A-<A/B[>w@&
   ..MX1>==B			
IFDEF .P>0SECT,<
   .IFN .>P.MX1,ABSOLUTE,<
>p	MOVE A,[B]>
 ?  .IF ..MX1,ABSOL?0UTE,<
	..MX2==0	?P	
	IFE <..MX1>B5?p3,<
	@..MX2==1
	  MOVEI A,..MX@01>	
	IFE ..MX2,<@P		
	IFE <..MX1>B@p17,<
	  ..MX2==1A
	  MOVSI A,(..A0MX1)>>	
	IFE ..MAPX2,<		
	IFE <<..ApMX1>B53-^O777777>B,<
	  ..MX2==1
B0	  HRROI A,<..MXBP1>>>	
	IFE ..MX2Bp,<		
	IFE <<..MXC1>B17-^O777777B17C0>,<
	CP..MX2==1
	  HRLOI A,(..MCpX1-^O777777)>> 
D	IFE ..MX2,<		
	D0  MOVE A,[..MX1]DP>	
	>>

IFNDEFDp .PSECT,<
	..MX2E==0		
	IFE <..MXE01>B53,<
	  ..MX2EP==1
	  MOVEI A,Ep..MX1>	
	IFE ..MFX2,<		
	IFE <..MF0X1>B17,<
	  ..MXFP2==1
	  MOVSI AFp,(..MX1)>>	
	IFEG ..MX2,<		
	IFE G0<<..MX1>B53-^O777GP777>,<
	  ..MX2=Gp=1
	  HRROI A,<H..MX1>>>	
	IFE .H0.MX2,<		
	IFE <<HP..MX1>B17-^O77777Hp7B17>,<
	  ..MX2I==1
	  HRLOI A,I0(..MX1-^O777777)>IP> 
	IFE ..MX2,<	Ip	
	  MOVE A,[..JMX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 8C
	A==C	1	
	IF1,<IFDEF %PA,<PRINTX ?A ALRpEADY DEFINED>>
	DEFINE %A (OP,AC0,Y,MSK)<	
	IFDIFP <Y><>,<
	OP (<ApC>,B+'Y,MSK)>
	IFIDN <Y><>,<
	O0P (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg V51..OP(A,B,MUL)..OP(A,B[`v
2P [b6<P F] sA/IF2,<IFDEFsa A,<A==A>> IFNDEF A,<A==B>]F@ N^TEMFDB##_
Qh5p _
QkRp _
Ql7p _
Qlxp _
Ql}p _
Qmp _
Qm7p _
Tpp _
T= GALy

	X	.OTRDR,Reader
	X	.O;yTNCU,Network-ContGaroller
	X	.OTLPTG!,Printer
	X	.OTBIQAT,Batch-Stream
Ip	X	.OTCDP,Card-PuJnch
	X	.OTPTP,PaJ0pertape
	X	.OTPLJPT,Plotter
	X	.OTJpJOB,Job
	X	.OTTRKM,Terminal
	X	.OK0TOPR,Operator
	XKP	.OTIBM,<IBM RemoKpte>
	X	.OTMNT,<DLevice>
	X	.OTFTSL0,<File Transfer>
	X	.OTBIN,<Card LpReader InterpreteMr>
	X	.OTRET,<FiM0le Retrieval>
	XMP	.OTNOT,<RetrievaMpl Notification>
N	X	.OTDBM,<DBMS SN0ystem>
	X	.OTFALNP,<File Access LisNptener>
	X	.OTSNAO,<SNA Workstation>
 Workstation_
Uh6p _
Ukrp _
VLp _
V[Tp _Sh6 WiM> [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 XIM~

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

  Y) IFNB <D>,<..XX=Z!..XX!CM%HPP> 
  Z@ IFNB <E>,<..XX=Z`..XX!CM%DPP> 

[	EXP ..XX		

  [  IFNB <C>,<EXP [@C>
   IFB <C>,<[`EXP 0>

   IFNB\ <D>,<POINT 7,[A\ SCIZ \D\]>
   I\@FB <D>,<0>

]\` IFNB <E>,<POINT] 7,[ASCIZ \E\]>
]@IFB <E>,<0>



   IFB <I]`>,<0>
   IFNB <^I>,<EXP I>

  ^  IFB <J>,<0>
  ^@ IFNB <J>,<EXP ^`J>

   IFB <H>_,<0>
   IFNB <H_ >,<EXP H>

   _@IFB <G>,<0>
   _`IFNB <G>,<EXP G>

G>,<EXP Ga 6	30LSH A,^D9LSH A,^D9a+= 5a;&  yA'
	 IFB  <B>,<..STR0(..PNT8,,<FWMASK>,A)>
X	 IFNB <B>,<..STxR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm :3S<POINT WID:1(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 83@<^L<<A>&<-<A>>>><<A>&<aJNh6P aJ}Ks |	0~

	SALL	|)			
	LSTOF. XCRE|HF			

	LOC 0			|h
	ASCIZ \
COPYR}IGHT (c) DIGITAL }(EQUIPMENT CORPORA}HTION 1975,1988.
}hALL RIGHTS RESERV~ED.
\				
	RELO~(C			

	%%.GLX==~H%%.GLX			


	I~hFNB <A>,<%%.MOD==SIXBIT/A/> 
	I(FNB <B>,<%%.OTS=H=SIXBIT/B/> 

h	GLOB	I%INIT			

	TOPS10	<			
	(	SEARCH	UUOSYM		
		%%UUOS==%%UUOSh		
	>				

	TOPS20	<			
		SEAR(CH	MONSYM		
;		%H%MONS==%%MONS		
h	>				

	IFB <B>,<			
		.TEXT	(|,REL:GLXLIB/SEARHCH/REQUIRE:I%INITh|
		DEFINE	$DATA (NAM,SIZ<1>),< 
			NAM:	BLOCK	SIHZ
		>			
		DEFIhNE	CDO (X),<GLOB X> 
		LIBVEC			
	>				

	IFNB H<B>,<IFDIF <B><hINI>,< 
		IFN GLXPURE,<.PSECT .HI(GH.> 
		IFE GLXPHURE,<		
			TWOSEhG	400000	
			RELOC	0	
			RELOC	4(00000	
		>			
H
		DEFINE $DATA(NhAM,SIZ<1>),< 
			IFN GLXPURE,<.PS(ECT DATA> 
			IFHE GLXPURE,<RELOC>h 
			IFNDEF B%D,<B%D::! B%DL==(:0>
			NAM:	BLOCHK	SIZ
			B%DL==h:B%DL+SIZ 
			I	FN GLXPURE,<.ENDP	(S DATA> 
			IFE 	HGLXPURE,<RELOC> 
		>			

		IFDI
F <B><OTS>,<	
	
(		DEFINE	CDO (X),
H<GLOB X> 
			LIB
hVEC		
		>			

	>>				

	IFNB (<B>,<IFIDN <B><HINI>,< 
		DEFINEh	$DATA (NAM,SIZ<1
>),< 
			NAM:	BL
(OCK	SIZ
		>			

H	>>				

	LSTON
h.				

	GLOB	<.ETT, .RET
	OPDEF	$RET	
	OPDETT	[PJRST	.RETT]	
	OPDEF	$RE(TF	[PJRST	.RETF]	H
	OPDEF	$RETIT	[hJUMPT	.POPJ]	
	OPDEF	$RETIF	[JUMP(F	.POPJ]	
	.NODDHT	$RET,$RETT,$REThF,$RETIT,$RETIF
$RETIT,$RETIF
aPtPaPtkPaPuTPaPu92Q@aPv\rPDcv fHP gkp gk9p glp glp gltp gl}p g"@ a1>
	IFN <<.aQ.TA>&B>,<PRINTXap ?Initial field nbot zero in $SET>
	bP..TVAL==<C>
	bp..TMSK==<B>
	  ..TA==..TA!c<FLD(..TVAL,..TMSc0K)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@nqNwC.SWIT+PDBCPY##C.SWIT+PDBg$tkQB@g$uP'g$uh6Q  g&t{ qa/IFE C.GALA,IFE C.GALAg.N	@ 6@g.N
.SPID	(SQIP.QSR,.IPCPQ,.SPQQhSR,QUASAR)	
.SPIRD	(SP.OPR,.IPCPO,R(.SPOPR,ORION)	
.RHSPID	(SP.INF,.IPCRhPI,.SPINF,INFO)	
.SPID	(SP.MDA,.IS(PCPM,.SPMDA,MDA)	SH
.SPID	(SP.NEB,,Sh.SPNEB,NEBULA)		
TOPS10<
.SPID	(T(SP.IPC,.IPCPS,,IPTHCC)		
.SPID	(SP.ThACT,.IPCPA,,ACTDAUE)		
.SPID	(SP.TU(LP,.IPCPT,,TAPLABUH)		
.SPID	(SP.TOUhL,.IPCPC,,TAPAVR)V		
.SPID	(SP.DOLV(,.IPCPD,,DSKAVR)	VH	
.SPID	(SP.FIL,Vh.IPCPF,,FILDAE)		
>
,FILDAE)		gR^h9 1:
	..STKR=Q=10		
	RADIX 8
p	..STKN==0
	IRP A,<
	  .STKV1 (0A)>
	$CALL	.STKPST
	 ..STKN,,..SpTKN
	RADIX ..STK R
	PURGE ..STKN, 0..STKR,..STKQ
   TKR,..STKQ
  gR~)  DQ<+
	IFNB <DqC>,<..STR0 (..DPBE,A,C,B)>
	IFBE0  <C>,<MOVEM A,B>>,<MOVEM A,gV U5)..AS(A,B,SUB,ADD)(A,Bgg
V )1
	IFNB <IB>,<TOPS10<A==Bh>>
	IFNB <C>,<TOPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( 8ySGIFN FTUUOS,_
Qmpi?4H 99SKIFN FTJSYS,L<_
Uh6piD {	?d

  IFNB{)	<A>,<.TQCHA==^{HD<B>B17+ZZ>
  I{hFNB 	<D>,<DEFINE| ..TQMA<D>>
  |(IFNB	<C>,<.TQC=|H=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, q	?T
	LSTOF.
	TQ(T,2,ASCIZ)		qH	
	TQ(O,2,OCTAL)qh			
	TQ(D,2,DECIrMAL)			
	TQ(F,2,r(FILE)			
	TQ(7,2rH,CSEVEN)			
	TQ(rh6,2,CSIXBIT)			
s	TQ(W,2,SIXBIT)		s(	
	TQ(5,2,SVNBITsH)			
	TQ(P,2,USEshR)			
	TQ(U,2,DItRECTORY)			
	TQ(t(H,2,DAYTIME)			
tH	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		u	
	TQ(I,1,INDIREu(CT)		
	TQ(M,0,CRuH,..TXC0(\".CHCRT)uh)	
	TQ(J,0,LF,..vTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCvH0(\".CHFFD))	
	TvhQ(K,0,VT,..TXC0(\w".CHVTB))	
	TQ(Aw(,0,NOCRLF,..TXA(.wHTQCHA))	
	TQ(0,0wh,NULL,..TXA(.TQCHx0))	
	TQ(3,0,STRx(ING,..TXER(IQU))	xH
	TQ(V,2,VERSIONxh)			
	TQ(2,0,CARyET,..TXER(IQU))	
	TQ(Q,2,POINTER)yH			
	TQ(B,2,ROB)yh			
	TQ(1,2,OBJEzCT)			
	TQ(N,2,Nz(ODE)			
	TQ(R,2,zHJIB)			
	LSTON.
)			
	LSTON. 9L4
	LSTOF.
	X(33,TTY33,33,)AY				
	X(35,TTY35B,35,)				
TOPS20Ay<
	X(37,TTY37,37BA,)				
	X(EXECUPB`ORT,EXEC,EXE,)			C
>
TOPS10<
	X(C LA120,LA120,L12,)C@			
>
	X(LA36,LC`A36,L36,)			
	X(DVT05,VT05,V05,<37D ,177,177,177>)	
D@	X(VT100,VT100,10D`0,<.CHESC,"[","K"E>)	
	X(VT50,VT50E ,V50,<.CHESC,"J">E@)		
	X(VT52,VT52E`,V52,<.CHESC,"J">F)		
TOPS10<	X(VTF 61,VT61,V61,<.CHEF@SC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ $q:5
	..TRR==%10		
	RADIX 8
	%0..NV==1			
	IRP %PA,<
	  .TRV1 (%pA)>		
	$CALL	.TR&SET		
	 ..NV-1,,&0..NV-1
	RADIX ..&PTRR		
	PURGE ..TRR,..NVURGE ..Tib n6q
		..TX(C,A,<B>)..TX(Cib oQ6}
		..TX(CA,A,<B>).TX(CibP nQ6u
		..TX(CE,A,<B>).TX(Cib` o6y
		..TX(CN,A,<B>).TX(Cibp h6A
		..TX(N,A,<B>)..TX(Nibt iQ6M
		..TX(NA,A,<B>).TX(NibtP hQ6E
		..TX(NE,A,<B>).TX(Nibu` i6I
		..TX(NN,A,<B>).TX(Nibx j6Q
		..TX(O,A,<B>)..TX(Oib| kQ6]
		..TX(OA,A,<B>).TX(Oib|P jQ6U
		..TX(OE,A,<B>).TX(Oib}` k6Y
		..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 l6a
		..TX(Z,A,<B>)..TX(ZicT mQ6m
		..TX(ZA,A,<B>).TX(ZicTP lQ6e
		..TX(ZE,A,<B>).TX(ZicU` m6i
		..TX(ZN,A,<B>).TX(Zm:7 o.
	IFG  <o9AMAN-ADEV>,<AEDoXT==:AMAN>
	IFLEox <AMAN-ADEV>,<AEDT==:ADEV>
mKc@ p9/BYTE (3)ApYWHO (9)AVER (6)AMIN (18)AEDTotMP otkP ouxZP o&  7A3<<^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<v
2P o<vNP o<vN8P p @yL
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +
q+= +
q6~i4 C q? yQ7M
	TXC A,<B>
	TXC A,q@ t!/$IFB <C>,<tAA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up Mq<u
	IFNB <NB>,<..STR1 (..TQZN0,,<B>,A,..STR4)NP>
	IFB <B>,<SETZM A><B>,<SEuhP 	;z /QS
	.$RESET/q
	$TYPE (.CMACT)0
	$HELP (<>)
	$00NEXT (A)
IFIDN 0P<B> <>,< IRP C,0p<C>
			.$BUILD>1
IFDIF <B> <>,<10
	$HELP (B)
	I1PRP C,<C>
	.$BUILD><C>
	.$BU	0 iYFQ
.WTOX.(.OMiyACK,<A>,<B>,<Cj>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 jINVDEFINE .$RjiTN <A>
			.%RTN==1A>
			.%RTN	fI9 eIN.DEFINE .$LeiST <A+1>
			.%LST==11>
			.%L	
=Z R1=
	  IFG RQA-INT.LV,<PRINTX Rp?Level A interruSpts not supportedS0>
	  .BGINT.(\A)   .BGINT.(\A	X5 giN@DEFINE .$Bh	REA <A>
			.%BREA==1>
			.%BR	- U=9
	  IFDEFU1 ..BSIZ,<PRINTX ?UPMissing $EOB afteUpr a $BUILD>
	  .V.BSIZ==0			
	  .V0.BLOC==.			
	  RVPEPEAT A,<			
		VpBLD0.(\..BSIZ,0)	W
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 QQK
	.$RESETq
	$TYPE (.CMCMA)
	$NEXT (A)
	I0RP B,<B>
	.$BUILD,<B>
	.$BU	I@ Q-
	.$RESET1
	$TYPE (.CMCFM)P
	IRP A,<A>
	.$BUILD,<A>
		$^  QR
	.$RESET q
	$TYPE (.CMTXT)!
	$HELP (<>)
	$!0NEXT (A)
IFIDN !P<B> <>,< IRP C,!p<C>
			.$BUILD>"
IFDIF <B> <>,<"0
	$HELP (B)
	I"PRP C,<C>
	.$BUILD><C>
	.$BU	I  #R!
	.$RESET#1
	$TYPE (.CMTAD)#P
	$PDATA (CM%IDA#p)
	$NEXT (A)
	$IRP B,<B>
	.$BUILD,<B>
	.$B	,,U T1=%
	  $RET	TQ			;WILL INVOKE RIGHT ROUTINE
		,h: ciN"DEFINE .$Dd	EFM <POINT 7,[ASCd(IZ\A\]>
			.%DEFM==1>
			.%DE	.` QR
	.$RESETq
	$TYPE (.CMDEV)
;**;[323]At DEF0INE $DEV +3L chanPge the $DEV macrop to by pass the : check
	$FLAGS (0CM%PO!CM%NSF)	;[3P23]By pass : checpk
	$NEXT (A)
	 IRP B,<B>
	.$BUILD,<B>
	.$B	Lz: QP/
	.$RESETq
	$TYPE (.CMNUX)
	$PDATA (B)
	0$HELP (<>)
	$NEXPT (A)
IFIDN <Cp> <>,< IRP D,<D>
			.$BUILD>
I0FDIF <C> <>,<
	P$HELP (C)
	IRP pD,<D>
	.$BUILD><D>
	.$BUILD	N  Q7
	.$RESET1
	$TYPE (.CMDIR)P
	$NEXT (A)
	IpRP B,<B>
	.$BUILD,<B>
	.$BU	|  \=}
	  IFNDE\1F ..BSIZ,<PRINTX \P?$EOB without pre\pvious $BUILD>
	 ] IFN <.-..BLOC>,<]0PRINTX ?Address c]Phange between $BU]pILD and $EOB>
	 ^ LSTOF.			
	  ..^0T==0
	  REPEAT .^P.BSIZ,<
	    BLD^p0.(\..T,1)		
	  _  ..T==..T+1 >
	_0  PURGE ..BSIZ,.._PT,..BLOC	
	  LSTON.
		
	  LST	+y g	N:DEFINE .$Eg)RTN <A>
			.%ERTN==1>
			.%ER	, hINFDEFINE .$EhiRTN <1B0+A+1>
			.%ERTN==1>
		- i)NPDEFINE .$EiIRTN <[MOVEI S2,[AihSCIZ\A\]
				  j    $RETF]>
			.%ERTN==1>
			.	H6 f	>8
	$CALL	.f)STOP
	LSTOF.
	JfHUMP	[XWD 0,[ITEXTfh (<A>)]
		 EXP g%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ QQ%
	.$RESETq
	$TYPE (.CMFLD)
	$NEXT (A)
	$0HELP (<>)
IFIDN P<B> <>,< IRP C,p<C>
			.$BUILD>
IFDIF <B> <>,<0
	$HELP (B)
	IPRP C,<C>
	.$BUILD><C>
	.$BU	MI  Q
	.$RESET1
	$TYPE (.CMFIL)P
	$HELP (<>)
	$pNEXT (A)
IFIDN <B> <>,< IRP C,0<C>
			.$BUILD>P
IFDIF <B> <>,<p
	$HELP (B)
	IRP C,<C>
	.$BUILD><C>
	.$BU	dy a	N
DEFINE .$Fa)LGS <A>
			.%FLGS==1>
			.%FL	ex: Qi
	.$RESET1
	$TYPE (.CMFLT)P
	$HELP (<>)
	$pNEXT (A)
IFIDN <B> <>,< IRP C,0<C>
			.$BUILD>P
IFDIF <B> <>,<p
	$HELP (B)
	IRP C,<C>
	.$BUILD><C>
	.$BU	$ e>,A
	  INTEReIN A
	  $DATA(A,<B>)
	ATA(AT>%1/	"
	IFDIF <biA> <>,<
DEFINE c.$HLPM <POINT 7,[c(ASCIZ\A\]>
			.%HLPM==1>
			.	&5 Pi
	.$RESET1
	$TYPE (.CMIFI)P
	$HELP (<>)
	$pNEXT (A)
IFIDN 
<B> <>,< IRP C,
0<C>
			.$BUILD>
P
IFDIF <B> <>,<
p
	$HELP (B)
	I C,<C>
	.$BUILD><C>
	.$BU	&u qQU
	.$RESET
	$NEXT (A)
	$0TYPE (.CMINI)
	IPRP B,<B>
	.$BUILD,<B>
	.$BU	./ 1P
	.$RESETQ
	$TYPE (.CMKEY)p
	$PDATA (B)
	$NEXT (A)
	IRP 0C,<C>
	.$BUILD,<C>
	.$BUILD	./ }qOw
	.$RESET~
	$TYPE (.CMKEY)~0
	$PDATA (A)
	~P$NEXT (0)
	IRP ~pB,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDm9Fm.WTOX.(.OMmYWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p lYFg.WTOX.(.OMlyLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV ,qRy
	.$RESET-
	$TYPE (.CMNOD)-0
	$HELP (<>)
	$-PNEXT (A)
IFIDN -p<B> <>,< IRP C,.<C>
			.$BUILD>.0
IFDIF <B> <>,<.P
	$HELP (B)
;	.p$FLAGS (CM%PO)
	/IRP C,<C>
	.$BUILD><C>
	.$B	:}r 1P=
	.$RESETQ
	$TYPE (.CMNOI)p
	$PDATA (<POINT 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRPP C,<C>
	.$BUILD,<C>
	.$BUI	;-@ oyF.QWTO.(.OMNAK,,,,<A>).OM	;-XR qP
	.$RESET
	$TYPE (.CMNUM)0
	$PDATA (B)
	P$HELP (<>)
	$NEXpT (A)
IFIDN <C> <>,< IRP D,<D0>
			.$BUILD>
IPFDIF <C> <>,<
	p$HELP (C)
	IRP D,<D>
	.$BUILD><D>
	.$BUILD	>5 
	.$RESET
	$TYPE (.CMOFI)
	$NEXT (A)
	$0HELP (<>)
IFIDN P<B> <>,< IRP C,p<C>
			.$BUILD>
IFDIF <B> <>,<0
	$HELP (B)
	IPRP C,<C>
	.$BUILD><C>
	.$BU	B$ aiNDEFINE .$Db	ATA <A>
			.%DATA==1>
			.%DA	B$YP diN(DEFINE .$De	EFM <POINT 7,<A>>
			.%DEFM==1	CYT k)N\DEFINE .$DkIEFR <A>
			.%DEFR==1>
			.%DE	F
:` jYFY
.QWTO.(.OMjyACK,<A>,<B>,<Ck>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	F^} p9G.QWTO.(.OMpYWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	G-} 'QRM
	.$RESET'q
	$TYPE (.CMQST)(
	$HELP (<>)
	$(0NEXT (A)
IFIDN (P<B> <>,< IRP C,(p<C>
			.$BUILD>)
IFDIF <B> <>,<)0
	$HELP (B)
	I)PRP C,<C>
	.$BUILD><C>
	.$BU	G>K` gyFC.QWTO.(.OMhWTO,<A>,<B>,<Ch8>,,<$WTMFL(MF.WTO),D>)FL(MF.WTO	G>Ku nyF{.QWTO.(.OMoWTO,<A>,<B>,<Co8>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	G>Ky nFs
.QWTO.(.OMn9WTR,<A>,<B>,<C>,<D>,<E>)<C	J.I  cy>#
	  $CALLd	.RETE			
		LSTOd8F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  /;w
	.NVR==0/1			
	.ACM==0			

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

	IFN .A20CM,<	
	    IFE <2P.ACM-17B<T4>>,<.A2pCM==0
				$CALL 3.SAVET>
	    IFE30 <.ACM-377B<.A16>3P>,<.ACM==0
				$3pCALL .SAVE8>
	  4  IFE <.ACM-17B<P404>>,<.ACM==0
			4P	$CALL .SAVE4>
	4p    IFE <.ACM-7B<5P3>>,<.ACM==0
		50		$CALL .SAVE3>
5P	    IFE .NVR,<	
	    IFE <.ACM-36B<P2>>,<.ACM==0
60				$CALL .SAVE2>6P
	7  IFE <.ACM-6p1B<P1>>,<.ACM==0
				$CALL .SAVE170>
	    IFE <.ACM7P-1B<.A13>>,<.ACM=7p=0
				$CALL .SV813>
	    IFE <.A80CM-1B<.A14>>,<.AC8PM==0
				$CALL .8pSV14>
	    IFE <9.ACM-1B<.A15>>,<.90ACM==0
				$CALL9P .SV15>
	    IFE9p <.ACM-1B<.A16>>,:<.ACM==0
				$CA:0LL .SV16>
	    >:P>

	IFN .ACM,<	:p
	    IFE .NVR,<;			
		CAIA			
	;0	LSTOF.
		JRST ;Pb>

	    .ACB==;p0			
	REPEAT ^D1<6,<			
	    IFN <0<.ACM&1B<.ACB>>,<<P	
		..PUSH(\.ACB<p,\<.NVR+1>)>
		.=ACB==.ACB+1>>		
=0
	IFN .NVR,<	
	=P    PUSH P,[[CAIA=p		
		     AOS -.>NVR(P)	
	    REP>0EAT .NVR,<..POP(\>P.NVR)>	
		     P>pOPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ WQ=M
	  IFNDEWqF ..BSIZ,<PRINTX X?$SET without preX0vious $BUILD>
	 XP IFNB <B>,<..STRXp0 (..SET,<C>,B,YA)>
	IFB  <BY0>,<..STR0 (..SET,YP<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
71	XWD b-1,b-1
	7PDEFINE $ETAB <
		b==.-a> <
		O%| j)>Z
S..A::!jI	$CALL .STOP
		LjhSTOF.
		JUMP [XWkD 'A',[ITEXT (<k(B>)]
			EXP %%.MOD]
		LSTON.	M	O= 	QPU
	.$RESET	q
	$TYPE (.CMSWI)

	$PDATA (A)
	
0$NEXT (0)
	IRP 
PB,<B>
	.$BUILD,<B>
	.$BUILD	O= PI
	.$RESET1
	$TYPE (.CMSWI)P
	$PDATA (B)
	p$NEXT (A)
	IRP 	C,<C>
	.$BUILD,<C>
	.$BUILD	R
@ &R9
	.$RESET&1
	$TYPE (.CMTAD)&P
	$PDATA (<CM%ID&pA!CM%ITM>)
	$NEX'T (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	Tl	%TEXT
	LSTOF.	XCl(REF
	JUMP	[XWD 2lH,0
		 EVL (A)
lh		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESET$q
	$TYPE (.CMTAD)%
	$PDATA (CM%ITM%0)
	$NEXT (A)
	%PIRP B,<B>
	.$BUILD,<B>
	.$B	R}97 2S
	.$RESET21
	$TYPE (.CMTOK)2P
	$PDATA (<POINT2p 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR30P C,<C>
	.$BUILD,<C>
	.$BUI	S i?j


  ..TX~yA(.TQA,C,D,E,}	B)	
      IFN .}I.TXEF,<			
	..TE})RR<$TQ(A,B,C,D,E)>>

C,	S@I9 YAU
	LSTOF.
	X(UQU,Unknown qualifier)
	X(IQU8,Invalid qualifieXr)
	X(IJA,Invalixd justification argument)
	X(IWA,8Invalid width argXument)
	X(PEA,Prxemature end of argument)
	X(JNA,J8ustification is nXot allowed)
	X(AxNA,Arguments are not allowed)
	X(8ADS,Address must Xbe specified)
	LSTON.
ied)
	L	SN	  `)NDEFINE .$T`IYP <A>
			.%TYPE==1>
			.%TYP	W= *Rc
	.$RESET*1
	$TYPE (.CMUQS)*P
	$HELP (<>)
	$*pNEXT (A)
	$PDAT+A (B)
IFIDN <C+0> <>,< IRP D,<D+P>
			.$BUILD>
I+pFDIF <C> <>,<
	,$HELP (C)
	IRP ,0D,<D>
	.$BUILD><D>
	.$BUILD	W\@ 1QA
	.$RESETQ
	$TYPE (.CMUSR)p
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ gI>N
IFE %%.OgiTS,<DEFINE $WARN h(MSG) <
		$TEXT h((T%TTY,<% ^W6/[%%hH.MOD]/ MSG>)>>
IhhFN %%.OTS,<DEFINEi $WARN (MSG) <
	i(	$TEXT (T%TTY,<% iH^W6/IIB+IB.PRG/ ^ihW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r WEK
		IFB	<W9A>,<.WFACD==0
		WX	IFN <0-2>,<.$WACWxD==0>>
		IFNB	<XA>,<.WFACD==-1
	X8		IFN <0-2>,<.$WAXXCD==.$WACD!<A>>
			IFE <0-2>,<DEYFINE .$WACD,<<WO.Y8ACD>B8+[ITEXT (<A>)]>>
		>
<	_$u LDs
		IFB	<L9A>,<.WFACK==0
		LX	IFN <0-2>,<.$WACLxK==0>>
		IFNB	<MA>,<.WFACK==-1
	M8		IFN <0-2>,<.$WAMXCK==.$WACK!<A>>
			IFE <0-2>,<DENFINE .$WACK,<<WO.N8ACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ =yF5
	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.'SUFFIXeX'>B8+ [EXP .$W'SUexFFIX']>
	IFE	<ARfGCOD-2>,<.$W'SUFFf8IX'>
>
>
	ALLWfXTO				
	EXP	0			
		
	EXP	0				_$k NyE	
		IFB	<OA>,<.WFFLG==0
		O8	IFN <1-2>,<.$WFLOXG==0>>
		IFNB	<OxA>,<.WFFLG==-1
	P		IFN <1-2>,<.$WFP8LG==.$WFLG!<A>>
			IFE <1-2>,<DEPxFINE .$WFLG,<<WO.QFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W T9E5
		IFB	<TYA>,<.WFJBN==0
		Tx	IFN <0-2>,<.$WJBUN==0>>
		IFNB	<U8A>,<.WFJBN==-1
	UX		IFN <0-2>,<.$WJUxBN==.$WJBN!<A>>
			IFE <0-2>,<DEV8FINE .$WJBN,<<WO.VXJBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV \YEw
		IFB	<\yA>,<.WFMFL==0
		]	IFN <1-2>,<.$WMF]8L==0>>
		IFNB	<]XA>,<.WFMFL==-1
	]x		IFN <1-2>,<.$WM^FL==.$WMFL!<A>>
			IFE <1-2>,<DE^XFINE .$WMFL,<<WO.^xMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] AD
		IFB	<A9A>,<.WFMTY==0
		AX	IFN <0-2>,<.$WMTAxY==0>>
		IFNB	<BA>,<.WFMTY==-1
	B8		IFN <0-2>,<.$WMBXTY==.$WMTY!<A>>
			IFE <0-2>,<DECFINE .$WMTY,<<WO.C8MTY>B8+[ITEXT (<A>)]>>
		>
<	%j 9F
		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>,<DEa8FINE .$WNHD,<<WO.aXNHD>B8+[ITEXT (<A>)]>>
		>
<	_%kr QYE
		IFB	<QyA>,<.WFNOD==0
		R	IFN <0-2>,<.$WNOR8D==0>>
		IFNB	<RXA>,<.WFNOD==-1
	Rx		IFN <0-2>,<.$WNSOD==.$WNOD!<A>>
			IFE <0-2>,<DESXFINE .$WNOD,<<WO.SxNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p gF;.WTOX.(.OMg9WTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU I9D]
		IFB	<IYA>,<.WFOBJ==0
		Ix	IFN <0-2>,<.$WOBJJ==0>>
		IFNB	<J8A>,<.WFOBJ==-1
	JX		IFN <0-2>,<.$WOJxBJ==.$WOBJ!<A>>
			IFE <0-2>,<DEK8FINE .$WOBJ,<<WO.KXOBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr YyEa
		IFB	<ZA>,<.WFOCD==0
		Z8	IFN <0-2>,<.$WOCZXD==0>>
		IFNB	<ZxA>,<.WFOCD==-1
	[		IFN <0-2>,<.$WO[8CD==.$WOCD!<A>>
			IFE <0-2>,<DE[xFINE .$WOCD,<<WO.\OCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ kYFa.WTOX.(.OMkyWTO,<A>,<B>,<Cl>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ hyFI
.WTOX.(.OMiWTR,<A>,<B>,<C>,<D>,<E>)<C	_&
2 bF#
		IFB	<b9A>,<.WFPID==0
		bX	IFN <0-2>,<.$WPIbxD==0>>
		IFNB	<cA>,<.WFPID==-1
	c8		IFN <0-2>,<.$WPcXID==.$WPID!<A>>
			IFE <0-2>,<DEdFINE .$WPID,<<WO.d8PID>B8+[ITEXT (<A>)]>>
		>
<	_&,z @yF'
	DEFINE	@Y.EAWTO(SUFFIX),<$dyWT'SUFFIX'	<>>
	ALLWTO				

		_&N FYDG
		IFB	<FyA>,<.WFTXT==0
		G	IFN <2-2>,<.$WTXG8T==0>>
		IFNB	<GXA>,<.WFTXT==-1
	Gx		IFN <2-2>,<.$WTHXT==.$WTXT!<A>>
			IFE <2-2>,<DEHXFINE .$WTXT,<<WO.HxTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 CyD1
		IFB	<DA>,<.WFTYP==0
		D8	IFN <2-2>,<.$WTYDXP==0>>
		IFNB	<DxA>,<.WFTYP==-1
	E		IFN <2-2>,<.$WTE8YP==.$WTYP!<A>>
			IFE <2-2>,<DEExFINE .$WTYP,<<WO.FTYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P .
P .JP .bP /P B&@P cGP )0 Nn0
ZPZ6 tqOk			

	du==<FLD(.$TYP,CM%Fu0NC)>!.$FLGS!<.$LSuPT> 

	IFN <.%BRupEA>,<d==d!CM%BRvK> 

	IFN <.%HLv0PM>,<d==d!CM%HPvPP!CM%SDH> 
					vp	

	IFN <.%DEFMw>,<d==d!CM%DPP>w0 

c:!	XWD	b,wPa			

	EXP d	wp			

	EXP .$DATxA			

IFN <.%HLx0PM!.%DEFM!.%BREA>xP,<
		EXP	.$HLPM>xp		


IFN <.%DEyFM!.%BREA>,<
		Ey0XP	.$DEFM>		

yP
IFN <.%BREA>,<	EypXP	.$BREA>		

	za==.-c			;LENGTz0H OF THE FDB

IzPFN <.%NXT!.%DEFR!zp.%RTN!.%ERTN>,< E{XP .$NXT >	

IF{0N <.%DEFR!.%RTN!.{P%ERTN>,<EXP .$RTN{p >	

IFN <.%DEF|R!.%ERTN>,<	EXP	.|0$ERTN>	

IFN <.|P%DEFR>,<		EXP	.$D|pEFR>	


	b==.}-c			

	IF2<	P}0URGE a,b,c,d>
	LISTb,c,d>$YVliNfPOINT#7,[ASCIZ\0\]NT 7,[A$YY Nr03W.- Nl0I7QL~5Iy Nb0:=pf= Nh0+1Pw
	SALL
	oQXLIST
	DEFINE .$opTYP <0>
	.%TYPE=p=0
	DEFINE .$FLGp0S <0>
	.%FLGS==0pP
	DEFINE .$DATA pp<0>
	.%DATA==0
q	DEFINE .$HLPM <>q0
	.%HLPM==0
	DEqPFINE .$DEFM <0>
qp	.%DEFM==0
	DEFIrNE .$LST <0>
	.%r0LST==0
	DEFINE .rP$BREA <0>
	.%BRErpA==0
	DEFINE .$NsXT <0>
	.%NXT==0s0
	DEFINE .$ERTN sP<0>
	.%ERTN==0
sp	DEFINE .$RTN <0>t
	.%RTN==0
	DEFt0INE .$DEFR <0>
	.%DEFR==0<0>
	K@Np0<P'QM<0T 1,)0P $YVP $YYP .-P 5IyP f=P w
	   ..ASWq1==-<B>	
	IFDEFX .PSECT,<
	.IFN X0..AS1,ABSOLUTE,<
	     C A,[-..XpAS1]>	
	.IF ..ASY1,ABSOLUTE,<
		.Y0.AS2==0	
	  IFE YP<..AS1&^O777777B1Yp7>,<
		..AS2==1	Z
	    DI A,..AZ0S1>
	  IFE ..AS2ZP,<
	    ..OP(A,ZpB,C)>	
	PURGE [..AS1,..AS2>>
	I[0FNDEF .PSECT,<
	[P	..AS2==0	
	  IF[pE <..AS1&^O777777\B17>,<
		..AS2==\01	
	    DI A,.\P.AS1>
	  IFE ..A\pS2,<		
	    ..OP](A,B,C)>
	PURGE ..AS1,..AS2>:h 7g
	AD;[: JQ5!
	  ..CX1Jq==C
	IFDEF .PSEKCT,<
 	.IFN ..CXK01,ABSOLUTE,<
	  KP    CAMA B,[C]Kp>
	.IF ..CX1,ABSLOLUTE,<	
		..CX2L0==0	
	  IFE <..CLQX1&^O777777B17>,<Lp
		..CX2==1	
	 M   CAIA B,C>
M0	  IFE ..CX2,<		
	    CAMA B,[QpC]>
	PURGE ..CX1R,..CX2>>
	IFNDEFR0 .PSECT,<
		..CXRP2==0	
	  IFE <..RpCX1&^O777777B17>,S<
		..CX2==1	
	S0    CAIA B,C>
	  IFE ..CX2,<		Sp
	    CAMA B,[TC]>
	PURGE ..CX1,..CX2>GE ..CX:&@ Eq<;
	..TSIZ F(..PST,C)
	.CASF0E ..PST,<<
		MOVFPEM A,B>,<
		HRFpRM A,B>,<
		HRGLM A,B>,<
		DPG0B A,[POINTR (B,C)]>>INTR (B,:<;Y 19o
   DEFINQE ..CNS2 (NEW,OLDp)<
	  OLD>			
	..CNS ()>			
	:L;Y 9g
   DEFIN1E ..CNS (%%%)<
	P..CNS2 <%%%>,>
p
   DEFINE ..CNS2 (NEW,OLD)<
	DEF0INE ..CNS (%%%)<
	  ..CNS2 <%%%>,p<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ BQ<!
	..TSIZ Bq(..PST,C)
	.CASCE ..PST,<<
		MOVC0E A,B>,<
		HRRCPZ A,B>,<
		HLRCpZ A,B>,<
		LDBD A,[POINTR (B,C)]>>INTR (B,:}i1 18
	A==<<<Q-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ ]Q6
	  ..OP1]q==B
	IFDEF .PSE^CT,<
 	.IFN ..OP^01,ABSOLUTE,<
	  ^P    C A,[..OP1]^p>
	.IF ..OP1,ABS_OLUTE,<	
		..OP2_0==0	
	  IFE <..O_PP1&^O777777B17>,<_p
		..OP2==1	
	``   CI A,..OP1>
	  IFE ..OP2,<		`P
	    C A,[..O`pP1]>
	PURGE ..OPa1,..OP2>>
	IFNDEa0F .PSECT,<
		..OaPP2==0	
	  IFE <.ap.OP1&^O777777B17>b,<
		..OP2==1	
b0	    CI A,..OP1bP>
	  IFE ..OP2,<bp		
	    C A,[.c.OP1]>
	PURGE ..OP1,..OP2>GE ..;m 9A1
	..PST==YC-FWMASK
	.IF0 x..PST,<
		POINT 0,B,35>,<
		POINTR (B,C)>POI;| @1<
		POP P,@Q.NVA
		PURGE .N@pVA
		.NVR==.NVR-1
		.NVR==.NVR;\t ?1;
		PUSH P?Q,A
		DEFINE .NV?pB<A>
		.NVR==.NVR+1
		.NVR==.;] Z=]
	  IFGE Z1<<<B>&777777>-..ZPBSIZ>,<
		PRINTXZp ?WORD offset gre[ater than $BUILD [0size parameter>
[P	  SET0. (\<B>,C,<A>)
	B>,;LH q8W
	IFNDEF 	C,<PRINTX C IS 	0NOT DEFINED
	  	PA (<B>,D,FWMASK	p)>	
	IFDEF C,<

	IFNDEF %C,<
	
0  A (<B>,D,C)
P>	
	IFDEF %C,<
p
	  %C (A,<B>,D,C)>>A,<B>,;LH 19

	..NS==0Q			
	IRP C,<..NpS=..NS+1>	
	IFE 
..NS,<PRINTX ?EMP
0TY STRUCTURE LIST
P, A>
	IFE ..NS-
p1,<		
	(..STR0,C>,D)
	IFG ..NS-1,<	
	..ICNS			
	.NS (<E (A,<B>,,>) 
	IRP C,<0		
	  IFNDEF C,P<PRINTX C NOT DEpFINED>
	  IFDEF C,<
	  IFNDEF %0C,<
	  ..CNS (<P,C,D>)>	
	  IFpDEF %C,<
	  %C (..STR2,,D,C)>0 
	  ..CNS (<)>)P		
	  ..GCNS		
p	  ..ICNS		
	  ..CNS (<E (A,<B0>>) 
	  IFNDEF %PC,<
	  ..CNS (<p,C,D>)>	
	  IFDEF %C,<
	  %C0 (..STR2,,D,C)>P>> 
	..CNS (<,,)>)		
	..GCNS>);LI 9
	..CNS (<,C,B>).CNS (;LI Q9/

	IFDIF <qD><F>,<
	  IFNB <D>,<
	    A0 (<B>,D,..MSK)	P
	    IFNB <F>,p<PRINTX C AND E ARE IN DIFFERENT0 WORDS>>
	  ..MSPK==0>		
	IFNB <pF>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ 19?

	IFDIF <QD><F>,<	
	  IFpNB <D>,<
	    A (<B>,D,..MSK)0>	
	  ..MSK==0>	P	
	IFNB <F>,<
p	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ 19U

	IFDIF <QD><F>,<	
	  IFpNB <D>,<
	    IFNB <F>,<		
		0A1 (B,D,..MSK)>P 
	    IFB <F>,p<		
		A2 (B,D,..MSK)>> 
	  ..0MSK==0>		
	IFNB P<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y 9Ao
IF1,<
    PRINTX ? Error in "A"
    DiEFINE X(NAM,ERR) 9<IFN ..X'NAM&..TXXEF,<PRINTX ? ERR>x>
    $TX$ERR>

    $TX$ERR>
;$^ YB%

    ..yTXF==0				
    . .TXB==0				
     8..TXP==0				
    X ..TXEG==<..TXEF= x=0>			
    IRPC !A,<				
	..TXC=!8=ASCII\A\-35		
	IFN ..TXB,<IFN !x..TXB-..TXC,..CNS"(<A>)
		   IFE "8..TXB-..TXC,..TXB"X==0>
	IFE ..TXB,"x<..TXQ(<A>,\..TX#F)>>	
    ..TXC1#8				
    IFN ..T#XXB,<IFN <..TXB-"^#x">,<..TXER(PEA)>>$
    ..TXEF==..T$8XEF!..TXEG		
   $X IFN ..TXEF,<..TERR<A>>
,<..TE;&( I@..TXA(.TQCH0)..TXA(.TQC;&) Y@..TXER(IQU)..TXER(IQU;&) 	@..TXER(IQU)..TXER(IQU;&0 	@..TXA(.TQCHA)..TXA(.TQC;&5 I@..TXC0(\".CHLFD).TXC0(\".;&5 I@
..TXC0(\".CHVTB).TXC0(\".;&6 	@..TXC0(\".CHFFD).TXC0(\".;&6 	@..TXC0(\".CHCRT).TXC0(\".;&@ O=
	..TSIZ O1(..PST,C)	
	.CAOPSE ..PST,<<
		SEOpTZM B>,<	
		HLLPZS B>,<	
		HRRZP0S B>,<	
	  ..TSPPAC (..ACT,B)	
	Pp  .IF0 ..ACT,<
	Q	$CALL .ZERO	
		Q0LSTOF.
		JUMP [PQPOINTR(B,C)]
		QpLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 ~q8
	IFNDEF .PSECT,<
	A==0	0		
	..TSA1==<Z PB>		
	  IFE ..TSpA1&^O777777777760,<A==1> 
	>
	I0FDEF .PSECT,<
	PA==0			
	..TSA1=p=<Z B>		
	.IF ..TSA1,ABSOLUTE,<	0
	  IFE ..TSA1&^PO777777777760,<Ap==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= }17s
	A==3		}Q	
	IFE <B>+1,<}pA=0>	
	IFE <B>-~^O777777,<A==1> ~0
	IFE <B>-^O777777B17,<A==2>7;' cQ7+
   ..TX1cq==C			
IFDEF .PdSECT,<
   .IFN .d0.TX1,ABSOLUTE,<
dP	TDA B,[C]>
 e  .IF ..TX1,ABSOLdqUTE,<		
	..TX2==e10		
	IFE <..TX1&eQ^O777777B17>,<
	ep  ..TX2==1		
	  fTRA B,..TX1>
	f0IFE ..TX2,<		
	IfPFE <..TX1&^O77777fq7>,<
	  ..TX2==1g		
	  TLA B,(.g0.TX1)>>
	IFE ..TgPX2,<		
	  IFE <<gp..TX1>B53-^O77777p7>,< 
	    ..TX3p0 (A,B)>>	
	IFEpP ..TX2,<		
	  TDppA B,[..TX1]>	
q	PURGE ..TX1,..TXq02>>
IFNDEF .PSECqPT,<
	..TX2==0		
	IFE <..TX1&^O77r7777B17>,<
	  ..r0TX2==1		
	  TRArP B,..TX1>
	IFE rp..TX2,<		
	IFE <s..TX1&^O777777>,<s0
	  ..TX2==1		
sP	  TLA B,(..TX1sp)>>
	IFE ..TX2,<t		
	  IFE <<..TXt01>B53-^O777777>,<tP 
	    ..TX3 (Atp,B)>>	
	IFE ..TuX2,<		
	  TDA u0B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` uq7A
	IFIDN <vA><Z>,<		
	  ..v0TX2==1
	  ANDI vPB,^-..TX1>	
	IFIvpDN <A><O>,<		
	w  ..TX2==1
	wPORw0CMI B,^-..TX1>	
	IFIDN <A><C>,<wp		
	  ..TX2==1
x	  EQVI B,^-..TX1>QVI B,^-..TX;'  yA


	..TXEF==0			

IFNDEF8 A,<..TXER(UQU)>X		
IFDIF <B><>,x<IRPC B,<.IFN <B>,NUMERIC,..TXER8(IWA)>>
IFNB <CX>,<IFNDEF .TXTJCx,<..TXER(IJA)>>
IFDEF  A,<
  IF8E <A_-^D18>,<IFDXIF <EFBCD><>x,<..TXER(ANA)>>
	  IFE <1-<A_-^D1	88>>,<IFDIF <BC	XD><>,<..TXER(JNA)	x>>
  IFE <2-<A_
-^D18>>,<IFIDN <
8EF><>,<..TXER(AD
XS)>>>

      IF
xE ..TXEF,<
	IFIDN <B><>,<..TXWD=8=<..TXJU==<..TXFCX==0>>>
	IFDIF <xB><>,<
	  IFE <^
D<B>>,<..TXWD==<
8..TXJU==<..TXFC==
X0>>>
	  IFN <^D<
xB>>,<..TXWD==^D<
	C>,<IFNBJ<.TXTJ
	C>,<IFBXJ<.TXTJL
	      IFE <A8-.TQOCT>,<..TXJU=X=.TXTJR>
	8    xIFE <A-.TQDEC>,<..TXJU==.TXTJR>>
	    IFB  <D>,<X..TXFC==" ">
	  x  IFNB <D>,<..TXFC=="D">>>

	I8FB  <EF>,<..TXPXT==0>
	IFNB <ExF>,<..TXPT==1>
	IFE <..TXWD+..TXP8T>,<
	    EXP FLXD(A,TXT.FN)>
	IxFN <..TXWD+..TXPT>,<
	    EXP FLD8(A,TXT.FN)+FLD(.X.TXJU,TXT.JU)+FLDx(..TXWD,TXT.WD)+FLD(..TXFC,TXT.FC)8+TXT.AD
	    PNTR(E,F)>>

T;'h 69C?
    IFE 6Y..TXP,<			
	..IC6xNS			
	..CNS<ASC7IZ\>		
	..TXP==178>		
    ..CNS<A7X>			
    ..TXF==7x0			
    ..TXB=="^"
    ..TXB==;'h 89CK

    IF8YN ..TXP,<			
	..8xCNS<\>		
	EXP <F9LD(.TQCHT,TXT.FN)98+[..GCNS]>>
    ..TXP==0>
    ;'	9 9Ay
    ..TXYEF==..TXEF!..XA	x	
    ..TXF==0				
    ..TXB=="^"
    ..TXB=="^;'
  %B)..TXQB(<A>)..TXQB(<;'
( %YB3

    IF%yN ..TXC-"^",<..TX&C0(<A>)>		
    &8IFE ..TXC-"^",<..TXF==1>-"^",<..;'
( &yBS

    IF'E ..TXC-"^",<..TX'8C0(<A>)>	
    I'XFN ..TXF,<			
	.'x.TXF==0		
	IFDEF( .TQCHA,<		
	  (8  IFDEF ..TQMA,.(X.TQMA 
	    IFN(x <.TQCHA_-^D18>,)<..TXF==2>>>
   )8 IFE ..TXF-2,<..T)XXC1(<A>)	
	..IC)xNS			
	..CNS<..T*XA(.TQCHA,>>	
 *8   ..TXEG==..TXEG!..TXEF==..TXEG;'
) *yBe
    ..TX+F==3				
    IFG+8E ..TXC-"0",IFLE +X..TXC-"9",<..TXF=+x=2>
    IFE ..TX,F-2,<..CNS(A)>		,8
    IFE ..TXF-3,X,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'
) -By
    ..TX-9F==4				
    IFE-X ..TXC-"/",<..TXF-x==5>		
    IFE ...TXC-"[",<..TXF==.85>		
    IFE ..T.XXF-4,<..CNS<A,>>.x		
    IFE ..TXF/-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'
* /YC
    ..TX/yF==4				
    IFE0 ..TXC-"/",..TXF=08=5		
    IFE ..T0XXC-"[",..TXF==5		0x
    IFE ..TXF-51,<..CNS<,>		
		 18..TXQ5<A>>		
  1X  IFE ..TXF-4,<..1xCNS<A,>		
		 ..TXF==5>	
		 ..;'
* 29C!
    ..TX2YF==6				
    IFE2x ..TXC-"/",..TXB=3="/"		
    IFE .38.TXC-"[",..TXB=="3X]"
    IFE ..TXB3x-"]",..CNS<[>		
4    IFE ..TXB,..TXF==5 ..TXB,..T;'
+ 4YC/
    ..TX4yF==0			
    IFE 5..TXC-"]",..CNS<]58>	
    ..CNS<)>	5X		
    ..GCNS			5x
    ..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@ ,:g
	A=.FPA,1C+..NAC		
	IFB <,PB>,<..NAC=..NAC+,p1>
	IFNB <B>,<..NAC=..NAC+B>.d` -1:u
	IFG A--Q.NPAC,<PRINTX ?TO-pO MANY ACS USED>
	IFLE A-4,<
	..0 $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  \+P"
=Z Sq=$CALL	I%INTA$CALL	I%IN9  {17e
	..CSN=={QA
	..CSC==0
	I{pRP B,<
	IFE ..C|SN-..CSC,<
	  ST|0OPI
	  ..CAS1 (|PB)>
	..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 L<k
	..PST==L1C-FWMASK
	.IF0 LP..PST,<
		SOS BLp>,<	
		$CALL .SOMS	
		LSTOF.
		JM0UMP [POINTR(B,C)]
		LSTON.>C
TP } =F+
	.OPCD==e9.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 z7W
	..IFT==z1A		
	IFE ..IFT,zP<
	B
	..IFT==0zp>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H I<S
	..PST==I1C-FWMASK
	.IF0 IP..PST,<
		AOS BIp>,<	
		$CALL .AOJS	
		LSTOF.
		JJ0UMP [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	u9		
		JRST	h		
uX		SKIPE	G$NEBF		
		JRST	g		
		$vCALL	I%WTO		
		Lv8STOF.			
		JRST	vXh		
		$WTRST			vx
	IFNB <A>,<$WTwMTY (<A>)>	
	IFw8NB <B>,<$WTTYP (wX<B>)>	
	IFNB <wxC>,<$WTTXT (<C>)x>	
	IFNB <D>,<$x8WTOBJ (<D>)>	
	xXIFNB <E>,<$WTACKxx (<E>)>	
		IRP yF,<F>		
		$WTBy8LD			

g:		SETyXZM	G$NULA		
		$CyxALL	I%WTO		
		JRzST	h		
		$WTRSTz8			
	$WTNHD(G$REzXMN)			
	IFNB <Azx>,<$WTMTY (<A>)>{	
	IFNB <B>,<$W{8TTYP (<B>)>	
	I{XFNB <C>,<$WTTXT {x(<C>)>	
	IFNB <|D>,<$WTOBJ (<D>|8)>	
	IFNB <E>,<|X$WTACK (<E>)>	
|x	$WTMFL(MF.NEB)		}	
		IRP F,<F>	}8	
		$WTBLD			
}X
	h:!
	LSTON.  h:!
	LSTON.  J$*vP J&:=P JmLQ K%,z ;13[<A>B<^D70-POS(B)>B<^D70N
0P O W	MH
	IFG	A-Y	MX.PID,<MX.PID==A>
C
G	A-OSP OYP Oi1P O|P OyP O%=H  q:
	.STKV2 (A)
	.STKV2 O%=I !1:
	IFB <B!Q>,<..STKN==..STKN!p+1>
	IFNB <B>,<"..STKN==..STKN+B"0>
	..STKQ==..STK"PN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I #:#
   IFDEF#1 A,<.IF A,SYMBO#PL,<PRINTX STKVAR #pA ALREADY DEFINE$D>>
	DEFINE A<-$0^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  ':9
	.TRV2 (A)
	.TRV2 (Sd@ 'Q:C
	.TRV3 ('qA,\..NV)	
	IFB (<B>,<..NV=..NV+1(0>
	IFNB <B>,<..NV=..NV+B>,<..Sd` (q:Q
   IFDEF) A,<.IF A,SYMBO)0L,<PRINTX TRVAR )PA ALREADY DEFINED)p>>
	DEFINE A<^O*B(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP VuLQ @Vv
TP ^%I7P _%~ qG%
		$CALL	q9I%WTO		
		LSTOF.qX			
		JRST	g		
		$WTRST			
	IFrNB <A>,<$WTMTY (r8<A>)>	
	IFNB <rXB>,<$WTTYP (<B>)rx>	
	IFNB <C>,<$sWTTXT (<C>)>	
	s8IFNB <D>,<$WTOBJsX (<D>)>	
	IFNB sx<E>,<$WTACK (<Et>)>	
		IRP F,<t8F>		
		$WTBLD			tX
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP