Google
 

Trailing-Edge - PDP-10 Archives - bb-l014y-bm_tops20_v7_0_tsu02_1_of_2 - galsys/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,UU@P C4@ #9*
	..NAC==#Y0		
	IRP A,<
	#x  .ACV1 (A)>		
	.ACV3 (\..NAC)C' M9$k..AS(A,B,ADD,SUB)(A,BC, /1"{LSH A,-^D9LSH A,-^DC2f} 2a3,
	.EAWTO(3MTY,0)
	.EAWTO(T3 YP,2)
	.EAWTO(TX3@T,2)
	.EAWTO(OBJ3`,0)
	.EAWTO(ACK,40)
	.EAWTO(FLG,14 )
	.EAWTO(NOD,0)4@
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
5	.EAWTO(OCD,0)
	5 .EAWTO(MFL,1)
	.5@EAWTO(NHD,0)		

TO(NHD,0)		
C:' qy'
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ Xy-M
	  IFE YB,<..TA==0>
	  Y8IFN B,<EXP ..TAYX
		    PURGE ..TA>
	PURGE ..TE2&i1 fQ<,0
	IFIDN <gE><C>,<EXTERNAL g BMAN,BDEV>
	SIg@XBIT	/A/
	XWD	BMAN,BDEV
D	BcB_ES@v,rE@tP'E@vyQ ~E@v:=Q |F:<P F;z:Q @G@ F9$3
	    ..CX(,A,B)   ..CGD Iy$O
	    ..CX(A,A,B)  ..CGDP Gy$?
	    ..CX(E,A,B)  ..CGDp H9$C
	    ..CX(G,A,B)  ..CGDy  Hy$G
	    ..CX(GE,A,B) ..CGE@ Fy$7
	    ..CX(L,A,B)  ..CGEI  G9$;
	    ..CX(LE,A,B) ..CGE` I9$K
	    ..CX(N,A,B)  ..CGH -A:p

	  LST,aOF.

	X CRE	
	-!X GEN	
	X PRT	
,A	X CLS	
	XAUT	
	X USW	
	X SPL	-a
	X SIZ   
	X M.OD	
	X CHN	

	  LSTON.


	G3.= jPIFN C.GALA,IFN C.GALAG4,m:Q G4-ZQ G4.
zQ G:YlP 
G>vC@ p)
LALL
PAGEpI; (A Continued ophn next page)
SALqL; (A Continued q(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  CY,#
	IFNB <CyB>,<..STR0 (.DECRD0,,<B>,A)>
	IFD8B  <B>,<SOS A>  <B>,<SOS A>I6= {y's
	A==<-1|B<C>+1B<C-D>> |8
	IF1,<IFDEF %A|X,<PRINTX ?A ALRE|xADY DEFINED>>
	D}EFINE %A (OP,AC,}8Y,MSK)<	
	IFDIF }X<Y><>,<
	OP (<AC}x>,B+'Y,MSK)>
	I~FIDN <Y><>,<
	OP~8 (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 Oy$..OP(A,B,DIV)..OP(A,BIOH1 &	B:
	IFB <D&)>,<
	XWD	[ASCIZ\&HC\],[XWD B,A]>&h
	IFNB <D>,<
	'XWD	[EXP CM%FW!D'(
		ASCIZ\C\],[XWD B,A]>
,[XKH(Q P 3KJ
,bP KJ)bP KJIBP KJLbP !KJ=P ,KJ{P 	KJIBP !KJ=bP )KJIP 'KJZ"P 1KJX"P KJ9P &KJ$\BP +KJ$kP KJ$nBP KJ$|bP KJ%bP KJ%h"P KJ%i"P KJ%|BP KJ&I"P +KJ&K"P KJ&mP #KJ-P 
KJ-iBP 1KJ-l"P *KJ-yBP KJ-{P 
KJ.;P (KJ4"P KJ4"P 0KJ4+"P %KJ49BP KJ4="P )KJ4I"P KJ4LbP KJ5bP %KJ5iP KJ5iBP KJ6;"P KJL;BP KJLMP KJLh"P 0KJLkBP KJLlP KJLlbP KJM+BP KJMHbP -KJMLBP KJMmP KJMmbP KJN
P ,KJN
bPIKJNI"P\P KJfkP (KJlIP KJlLbP KJt1P KJt9"P KJt:"P $KJtlP 2KJtmP .KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv	BP KJv
"P 3KJv
bP .KJvbP KJv)"P KJv9P KJv;P 2KJv;BP KJv<P 	KJv=bP KJv[P KJv["P KK-P KK
YBP +:`
	IF1,<IF+!DEF ERA$,PRINTX +@?Duplicate error +`code A>
	ERA$=,=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y pa:T
	ERR	EOFq,<End of file>
	q ERR	IFP,<Illegal q@file position>
	q`ERR	FDE,<File datra error>
	ERR	FNr D,<File is not onr@ disk>
	ERR	FSM,r`<File still mappesd>			;[301]
	ERRs 	NSD,<No such devs@ice>
	ERR	FCF,<Fs`ile checkpoint fatiled>
	ERR	SLE,<t A system limit wat@s exceeded>
	ERRt`	IFS,<Illegal filue specification>
	ERR	FNF,<File nu@ot found>
	ERR	Pu`RT,<Protection vivolation>
	ERR	DNv A,<Device not avav@ilable>
	ERR	NCEv`,<No "current" enwtry in list>
	ERw R	NMA,<No IPCF mew@ssage is availablw`e>
	ERR	FDS,<Filxes are on differex nt structures>
	x@ERR	FAE,<File alrx`eady exists>
	ERyR	USE,<Unexpectedy  system error>
	y@ERR	NSP,<No such y`pid>
	ERR	BOL,<Bzeginning of list z reached>
	ERR	EOz@L,<End of list rez`ached>
	ERR	RQF,{<Receivers quota { full>
	ERR	SQF,<{@Senders quota ful{`l>
	ERR	NRE,<No |remembered entry>| 
	ERR	TBF,<Table|@ is full>
	ERR	E|`IT,<Table entry a}lready exists>
	} ERR	ITE,<Invalid }@table entry>
	ER}`R	QEF,<Quota exce~eded or disk full~ >
	ERR	ARG,<Inva~@lid argument spec~`ified>
	ERR	IFN,<Invalid function  specified>
	ERR@	IJN,<Invalid job` number specified>
	ERR	RAD,<Inva lid radix specifi@ed>
	ERR	NUM,<In`valid numeric argument>
	ERR	IDT, <Invalid date fie@ld specified>
	E`RR	ITF,<Invalid time field specifi ed>
	ERR	DOR,<Da@te/time out of ra`nge>
	ERR	DTM,<Value missing in d ate/time>
	ERR	M@DD,<Missing day i`n date/time>
	ERR	DFZ,<Field zero  in date/time>
	@ERR	MDS,<Mnemonic` date/time switch not implemented> 
	ERR	DFL,<Field@ too large in dat`e/time>
	ERR	ILR,<Illegal year fo rmat in date/time@>
	ERR	NND,<Nega`tive number in date/time>
	ERR	NP F,<Not known whet@her past or futur`e in date/time>
	ERR	RDP,<Relativ e date parse requ@ired>
	ERR	NSW,<`Switch does not b	egin with slash>
	ERR	NOM,<Unreco	@gnized switch or 	`keyword>
	ERR	NU
L,<Null switch or
  keyword given>

@	ERR	INW,<Invalid
` guide word>
	ERR	NC,<Not confirm ed>
	ERR	ICN,<In@valid character i`n number>
	ERR	N
QS,<Invalid quote
 d string - does n
@ot begin with quo
`te>
	ERR	AMB,<Amch or
	ERR	Nes not matc
	ERR	CMA,<Comma not give n>
	ERR	NNC,<Nod@e name may not ex`ceed 6 characters>
	ERR	INT,<Node  terminator "::" @must be specified`>
	ERR	NSN,<Unknown node name>
	 ERR	IPS,<Invalid @path specificatio`n>
	ERR	IUS,<Invalid user specifi cation>
	ERR	DGS@,<Device name may` not exceed 6 characters>
	ERR	DN E,<Unknown device@>
	ERR	DIO,<Devi`ce can not do input or output>
	E RR	BDF,<Invalid d@ate/time format>
	ERR	ABS,<Field too long for inte rnal buffer>
	ER@R	TMT,<Command to`o long for internal buffer>
	ERR	 BDS,<Invalid defa@ult string>
	ERR`	BTF,<Invalid table format>
	ERR	 TME,<Date/time mu@st be in the futu`re>
	ERR	TMN,<No timer entry has  expired>
	ERR	TM@A,<Timer entry al`ready exists>
	ERR	DVT,<Device te rminator ":" must@ be specified>
	`ERR	NCI,<Argument block may not be  in the ACs>
	ER@R	TLU,<Terminal l`ocation is unknown>
	ERR	FIO,<Fil e is offline>
	E@RR	FBM,<File bein`g modified>
	ERR	WLK,<Write-locke d device>
	ERR	C@SD,<Cannot supers`ede a directory>
	ERR	CDD,<Cannot  delete a non-emp@ty directory>
	E`RR	SNF,<Sub-file directory not fou nd>
	ERR	ESL,<Se@arch list is empt`y>
	ERR	LVL,<SFD level nested dee per than the maxi@mum allowed>
	ER`R	CCW,<Cannot create/write on any  structure in sear@ch list>
	ERR	FC`U,<Cannot update  file>
	ERR	ENQ,<  File has outstand @ing Enqueue locke `s set>
	ERR	SWS,!<Software write-l! ock on structure>!@
	ERR	DER,<Hardw!`are device error>"
	ERR	DTE,<Hard " data error>
	ERR"@	BKT,<Block too l"`arge>
	ERR	IPP,<#Non-existant UFD># 
	ERR	TRN,<RIB o#@r transmission er#`ror>
	ERR	ILC,<I$llegal character $ in date/time>
	E$@RR	NFT,<Date/time$` must be in the f%uture>
	ERR	NPS,% <Date/time must b%@e in the past>
	%`ERR	UDM,<Unrecogn&ized month in dat& e/time>
	ERR	UDN&@,<Unrecognized na&`me in date/time>
	ERR	IFA,<Illega' l file attribute>'@
	ERR	FAI,<File '`attribute inconsi(stancy>
	ERR	CEI( ,<Can't enable/di(@sable interrupt s(`ystem>
	ERR	ENF,)<Linked list entr) y not found>
	ER)@R	NSL,<No such li)`nked list>
	ERR	*NFP,<No free page* s>
	ERR	NPI,<No *@free pages for IPCF reception>
KKBP 
KKI"P KKiBP 'KKBP KK|bP *KK$)BP 
KK%M"P $KK%X"P #KK%Y"P "KK%[BP "KK%]P  KK&+BP -KK,K"P /KK,KBP /KK-*"P KK.9"P KK=JbP &KZ` f.C
	IFIDN <f1BC><>,<EXP <A>fP>
	IFDIF <BC><fp>,<
	 IFE <A+1>g,<<POINT 7,C>>
g0	 IFN <A+1>,<
	gP   IFIDN <C><>,<gpEXP <A,B>>
	  h IFDIF <C><>,<EXh0P <A,B,C>>
	>>A,B,C>>
	>Kc  mipIRP A,<
n		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  3Y#<<<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|  nI~IRP A,<
ni	IF2,<IFDEF A,<.oIFN A,EXTERN,<INo(TERN A>>
	     oHIFNDEF A,<EXTERNoh A>
	Q SUPPRESPA>>YSUPPRO3FX7P jQf@ +QfI@ <StLQ St\Yp Stkp SuZp Suh1Q SulQ Su}:p Sv
1p Sv
Sp Sv>9Q Sv>@p SNn O9${..OP(A,B,IDIV).OP(A,BS7-N N9$s..OP(A,B,IMUL).OP(A,BS:  @Y,
	IFNB <@yB>,<..STR0 (.INCRA0,,<B>,A)>
	IFA8B  <B>,<AOS A>  <B>,<AOS A>S;k 6#1<<<A>B<POS(<B>)>>&<B>>S;!kP S;!k<P S? q9'
	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.	iXCREF
	..TEXT<Ai0>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ A;

	  LST.aOF.

	X JNO,.JI/JNO,<-1,,GJBJNO>	/ 
	X TNO,.JITNO,</@-1,,GJBTTY>	
	X /`USR,.JIUNO,.GTPPN0		
	X CDN,.JIDNO0 ,<-1,,GJBPTH>	
	0@X PRG,.JIPNM,.GTP0`RG		
	X CJN,.JIC1PJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.G1@TOBI		
	X JLT,.J1`ISTM,.GTJLT		
	X2 LOC,<-1,,GJBLOC>2 ,<-1,,GJBLOC> 
	2@X RTM,.JIRT,<-1,,2`GJBRTM>	
	X TLC,3<-1,,GJBTLC>,<-1,3 ,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$vKPiU$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
	IFB <C(	>,<
	XWD	[ASCIZ\((B\],A>
	IFNB <(HC>,<
	XWD	[EXP (hCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 q"s

	  LSTOF. XCREF

	CDO0	OTSINI			
	CDO	P    			
	CDO	.ZPpAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD0O	.SAVE1
	CDO	.SPAVE2
	CDO	.SAVE3p
	CDO	.SAVE4
	CDO	.SAVET
	CDO	.0SV13
	CDO	.SV14
	CDO	.SV15
	CDOp	.SV16
	CDO	.RETT
	CDO	.RETF
	C0DO	.RETE
	CDO	.APOS		
	CDO	.SOS		p
	CDO	.ZERO		
	CDO	.POPJ		
	CDO0	.STOP		
	CDO	.SPAVE8		
	CDO	.STKpST		
	CDO	.TRSET		
	CDO	.POPJ1		0
	CDO	.UD2SC		
P	CDO	.SC2UD		
	CpDO	.CPUTY		
	CDO
	CDO
	CDO

	0CDO			
	CDO	C%RPPRM
	CDO	C%INTR
p	CDO	C%SEND
	CDO	C%RECV
	CDO	C%B0RCV
	CDO	C%REL
P	CDO	C%CPID
	CDOp	C%KPID
	CDO	C%SPID
	CDO	C%MAXP
	CDO	C%PIDJ
	CDPO
	CDO
	CDO
	CpDO
	CDO

	CDO	      			
	CDO	F0%IOPN
	CDO	F%AOPPN
	CDO	F%OOPN
	pCDO	F%IBYT
	CDO	F%OBYT
	CDO	F%IB0UF
	CDO	F%OBUF
P	CDO	F%REL
	CDO	pF%DREL
	CDO	F%RREL
	CDO	F%REW
	0CDO	F%POS
	CDO	FP%CHKP
	CDO	F%INFpO
	CDO	F%FD
	CDO	F%REN
	CDO	F%D0EL
	CDO	F%FCHN
P	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CD0O

	CDO	      	P		
	CDO	M%ACQP
p	CDO	M%RELP
	CDO	M%IPSN
	CDO	M%N0XPG
	CDO	M%IPRC
	CDO	M%IPRM
	CDpO	M%AQNP
	CDO	M%RLNP
	CDO	M%CLNC0
	CDO	M%FPGS
	CPDO	M%GMEM
	CDO	Mp%RMEM
	CDO
	CDO
	CDO
	CDO
	CD0O
	CDO
	CDO	M%GPPAG
	CDO	M%RPAG
	CDO
	CDO
	CDO 
	CDO
	CDO
	CD 0O
	CDO
	CDO

 P	CDO	      			
	 pCDO	T%TEXT
	CDO	!T%TTY
	CDO
	CDO!0
	CDO
	CDO
	CD!PO
	CDO
	CDO
	C!pDO
	CDO
	CDO
"
	CDO	      			
"0	CDO	L%CLST
	CDO"P	L%DLST
	CDO	L%C"pENT
	CDO	L%CBFR
	CDO	L%DENT
	CD#0O	L%NEXT
	CDO	L%#PFIRS
	CDO	L%LAST#p
	CDO	L%PREV
	C$DO	L%PREM
	CDO	L$0%CURR
	CDO	L%REN$PT
	CDO	L%SIZE
	$pCDO	L%APOS
	CDO
	CDO
	CDO
	CDO%0
	CDO
	CDO
	CD%PO
	CDO

	CDO		%p	
	CDO	I%NOW
	C&DO	I%EXIT
	CDO	I&0%ION
	CDO	I%IOFF&P
	CDO	I%SLP
	CD&pO	I%INT1
	CDO	I%'INT2
	CDO	I%INT3'0
	CDO	I%TIMR
	C'PDO
	CDO
	CDO	I%'pSOPR
	CDO	I%WTO
	CDO
	CDO	I%HOS(0T
	CDO	I%JINF
	(PCDO
	CDO

	CDO(p			
	CDO
	CDO	S)%DATI
	CDO	S%SIX)0B
	CDO	S%CMND
	)PCDO	S%TBLK
	CDO	)pS%SCMP
	CDO	S%ER*R
	CDO	S%INTR
	*0CDO	S%EXIT
	CDO	*PS%TBAD
	CDO	S%TB*pDL
	CDO	S%NUMI
+

	CDO	K%RCOC		+0	
	CDO	K%WCOC
	+PCDO	K%SUET
	CDO	+pK%STYP
	CDO	K%TX,TI
	CDO	K%SOUT
,0	CDO	K%BOUT
	CDO,P	K%BIN
	CDO	K%BA,pCK
	CDO	K%TPOS
-	CDO	K%BUFF
	CDO-0	K%FLSH
	CDO	K%O-PPEN
	CDO
	CDO
-p	CDO
	CDO
	CDO
	CDO
	CDO
	CDO.0
	CDO
	  LSTON.
  
	  LSTON.Y>
@ :+W
	IFNB <:9C>,<..STR0 (..LDB:X,A,C,B)>
	IFB:x  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG qi
	IFNDEF r	LSTIN.,LSTIN.==0	r(	
IFE LSTIN.,<
rH	IFIDN <XCREF><Arh>,<.XCREF>	
		  s XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G sI"
	IFG LSTsiIN.,LSTIN.==LSTINt.-1	
	IFLE LSTINt(.,<.CREF		
		      LIST>
		   [3@ 5Y#-<<<1_<A>>-1>B<B>>_<A>>[8@ 4Y#%1B<<A>-1>-1B<B><<A>-1>[@ 
1 _
	IFB <B
Q>,<MAXSIZ==0
		I
pRP A,<IFG <A-MAXSIZ>,<MAXSIZ==A0>>>
	IFNB <B>,<PB==0
		IRP A,<pIFG <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 
1 s
	IFB <B
Q>,<MINSIZ==377777
p,,777777
		IRPF<MINSIZ-A
	IFNB7<B>,<B==
		IRP A,<IFG <B-0A>,<B==A>>>
A>,<B==A>>>
[>!`5#)<A-<A/B>*B><A-<A/B[>w@&
   ..MX16y==B			
IFDEF .P7SECT,<
   .IFN .78.MX1,ABSOLUTE,<
7X	MOVE A,[B]>
 7x  .IF ..MX1,ABSOL8UTE,<
	..MX2==0	88	
	IFE <..MX1>B58X3,<
	8x..MX2==1
	  MOVEI A,..MX91>	
	IFE ..MX2,<98		
	IFE <..MX1>B9X17,<
	  ..MX2==19x
	  MOVSI A,(..:MX1)>>	
	IFE ..M:8X2,<		
	IFE <<..:XMX1>B53-^O777777>:x,<
	  ..MX2==1
;	  HRROI A,<..MX;81>>>	
	IFE ..MX2;X,<		
	IFE <<..MX;x1>B17-^O777777B17<>,<
	<8..MX2==1
	  HRLOI A,(..M<XX1-^O777777)>> 
<x	IFE ..MX2,<		
	=  MOVE A,[..MX1]=8>	
	>>

IFNDEF=X .PSECT,<
	..MX2=x==0		
	IFE <..MX>1>B53,<
	  ..MX2>8==1
	  MOVEI A,>X..MX1>	
	IFE ..M>xX2,<		
	IFE <..M?X1>B17,<
	  ..MX?82==1
	  MOVSI A?X,(..MX1)>>	
	IFE?x ..MX2,<		
	IFE @<<..MX1>B53-^O777@8777>,<
	  ..MX2=@X=1
	  HRROI A,<@x..MX1>>>	
	IFE .A.MX2,<		
	IFE <<A8..MX1>B17-^O77777AX7B17>,<
	  ..MX2Ax==1
	  HRLOI A,B(..MX1-^O777777)>B8> 
	IFE ..MX2,<	BX	
	  MOVE A,[..BxMX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= ~y(	
	A==C		
	IF1,<IFDEF %8A,<PRINTX ?A ALRXEADY DEFINED>>
	xDEFINE %A (OP,AC,Y,MSK)<	
	IFDIF8 <Y><>,<
	OP (<AXC>,B+'Y,MSK)>
	xIFIDN <Y><>,<
	OP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg Ny$w..OP(A,B,MUL)..OP(A,B[`v
2P [b6<P F] l)dIF2,<IFDEFlI A,<A==A>> IFNDEF A,<A==B>]F@ =pTEMFDB##_
QkRp _
Ql7p _
Qlxp _
Ql}p _
Qmp _
Qm7p _
T= :	<


	X	.OTRDR,Reader
	X	.O.ATNCU,Network-Cont:)roller
	X	.OTLPT9i,Printer
	X	.OTB;iAT,Batch-Stream
<	X	.OTCDP,Card-Pu<(nch
	X	.OTPTP,Pa<Hpertape
	X	.OTPL<hT,Plotter
	X	.OT=JOB,Job
	X	.OTTR=(M,Terminal
	X	.O=HTOPR,Operator
	X=h	.OTIBM,<IBM Remo>te>
	X	.OTMNT,<D>(evice>
	X	.OTFTS>H,<File Transfer>
	X	.OTBIN,<Card ?Reader Interprete?(r>
	X	.OTRET,<Fi?Hle Retrieval>
	X?h	.OTNOT,<Retrieva@l Notification>
@(	X	.OTDBM,<DBMS S@Hystem>
	X	.OTFAL@h,<File Access LisAtener>
	X	.OTSNAA(,<SNA Workstation>
 Workstation_Sh6 J<P [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 Ja=

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

  KA IFNB <D>,<..XX=L9..XX!CM%HPP> 
  LX IFNB <E>,<..XX=Lx..XX!CM%DPP> 

M	EXP ..XX		

  M8 IFNB <C>,<EXP MXC>
   IFB <C>,<MxEXP 0>

   IFNBN <D>,<POINT 7,[AN8SCIZ \D\]>
   INXFB <D>,<0>

ONx IFNB <E>,<POINTO 7,[ASCIZ \E\]>
OXIFB <E>,<0>



   IFB <IOx>,<0>
   IFNB <PI>,<EXP I>

  P8 IFB <J>,<0>
  PX IFNB <J>,<EXP PxJ>

   IFB <H>Q,<0>
   IFNB <HQ8>,<EXP H>

   QXIFB <G>,<0>
   QxIFNB <G>,<EXP G>

G>,<EXP Ga .q"wLSH A,^D9LSH A,^D9a+= 5a;&  
a0n
	IFB<.<TR0(..PNT
	0IFNBN<B>,<..ST)>.PNT,,<B>,Aa>Mm 2y#<POINT WID3(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 0i#<^L<<A>&<-<A>>>><<A>&<aJNh6P aJ}Ks tq E

	SALL	u			
	LSTOF. XCREu0F			

	LOC 0			uP
	ASCIZ \
COPYRupIGHT (c) DIGITAL vEQUIPMENT CORPORAv0TION 1975,1988.
vPALL RIGHTS RESERVvpED.
\				
	RELOwC			

	%%.GLX==w0%%.GLX			


	IwPFNB <A>,<%%.MOD=wp=SIXBIT/A/> 
	IxFNB <B>,<%%.OTS=x0=SIXBIT/B/> 

xP	GLOB	I%INIT			
xp
	TOPS10	<			
	y	SEARCH	UUOSYM		
		%%UUOS==%%UUOSyP		
	>				

	TOypPS20	<			
		SEARzCH	MONSYM		
;		%z0%MONS==%%MONS		
zP	>				

	IFB <zpB>,<			
		.TEXT	{|,REL:GLXLIB/SEAR{0CH/REQUIRE:I%INIT{P|
		DEFINE	$DATA{p (NAM,SIZ<1>),< 
			NAM:	BLOCK	SI|0Z
		>			
		DEFI|PNE	CDO (X),<GLOB |pX> 
		LIBVEC			
	>				

	IFNB }0<B>,<IFDIF <B><}PINI>,< 
		IFN GL}pXPURE,<.PSECT .HI~GH.> 
		IFE GLXP~0URE,<		
			TWOSE~PG	400000	
			REL~pOC	0	
			RELOC	400000	
		>			
0
		DEFINE $DATA(NPAM,SIZ<1>),< 
		p	IFN GLXPURE,<.PSECT DATA> 
			IF0E GLXPURE,<RELOC>P 
			IFNDEF B%Dp,<B%D::! B%DL==:0>
			NAM:	BLOC0K	SIZ
			B%DL==P:B%DL+SIZ 
			IpFN GLXPURE,<.ENDPS DATA> 
			IFE 0GLXPURE,<RELOC> 
		>			

		IFDIpF <B><OTS>,<	
			DEFINE	CDO (X),0<GLOB X> 
			LIBPVEC		
		>			

p	>>				

	IFNB <B>,<IFIDN <B><0INI>,< 
		DEFINEP	$DATA (NAM,SIZ<1p>),< 
			NAM:	BLOCK	SIZ
		>			
0	>>				

	LSTONP.				

	GLOB	<.pPOPJ, .RETT, .RETF>	
	OPDEF	$RET	0[POPJ	P,]	
	OPDEPF	$RETT	[PJRST	.RpETT]	
	OPDEF	$RETF	[PJRST	.RETF]	0
	OPDEF	$RETIT	[PJUMPT	.POPJ]	
	OpPDEF	$RETIF	[JUMPF	.POPJ]	
	.NODD0T	$RET,$RETT,$RETPF,$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"@ Z-a
	IFN <<.Z9.TA>&B>,<PRINTXZX ?Initial field nZxot zero in $SET>
	[8..TVAL==<C>
	[X..TMSK==<B>
	  ..TA==..TA![x<FLD(..TVAL,..TMS\K)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@a	>C.SWIT+PDBCPY##C.SWIT+PDBg$tkQB@g$uP'g$uh6Q  g&t{ jITIFE C.GALA,IFE C.GALAg.N	@ 6@g.N
.SPID	(SCaP.QSR,.IPCPQ,.SPQDSR,QUASAR)	
.SPID D	(SP.OPR,.IPCPO,[email protected],ORION)	
.D`SPID	(SP.INF,.IPCEPI,.SPINF,INFO)	
.SPID	(SP.MDA,.IE@PCPM,.SPMDA,MDA)	E`
.SPID	(SP.NEB,,F.SPNEB,NEBULA)		
TOPS10<
.SPID	([email protected],.IPCPS,,IPF`CC)		
.SPID	(SP.GACT,.IPCPA,,ACTDAG E)		
.SPID	(SP.TG@LP,.IPCPT,,TAPLABG`)		
.SPID	(SP.TOHL,.IPCPC,,TAPAVR)H 		
.SPID	(SP.DOLH@,.IPCPD,,DSKAVR)	H`	
.SPID	(SP.FIL,I.IPCPF,,FILDAE)		
>
,FILDAE)		gR^h9 )I
	..STKR=9=10		
	RADIX 8
X	..STKN==0
	IRP xA,<
	  .STKV1 (A)>
	$CALL	.STK8ST
	 ..STKN,,..SXTKN
	RADIX ..STKxR
	PURGE ..STKN,..STKR,..STKQ
   TKR,..STKQ
  gR~)  =9+q
	IFNB <=YC>,<..STR0 (..DPB=x,A,C,B)>
	IFB>  <C>,<MOVEM A,B>>,<MOVEM A,gV My$o..AS(A,B,SUB,ADD)(A,Bgg
V 	 O
	IFNB <	1B>,<TOPS10<A==B	P>>
	IFNB <C>,<T	pOPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( +BYIFN FTUUOS,@t9YQ<TS@t9[i?4H +QB]IFN FTJSYS,@u[XQ<S@v
tiD sq/+

  IFNBt	<A>,<.TQCHA==^t0D<B>B17+ZZ>
  ItPFNB 	<D>,<DEFINEtp ..TQMA<D>>
  uIFNB	<C>,<.TQC=u0=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, iq/
	LSTOF.
	TQ(T,2,ASCIZ)		j0	
	TQ(O,2,OCTAL)jP			
	TQ(D,2,DECIjpMAL)			
	TQ(F,2,kFILE)			
	TQ(7,2k0,CSEVEN)			
	TQ(kP6,2,CSIXBIT)			
kp	TQ(W,2,SIXBIT)		l	
	TQ(5,2,SVNBITl0)			
	TQ(P,2,USElPR)			
	TQ(U,2,DIlpRECTORY)			
	TQ(mH,2,DAYTIME)			
m0	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		mp	
	TQ(I,1,INDIREnCT)		
	TQ(M,0,CRn0,..TXC0(\".CHCRT)nP)	
	TQ(J,0,LF,..npTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCo00(\".CHFFD))	
	ToPQ(K,0,VT,..TXC0(\op".CHVTB))	
	TQ(Ap,0,NOCRLF,..TXA(.p0TQCHA))	
	TQ(0,0pP,NULL,..TXA(.TQCHpp0))	
	TQ(3,0,STRqING,..TXER(IQU))	q0
	TQ(V,2,VERSIONqP)			
	TQ(2,0,CARqpET,..TXER(IQU))	
	TQ(Q,2,POINTER)r0			
	TQ(B,2,ROB)rP			
	TQ(1,2,OBJErpCT)			
	TQ(N,2,NsODE)			
	TQ(R,2,s0JIB)			
	LSTON.
)			
	LSTON. !;H
	LSTOF.
	X(33,TTY33,33,)4!				
	X(35,TTY354a,35,)				
TOPS204A<
	X(37,TTY37,375	,)				
	X(EXECUP5(ORT,EXEC,EXE,)			5H
>
TOPS10<
	X(5hLA120,LA120,L12,)6			
>
	X(LA36,L6(A36,L36,)			
	X(6HVT05,VT05,V05,<376h,177,177,177>)	
7	X(VT100,VT100,107(0,<.CHESC,"[","K"7H>)	
	X(VT50,VT507h,V50,<.CHESC,"J">8)		
	X(VT52,VT528(,V52,<.CHESC,"J">8H)		
TOPS10<	X(VT8h61,VT61,V61,<.CHE9SC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ Y){
	..TRR==y10		
	RADIX 8
	..NV==1			
	IRP 8A,<
	  .TRV1 (XA)>		
	$CALL	.TRxSET		
	 ..NV-1,,..NV-1
	RADIX ..8TRR		
	PURGE ..TRR,..NVURGE ..Tib fy&7
		..TX(C,A,<B>)..TX(Cib h9&C
		..TX(CA,A,<B>).TX(CibP g9&;
		..TX(CE,A,<B>).TX(Cib` gy&?
		..TX(CN,A,<B>).TX(Cibp `y&
		..TX(N,A,<B>)..TX(Nibt b9&
		..TX(NA,A,<B>).TX(NibtP a9&
		..TX(NE,A,<B>).TX(Nibu` ay&
		..TX(NN,A,<B>).TX(Nibx by&
		..TX(O,A,<B>)..TX(Oib| d9&#
		..TX(OA,A,<B>).TX(Oib|P c9&
		..TX(OE,A,<B>).TX(Oib}` cy&
		..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 dy&'
		..TX(Z,A,<B>)..TX(ZicT f9&3
		..TX(ZA,A,<B>).TX(ZicTP e9&+
		..TX(ZE,A,<B>).TX(ZicU` ey&/
		..TX(ZN,A,<B>).TX(Zm:7 hF
	IFG  <h!AMAN-ADEV>,<AEDh@T==:AMAN>
	IFLEh` <AMAN-ADEV>,<AEDT==:ADEV>
mKc@ i!LBYTE (3)AiAWHO (9)AVER (6)AMIN (18)AEDTotkP ouxZP o&  0)#<^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 3A;
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +
q+= +
q6~i4 C q? r9'
	TXC A,<B>
	TXC A,q@ m	jIFB <C>,<m)A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up FY,;
	IFNB <FyB>,<..STR1 (..TQZG,,<B>,A,..STR4)G8>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z !iB
	.$RESET"	
	$TYPE (.CMACT)"(
	$HELP (<>)
	$"HNEXT (A)
IFIDN "h<B> <>,< IRP C,#<C>
			.$BUILD>#(
IFDIF <B> <>,<#H
	$HELP (B)
	I#hRP C,<C>
	.$BUILD><C>
	.$BU	0 _A6
.WTOX.(.OM_aACK,<A>,<B>,<C`>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 \a=hDEFINE .$R]TN <A>
			.%RTN==1A>
			.%RTN	fI9 Wa=@DEFINE .$LXST <A+1>
			.%LST==11>
			.%L	
=Z K,a
	  IFG K9A-INT.LV,<PRINTX KX?Level A interruKxpts not supportedL>
	  .BGINT.(\A)   .BGINT.(\A	X5 Z=RDEFINE .$BZ!REA <A>
			.%BREA==1>
			.%BR	- My,
	  IFDEFN ..BSIZ,<PRINTX ?N8Missing $EOB afteNXr a $BUILD>
	  .Nx.BSIZ==0			
	  .O.BLOC==.			
	  RO8EPEAT A,<			
		OXBLD0.(\..BSIZ,0)	Ox
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 
i@\
	.$RESET	
	$TYPE (.CMCMA)(
	$NEXT (A)
	IHRP B,<B>
	.$BUILD,<B>
	.$BU	I@ )@>
	.$RESETI
	$TYPE (.CMCFM)h
	IRP A,<A>
	.$BUILD,<A>
		$^ iA&
	.$RESET	
	$TYPE (.CMTXT)(
	$HELP (<>)
	$HNEXT (A)
IFIDN h<B> <>,< IRP C,<C>
			.$BUILD>(
IFDIF <B> <>,<H
	$HELP (B)
	IhRP C,<C>
	.$BUILD><C>
	.$BU	I  )A2
	.$RESETI
	$TYPE (.CMTAD)h
	$PDATA (CM%IDA)
	$NEXT (A)
	(IRP B,<B>
	.$BUILD,<B>
	.$B	,,U M,k
	  $RET	M9			;WILL INVOKE RIGHT ROUTINE
		,h: V=4DEFINE .$DV!EFM <POINT 7,[ASCV@IZ\A\]>
			.%DEFM==1>
			.%DE	.` iA
	.$RESET	
	$TYPE (.CMDEV)(
;**;[323]At DEFHINE $DEV +3L chanhge the $DEV macro to by pass the :( check
	$FLAGS (HCM%PO!CM%NSF)	;[3h23]By pass : check
	$NEXT (A)
	(IRP B,<B>
	.$BUILD,<B>
	.$B	Lz: ui?@
	.$RESETv	
	$TYPE (.CMNUX)v(
	$PDATA (B)
	vH$HELP (<>)
	$NEXvhT (A)
IFIDN <Cw> <>,< IRP D,<Dw(>
			.$BUILD>
IwHFDIF <C> <>,<
	wh$HELP (C)
	IRP xD,<D>
	.$BUILD><D>
	.$BUILD	N  )@H
	.$RESETI
	$TYPE (.CMDIR)h
	$NEXT (A)
	I	RP B,<B>
	.$BUILD,<B>
	.$BU	|  Ty-C
	  IFNDEUF ..BSIZ,<PRINTX U8?$EOB without preUXvious $BUILD>
	 Ux IFN <.-..BLOC>,<VPRINTX ?Address cV8hange between $BUVXILD and $EOB>
	 Vx LSTOF.			
	  ..WT==0
	  REPEAT .W8.BSIZ,<
	    BLDWX0.(\..T,1)		
	  Wx  ..T==..T+1 >
	X  PURGE ..BSIZ,..X8T,..BLOC	
	  LSTON.
		
	  LST	+y Y!=LDEFINE .$EYARTN <A>
			.%ERTN==1>
			.%ER	, Za=XDEFINE .$E[RTN <1B0+A+1>
			.%ERTN==1>
		- [A=bDEFINE .$E[aRTN <[MOVEI S2,[A\SCIZ\A\]
				  \     $RETF]>
			.%ERTN==1>
			.	H6 ^q-
	$CALL	._STOP
	LSTOF.
	J_0UMP	[XWD 0,[ITEXT_P (<A>)]
		 EXP _p%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ i@6
	.$RESET	
	$TYPE (.CMFLD)(
	$NEXT (A)
	$HHELP (<>)
IFIDN h<B> <>,< IRP C,<C>
			.$BUILD>(
IFDIF <B> <>,<H
	$HELP (B)
	IhRP C,<C>
	.$BUILD><C>
	.$BU	MI  )@"
	.$RESETI
	$TYPE (.CMFIL)h
	$HELP (<>)
	$NEXT (A)
IFIDN (<B> <>,< IRP C,H<C>
			.$BUILD>h
IFDIF <B> <>,<
	$HELP (B)
	I(RP C,<C>
	.$BUILD><C>
	.$BU	dy S!=DEFINE .$FSALGS <A>
			.%FLGS==1>
			.%FL	ex: 
	.$RESET
	$TYPE (.CMFLT)
	$HELP (<>)
	$NEXT (A)
IFIDN (<B> <>,< IRP C,H<C>
			.$BUILD>h
IFDIF <B> <>,<
	$HELP (B)
	I(RP C,<C>
	.$BUILD><C>
	.$BU	$ ^-s3
	  INTER^1N A
	  $DATA(A,<B>)
	ATA(AC-l1	"
	IFDIF <UA> <>,<
DEFINE U .$HLPM <POINT 7,[U@ASCIZ\A\]>
			.%HLPM==1>
			.	&5 })?z
	.$RESET}I
	$TYPE (.CMIFI)}h
	$HELP (<>)
	$~NEXT (A)
IFIDN ~(<B> <>,< IRP C,~H<C>
			.$BUILD>~h
IFDIF <B> <>,<
	$HELP (B)
	I(RP C,<C>
	.$BUILD><C>
	.$BU	&u 
	@f
	.$RESET
)
	$NEXT (A)
	$
HTYPE (.CMINI)
	I
hRP B,<B>
	.$BUILD,<B>
	.$BU	./ qI?
	.$RESETqi
	$TYPE (.CMKEY)r
	$PDATA (B)
	r($NEXT (A)
	IRP rHC,<C>
	.$BUILD,<C>
	.$BUILD	./ p	?
	.$RESETp)
	$TYPE (.CMKEY)pH
	$PDATA (A)
	ph$NEXT (0)
	IRP qB,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDc!6.WTOX.(.OMcAWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p bA6.WTOX.(.OMbaLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV 	B

	.$RESET)
	$TYPE (.CMNOD)H
	$HELP (<>)
	$hNEXT (A)
IFIDN  <B> <>,< IRP C, (<C>
			.$BUILD> H
IFDIF <B> <>,< h
	$HELP (B)
;	!$FLAGS (CM%PO)
	!(IRP C,<C>
	.$BUILD><C>
	.$B	:}r xI?N
	.$RESETxi
	$TYPE (.CMNOI)y
	$PDATA (<POINTy( 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRyhP C,<C>
	.$BUILD,<C>
	.$BUI	;-XR s	?*
	.$RESETs)
	$TYPE (.CMNUM)sH
	$PDATA (B)
	sh$HELP (<>)
	$NEXtT (A)
IFIDN <Ct(> <>,< IRP D,<DtH>
			.$BUILD>
IthFDIF <C> <>,<
	u$HELP (C)
	IRP u(D,<D>
	.$BUILD><D>
	.$BUILD	>5 i@
	.$RESET	
	$TYPE (.CMOFI)(
	$NEXT (A)
	$HHELP (<>)
IFIDN h<B> <>,< IRP C,<C>
			.$BUILD>(
IFDIF <B> <>,<H
	$HELP (B)
	IhRP C,<C>
	.$BUILD><C>
	.$BU	B$ T="DEFINE .$DT!ATA <A>
			.%DATA==1>
			.%DA	B$YP W=:DEFINE .$DW!EFM <POINT 7,<A>>
			.%DEFM==1	CYT ]A=nDEFINE .$D]aEFR <A>
			.%DEFR==1>
			.%DE	F
:` `A6
.QWTO.(.OM`aACK,<A>,<B>,<Ca>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	G-} iA^
	.$RESET	
	$TYPE (.CMQST)(
	$HELP (<>)
	$HNEXT (A)
IFIDN h<B> <>,< IRP C,<C>
			.$BUILD>(
IFDIF <B> <>,<H
	$HELP (B)
	IhRP C,<C>
	.$BUILD><C>
	.$BU	G>K` ]a5r.QWTO.(.OM^WTO,<A>,<B>,<C^ >,,<$WTMFL(MF.WTO),D>)FL(MF.WTO	J.I  \a-j
	  $CALL]	.RETE			
		LSTO] F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  'y+=
	.NVR==0(			
	.ACM==0			

	IRP A,<		
	(X	..TSAC(.ACB,A)	(x	
		IFN .ACB,<.A)CM==.ACM!1B<A>>	)8
		IFE .ACB,<			)X
		IFE .NVR,<			)x
		    CAIA			
*		    LSTOF.
		 *8   JRST b>
		  *X..PUSH(A,\<.NVR+*x1>)>>	

	IFN .A+CM,<	
	    IFE <+8.ACM-17B<T4>>,<.A+XCM==0
				$CALL +x.SAVET>
	    IFE, <.ACM-377B<.A16>,8>,<.ACM==0
				$,XCALL .SAVE8>
	  ,x  IFE <.ACM-17B<P-4>>,<.ACM==0
			-8	$CALL .SAVE4>
	-X    IFE <.ACM-7B<-xP3>>,<.ACM==0
		.		$CALL .SAVE3>
.8	    IFE .NVR,<	
	    IFE <.ACM-3.xB<P2>>,<.ACM==0
/				$CALL .SAVE2>/8
	/x  IFE <.ACM-/X1B<P1>>,<.ACM==0
				$CALL .SAVE10>
	    IFE <.ACM08-1B<.A13>>,<.ACM=0X=0
				$CALL .SV0x13>
	    IFE <.A1CM-1B<.A14>>,<.AC18M==0
				$CALL .1XSV14>
	    IFE <1x.ACM-1B<.A15>>,<.2ACM==0
				$CALL28 .SV15>
	    IFE2X <.ACM-1B<.A16>>,2x<.ACM==0
				$CA3LL .SV16>
	    >38>

	IFN .ACM,<	3X
	    IFE .NVR,<3x			
		CAIA			
	4	LSTOF.
		JRST 48b>

	    .ACB==4X0			
	REPEAT ^D14x6,<			
	    IFN 5<.ACM&1B<.ACB>>,<58	
		..PUSH(\.ACB5X,\<.NVR+1>)>
		.5xACB==.ACB+1>>		
6
	IFN .NVR,<	
	68    PUSH P,[[CAIA6X		
		     AOS -.6xNVR(P)	
	    REP7EAT .NVR,<..POP(\78.NVR)>	
		     P7XOPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ P9-
	  IFNDEPYF ..BSIZ,<PRINTX Px?$SET without preQvious $BUILD>
	 Q8 IFNB <B>,<..STRQX0 (..SET,<C>,B,QxA)>
	IFB  <BR>,<..STR0 (..SET,R8<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
)I	XWD b-1,b-1
	)hDEFINE $ETAB <
		b==.-a> <
		O%| c.!
S..A::!c1	$CALL .STOP
		LcPSTOF.
		JUMP [XWcpD 'A',[ITEXT (<dB>)]
			EXP %%.MOD]
		LSTON.	M	O= {i?f
	.$RESET|	
	$TYPE (.CMSWI)|(
	$PDATA (A)
	|H$NEXT (0)
	IRP |hB,<B>
	.$BUILD,<B>
	.$BUILD	O= z)?Z
	.$RESETzI
	$TYPE (.CMSWI)zh
	$PDATA (B)
	{$NEXT (A)
	IRP {(C,<C>
	.$BUILD,<C>
	.$BUILD	R
@ )AJ
	.$RESETI
	$TYPE (.CMTAD)h
	$PDATA (<CM%IDA!CM%ITM>)
	$NEX(T (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	Tdq%TEXT
	LSTOF.	XCeREF
	JUMP	[XWD 2e0,0
		 EVL (A)
eP		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESET	
	$TYPE (.CMTAD)(
	$PDATA (CM%ITMH)
	$NEXT (A)
	hIRP B,<B>
	.$BUILD,<B>
	.$B	R}97 $)B,
	.$RESET$I
	$TYPE (.CMTOK)$h
	$PDATA (<POINT% 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR%HP C,<C>
	.$BUILD,<C>
	.$BUI	S xQ/1


  ..TXwaA(.TQA,C,D,E,uqB)	
      IFN .v1.TXEF,<			
	..TEvRR<$TQ(A,B,C,D,E)>>

C,	S@I9 A1
	LSTOF.
	X(UQU,Unknown qualifier)
	X(IQU ,Invalid qualifie@r)
	X(IJA,Invali`d justification argument)
	X(IWA, Invalid width arg@ument)
	X(PEA,Pr`emature end of argument)
	X(JNA,J ustification is n@ot allowed)
	X(A`NA,Arguments are not allowed)
	X( ADS,Address must @be specified)
	LSTON.
ied)
	L	SN	  RA=DEFINE .$TRaYP <A>
			.%TYPE==1>
			.%TYP	W= )At
	.$RESETI
	$TYPE (.CMUQS)h
	$HELP (<>)
	$NEXT (A)
	$PDAT(A (B)
IFIDN <CH> <>,< IRP D,<Dh>
			.$BUILD>
IFDIF <C> <>,<
	($HELP (C)
	IRP HD,<D>
	.$BUILD><D>
	.$BUILD	W\@ 	I@R
	.$RESET	i
	$TYPE (.CMUSR)

	$NEXT (A)
	I
(RP B,<B>
	.$BUILD,<B>
	.$BU	^+@ `1.
IFE %%.O`QTS,<DEFINE $WARN `p(MSG) <
		$TEXT a(T%TTY,<% ^W6/[%%a0.MOD]/ MSG>)>>
IaPFN %%.OTS,<DEFINEap $WARN (MSG) <
	b	$TEXT (T%TTY,<% b0^W6/IIB+IB.PRG/ ^bPW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r Oa5
		IFB	<PA>,<.WFACD==0
		P 	IFN <0-2>,<.$WACP@D==0>>
		IFNB	<P`A>,<.WFACD==-1
	Q		IFN <0-2>,<.$WAQ CD==.$WACD!<A>>
			IFE <0-2>,<DEQ`FINE .$WACD,<<WO.RACD>B8+[ITEXT (<A>)]>>
		>
<	_$u Da48
		IFB	<EA>,<.WFACK==0
		E 	IFN <0-2>,<.$WACE@K==0>>
		IFNB	<E`A>,<.WFACK==-1
	F		IFN <0-2>,<.$WAF CK==.$WACK!<A>>
			IFE <0-2>,<DEF`FINE .$WACK,<<WO.GACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ 6A5d
	IFE	<.W6aFMTY>,<PRINTX ?No7 message type in 7 $WTBLD>
DEFINE .7@EAWTO(SUFFIX,ARGC7`OD),<
IFN .WF'SU8FFIX',<
	IFE	<AR8 GCOD-0>,<<WO.'SUF8@FIX'>B8+ .$W'SUFF8`IX'>
	IFE	<ARGCO9D-1>,<<WO.'SUFFIX[@'>B8+ [EXP .$W'SU[`FFIX']>
	IFE	<AR\GCOD-2>,<.$W'SUFF\ IX'>
>
>
	ALLW\@TO				
	EXP	0			
		
	EXP	0				_$k GA4N
		IFB	<GaA>,<.WFFLG==0
		H	IFN <1-2>,<.$WFLH G==0>>
		IFNB	<H@A>,<.WFFLG==-1
	H`		IFN <1-2>,<.$WFILG==.$WFLG!<A>>
			IFE <1-2>,<DEI@FINE .$WFLG,<<WO.I`FLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W M4z
		IFB	<M!A>,<.WFJBN==0
		M@	IFN <0-2>,<.$WJBM`N==0>>
		IFNB	<NA>,<.WFJBN==-1
	N 		IFN <0-2>,<.$WJN@BN==.$WJBN!<A>>
			IFE <0-2>,<DEOFINE .$WJBN,<<WO.O JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV U!5<
		IFB	<UAA>,<.WFMFL==0
		U`	IFN <1-2>,<.$WMFVL==0>>
		IFNB	<V A>,<.WFMFL==-1
	V@		IFN <1-2>,<.$WMV`FL==.$WMFL!<A>>
			IFE <1-2>,<DEW FINE .$WMFL,<<WO.W@MFL>B8+[ITEXT (<A>)]>>
		>
<	_%] 9a3`
		IFB	<:A>,<.WFMTY==0
		: 	IFN <0-2>,<.$WMT:@Y==0>>
		IFNB	<:`A>,<.WFMTY==-1
	;		IFN <0-2>,<.$WM; TY==.$WMTY!<A>>
			IFE <0-2>,<DE;`FINE .$WMTY,<<WO.<MTY>B8+[ITEXT (<A>)]>>
		>
<	_%j X5R
		IFB	<X!A>,<.WFNHD==0
		X@	IFN <0-2>,<.$WNHX`D==0>>
		IFNB	<YA>,<.WFNHD==-1
	Y 		IFN <0-2>,<.$WNY@HD==.$WNHD!<A>>
			IFE <0-2>,<DEZFINE .$WNHD,<<WO.Z NHD>B8+[ITEXT (<A>)]>>
		>
<	_%kr J!4d
		IFB	<JAA>,<.WFNOD==0
		J`	IFN <0-2>,<.$WNOKD==0>>
		IFNB	<K A>,<.WFNOD==-1
	K@		IFN <0-2>,<.$WNK`OD==.$WNOD!<A>>
			IFE <0-2>,<DEL FINE .$WNOD,<<WO.L@NOD>B8+[ITEXT (<A>)]>>
		>
<	_%p ]5j.WTOX.(.OM]!WTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU B4"
		IFB	<B!A>,<.WFOBJ==0
		B@	IFN <0-2>,<.$WOBB`J==0>>
		IFNB	<CA>,<.WFOBJ==-1
	C 		IFN <0-2>,<.$WOC@BJ==.$WOBJ!<A>>
			IFE <0-2>,<DEDFINE .$WOBJ,<<WO.D OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr RA5&
		IFB	<RaA>,<.WFOCD==0
		S	IFN <0-2>,<.$WOCS D==0>>
		IFNB	<S@A>,<.WFOCD==-1
	S`		IFN <0-2>,<.$WOTCD==.$WOCD!<A>>
			IFE <0-2>,<DET@FINE .$WOCD,<<WO.T`OCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ aA6.WTOX.(.OMaaWTO,<A>,<B>,<Cb>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ ^a5x
.WTOX.(.OM_WTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z 9!5V
	DEFINE	9A.EAWTO(SUFFIX),<$ZaWT'SUFFIX'	<>>
	ALLWTO				

		_&N ?!4

		IFB	<?AA>,<.WFTXT==0
		?`	IFN <2-2>,<.$WTX@T==0>>
		IFNB	<@ A>,<.WFTXT==-1
	@@		IFN <2-2>,<.$WT@`XT==.$WTXT!<A>>
			IFE <2-2>,<DEA FINE .$WTXT,<<WO.A@TXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 <A3v
		IFB	<<aA>,<.WFTYP==0
		=	IFN <2-2>,<.$WTY= P==0>>
		IFNB	<=@A>,<.WFTYP==-1
	=`		IFN <2-2>,<.$WT>YP==.$WTYP!<A>>
			IFE <2-2>,<DE>@FINE .$WTYP,<<WO.>`TYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P .
P .JP .bP /P B&@P cGP )0 >0KJfkZ6 g	>|			

	dg)==<FLD(.$TYP,CM%FgHNC)>!.$FLGS!<.$LSghT> 

	IFN <.%BRhEA>,<d==d!CM%BRh(K> 

	IFN <.%HLhHPM>,<d==d!CM%HPhhP!CM%SDH> 
					i	

	IFN <.%DEFMi(>,<d==d!CM%DPP>iH 

c:!	XWD	b,iha			

	EXP d	j			

	EXP .$DATj(A			

IFN <.%HLjHPM!.%DEFM!.%BREA>jh,<
		EXP	.$HLPM>k		


IFN <.%DEk(FM!.%BREA>,<
		EkHXP	.$DEFM>		

kh
IFN <.%BREA>,<	ElXP	.$BREA>		

	l(a==.-c			;LENGTlHH OF THE FDB

IlhFN <.%NXT!.%DEFR!m.%RTN!.%ERTN>,< Em(XP .$NXT >	

IFmHN <.%DEFR!.%RTN!.mh%ERTN>,<EXP .$RTNn >	

IFN <.%DEFn(R!.%ERTN>,<	EXP	.nH$ERTN>	

IFN <.nh%DEFR>,<		EXP	.$DoEFR>	


	b==.o(-c			

	IF2<	PoHURGE a,b,c,d>
	LISTb,c,d>$YV=xPOINT7,[ASCIZ\0\]NTK7,[A$YY >0KJt9".- =~0
b\r aI>4
	SALL
	aiXLIST
	DEFINE .$bTYP <0>
	.%TYPE=b(=0
	DEFINE .$FLGbHS <0>
	.%FLGS==0bh
	DEFINE .$DATA c<0>
	.%DATA==0
c(	DEFINE .$HLPM <>cH
	.%HLPM==0
	DEchFINE .$DEFM <0>
d	.%DEFM==0
	DEFId(NE .$LST <0>
	.%dHLST==0
	DEFINE .dh$BREA <0>
	.%BREeA==0
	DEFINE .$Ne(XT <0>
	.%NXT==0eH
	DEFINE .$ERTN eh<0>
	.%ERTN==0
f	DEFINE .$RTN <0>f(
	.%RTN==0
	DEFfHINE .$DEFR <0>
	.%DEFR==0<0>
	K@>0KJlLb'9<N0T 1,)0P $YVP $YYP .-P 5IyP f=P w
	   ..ASPY1==-<B>	
	IFDEFPx .PSECT,<
	.IFN Q..AS1,ABSOLUTE,<
	     C A,[-..QXAS1]>	
	.IF ..ASQx1,ABSOLUTE,<
		.R.AS2==0	
	  IFE R8<..AS1&^O777777B1RX7>,<
		..AS2==1	Rx
	    DI A,..ASS1>
	  IFE ..AS2S8,<
	    ..OP(A,SXB,C)>	
	PURGE Sx..AS1,..AS2>>
	ITFNDEF .PSECT,<
	T8	..AS2==0	
	  IFTXE <..AS1&^O777777TxB17>,<
		..AS2==U1	
	    DI A,.U8.AS1>
	  IFE ..AUXS2,<		
	    ..OPUx(A,B,C)>
	PURGE ..AS1,..AS2>:h '-
	A&: C9$g
	  ..CX1CY==C
	IFDEF .PSECxCT,<
 	.IFN ..CXD1,ABSOLUTE,<
	  D8    CAMA B,[C]DX>
	.IF ..CX1,ABSDyOLUTE,<	
		..CX2E==0	
	  IFE <..CE9X1&^O777777B17>,<EX
		..CX2==1	
	 Ex   CAIA B,C>
F	  IFE ..CX2,<		
	    CAMA B,[JXC]>
	PURGE ..CX1Jx,..CX2>>
	IFNDEFK .PSECT,<
		..CXK82==0	
	  IFE <..KXCX1&^O777777B17>,Kx<
		..CX2==1	
	L    CAIA B,C>
	  IFE ..CX2,<		LX
	    CAMA B,[LxC]>
	PURGE ..CX1,..CX2>GE ..CX:&@ >Y,
	..TSIZ >y(..PST,C)
	.CAS?E ..PST,<<
		MOV?8EM A,B>,<
		HR?XRM A,B>,<
		HR?xLM A,B>,<
		DP@B A,[POINTR (B,C)]>>INTR (B,:<;Y )5
   DEFIN9E ..CNS2 (NEW,OLDX)<
	  OLD>			
	..CNS ()>			
	:L;Y y)-
   DEFINE ..CNS (%%%)<
	8..CNS2 <%%%>,>
X
   DEFINE ..CNS2x (NEW,OLD)<
	DEFINE ..CNS (%%%)<
	  ..CNS2 <%%%>,X<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ ;9+g
	..TSIZ ;Y(..PST,C)
	.CAS;xE ..PST,<<
		MOV<E A,B>,<
		HRR<8Z A,B>,<
		HLR<XZ A,B>,<
		LDB<x A,[POINTR (B,C)]>>INTR (B,:}i1 {'[
	A==<<<{9-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ V9%_
	  ..OP1VY==B
	IFDEF .PSEVxCT,<
 	.IFN ..OPW1,ABSOLUTE,<
	  W8    C A,[..OP1]WX>
	.IF ..OP1,ABSWxOLUTE,<	
		..OP2X==0	
	  IFE <..OX8P1&^O777777B17>,<XX
		..OP2==1	
	YXx   CI A,..OP1>
	  IFE ..OP2,<		Y8
	    C A,[..OYXP1]>
	PURGE ..OPYx1,..OP2>>
	IFNDEZF .PSECT,<
		..OZ8P2==0	
	  IFE <.ZX.OP1&^O777777B17>Zx,<
		..OP2==1	
[	    CI A,..OP1[8>
	  IFE ..OP2,<[X		
	    C A,[.[x.OP1]>
	PURGE ..OP1,..OP2>GE ..;m !0x
	..PST==AC-FWMASK
	.IF0 `..PST,<
		POINT 0,B,35>,<
		POINTR (B,C)>POI;| 9+M
		POP P,99.NVA
		PURGE .N9XVA
		.NVR==.NVR-1
		.NVR==.NVR;\t 8+E
		PUSH P89,A
		DEFINE .NV8XB<A>
		.NVR==.NVR+1
		.NVR==.;] Ry-#
	  IFGE S<<<B>&777777>-..S8BSIZ>,<
		PRINTXSX ?WORD offset greSxater than $BUILD Tsize parameter>
T8	  SET0. (\<B>,C,<A>)
	B>,;LH Y(
	IFNDEF yC,<PRINTX C IS NOT DEFINED
	  8A (<B>,D,FWMASKX)>	
	IFDEF C,<
	IFNDEF %C,<
	  A (<B>,D,C)8>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH ([

	..NS==09			
	IRP C,<..NXS=..NS+1>	
	IFE x..NS,<PRINTX ?EMPTY STRUCTURE LIST8, A>
	IFE ..NS-X1,<		
	  ..STR0 x(A,<B>,<C>,D)>
	IFG ..NS-1,<	8	
	..ICNS			
	.X.CNS (<E (A,<Bx>,,>) 
	IRP C,<		
	  IFNDEF C,8<PRINTX C NOT DEXFINED>
	  IFDEF xC,<
	  IFNDEF %C,<
	  ..CNS (<8,C,D>)>	
	  IFXDEF %C,<
	  %Cx (..STR2,,D,C)>	 
	  ..CNS (<)>)	8		
	  ..GCNS		
	X	  ..ICNS		
	  .	x.CNS (<E (A,<B
>>) 
	  IFNDEF %
8C,<
	  ..CNS (<
X,C,D>)>	
	  IF
xDEF %C,<
	  %C (..STR2,,D,C)>8>> 
	..CNS (<,,)>)		
	..GCNS>);LI y(_
	..CNS (<,C,B>).CNS (;LI 
9(u

	IFDIF <
YD><F>,<
	  IFN
xB <D>,<
	 (<AD,..MSK)	
	<PRIIFNB<F>,E WORDS>>
	  ..MS8K==0>		
	IFNB <XF>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ )

	IFDIF <9D><F>,<	
	  IFXNB <D>,<
	    xA (<B>,D,..MSK)>	
	  ..MSK==0>	8	
	IFNB <F>,<
X	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ )

	IFDIF <9D><F>,<	
	  IFXNB <D>,<
	    IxFNB <F>,<		
		A1 (B,D,..MSK)>8 
	    IFB <F>,X<		
		A2 (B,Dx,..MSK)>> 
	  ..MSK==0>		
	IFNB 8<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y !16
IF1,<
    PRINTX ? Error in "A"
    DQEFINE X(NAM,ERR) !<IFN ..X'NAM&..TX@EF,<PRINTX ? ERR>`>
    $TX$ERR>

    $TX$ERR>
;$^ A1l

    ..aTXF==0				
    ..TXB==0				
     ..TXP==0				
   @ ..TXEG==<..TXEF=`=0>			
    IRPC A,<				
	..TXC= =ASCII\A\-35		
	IFN ..TXB,<IFN `..TXB-..TXC,..CNS(<A>)
		   IFE  ..TXB-..TXC,..TXB@==0>
	IFE ..TXB,`<..TXQ(<A>,\..TXF)>>	
    ..TXC1 				
    IFN ..T@XB,<IFN <..TXB-"^`">,<..TXER(PEA)>>
    ..TXEF==..T XEF!..TXEG		
   @ IFN ..TXEF,<..TERR<A>>
,<..TE;&( {1/[..TXA(.TQCH0)..TXA(.TQC;&) |A/d..TXER(IQU)..TXER(IQU;&) {q/_..TXER(IQU)..TXER(IQU;&0 zq/W..TXA(.TQCHA)..TXA(.TQC;&5 y1/K..TXC0(\".CHLFD).TXC0(\".;&5 z1/S..TXC0(\".CHVTB).TXC0(\".;&6 yq/O..TXC0(\".CHFFD).TXC0(\".;&6 xq/G..TXC0(\".CHCRT).TXC0(\".;&@ Gy,U
	..TSIZ H(..PST,C)	
	.CAH8SE ..PST,<<
		SEHXTZM B>,<	
		HLLHxZS B>,<	
		HRRZIS B>,<	
	  ..TSI8AC (..ACT,B)	
	IX  .IF0 ..ACT,<
	Ix	$CALL .ZERO	
		JLSTOF.
		JUMP [PJ8OINTR(B,C)]
		JXLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 wY'U
	IFNDEF wy.PSECT,<
	A==0	x		
	..TSA1==<Z x8B>		
	  IFE ..TSxXA1&^O777777777760xx,<A==1> 
	>
	IyFDEF .PSECT,<
	y8A==0			
	..TSA1=yX=<Z B>		
	.IF .yx.TSA1,ABSOLUTE,<	z
	  IFE ..TSA1&^z8O777777777760,<AzX==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= v'9
	A==3		v9	
	IFE <B>+1,<vXA=0>	
	IFE <B>-vx^O777777,<A==1> w
	IFE <B>-^O777777B17,<A==2>7;' \9&q
   ..TX1\Y==C			
IFDEF .P\xSECT,<
   .IFN .].TX1,ABSOLUTE,<
]8	TDA B,[C]>
 ]x  .IF ..TX1,ABSOL]YUTE,<		
	..TX2==^0		
	IFE <..TX1&^9^O777777B17>,<
	^X  ..TX2==1		
	  ^xTRA B,..TX1>
	_IFE ..TX2,<		
	I_8FE <..TX1&^O77777_Y7>,<
	  ..TX2==1_y		
	  TLA B,(.`.TX1)>>
	IFE ..T`8X2,<		
	  IFE <<`X..TX1>B53-^O77777hy7>,< 
	    ..TX3i (A,B)>>	
	IFEi8 ..TX2,<		
	  TDiXA B,[..TX1]>	
ix	PURGE ..TX1,..TXj2>>
IFNDEF .PSECj8T,<
	..TX2==0		
	IFE <..TX1&^O77jx7777B17>,<
	  ..kTX2==1		
	  TRAk8 B,..TX1>
	IFE kX..TX2,<		
	IFE <kx..TX1&^O777777>,<l
	  ..TX2==1		
l8	  TLA B,(..TX1lX)>>
	IFE ..TX2,<lx		
	  IFE <<..TXm1>B53-^O777777>,<m8 
	    ..TX3 (AmX,B)>>	
	IFE ..TmxX2,<		
	  TDA nB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` nY'
	IFIDN <nyA><Z>,<		
	  ..oTX2==1
	  ANDI o8B,^-..TX1>	
	IFIoXDN <A><O>,<		
	ox  ..TX2==1
	p8ORpCMI B,^-..TX1>	
	IFIDN <A><C>,<pX		
	  ..TX2==1
px	  EQVI B,^-..TX1>QVI B,^-..TX;'  ~a0b


	..TXEF==0			

IFNDEF  A,<..TXER(UQU)>@		
IFDIF <B><>,`<IRPC B,<.IFN <B>,NUMERIC,..TXER (IWA)>>
IFNB <C@>,<IFNDEF .TXTJC`,<..TXER(IJA)>>
IFDEF  A,<
  IF E <A_-^D18>,<IFD@IF <EFBCD><>`,<..TXER(ANA)>>
  IFE <1-<A_-^D1 8>>,<IFDIF <BC@D><>,<..TXER(JNA)`>>
  IFE <2-<A_-^D18>>,<IFIDN < EF><>,<..TXER(AD@S)>>>

      IF`E ..TXEF,<
	IFIDN <B><>,<..TXWD= =<..TXJU==<..TXFC@==0>>>
	IFDIF <`B><>,<
	  IFE <^D<B>>,<..TXWD==< ..TXJU==<..TXFC==@0>>>
	  IFN <^D<`B>>,<..TXWD==^D<B>
	    IFNB < C>,<..TXJU==.TXTJ@C>
	    IFB  <`C>,<..TXJU==.TXTJL
	      IFE <A -.TQOCT>,<..TXJU=@=.TXTJR>
	     `IFE <A-.TQDEC>,<..TXJU==.TXTJR>>
	    IFB  <D>,<@..TXFC==" ">
	  `  IFNB <D>,<..TX	FC=="D">>>

	I	 FB  <EF>,<..TXP	@T==0>
	IFNB <E	`F>,<..TXPT==1>
	
IFE <..TXWD+..TXP
 T>,<
	    EXP FL
@D(A,TXT.FN)>
	I
`FN <..TXWD+..TXPT>,<
	    EXP FLD (A,TXT.FN)+FLD(.@.TXJU,TXT.JU)+FLD`(..TXWD,TXT.WD)+F
LD(..TXFC,TXT.FC)
 +TXT.AD
	    PNTR(E,F)>>

T;'h /!3
    IFE /A..TXP,<			
	..IC/`NS			
	..CNS<ASC0IZ\>		
	..TXP==10 >		
    ..CNS<A0@>			
    ..TXF==0`0			
    ..TXB=="^"
    ..TXB==;'h 1!3

    IF1AN ..TXP,<			
	..1`CNS<\>		
	EXP <F2LD(.TQCHT,TXT.FN)2 +[..GCNS]>>
    ..TXP==0>
    ;'	9 !1@
    ..TXAEF==..TXEF!..XA	`	
    ..TXF==0				
    ..TXB=="^"
    ..TXB=="^;'
  1p..TXQB(<A>)..TXQB(<;'
( A1z

    IFaN ..TXC-"^",<..TXC0(<A>)>		
     IFE ..TXC-"^",<..TXF==1>-"^",<..;'
( a2

    IF E ..TXC-"^",<..TX  C0(<A>)>	
    I @FN ..TXF,<			
	. `.TXF==0		
	IFDEF! .TQCHA,<		
	  !   IFDEF ..TQMA,.[email protected]A 
	    IFN!` <.TQCHA_-^D18>,"<..TXF==2>>>
   "  IFE ..TXF-2,<..T"@XC1(<A>)	
	..IC"`NS			
	..CNS<..T#XA(.TQCHA,>>	
 #    ..TXEG==..TXEG!..TXEF==..TXEG;'
) #a2,
    ..TX$F==3				
    IFG$ E ..TXC-"0",IFLE [email protected]"9",<..TXF=$`=2>
    IFE ..TX%F-2,<..CNS(A)>		% 
    IFE ..TXF-3%@,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'
) &2@
    ..TX&!F==4				
    IFE&@ ..TXC-"/",<..TXF&`==5>		
    IFE .'.TXC-"[",<..TXF==' 5>		
    IFE ..T'@XF-4,<..CNS<A,>>'`		
    IFE ..TXF(-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'
* (A2V
    ..TX(aF==4				
    IFE) ..TXC-"/",..TXF=) =5		
    IFE ..T)@XC-"[",..TXF==5		)`
    IFE ..TXF-5*,<..CNS<,>		
		 * ..TXQ5<A>>		
  *@  IFE ..TXF-4,<..*`CNS<A,>		
		 ..TXF==5>	
		 ..;'
* +!2h
    ..TX+AF==6				
    IFE+` ..TXC-"/",..TXB=,="/"		
    IFE ., .TXC-"[",..TXB==",@]"
    IFE ..TXB,`-"]",..CNS<[>		
-    IFE ..TXB,..TXF==5 ..TXB,..T;'
+ -A2v
    ..TX-aF==0			
    IFE ...TXC-"]",..CNS<]. >	
    ..CNS<)>	.@		
    ..GCNS			.`
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  $9*#
	.ACV2 (A)
	.ACV2 (d@ $y*-
	A=.FPA%C+..NAC		
	IFB <%8B>,<..NAC=..NAC+%X1>
	IFNB <B>,<..NAC=..NAC+B>.d` &*;
	IFG A-&9.NPAC,<PRINTX ?TO&XO MANY ACS USED>
	IFLE A-4,<
	'' $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z LY,e$CALL	I%INTA$CALL	I%IN9  t'+
	..CSN==t9A
	..CSC==0
	ItXRP B,<
	IFE ..CtxSN-..CSC,<
	  STuOPI
	  ..CAS1 (u8B)>
	..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 Dy,1
	..PST==EC-FWMASK
	.IF0 E8..PST,<
		SOS BEX>,<	
		$CALL .SOExS	
		LSTOF.
		JFUMP [POINTR(B,C)]
		LSTON.>C
TP } 5a5Z
	.OPCD==[!.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 ry'
	..IFT==sA		
	IFE ..IFT,s8<
	B
	..IFT==0sX>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H Ay,
	..PST==BC-FWMASK
	.IF0 B8..PST,<
		AOS BBX>,<	
		$CALL .AOBxS	
		LSTOF.
		JCUMP [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	h!		
		JRST	h		
h@		SKIPE	G$NEBF		
		JRST	g		
		$iCALL	I%WTO		
		Li STOF.			
		JRST	i@h		
		$WTRST			i`
	IFNB <A>,<$WTjMTY (<A>)>	
	IFj NB <B>,<$WTTYP (j@<B>)>	
	IFNB <j`C>,<$WTTXT (<C>)k>	
	IFNB <D>,<$k WTOBJ (<D>)>	
	k@IFNB <E>,<$WTACKk` (<E>)>	
		IRP lF,<F>		
		$WTBl LD			

g:		$CAl@LL	I%WTO		
		JRSl`T	h		
		$WTRST	m		
	$WTNHD(G$REMm N)			
	IFNB <A>m@,<$WTMTY (<A>)>	m`
	IFNB <B>,<$WTnTYP (<B>)>	
	IFn NB <C>,<$WTTXT (n@<C>)>	
	IFNB <n`D>,<$WTOBJ (<D>)o>	
	IFNB <E>,<$o WTACK (<E>)>	
	o@$WTMFL(MF.NEB)			o`
		IRP F,<F>		p
		$WTBLD			

p 	h:!
	LSTON.  h:!
	LSTON.  J$*vP J&:=P JmLQ K%,z 4#!<A>B<^D70-POS(B)>B<^D70N
0P O I!<Z
	IFG	A-K!MX.PID,<MX.PID==A>
C
G	A-OSP OYP Oi1P O|P OyP O%=H Y)M
	.STKV2 (A)
	.STKV2 O%=I )[
	IFB <B9>,<..STKN==..STKNX+1>
	IFNB <B>,<x..STKN==..STKN+B>
	..STKQ==..STK8N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I y)i
   IFDEF A,<.IF A,SYMBO8L,<PRINTX STKVAR XA ALREADY DEFINExD>>
	DEFINE A<-^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  y)
	.TRV2 (A)
	.TRV2 (Sd@  9*	
	.TRV3 ( YA,\..NV)	
	IFB  x<B>,<..NV=..NV+1!>
	IFNB <B>,<..NV=..NV+B>,<..Sd` !Y*
   IFDEF!y A,<.IF A,SYMBO"L,<PRINTX TRVAR "8A ALREADY DEFINED"X>>
	DEFINE A<^O"xB(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP VuLQ @Vv
TP ^%I7P _%~ d6<
		$CALL	d!I%WTO		
		LSTOF.d@			
		JRST	g		
		$WTRST			
	IFeNB <A>,<$WTMTY (e <A>)>	
	IFNB <e@B>,<$WTTYP (<B>)e`>	
	IFNB <C>,<$fWTTXT (<C>)>	
	f IFNB <D>,<$WTOBJf@ (<D>)>	
	IFNB f`<E>,<$WTACK (<Eg>)>	
		IRP F,<g F>		
		$WTBLD			g@
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP