Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,SW@P C4@ +]
	..NAC==+90		
	IRP A,<
	+X  .ACV1 (A)>		
	.ACV3S(\..NAC)C')U,BC, 7!:LSH A,-^D9LSH A,-^DC2f} :Af
	.EAWTO(:aMTY,0)
	.EAWTO(T;YP,2)
	.EAWTO(TX; T,2)
	.EAWTO(OBJ;@,0)
	.EAWTO(ACK,;`0)
	.EAWTO(FLG,1<)
	.EAWTO(NOD,0)< 
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
<`	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' yYM
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ `Y
	  IFE `yB,<..TA==0>
	  aIFN B,<EXP ..TAa8
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ N
q
	..CX(,A,B)   ..CGD QY
	    ..CX(A,A,B)  ..CGDP OY
}
	..CX(E,A,B)  ..CGDp P
	..CX(G,A,B)  ..CGDy  PY
	    ..CX(GE,A,B) ..CGE@ NY
u
	    ..CX(L,A,B)  ..CGEI  O
y
	..CX(LE,A,B) ..CGE` Q
	    ..CX(N,A,B)  ..CGH &a":

	  LST%aOF.

	X CRE	
	&AX GEN	
	X PRT	
&!	X CLS	
	XAUT	
	X USW	
	X SPL	'
	X SIZ   
	X M' OD	
	X CHN	

	  LSTON.


	G"\Y ya/d

	IF1, z<%%EDT==AEDT>	
z 
	IF2, <IFN <%%Ez@DT-AEDT>,<
		PRz`INTX ? Edit Numbe{r Doesn't Match G{ LXVER in GLXA
	{@	A$WHO(\AEDT)>	{`
		A$NOTE		
	I|NTERN AEDT		
	I| NTERN LODLEV		
;|@	PURGE %%EDT> ;END IF2

a.:=G4,m:Q G4-ZQ G4.
zQ G:YlP 
G>hKW s@'"
	IFNB <.s`2.1622>,<
	PRINTtX .2.1622 (From Gt LXVER)
	> ;END IFNB .2.1622
	G>hMt r'
	PRINTX r GLXVER	GLXCOM Edir@t(70) by  on 3-Ocr`t-85
	PRINTX	   s 	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ y9SLALL
PAGEyY; (A Continued oyxn next page)
SALzL; (A Continued z8from previous page) previous pagGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P'pIY{P .I  K9a
	IFNB <KYB>,<..STR0 (.DECRKx0,,<B>,A)>
	IFLB  <B>,<SOS A>  <B>,<SOS A>I6= Y1
	A==<-1yB<C>+1B<C-D>> 
	IF1,<IFDEF %A8,<PRINTX ?A ALREXADY DEFINED>>
	DxEFINE %A (OP,AC,Y,MSK)<	
	IFDIF 8<Y><>,<
	OP (<ACX>,B+'Y,MSK)>
	IxFIDN <Y><>,<
	OP.(<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7sWY
	IFB <D1>,<
	XWD	[ASCIZ\PC\],[XWD B,A]>p
	IFNB <D>,<
	XWD	[EXP CM%FW!D0
		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 $!"*
	IF1,<IF$ADEF ERA$,PRINTX $`?Duplicate error %code A>
	ERA$=% =ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y jA"
	ERR	EOFja,<End of file>
	kERR	IFP,<Illegal k file position>
	k@ERR	FDE,<File datk`a error>
	ERR	FNlD,<File is not onl  disk>
	ERR	NSD,l@<No such device>
	ERR	FCF,<File cmheckpoint failed>m 
	ERR	SLE,<A sysm@tem limit was excm`eeded>
	ERR	IFS,n<Illegal file spen cification>
	ERRn@	FNF,<File not fon`und>
	ERR	PRT,<Porotection violatio on>
	ERR	DNA,<Deo@vice not availablo`e>
	ERR	NCE,<No p"current" entry ip n list>
	ERR	NMAp@,<No IPCF messagep` is available>
	qERR	FDS,<Files arq e on different stq@ructures>
	ERR	Fq`AE,<File already rexists>
	ERR	USEr ,<Unexpected systr@em error>
	ERR	Nr`SP,<No such pid>
	ERR	BOL,<Beginns ing of list reachs@ed>
	ERR	EOL,<Ens`d of list reachedt>
	ERR	RQF,<Recet ivers quota full>t@
	ERR	SQF,<Sendet`rs quota full>
	uERR	NRE,<No rememu bered entry>
	ERu@R	TBF,<Table is fu`ull>
	ERR	EIT,<Tvable entry alreadv y exists>
	ERR	Iv@TE,<Invalid tablev` entry>
	ERR	QEFw,<Quota exceeded w or disk full>
	Ew@RR	ARG,<Invalid aw`rgument specifiedx>
	ERR	IFN,<Invax lid function specx@ified>
	ERR	IJN,x`<Invalid job numbyer specified>
	Ey RR	RAD,<Invalid ry@adix specified>
y`	ERR	NUM,<Invalidz numeric argumentz >
	ERR	IDT,<Invaz@lid date field spz`ecified>
	ERR	IT{F,<Invalid time f{ ield specified>
{@	ERR	DOR,<Date/ti{`me out of range>
	ERR	DTM,<Value | missing in date/t|@ime>
	ERR	MDD,<M|`issing day in dat}e/time>
	ERR	DFZ} ,<Field zero in d}@ate/time>
	ERR	M}`DS,<Mnemonic date~/time switch not ~ implemented>
	ER~@R	DFL,<Field too ~`large in date/time>
	ERR	ILR,<Ill egal year format @in date/time>
	E`RR	NND,<Negative number in date/ti me>
	ERR	NPF,<No@t known whether p`ast or future in date/time>
	ERR	 RDP,<Relative dat@e parse required>`
	ERR	NSW,<Switch does not begin  with slash>
	ERR@	NOM,<Unrecognize`d switch or keyword>
	ERR	NUL,<Nu ll switch or keyw@ord given>
	ERR	`INW,<Invalid guide word>
	ERR	NC, <Not confirmed>
@	ERR	ICN,<Invalid` character in number>
	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 token>
	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,<Fieldetooll
	ERR	TMTd too long 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	NCI,<Argument bloc k may not be in t@he ACs>
	ERR	TLU`,<Terminal location is unknown>
	 ERR	FIO,<File is @offline>
	ERR	FB`M,<File being modified>
	ERR	WLK, <Write-locked dev@ice>
	ERR	CSD,<C`annot supersede a directory>
	ERR 	CDD,<Cannot dele@te a non-empty di`rectory>
	ERR	SNF,<Sub-file direc tory not found>
@	ERR	ESL,<Search `list is empty>
	ERR	LVL,<SFD leve l nested deeper t@han the maximum a`llowed>
	ERR	CCW,<Cannot create/w rite on any struc@ture in search li`st>
	ERR	FCU,<Cannot update file> 
	ERR	ENQ,<File @has outstanding E`nqueue lockes set>
	ERR	SWS,<Soft ware write-lock o@n structure>
	ER`R	DER,<Hardware device error>
	ER R	DTE,<Hard data @error>
	ERR	BKT,`<Block too large>
	ERR	IPP,<Non-e xistant UFD>
	ER@R	TRN,<RIB or tra`nsmission error>
	ERR	ILC,<Illega l character in da@te/time>
	ERR	NF`T,<Date/time must be in the future >
	ERR	NPS,<Date@/time must be in `the past>
	ERR	UDM,<Unrecognized  month in date/tim@e>
	ERR	UDN,<Unr`ecognized name in  date/time>
	ERR  	IFA,<Illegal fil @e attribute>
	ER `R	FAI,<File attri!bute inconsistanc! y>
	ERR	CEI,<Can!@'t enable/disable!` interrupt system">
	ERR	ENF,<Link" ed list entry not"@ found>
	ERR	NSL"`,<No such linked #list>
	ERR	NFP,<# No free pages>
	#@ERR	NPI,<No free #`pages 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` mq
	IFIDN <nBC><>,<EXP <A>n0>
	IFDIF <BC><nP>,<
	 IFE <A+1>np,<<POINT 7,C>>
o	 IFN <A+1>,<
	o0   IFIDN <C><>,<oPEXP <A,B>>
	  op IFDIF <C><>,<EXpP <A,B,C>>
	>>A,B,C>>
	>Kc  vy9IRP A,<
w	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`&L
	IFNB <.i1235>,<
	PRINTX i .1235 (From GLXVEi@R)
	> ;END IFNB .1235
	M&`Mt g &B
	PRINTX g@GLXVER	GLXFIL Edig`t(127) by  on 20-hOct-86
	PRINTX	 h    	GLXFIL	Actual Edit(A)
	M&dYP +M2  ;9[<<<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|  wYGIRP A,<
wy	IF2,<IFDEF A,<.xIFN A,EXTERN,<INx8TERN A>>
	     xXIFNDEF A,<EXTERNxx A>
	Q SUPPRESPA>>FlYSUPPRO3DYPFxO3EKrPfxO3EZ7PO3FI@ <StLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
SpSv>9Q,Sv>@pOSNn-WVI
	IFNB <HYB>,<..STR0 (.INCRHx0,,<B>,A)>
	IFIB  <B>,<AOS A>  <B>,<AOS A>S:HKW v '8
	IFNB <.v@2.1622>,<
	PRINTv`X .2.1622 (From GwLXVER)
	> ;END IFNB .2.1622
	S:HMt t`'.
	PRINTX uGLXVER	GLXINI Ediu t(30) by  on 3-Ocu@t-85
	PRINTX	   u` 	GLXINI	Actual Edit(A)
	S:LYP 
S;k =yo<<<A>B<POS(<B>)>>&<B>>S; KW y'N
	IFNB <.y 2.1622>,<
	PRINTy@X .2.1622 (From Gy`LXVER)
	> ;END IFNB .2.1622
	S; Mt w@'D
	PRINTX w`GLXVER	GLXINT Edixt(120) by  on 3-Ox ct-85
	PRINTX	  x@  	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP (S? yI
	TXO A,<B>
	TXO A,S@,9QQ @S@,9QP S@,9RP `S@,9VP S@,9XP$S@,9YQ S@,9YQ  S@,9[P"S@.MQ S@t,:P'S@t9QQ @S@t9QP S@t9RP `S@t9VP S@t9XP$S@t9YQ S@t9YQ  S@t9[P"S@t:P S@u-xQ  S@u[XQ xS@v
tQ @S@v,:P S@v,rQ S@v<Q S@v<Q S@v<Q xS@v<:P'~S@v=Q  S@vMQ SBKW n&v
	IFNB <.n 1224>,<
	PRINTX n@.1224 (From GLXVEn`R)
	> ;END IFNB .1224
	SBMt l@&l
	PRINTX l`GLXVER	GLXIPC Edimt(101) by  on 7-Om ct-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.	pqXCREF
	..TEXT<Aq>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ !"d

	  LST(OF.

	X JNO,.JI( JNO,<-1,,GJBJNO>	(@
	X TNO,.JITNO,<(`-1,,GJBTTY>	
	X )USR,.JIUNO,.GTPPN) 		
	X CDN,.JIDNO)@,<-1,,GJBPTH>	
	)`X PRG,.JIPNM,.GTP*RG		
	X@CJN,.JIC* PJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.G*`TOBI		
	X JLT,.J+ISTM,.GTJLT		
	X+  LOC,<-1,,GJBLOC>+@,<-1,,GJBLOC> 
	+`X RTM,.JIRT,<-1,,,GJBRTM>	
	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 {`'d
	IFNB <.|2.1622>,<
	PRINT| X .2.1622 (From G|@LXVER)
	> ;END IFNB .2.1622
	7W
 Mt z 'Z
	PRINTX z@GLXVER	GLXKBD Ediz`t(65) by  on 3-Oc{t-85
	PRINTX	   {  	GLXKBD	Actual Edit(A)
	@W
$YP WNH1 q)
	IFB <C>,<
	XWD	[ASCIZ\0B\],A>
	IFNB <PC>,<
	XWD	[EXP pCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 a2

	  LSTOF. XCREF

	CDO 	OTSINI			
	CDO	@    			
	CDO	.ZP`AGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD O	.SAVE1
	CDO	.S@AVE2
	CDO	.SAVE3`
	CDO	.SAVE4
	CDO	.SAVET
	CDO	. SV13
	CDO	.SV14
	CDO	.SV15
	CDO`	.SV16
	CDO	.RETT
	CDO	.RETF
	C DO	.RETE
	CDO	.A@OS		
	CDO	.SOS		`
	CDO	.ZERO		
	CDO	.POPJ		
	CDO 	.STOP		
	CDO	.S@AVE8		
	CDO	.STK`ST		
	CDO	.TRSET		
	CDO	.POPJ1		 
	CDO	.UD2SC		
@	CDO	.SC2UD		
	C`DO	.CPUTY		
	CDO
	CDO
	CDO

	 CDO			
	CDO	C%RP@RM
	CDO	C%INTR
`	CDO	C%SEND
	CDO	C%RECV
	CDO	C%B RCV
	CDO	C%REL
@	CDO	C%CPID
	CDO`	C%KPID
	CDO	C%SPID
	CDO	C%MAXP
	CDO	C%PIDJ
	CD@O
	CDO
	CDO
	C`DO
	CDO

	CDO	       			
	CDO	F  %IOPN
	CDO	F%AOP @N
	CDO	F%OOPN
	 `CDO	F%IBYT
	CDO	!F%OBYT
	CDO	F%IB! UF
	CDO	F%OBUF
!@	CDO	F%REL
	CDO	!`F%DREL
	CDO	F%RR"EL
	CDO	F%REW
	" CDO	F%POS
	CDO	F"@%CHKP
	CDO	F%INF"`O
	CDO	F%FD
	CD#O	F%REN
	CDO	F%D# EL
	CDO	F%FCHN
#@	CDO
	CDO
	CDO
	CDO
	CDO
	CDO$
	CDO
	CDO
	CD$ O

	CDO	      	$@		
	CDO	M%ACQP
$`	CDO	M%RELP
	CDO%	M%IPSN
	CDO	M%N% XPG
	CDO	M%IPRC
	CDO	M%IPRM
	CD%`O	M%AQNP
	CDO	M%&RLNP
	CDO	M%CLNC& 
	CDO	M%FPGS
	C&@DO	M%GMEM
	CDO	M&`%RMEM
	CDO
	CDO'
	CDO
	CDO
	CD' O
	CDO
	CDO	M%G'@PAG
	CDO	M%RPAG
	CDO
	CDO
	CDO(
	CDO
	CDO
	CD( O
	CDO
	CDO

(@	CDO	      			
	(`CDO	T%TEXT
	CDO	)T%TTY
	CDO
	CDO) 
	CDO
	CDO
	CD)@O
	CDO
	CDO
	C)`DO
	CDO
	CDO
*
	CDO	      			
* 	CDO	L%CLST
	CDO*@	L%DLST
	CDO	L%C*`ENT
	CDO	L%CBFR
	CDO	L%DENT
	CD+ O	L%NEXT
	CDO	L%+@FIRS
	CDO	L%LAST+`
	CDO	L%PREV
	C,DO	L%PREM
	CDO	L, %CURR
	CDO	L%REN,@T
	CDO	L%SIZE
	,`CDO	L%APOS
	CDO
	CDO
	CDO
	CDO- 
	CDO
	CDO
	CD-@O
	CDO

	CDO		-`	
	CDO	I%NOW
	C.DO	I%EXIT
	CDO	I. %ION
	CDO	I%IOFF.@
	CDO	I%SLP
	CD.`O	I%INT1
	CDO	I%/INT2
	CDO	I%INT3/ 
	CDO	I%TIMR
	C/@DO
	CDO
	CDO	I%/`SOPR
	CDO	I%WTO
	CDO
	CDO	I%HOS0 T
	CDO	I%JINF
	0@CDO
	CDO

	CDO0`			
	CDO
	CDO	S1%DATI
	CDO	S%SIX1 B
	CDO	S%CMND
	1@CDO	S%TBLK
	CDO	1`S%SCMP
	CDO	S%ER2R
	CDO	S%INTR
	2 CDO	S%EXIT
	CDO	2@S%TBAD
	CDO	S%TB2`DL
	CDO	S%NUMI
3

	CDO	K%RCOC		3 	
	CDO	K%WCOC
	3@CDO	K%SUET
	CDO	3`K%STYP
	CDO	K%TX4TI
	CDO	K%SOUT
4 	CDO	K%BOUT
	CDO4@	K%BIN
	CDO	K%BA4`CK
	CDO	K%TPOS
5	CDO	K%BUFF
	CDO5 	K%FLSH
	CDO	K%O5@PEN
	CDO
	CDO
5`	CDO
	CDO
	CDO
	CDO
	CDO
	CDO6 
	CDO
	  LSTON.
  
	  LSTON.Y:XKW ~@'z
	IFNB <.~`2.1622>,<
	PRINTX .2.1622 (From G LXVER)
	> ;END IFNB .2.1622
	Y:XMt }'p
	PRINTX } GLXVER	GLXLNK Edi}@t(20) by  on 3-Oc}`t-85
	PRINTX	   ~ 	GLXLNK	Actual Edit(A)
	SBYY:\YP Y>
@ Ay
	IFNB <BC>,<..STR0 (..LDBB8,A,C,B)>
	IFBBX  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG zya
	IFNDEF {LSTIN.,LSTIN.==0	{8	
IFE LSTIN.,<
{X	IFIDN <XCREF><A{x>,<.XCREF>	
		  | XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G |Yk
	IFG LST|yIN.,LSTIN.==LSTIN}.-1	
	IFLE LSTIN}8.,<.CREF		
		      LIST>
		   [KW p`'

	IFNB <.q1224>,<
	PRINTX q .1224 (From GLXVEq@R)
	> ;END IFNB .1224
	[Mt o '
	PRINTX o@GLXVER	GLXMAC Edio`t(266) by  on 7-Opct-85
	PRINTX	  p   	GLXMAC	Actual Edit(A)
	[YP [[3@ =9k<<<1_<A>>-1>B<B>>_<A>>[8@ <9c1B<<A>-1>-1B<B><<A>-1>[@ !	
	IFB <BA>,<MAXSIZ==0
		I`RP A,<IFG <A-MAXSIZ>,<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 [lp [lXp [lrp [ltp [lxp [l}p [hKW k &`
	IFNB <.k@1233>,<
	PRINTX k`.1233 (From GLXVElR)
	> ;END IFNB .1233
	[hMt i`&V
	PRINTX jGLXVER	GLXMEM Edij t(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 !	2
	IFB <BA>,<MINSIZ==377777`,,777777
		IRP A,<IFG <MINSIZ-A >,<MINSIZ==A>>>
	IFNB <B>,<B==`377777,,777777
		IRP A,<IFG <B- A>,<B==A>>>
A>,<B==A>>>
[>!`<yg<A-<A/B>*B><A-<A/B[>wP&
U
   ..MX1>Y==B			
IFDEF .P>xSECT,<
   .IFN .?.MX1,ABSOLUTE,<
?8	MOVE A,[B]>
 ?X  .IF ..MX1,ABSOL?xUTE,<
	..MX2==0	@	
	IFE <..MX1>B5@83,<
	@X..MX2==1
	  MOVEI A,..MX@x1>	
	IFE ..MX2,<A		
	IFE <..MX1>BA817,<
	  ..MX2==1AX
	  MOVSI A,(..AxMX1)>>	
	IFE ..MBX2,<		
	IFE <<..B8MX1>B53-^O777777>BX,<
	  ..MX2==1
Bx	  HRROI A,<..MXC1>>>	
	IFE ..MX2C8,<		
	IFE <<..MXCX1>B17-^O777777B17Cx>,<
	D..MX2==1
	  HRLOI A,(..MD8X1-^O777777)>> 
DX	IFE ..MX2,<		
	Dx  MOVE A,[..MX1]E>	
	>>

IFNDEFE8 .PSECT,<
	..MX2EX==0		
	IFE <..MXEx1>B53,<
	  ..MX2F==1
	  MOVEI A,F8..MX1>	
	IFE ..MFXX2,<		
	IFE <..MFxX1>B17,<
	  ..MXG2==1
	  MOVSI AG8,(..MX1)>>	
	IFEGX ..MX2,<		
	IFE Gx<<..MX1>B53-^O777H777>,<
	  ..MX2=H8=1
	  HRROI A,<HX..MX1>>>	
	IFE .Hx.MX2,<		
	IFE <<I..MX1>B17-^O77777I87B17>,<
	  ..MX2IX==1
	  HRLOI A,Ix(..MX1-^O777777)>J> 
	IFE ..MX2,<	J8	
	  MOVE A,[..JXMX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= YG
	A==C	y	
	IF1,<IFDEF %A,<PRINTX ?A ALR8EADY DEFINED>>
	XDEFINE %A (OP,ACx,Y,MSK)<	
	IFDIF <Y><>,<
	OP (<A8C>,B+'Y,MSK)>
	XIFIDN <Y><>,<
	OxP.(<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg VY
2P ] t1!IF2,<IFDEFt A,<A==A>> IFNDEF A,<A==B>]F@ %6TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= 3)#V

	X	.OTaRDR,Reader
	X	.O'aTNCU,Network-Cont3Iroller
	X	.OTLPT3	,Printer
	X	.OTB4IAT,Batch-Stream
4h	X	.OTCDP,Card-Pu5nch
	X	.OTPTP,Pa5(pertape
	X	.OTPL5HT,Plotter
	X	.OT5hJOB,Job
	X	.OTTR6M,Terminal
	X	.O6(TOPR,Operator
	X6H	.OTIBM,<IBM Remo6hte>
	X	.OTMNT,<D7evice>
	X	.OTFTS7(,<File Transfer>
	X	.OTBIN,<Card 7hReader Interprete8r>
	X	.OTRET,<Fi8(le Retrieval>
	X8H	.OTNOT,<Retrieva8hl Notification>
9	X	.OTDBM,<DBMS S9(ystem>
	X	.OTFAL9H,<File Access Lis9htener>
;**;[237]:Add 1 line after :(.OTFAL   DRB  1/1:H1/85
	X	.OTSNA,<:hSNA Workstation>
Workstation>
	IFNB <.@2.1622>,<
	PRINT`X .2.1622 (From GLXVER)
	> ;END IFNB .2.1622
	_SMt `(
	PRINTX GLXVER	GLXOTS Edi t(15) by  on 3-Oc@t-85
	PRINTX	   ` 	GLXOTS	Actual Edit(A)
	_SYP _Sh6 Cq$ [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 D$V

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

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

F	EXP ..XX		

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

   IFNBG <D>,<POINT 7,[AG SCIZ \D\]>
   IG@FB <D>,<0>

HG` IFNB <E>,<POINTH 7,[ASCIZ \E\]>
H@IFB <E>,<0>



   IFB <IH`>,<0>
   IFNB <II>,<EXP I>

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

   IFB <H>J,<0>
   IFNB <HJ >,<EXP H>

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

G>,<EXP Ga@KW 	@(P
	IFNB <>	`,<
	PRINTX  (Fro
m GLXVER)
	> ;END IFNB 
	a@Mt (H
	PRINTX  GLXVER	GLXPFH Edi@t(16) by TARL on `17-Apr-81
	PRINT	X	    	GLXPFH	Actual Edit(A)
	aDYP a 6a6LSH A,^D9LSH A,^D9a+= 5a;&  A,
	 IFB  <aB>,<..STR0(..PNT,,<FWMASK>,A)>
 	 IFNB <B>,<..ST@R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm :YW<POINT WID:y(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 8YE<^L<<A>&<-<A>>>><<A>&<aJ}Ks sq	

	SALL	~!			
	LSTOF. XCRE~@F			

	%%.GLX==~`%%.GLX			
	GLXVRS==GLXVRS			

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

	TOPS10	<			
`		SEARCH	UUOSYM		
		%%UUOS==%%UUO S		
	>				

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

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

	IFNB <B>,<CHKEDT (B )>	

	IFNB <B>@,<IFDIF <B><INI>`,< 
		IFN GLXPURE,<.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	
		>			
	>>	

	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\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 Edit(105) by  on 3-O ct-85
	PRINTX	  @  	GLXSCN	Actual Edit(A)
	gtYP "g"@ ay
	IFN <<.b.TA>&B>,<PRINTXb8 ?Initial field nbXot zero in $SET>
	c..TVAL==<C>
	c8..TMSK==<B>
	  ..TA==..TA!cX<FLD(..TVAL,..TMScxK)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@Yq%OC.SWIT+PDBCPY##C.SWIT+PDBg$tkQ<@g$uP'g$uh6Q  g.N	@ 6@g.N
.SPID	(S=P.QSR,.IPCPQ,.SPQ=0SR,QUASAR)	
.SPI=PD	(SP.OPR,.IPCPO,=p.SPOPR,ORION)	
.>SPID	(SP.INF,.IPC>0PI,.SPINF,INFO)	
.SPID	(SP.MDA,.I>pPCPM,.SPMDA,MDA)	?
TOPS10<
.SPID	?0(SP.IPC,.IPCPS,,I?PPCC)		
.SPID	(SP?p.ACT,.IPCPA,,ACTD@AE)		
.SPID	(SP.@0TLP,.IPCPT,,TAPLA@PB)		
.SPID	(SP.T@pOL,.IPCPC,,TAPAVRA)		
.SPID	(SP.DOA0L,.IPCPD,,DSKAVR)AP		
.SPID	(SP.FILAp,.IPCPF,,FILDAE)		
>
,FILDAE)	gR^h9 y
	..STKR==10		
	RADIX 8
8	..STKN==0
	IRP XA,<
	  .STKV1 (xA)>
	$CALL	.STK ST
	 ..STKN,,..S 8TKN
	RADIX ..STK XR
	PURGE ..STKN, x..STKR,..STKQ
   TKR,..STKQ
  gR~)  E/
	IFNB <E9C>,<..STR0 (..DPBEX,A,C,B)>
	IFBEx.A<C>,<MOVEMSA,B>>,<MOVEM A,gV UY
V 	
	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( sY/IFN FTUUOS,B			;DEFINE UNi?4H t/!IFN FTJSYS,	INTERN AEDT	iD {Qi

  IFNB{q	<A>,<.TQCHA==^|D<B>B17+ZZ>
  I|0FNB 	<D>,<DEFINE|P ..TQMA<D>>
  |pIFNB	<C>,<.TQC=}=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, qQY
	LSTOF.
	TQ(T,2,ASCIZ)		r	
	TQ(O,2,OCTAL)r0			
	TQ(D,2,DECIrPMAL)			
	TQ(F,2,rpFILE)			
	TQ(7,2s,CSEVEN)			
	TQ(s06,2,CSIXBIT)			
sP	TQ(W,2,SIXBIT)		sp	
	TQ(5,2,SVNBITt)			
	TQ(P,2,USEt0R)			
	TQ(U,2,DItPRECTORY)			
	TQ(tpH,2,DAYTIME)			
u	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		uP	
	TQ(I,1,INDIREupCT)		
	TQ(M,0,CRv,..TXC0(\".CHCRT)v0)	
	TQ(J,0,LF,..vPTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCw0(\".CHFFD))	
	Tw0Q(K,0,VT,..TXC0(\wP".CHVTB))	
	TQ(Awp,0,NOCRLF,..TXA(.xTQCHA))	
	TQ(0,0x0,NULL,..TXA(.TQCHxP0))	
	TQ(3,0,STRxpING,..TXER(IQU))	y
	TQ(V,2,VERSIONy0)			
	TQ(2,0,CARyPET,..TXER(IQU))	
	TQ(Q,2,POINTER)z			
	TQ(B,2,ROB)z0			
	TQ(1,2,OBJEzPCT)			
	TQ(N,2,NzpODE)			
	TQ(R,2,{JIB)			
	LSTON.
)			
	LSTON. #
	LSTOF.
	X(33,TTY33,33,)-A				
	X(35,TTY35.,35,)				
TOPS20-a<
	X(37,TTY37,37.),)				
	X(EXECUP.HORT,EXEC,EXE,)			.h
>
TOPS10<
	X(/LA120,LA120,L12,)/(			
>
	X(LA36,L/HA36,L36,)			
	X(/hVT05,VT05,V05,<370,177,177,177>)	
0(	X(VT100,VT100,100H0,<.CHESC,"[","K"0h>)	
	X(VT50,VT501,V50,<.CHESC,"J">1()		
	X(VT52,VT521H,V52,<.CHESC,"J">1h)		
TOPS10<	X(VT261,VT61,V61,<.CHE2(SC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ %99
	..TRR==%Y10		
	RADIX 8
	%x..NV==1			
	IRP &A,<
	  .TRV1 (&8A)>		
	$CALL	.TR&XSET		
	 ..NV-1,,&x..NV-1
	RADIX ..'TRR		
	PURGE ..TRR,..NVURGE ..Tib nYu
		..TX(C,A,<B>)..TX(Cib p
		..TX(CA,A,<B>).TX(CibP oy
		..TX(CE,A,<B>).TX(Cib` oY}
		..TX(CN,A,<B>).TX(Cibp hYE
		..TX(N,A,<B>)..TX(Nibt jQ
		..TX(NA,A,<B>).TX(NibtP iI
		..TX(NE,A,<B>).TX(Nibu` iYM
		..TX(NN,A,<B>).TX(Nibx jYU
		..TX(O,A,<B>)..TX(Oib| la
		..TX(OA,A,<B>).TX(Oib|P kY
		..TX(OE,A,<B>).TX(Oib}` kY]
		..TX(ON,A,<B>).TX(Oic KW `(<
	IFNB <.2.1622>,<
	PRINT X .2.1622 (From G@LXVER)
	> ;END IFNB .2.1622
	ic Mt  (2
	PRINTX @GLXVER	GLXTXT Edi`t(70) by  on 3-Oct-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 lYe
		..TX(Z,A,<B>)..TX(ZicT nq
		..TX(ZA,A,<B>).TX(ZicTP mi
		..TX(ZE,A,<B>).TX(ZicU` mYm
		..TX(ZN,A,<B>).TX(ZmKc@ t9oBYTE (3)A}yWHO (9)AVER (6)AMIN (18)AEDTo&  8A<^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 ,a"f
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +
q+= +
q6~i4 C q? zQ
	TXC A,<B>
	TXC A,q@ v3IFB <C>,<v9A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up N9y
	IFNB <NYB>,<..STR1 (..TQZNx,,<B>,A,..STR4)O>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z q)W
	.$RESET
	$TYPE (.CMACT)0
	$HELP (<>)
	$PNEXT (A)
IFIDN p<B> <>,< IRP C,<C>
			.$BUILD>0
IFDIF <B> <>,<P
	$HELP (B)
	IpRP C,<C>
	.$BUILD><C>
	.$BU	0 c
.WTOX.(.OMc!ACK,<A>,<B>,<Cc@>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 UI%.DEFINE .$RUiTN <A>
			.%RTN==1A>
			.%RTN	fI9 PI%DEFINE .$LPiST <A+1>
			.%LST==11>
			.%L	
=Z Ry
	  IFG SA-INT.LV,<PRINTX S8?Level A interruSXpts not supportedSx>
	  .BGINT.(\A)   .BGINT.(\A	X5 Ri%DEFINE .$BS	REA <A>
			.%BREA==1>
			.%BR	- UY=
	  IFDEFUy ..BSIZ,<PRINTX ?VMissing $EOB afteV8r a $BUILD>
	  .VX.BSIZ==0			
	  .Vx.BLOC==.			
	  RWEPEAT A,<			
		W8BLD0.(\..BSIZ,0)	WX
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 Q(#
	.$RESETq
	$TYPE (.CMCMA)
	$NEXT (A)
	I0RP B,<B>
	.$BUILD,<B>
	.$BU	I@ (
	.$RESET1
	$TYPE (.CMCFM)P
	IRP A,<A>
	.$BUILD,<A>
		$^ 	q(_
	.$RESET

	$TYPE (.CMTXT)
0
	$HELP (<>)
	$
PNEXT (A)
IFIDN 
p<B> <>,< IRP C,<C>
			.$BUILD>0
IFDIF <B> <>,<P
	$HELP (B)
	IpRP C,<C>
	.$BUILD><C>
	.$BU	I  
1(k
	.$RESET
Q
	$TYPE (.CMTAD)
p
	$PDATA (CM%IDA
	$NEXT (A)
	RP B,<B>
	.$BUILD,<B>
	.$B	,,U Ty)
	  $RET	U			;WILL INVOKE RIGHT ROUTINE
		,h: Ni$zDEFINE .$DO	EFM <POINT 7,[ASCO(IZ\A\]>
			.%DEFM==1>
			.%DE	.` Q(K
	.$RESETq
	$TYPE (.CMDEV)	
	$NEXT (A)
	I	0RP B,<B>
	.$BUILD,<B>
	.$BU	Lz: nQ'
	.$RESETnq
	$TYPE (.CMNUX)o
	$PDATA (B)
	o0$HELP (<>)
	$NEXoPT (A)
IFIDN <Cop> <>,< IRP D,<Dp>
			.$BUILD>
Ip0FDIF <C> <>,<
	pP$HELP (C)
	IRP ppD,<D>
	.$BUILD><D>
	.$BUILD	N  (
	.$RESET1
	$TYPE (.CMDIR)P
	$NEXT (A)
	IpRP B,<B>
	.$BUILD,<B>
	.$BU	|  \Y
	  IFNDE\yF ..BSIZ,<PRINTX ]?$EOB without pre]8vious $BUILD>
	 ]X IFN <.-..BLOC>,<]xPRINTX ?Address c^hange between $BU^8ILD and $EOB>
	 ^X LSTOF.			
	  ..^xT==0
	  REPEAT ._.BSIZ,<
	    BLD_80.(\..T,1)		
	  _X  ..T==..T+1 >
	_x  PURGE ..BSIZ,..`T,..BLOC	
	  LSTON.
		
	  LST	+y R	%DEFINE .$ER)RTN <A>
			.%ERTN==1>
			.%ER	, SI%DEFINE .$ESiRTN <1B0+A+1>
			.%ERTN==1>
		- T)%(DEFINE .$ETIRTN <[MOVEI S2,[AThSCIZ\A\]
				  U    $RETF]>
			.%ERTN==1>
			.	H6 fQ=
	$CALL	.fqSTOP
	LSTOF.
	JgUMP	[XWD 0,[ITEXTg0 (<A>)]
		 EXP gP%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ }Q'}
	.$RESET}q
	$TYPE (.CMFLD)~
	$NEXT (A)
	$~0HELP (<>)
IFIDN ~P<B> <>,< IRP C,~p<C>
			.$BUILD>
IFDIF <B> <>,<0
	$HELP (B)
	IPRP C,<C>
	.$BUILD><C>
	.$BU	MI  {'i
	.$RESET{1
	$TYPE (.CMFIL){P
	$HELP (<>)
	${pNEXT (A)
IFIDN |<B> <>,< IRP C,|0<C>
			.$BUILD>|P
IFDIF <B> <>,<|p
	$HELP (B)
	I}RP C,<C>
	.$BUILD><C>
	.$BU	dy L	$bDEFINE .$FL)LGS <A>
			.%FLGS==1>
			.%FL	ex: (A
	.$RESET1
	$TYPE (.CMFLT)P
	$HELP (<>)
	$pNEXT (A)
IFIDN <B> <>,< IRP C,0<C>
			.$BUILD>P
IFDIF <B> <>,<p
	$HELP (B)
	IRP C,<C>
	.$BUILD><C>
	.$BU	$ ea1~h
	  INTERfN A
	  $DATA(A,<B>)
	ATA(A/w*1[KW	"
	IFDIF <MiA> <>,<
DEFINE N.$HLPM <POINT 7,[N(ASCIZ\A\]>
			.%HLPM==1>
			.	&5 v'A
	.$RESETv1
	$TYPE (.CMIFI)vP
	$HELP (<>)
	$vpNEXT (A)
IFIDN w<B> <>,< IRP C,w0<C>
			.$BUILD>wP
IFDIF <B> <>,<wp
	$HELP (B)
	IxRP C,<C>
	.$BUILD><C>
	.$BU	&u q(-
	.$RESET
	$NEXT (A)
	$0TYPE (.CMINI)
	IPRP B,<B>
	.$BUILD,<B>
	.$BU	./ j1&[
	.$RESETjQ
	$TYPE (.CMKEY)jp
	$PDATA (B)
	k$NEXT (A)
	IRP k0C,<C>
	.$BUILD,<C>
	.$BUILD	./ hq&O
	.$RESETi
	$TYPE (.CMKEY)i0
	$PDATA (A)
	iP$NEXT (0)
	IRP ipB,<B>
	.$BUILD,<B>
	.$BUILD	/>Ky ea0.WTOX.(.OMfWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p e*.WTOX.(.OMe!LOG,<A>,<B>,<C>,,<D>)B>,<C	:/
DEFINE .$NQIXT <A>
			.%NXT==1A>
			.%NXT	:|KV )C
	.$RESET1
	$TYPE (.CMNOD)P
	$HELP (<>)
	$pNEXT (A)
IFIDN <B> <>,< IRP C,0<C>
			.$BUILD>P
IFDIF <B> <>,<p
	$HELP (B)
;	$FLAGS (CM%PO)
	0IRP C,<C>
	.$BUILD><C>
	.$B	:}r q1'
	.$RESETqQ
	$TYPE (.CMNOI)qp
	$PDATA (<POINTr 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRrPP C,<C>
	.$BUILD,<C>
	.$BUI	;-XR kq&q
	.$RESETl
	$TYPE (.CMNUM)l0
	$PDATA (B)
	lP$HELP (<>)
	$NEXlpT (A)
IFIDN <Cm> <>,< IRP D,<Dm0>
			.$BUILD>
ImPFDIF <C> <>,<
	mp$HELP (C)
	IRP nD,<D>
	.$BUILD><D>
	.$BUILD	>5 xQ'U
	.$RESETxq
	$TYPE (.CMOFI)y
	$NEXT (A)
	$y0HELP (<>)
IFIDN yP<B> <>,< IRP C,yp<C>
			.$BUILD>z
IFDIF <B> <>,<z0
	$HELP (B)
	IzPRP C,<C>
	.$BUILD><C>
	.$BU	B$ Li$hDEFINE .$DM	ATA <A>
			.%DATA==1>
			.%DA	B$YP Oi%DEFINE .$DP	EFM <POINT 7,<A>>
			.%DEFM==1	CYT V)%4DEFINE .$DVIEFR <A>
			.%DEFR==1>
			.%DE	G-} q)
	.$RESET
	$TYPE (.CMQST)0
	$HELP (<>)
	$PNEXT (A)
IFIDN p<B> <>,< IRP C,<C>
			.$BUILD>0
IFDIF <B> <>,<P
	$HELP (B)
	IpRP C,<C>
	.$BUILD><C>
	.$BU	J.I  dA(
	  $CALLda	.RETE			
		LSTOeF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  /Y{
	.NVR==0/y			
	.ACM==0			

	IRP A,<		
	08	..TSAC(.ACB,A)	0X	
		IFN .ACB,<.A0xCM==.ACM!1B<A>>	1
		IFE .ACB,<			18
		IFE .NVR,<			1X
		    CAIA			
1x		    LSTOF.
		 2   JRST b>
		  28..PUSH(A,\<.NVR+2X1>)>>	

	IFN .A2xCM,<	
	    IFE <3.ACM-17B<T4>>,<.A38CM==0
				$CALL 3X.SAVET>
	    IFE3x <.ACM-377B<.A16>4>,<.ACM==0
				$48CALL .SAVE8>
	  4X  IFE <.ACM-17B<P4x4>>,<.ACM==0
			5	$CALL .SAVE4>
	58    IFE <.ACM-7B<5XP3>>,<.ACM==0
		5x		$CALL .SAVE3>
6	    IFE .NVR,<	
	    IFE <.ACM-36XB<P2>>,<.ACM==0
6x				$CALL .SAVE2>7
	7X  IFE <.ACM-781B<P1>>,<.ACM==0
				$CALL .SAVE17x>
	    IFE <.ACM8-1B<.A13>>,<.ACM=88=0
				$CALL .SV8X13>
	    IFE <.A8xCM-1B<.A14>>,<.AC9M==0
				$CALL .98SV14>
	    IFE <9X.ACM-1B<.A15>>,<.9xACM==0
				$CALL: .SV15>
	    IFE:8 <.ACM-1B<.A16>>,:X<.ACM==0
				$CA:xLL .SV16>
	    >;>

	IFN .ACM,<	;8
	    IFE .NVR,<;X			
		CAIA			
	;x	LSTOF.
		JRST <b>

	    .ACB==<80			
	REPEAT ^D1<X6,<			
	    IFN <x<.ACM&1B<.ACB>>,<=	
		..PUSH(\.ACB=8,\<.NVR+1>)>
		.=XACB==.ACB+1>>		
=x
	IFN .NVR,<	
	>    PUSH P,[[CAIA>8		
		     AOS -.>XNVR(P)	
	    REP>xEAT .NVR,<..POP(\?.NVR)>	
		     P?8OPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ XQ
	  IFNDEX9F ..BSIZ,<PRINTX XX?$SET without preXxvious $BUILD>
	 Y IFNB <B>,<..STRY80 (..SET,<C>,B,YXA)>
	IFB  <BYx>,<..STR0 (..SET,Z<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
 Q	XWD b-1,b-1
	 pDEFINE $ETAB <
		b==.-a> <
		O%| jq_
S..A::!k	$CALL .STOP
		Lk0STOF.
		JUMP [XWkPD 'A',[ITEXT (<kpB>)]
			EXP %%.MOD]
		LSTON.	M	O= tQ'-
	.$RESETtq
	$TYPE (.CMSWI)u
	$PDATA (A)
	u0$NEXT (0)
	IRP uPB,<B>
	.$BUILD,<B>
	.$BUILD	O= s'!
	.$RESETs1
	$TYPE (.CMSWI)sP
	$PDATA (B)
	sp$NEXT (A)
	IRP tC,<C>
	.$BUILD,<C>
	.$BUILD	R
@ 1)
	.$RESETQ
	$TYPE (.CMTAD)p
	$PDATA (<CM%IDA!CM%ITM>)
	$NEX0T (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	TlQ%TEXT
	LSTOF.	XClpREF
	JUMP	[XWD 2m,0
		 EVL (A)
m0		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESET
	$TYPE (.CMTAD)0
	$PDATA (CM%ITMP)
	$NEXT (A)
	pIRP B,<B>
	.$BUILD,<B>
	.$B	R}97 1)e
	.$RESETQ
	$TYPE (.CMTOK)p
	$PDATA (<POINT 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRPP C,<C>
	.$BUILD,<C>
	.$BUI	S 1o


  ..TXAA(.TQA,C,D,E,}QB)	
      IFN .~.TXEF,<			
	..TE}qRR<$TQ(A,B,C,D,E)>>

C,	S@I9 !Z
	LSTOF.
	X(UQU,Unknown q`ualifier)
	X(IQU,Invalid qualifie r)
	X(IJA,Invali@d justification a`rgument)
	X(IWA,Invalid width arg ument)
	X(PEA,Pr@emature end of ar`gument)
	X(JNA,Justification is n ot allowed)
	X(A@NA,Arguments are `not allowed)
	X(ADS,Address must  be specified)
	LSTON.
ied)
	L	SN	  K)$\DEFINE .$TKIYP <A>
			.%TYPE==1>
			.%TYP	W= 1)-
	.$RESETQ
	$TYPE (.CMUQS)p
	$HELP (<>)
	$NEXT (A)
	$PDAT0A (B)
IFIDN <CP> <>,< IRP D,<Dp>
			.$BUILD>
IFDIF <C> <>,<
	0$HELP (C)
	IRP PD,<D>
	.$BUILD><D>
	.$BUILD	W\@ 1(
	.$RESETQ
	$TYPE (.CMUSR)p
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ hS
IFE %%.Oh1TS,<DEFINE $WARN hP(MSG) <
		$TEXT hp(T%TTY,<% ^W6/[%%i.MOD]/ MSG>)>>
Ii0FN %%.OTS,<DEFINEiP $WARN (MSG) <
	ip	$TEXT (T%TTY,<% j^W6/IIB+IB.PRG/ ^j0W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r WJ
		IFB	<W!A>,<.WFACD==0
		W@	IFN <0-2>,<.$WACW`D==0>>
		IFNB	<XA>,<.WFACD==-1
	X 		IFN <0-2>,<.$WAX@CD==.$WACD!<A>>
			IFE <0-2>,<DEYFINE .$WACD,<<WO.Y ACD>B8+[ITEXT (<A>)]>>
		>
<	_$u Lr
		IFB	<L!A>,<.WFACK==0
		L@	IFN <0-2>,<.$WACL`K==0>>
		IFNB	<MA>,<.WFACK==-1
	M 		IFN <0-2>,<.$WAM@CK==.$WACK!<A>>
			IFE <0-2>,<DENFINE .$WACK,<<WO.N ACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ =a
	IFE	<.W>FMTY>,<PRINTX ?No>  message type in >@$WTBLD>
DEFINE .>`EAWTO(SUFFIX,ARGC?OD),<
IFN .WF'SU? FFIX',<
	IFE	<AR?@GCOD-0>,<<WO.'SUF?`FIX'>B8+ .$W'SUFF@IX'>
	IFE	<ARGCO@ D-1>,<<WO.'SUFFIX`'>B8+ [EXP .$W'SU` FFIX']>
	IFE	<AR`@GCOD-2>,<.$W'SUFF``IX'>
>
>
	ALLWaTO				
	EXP	0			
		
	EXP	0				_$k Na
		IFB	<OA>,<.WFFLG==0
		O 	IFN <1-2>,<.$WFLO@G==0>>
		IFNB	<O`A>,<.WFFLG==-1
	P		IFN <1-2>,<.$WFP LG==.$WFLG!<A>>
			IFE <1-2>,<DEP`FINE .$WFLG,<<WO.QFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W T!4
		IFB	<TAA>,<.WFJBN==0
		T`	IFN <0-2>,<.$WJBUN==0>>
		IFNB	<U A>,<.WFJBN==-1
	U@		IFN <0-2>,<.$WJU`BN==.$WJBN!<A>>
			IFE <0-2>,<DEV FINE .$WJBN,<<WO.V@JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV \Av
		IFB	<\aA>,<.WFMFL==0
		]	IFN <1-2>,<.$WMF] L==0>>
		IFNB	<]@A>,<.WFMFL==-1
	]`		IFN <1-2>,<.$WM^FL==.$WMFL!<A>>
			IFE <1-2>,<DE^@FINE .$WMFL,<<WO.^`MFL>B8+[ITEXT (<A>)]>>
		>
<	_%] A
		IFB	<A!A>,<.WFMTY==0
		A@	IFN <0-2>,<.$WMTA`Y==0>>
		IFNB	<BA>,<.WFMTY==-1
	B 		IFN <0-2>,<.$WMB@TY==.$WMTY!<A>>
			IFE <0-2>,<DECFINE .$WMTY,<<WO.C MTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr QA
		IFB	<QaA>,<.WFNOD==0
		R	IFN <0-2>,<.$WNOR D==0>>
		IFNB	<R@A>,<.WFNOD==-1
	R`		IFN <0-2>,<.$WNSOD==.$WNOD!<A>>
			IFE <0-2>,<DES@FINE .$WNOD,<<WO.S`NOD>B8+[ITEXT (<A>)]>>
		>
<	_%p aA.WTOX.(.OMaaWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU I!\
		IFB	<IAA>,<.WFOBJ==0
		I`	IFN <0-2>,<.$WOBJJ==0>>
		IFNB	<J A>,<.WFOBJ==-1
	J@		IFN <0-2>,<.$WOJ`BJ==.$WOBJ!<A>>
			IFE <0-2>,<DEK FINE .$WOBJ,<<WO.K@OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr Ya`
		IFB	<ZA>,<.WFOCD==0
		Z 	IFN <0-2>,<.$WOCZ@D==0>>
		IFNB	<Z`A>,<.WFOCD==-1
	[		IFN <0-2>,<.$WO[ CD==.$WOCD!<A>>
			IFE <0-2>,<DE[`FINE .$WOCD,<<WO.\OCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ d$.WTOX.(.OMd!WTO,<A>,<B>,<Cd@>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ b!
.WTOX.(.OMbAWTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z @az
	DEFINE	@A.EAWTO(SUFFIX),<$_!WT'SUFFIX'	<>>
	ALLWTO				

		_&N FAF
		IFB	<FaA>,<.WFTXT==0
		G	IFN <2-2>,<.$WTXG T==0>>
		IFNB	<G@A>,<.WFTXT==-1
	G`		IFN <2-2>,<.$WTHXT==.$WTXT!<A>>
			IFE <2-2>,<DEH@FINE .$WTXT,<<WO.H`TXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 Ca0
		IFB	<DA>,<.WFTYP==0
		D 	IFN <2-2>,<.$WTYD@P==0>>
		IFNB	<D`A>,<.WFTYP==-1
	E		IFN <2-2>,<.$WTE YP==.$WTYP!<A>>
			IFE <2-2>,<DEE`FINE .$WTYP,<<WO.FTYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP [.
P .JP .bP /P B&@P cGP )0 %F0\BP*Z6 _q&C			

	d`==<FLD(.$TYP,CM%F`0NC)>!.$FLGS!<.$LS`PT> 

	IFN <.%BR`pEA>,<d==d!CM%BRaK> 

	IFN <.%HLa0PM>,<d==d!CM%HPaPP!CM%SDH> 
					ap	

	IFN <.%DEFMb>,<d==d!CM%DPP>b0 

c:!	XWD	b,bPa			

	EXP d	bp			

	EXP .$DATcA			

IFN <.%HLc0PM!.%DEFM!.%BREA>cP,<
		EXP	.$HLPM>cp		


IFN <.%DEdFM!.%BREA>,<
		Ed0XP	.$DEFM>		

dP
IFN <.%BREA>,<	EdpXP	.$BREA>		

	ea==.-c			;LENGTe0H OF THE FDB

IePFN <.%NXT!.%DEFR!ep.%RTN!.%ERTN>,< EfXP .$NXT >	

IFf0N <.%DEFR!.%RTN!.fP%ERTN>,<EXP .$RTNfp >	

IFN <.%DEFgR!.%ERTN>,<	EXP	.g0$ERTN>	

IFN <.gP%DEFR>,<		EXP	.$DgpEFR>	


	b==.h-c			

	IF2<	Ph0URGE a,b,c,d>
	LISTb,c,d>$YVWi%>POINT{7,[ASCIZ\0\]NT 7,[A$YY %J0bP.- %D0X"P5Iy %:0XBPf= %@0+1P!w
	SALL
	ZQXLIST
	DEFINE .$ZpTYP <0>
	.%TYPE=[=0
	DEFINE .$FLG[0S <0>
	.%FLGS==0[P
	DEFINE .$DATA [p<0>
	.%DATA==0
\	DEFINE .$HLPM <>\0
	.%HLPM==0
	DE\PFINE .$DEFM <0>
\p	.%DEFM==0
	DEFI]NE .$LST <0>
	.%]0LST==0
	DEFINE .]P$BREA <0>
	.%BRE]pA==0
	DEFINE .$N^XT <0>
	.%NXT==0^0
	DEFINE .$ERTN ^P<0>
	.%ERTN==0
^p	DEFINE .$RTN <0>_
	.%RTN==0
	DEF_0INE .$DEFR <0>
	.%DEFR==0<0>
	K@%H0nBP'"<0TP1,w
	   ..ASX91==-<B>	
	IFDEFXX .PSECT,<
	.IFN Xx..AS1,ABSOLUTE,<
	     C A,[-..Y8AS1]>	
	.IF ..ASYX1,ABSOLUTE,<
		.Yx.AS2==0	
	  IFE Z<..AS1&^O777777B1Z87>,<
		..AS2==1	ZX
	    DI A,..AZxS1>
	  IFE ..AS2[,<
	    ..OP(A,[8B,C)>	
	PURGE [X..AS1,..AS2>>
	I[xFNDEF .PSECT,<
	\	..AS2==0	
	  IF\8E <..AS1&^O777777\XB17>,<
		..AS2==\x1	
	    DI A,.].AS1>
	  IFE ..A]8S2,<		
	    ..OP]X(A,B,C)>
	PURGE ..AS1,..AS2>:h k
	A: K
	  ..CX1K9==C
	IFDEF .PSEKXCT,<
 	.IFN ..CXKx1,ABSOLUTE,<
	  L    CAMA B,[C]L8>
	.IF ..CX1,ABSLYOLUTE,<	
		..CX2Lx==0	
	  IFE <..CMX1&^O777777B17>,<M8
		..CX2==1	
	 MX   CAIA B,C>
Mx	  IFE ..CX2,<		
	    CAMA B,[R8C]>
	PURGE ..CX1RX,..CX2>>
	IFNDEFRx .PSECT,<
		..CXS2==0	
	  IFE <..S8CX1&^O777777B17>,SX<
		..CX2==1	
	Sx    CAIA B,C>
	  IFE ..CX2,<		T8
	    CAMA B,[TXC]>
	PURGE ..CX1,..CX2>GE ..CX:&@ F9?
	..TSIZ FY(..PST,C)
	.CASFxE ..PST,<<
		MOVGEM A,B>,<
		HRG8RM A,B>,<
		HRGXLM A,B>,<
		DPGxB A,[POINTR (B,C)]>>INTR (B,:<;Y ys
   DEFINE ..CNS2 (NEW,OLD8)<
	  OLD>			
	..CNS ()>			
	:L;Y Yk
   DEFINyE ..CNS (%%%)<
	..CNS2 <%%%>,>
8
   DEFINE ..CNS2X (NEW,OLD)<
	DEFxINE ..CNS (%%%)<
	  ..CNS2 <%%%>,8<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ C%
	..TSIZ C9(..PST,C)
	.CASCXE ..PST,<<
		MOVCxE A,B>,<
		HRRDZ A,B>,<
		HLRD8Z A,B>,<
		LDBDX A,[POINTR (B,C)]>>INTR (B,:}i1 y
	A==<<<-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ ^
	  ..OP1^9==B
	IFDEF .PSE^XCT,<
 	.IFN ..OP^x1,ABSOLUTE,<
	  _    C A,[..OP1]_8>
	.IF ..OP1,ABS_XOLUTE,<	
		..OP2_x==0	
	  IFE <..O`P1&^O777777B17>,<`8
		..OP2==1	
	``X   CI A,..OP1>
	  IFE ..OP2,<		a
	    C A,[..Oa8P1]>
	PURGE ..OPaX1,..OP2>>
	IFNDEaxF .PSECT,<
		..ObP2==0	
	  IFE <.b8.OP1&^O777777B17>bX,<
		..OP2==1	
bx	    CI A,..OP1c>
	  IFE ..OP2,<c8		
	    C A,[.cX.OP1]>
	PURGE ..OP1,..OP2>GE ..;m 6
	..PST==!C-FWMASK
	.IF0 @..PST,<
		POINT `0,B,35>,<
		POINTR (B,C)>POI;| @y
		POP P,A.NVA
		PURGE .NA8VA
		.NVR==.NVR-1
		.NVR==.NVR;\t ?y
		PUSH P@,A
		DEFINE .NV@8B<A>
		.NVR==.NVR+1
		.NVR==.;] ZYa
	  IFGE Zy<<<B>&777777>-..[BSIZ>,<
		PRINTX[8 ?WORD offset gre[Xater than $BUILD [xsize parameter>
\	  SET0. (\<B>,C,<A>)
	B>,;LH 	9[
	IFNDEF 	YC,<PRINTX C IS 	xNOT DEFINED
	  
A (<B>,D,FWMASK
8)>	
	IFDEF C,<
X
	IFNDEF %C,<
	
x  A (<B>,D,C)>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH y

	..NS==0
			
	IRP C,<..N
8S=..NS+1>	
	IFE 
X..NS,<PRINTX ?EMP
xTYSTRUCTURE LIST
	IFE	..NS-
	(..STR0,C>,D)
	IFG ..NS-1,<		
	..ICNS			
	.8.CNS (<E (A,<BX>,,>) 
	IRP C,<x		
	  IFNDEF C,<PRINTX C NOT DE8FINED>
	  IFDEF XC,<
	  IFNDEF %xC,<
	  ..CNS (<,C,D>)>	
	  IF8DEF %C,<
	  %CX (..STR2,,D,C)>x 
	  ..CNS (<)>)		
	  ..GCNS		
8	  ..ICNS		
	  .X.CNS (<E (A,<Bx>>) 
	  IFNDEF %C,<
	  ..CNS (<8,C,D>)>	
	  IFXDEF %C,<
	  %Cx (..STR2,,D,C)>>> 
	..CNS (<,,)>)		
	..GCNS>);LI Y
	..CNS (<,C,B>).CNS (;LI 3

	IFDIF <9D><F>,<
	  IFNXB <D>,<
	    Ax (<B>,D,..MSK)	
	    IFNB <F>,8<PRINTX C AND EX ARE IN DIFFERENTx WORDS>>
	  ..MSK==0>		
	IFNB <8F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ yC

	IFDIF <D><F>,<	
	  IF8NB <D>,<
	    XA (<B>,D,..MSK)x>	
	  ..MSK==0>		
	IFNB <F>,<
8	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ yY

	IFDIF <D><F>,<	
	  IF8NB <D>,<
	    IXFNB <F>,<		
		xA1 (B,D,..MSK)> 
	    IFB <F>,8<		
		A2 (B,DX,..MSK)>> 
	  ..xMSK==0>		
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y t
IF1,<
    PRINTX ? Erraor in "A"
    D1EFINE X(NAM,ERR) <IFN ..X'NAM&..TX EF,<PRINTX ? ERR>@>
    $TX$ERR>

    $TX$ERR>
;$^  !*

    .. 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;&(..TXA(.TQCH0)..TXA(.TQC;&)!"..TXER(IQU)..TXER(IQU;&) Q..TXER(IQU)..TXER(IQU;&0 Q..TXA(.TQCHA)..TXA(.TQC;&5 	..TXC0(\".CHLFD).TXC0(\".;&5 ..TXC0(\".CHVTB).TXC0(\".;&6 Q
	..TSIZ Oy(..PST,C)	
	.CAPSE ..PST,<<
		SEP8TZM B>,<	
		HLLPXZS B>,<	
		HRRZPxS B>,<	
	  ..TSQAC (..ACT,B)	
	Q8  .IF0 ..ACT,<
	QX	$CALL .ZERO	
		QxLSTOF.
		JUMP [PROINTR(B,C)]
		R8LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 9
	IFNDEF Y.PSECT,<
	A==0	x		
	..TSA1==<Z B>		
	  IFE ..TS8A1&^O777777777760X,<A==1> 
	>
	IxFDEF .PSECT,<
	A==0			
	..TSA1=8=<Z B>		
	.IF .X.TSA1,ABSOLUTE,<	x
	  IFE ..TSA1&^O777777777760,<A8==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= }yw
	A==3		~	
	IFE <B>+1,<~8A=0>	
	IFE <B>-~X^O777777,<A==1> ~x
	IFE <B>-^O777777B17,<A==2>7;' d/
   ..TX1d9==C			
IFDEF .PdXSECT,<
   .IFN .dx.TX1,ABSOLUTE,<
e	TDA B,[C]>
 eX  .IF ..TX1,ABSOLe9UTE,<		
	..TX2==ey0		
	IFE <..TX1&f^O777777B17>,<
	f8  ..TX2==1		
	  fXTRA B,..TX1>
	fxIFE ..TX2,<		
	IgFE <..TX1&^O77777g97>,<
	  ..TX2==1gY		
	  TLA B,(.gx.TX1)>>
	IFE ..ThX2,<		
	  IFE <<h8..TX1>B53-^O77777pY7>,< 
	    ..TX3px (A,B)>>	
	IFEq ..TX2,<		
	  TDq8A B,[..TX1]>	
qX	PURGE ..TX1,..TXqx2>>
IFNDEF .PSECrT,<
	..TX2==0		
	IFE <..TX1&^O77rX7777B17>,<
	  ..rxTX2==1		
	  TRAs B,..TX1>
	IFE s8..TX2,<		
	IFE <sX..TX1&^O777777>,<sx
	  ..TX2==1		
t	  TLA B,(..TX1t8)>>
	IFE ..TX2,<tX		
	  IFE <<..TXtx1>B53-^O777777>,<u 
	    ..TX3 (Au8,B)>>	
	IFE ..TuXX2,<		
	  TDA uxB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` v9E
	IFIDN <vYA><Z>,<		
	  ..vxTX2==1
	  ANDI wB,^-..TX1>	
	IFIw8DN <A><O>,<		
	wX  ..TX2==1
	xORwxCMI B,^-..TX1>	
	IFIDN <A><C>,<x8		
	  ..TX2==1
xX	  EQVI B,^-..TX1>QVI B,^-..TX;'  A 


	..TXEaF==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==<
	BIFN<<^D<D==^D<
	    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>,<..TXP T==0>
	IFNB <E@F>,<..TXPT==1>
	`IFE <..TXWD+..TXPT>,<
	    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 7D
    IFE 7!..TXP,<			
	..IC7@NS			
	..CNS<ASC7`IZ\>		
	..TXP==18>		
    ..CNS<A8 >			
    ..TXF==8@0			
    ..TXB=="^"
    ..TXB==;'h 9P

    IF9!N ..TXP,<			
	..9@CNS<\>		
	EXP <F9`LD(.TQCHT,TXT.FN):+[..GCNS]>>
    ..TXP==0>
    ;'	9 ~
    ..TX!EF==..TXEF!..XA	@	
    ..TXF==0		`		
    ..TXB=="^"
    ..TXB=="^;'
  %a...TXQB(<A>)..TXQB(<;'
( &!8

    IF&AN ..TXC-"^",<..TX&`C0(<A>)>		
    'IFE ..TXC-"^",<..TXF==1>-"^",<..;'
( 'AX

    IF'aE ..TXC-"^",<..TX(C0(<A>)>	
    I( FN ..TXF,<			
	.(@.TXF==0		
	IFDEF(` .TQCHA,<		
	  )  IFDEF ..TQMA,.) .TQMA 
	    IFN)@ <.TQCHA_-^D18>,)`<..TXF==2>>>
   * IFE ..TXF-2,<..T* XC1(<A>)	
	..IC*@NS			
	..CNS<..T*`XA(.TQCHA,>>	
 +   ..TXEG==..TXEG!..TXEF==..TXEG;'
) +Aj
    ..TX+aF==3				
    IFG,E ..TXC-"0",IFLE , ..TXC-"9",<..TXF=,@=2>
    IFE ..TX,`F-2,<..CNS(A)>		-
    IFE ..TXF-3- ,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'
) -a~
    ..TX.F==4				
    IFE.  ..TXC-"/",<..TXF.@==5>		
    IFE ..`.TXC-"[",<..TXF==/5>		
    IFE ..T/ XF-4,<..CNS<A,>>/@		
    IFE ..TXF/`-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'
* 0!
    ..TX0AF==4				
    IFE0` ..TXC-"/",..TXF=1=5		
    IFE ..T1 XC-"[",..TXF==5		1@
    IFE ..TXF-51`,<..CNS<,>		
		 2..TXQ5<A>>		
  2   IFE ..TXF-4,<..2@CNS<A,>		
		 ..TXF==5>	
		 ..;'
* 3&
    ..TX3!F==6				
    IFE3@ ..TXC-"/",..TXB=3`="/"		
    IFE .4.TXC-"[",..TXB=="4 ]"
    IFE ..TXB4@-"]",..CNS<[>		
4`    IFE ..TXB,..TXF==5 ..TXB,..T;'
+ 5!4
    ..TX5AF==0			
    IFE 5`..TXC-"]",..CNS<]6>	
    ..CNS<)>	6 		
    ..GCNS			6@
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  ,a
	.ACV2 (A)
	.ACV2 (d@ ,Yk
	A=.FPA,yC+..NAC		
	IFB <-B>,<..NAC=..NAC+-81>
	IFNB <B>,<..NAC=..NAC+B>.d` -yy
	IFG A-..NPAC,<PRINTX ?TO.8O MANY ACS USED>
	IFLE A-4,<
	/.x $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z T9#$CALL	I%INTA$CALL	I%IN9  {yi
	..CSN==|A
	..CSC==0
	I|8RP B,<
	IFE ..C|XSN-..CSC,<
	  ST|xOPI
	  ..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 LYo
	..PST==LyC-FWMASK
	.IF0 M..PST,<
		SOS BM8>,<	
		$CALL .SOMXS	
		LSTOF.
		JMxUMP [POINTR(B,C)]
		LSTON.>C} =~
	.OPCD==_a.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 zY[
	..IFT==zyA		
	IFE ..IFT,{<
	B
	..IFT==0{8>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H IYW
	..PST==IyC-FWMASK
	.IF0 J..PST,<
		AOS BJ8>,<	
		$CALL .AOJXS	
		LSTOF.
		JJxUMP [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 B$
	IFG	A-BqMX.PID,<MX.PID==A>
C
G	A-OSP OYP O|P OyP O%=H !9
	.STKV2 (A)
	.STKV2 O%=I !y
	IFB <B">,<..STKN==..STKN"8+1>
	IFNB <B>,<"X..STKN==..STKN+B"x>
	..STKQ==..STK#N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I #Y'
   IFDEF#y A,<.IF A,SYMBO$L,<PRINTX STKVAR $8A ALREADY DEFINE$XD>>
	DEFINE A<-$x^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@ (G
	.TRV3 ((9A,\..NV)	
	IFB (X<B>,<..NV=..NV+1(x>
	IFNB <B>,<..NV=..NV+B>,<..Sd` )9U
   IFDEF)Y A,<.IF A,SYMBO)xL,<PRINTX TRVAR *A ALREADY DEFINED*8>>
	DEFINE A<^O*XB(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP _%~ fAP
		$CALL	faI%WTO		
		LSTOF.g			
		JRST	g		
		$WTRST			
	IFg@NB <A>,<$WTMTY (g`<A>)>	
	IFNB <hB>,<$WTTYP (<B>)h >	
	IFNB <C>,<$h@WTTXT (<C>)>	
	h`IFNB <D>,<$WTOBJi (<D>)>	
	IFNB i <E>,<$WTACK (<Ei@>)>	
		IRP F,<i`F>		
		$WTBLD			j
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP