Google
 
Trailing-Edge - PDP-10 Archives - BB-L054E-RK - glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,:B@P C4@ EY

1
	..NAC==Ey0		
	IRP A,<
	F  .ACV1 (A)>		
	.ACV3 (\..NAC)C' oY}..AS(A,B,ADD,SUB)(A,BC, RALSH A,-^D9LSH A,-^DC2f} Ta8
	.EAWTO(UMTY,0)
	.EAWTO(TU YP,2)
	.EAWTO(TXU@T,2)
	.EAWTO(OBJU`,0)
	.EAWTO(ACK,V0)
	.EAWTO(FLG,1V )
	.EAWTO(NOD,0)V@
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
W	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' 	!
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ zy]
	  IFE {B,<..TA==0>
	  {8IFN B,<EXP ..TA{X
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ hYE
	    ..CX(,A,B)   ..CGD la
	    ..CX(A,A,B)  ..CGDP jQ
	    ..CX(E,A,B)  ..CGDp jYU
	    ..CX(G,A,B)  ..CGDy  kY
	    ..CX(GE,A,B) ..CGE@ iI
	    ..CX(L,A,B)  ..CGEI  iYM
	    ..CX(LE,A,B) ..CGE` kY]
	    ..CX(N,A,B)  ..CGH <an
	
	  LS<!TOF.

	X CRE	
=	X GEN	
	X!PRT	
	X CLS	
	X AUT	<A
	X USW	
	X SPL=A	
	X SIZ   
	X =`MOD	
	X CHN	

	  LSTON.


G"\Y 1(!

	IF1, P<%%EDT==AEDT>	
p
	IF2, <IFN <%%EDT-AEDT>,<
		PR0INTX ? Edit NumbePr Doesn't Match GpLXVER in GLXA
		A$WHO(\AEDT)>	0
		A$NOTE		
	IPNTERN AEDT		
	IpNTERN LODLEV		
;	PURGE %%EDT> ;END IF2

}aPtG4-ZQ G:YlP 

G>hKW UH%0
	IFNB <>Uh,<
	PRINTX  (FroVm GLXVER)
	> ;END IFNB 
	G>hMt T%(
	PRINTX T(GLXVER	GLXCOM EdiTHt(47) by DPM on 3Th0-Apr-81
	PRINTXU	    	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ 1LALL
PAGE9; (A Continued oXn next page)
SALxL; (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  eY3
	IFNB <eyB>,<..STR0 (.DECRf0,,<B>,A)>
	IFf8B  <B>,<SOS A>  <B>,<SOS A>I6= 

	A==<-19B<C>+1B<C-D>> X
	IF1,<IFDEF %Ax,<PRINTX ?A ALREADY DEFINED>>
	D8EFINE %A (OP,AC,XY,MSK)<	
	IFDIF x<Y><>,<
	OP (<AC >,B+'Y,MSK)>	
	 8IFIDN <Y><>,<
	O XP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)I'7 r..OP(A,B,DIV)..OP(A,BIOH1 2#
	IFB <D2!>,<
	XWD	[ASCIZ\2@C\],[XWD B,A]>2`
	IFNB <D>,<
	3XWD	[EXP CM%FW!D3 
		ASCIZ\C\],[XWD B,A]>
,[XKH(Q P /KJ

,bPBKJ)bPb  KJ=P +KJ{P 	KJIBP !KJ=bP (KJIP &KJX"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-l"P )KJ-yBP KJ-{P 	KJ.;P 'KJ4"P KJ4+"P %KJ49BP KJ4="P )KJ4I"P KJ4LbP KJ5bP $KJ5iP KJ5iBP KJL;BP KJLMP 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 #KJtmP -KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv	BP KJv

bP .KJvbP KJv)"P KJv9P KJv;BP KJv<P KJv=bP KJv[P KJv["P KK-P KK

YBP :a^
	IF1,<IF;DEF ERA$,PRINTX ; ?Duplicate error ;@code A>
	ERA$=;`=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y aR
	ERR	EOF,<End of file>
	 ERR	IFP,<Illegal @file position>
	`ERR	FDE,<File data error>
	ERR	FN D,<File is not on@ disk>
	ERR	NSD,`<No such device>
	ERR	FCF,<File c heckpoint failed>@
	ERR	SLE,<A sys`tem limit was exceeded>
	ERR	IFS, <Illegal file spe@cification>
	ERR`	FNF,<File not fo	und>
	ERR	PRT,<P	 rotection violati	@on>
	ERR	DNA,<De	`vice not availabl
e>
	ERR	NCE,<No 
 "current" entry i
@n list>
	ERR	NMA
`,<No IPCF message is available>
	 ERR	FDS,<Files ar@e on different st`ructures>
	ERR	F

AE,<File already 

 exists>
	ERR	USE

@,<Unexpected syst

`em error>
	ERR	N such pid>
	ERR	BOL,<Beginnh
	ERR	EOL,<End of list reached >
	ERR	RQF,<Rece@ivers quota full>`
	ERR	SQF,<Senders quota full>
	 ERR	NRE,<No remem@bered entry>
	ER`R	TBF,<Table is full>
	ERR	EIT,<T able entry alread@y exists>
	ERR	I`TE,<Invalid table entry>
	ERR	QEF ,<Quota exceeded @or disk full>
	E`RR	ARG,<Invalid argument specified >
	ERR	IFN,<Inva@lid function spec`ified>
	ERR	IJN,<Invalid job numb er specified>
	E@RR	RAD,<Invalid r`adix specified>
	ERR	NUM,<Invalid  numeric argument@>
	ERR	IDT,<Inva`lid date field specified>
	ERR	IT F,<Invalid time f@ield specified>
`	ERR	DOR,<Date/time out of range>
	ERR	DTM,<Value @missing in date/t`ime>
	ERR	MDD,<Missing day in dat e/time>
	ERR	DFZ@,<Field zero in d`ate/time>
	ERR	MDS,<Mnemonic date /time switch not @implemented>
	ER`R	DFL,<Field too large in date/tim e>
	ERR	ILR,<Ill@egal year format `in date/time>
	ERR	NND,<Negative  number in date/ti@me>
	ERR	NPF,<No`t known whether past or future in  date/time>
	ERR	@RDP,<Relative dat`e parse required>
	ERR	NSW,<Switc h does not begin @with slash>
	ERR`	NOM,<Unrecognized switch or keywo rd>
	ERR	NUL,<Nu@ll switch or keyw`ord given>
	ERR	INW,<Invalid guid e word>
	ERR	NC,@<Not confirmed>
`	ERR	ICN,<Invalid character in num ber>
	ERR	NQS,<I@nvalid quoted str`ing - does not be gin with quote>
  	ERR	AMB,<Ambiguo @us switch or keyw `ord>
	ERR	NMT,<D!oes not match tok! en>
	ERR	CMA,<Co!@mma not given>
	!`ERR	NNC,<Node nam"e may not exceed " 6 characters>
	E"@RR	INT,<Node term"`inator "::" must #be specified>
	E# RR	NSN,<Unknown n#@ode name>
	ERR	I#`PS,<Invalid path $specification>
	$ ERR	IUS,<Invalid $@user specificatio$`n>
	ERR	DGS,<Dev%ice name may not % exceed 6 characte%@rs>
	ERR	DNE,<Un%`known device>
	E&RR	DIO,<Device ca& n not do input or&@ output>
	ERR	BD&`F,<Invalid date/t'ime format>
	ERR' 	ABS,<Field too l'@ong for internal '`buffer>
	ERR	TMT(,<Command too lon( g for internal bu(@ffer>
	ERR	BDS,<(`Invalid default s)tring>
	ERR	BTF,) <Invalid table fo)@rmat>
	ERR	TME,<)`Date/time must be* in the future>
* 	ERR	TMN,<No time*@r entry has expir*`ed>
	ERR	TMA,<Ti+mer entry already+  exists>
	ERR	DV+@T,<Device termina+`tor ":" must be s,pecified>
	ERR	N, CI,<Argument bloc,@k may not be in t,`he ACs>
	ERR	TLU-,<Terminal locati- on is unknown>
	-@ERR	FIO,<File is -`offline>
	ERR	FB.M,<File being mod. ified>
	ERR	WLK,.@<Write-locked dev.`ice>
	ERR	CSD,<C/annot supersede a/  directory>
	ERR/@	CDD,<Cannot dele/`te a non-empty di0rectory>
	ERR	SN0 F,<Sub-file direc0@tory not found>
0`	ERR	ESL,<Search 1list is empty>
	1 ERR	LVL,<SFD leve1@l nested deeper t1`han the maximum a2llowed>
	ERR	CCW2 ,<Cannot create/w2@rite on any struc2`ture in search li3st>
	ERR	FCU,<Ca3 nnot update file>3@
	ERR	ENQ,<File 3`has outstanding E4nqueue lockes set4 >
	ERR	SWS,<Soft4@ware write-lock o4`n structure>
	ER5R	DER,<Hardware d5 evice error>
	ER5@R	DTE,<Hard data 5`error>
	ERR	BKT,6<Block too large>6 
	ERR	IPP,<Incor6@rect project-prog6`rammer number>
	7ERR	TRN,<RIB or t7 ransmission error7@>
	ERR	ILC,<Ille7`gal character in 8date/time>
	ERR	8 NFT,<Date/time mu8@st be in the futu8`re>
	ERR	NPS,<Da9te/time must be i9 n the past>
	ERR9@	UDM,<Unrecognize9`d month in date/t:ime>
	ERR	UDN,<U: nrecognized name in date/time>
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` S
	IFIDN <1BC><>,<EXP <A>P>
	IFDIF <BC><p>,<
	 IFE <A+1>	,<<POINT 7,C>>
	0	 IFN <A+1>,<
		P   IFIDN <C><>,<	pEXP <A,B>>
	  
 IFDIF <C><>,<EX
0P <A,B,C>>
	>>A,B,C>>
	>Kc  YIRP A,<
y	IF2,<IFNDEF A,<EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP  Mv
P MuI7Q xMvN8P'Mn:=p MF:=P M$pQ"P M$t:P M$t:P M$t;P M$t<RP M$ty7P M$u[rP M$v

ZP M$v:=P M$v<P M$v\{P M&`KW Mh$r
	IFNB <>N,<
	PRINTX  (FroN(m GLXVER)
	> ;END IFNB 
	M&`Mt L($j
	PRINTX LHGLXVER	GLXFIL EdiLht(74) by AWC on 4M-May-81
	PRINTX	M(    	GLXFIL	Actual Edit(A)
	M&dYP M2  Uy/<<<A>B<POS(<B>)>>&<B>>M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MHuiWQ @MJhrp MJip MJiVp MJk=p MJlsp MJl}p MJm9p MR4zP MR6L`P MRV>9Q MS.[yP M^luQ O2|  9%IRP A,<
Y	IF2,<IFDEF A,<.xIFN A,EXTERN,<INTERN A>>
	     8IFNDEF A,<EXTERNX A>
	Q SUPPRESPA>>FlYSUPPRO3DYPFO3EKrPfO3EZ7PO3FI@ <StLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv

SpSv>@pSNn)qYA,BS7-N pY..OP(A,B,IMUL).OP(A,BS:  bY
	IFNB <byB>,<..STR0 (.INCRc0,,<B>,A)>
	IFc8B  <B>,<AOS A>  <B>,<AOS A>S:HKW _H&
	IFNB <>_h,<
	PRINTX  (Fro`m GLXVER)
	> ;END IFNB 
	S:HMt ^%x
	PRINTX ^(GLXVER	GLXINI Edi^Ht(20) by DEK on 1^h5-Apr-81
	PRINTX_	    	GLXINI	Actual Edit(A)
	S:LYP S;k X9C<<<A>B<POS(<B>)>>&<B>>S; KW i(&N
	IFNB <>iH,<
	PRINTX  (Froihm GLXVER)
	> ;END IFNB 
	S; Mt gh&F
	PRINTX hGLXVER	GLXINT Edih(t(75) by DPM on 9hH-Mar-81
	PRINTX	hh    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP S? Y	
	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 g&<
	IFNB <>g(,<
	PRINTX  (FrogHm GLXVER)
	> ;END IFNB 
	SBMt eH&4
	PRINTX ehGLXVER	GLXIPC Edift(60) by DAK on 1f(3-Mar-81
	PRINTXfH	    	GLXIPC	Actual Edit(A)
	SBYP SBd+@&SBn	@&SBn
@&SBn
@&	SBn@&	SBn@&
SBn

@&
SB2P SB)iP&	SB)iP&SB)kVP&SB)kYP'SB)lXP&
SB)lsP&
SB)lxP&	SB)mvP&SBal}P SPuxzQ @SR/
q[
	LSTOF.	XCREF
	..TEXT<A0>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ 6A
	
	  LS>ATOF.

	X JNO,.J>`IJNO,<-1,,GJBJNO>?	
	X TNO,.JITNO,? <-1,,GJBTTY>	
	X?@ USR,.JIUNO,.GTPP?`N		
	X CDN,.JIDN@O,<-1,,GJBPTH>	
@ 	X PRG,.JIPNM,.GT@@PRG		
	X CJN,.JI@`CPJ,<-1,,GJBCJB>	A
	X BAT,.JIBCH,.A GTOBI		
	X JLT,.A@JISTM,.GTJLT		
	A`X LOC,<-1,,GJBLOCB>,<-1,,GJBLOC> 
B 	X RTM,.JIRT,<-1,B@,GJBRTM>	
	X TLCB`,<-1,,GJBTLC>,<-1C,,GJBTLC>	
	  LSTON.


	  LSU +,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 dH&(
	IFNB <>dh,<
	PRINTX  (Froem GLXVER)
	> ;END IFNB 
	W
 Mt c& 
	PRINTX c(GLXVER	GLXKBD EdicHt(52) by DPM on 2ch6-Mar-81
	PRINTXd	    	GLXKBD	Actual Edit(A)
	W
$YP WNH1 3a#&
	IFB <C4>,<
	XWD	[ASCIZ\4 B\],A>
	IFNB <4@C>,<
	XWD	[EXP 4`CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 2A



	  LST2aOF. XCREF

	CDO3	OTSINI			
	CDO	3     			
	CDO	.ZP3@AGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD4O	.SAVE1
	CDO	.S4 AVE2
	CDO	.SAVE34@
	CDO	.SAVE4
	C4`DO	.SAVET
	CDO	.5SV13
	CDO	.SV14
	CDO	.SV15
	CDO5@	.SV16
	CDO	.RET5`T
	CDO	.RETF
	C6DO	.RETE
	CDO	.A6 OS		
	CDO	.SOS		6@
	CDO	.ZERO		
	6`CDO	.POPJ		
	CDO7	.STOP		
	CDO	.S7 AVE8		
	CDO	.STK7@ST		
	CDO	.TRSET7`		
	CDO	.POPJ1		8
	CDO
	CDO
	CD8 O
	CDO
	CDO
	C8@DO

	CDO			
	C8`DO	C%RPRM
	CDO	C9%INTR
	CDO	C%SEN9 D
	CDO	C%RECV
	9@CDO	C%BRCV
	CDO	9`C%REL
	CDO	C%CPI:D
	CDO	C%KPID
	: CDO	C%SPID
	CDO	:@C%MAXP
	CDO	C%PI:`DJ
	CDO
	CDO
	;CDO
	CDO
	CDO
; 
	CDO	      			
	CDO	F%IOPN
	CD;`O	F%AOPN
	CDO	F%<OOPN
	CDO	F%IBYT< 
	CDO	F%OBYT
	C<@DO	F%IBUF
	CDO	F<`%OBUF
	CDO	F%REL=
	CDO	F%DREL
	C= DO	F%RREL
	CDO	F=@%REW
	CDO	F%POS
	CDO	F%CHKP
	CD>O	F%INFO
	CDO	F%> FD
	CDO	F%REN
	>@CDO	F%DEL
	CDO	F>`%FCHN
	CDO
	CDO?
	CDO
	CDO
	CD? O
	CDO
	CDO
	C?@DO
	CDO

	CDO	?`      			
	CDO	M@%ACQP
	CDO	M%REL@ P
	CDO	M%IPSN
	@@CDO	M%NXPG
	CDO	@`M%IPRC
	CDO	M%IPARM
	CDO	M%AQNP
A 	CDO	M%RLNP
	CDOA@	M%CLNC
	CDO	M%FA`PGS
	CDO	M%GMEM
	CDO	M%RMEM
	CDB O
	CDO
	CDO
	CB@DO
	CDO
	CDO
	B`CDO	M%GPAG
	CDO	CM%RPAG
	CDO
	CDC O
	CDO
	CDO
	CC@DO
	CDO
	CDO
	C`CDO

	CDO	     D 			
	CDO	T%TEXTD 
	CDO	T%TTY
	CDD@O
	CDO
	CDO
	CD`DO
	CDO
	CDO
	ECDO
	CDO
	CDO
E 	CDO

	CDO	    E@  			
	CDO	L%CLSE`T
	CDO	L%DLST
	FCDO	L%CENT
	CDO	F L%CBFR
	CDO	L%DEF@NT
	CDO	L%NEXT
F`	CDO	L%FIRS
	CDOG	L%LAST
	CDO	L%PG REV
	CDO	L%PREM
	CDO	L%CURR
	CDG`O	L%RENT
	CDO	L%HSIZE
	CDO	L%APOSH 
	CDO
	CDO
	CDH@O
	CDO
	CDO
	CH`DO
	CDO
	CDO
I
	CDO			
	CDO	I%I NOW
	CDO	I%EXIT
	CDO	I%ION
	CDOI`	I%IOFF
	CDO	I%SJLP
	CDO	I%INT1
J 	CDO	I%INT2
	CDOJ@	I%INT3
	CDO	I%TJ`IMR
	CDO
	CDO
K	CDO	I%SOPR
	CDOK 	I%WTO
	CDO
	CDK@O	I%HOST
	CDO	I%K`JINF
	CDO
	CDO

	CDO			
	CDO
	CDO	S%DATI
	CDL@O	S%SIXB
	CDO	S%L`CMND
	CDO	S%TBLKM
	CDO	S%SCMP
	CM DO	S%ERR
	CDO	S%M@INTR
	CDO	S%EXITM`
	CDO	S%TBAD
	CNDO	S%TBDL
	CDO	SN %NUMI
	

	CDO	N@K%RCOC			
	CDO	KN`%WCOC
	CDO	K%SUEOT
	CDO	K%STYP
	O CDO	K%TXTI
	CDO	O@K%SOUT
	CDO	K%BOO`UT
	CDO	K%BIN
	PCDO	K%BACK
	CDO	P K%TPOS
	CDO	K%BUP@FF
	CDO	K%FLSH
P`	CDO	K%OPEN
	CDOQ
	CDO
	CDO
	CDQ O
	CDO
	CDO
	CQ@DO
	CDO
	CDO
	  LSTON.
  
	Y:XKW l&d
	IFNB <>l(,<
	PRINTX  (FrolHm GLXVER)
	> ;END IFNB 
	Y:XMt jH&\
	PRINTX jhGLXVER	GLXLNK Edikt(7) by DPM on 22k(-Dec-80
	PRINTX	kH    	GLXLNK	Actual Edit(A)
	Y:\YP Y>

@\
	IFNB <\9C>,<..STR0 (..LDB\X,A,C,B)>
	IFB\x  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG Y?
	IFNDEF yLSTIN.,LSTIN.==0		
IFE LSTIN.,<
8	IFIDN <XCREF><AX>,<.XCREF>	
		  x XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 9I
	IFG LSTYIN.,LSTIN.==LSTINx.-1	
	IFLE LSTIN.,<.CREF		
		      LIST>
		   [KW P(%
	IFNB <>PH,<
	PRINTX  (FroPhm GLXVER)
	> ;END IFNB 
	[Mt Nh$~
	PRINTX OGLXVER	GLXMAC EdiO(t(214) by AWC on OH4-May-81
	PRINTXOh	    	GLXMAC	Actual Edit(A)
	[YP F[3@ Wy?<<<1_<A>>-1>B<B>>_<A>>[8@ Vy71B<<A>-1>-1B<B><<A>-1>[@ .|
	IFB <B.!>,<MAXSIZ==0
		I.@RP A,<IFG <A-MA.`XSIZ>,<MAXSIZ==A/>>>
	IFNB <B>,</ B==0
		IRP A,</@IFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
QP'[v:Q[vxQ [[v[lp [lXp [lrp [ltp [lxp [l}p [hKW ZH%X
	IFNB <>Zh,<
	PRINTX  (Fro[m GLXVER)
	> ;END IFNB 
	[hMt Y%P
	PRINTX Y(GLXVER	GLXMEM EdiYHt(22) by TARL on Yh17-Apr-81
	PRINTZX	    	GLXMEM	Actual Edit(A)
	[lYP 	[n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 0
	IFB <B0!>,<MINSIZ==3777770@,,777777
		IRP 0`A,<IFG <MINSIZ-A1>,<MINSIZ==A>>>
	IFNB <B>,<B==1@377777,,777777
	1`	IRP A,<IFG <B-2A>,<B==A>>>
A>,<B==A>>>
[>!` W9;<A-<A/B>*B><A-<A/B[?7 Xy)
   ..MX1Y==B			
IFDEF .PY8SECT,<
   .IFN .YX.MX1,ABSOLUTE,<
Yx	MOVE A,[B]>
 Z  .IF ..MX1,ABSOLZ8UTE,<
	..MX2==0	ZX	
	IFE <..MX1>B5Zx3,<
	[..MX2==1
	  MOVEI A,..MX[81>	
	IFE ..MX2,<[X		
	IFE <..MX1>B[x17,<
	  ..MX2==1\
	  MOVSI A,(..\8MX1)>>	
	IFE ..M\XX2,<		
	IFE <<..\xMX1>B53-^O777777>],<
	  ..MX2==1
]8	  HRROI A,<..MX]X1>>>	
	IFE ..MX2]x,<		
	IFE <<..MX^1>B17-^O777777B17^8>,<
	^X..MX2==1
	  HRLOI A,(..M^xX1-^O777777)>> 
_	IFE ..MX2,<		
	_8  MOVE A,[..MX1]_X>	
	>>

IFNDEF_x .PSECT,<
	..MX2`==0		
	IFE <..MX`81>B53,<
	  ..MX2`X==1
	  MOVEI A,`x..MX1>	
	IFE ..MaX2,<		
	IFE <..Ma8X1>B17,<
	  ..MXaX2==1
	  MOVSI Aax,(..MX1)>>	
	IFEb ..MX2,<		
	IFE b8<<..MX1>B53-^O777bX777>,<
	  ..MX2=bx=1
	  HRROI A,<c..MX1>>>	
	IFE .c8.MX2,<		
	IFE <<cX..MX1>B17-^O77777cx7B17>,<
	  ..MX2d==1
	  HRLOI A,d8(..MX1-^O777777)>dX> 
	IFE ..MX2,<	dx	
	  MOVE A,[..eMX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= !

	A==C	!9	
	IF1,<IFDEF %!XA,<PRINTX ?A ALR!xEADY DEFINED>>
	"DEFINE %A (OP,AC"8,Y,MSK)<	
	IFDIF"X <Y><>,<
	OP (<A"xC>,B+'Y,MSK)>	
#	IFIDN <Y><>,<
	#8OP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK[PuySP'[PvNP'[Vg q	..OP(A,B,MUL)..OP(A,B[`v
2P ] IF2,<IFDEFq A,<A==A>> IFNDEF A,<A==B>]F@ ]TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= Ii

	X	.OT6RDR,Reader
	X	.O>!TNCU,Network-ContJ	roller
	X	.OTLPTII,Printer
	X	.OTBJyAT,Batch-Stream
K	X	.OTCDP,Card-PuK8nch
	X	.OTPTP,PaKXpertape
	X	.OTPLKxT,Plotter
	X	.OTLJOB,Job
	X	.OTTRL8M,Terminal
	X	.OLXTOPR,Operator
	XLx	.OTIBM,<IBM RemoMte>
	X	.OTMNT,<DM8evice>
	X	.OTFTSMX,<File Transfer>
	X	.OTBIN,<Card NReader InterpreteN8r>
	X	.OTRET,<FiNXle Retrieval>
	XNx	.OTNOT,<RetrievaOl Notification>
O8	X	.OTDBM,<DBMS SOXystem>
	X	.OTFALOx,<File Access Listener>
ess Lis_SKW ah&
	IFNB <>b,<
	PRINTX  (Frob(m GLXVER)
	> ;END IFNB 
	_SMt `(&

	PRINTX `HGLXVER	GLXOTS Edi`ht(7) by DEK on 6-aApr-81
	PRINTX	 a(   	GLXOTS	Actual Edit(A)
	_SYP _Sh6 XaF [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 al}P aI3 Y}

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

  Ya IFNB <D>,<..XX=Z..XX!CM%HPP> 
  Z0 IFNB <E>,<..XX=ZP..XX!CM%DPP> 

Zp	EXP ..XX		

  [ IFNB <C>,<EXP [0C>
   IFB <C>,<[PEXP 0>

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

]\P IFNB <E>,<POINT\p 7,[ASCIZ \E\]>
]0IFB <E>,<0>



   IFB <I]P>,<0>
   IFNB <]pI>,<EXP I>

  ^ IFB <J>,<0>
  ^0 IFNB <J>,<EXP ^PJ>

   IFB <H>^p,<0>
   IFNB <H_>,<EXP H>

   _0IFB <G>,<0>
   _PIFNB <G>,<EXP G>

G>,<EXP Ga@KW ]%l
	IFNB <>](,<
	PRINTX  (Fro]Hm GLXVER)
	> ;END IFNB 
	a@Mt [H%d
	PRINTX [hGLXVER	GLXPFH Edi\t(16) by TARL on \(17-Apr-81
	PRINT\HX	    	GLXPFH	Actual Edit(A)
	aDYP aE|SP'~a RLSH A,^D9LSH A,^D9a+= 5a;&  .a~
	 IFB  </B>,<..STR0(..PNT/ ,,<FWMASK>,A)>
/@	 IFNB <B>,<..ST/`R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm U+<POINT WIDU9(B),A,POS(B)>B),A,POS(B)>a?H6 +a? Sy<^L<<A>&<-<A>>>><<A>&<aJ}Ks Qb

	SALL				
	LSTOF. XCRE F			

	%%.GLX==@%%.GLX			
	GLXVR`S==GLXVRS			

	IFNB <A>,<%%.MOD ==SIXBIT/A/> 
	@IFNB <B>,<%%.OTS`==SIXBIT/B/> 

	GLOB	I%INIT			

	TOPS10	<			
@		SEARCH	UUOSYM		`
		%%UUOS==%%UUOS		
	>				

	T OPS20	<			
		SEA@RCH	MONSYM		
;		`%%MONS==%%MONS		
	>				

	IFB < B>,<			
		.TEXT@	|,REL:GLXLIB/SEA`RCH/REQUIRE:I%INIT|
		DEFINE	$DAT A (NAM,SIZ<1>),< @
			NAM:	BLOCK	S`IZ
		>			
		DEF INE	CDO (X),<GLOB   X> 
		LIBVEC			 @
	>				

	IFNB ` <B>,<CHKEDT (B!)>	

	IFNB <B>! ,<IFDIF <B><INI>!@,< 
		IFN GLXPUR!`E,<.PSECT .HIGH.>" 
		IFE GLXPURE," <		
			TWOSEG	40"@0000	
			RELOC	0"`	
			RELOC	40000#0	
		>			

		D# EFINE $DATA(NAM,S#@IZ<1>),< 
			IFN#` GLXPURE,<.PSECT $DATA> 
			IFE GL$ XPURE,<RELOC> 
	$@		IFNDEF B%D,<B$`%D::! B%DL==:0>
			NAM:	BLOCK	SI% Z
			B%DL==:B%%@DL+SIZ 
			IFN G%`LXPURE,<.ENDPS DA&TA> 
			IFE GLXP& URE,<RELOC> 
		>&@			

		IFDIF <&`B><OTS>,<	
			DE'FINE	CDO (X),<GLO' B X> 
			LIBVEC	'@	
		>			

	>>	'`			

	IFNB <B>(,<IFIDN <B><INI>( ,< 
		DEFINE	$DA(@TA (NAM,SIZ<1>),<(` 
			NAM:	BLOCK	)SIZ
		>			
	>>	) 			

	LSTON.			)@	

	GLOB	<.POPJ)`, .RETT, .RETF>	
	OPDEF	$RET	[POP* J	P,]	
	OPDEF	$R*@ETT	[PJRST	.RETT]*`	
	OPDEF	$RETF	[+PJRST	.RETF]	
	O+ PDEF	$RETIT	[JUMP+@T	.POPJ]	
	OPDEF+`	$RETIF	[JUMPF	.P,OPJ]	
	.NODDT	$R, ET,$RETT,$RETF,$RETIT,$RETIF
$RaPtP aPtkP aPuTP aPv=xP aPv\rP aPv|UP e"luP'ePv8vP ePv9VP ePv;P fDP fHP gkp gk9p glp glp gltp gl}p gpKW Rh%
	IFNB <>S,<
	PRINTX  (FroS(m GLXVER)
	> ;END IFNB 
	gpMt Q(%
	PRINTX QHGLXVER	GLXSCN EdiQht(66) by DPM on 4R-May-81
	PRINTX	R(    	GLXSCN	Actual Edit(A)
	gtYP g"@ |q
	IFN <<.|9.TA>&B>,<PRINTX|X ?Initial field n|xot zero in $SET>
	}8..TVAL==<C>
	}X..TMSK==<B>
	  ..TA==..TA!}x<FLD(..TVAL,..TMS~K)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@navC.SWIT+PDBCPY##C.SWIT+PDBg$tkQQ@g$uP'g$uh6Q  g.N	@ 6@g.N
.SPID	(SRP.QSR,.IPCPQ,.SPQR SR,QUASAR)	
.SPIR@D	(SP.OPR,.IPCPO,R`.SPOPR,ORION)	
.SSPID	(SP.INF,.IPCS PI,.SPINF,INFO)	
.SPID	(SP.MDA,.IS`PCPM,.SPMDA,MDA)	T
TOPS10<
.SPID	T (SP.IPC,.IPCPS,,IT@PCC)		
.SPID	(SPT`.ACT,.IPCPA,,ACTDUAE)		
.SPID	(SP.U TLP,.IPCPT,,TAPLAU@B)		
.SPID	(SP.TU`OL,.IPCPC,,TAPAVRV)		
.SPID	(SP.DOV L,.IPCPD,,DSKAVR)V@		
.SPID	(SP.FILV`,.IPCPF,,FILDAE)		
>
,FILDAE)	gR^h9 99[
	..STKR=9Y=10		
	RADIX 8
9x	..STKN==0
	IRP :A,<
	  .STKV1 (:8A)>
	$CALL	.STK:XST
	 ..STKN,,..S:xTKN
	RADIX ..STK;R
	PURGE ..STKN,;8..STKR,..STKQ
   TKR,..STKQ
  gR~)  _9
	IFNB <_YC>,<..STR0 (..DPB_x,A,C,B)>
	IFB`  <C>,<MOVEM A,B>>,<MOVEM A,gV p..AS(A,B,SUB,ADD)(A,Bgg

V ,al
	IFNB <-B>,<TOPS10<A==B- >>
	IFNB <C>,<T-@OPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( {)'ZIFN FTUUOS,B			;DEFINE UNi?4H {i'^IFN FTJSYS,	INTERN AEDT	iD q;

  IFNB	<A>,<.TQCHA==^0D<B>B17+ZZ>
  IPFNB 	<D>,<DEFINEp ..TQMA<D>>
  IFNB	<C>,<.TQC=0=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, q+
	LSTOF.


	TQ(T,2,ASCIZ)		

0	
	TQ(O,2,OCTAL)

P			
	TQ(D,2,DECI

pMAL)			
	TQ(F,2,
	TQ(7,2)			
	TQ(CSIXBIT)			
	TQ(W,2,SIXBIT)			
	TQ(5,2,SVNBIT0)			
	TQ(P,2,USEPR)			
	TQ(U,2,DIpRECTORY)			
	TQ(H,2,DAYTIME)			
0	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		p	
	TQ(I,1,INDIRECT)		
	TQ(M,0,CR0,..TXC0(\".CHCRT)P)	
	TQ(J,0,LF,..pTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXC00(\".CHFFD))	
	TPQ(K,0,VT,..TXC0(\p".CHVTB))	
	TQ(A,0,NOCRLF,..TXA(.0TQCHA))	
	TQ(0,0P,NULL,..TXA(.TQCHp0))	
	TQ(3,0,STRING,..TXER(IQU))	0
	TQ(V,2,VERSIONP)			
	TQ(2,0,CARpET,..TXER(IQU))	
	TQ(Q,2,POINTER)0			
	TQ(B,2,ROB)P			
	TQ(1,2,OBJEpCT)			
	TQ(N,2,NODE)			
	TQ(R,2,0JIB)			
	LSTON.
)			
	LSTON. 6!F
	LSTOF.
	X(33,TTY33,33,)D				
	X(35,TTY35DA,35,)				
TOPS20D!<
	X(37,TTY37,37Di,)				
	X(EXECUPEORT,EXEC,EXE,)			E(
>
TOPS10<
	X(EHLA120,LA120,L12,)Eh			
>
	X(LA36,LFA36,L36,)			
	X(F(VT05,VT05,V05,<37FH,177,177,177>)	
Fh	X(VT100,VT100,10G0,<.CHESC,"[","K"G(>)	
	X(VT50,VT50GH,V50,<.CHESC,"J">Gh)		
	X(VT52,VT52H,V52,<.CHESC,"J">H()		
TOPS10<	X(VTHH61,VT61,V61,<.CHEHhSC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ ?y


	..TRR==@10		
	RADIX 8
	@8..NV==1			
	IRP @XA,<
	  .TRV1 (@xA)>		
	$CALL	.TRASET		
	 ..NV-1,,A8..NV-1
	RADIX ..AXTRR		
	PURGE ..TRR,..NVURGE ..Tib 	I
		..TX(C,A,<B>)..TX(Cib 
YU
		..TX(CA,A,<B>).TX(CibP 	YM
		..TX(CE,A,<B>).TX(Cib` 
Q
		..TX(CN,A,<B>).TX(Cibp 
		..TX(N,A,<B>)..TX(Nibt Y%
		..TX(NA,A,<B>).TX(NibtP Y
		..TX(NE,A,<B>).TX(Nibu` !
		..TX(NN,A,<B>).TX(Nibx )
		..TX(O,A,<B>)..TX(Oib| Y5
		..TX(OA,A,<B>).TX(Oib|P Y-
		..TX(OE,A,<B>).TX(Oib}` 1
		..TX(ON,A,<B>).TX(Oic KW X%D
	IFNB <>X(,<
	PRINTX  (FroXHm GLXVER)
	> ;END IFNB 
	ic Mt VH%<
	PRINTX VhGLXVER	GLXTXT EdiWt(46) by DPM on 3W(0-Apr-81
	PRINTXWH	    	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 9
		..TX(Z,A,<B>)..TX(ZicT YE
		..TX(ZA,A,<B>).TX(ZicTP Y=
		..TX(ZE,A,<B>).TX(ZicU` A
		..TX(ZN,A,<B>).TX(ZmKc@ |	MBYTE (3)AYWHO (9)AVER (6)AMIN (18)AEDTo&  S9<^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 C!
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +

q+= +
q6~i4 C q? Y	%
	TXC A,<B>
	TXC A,q@ yIFB <C>,<A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up hYK
	IFNB <hyB>,<..STR1 (..TQZi,,<B>,A,..STR4)i8>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z -a"~
	.$RESET.
	$TYPE (.CMACT). 
	$HELP (<>)
	$.@NEXT (A)
IFIDN .`<B> <>,< IRP C,/<C>
			.$BUILD>/ 
IFDIF <B> <>,</@
	$HELP (B)
	I/`RP C,<C>
	.$BUILD><C>
	.$BU	0 }!n
.WTOX.(.OM}AACK,<A>,<B>,<C}`>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 j9UDEFINE .$RjYTN <A>
			.%RTN==1A>
			.%RTN	fI9 e9-DEFINE .$LeYST <A+1>
			.%LST==11>
			.%L	
=Z mq
	  IFG m9A-INT.LV,<PRINTX mX?Level A interrumxpts not supportedn>
	  .BGINT.(\A)   .BGINT.(\A	X5 gY?DEFINE .$BgyREA <A>
			.%BREA==1>
			.%BR	- oy
	  IFDEFp ..BSIZ,<PRINTX ?p8Missing $EOB aftepXr a $BUILD>
	  .px.BSIZ==0			
	  .q.BLOC==.			
	  Rq8EPEAT A,<			
		qXBLD0.(\..BSIZ,0)	qx
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 A!J
	.$RESETa
	$TYPE (.CMCMA)
	$NEXT (A)
	I RP B,<B>
	.$BUILD,<B>
	.$BU	I@ !,
	.$RESET!
	$TYPE (.CMCFM)@
	IRP A,<A>
	.$BUILD,<A>
		$^ a"
	.$RESET
	$TYPE (.CMTXT) 
	$HELP (<>)
	$@NEXT (A)
IFIDN `<B> <>,< IRP C, <C>
			.$BUILD>  
IFDIF <B> <>,< @
	$HELP (B)
	I `RP C,<C>
	.$BUILD><C>
	.$BU	I  !!"
	.$RESET!A
	$TYPE (.CMTAD)!`
	$PDATA (CM%IDA")
	$NEXT (A)
	" IRP B,<B>
	.$BUILD,<B>
	.$B	,,U o{
	  $RET	o9			;WILL INVOKE RIGHT ROUTINE
		,h: cY!DEFINE .$DcyEFM <POINT 7,[ASCdIZ\A\]>
			.%DEFM==1>
			.%DE	.` A!r
	.$RESETa
	$TYPE (.CMDEV)
	$NEXT (A)
	I RP B,<B>
	.$BUILD,<B>
	.$BU	Lz: A .
	.$RESETa
	$TYPE (.CMNUX)
	$PDATA (B)
	 $HELP (<>)
	$NEX@T (A)
IFIDN <C`> <>,< IRP D,<D>
			.$BUILD>
I FDIF <C> <>,<
	@$HELP (C)
	IRP `D,<D>
	.$BUILD><D>
	.$BUILD	N  !6
	.$RESET!
	$TYPE (.CMDIR)@
	$NEXT (A)
	I`RP B,<B>
	.$BUILD,<B>
	.$BU	|  vyS
	  IFNDEwF ..BSIZ,<PRINTX w8?$EOB without prewXvious $BUILD>
	 wx IFN <.-..BLOC>,<xPRINTX ?Address cx8hange between $BUxXILD and $EOB>
	 xx LSTOF.			
	  ..yT==0
	  REPEAT .y8.BSIZ,<
	    BLDyX0.(\..T,1)		
	  yx  ..T==..T+1 >
	z  PURGE ..BSIZ,..z8T,..BLOC	
	  LSTON.
		
	  LST	+y fy9DEFINE .$EgRTN <A>
			.%ERTN==1>
			.%ER	, h9EDEFINE .$EhYRTN <1B0+A+1>
			.%ERTN==1>
		- iODEFINE .$Ei9RTN <[MOVEI S2,[AiXSCIZ\A\]
				  ix    $RETF]>
			.%ERTN==1>
			.	H6 q
	$CALL	.STOP
	LSTOF.
	J0UMP	[XWD 0,[ITEXTP (<A>)]
		 EXP p%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ A!$
	.$RESETa
	$TYPE (.CMFLD)
	$NEXT (A)
	$ HELP (<>)
IFIDN @<B> <>,< IRP C,`<C>
			.$BUILD>
IFDIF <B> <>,< 
	$HELP (B)
	I@RP C,<C>
	.$BUILD><C>
	.$BU	MI  !
	.$RESET!
	$TYPE (.CMFIL)@
	$HELP (<>)
	$`NEXT (A)
IFIDN <B> <>,< IRP C, <C>
			.$BUILD>@
IFDIF <B> <>,<`
	$HELP (B)
	IRP C,<C>
	.$BUILD><C>
	.$BU	dy `y	DEFINE .$FaLGS <A>
			.%FLGS==1>
			.%FL	ex: !h
	.$RESET!
	$TYPE (.CMFLT)@
	$HELP (<>)
	$`NEXT (A)
IFIDN <B> <>,< IRP C, <C>
			.$BUILD>@
IFDIF <B> <>,<`
	$HELP (B)
	IRP C,<C>
	.$BUILD><C>
	.$BU	$ X
	  INTER1N A
	  $DATA(A,<B>)
	ATA(A(.|1Sd`	"
	IFDIF <bYA> <>,<
DEFINE bx.$HLPM <POINT 7,[cASCIZ\A\]>
			.%HLPM==1>
			.	&5  h
	.$RESET!
	$TYPE (.CMIFI)@
	$HELP (<>)
	$`NEXT (A)
IFIDN 

<B> <>,< IRP C,

 <C>
			.$BUILD>

@
IFDIF <B> <>,<

`
	$HELP (B)
	I C,<C>
	.$BUILD><C>
	.$BU	&u a!T
	.$RESET
	$NEXT (A)
	$ TYPE (.CMINI)
	I@RP B,<B>
	.$BUILD,<B>
	.$BU	./ ! 
	.$RESETA
	$TYPE (.CMKEY)`
	$PDATA (B)
	$NEXT (A)
	IRP  C,<C>
	.$BUILD,<C>
	.$BUILD	./ }av
	.$RESET~
	$TYPE (.CMKEY)~ 
	$PDATA (A)
	~@$NEXT (0)
	IRP ~`B,<B>
	.$BUILD,<B>
	.$BUILD	/>KyD.WTOX.(.OM!WTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p !|.WTOX.(.OMALOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV +"j
	.$RESET+!
	$TYPE (.CMNOD)+@
	$HELP (<>)
	$+`NEXT (A)
IFIDN ,<B> <>,< IRP C,, <C>
			.$BUILD>,@
IFDIF <B> <>,<,`
	$HELP (B)
;	-$FLAGS (CM%PO)
	- IRP C,<C>
	.$BUILD><C>
	.$B	:}r ! <
	.$RESETA
	$TYPE (.CMNOI)`
	$PDATA (<POINT 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR@P C,<C>
	.$BUILD,<C>
	.$BUI	;-XR a 
	.$RESET
	$TYPE (.CMNUM) 
	$PDATA (B)
	@$HELP (<>)
	$NEX`T (A)
IFIDN <C> <>,< IRP D,<D >
			.$BUILD>
I@FDIF <C> <>,<
	`$HELP (C)
	IRP D,<D>
	.$BUILD><D>
	.$BUILD	>5 
	.$RESET
	$TYPE (.CMOFI)
	$NEXT (A)
	$ HELP (<>)
IFIDN @<B> <>,< IRP C,`<C>
			.$BUILD>
IFDIF <B> <>,< 
	$HELP (B)
	I@RP C,<C>
	.$BUILD><C>
	.$BU	B$ aYDEFINE .$DayATA <A>
			.%DATA==1>
			.%DA	B$YP dY'DEFINE .$DdyEFM <POINT 7,<A>>
			.%DEFM==1	CYT k[DEFINE .$Dk9EFR <A>
			.%DEFR==1>
			.%DE	G-} %a">
	.$RESET&
	$TYPE (.CMQST)& 
	$HELP (<>)
	$&@NEXT (A)
IFIDN &`<B> <>,< IRP C,'<C>
			.$BUILD>' 
IFDIF <B> <>,<'@
	$HELP (B)
	I'`RP C,<C>
	.$BUILD><C>
	.$BU	J.I  ~az
	  $CALL	.RETE			
		LSTO F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  J
	.NVR==0J9			
	.ACM==0			

	IRP A,<		
	Jx	..TSAC(.ACB,A)	K	
		IFN .ACB,<.AK8CM==.ACM!1B<A>>	KX
		IFE .ACB,<			Kx
		IFE .NVR,<			L
		    CAIA			
L8		    LSTOF.
		 LX   JRST b>
		  Lx..PUSH(A,\<.NVR+M1>)>>	

	IFN .AM8CM,<	
	    IFE <MX.ACM-17B<T4>>,<.AMxCM==0
				$CALL N.SAVET>
	    IFEN8 <.ACM-377B<.A16>NX>,<.ACM==0
				$NxCALL .SAVE8>
	  O  IFE <.ACM-17B<PO84>>,<.ACM==0
			OX	$CALL .SAVE4>
	Ox    IFE <.ACM-7B<PP3>>,<.ACM==0
		P8		$CALL .SAVE3>
PX	    IFE .NVR,<	
	    IFE <.ACM-3QB<P2>>,<.ACM==0
Q8				$CALL .SAVE2>QX
	R  IFE <.ACM-Qx1B<P1>>,<.ACM==0
				$CALL .SAVE1R8>
	    IFE <.ACMRX-1B<.A13>>,<.ACM=Rx=0
				$CALL .SVS13>
	    IFE <.AS8CM-1B<.A14>>,<.ACSXM==0
				$CALL .SxSV14>
	    IFE <T.ACM-1B<.A15>>,<.T8ACM==0
				$CALLTX .SV15>
	    IFETx <.ACM-1B<.A16>>,U<.ACM==0
				$CAU8LL .SV16>
	    >UX>

	IFN .ACM,<	Ux
	    IFE .NVR,<V			
		CAIA			
	V8	LSTOF.
		JRST VXb>

	    .ACB==Vx0			
	REPEAT ^D1W6,<			
	    IFN W8<.ACM&1B<.ACB>>,<WX	
		..PUSH(\.ACBWx,\<.NVR+1>)>
		.XACB==.ACB+1>>		
X8
	IFN .NVR,<	
	XX    PUSH P,[[CAIAXx		
		     AOS -.YNVR(P)	
	    REPY8EAT .NVR,<..POP(\YX.NVR)>	
		     PYxOPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ r9#
	  IFNDErYF ..BSIZ,<PRINTX rx?$SET without presvious $BUILD>
	 s8 IFNB <B>,<..STRsX0 (..SET,<C>,B,sxA)>
	IFB  <Bt>,<..STR0 (..SET,t8<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
5A	XWD b-1,b-1
	5`DEFINE $ETAB <
		b==.-a> <
		O%| 1
S..A::!1	$CALL .STOP
		LPSTOF.
		JUMP [XWpD 'A',[ITEXT (<B>)]
			EXP %%.MOD]
		LSTON.	M	O= 	A T
	.$RESET	a
	$TYPE (.CMSWI)

	$PDATA (A)
	
 $NEXT (0)
	IRP 
@B,<B>
	.$BUILD,<B>
	.$BUILD	O=  H
	.$RESET!
	$TYPE (.CMSWI)@
	$PDATA (B)
	`$NEXT (A)
	IRP 	C,<C>
	.$BUILD,<C>
	.$BUILD	R

@ $!"*
	.$RESET$A
	$TYPE (.CMTAD)$`
	$PDATA (<CM%ID%A!CM%ITM>)
	$NEX% T (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	Tq%TEXT
	LSTOF.	XCREF
	JUMP	[XWD 20,0
		 EVL (A)
P		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESET#
	$TYPE (.CMTAD)# 
	$PDATA (CM%ITM#@)
	$NEXT (A)
	#`IRP B,<B>
	.$BUILD,<B>
	.$B	R}97 0!#


	.$RESET0A
	$TYPE (.CMTOK)0`
	$PDATA (<POINT1 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR1@P C,<C>
	.$BUILD,<C>
	.$BUI	S QA


  ..TXaA(.TQA,C,D,E,qB)	
      IFN .1.TXEF,<			
	..TERR<$TQ(A,B,C,D,E)>>

C,	S@I9 1A,
	LSTOF.
	X(UQU,Unknown q2ualifier)
	X(IQU2 ,Invalid qualifie2@r)
	X(IJA,Invali2`d justification a3rgument)
	X(IWA,3 Invalid width arg3@ument)
	X(PEA,Pr3`emature end of ar4gument)
	X(JNA,J4 ustification is n4@ot allowed)
	X(A4`NA,Arguments are 5not allowed)
	X(5 ADS,Address must 5@be specified)
	LSTON.
ied)
	L	SN	  `DEFINE .$T`9YP <A>
			.%TYPE==1>
			.%TYP	W= (!"T
	.$RESET(A
	$TYPE (.CMUQS)(`
	$HELP (<>)
	$)NEXT (A)
	$PDAT) A (B)
IFIDN <C)@> <>,< IRP D,<D)`>
			.$BUILD>
I*FDIF <C> <>,<
	* $HELP (C)
	IRP *@D,<D>
	.$BUILD><D>
	.$BUILD	W\@ !!@
	.$RESETA
	$TYPE (.CMUSR)`
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ 1%
IFE %%.OQTS,<DEFINE $WARN p(MSG) <
		$TEXT (T%TTY,<% ^W6/[%%0.MOD]/ MSG>)>>
IPFN %%.OTS,<DEFINEp $WARN (MSG) <
		$TEXT (T%TTY,<% 0^W6/IIB+IB.PRG/ ^PW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r q!
		IFB	<qAA>,<.WFACD==0
		q`	IFN <0-2>,<.$WACrD==0>>
		IFNB	<r A>,<.WFACD==-1
	r@		IFN <0-2>,<.$WAr`CD==.$WACD!<A>>
			IFE <0-2>,<DEs FINE .$WACD,<<WO.s@ACD>B8+[ITEXT (<A>)]>>
		>
<	_$u f!D
		IFB	<fAA>,<.WFACK==0
		f`	IFN <0-2>,<.$WACgK==0>>
		IFNB	<g A>,<.WFACK==-1
	g@		IFN <0-2>,<.$WAg`CK==.$WACK!<A>>
			IFE <0-2>,<DEh FINE .$WACK,<<WO.h@ACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ XZ
	IFE	<.WX!FMTY>,<PRINTX ?NoX@ message type in X`$WTBLD>
DEFINE .YEAWTO(SUFFIX,ARGCY OD),<
IFN .WF'SUY@FFIX',<
	IFE	<ARY`GCOD-0>,<<WO.'SUFZFIX'>B8+ .$W'SUFFZ IX'>
	IFE	<ARGCOZ@D-1>,<<WO.'SUFFIXz '>B8+ [EXP .$W'SUz@FFIX']>
	IFE	<ARz`GCOD-2>,<.$W'SUFF{IX'>
>
>
	ALLW{ TO				
	EXP	0			
		
	EXP	0				_$k iZ
		IFB	<i!A>,<.WFFLG==0
		i@	IFN <1-2>,<.$WFLi`G==0>>
		IFNB	<jA>,<.WFFLG==-1
	j 		IFN <1-2>,<.$WFj@LG==.$WFLG!<A>>
			IFE <1-2>,<DEkFINE .$WFLG,<<WO.k FLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W nA
		IFB	<naA>,<.WFJBN==0
		o	IFN <0-2>,<.$WJBo N==0>>
		IFNB	<o@A>,<.WFJBN==-1
	o`		IFN <0-2>,<.$WJpBN==.$WJBN!<A>>
			IFE <0-2>,<DEp@FINE .$WJBN,<<WO.p`JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV vaH
		IFB	<wA>,<.WFMFL==0
		w 	IFN <1-2>,<.$WMFw@L==0>>
		IFNB	<w`A>,<.WFMFL==-1
	x		IFN <1-2>,<.$WMx FL==.$WMFL!<A>>
			IFE <1-2>,<DEx`FINE .$WMFL,<<WO.yMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] [!l
		IFB	<[AA>,<.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>)]>>
		>
<	_%kr kap
		IFB	<lA>,<.WFNOD==0
		l 	IFN <0-2>,<.$WNOl@D==0>>
		IFNB	<l`A>,<.WFNOD==-1
	m		IFN <0-2>,<.$WNm OD==.$WNOD!<A>>
			IFE <0-2>,<DEm`FINE .$WNOD,<<WO.nNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p {a`.WTOX.(.OM|WTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU cA.
		IFB	<caA>,<.WFOBJ==0
		d	IFN <0-2>,<.$WOBd J==0>>
		IFNB	<d@A>,<.WFOBJ==-1
	d`		IFN <0-2>,<.$WOeBJ==.$WOBJ!<A>>
			IFE <0-2>,<DEe@FINE .$WOBJ,<<WO.e`OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr t2
		IFB	<t!A>,<.WFOCD==0
		t@	IFN <0-2>,<.$WOCt`D==0>>
		IFNB	<uA>,<.WFOCD==-1
	u 		IFN <0-2>,<.$WOu@CD==.$WOCD!<A>>
			IFE <0-2>,<DEvFINE .$WOCD,<<WO.v OCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ ~!v.WTOX.(.OM~AWTO,<A>,<B>,<C~`>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ |Af
.WTOX.(.OM|aWTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z [L
	DEFINE	Za.EAWTO(SUFFIX),<$yAWT'SUFFIX'	<>>
	ALLWTO				

		_&N `a
		IFB	<aA>,<.WFTXT==0
		a 	IFN <2-2>,<.$WTXa@T==0>>
		IFNB	<a`A>,<.WFTXT==-1
	b		IFN <2-2>,<.$WTb XT==.$WTXT!<A>>
			IFE <2-2>,<DEb`FINE .$WTXT,<<WO.cTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 ^
		IFB	<^!A>,<.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 
,MP F)0 m0;PZ6 taj			

	du==<FLD(.$TYP,CM%Fu NC)>!.$FLGS!<.$LSu@T> 

	IFN <.%BRu`EA>,<d==d!CM%BRvK> 

	IFN <.%HLv PM>,<d==d!CM%HPv@P!CM%SDH> 
					v`	

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

c:!	XWD	b,w@a			

	EXP d	w`			

	EXP .$DATxA			

IFN <.%HLx PM!.%DEFM!.%BREA>x@,<
		EXP	.$HLPM>x`		


IFN <.%DEyFM!.%BREA>,<
		Ey XP	.$DEFM>		

y@
IFN <.%BREA>,<	Ey`XP	.$BREA>		

	za==.-c			;LENGTz H OF THE FDB

Iz@FN <.%NXT!.%DEFR!z`.%RTN!.%ERTN>,< E{XP .$NXT >	

IF{ N <.%DEFR!.%RTN!.{@%ERTN>,<EXP .$RTN{` >	

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

IFN <.|@%DEFR>,<		EXP	.$D|`EFR>	


	b==.}-c			

	IF2<	P} URGE a,b,c,d>
	LISTb,c,d>$YV lYePOINT 7,[ASCIZ\0\]NT 7,[A$YY q0

ZP.-k0:P5Iya09 Pf= g0+1Pw
	SALL
	oAXLIST
	DEFINE .$o`TYP <0>
	.%TYPE=p=0
	DEFINE .$FLGp S <0>
	.%FLGS==0p@
	DEFINE .$DATA p`<0>
	.%DATA==0
q	DEFINE .$HLPM <>q 
	.%HLPM==0
	DEq@FINE .$DEFM <0>
q`	.%DEFM==0
	DEFIrNE .$LST <0>
	.%r LST==0
	DEFINE .r@$BREA <0>
	.%BREr`A==0
	DEFINE .$NsXT <0>
	.%NXT==0s 
	DEFINE .$ERTN s@<0>
	.%ERTN==0
s`	DEFINE .$RTN <0>t
	.%RTN==0
	DEFt INE .$DEFR <0>
	.%DEFR==0<0>
	K@o0y7P'Y80T 1,9)0P $YVP $YYP .-P 5IyP f=P w
	   ..ASry1==-<B>	
	IFDEFs .PSECT,<
	.IFN s8..AS1,ABSOLUTE,<
	     C A,[-..sxAS1]>	
	.IF ..ASt1,ABSOLUTE,<
		.t8.AS2==0	
	  IFE tX<..AS1&^O777777B1tx7>,<
		..AS2==1	u
	    DI A,..Au8S1>
	  IFE ..AS2uX,<
	    ..OP(A,uxB,C)>	
	PURGE v..AS1,..AS2>>
	Iv8FNDEF .PSECT,<
	vX	..AS2==0	
	  IFvxE <..AS1&^O777777wB17>,<
		..AS2==w81	
	    DI A,.wX.AS1>
	  IFE ..AwxS2,<		
	    ..OPx(A,B,C)>
	PURGE ..AS1,..AS2>:h 	?
	A: eYy
	  ..CX1ey==C
	IFDEF .PSEfCT,<
 	.IFN ..CXf81,ABSOLUTE,<
	  fX    CAMA B,[C]fx>
	.IF ..CX1,ABSgOLUTE,<	
		..CX2g8==0	
	  IFE <..CgYX1&^O777777B17>,<gx
		..CX2==1	
	 h   CAIA B,C>
h8	  IFE ..CX2,<		
	    CAMA B,[lxC]>
	PURGE ..CX1m,..CX2>>
	IFNDEFm8 .PSECT,<
		..CXmX2==0	
	  IFE <..mxCX1&^O777777B17>,n<
		..CX2==1	
	n8    CAIA B,C>
	  IFE ..CX2,<		nx
	    CAMA B,[oC]>
	PURGE ..CX1,..CX2>GE ..CX:&@ `Y
	..TSIZ `y(..PST,C)
	.CASaE ..PST,<<
		MOVa8EM A,B>,<
		HRaXRM A,B>,<
		HRaxLM A,B>,<
		DPbB A,[POINTR (B,C)]>>INTR (B,:<;Y 89G
   DEFIN8YE ..CNS2 (NEW,OLD8x)<
	  OLD>			
	..CNS ()>			
	:L;Y 6?
   DEFIN69E ..CNS (%%%)<
	6X..CNS2 <%%%>,>
6x
   DEFINE ..CNS27 (NEW,OLD)<
	DEF78INE ..CNS (%%%)<
	  ..CNS2 <%%%>,7x<OLD'NEW>>>
   OLD'NEW>>>
w:dH@ ]9
	..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 9	m
	A==<<<Y-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ xYq
	  ..OP1xy==B
	IFDEF .PSEyCT,<
 	.IFN ..OPy81,ABSOLUTE,<
	  yX    C A,[..OP1]yx>
	.IF ..OP1,ABSzOLUTE,<	
		..OP2z8==0	
	  IFE <..OzXP1&^O777777B17>,<zx
		..OP2==1	
	{{   CI A,..OP1>
	  IFE ..OP2,<		{X
	    C A,[..O{xP1]>
	PURGE ..OP|1,..OP2>>
	IFNDE|8F .PSECT,<
		..O|XP2==0	
	  IFE <.|x.OP1&^O777777B17>},<
		..OP2==1	
}8	    CI A,..OP1}X>
	  IFE ..OP2,<}x		
	    C A,[.~.OP1]>
	PURGE ..OP1,..OP2>GE ..;m 0!
	..PST==0AC-FWMASK
	.IF0 0`..PST,<
		POINT 10,B,35>,<
		POINTR (B,C)>POI;| [
		POP P,[9.NVA
		PURGE .N[XVA
		.NVR==.NVR-1
		.NVR==.NVR;\t Z9
		PUSH PZY,A
		.NVB==A
		.NVR==.NVR+1;] ty3
	  IFGE u<<<B>&777777>-..u8BSIZ>,<
		PRINTXuX ?WORD offset greuxater than $BUILD vsize parameter>
v8	  SET0. (\<B>,C,<A>)
	B>,;LH #y
/
	IFNDEF $C,<PRINTX C IS $8NOT DEFINED
	  $XA (<B>,D,FWMASK$x)>	
	IFDEF C,<
	IFNDEF %C,<
	%8  A (<B>,D,C)%X>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH &9
m

	..NS==0&Y			
	IRP C,<..N&xS=..NS+1>	
	IFE '..NS,<PRINTX ?EMP'8TY STRUCTURE LIST'X, A>
	IFE ..NS-'x1,<		
	  ..STR0 ((A,<B>,<C>,D)(8>
	IFG ..NS-1,<	(X	
	..ICNS			
	.(x.CNS (<E (A,<B)>,,>) 
	IRP C,<)8		
	  IFNDEF C,)X<PRINTX C NOT DE)xFINED>
	  IFDEF *C,<
	  IFNDEF %*8C,<
	  ..CNS (<*X,C,D>)>	
	  IF*xDEF %C,<
	  %C+ (..STR2,,D,C)>+8 
	  ..CNS (<)>)+X		
	  ..GCNS		
+x	  ..ICNS		
	  .,.CNS (<E (A,<B,8>>) 
	  IFNDEF %,XC,<
	  ..CNS (<,x,C,D>)>	
	  IF-DEF %C,<
	  %C-8 (..STR2,,D,C)>-X>> 
	..CNS (<,,)>)		
	..GCNS>);LI .
q
	..CNS (<,C,B>).CNS (;LI .Y


	IFDIF <.yD><F>,<
	  IFN/B <D>,<
	    A/8 (<B>,D,..MSK)	/X
	    IFNB <F>,/x<PRINTX C AND E0 ARE IN DIFFERENT08 WORDS>>
	  ..MS0XK==0>		
	IFNB <0xF>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ 19


	IFDIF <1YD><F>,<	
	  IF1xNB <D>,<
	    2A (<B>,D,..MSK)28>	
	  ..MSK==0>	2X	
	IFNB <F>,<
2x	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ 39-


	IFDIF <3YD><F>,<	
	  IF3xNB <D>,<
	    I4FNB <F>,<		
		48A1 (B,D,..MSK)>4X 
	    IFB <F>,4x<		
		A2 (B,D5,..MSK)>> 
	  ..58MSK==0>		
	IFNB 5X<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y 7!F
6IF1,<
    PRINTX ? Err7or in "A"
    D7QEFINE X(NAM,ERR) 8!<IFN ..X'NAM&..TX8@EF,<PRINTX ? ERR>8`>
    $TX$ERR>

    $TX$ERR>
;$^ :A|

    ..: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>,\..TX>F)>>	
    ..TXC1> 				
    IFN ..T>@XB,<IFN <..TXB-"^>`">,<..TXER(PEA)>>?
    ..TXEF==..T? XEF!..TXEG		
   ?@ IFN ..TXEF,<..TERR<A>>
,<..TE;&( 1k..TXA(.TQCH0)..TXA(.TQC;&) At..TXER(IQU)..TXER(IQU;&) qo..TXER(IQU)..TXER(IQU;&0 qg..TXA(.TQCHA)..TXA(.TQC;&5 1[..TXC0(\".CHLFD).TXC0(\".;&5 1c..TXC0(\".CHVTB).TXC0(\".;&6 q_..TXC0(\".CHFFD).TXC0(\".;&6 qW..TXC0(\".CHCRT).TXC0(\".;&@ iye
	..TSIZ j(..PST,C)	
	.CAj8SE ..PST,<<
		SEjXTZM B>,<	
		HLLjxZS B>,<	
		HRRZkS B>,<	
	  ..TSk8AC (..ACT,B)	
	kX  .IF0 ..ACT,<
	kx	$CALL .ZERO	
		lLSTOF.
		JUMP [Pl8OINTR(B,C)]
		lXLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 y	g
	IFNDEF .PSECT,<
	A==0	8		
	..TSA1==<Z XB>		
	  IFE ..TSxA1&^O777777777760,<A==1> 
	>
	I8FDEF .PSECT,<
	XA==0			
	..TSA1=x=<Z B>		
	.IF ..TSA1,ABSOLUTE,<	8
	  IFE ..TSA1&^XO777777777760,<Ax==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 9	K
	A==3		Y	
	IFE <B>+1,<xA=0>	
	IFE <B>-^O777777,<A==1> 8
	IFE <B>-^O777777B17,<A==2>7;' ~Y	
   ..TX1~y==C			
IFDEF .PSECT,<
   .IFN .8.TX1,ABSOLUTE,<
X	TDA B,[C]>
   .IF ..TX1,ABSOLyUTE,<		
	..TX2==90		
	IFE <..TX1&Y^O777777B17>,<
	x  ..TX2==1		
	  TRA B,..TX1>
	8IFE ..TX2,<		
	IXFE <..TX1&^O77777y7>,<
	  ..TX2==1		
	  TLA B,(.8.TX1)>>
	IFE ..TXX2,<		
	  IFE <<x..TX1>B53-^O777777>,< 
	    ..TX38 (A,B)>>	
	IFEX ..TX2,<		
	  TDxA B,[..TX1]>	


	PURGE ..TX1,..TX

82>>
IFNDEF .PSEC

XT,<
	..TX2==0		

x
	IFE7<..TX1&^O77
	TX..1		
	 TRAX1>
	IFEX,<		
	IFE <..TX1&^O777777>,<8
	  ..TX2==1		
X	  TLA B,(..TX1x)>>
	IFE ..TX2,<		
	  IFE <<..TX81>B53-^O777777>,<X 
	    ..TX3 (Ax,B)>>	
	IFE ..TX2,<		
	  TDA 8B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` y	
	IFIDN <A><Z>,<		
	  ..8TX2==1
	  ANDI XB,^-..TX1>	
	IFIxDN <A><O>,<		
	  ..TX2==1
	XOR8CMI B,^-..TX1>	
	IFIDN <A><C>,<x		
	  ..TX2==1
	  EQVI B,^-..TX1>QVI B,^-..TX;'   ar



	..TXE!F==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,<
	IFID&N <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==.TXTJ)L
	      IFE <A) -.TQOCT>,<..TXJU=)@=.TXTJR>
	*     )`IFE <A-.TQDEC>,<*..TXJU==.TXTJR>>
	    IFB  <D>,<*@..TXFC==" ">
	  *`  IFNB <D>,<..TX+FC=="D">>>
	
	+ IFB  <EF>,<..TX+@PT==0>
	IFNB <E+`F>,<..TXPT==1>
,	IFE <..TXWD+..TX, PT>,<
	    EXP F,@LD(A,TXT.FN)>
	,`IFN <..TXWD+..TXP-T>,<
	    EXP FL- D(A,TXT.FN)+FLD([email protected],TXT.JU)+FL-`D(..TXWD,TXT.WD)+.FLD(..TXFC,TXT.FC. )+TXT.AD
	    PNTR(E,F)>>

;'h Q!
    IFE QA..TXP,<			
	..ICQ`NS			
	..CNS<ASCRIZ\>		
	..TXP==1R >		
    ..CNS<AR@>			
    ..TXF==R`0			
    ..TXB=="^"
    ..TXB==;'h S!"

    IFSAN ..TXP,<			
	..S`CNS<\>		
	EXP <FTLD(.TQCHT,TXT.FN)T +[..GCNS]>>
    ..TXP==0>
    ;'	9 9!P
    ..TX9AEF==..TXEF!..XA	9`	
    ..TXF==0		:		
    ..TXB=="^"
    ..TXB=="^;'

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

( @A


    IF@aN ..TXC-"^",<..TXAC0(<A>)>		
    A IFE ..TXC-"^",<..TXF==1>-"^",<..;'

( Aa*

    IFBE ..TXC-"^",<..TXB C0(<A>)>	
    IB@FN ..TXF,<			
	.B`.TXF==0		
	IFDEFC .TQCHA,<		
	  C   IFDEF ..TQMA,.[email protected]A 
	    IFNC` <.TQCHA_-^D18>,D<..TXF==2>>>
   D  IFE ..TXF-2,<..TD@XC1(<A>)	
	..ICD`NS			
	..CNS<..TEXA(.TQCHA,>>	
 E    ..TXEG==..TXEG!..TXEF==..TXEG;'

) Ea<
    ..TXFF==3				
    IFGF E ..TXC-"0",IFLE [email protected]"9",<..TXF=F`=2>
    IFE ..TXGF-2,<..CNS(A)>		G 
    IFE ..TXF-3G@,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) HP
    ..TXH!F==4				
    IFEH@ ..TXC-"/",<..TXFH`==5>		
    IFE .I.TXC-"[",<..TXF==I 5>		
    IFE ..TI@XF-4,<..CNS<A,>>I`		
    IFE ..TXFJ-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* JAf
    ..TXJaF==4				
    IFEK ..TXC-"/",..TXF=K =5		
    IFE ..TK@XC-"[",..TXF==5		K`
    IFE ..TXF-5L,<..CNS<,>		
		 L ..TXQ5<A>>		
  L@  IFE ..TXF-4,<..L`CNS<A,>		
		 ..TXF==5>	
		 ..;'

* M!x
    ..TXMAF==6				
    IFEM` ..TXC-"/",..TXB=N="/"		
    IFE .N .TXC-"[",..TXB=="N@]"
    IFE ..TXBN`-"]",..CNS<[>		
O    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ OA
    ..TXOaF==0			
    IFE P..TXC-"]",..CNS<]P >	
    ..CNS<)>	P@		
    ..GCNS			P`
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  FY

5
	.ACV2 (A)
	.ACV2 (d@ G

?
	A=.FPAG9C+..NAC		
	IFB <GXB>,<..NAC=..NAC+Gx1>
	IFNB <B>,<..NAC=..NAC+B>.d` H9

M
	IFG A-HY.NPAC,<PRINTX ?TOHxO MANY ACS USED>
	IFLE A-4,<
	II8 $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z nYu$CALL	I%INTA$CALL	I%IN9  9	=
	..CSN==YA
	..CSC==0
	IxRP B,<
	IFE ..CSN-..CSC,<
	  ST8OPI
	  ..CAS1 (XB)>
	..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 l,UP S@P ,<H fyA
	..PST==gC-FWMASK
	.IF0 g8..PST,<
		SOS BgX>,<	
		$CALL .SOgxS	
		LSTOF.
		JhUMP [POINTR(B,C)]
		LSTON.>C} W!P
	.OPCD==z.OPCD+1
	WO.A==.OPCD
G),<
		$j6p $lWP %I7p %KqP %h:P %i:P &=p P `P &2 	/
	..IFT==9A		
	IFE ..IFT,X<
	B
	..IFT==0x>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H cy)
	..PST==dC-FWMASK
	.IF0 d8..PST,<
		AOS BdX>,<	
		$CALL .AOdxS	
		LSTOF.
		JeUMP [POINTR(B,C)]
		LSTON.>C&tj7Q:?6MiTQ@7;rpz7H:pv7kp=7N8pz;`P3;-J7P#>)qpP>5H3pB>DLYp ?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 >:
	IFG	A-W!MX.PID,<MX.PID==A>
C
G	A-OSP OYP O|P OyP O%=H ;y_
	.STKV2 (A)
	.STKV2 O%=I <9m
	IFB <B<Y>,<..STKN==..STKN<x+1>
	IFNB <B>,<=..STKN==..STKN+B=8>
	..STKQ==..STK=XN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I >{
   IFDEF>9 A,<.IF A,SYMBO>XL,<PRINTX STKVAR >xA ALREADY DEFINE?D>>
	DEFINE A<-?8^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  B


	.TRV2 (A)
	.TRV2 (Sd@ BY


	.TRV3 (ByA,\..NV)	
	IFB C<B>,<..NV=..NV+1C8>
	IFNB <B>,<..NV=..NV+B>,<..Sd` Cy

)
   IFDEFD A,<.IF A,SYMBOD8L,<PRINTX TRVAR DXA ALREADY DEFINEDDx>>
	DEFINE A<^OEB(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP _%~ a"
		$CALL	I%WTO		
		LSTOF. 			
		JRST	g		
		$WTRST			
	IF`NB <A>,<$WTMTY (<A>)>	
	IFNB < B>,<$WTTYP (<B>)@>	
	IFNB <C>,<$`WTTXT (<C>)>	
	IFNB <D>,<$WTOBJ  (<D>)>	
	IFNB @<E>,<$WTACK (<E`>)>	
		IRP F,<F>		
		$WTBLD			 
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP