Google
 

Trailing-Edge - PDP-10 Archives - BB-Y390S-BM_1990 - t20sub/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,UW@P C4@ ,d
	..NAC==,!0		
	IRP A,<
	,@  .ACV1 (A)>		
	.ACV3S(\..NAC)C')V,BC, 8	@LSH A,-^D9LSH A,-^DC2f} ;)l
	.EAWTO(;IMTY,0)
	.EAWTO(T;hYP,2)
	.EAWTO(TX<T,2)
	.EAWTO(OBJ<(,0)
	.EAWTO(ACK,<H0)
	.EAWTO(FLG,1<h)
	.EAWTO(NOD,0)=
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
=H	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' zAT
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ aA
	  IFE aaB,<..TA==0>
	  bIFN B,<EXP ..TAb 
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ O
x
	..CX(,A,B)   ..CGD RA
	..CX(A,A,B)  ..CGDP PA
	..CX(E,A,B)  ..CGDp Q
	    ..CX(G,A,B)  ..CGDy  QA

	    ..CX(GE,A,B) ..CGE@ OA
|
	..CX(L,A,B)  ..CGEI  P
	..CX(LE,A,B) ..CGE` R
	    ..CX(N,A,B)  ..CGH 'I"@

	  LST&IOF.

	X CRE	
	')X GEN	
	X PRT	
'		X CLS	
	XiAUT	
	X USW	
	X SPL	'i
	X SIZ   
	X M(OD	
	X CHN	

	  LSTON.


	G"\Y zI/j

	IF1, zh<%%EDT==AEDT>	
{
	IF2, <IFN <%%E{(DT-AEDT>,<
		PR{HINTX ? Edit Numbe{hr Doesn't Match G|LXVER in GLXA
	|(	A$WHO(\AEDT)>	|H
		A$NOTE		
	I|hNTERN AEDT		
	I}NTERN LODLEV		
;}(	PURGE %%EDT> ;END IF2

7Q#fG4,m:Q G4-ZQ G4.
zQ G:YlP 
G>hKW s ' 
	IFNB <.[email protected]>,<
	PRINTs`X .2.1622 (From GtLXVER)
	> ;END IFNB .2.1622
	G>hMt q`'
	PRINTX rGLXVER	GLXCOM Edir t(70) by  on 3-Ocr@t-85
	PRINTX	   r` 	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ z!ZLALL
PAGEzA; (A Continued oz`n next page)
SAL{L; (A Continued { from previous page) previous pagGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P'pIY{P .I  L!h
	IFNB <LAB>,<..STR0 (.DECRL`0,,<B>,A)>
	IFMB  <B>,<SOS A>  <B>,<SOS A>I6= A8
	A==<-1aB<C>+1B<C-D>> 
	IF1,<IFDEF %A ,<PRINTX ?A ALRE@ADY DEFINED>>
	D`EFINE %A (OP,AC,Y,MSK)<	
	IFDIF  <Y><>,<
	OP (<AC@>,B+'Y,MSK)>
	I`FIDN <Y><>,<
	OP.(<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7yXA
	IFB <D>,<
	XWD	[ASCIZ\8C\],[XWD B,A]>X
	IFNB <D>,<
	xXWD	[EXP CM%FW!D
		ASCIZ\C\],[XWD B,A]>
,[XKH(Q P 3KJ
,bPBKJ)bPb  KJ=P +KJ{P 	KJIBP !KJ=bP (KJIP &KJZ"P 0KJX"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 KJL;BP KJLMP KJLh"P /KJLkBP KJLlP KJLlbP KJM+BP KJMHbP -KJMLBP KJMmP KJMmbP KJN
P ,KJN
bP KJNI"P 
KJNIBP KJN\bP KJfkP (KJlIP KJlLbP KJt1P KJt9"P KJt:"P #KJtlP 2KJtmP -KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv	BP KJv
"P 2KJv
bP .KJvbP KJv)"P KJv9P KJv;P 1KJv;BP KJv<P KJv=bP KJv[P KJv["P KK-P KK
YBP %	"0
	IF1,<IF%)DEF ERA$,PRINTX %H?Duplicate error %hcode A>
	ERA$=&=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y k)"$
	ERR	EOFkI,<End of file>
	khERR	IFP,<Illegal lfile position>
	l(ERR	FDE,<File datlHa error>
	ERR	FNlhD,<File is not onm disk>
	ERR	NSD,m(<No such device>
	ERR	FCF,<File cmhheckpoint failed>n
	ERR	SLE,<A sysn(tem limit was excnHeeded>
	ERR	IFS,nh<Illegal file speocification>
	ERRo(	FNF,<File not fooHund>
	ERR	PRT,<Pohrotection violatipon>
	ERR	DNA,<Dep(vice not availablpHe>
	ERR	NCE,<No ph"current" entry iqn list>
	ERR	NMAq(,<No IPCF messageqH is available>
	qhERR	FDS,<Files arre on different str(ructures>
	ERR	FrHAE,<File already rhexists>
	ERR	USEs,<Unexpected systs(em error>
	ERR	NsHSP,<No such pid>
	ERR	BOL,<Beginnting of list reacht(ed>
	ERR	EOL,<EntHd of list reachedth>
	ERR	RQF,<Receuivers quota full>u(
	ERR	SQF,<SendeuHrs quota full>
	uhERR	NRE,<No rememvbered entry>
	ERv(R	TBF,<Table is fvHull>
	ERR	EIT,<Tvhable entry alreadwy exists>
	ERR	Iw(TE,<Invalid tablewH entry>
	ERR	QEFwh,<Quota exceeded xor disk full>
	Ex(RR	ARG,<Invalid axHrgument specifiedxh>
	ERR	IFN,<Invaylid function specy(ified>
	ERR	IJN,yH<Invalid job numbyher specified>
	EzRR	RAD,<Invalid rz(adix specified>
zH	ERR	NUM,<Invalidzh numeric argument{>
	ERR	IDT,<Inva{(lid date field sp{Hecified>
	ERR	IT{hF,<Invalid time f|ield specified>
|(	ERR	DOR,<Date/ti|Hme out of range>
	ERR	DTM,<Value }missing in date/t}(ime>
	ERR	MDD,<M}Hissing day in dat}he/time>
	ERR	DFZ~,<Field zero in d~(ate/time>
	ERR	M~HDS,<Mnemonic date~h/time switch not implemented>
	ER(R	DFL,<Field too Hlarge in date/timhe>
	ERR	ILR,<Illegal year format (in date/time>
	EHRR	NND,<Negative hnumber in date/time>
	ERR	NPF,<No(t known whether pHast or future in hdate/time>
	ERR	RDP,<Relative dat(e parse required>H
	ERR	NSW,<Switchh does not begin with slash>
	ERR(	NOM,<UnrecognizeHd switch or keywohrd>
	ERR	NUL,<Null switch or keyw(ord given>
	ERR	HINW,<Invalid guidhe word>
	ERR	NC,<Not confirmed>
(	ERR	ICN,<InvalidH character in numhber>
	ERR	NQS,<Invalid quoted str(ing - does not beHgin with quote>
h	ERR	AMB,<Ambiguous switch or keyw(ord>
	ERR	NMT,<DHoes not match tokhen>
	ERR	CMA,<Comma not given>
	(ERR	NNC,<Node namHe may not exceed h6 characters>
	E	RR	INT,<Node term	(inator "::" must 	Hbe specified>
	E	hRR	NSN,<Unknown n
ode name>
	ERR	I
(PS,<Invalid path 
Hspecification>
	
hERR	IUS,<Invalid user specificatio(n>
	ERR	DGS,<DevHice name may not hexceed 6 characte
rs>
	ERR	DNE,<Un
(known device>
	E
HRR	DIO,<Device ca
hnonotudo input or
	ERR	BDlid>date/t
	ERR,<Field too long for internal (buffer>
	ERR	TMTH,<Command too lonhg for internal buffer>
	ERR	BDS,<(Invalid default sHtring>
	ERR	BTF,h<Invalid table format>
	ERR	TME,<(Date/time must beH in the future>
h	ERR	TMN,<No timer entry has expir(ed>
	ERR	TMA,<TiHmer entry alreadyh exists>
	ERR	DVT,<Device termina(tor ":" must be sHpecified>
	ERR	NhCI,<Argument block may not be in t(he ACs>
	ERR	TLUH,<Terminal locatihon is unknown>
	ERR	FIO,<File is (offline>
	ERR	FBHM,<File being modhified>
	ERR	WLK,<Write-locked dev(ice>
	ERR	CSD,<CHannot supersede ah directory>
	ERR	CDD,<Cannot dele(te a non-empty diHrectory>
	ERR	SNhF,<Sub-file directory not found>
(	ERR	ESL,<Search Hlist is empty>
	hERR	LVL,<SFD level nested deeper t(han the maximum aHllowed>
	ERR	CCWh,<Cannot create/write on any struc(ture in search liHst>
	ERR	FCU,<Cahnnot update file>
	ERR	ENQ,<File (has outstanding EHnqueue lockes seth>
	ERR	SWS,<Software write-lock o(n structure>
	ERHR	DER,<Hardware dhevice error>
	ERR	DTE,<Hard data (error>
	ERR	BKT,H<Block too large>h
	ERR	IPP,<Non-existant UFD>
	ER(R	TRN,<RIB or traHnsmission error>
	ERR	ILC,<Illegal character in da(te/time>
	ERR	NFHT,<Date/time musth be in the future>
	ERR	NPS,<Date(/time must be in Hthe past>
	ERR	UhDM,<Unrecognized  month in date/tim (e>
	ERR	UDN,<Unr Hecognized name in h date/time>
	ERR!	IFA,<Illegal fil!(e attribute>
	ER!HR	FAI,<File attri!hbute inconsistanc"y>
	ERR	CEI,<Can"('t enable/disable"H interrupt system"h>
	ERR	ENF,<Link#ed list entry not#( found>
	ERR	NSL#H,<No such linked #hlist>
	ERR	NFP,<$No free pages>
	$(ERR	NPI,<No free $Hpages for IPCF reception>
CF reKKBP 
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` nY
	IFIDN <nyBC><>,<EXP <A>o>
	IFDIF <BC><o8>,<
	 IFE <A+1>oX,<<POINT 7,C>>
ox	 IFN <A+1>,<
	p   IFIDN <C><>,<p8EXP <A,B>>
	  pX IFDIF <C><>,<EXpxP <A,B,C>>
	>>A,B,C>>
	>Kc  wa@IRP A,<
x	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 M&`KW h@&J
	IFNB <.h`1235>,<
	PRINTX i.1235 (From GLXVEi R)
	> ;END IFNB .1235
	M&`Mt g&@
	PRINTX g GLXVER	GLXFIL Edig@t(127) by  on 20-g`Oct-86
	PRINTX	 h   	GLXFIL	Actual Edit(A)
	M&dYP +M2  <!b<<<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|  xANIRP A,<
xa	IF2,<IFDEF A,<.yIFN A,EXTERN,<INy TERN A>>
	     y@IFNDEF A,<EXTERNy` A>
	Q SUPPRESPA>>FlYSUPPRO3DYPFxO3EKrPfxO3EZ7PO3FI@ <StLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
SpSv>9Q,Sv>@pOSNn-XWP
	IFNB <IAB>,<..STR0 (.INCRI`0,,<B>,A)>
	IFJB  <B>,<AOS A>  <B>,<AOS A>S:HKW v'6
	IFNB <.v 2.1622>,<
	PRINTv@X .2.1622 (From Gv`LXVER)
	> ;END IFNB .2.1622
	S:HMt t@',
	PRINTX t`GLXVER	GLXINI Ediut(30) by  on 3-Ocu t-85
	PRINTX	   u@ 	GLXINI	Actual Edit(A)
	S:LYP 
S;k >av<<<A>B<POS(<B>)>>&<B>>S; KW x`'L
	IFNB <.y2.1622>,<
	PRINTy X .2.1622 (From Gy@LXVER)
	> ;END IFNB .2.1622
	S; Mt w 'B
	PRINTX w@GLXVER	GLXINT Ediw`t(120) by  on 3-Oxct-85
	PRINTX	  x   	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP (S? zP
	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 SBKW m`&t
	IFNB <.n1224>,<
	PRINTX n .1224 (From GLXVEn@R)
	> ;END IFNB .1224
	SBMt l &j
	PRINTX l@GLXVER	GLXIPC Edil`t(101) by  on 7-Omct-85
	PRINTX	  m   	GLXIPC	Actual Edit(A)
	SBYP  SBd+P&SBn	P&SBn
P&SBn
P&	SBnP&	SBnP&
SBn
P&
SB2P SB)iP&	SB)iP&SB)kVP&SB)kYP'SB)lXP&
SB)lsP&
SB)lxP&	SB)lyP&SPuxzQ @SR/
	LSTOF.	qYXCREF
	..TEXT<Aqx>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ 	"j

	  LST(iOF.

	X JNO,.JI)JNO,<-1,,GJBJNO>	)(
	X TNO,.JITNO,<)H-1,,GJBTTY>	
	X )hUSR,.JIUNO,.GTPPN*		
	X CDN,.JIDNO*(,<-1,,GJBPTH>	
	*HX PRG,.JIPNM,.GTP*hRG		
	X(CJN,.JIC+PJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.G+HTOBI		
	X JLT,.J+hISTM,.GTJLT		
	X, LOC,<-1,,GJBLOC>,(,<-1,,GJBLOC> 
	,HX RTM,.JIRT,<-1,,,hGJBRTM>	
	X TLC,-<-1,,GJBTLC>,<-1,-(,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-P U$vKP U$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
 KW {@'b
	IFNB <.{`2.1622>,<
	PRINT|X .2.1622 (From G| LXVER)
	> ;END IFNB .2.1622
	W
 Mt z'X
	PRINTX z GLXVER	GLXKBD Ediz@t(65) by  on 3-Ocz`t-85
	PRINTX	   { 	GLXKBD	Actual Edit(A)
	W
$YP WNH1 Y*
	IFB <Cy>,<
	XWD	[ASCIZ\ B\],A>
	IFNB < 8C>,<
	XWD	[EXP  XCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 I8

	  LSTiOF. XCREF

	CDO	OTSINI			
	CDO	(    			
	CDO	.ZPHAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CDO	.SAVE1
	CDO	.S(AVE2
	CDO	.SAVE3H
	CDO	.SAVE4
	ChDO	.SAVET
	CDO	.SV13
	CDO	.SV14
	CDO	.SV15
	CDOH	.SV16
	CDO	.REThT
	CDO	.RETF
	CDO	.RETE
	CDO	.A(OS		
	CDO	.SOS		H
	CDO	.ZERO		
	hCDO	.POPJ		
	CDO	.STOP		
	CDO	.S(AVE8		
	CDO	.STKHST		
	CDO	.TRSETh		
	CDO	.POPJ1		
	CDO	.UD2SC		
(	CDO	.SC2UD		
	CHDO	.CPUTY		
	CDOh
	CDO
	CDO

	CDO			
	CDO	C%RP(RM
	CDO	C%INTR
H	CDO	C%SEND
	CDOh	C%RECV
	CDO	C%BRCV
	CDO	C%REL
(	CDO	C%CPID
	CDOH	C%KPID
	CDO	C%ShPID
	CDO	C%MAXP
	CDO	C%PIDJ
	CD (O
	CDO
	CDO
	C HDO
	CDO

	CDO	 h      			
	CDO	F!%IOPN
	CDO	F%AOP!(N
	CDO	F%OOPN
	!HCDO	F%IBYT
	CDO	!hF%OBYT
	CDO	F%IB"UF
	CDO	F%OBUF
"(	CDO	F%REL
	CDO	"HF%DREL
	CDO	F%RR"hEL
	CDO	F%REW
	#CDO	F%POS
	CDO	F#(%CHKP
	CDO	F%INF#HO
	CDO	F%FD
	CD#hO	F%REN
	CDO	F%D$EL
	CDO	F%FCHN
$(	CDO
	CDO
	CDO
	CDO
	CDO
	CDO$h
	CDO
	CDO
	CD%O

	CDO	      	%(		
	CDO	M%ACQP
%H	CDO	M%RELP
	CDO%h	M%IPSN
	CDO	M%N&XPG
	CDO	M%IPRC
	CDO	M%IPRM
	CD&HO	M%AQNP
	CDO	M%&hRLNP
	CDO	M%CLNC'
	CDO	M%FPGS
	C'(DO	M%GMEM
	CDO	M'H%RMEM
	CDO
	CDO'h
	CDO
	CDO
	CD(O
	CDO
	CDO	M%G((PAG
	CDO	M%RPAG
	CDO
	CDO
	CDO(h
	CDO
	CDO
	CD)O
	CDO
	CDO

)(	CDO	      			
	)HCDO	T%TEXT
	CDO	)hT%TTY
	CDO
	CDO*
	CDO
	CDO
	CD*(O
	CDO
	CDO
	C*HDO
	CDO
	CDO
*h
	CDO	      			
+	CDO	L%CLST
	CDO+(	L%DLST
	CDO	L%C+HENT
	CDO	L%CBFR
	CDO	L%DENT
	CD,O	L%NEXT
	CDO	L%,(FIRS
	CDO	L%LAST,H
	CDO	L%PREV
	C,hDO	L%PREM
	CDO	L-%CURR
	CDO	L%REN-(T
	CDO	L%SIZE
	-HCDO	L%APOS
	CDO
	CDO
	CDO
	CDO.
	CDO
	CDO
	CD.(O
	CDO

	CDO		.H	
	CDO	I%NOW
	C.hDO	I%EXIT
	CDO	I/%ION
	CDO	I%IOFF/(
	CDO	I%SLP
	CD/HO	I%INT1
	CDO	I%/hINT2
	CDO	I%INT30
	CDO	I%TIMR
	C0(DO
	CDO
	CDO	I%0HSOPR
	CDO	I%WTO
	CDO
	CDO	I%HOS1T
	CDO	I%JINF
	1(CDO
	CDO

	CDO1H			
	CDO
	CDO	S1h%DATI
	CDO	S%SIX2B
	CDO	S%CMND
	2(CDO	S%TBLK
	CDO	2HS%SCMP
	CDO	S%ER2hR
	CDO	S%INTR
	3CDO	S%EXIT
	CDO	3(S%TBAD
	CDO	S%TB3HDL
	CDO	S%NUMI
3h

	CDO	K%RCOC		4	
	CDO	K%WCOC
	4(CDO	K%SUET
	CDO	4HK%STYP
	CDO	K%TX4hTI
	CDO	K%SOUT
5	CDO	K%BOUT
	CDO5(	K%BIN
	CDO	K%BA5HCK
	CDO	K%TPOS
5h	CDO	K%BUFF
	CDO6	K%FLSH
	CDO	K%O6(PEN
	CDO
	CDO
6H	CDO
	CDO
	CDO
	CDO
	CDO
	CDO7
	CDO
	  LSTON.
  
	  LSTON.Y:XKW ~ 'x
	IFNB <.[email protected]>,<
	PRINT~`X .2.1622 (From GLXVER)
	> ;END IFNB .2.1622
	tY:XMt |`'n
	PRINTX }GLXVER	GLXLNK Edi} t(20) by  on 3-Oc}@t-85
	PRINTX	   }` 	GLXLNK	Actual Edit(A)
	SBKWY:\YP Y>
@ Ba
	IFNB <CC>,<..STR0 (..LDBC ,A,C,B)>
	IFBC@  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG {ah
	IFNDEF |LSTIN.,LSTIN.==0	| 	
IFE LSTIN.,<
|@	IFIDN <XCREF><A|`>,<.XCREF>	
		  } XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G }Ar
	IFG LST}aIN.,LSTIN.==LSTIN~.-1	
	IFLE LSTIN~ .,<.CREF		
		      LIST>
		   [KW p@'

	IFNB <.p`1224>,<
	PRINTX q.1224 (From GLXVEq R)
	> ;END IFNB .1224
	[Mt o'
	PRINTX o GLXVER	GLXMAC Edio@t(266) by  on 7-Oo`ct-85
	PRINTX	  p  	GLXMAC	Actual Edit(A)
	[YP [[3@ >!r<<<1_<A>>-1>B<B>>_<A>>[8@ =!j1B<<A>-1>-1B<B><<A>-1>[@ 		$
	IFB <B)>,<MAXSIZ==0
		IHRP A,<IFG <A-MAhXSIZ>,<MAXSIZ==A>>>
	IFNB <B>,<(B==0
		IRP A,<HIFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
QP'[v:Q[vxQ [[v[lp [lp [lXp [lrp [ltp [lxp [l}p [hKW k&^
	IFNB <.k 1233>,<
	PRINTX [email protected] (From GLXVEk`R)
	> ;END IFNB .1233
	[hMt i@&T
	PRINTX i`GLXVER	GLXMEM Edijt(46) by  on 1-Apj r-86
	PRINTX	   j@ 	GLXMEM	Actual Edit(A)
	[lYP [n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 		8
	IFB <B)>,<MINSIZ==377777H,,777777
		IRP hA,<IFG <MINSIZ-A>,<MINSIZ==A>>>
	IFNB <B>,<B==H377777,,777777
	h	IRP A,<IFG <B-A>,<B==A>>>
A>,<B==A>>>
[>!`=an<A-<A/B>*B><A-<A/B[>wP&
\
   ..MX1?A==B			
IFDEF .P?`SECT,<
   .IFN .@.MX1,ABSOLUTE,<
@ 	MOVE A,[B]>
 @@  .IF ..MX1,ABSOL@`UTE,<
	..MX2==0	A	
	IFE <..MX1>B5A 3,<
	[email protected]==1
	  MOVEI A,..MXA`1>	
	IFE ..MX2,<B		
	IFE <..MX1>BB 17,<
	  ..MX2==1B@
	  MOVSI A,(..B`MX1)>>	
	IFE ..MCX2,<		
	IFE <<..C MX1>B53-^O777777>C@,<
	  ..MX2==1
C`	  HRROI A,<..MXD1>>>	
	IFE ..MX2D ,<		
	IFE <<..MXD@1>B17-^O777777B17D`>,<
	E..MX2==1
	  HRLOI A,(..ME X1-^O777777)>> 
E@	IFE ..MX2,<		
	E`  MOVE A,[..MX1]F>	
	>>

IFNDEFF  .PSECT,<
	..MX2F@==0		
	IFE <..MXF`1>B53,<
	  ..MX2G==1
	  MOVEI A,G ..MX1>	
	IFE ..MG@X2,<		
	IFE <..MG`X1>B17,<
	  ..MXH2==1
	  MOVSI AH ,(..MX1)>>	
	IFEH@ ..MX2,<		
	IFE H`<<..MX1>B53-^O777I777>,<
	  ..MX2=I =1
	  HRROI A,<[email protected]>>>	
	IFE .I`.MX2,<		
	IFE <<J..MX1>B17-^O77777J 7B17>,<
	  ..MX2J@==1
	  HRLOI A,J`(..MX1-^O777777)>K> 
	IFE ..MX2,<	K 	
	  MOVE A,[..K@MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= AN
	A==C	a	
	IF1,<IFDEF %A,<PRINTX ?A ALR EADY DEFINED>>
	@DEFINE %A (OP,AC`,Y,MSK)<	
	IFDIF	 <Y><>,<
	OP (<A	 C>,B+'Y,MSK)>
		@IFIDN <Y><>,<
	O	`P.(<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg WA
2P ] u'IF2,<IFDEFty A,<A==A>> IFNDEF A,<A==B>]F@ %=TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= 4#]

	X	.OTIRDR,Reader
	X	.O(ITNCU,Network-Cont41roller
	X	.OTLPT3q,Printer
	X	.OTB51AT,Batch-Stream
5P	X	.OTCDP,Card-Pu5pnch
	X	.OTPTP,Pa6pertape
	X	.OTPL60T,Plotter
	X	.OT6PJOB,Job
	X	.OTTR6pM,Terminal
	X	.O7TOPR,Operator
	X70	.OTIBM,<IBM Remo7Pte>
	X	.OTMNT,<D7pevice>
	X	.OTFTS8,<File Transfer>
	X	.OTBIN,<Card 8PReader Interprete8pr>
	X	.OTRET,<Fi9le Retrieval>
	X90	.OTNOT,<Retrieva9Pl Notification>
9p	X	.OTDBM,<DBMS S:ystem>
	X	.OTFAL:0,<File Access Lis:Ptener>
;**;[237]:pAdd 1 line after ;.OTFAL   DRB  1/1;01/85
	X	.OTSNA,<;PSNA Workstation>
Workstation>
	IFNB <. 2.1622>,<
	PRINT@X .2.1622 (From G`LXVER)
	> ;END IFNB .2.1622
	_SMt @(
	PRINTX `GLXVER	GLXOTS Edit(15) by  on 3-Oc t-85
	PRINTX	   @ 	GLXOTS	Actual Edit(A)
	_SYP _Sh6 DY$% [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 Dy$\

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

  EY IFNB <D>,<..XX=F	..XX!CM%HPP> 
  F( IFNB <E>,<..XX=FH..XX!CM%DPP> 

Fh	EXP ..XX		

  G IFNB <C>,<EXP G(C>
   IFB <C>,<GHEXP 0>

   IFNBGh <D>,<POINT 7,[AHSCIZ \D\]>
   IH(FB <D>,<0>

IHH IFNB <E>,<POINTHh 7,[ASCIZ \E\]>
I(IFB <E>,<0>



   IFB <IIH>,<0>
   IFNB <IhI>,<EXP I>

  J IFB <J>,<0>
  J( IFNB <J>,<EXP JHJ>

   IFB <H>Jh,<0>
   IFNB <HK>,<EXP H>

   K(IFB <G>,<0>
   KHIFNB <G>,<EXP G>

G>,<EXP Ga@KW 	 (N
	IFNB <>	@,<
	PRINTX  (Fro	`m GLXVER)
	> ;END IFNB 
	a@Mt `(F
	PRINTX GLXVER	GLXPFH Edi t(16) by TARL on @17-Apr-81
	PRINT`X	    	GLXPFH	Actual Edit(A)
	aDYP a 7I<LSH A,^D9LSH A,^D9a+= 5a;&  )2
	 IFB  <IB>,<..STR0(..PNTh,,<FWMASK>,A)>
	 IFNB <B>,<..ST(R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm ;A^<POINT WID;a(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 9AL<^L<<A>&<-<A>>>><<A>&<aJ}Ks tY	


	SALL					
	LSTOF. XCRE(F			

	%%.GLX==H%%.GLX			
	GLXVRhS==GLXVRS			

	IFNB <A>,<%%.MOD(==SIXBIT/A/> 
	HIFNB <B>,<%%.OTSh==SIXBIT/B/> 

	GLOB	I%INIT			

	TOPS10	<			
H		SEARCH	UUOSYM		h
		%%UUOS==%%UUOS		
	>				

	T(OPS20	<			
		SEAHRCH	MONSYM		
;		h%%MONS==%%MONS		
	>				

	IFB <(B>,<			
		.TEXTH	|,REL:GLXLIB/SEAhRCH/REQUIRE:I%INIT|
		DEFINE	$DAT(A (NAM,SIZ<1>),< H
			NAM:	BLOCK	ShIZ
		>			
		DEFINE	CDO (X),<GLOB( X> 
		LIBVEC			H
	>				

	IFNBh <B>,<CHKEDT (B)>	

	IFNB <B>(,<IFDIF <B><INI>H,< 
		IFN GLXPURhE,<.PSECT .HIGH.> 
		IFE GLXPURE,(<		
			TWOSEG	40H0000	
			RELOC	0h	
			RELOC	400000	
		>			

		D(EFINE $DATA(NAM,SHIZ<1>),< 
			IFNh GLXPURE,<.PSECT 	DATA> 
			IFE GL	(XPURE,<RELOC> 
		H		IFNDEF B%D,<B	h%D::! B%DL==:0>

			NAM:	BLOCK	SI
(Z
			B%DL==:B%
HDL+SIZ 
			IFN G
hLXPURE,<.ENDPS DATA> 
			IFE GLXP(URE,<RELOC> 
		>H			

		IFDIF <hB><OTS>,<	
			DE
FINE	CDO (X),<GLO
(B X> 
			LIBVEC	
H	
		>			

	>>	
h			

	IFNBI<B>B><INI>
		DEFINE	$DA1>),<
			NAM:	BLOCK	SIZ
		>			
	>>	(			

	LSTON.			H	

	GLOB	<.POPJh, .RETT, .RETF>	
	OPDEF	$RET	[POP(J	P,]	
	OPDEF	$RHETT	[PJRST	.RETT]h	
	OPDEF	$RETF	[PJRST	.RETF]	
	O(PDEF	$RETIT	[JUMPHT	.POPJ]	
	OPDEFh	$RETIF	[JUMPF	.POPJ]	
	.NODDT	$R(ET,$RETT,$RETF,$RETIT,$RETIF
$RaPtP aPtkP aPuTP aPv\rP e"luP'ePv8vP ePv9VP ePv;P fDP fHP gkp gk9p glp glp gltp gl}p gpKW `($
	IFNB <.2.1622>,<
	PRINT X .2.1622 (From G@LXVER)
	> ;END IFNB .2.1622
	gpMt  (
	PRINTX @GLXVER	GLXSCN Edi`t(105) by  on 3-Oct-85
	PRINTX	     	GLXSCN	Actual Edit(A)
	gtYP "g"@ ba&
	IFN <<.c.TA>&B>,<PRINTXc  ?Initial field nc@ot zero in $SET>
	d..TVAL==<C>
	d ..TMSK==<B>
	  ..TA==..TA!d@<FLD(..TVAL,..TMSd`K)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@ZY%UC.SWIT+PDBCPY##C.SWIT+PDBg$tkQ=@g$uP'g$uh6Q  g.N	@ 6@g.N
.SPID	(S=yP.QSR,.IPCPQ,.SPQ>SR,QUASAR)	
.SPI>8D	(SP.OPR,.IPCPO,>X.SPOPR,ORION)	
.>xSPID	(SP.INF,.IPC?PI,.SPINF,INFO)	
.SPID	(SP.MDA,.I?XPCPM,.SPMDA,MDA)	?x
TOPS10<
.SPID	@(SP.IPC,.IPCPS,,I@8PCC)		
.SPID	(SP@X.ACT,.IPCPA,,ACTD@xAE)		
.SPID	(SP.ATLP,.IPCPT,,TAPLAA8B)		
.SPID	(SP.TAXOL,.IPCPC,,TAPAVRAx)		
.SPID	(SP.DOBL,.IPCPD,,DSKAVR)B8		
.SPID	(SP.FILBX,.IPCPF,,FILDAE)		
>
,FILDAE)	gR^h9 a
	..STKR= =10		
	RADIX 8
  	..STKN==0
	IRP  @A,<
	  .STKV1 ( `A)>
	$CALL	.STK!ST
	 ..STKN,,..S! TKN
	RADIX ..STK!@R
	PURGE ..STKN,!`..STKR,..STKQ
   TKR,..STKQ
  gR~)  F6
	IFNB <F!C>,<..STR0 (..DPBF@,A,C,B)>
	IFBF`.A<C>,<MOVEMSA,B>>,<MOVEM A,gV VA
V i	
	IFNB <	B>,<TOPS10<A==B(>>
	IFNB <C>,<THOPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( tA/$IFN FTUUOS,B			;DEFINE UNi?4H u/(IFN FTJSYS,	INTERN AEDT	iD |9o

  IFNB|Y	<A>,<.TQCHA==^|xD<B>B17+ZZ>
  I}FNB 	<D>,<DEFINE}8 ..TQMA<D>>
  }XIFNB	<C>,<.TQC=}x=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, r9_
	LSTOF.
	TQ(T,2,ASCIZ)		rx	
	TQ(O,2,OCTAL)s			
	TQ(D,2,DECIs8MAL)			
	TQ(F,2,sXFILE)			
	TQ(7,2sx,CSEVEN)			
	TQ(t6,2,CSIXBIT)			
t8	TQ(W,2,SIXBIT)		tX	
	TQ(5,2,SVNBITtx)			
	TQ(P,2,USEuR)			
	TQ(U,2,DIu8RECTORY)			
	TQ(uXH,2,DAYTIME)			
ux	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		v8	
	TQ(I,1,INDIREvXCT)		
	TQ(M,0,CRvx,..TXC0(\".CHCRT)w)	
	TQ(J,0,LF,..w8TXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCwx0(\".CHFFD))	
	TxQ(K,0,VT,..TXC0(\x8".CHVTB))	
	TQ(AxX,0,NOCRLF,..TXA(.xxTQCHA))	
	TQ(0,0y,NULL,..TXA(.TQCHy80))	
	TQ(3,0,STRyXING,..TXER(IQU))	yx
	TQ(V,2,VERSIONz)			
	TQ(2,0,CARz8ET,..TXER(IQU))	
	TQ(Q,2,POINTER)zx			
	TQ(B,2,ROB){			
	TQ(1,2,OBJE{8CT)			
	TQ(N,2,N{XODE)			
	TQ(R,2,{xJIB)			
	LSTON.
)			
	LSTON. i#
	LSTOF.
	X(33,TTY33,33,).)				
	X(35,TTY35.i,35,)				
TOPS20.I<
	X(37,TTY37,37/,)				
	X(EXECUP/0ORT,EXEC,EXE,)			/P
>
TOPS10<
	X(/pLA120,LA120,L12,)0			
>
	X(LA36,L00A36,L36,)			
	X(0PVT05,VT05,V05,<370p,177,177,177>)	
1	X(VT100,VT100,10100,<.CHESC,"[","K"1P>)	
	X(VT50,VT501p,V50,<.CHESC,"J">2)		
	X(VT52,VT5220,V52,<.CHESC,"J">2P)		
TOPS10<	X(VT2p61,VT61,V61,<.CHE3SC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ &!@
	..TRR==&A10		
	RADIX 8
	&`..NV==1			
	IRP 'A,<
	  .TRV1 (' A)>		
	$CALL	.TR'@SET		
	 ..NV-1,,'`..NV-1
	RADIX ..(TRR		
	PURGE ..TRR,..NVURGE ..Tib oA|
		..TX(C,A,<B>)..TX(Cib q
		..TX(CA,A,<B>).TX(CibP p
		..TX(CE,A,<B>).TX(Cib` pA
		..TX(CN,A,<B>).TX(Cibp iAL
		..TX(N,A,<B>)..TX(Nibt kX
		..TX(NA,A,<B>).TX(NibtP jP
		..TX(NE,A,<B>).TX(Nibu` jAT
		..TX(NN,A,<B>).TX(Nibx kA\
		..TX(O,A,<B>)..TX(Oib| mh
		..TX(OA,A,<B>).TX(Oib|P l`
		..TX(OE,A,<B>).TX(Oib}` lAd
		..TX(ON,A,<B>).TX(Oic KW @(:
	IFNB <.`2.1622>,<
	PRINTX .2.1622 (From G LXVER)
	> ;END IFNB .2.1622
	ic Mt (0
	PRINTX  GLXVER	GLXTXT Edi@t(70) by  on 3-Oc`t-85
	PRINTX	    	GLXTXT	Actual Edit(A)
	ic!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 ic$YP icP mAl
		..TX(Z,A,<B>)..TX(ZicT ox
		..TX(ZA,A,<B>).TX(ZicTP np
		..TX(ZE,A,<B>).TX(ZicU` nAt
		..TX(ZN,A,<B>).TX(ZmKc@ u!vBYTE (3)A~aWHO (9)AVER (6)AMIN (18)AEDTo&  9H<^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<ukrP o<uxUP o<uxrP o<vNP o<vN8P p -I"l
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +
q+= +
q6~i4 C q? {X
	TXC A,<B>
	TXC A,q@ w:IFB <C>,<w!A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up O!
	IFNB <OAB>,<..STR1 (..TQZO`,,<B>,A,..STR4)P>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z Y)]
	.$RESETy
	$TYPE (.CMACT)
	$HELP (<>)
	$8NEXT (A)
IFIDN X<B> <>,< IRP C,x<C>
			.$BUILD>
IFDIF <B> <>,<8
	$HELP (B)
	IXRP C,<C>
	.$BUILD><C>
	.$BU	0 ci"
.WTOX.(.OMd	ACK,<A>,<B>,<Cd(>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 V1%5DEFINE .$RVQTN <A>
			.%RTN==1A>
			.%RTN	fI9Q1%A+1>
			.%LST==11>
			.%L	
=Z Sa&
	  IFG TA-INT.LV,<PRINTX T ?Level A interruT@pts not supportedT`>
	  .BGINT.(\A)   .BGINT.(\A	X5 SQ%DEFINE .$BSqREA <A>
			.%BREA==1>
			.%BR	- VAD
	  IFDEFVa ..BSIZ,<PRINTX ?WMissing $EOB afteW r a $BUILD>
	  .[email protected]==0			
	  .W`.BLOC==.			
	  RXEPEAT A,<			
		X BLD0.(\..BSIZ,0)	X@
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 9()
	.$RESETY
	$TYPE (.CMCMA)x
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$BU	I@ y(
	.$RESET
	$TYPE (.CMCFM)8
	IRP A,<A>
	.$BUILD,<A>
		$^ 
Y(e
	.$RESET
y
	$TYPE (.CMTXT)
	$HELP (<>)
	$8NEXT (A)
IFIDN X<B> <>,< IRP C,x<C>
			.$BUILD>

IFDIF <B> <>,<
8
	$HELP (B)
	I
XRP C,<C>
	.$BUILD><C>
	.$BU	I  
	.$RESET
	$TYPE (.CMTAD)
	$PDATA (CM%IDA
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$B	,,U Ua0
	  $RET	V			;WILL INVOKE RIGHT ROUTINE
		,h: OQ%DEFINE .$DOqEFM <POINT 7,[ASCPIZ\A\]>
			.%DEFM==1>
			.%DE	.` 	9(Q
	.$RESET	Y
	$TYPE (.CMDEV)	x
	$NEXT (A)
	I
RP B,<B>
	.$BUILD,<B>
	.$BU	Lz: o9'
	.$RESEToY
	$TYPE (.CMNUX)ox
	$PDATA (B)
	p$HELP (<>)
	$NEXp8T (A)
IFIDN <CpX> <>,< IRP D,<Dpx>
			.$BUILD>
IqFDIF <C> <>,<
	q8$HELP (C)
	IRP qXD,<D>
	.$BUILD><D>
	.$BUILD	N  y(
	.$RESET
	$TYPE (.CMDIR)8
	$NEXT (A)
	IXRP B,<B>
	.$BUILD,<B>
	.$BU	|  ]A
	  IFNDE]aF ..BSIZ,<PRINTX ^?$EOB without pre^ vious $BUILD>
	 ^@ IFN <.-..BLOC>,<^`PRINTX ?Address c_hange between $BU_ ILD and $EOB>
	 _@ LSTOF.			
	  .._`T==0
	  REPEAT .`.BSIZ,<
	    BLD` 0.(\..T,1)		
	  `@  ..T==..T+1 >
	``  PURGE ..BSIZ,..aT,..BLOC	
	  LSTON.
		
	  LST	+y Rq%DEFINE .$ESRTN <A>
			.%ERTN==1>
			.%ER	, T1%%DEFINE .$ETQRTN <1B0+A+1>
			.%ERTN==1>
		- U%/DEFINE .$EU1RTN <[MOVEI S2,[AUPSCIZ\A\]
				  Up    $RETF]>
			.%ERTN==1>
			.	H6 g9C
	$CALL	.gYSTOP
	LSTOF.
	JgxUMP	[XWD 0,[ITEXTh (<A>)]
		 EXP h8%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ ~9(
	.$RESET~Y
	$TYPE (.CMFLD)~x
	$NEXT (A)
	$HELP (<>)
IFIDN 8<B> <>,< IRP C,X<C>
			.$BUILD>x
IFDIF <B> <>,<
	$HELP (B)
	I8RP C,<C>
	.$BUILD><C>
	.$BU	MI  {y'o
	.$RESET|
	$TYPE (.CMFIL)|8
	$HELP (<>)
	$|XNEXT (A)
IFIDN |x<B> <>,< IRP C,}<C>
			.$BUILD>}8
IFDIF <B> <>,<}X
	$HELP (B)
	I}xRP C,<C>
	.$BUILD><C>
	.$BU	dy Lq$iDEFINE .$FMLGS <A>
			.%FLGS==1>
			.%FL	ex: y(G
	.$RESET
	$TYPE (.CMFLT)8
	$HELP (<>)
	$XNEXT (A)
IFIDN x<B> <>,< IRP C,<C>
			.$BUILD>8
IFDIF <B> <>,<X
	$HELP (B)
	IxRP C,<C>
	.$BUILD><C>
	.$BU	$ fI7P
	  INTERfyN A
	  $DATA(A,<B>)
	ATA(A/}01		"
	IFDIF <NQA> <>,<
DEFINE Np.$HLPM <POINT 7,[OASCIZ\A\]>
			.%HLPM==1>
			.	&5 vy'G
	.$RESETw
	$TYPE (.CMIFI)w8
	$HELP (<>)
	$wXNEXT (A)
IFIDN wx<B> <>,< IRP C,x<C>
			.$BUILD>x8
IFDIF <B> <>,<xX
	$HELP (B)
	IxxRP C,<C>
	.$BUILD><C>
	.$BU	&u Y(3
	.$RESETy
	$NEXT (A)
	$TYPE (.CMINI)
	I8RP B,<B>
	.$BUILD,<B>
	.$BU	./ k&a
	.$RESETk9
	$TYPE (.CMKEY)kX
	$PDATA (B)
	kx$NEXT (A)
	IRP lC,<C>
	.$BUILD,<C>
	.$BUILD	./ iY&U
	.$RESETiy
	$TYPE (.CMKEY)j
	$PDATA (A)
	j8$NEXT (0)
	IRP jXB,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDfI6.WTOX.(.OMfiWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p ei0.WTOX.(.OMf	LOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV y)I
	.$RESET
	$TYPE (.CMNOD)8
	$HELP (<>)
	$XNEXT (A)
IFIDN x<B> <>,< IRP C,<C>
			.$BUILD>8
IFDIF <B> <>,<X
	$HELP (B)
;	x$FLAGS (CM%PO)
	IRP C,<C>
	.$BUILD><C>
	.$B	:}r r'
	.$RESETr9
	$TYPE (.CMNOI)rX
	$PDATA (<POINTrx 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRs8P C,<C>
	.$BUILD,<C>
	.$BUI	;-XR lY&w
	.$RESETly
	$TYPE (.CMNUM)m
	$PDATA (B)
	m8$HELP (<>)
	$NEXmXT (A)
IFIDN <Cmx> <>,< IRP D,<Dn>
			.$BUILD>
In8FDIF <C> <>,<
	nX$HELP (C)
	IRP nxD,<D>
	.$BUILD><D>
	.$BUILD	>5 y9'[
	.$RESETyY
	$TYPE (.CMOFI)yx
	$NEXT (A)
	$zHELP (<>)
IFIDN z8<B> <>,< IRP C,zX<C>
			.$BUILD>zx
IFDIF <B> <>,<{
	$HELP (B)
	I{8RP C,<C>
	.$BUILD><C>
	.$BU	B$ MQ$oDEFINE .$DMqATA <A>
			.%DATA==1>
			.%DA	B$YP PQ%DEFINE .$DPqEFM <POINT 7,<A>>
			.%DEFM==1	CYT W%;DEFINE .$DW1EFR <A>
			.%DEFR==1>
			.%DE	G-} Y)
	.$RESETy
	$TYPE (.CMQST)
	$HELP (<>)
	$8NEXT (A)
IFIDN X<B> <>,< IRP C,x<C>
			.$BUILD>
IFDIF <B> <>,<8
	$HELP (B)
	IXRP C,<C>
	.$BUILD><C>
	.$BU	J.I  e).
	  $CALLeI	.RETE			
		LSTOehF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  0A
	.NVR==00a			
	.ACM==0			

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

	IFN .A3`CM,<	
	    IFE <4.ACM-17B<T4>>,<.A4 CM==0
				$CALL [email protected]>
	    IFE4` <.ACM-377B<.A16>5>,<.ACM==0
				$5 CALL .SAVE8>
	  5@  IFE <.ACM-17B<P5`4>>,<.ACM==0
			6	$CALL .SAVE4>
	6     IFE <.ACM-7B<6@P3>>,<.ACM==0
		6`		$CALL .SAVE3>
7	    IFE .NVR,<	
	    IFE <.ACM-37@B<P2>>,<.ACM==0
7`				$CALL .SAVE2>8
	8@  IFE <.ACM-8 1B<P1>>,<.ACM==0
				$CALL .SAVE18`>
	    IFE <.ACM9-1B<.A13>>,<.ACM=9 =0
				$CALL .SV9@13>
	    IFE <.A9`CM-1B<.A14>>,<.AC:M==0
				$CALL .: SV14>
	    IFE <:@.ACM-1B<.A15>>,<.:`ACM==0
				$CALL; .SV15>
	    IFE;  <.ACM-1B<.A16>>,;@<.ACM==0
				$CA;`LL .SV16>
	    ><>

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

	    .ACB=== 0			
	REPEAT ^D1=@6,<			
	    IFN =`<.ACM&1B<.ACB>>,<>	
		..PUSH(\.ACB> ,\<.NVR+1>)>
		.>@ACB==.ACB+1>>		
>`
	IFN .NVR,<	
	?    PUSH P,[[CAIA? 		
		     AOS -.?@NVR(P)	
	    REP?`EAT .NVR,<..POP(\@.NVR)>	
		     P@ OPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ YX
	  IFNDEY!F ..BSIZ,<PRINTX Y@?$SET without preY`vious $BUILD>
	 Z IFNB <B>,<..STRZ 0 (..SET,<C>,B,Z@A)>
	IFB  <BZ`>,<..STR0 (..SET,[<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
!9	XWD b-1,b-1
	!XDEFINE $ETAB <
		b==.-a> <
		O%| kYe
S..A::!ky	$CALL .STOP
		LlSTOF.
		JUMP [XWl8D 'A',[ITEXT (<lXB>)]
			EXP %%.MOD]
		LSTON.	M	O= u9'3
	.$RESETuY
	$TYPE (.CMSWI)ux
	$PDATA (A)
	v$NEXT (0)
	IRP v8B,<B>
	.$BUILD,<B>
	.$BUILD	O= sy''
	.$RESETt
	$TYPE (.CMSWI)t8
	$PDATA (B)
	tX$NEXT (A)
	IRP txC,<C>
	.$BUILD,<C>
	.$BUILD	R
@ )	
	.$RESET9
	$TYPE (.CMTAD)X
	$PDATA (<CM%IDxA!CM%ITM>)
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	Tm9%TEXT
	LSTOF.	XCmXREF
	JUMP	[XWD 2mx,0
		 EVL (A)
n		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESETy
	$TYPE (.CMTAD)
	$PDATA (CM%ITM8)
	$NEXT (A)
	XIRP B,<B>
	.$BUILD,<B>
	.$B	R}97 )k
	.$RESET9
	$TYPE (.CMTOK)X
	$PDATA (<POINTx 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR8P C,<C>
	.$BUILD,<C>
	.$BUI	S u


  ..TX)A(.TQA,C,D,E,~9B)	
      IFN .~y.TXEF,<			
	..TE~YRR<$TQ(A,B,C,D,E)>>

C,	S@I9 	`
	LSTOF.
	X(UQU,Unknown qHualifier)
	X(IQUh,Invalid qualifier)
	X(IJA,Invali(d justification aHrgument)
	X(IWA,hInvalid width argument)
	X(PEA,Pr(emature end of arHgument)
	X(JNA,Jhustification is not allowed)
	X(A(NA,Arguments are Hnot allowed)
	X(hADS,Address must be specified)
	LSTON.
ied)
	L	SN	  L$cDEFINE .$TL1YP <A>
			.%TYPE==1>
			.%TYP	W= )3
	.$RESET9
	$TYPE (.CMUQS)X
	$HELP (<>)
	$xNEXT (A)
	$PDATA (B)
IFIDN <C8> <>,< IRP D,<DX>
			.$BUILD>
IxFDIF <C> <>,<
	$HELP (C)
	IRP 8D,<D>
	.$BUILD><D>
	.$BUILD	W\@ (
	.$RESET9
	$TYPE (.CMUSR)X
	$NEXT (A)
	IxRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ hyY
IFE %%.OiTS,<DEFINE $WARN i8(MSG) <
		$TEXT iX(T%TTY,<% ^W6/[%%ix.MOD]/ MSG>)>>
IjFN %%.OTS,<DEFINEj8 $WARN (MSG) <
	jX	$TEXT (T%TTY,<% jx^W6/IIB+IB.PRG/ ^kW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r WiP
		IFB	<X	A>,<.WFACD==0
		X(	IFN <0-2>,<.$WACXHD==0>>
		IFNB	<XhA>,<.WFACD==-1
	Y		IFN <0-2>,<.$WAY(CD==.$WACD!<A>>
			IFE <0-2>,<DEYhFINE .$WACD,<<WO.ZACD>B8+[ITEXT (<A>)]>>
		>
<	_$u Lix
		IFB	<M	A>,<.WFACK==0
		M(	IFN <0-2>,<.$WACMHK==0>>
		IFNB	<MhA>,<.WFACK==-1
	N		IFN <0-2>,<.$WAN(CK==.$WACK!<A>>
			IFE <0-2>,<DENhFINE .$WACK,<<WO.OACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ >I
	IFE	<.W>iFMTY>,<PRINTX ?No? message type in ?($WTBLD>
DEFINE .?HEAWTO(SUFFIX,ARGC?hOD),<
IFN .WF'SU@FFIX',<
	IFE	<AR@(GCOD-0>,<<WO.'SUF@HFIX'>B8+ .$W'SUFF@hIX'>
	IFE	<ARGCOAD-1>,<<WO.'SUFFIX`h'>B8+ [EXP .$W'SUaFFIX']>
	IFE	<ARa(GCOD-2>,<.$W'SUFFaHIX'>
>
>
	ALLWahTO				
	EXP	0			
		
	EXP	0				_$k OI
		IFB	<OiA>,<.WFFLG==0
		P	IFN <1-2>,<.$WFLP(G==0>>
		IFNB	<PHA>,<.WFFLG==-1
	Ph		IFN <1-2>,<.$WFQLG==.$WFLG!<A>>
			IFE <1-2>,<DEQHFINE .$WFLG,<<WO.QhFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W U	:
		IFB	<U)A>,<.WFJBN==0
		UH	IFN <0-2>,<.$WJBUhN==0>>
		IFNB	<VA>,<.WFJBN==-1
	V(		IFN <0-2>,<.$WJVHBN==.$WJBN!<A>>
			IFE <0-2>,<DEWFINE .$WJBN,<<WO.W(JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV ])|
		IFB	<]IA>,<.WFMFL==0
		]h	IFN <1-2>,<.$WMF^L==0>>
		IFNB	<^(A>,<.WFMFL==-1
	^H		IFN <1-2>,<.$WM^hFL==.$WMFL!<A>>
			IFE <1-2>,<DE_(FINE .$WMFL,<<WO._HMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] Ai 
		IFB	<B	A>,<.WFMTY==0
		B(	IFN <0-2>,<.$WMTBHY==0>>
		IFNB	<BhA>,<.WFMTY==-1
	C		IFN <0-2>,<.$WMC(TY==.$WMTY!<A>>
			IFE <0-2>,<DEChFINE .$WMTY,<<WO.DMTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr R)$
		IFB	<RIA>,<.WFNOD==0
		Rh	IFN <0-2>,<.$WNOSD==0>>
		IFNB	<S(A>,<.WFNOD==-1
	SH		IFN <0-2>,<.$WNShOD==.$WNOD!<A>>
			IFE <0-2>,<DET(FINE .$WNOD,<<WO.THNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p b).WTOX.(.OMbIWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU J	b
		IFB	<J)A>,<.WFOBJ==0
		JH	IFN <0-2>,<.$WOBJhJ==0>>
		IFNB	<KA>,<.WFOBJ==-1
	K(		IFN <0-2>,<.$WOKHBJ==.$WOBJ!<A>>
			IFE <0-2>,<DELFINE .$WOBJ,<<WO.L(OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr ZIf
		IFB	<ZiA>,<.WFOCD==0
		[	IFN <0-2>,<.$WOC[(D==0>>
		IFNB	<[HA>,<.WFOCD==-1
	[h		IFN <0-2>,<.$WO\CD==.$WOCD!<A>>
			IFE <0-2>,<DE\HFINE .$WOCD,<<WO.\hOCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ di*.WTOX.(.OMe	WTO,<A>,<B>,<Ce(>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ c	
.WTOX.(.OMc)WTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z AI
	DEFINE	A).EAWTO(SUFFIX),<$`	WT'SUFFIX'	<>>
	ALLWTO				

		_&N G)L
		IFB	<GIA>,<.WFTXT==0
		Gh	IFN <2-2>,<.$WTXHT==0>>
		IFNB	<H(A>,<.WFTXT==-1
	HH		IFN <2-2>,<.$WTHhXT==.$WTXT!<A>>
			IFE <2-2>,<DEI(FINE .$WTXT,<<WO.IHTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 DI6
		IFB	<DiA>,<.WFTYP==0
		E	IFN <2-2>,<.$WTYE(P==0>>
		IFNB	<EHA>,<.WFTYP==-1
	Eh		IFN <2-2>,<.$WTFYP==.$WTYP!<A>>
			IFE <2-2>,<DEFHFINE .$WTYP,<<WO.FhTYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP [.
P .JP .bP /P B&@P cGP )0 %M0KJ%i"Z6 `Y&I			

	d`y==<FLD(.$TYP,CM%FaNC)>!.$FLGS!<.$LSa8T> 

	IFN <.%BRaXEA>,<d==d!CM%BRaxK> 

	IFN <.%HLbPM>,<d==d!CM%HPb8P!CM%SDH> 
					bX	

	IFN <.%DEFMbx>,<d==d!CM%DPP>c 

c:!	XWD	b,c8a			

	EXP d	cX			

	EXP .$DATcxA			

IFN <.%HLdPM!.%DEFM!.%BREA>d8,<
		EXP	.$HLPM>dX		


IFN <.%DEdxFM!.%BREA>,<
		EeXP	.$DEFM>		

e8
IFN <.%BREA>,<	EeXXP	.$BREA>		

	exa==.-c			;LENGTfH OF THE FDB

If8FN <.%NXT!.%DEFR!fX.%RTN!.%ERTN>,< EfxXP .$NXT >	

IFgN <.%DEFR!.%RTN!.g8%ERTN>,<EXP .$RTNgX >	

IFN <.%DEFgxR!.%ERTN>,<	EXP	.h$ERTN>	

IFN <.h8%DEFR>,<		EXP	.$DhXEFR>	


	b==.hx-c			

	IF2<	PiURGE a,b,c,d>
	LISTb,c,d>$YVJXQ%EPOINT7,[ASCIZ\0\]NT 7,[A$YY %Q0KJ&m.- %K0KJ%b5Iy %A0	KJIBf= %G0+1KJ$\Bw
	SALL
	[9XLIST
	DEFINE .$[XTYP <0>
	.%TYPE=[x=0
	DEFINE .$FLG\S <0>
	.%FLGS==0\8
	DEFINE .$DATA \X<0>
	.%DATA==0
\x	DEFINE .$HLPM <>]
	.%HLPM==0
	DE]8FINE .$DEFM <0>
]X	.%DEFM==0
	DEFI]xNE .$LST <0>
	.%^LST==0
	DEFINE .^8$BREA <0>
	.%BRE^XA==0
	DEFINE .$N^xXT <0>
	.%NXT==0_
	DEFINE .$ERTN _8<0>
	.%ERTN==0
_X	DEFINE .$RTN <0>_x
	.%RTN==0
	DEF`INE .$DEFR <0>
	.%DEFR==0<0>
	K@%O0KJ&I"'"B0TP1,w
	   ..ASY!1==-<B>	
	IFDEFY@ .PSECT,<
	.IFN Y`..AS1,ABSOLUTE,<
	     C A,[-..Z AS1]>	
	.IF ..ASZ@1,ABSOLUTE,<
		.Z`.AS2==0	
	  IFE [<..AS1&^O777777B1[ 7>,<
		..AS2==1	[@
	    DI A,..A[`S1>
	  IFE ..AS2\,<
	    ..OP(A,\ B,C)>	
	PURGE \@..AS1,..AS2>>
	I\`FNDEF .PSECT,<
	]	..AS2==0	
	  IF] E <..AS1&^O777777]@B17>,<
		..AS2==]`1	
	    DI A,.^.AS1>
	  IFE ..A^ S2,<		
	    ..OP^@(A,B,C)>
	PURGE ..AS1,..AS2>:h r
	AEIR: L
	  ..CX1L!==C
	IFDEF .PSEL@CT,<
 	.IFN ..CXL`1,ABSOLUTE,<
	  M    CAMA B,[C]M >
	.IF ..CX1,ABSMAOLUTE,<	
		..CX2M`==0	
	  IFE <..CNX1&^O777777B17>,<N 
		..CX2==1	
	 N@   CAIA B,C>
N`	  IFE ..CX2,<		
	    CAMA B,[S C]>
	PURGE ..CX1S@,..CX2>>
	IFNDEFS` .PSECT,<
		..CXT2==0	
	  IFE <..T CX1&^O777777B17>,T@<
		..CX2==1	
	T`    CAIA B,C>
	  IFE ..CX2,<		U 
	    CAMA B,[U@C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ G!F
	..TSIZ GA(..PST,C)
	.CASG`E ..PST,<<
		MOVHEM A,B>,<
		HRH RM A,B>,<
		HRH@LM A,B>,<
		DPH`B A,[POINTR (B,C)]>>INTR (B,:<;Y az
   DEFINE ..CNS2 (NEW,OLD )<
	  OLD>			
	..CNS ()>			
	:L;Y Ar
   DEFINaE ..CNS (%%%)<
	..CNS2 <%%%>,>
 
   DEFINE ..CNS2@ (NEW,OLD)<
	DEF`INE ..CNS (%%%)<
	  ..CNS2 <%%%>, <OLD'NEW>>>
   OLD'NEW>>>
   :dH@ D,
	..TSIZ D!(..PST,C)
	.CASD@E ..PST,<<
		MOVD`E A,B>,<
		HRREZ A,B>,<
		HLRE Z A,B>,<
		LDBE@ A,[POINTR (B,C)]>>INTR (B,:}i1 a 
	A==<<<-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ _$
	  ..OP1_!==B
	IFDEF .PSE_@CT,<
 	.IFN ..OP_`1,ABSOLUTE,<
	  `    C A,[..OP1]` >
	.IF ..OP1,ABS`@OLUTE,<	
		..OP2``==0	
	  IFE <..OaP1&^O777777B17>,<a 
		..OP2==1	
	aa@   CI A,..OP1>
	  IFE ..OP2,<		b
	    C A,[..Ob P1]>
	PURGE ..OPb@1,..OP2>>
	IFNDEb`F .PSECT,<
		..OcP2==0	
	  IFE <.c .OP1&^O777777B17>c@,<
		..OP2==1	
c`	    CI A,..OP1d>
	  IFE ..OP2,<d 		
	    C A,[.[email protected]]>
	PURGE ..OP1,..OP2>GE ..;m i<
	..PST==	C-FWMASK
	.IF0 (..PST,<
		POINT H0,B,35>,<
		POINTR (B,C)>POI;| Aa
		POP P,B.NVA
		PURGE .NB VA
		.NVR==.NVR-1
		.NVR==.NVR;\t @a

		PUSH PA,A
		DEFINE .NVA B<A>
		.NVR==.NVR+1
		.NVR==.;] [Ah
	  IFGE [a<<<B>&777777>-..\BSIZ>,<
		PRINTX\  ?WORD offset gre\@ater than $BUILD \`size parameter>
]	  SET0. (\<B>,C,<A>)
	B>,;LH 
!b
	IFNDEF 
AC,<PRINTX C IS 
`NOT DEFINED
	  A (<B>,D,FWMASK )>	
	IFDEF C,<
	IFNDEF %C,<
	`  A (<B>,D,C)
>	
	IFDEF %C,<
 
	  %C (A,<B>,D,C)>>A,<B>,;LH 
a 

	..NS==0
	IRP.C,<..N
	IFES<PRINTX ?EMP, A>
	IFE ..NS- 1,<		
	  ..STR0 @(A,<B>,<C>,D)`>
	IFG ..NS-1,<		
	..ICNS			
	. .CNS (<E (A,<B@>,,>) 
	IRP C,<`		
	  IFNDEF C,<PRINTX C NOT DE FINED>
	  IFDEF @C,<
	  IFNDEF %`C,<
	  ..CNS (<,C,D>)>	
	  IF DEF %C,<
	  %C@ (..STR2,,D,C)>` 
	  ..CNS (<)>)		
	  ..GCNS		
 	  ..ICNS		
	  .@.CNS (<E (A,<B`>>) 
	  IFNDEF %C,<
	  ..CNS (< ,C,D>)>	
	  IF@DEF %C,<
	  %C` (..STR2,,D,C)>>> 
	..CNS (<,,)>)		
	..GCNS>);LI A$
	..CNS (<,C,B>).CNS (;LI :

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

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

	IFDIF <D><F>,<	
	  IF NB <D>,<
	    I@FNB <F>,<		
		`A1 (B,D,..MSK)> 
	    IFB <F>, <		
		A2 (B,D@,..MSK)>> 
	  ..`MSK==0>		
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y iz
IF1,<
    PRINTX ? ErrIor in "A"
    DEFINE X(NAM,ERR) i<IFN ..X'NAM&..TXEF,<PRINTX ? ERR>(>
    $TX$ERR>

    $TX$ERR>
;$^ !	0

    ..!)TXF==0				
    .!H.TXB==0				
    !h..TXP==0				
   " ..TXEG==<..TXEF="(=0>			
    IRPC "HA,<				
	..TXC="h=ASCII\A\-35		
	IFN ..TXB,<IFN #(..TXB-..TXC,..CNS#H(<A>)
		   IFE #h..TXB-..TXC,..TXB$==0>
	IFE ..TXB,$(<..TXQ(<A>,\..TX$HF)>>	
    ..TXC1$h				
    IFN ..T%XB,<IFN <..TXB-"^%(">,<..TXER(PEA)>>%H
    ..TXEF==..T%hXEF!..TXEG		
   & IFN ..TXEF,<..TERR<A>>
,<..TE;&( y..TXA(.TQCH0)..TXA(.TQC;&) 	(..TXER(IQU)..TXER(IQU;&) 9#..TXER(IQU)..TXER(IQU;&0 9..TXA(.TQCHA)..TXA(.TQC;&5 y..TXC0(\".CHLFD).TXC0(\".;&5 y..TXC0(\".CHVTB).TXC0(\".;&6 9..TXC0(\".CHFFD).TXC0(\".;&6 9..TXC0(\".CHCRT).TXC0(\".;&@ PA
	..TSIZ Pa(..PST,C)	
	.CAQSE ..PST,<<
		SEQ TZM B>,<	
		HLLQ@ZS B>,<	
		HRRZQ`S B>,<	
	  ..TSRAC (..ACT,B)	
	R   .IF0 ..ACT,<
	R@	$CALL .ZERO	
		R`LSTOF.
		JUMP [PSOINTR(B,C)]
		S LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 !
	IFNDEF A.PSECT,<
	A==0	`		
	..TSA1==<Z B>		
	  IFE ..TS A1&^O777777777760@,<A==1> 
	>
	I`FDEF .PSECT,<
	A==0			
	..TSA1= =<Z B>		
	.IF .@.TSA1,ABSOLUTE,<	`
	  IFE ..TSA1&^O777777777760,<A ==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= ~a~
	A==3			
	IFE <B>+1,< A=0>	
	IFE <B>-@^O777777,<A==1> `
	IFE <B>-^O777777B17,<A==2>7;' e6
   ..TX1e!==C			
IFDEF .Pe@SECT,<
   .IFN .e`.TX1,ABSOLUTE,<
f	TDA B,[C]>
 f@  .IF ..TX1,ABSOLf!UTE,<		
	..TX2==fa0		
	IFE <..TX1&g^O777777B17>,<
	g   ..TX2==1		
	  g@TRA B,..TX1>
	g`IFE ..TX2,<		
	IhFE <..TX1&^O77777h!7>,<
	  ..TX2==1hA		
	  TLA B,(.h`.TX1)>>
	IFE ..TiX2,<		
	  IFE <<i ..TX1>B53-^O77777qA7>,< 
	    ..TX3q` (A,B)>>	
	IFEr ..TX2,<		
	  TDr A B,[..TX1]>	
r@	PURGE ..TX1,..TXr`2>>
IFNDEF .PSECsT,<
	..TX2==0		
	IFE <..TX1&^O77s@7777B17>,<
	  ..s`TX2==1		
	  TRAt B,..TX1>
	IFE t ..TX2,<		
	IFE <[email protected]&^O777777>,<t`
	  ..TX2==1		
u	  TLA B,(..TX1u )>>
	IFE ..TX2,<u@		
	  IFE <<..TXu`1>B53-^O777777>,<v 
	    ..TX3 (Av ,B)>>	
	IFE ..Tv@X2,<		
	  TDA v`B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` w!L
	IFIDN <wAA><Z>,<		
	  ..w`TX2==1
	  ANDI xB,^-..TX1>	
	IFIx DN <A><O>,<		
	x@  ..TX2==1
	yORx`CMI B,^-..TX1>	
	IFIDN <A><C>,<y 		
	  ..TX2==1
y@	  EQVI B,^-..TX1>QVI B,^-..TX;'  )&


	..TXEIF==0			

IFNDEFh A,<..TXER(UQU)>		
IFDIF <B><>,(<IRPC B,<.IFN <HB>,NUMERIC,..TXERh(IWA)>>
IFNB <C	>,<IFNDEF .TXTJC	(,<..TXER(IJA)>>
	HIFDEF  A,<
  IF	hE <A_-^D18>,<IFD
IF <EFBCD><>
(,<..TXER(ANA)>>

H  IFE <1-<A_-^D1
h8>>,<IFDIF <BCD><>,<..TXER(JNA)(>>
  IFE <2-<A_H-^D18>>,<IFIDN <hEF><>,<..TXER(AD
S)>>>

      IF
(E ..TXEF,<
	IFID
HN <B><>,<..TXWD=
h=<..TXJU==<..TXFC
	IFDIF<<
	D<IFE><^.TXWD==<0>>>
	  IFN <^D<(B>>,<..TXWD==^D<HB>
	    IFNB <hC>,<..TXJU==.TXTJC>
	    IFB  <(C>,<..TXJU==.TXTJHL
	      IFE <Ah-.TQOCT>,<..TXJU==.TXTJR>
	h    (IFE <A-.TQDEC>,<H..TXJU==.TXTJR>>
	    IFB  <D>,<..TXFC==" ">
	  (  IFNB <D>,<..TXHFC=="D">>>

	IhFB  <EF>,<..TXPT==0>
	IFNB <E(F>,<..TXPT==1>
	HIFE <..TXWD+..TXPhT>,<
	    EXP FLD(A,TXT.FN)>
	I(FN <..TXWD+..TXPTH>,<
	    EXP FLDh(A,TXT.FN)+FLD(..TXJU,TXT.JU)+FLD((..TXWD,TXT.WD)+FHLD(..TXFC,TXT.FC)h+TXT.AD
	    PNTR(E,F)>>

T;'h 7iJ
    IFE 8	..TXP,<			
	..IC8(NS			
	..CNS<ASC8HIZ\>		
	..TXP==18h>		
    ..CNS<A9>			
    ..TXF==9(0			
    ..TXB=="^"
    ..TXB==;'h 9iV

    IF:	N ..TXP,<			
	..:(CNS<\>		
	EXP <F:HLD(.TQCHT,TXT.FN):h+[..GCNS]>>
    ..TXP==0>
    ;'	9 i
    ..TX 	EF==..TXEF!..XA	 (	
    ..TXF==0		 H		
    ..TXB=="^"
    ..TXB=="^;'
  &I4..TXQB(<A>)..TXQB(<;'
( '	>

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

    IF(IE ..TXC-"^",<..TX(hC0(<A>)>	
    I)FN ..TXF,<			
	.)(.TXF==0		
	IFDEF)H .TQCHA,<		
	  )h  IFDEF ..TQMA,.*.TQMA 
	    IFN*( <.TQCHA_-^D18>,*H<..TXF==2>>>
   *h IFE ..TXF-2,<..T+XC1(<A>)	
	..IC+(NS			
	..CNS<..T+HXA(.TQCHA,>>	
 +h   ..TXEG==..TXEG!..TXEF==..TXEG;'
) ,)p
    ..TX,IF==3				
    IFG,hE ..TXC-"0",IFLE -..TXC-"9",<..TXF=-(=2>
    IFE ..TX-HF-2,<..CNS(A)>		-h
    IFE ..TXF-3.,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'
) .I
    ..TX.iF==4				
    IFE/ ..TXC-"/",<..TXF/(==5>		
    IFE ./H.TXC-"[",<..TXF==/h5>		
    IFE ..T0XF-4,<..CNS<A,>>0(		
    IFE ..TXF0H-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'
* 1	
    ..TX1)F==4				
    IFE1H ..TXC-"/",..TXF=1h=5		
    IFE ..T2XC-"[",..TXF==5		2(
    IFE ..TXF-52H,<..CNS<,>		
		 2h..TXQ5<A>>		
  3  IFE ..TXF-4,<..3(CNS<A,>		
		 ..TXF==5>	
		 ..;'
* 3i,
    ..TX4	F==6				
    IFE4( ..TXC-"/",..TXB=4H="/"		
    IFE .4h.TXC-"[",..TXB=="5]"
    IFE ..TXB5(-"]",..CNS<[>		
5H    IFE ..TXB,..TXF==5 ..TXB,..T;'
+ 6	:
    ..TX6)F==0			
    IFE 6H..TXC-"]",..CNS<]6h>	
    ..CNS<)>	7		
    ..GCNS			7(
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  -h
	.ACV2 (A)
	.ACV2 (d@ -Ar
	A=.FPA-aC+..NAC		
	IFB <.B>,<..NAC=..NAC+. 1>
	IFNB <B>,<..NAC=..NAC+B>.d` .a
	IFG A-/.NPAC,<PRINTX ?TO/ O MANY ACS USED>
	IFLE A-4,<
	0/` $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z U!*$CALL	I%INTA$CALL	I%IN9  |ap
	..CSN==}A
	..CSC==0
	I} RP B,<
	IFE ..C}@SN-..CSC,<
	  ST}`OPI
	  ..CAS1 (~B)>
	..CSC==..CSC+1>..CSC==..CSD	P ?DP >D)6P D,xP D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;WP D;WP D;XP D;XP D;YP 	D;YP 	D;ZP 
D;ZP 
D;[P D;[P D;\P 
D;\P 
D;]P D<ZP D=7P DI6P ?D\qP FH1P FmP l,UP S@P ,<H MAv
	..PST==MaC-FWMASK
	.IF0 N..PST,<
		SOS BN >,<	
		$CALL .SON@S	
		LSTOF.
		JN`UMP [POINTR(B,C)]
		LSTON.>C} =i
	.OPCD==`I.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 {Ab
	..IFT=={aA		
	IFE ..IFT,|<
	B
	..IFT==0| >		
	IFN ..IFT,<
	C>N ..IFT,<&t<H JA^
	..PST==JaC-FWMASK
	.IF0 K..PST,<
		AOS BK >,<	
		$CALL .AOK@S	
		LSTOF.
		JK`UMP [POINTR(B,C)]
		LSTON.>C&tj7Q:?6MiTQ	@7;rp77H:pz7kpv7N8p=;`Pz;-J7P#>)qpB>5H3pP>DLYpB?EHP $?LxP "?(WP !?+ZP %?krP #?xUP  ?)0P "?)8P #?98P !?J6P $?N8P  ?$(:P ?$*7P ?$9P ?$HVP ?$h6P 	?$mP ?%VP ?%+qP ?%LP ?%X<P 	?%[ZP ?%hzP ?%kzP ?%|P ?&P ?&
0P O By$
	IFG	A-CYMX.PID,<MX.PID==A>
C
G	A-OSP OYP O|P OyP O%=H "!
	.STKV2 (A)
	.STKV2 O%=I "a 
	IFB <B#>,<..STKN==..STKN# +1>
	IFNB <B>,<#@..STKN==..STKN+B#`>
	..STKQ==..STK$N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I $A.
   IFDEF$a A,<.IF A,SYMBO%L,<PRINTX STKVAR % A ALREADY DEFINE%@D>>
	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  (AD
	.TRV2 (A)
	.TRV2 (Sd@ )N
	.TRV3 ()!A,\..NV)	
	IFB )@<B>,<..NV=..NV+1)`>
	IFNB <B>,<..NV=..NV+B>,<..Sd` *!\
   IFDEF*A A,<.IF A,SYMBO*`L,<PRINTX TRVAR +A ALREADY DEFINED+ >>
	DEFINE A<^O+@B(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP _%~ g)V
		$CALL	gII%WTO		
		LSTOF.gh			
		JRST	g		
		$WTRST			
	IFh(NB <A>,<$WTMTY (hH<A>)>	
	IFNB <hhB>,<$WTTYP (<B>)i>	
	IFNB <C>,<$i(WTTXT (<C>)>	
	iHIFNB <D>,<$WTOBJih (<D>)>	
	IFNB j<E>,<$WTACK (<Ej(>)>	
		IRP F,<jHF>		
		$WTBLD			jh
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP