Google
 

Trailing-Edge - PDP-10 Archives - bb-d868e-bm_tops20_v41_2020_dist_1of2 - new-subsys/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,5T@P C4@ wA@
	..NAC==wa0		
	IRP A,<
	x  .ACV1 (A)>		
	.ACV3 (\..NAC)C' !A
..AS(A,B,ADD,SUB)(A,BC, ILSH A,-^D9LSH A,-^DC2f} iH
	.EAWTO(	MTY,0)
	.EAWTO(T(YP,2)
	.EAWTO(TXHT,2)
	.EAWTO(OBJh,0)
	.EAWTO(ACK,0)
	.EAWTO(FLG,1()
	.EAWTO(NOD,0)H
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
		.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' F
0
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ -n
	  IFE -!B,<..TA==0>
	  -@IFN B,<EXP ..TA-`
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ A	T
	    ..CX(,A,B)   ..CGD 	p
	    ..CX(A,A,B)  ..CGDP 	`
	    ..CX(E,A,B)  ..CGDp A	d
	    ..CX(G,A,B)  ..CGDy  	h
	    ..CX(GE,A,B) ..CGE@ 	X
	    ..CX(L,A,B)  ..CGEI  A	\
	    ..CX(LE,A,B) ..CGE` A	l
	    ..CX(N,A,B)  ..CGH s	

	  LSTr	OF.

	X CRE	
	riX GEN	
	X PRT	
rI	X CLS	
	X)AUT	
	X USW	
	X SPL	s)
	X SIZ   
	X MsHOD	
	X CHN	

	  LSTON.


	G"\Y @A,

	IF1, @`<%%EDT==AEDT>	
A
	IF2, <IFN <%%EA DT-AEDT>,<
		PRA@INTX ? Edit NumbeA`r Doesn't Match GBLXVER in GLXA
	B 	A$WHO(\AEDT)>	B@
		A$NOTE		
	IB`NTERN AEDT		
	ICNTERN LODLEV		
;C 	PURGE %%EDT> ;END IF2

aPv\rG4,m:Q G4-ZQ G4.
zQ G:YlP 
G>hKW X%D
	IFNB <>X ,<
	PRINTX  (FroX@m GLXVER)
	> ;END IFNB 
	G>hMt V@%<
	PRINTX V`GLXVER	GLXCOM EdiWt(55) by VD on 6-W Dec-82
	PRINTX	 W@   	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ Ea6LALL
PAGEF; (A Continued oF n next page)
SALF@L; (A Continued F`from previous page) previous pagGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P'pIY{P .I  aD
	IFNB <B>,<..STR0 (.DECR 0,,<B>,A)>
	IF@B  <B>,<SOS A>  <B>,<SOS A>I6= P
	A==<-1P!B<C>+1B<C-D>> P@
	IF1,<IFDEF %AP`,<PRINTX ?A ALREQADY DEFINED>>
	DQ EFINE %A (OP,AC,Q@Y,MSK)<	
	IFDIF Q`<Y><>,<
	OP (<ACR>,B+'Y,MSK)>
	IR FIDN <Y><>,<
	OPR@ (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 $
 ..OP(A,B,DIV)..OP(A,BIOH1 h&K
	IFB <Dh1>,<
	XWD	[ASCIZ\hPC\],[XWD B,A]>hp
	IFNB <D>,<
	iXWD	[EXP CM%FW!Di0
		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 pI

	IF1,<IFpiDEF ERA$,PRINTX q?Duplicate error q(code A>
	ERA$=qH=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y 6i
	ERR	EOF7	,<End of file>
	7(ERR	IFP,<Illegal 7Hfile position>
	7hERR	FDE,<File dat8a error>
	ERR	FN8(D,<File is not on8H disk>
	ERR	NSD,8h<No such device>
	ERR	FCF,<File c9(heckpoint failed>9H
	ERR	SLE,<A sys9htem limit was exc:eeded>
	ERR	IFS,:(<Illegal file spe:Hcification>
	ERR:h	FNF,<File not fo;und>
	ERR	PRT,<P;(rotection violati;Hon>
	ERR	DNA,<De;hvice not availabl<e>
	ERR	NCE,<No <("current" entry i<Hn list>
	ERR	NMA<h,<No IPCF message= is available>
	=(ERR	FDS,<Files ar=He on different st=hructures>
	ERR	F>AE,<File already >(exists>
	ERR	USE>H,<Unexpected syst>hem error>
	ERR	N?SP,<No such pid>
	ERR	BOL,<Beginn?Hing of list reach?hed>
	ERR	EOL,<En@d of list reached@(>
	ERR	RQF,<Rece@Hivers quota full>@h
	ERR	SQF,<SendeArs quota full>
	A(ERR	NRE,<No rememAHbered entry>
	ERAhR	TBF,<Table is fBull>
	ERR	EIT,<TB(able entry alreadBHy exists>
	ERR	IBhTE,<Invalid tableC entry>
	ERR	QEFC(,<Quota exceeded CHor disk full>
	EChRR	ARG,<Invalid aDrgument specifiedD(>
	ERR	IFN,<InvaDHlid function specDhified>
	ERR	IJN,E<Invalid job numbE(er specified>
	EEHRR	RAD,<Invalid rEhadix specified>
F	ERR	NUM,<InvalidF( numeric argumentFH>
	ERR	IDT,<InvaFhlid date field spGecified>
	ERR	ITG(F,<Invalid time fGHield specified>
Gh	ERR	DOR,<Date/tiHme out of range>
	ERR	DTM,<Value HHmissing in date/tHhime>
	ERR	MDD,<MIissing day in datI(e/time>
	ERR	DFZIH,<Field zero in dIhate/time>
	ERR	MJDS,<Mnemonic dateJ(/time switch not JHimplemented>
	ERJhR	DFL,<Field too Klarge in date/timK(e>
	ERR	ILR,<IllKHegal year format Khin date/time>
	ELRR	NND,<Negative L(number in date/tiLHme>
	ERR	NPF,<NoLht known whether pMast or future in M(date/time>
	ERR	MHRDP,<Relative datMhe parse required>N
	ERR	NSW,<SwitcN(h does not begin NHwith slash>
	ERRNh	NOM,<UnrecognizeOd switch or keywoO(rd>
	ERR	NUL,<NuOHll switch or keywOhord given>
	ERR	PINW,<Invalid guidP(e word>
	ERR	NC,PH<Not confirmed>
Ph	ERR	ICN,<InvalidQ character in numQ(ber>
	ERR	NQS,<IQHnvalid quoted strQhing - does not beRgin with quote>
R(	ERR	AMB,<AmbiguoRHus switch or keywRhord>
	ERR	NMT,<DSoes not match tokS(en>
	ERR	CMA,<CoSHmma not given>
	ShERR	NNC,<Node namTe may not exceed T(6 characters>
	ETHRR	INT,<Node termThinator "::" must Ube specified>
	EU(RR	NSN,<Unknown nUHode name>
	ERR	IUhPS,<Invalid path Vspecification>
	V(ERR	IUS,<Invalid VHuser specificatioVhn>
	ERR	DGS,<DevWice name may not W(exceed 6 characteWHrs>
	ERR	DNE,<UnWhknown device>
	EXRR	DIO,<Device caX(n not do input orXH output>
	ERR	BDXhF,<Invalid date/tYime format>
	ERRY(	ABS,<Field too lYHong for internal Yhbuffer>
	ERR	TMTZ,<Command too lonZ(g for internal buZHffer>
	ERR	BDS,<ZhInvalid default s[tring>
	ERR	BTF,[(<Invalid table fo[Hrmat>
	ERR	TME,<[hDate/time must be\ in the future>
\(	ERR	TMN,<No time\Hr entry has expir\hed>
	ERR	TMA,<Ti]mer entry already]( exists>
	ERR	DV]HT,<Device termina]htor ":" must be s^pecified>
	ERR	N^(CI,<Argument bloc^Hk may not be in t^hhe ACs>
	ERR	TLU_,<Terminal locati_(on is unknown>
	_HERR	FIO,<File is _hoffline>
	ERR	FB`M,<File being mod`(ified>
	ERR	WLK,`H<Write-locked dev`hice>
	ERR	CSD,<Caannot supersede aa( directory>
	ERRaH	CDD,<Cannot deleahte a non-empty dibrectory>
	ERR	SNb(F,<Sub-file direcbHtory not found>
bh	ERR	ESL,<Search clist is empty>
	c(ERR	LVL,<SFD levecHl nested deeper tchhan the maximum adllowed>
	ERR	CCWd(,<Cannot create/wdHrite on any strucdhture in search liest>
	ERR	FCU,<Cae(nnot update file>eH
	ERR	ENQ,<File ehhas outstanding Efnqueue lockes setf(>
	ERR	SWS,<SoftfHware write-lock ofhn structure>
	ERgR	DER,<Hardware dg(evice error>
	ERgHR	DTE,<Hard data gherror>
	ERR	BKT,h<Block too large>h(
	ERR	IPP,<Non-ehHxistant UFD>
	ERhhR	TRN,<RIBortrainsmissionerror>RINTXn 	    	GLXINI	Actual Edit(A)
	S:LYP S;k 
!R<<<A>B<POS(<B>)>>&<B>>S; KW l &f
	IFNB <>l@,<
	PRINTX  (Frol`m GLXVER)
	> ;END IFNB 
	S; Mt j`&^
	PRINTX kGLXVER	GLXINT Edik t(105) by DPM on k@11-Jan-82
	PRINTk`X	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP "S? EA
,
	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 b &
	IFNB <>b@,<
	PRINTX  (Frob`m GLXVER)
	> ;END IFNB 
	SBMt ``&
	PRINTX aGLXVER	GLXIPC Edia t(64) by DPM on 2a@2-Jun-82
	PRINTXa`	    	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)mvP&SBal}P SPuxzQ @SR/
	LSTOF.	=XCREF
	..TEXT<A=8>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ hIF

	  LSTt)OF.

	X JNO,.JItHJNO,<-1,,GJBJNO>	th
	X TNO,.JITNO,<u-1,,GJBTTY>	
	X u(USR,.JIUNO,.GTPPNuH		
	X CDN,.JIDNOuh,<-1,,GJBPTH>	
	vX PRG,.JIPNM,.GTPv(RG		
	XhCJN,.JICvHPJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.GwTOBI		
	X JLT,.Jw(ISTM,.GTJLT		
	XwH LOC,<-1,,GJBLOC>wh,<-1,,GJBLOC> 
	xX RTM,.JIRT,<-1,,x(GJBRTM>	
	X TLC,xH<-1,,GJBTLC>,<-1,xh,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 q'

	IFNB <>q ,<
	PRINTX  (Froq@m GLXVER)
	> ;END IFNB 
	W
 Mt o@'
	PRINTX o`GLXVER	GLXKBD Edipt(56) by DEK on 8p -Jul-81
	PRINTX	p@    	GLXKBD	Actual Edit(A)
	W
$YP WNH1 iq&W
	IFB <Cj>,<
	XWD	[ASCIZ\j0B\],A>
	IFNB <jPC>,<
	XWD	[EXP jpCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 c	

	  LSTc)OF. XCREF

	CDOcH	OTSINI			
	CDO	ch    			
	CDO	.ZPdAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CDdHO	.SAVE1
	CDO	.SdhAVE2
	CDO	.SAVE3e
	CDO	.SAVE4
	Ce(DO	.SAVET
	CDO	.eHSV13
	CDO	.SV14
	CDO	.SV15
	CDOf	.SV16
	CDO	.RETf(T
	CDO	.RETF
	CfHDO	.RETE
	CDO	.AfhOS		
	CDO	.SOS		g
	CDO	.ZERO		
	g(CDO	.POPJ		
	CDOgH	.STOP		
	CDO	.SghAVE8		
	CDO	.STKhST		
	CDO	.TRSETh(		
	CDO	.POPJ1		hH
	CDO	.UD2SC		
hh	CDO	.SC2UD		
	CiDO	.CPUTY		
	CDOi(
	CDO
	CDO

	iHCDO			
	CDO	C%RPihRM
	CDO	C%INTR
j	CDO	C%SEND
	CDOj(	C%RECV
	CDO	C%BjHRCV
	CDO	C%REL
jh	CDO	C%CPID
	CDOk	C%KPID
	CDO	C%Sk(PID
	CDO	C%MAXP
	CDO	C%PIDJ
	CDkhO
	CDO
	CDO
	ClDO
	CDO

	CDO	l(      			
	CDO	FlH%IOPN
	CDO	F%AOPlhN
	CDO	F%OOPN
	mCDO	F%IBYT
	CDO	m(F%OBYT
	CDO	F%IBmHUF
	CDO	F%OBUF
mh	CDO	F%REL
	CDO	nF%DREL
	CDO	F%RRn(EL
	CDO	F%REW
	nHCDO	F%POS
	CDO	Fnh%CHKP
	CDO	F%INFoO
	CDO	F%FD
	CDo(O	F%REN
	CDO	F%DoHEL
	CDO	F%FCHN
oh	CDO
	CDO
	CDO
	CDO
	CDO
	CDOp(
	CDO
	CDO
	CDpHO

	CDO	      	ph		
	CDO	M%ACQP
q	CDO	M%RELP
	CDOq(	M%IPSN
	CDO	M%NqHXPG
	CDO	M%IPRC
	CDO	M%IPRM
	CDrO	M%AQNP
	CDO	M%r(RLNP
	CDO	M%CLNCrH
	CDO	M%FPGS
	CrhDO	M%GMEM
	CDO	Ms%RMEM
	CDO
	CDOs(
	CDO
	CDO
	CDsHO
	CDO
	CDO	M%GshPAG
	CDO	M%RPAG
	CDO
	CDO
	CDOt(
	CDO
	CDO
	CDtHO
	CDO
	CDO

th	CDO	      			
	uCDO	T%TEXT
	CDO	u(T%TTY
	CDO
	CDOuH
	CDO
	CDO
	CDuhO
	CDO
	CDO
	CvDO
	CDO
	CDO
v(
	CDO	      			
vH	CDO	L%CLST
	CDOvh	L%DLST
	CDO	L%CwENT
	CDO	L%CBFR
	CDO	L%DENT
	CDwHO	L%NEXT
	CDO	L%whFIRS
	CDO	L%LASTx
	CDO	L%PREV
	Cx(DO	L%PREM
	CDO	LxH%CURR
	CDO	L%RENxhT
	CDO	L%SIZE
	yCDO	L%APOS
	CDO
	CDO
	CDO
	CDOyH
	CDO
	CDO
	CDyhO
	CDO

	CDO		z	
	CDO	I%NOW
	Cz(DO	I%EXIT
	CDO	IzH%ION
	CDO	I%IOFFzh
	CDO	I%SLP
	CD{O	I%INT1
	CDO	I%{(INT2
	CDO	I%INT3{H
	CDO	I%TIMR
	C{hDO
	CDO
	CDO	I%|SOPR
	CDO	I%WTO
	CDO
	CDO	I%HOS|HT
	CDO	I%JINF
	|hCDO
	CDO

	CDO}			
	CDO
	CDO	S}(%DATI
	CDO	S%SIX}HB
	CDO	S%CMND
	}hCDO	S%TBLK
	CDO	~S%SCMP
	CDO	S%ER~(R
	CDO	S%INTR
	~HCDO	S%EXIT
	CDO	~hS%TBAD
	CDO	S%TBDL
	CDO	S%NUMI
(

	CDO	K%RCOC		H	
	CDO	K%WCOC
	hCDO	K%SUET
	CDO	K%STYP
	CDO	K%TX(TI
	CDO	K%SOUT
H	CDO	K%BOUT
	CDOh	K%BIN
	CDO	K%BACK
	CDO	K%TPOS
(	CDO	K%BUFF
	CDOH	K%FLSH
	CDO	K%OhPEN
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDOH
	CDO
	  LSTON.
  
	  LSTON.Y:XKW g &>
	IFNB <>g@,<
	PRINTX  (Frog`m GLXVER)
	> ;END IFNB 
	Y:XMt e`&6
	PRINTX fGLXVER	GLXLNK Edif t(11) by AWC on 2f@9-Jan-82
	PRINTXf`	    	GLXLNK	Actual Edit(A)
	Y:\YP Y>
@ !x
	IFNB <AC>,<..STR0 (..LDB`,A,C,B)>
	IFB  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG G!D
	IFNDEF GALSTIN.,LSTIN.==0	G`	
IFE LSTIN.,<
H	IFIDN <XCREF><AH >,<.XCREF>	
		  H@ XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G IN
	IFG LSTI!IN.,LSTIN.==LSTIN[email protected]	
	IFLE LSTINI`.,<.CREF		
		      LIST>
		   [KW _@&
	IFNB <>_`,<
	PRINTX  (Fro`m GLXVER)
	> ;END IFNB 
	[Mt ^%x
	PRINTX ^ GLXVER	GLXMAC Edi^@t(234) by  on 8-J^`ul-82
	PRINTX	  _  	GLXMAC	Actual Edit(A)
	[YP N[3@ 	aN<<<1_<A>>-1>B<B>>_<A>>[8@ aF1B<<A>-1>-1B<B><<A>-1>[@ ^I
	IFB <B^i>,<MAXSIZ==0
		I_RP A,<IFG <A-MA_(XSIZ>,<MAXSIZ==A_H>>>
	IFNB <B>,<_hB==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 i`&R
	IFNB <>j,<
	PRINTX  (Froj m GLXVER)
	> ;END IFNB 
	[hMt h &J
	PRINTX h@GLXVER	GLXMEM Edih`t(27) by WSM on 1i9-Jan-82
	PRINTXi 	    	GLXMEM	Actual Edit(A)
	[lYP [n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p `I
	IFB <B`i>,<MINSIZ==377777a,,777777
		IRP a(A,<IFG <MINSIZ-AaH>,<MINSIZ==A>>>
	IFNB <B>,<B==b377777,,777777
	b(	IRP A,<IFG <B-bHA>,<B==A>>>
A>,<B==A>>>
[>!` 	!J<A-<A/B>*B><A-<A/B[?7 
a	8
   ..MX1==B			
IFDEF .P SECT,<
   .IFN .@.MX1,ABSOLUTE,<
`	MOVE A,[B]>
 
  .IF ..MX1,ABSOL
 UTE,<
	..MX2==0	
@	
	IFE <..MX1>B5
`3,<
	  ..MX2==1
	1>MOVEI A,..MX
	IFE ..MX2,<
	IFE<<..MX1>B
	  ..MX2==1
	  MOVSI A,(.. MX1)>>	
	IFE ..M@X2,<		
	IFE <<..`MX1>B53-^O777777>,<
	  ..MX2==1
 	  HRROI A,<..MX@1>>>	
	IFE ..MX2`,<		
	IFE <<..MX1>B17-^O777777B17 >,<
	@..MX2==1
	  HRLOI A,(..M`X1-^O777777)>> 
	IFE ..MX2,<		
	   MOVE A,[..MX1]@>	
	>>

IFNDEF` .PSECT,<
	..MX2==0		
	IFE <..MX 1>B53,<
	  ..MX2@==1
	  MOVEI A,`..MX1>	
	IFE ..MX2,<		
	IFE <..M X1>B17,<
	  ..MX@2==1
	  MOVSI A`,(..MX1)>>	
	IFE ..MX2,<		
	IFE  <<..MX1>B53-^O777@777>,<
	  ..MX2=`=1
	  HRROI A,<..MX1>>>	
	IFE . .MX2,<		
	IFE <<@..MX1>B17-^O77777`7B17>,<
	  ..MX2==1
	  HRLOI A, (..MX1-^O777777)>@> 
	IFE ..MX2,<	`	
	  MOVE A,[..MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= S
	A==C	S!	
	IF1,<IFDEF %S@A,<PRINTX ?A ALRS`EADY DEFINED>>
	TDEFINE %A (OP,ACT ,Y,MSK)<	
	IFDIFT@ <Y><>,<
	OP (<AT`C>,B+'Y,MSK)>
	UIFIDN <Y><>,<
	OU P (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg #
..OP(A,B,MUL)..OP(A,B[`v
2P ] @YIF2,<IFDEF@9 A,<A==A>> IFNDEF A,<A==B>]F@ "TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= Q /

	X	.OTh	RDR,Reader
	X	.Ot	TNCU,Network-Contqroller
	X	.OTLPT1,Printer
	X	.OTBqAT,Batch-Stream
	X	.OTCDP,Card-Pu0nch
	X	.OTPTP,PaPpertape
	X	.OTPLpT,Plotter
	X	.OTJOB,Job
	X	.OTTR0M,Terminal
	X	.OPTOPR,Operator
	Xp	.OTIBM,<IBM Remote>
	X	.OTMNT,<D0evice>
	X	.OTFTSP,<File Transfer>
	X	.OTBIN,<Card Reader Interprete0r>
	X	.OTRET,<FiPle Retrieval>
	Xp	.OTNOT,<Retrieval Notification>
0	X	.OTDBM,<DBMS SPystem>
	X	.OTFALp,<File Access Listener>
ess Lis_SKW v'4
	IFNB <>v ,<
	PRINTX  (Frov@m GLXVER)
	> ;END IFNB 
	_SMt t@',
	PRINTX t`GLXVER	GLXOTS Ediut(7) by DEK on 6-u Apr-81
	PRINTX	 u@   	GLXOTS	Actual Edit(A)
	_SYP _Sh6 q w [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 !.

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

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

	EXP ..XX		

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

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

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



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

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

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

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

G>,<EXP Ga@KW s`'"
	IFNB <>t,<
	PRINTX  (Frot m GLXVER)
	> ;END IFNB 
	a@Mt r '
	PRINTX r@GLXVER	GLXPFH Edir`t(16) by TARL on s17-Apr-81
	PRINTs X	    	GLXPFH	Actual Edit(A)
	aDYP a 	LSH A,^D9LSH A,^D9a+= 5a;&  `i
	 IFB  <a	B>,<..STR0(..PNTa(,,<FWMASK>,A)>
aH	 IFNB <B>,<..STahR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm :<POINT WID!(B),A,POS(B)>B),A,POS(B)>a?H6 +a? (<^L<<A>&<-<A>>>><<A>&<aJ}Ks @f

	SALL	JI			
	LSTOF. XCREJhF			

	%%.GLX==K%%.GLX			
	GLXVRK(S==GLXVRS			

	KHIFNB <A>,<%%.MODKh==SIXBIT/A/> 
	LIFNB <B>,<%%.OTSL(==SIXBIT/B/> 
LH
	GLOB	I%INIT			

	TOPS10	<			
M		SEARCH	UUOSYM		M(
		%%UUOS==%%UUOMHS		
	>				

	TMhOPS20	<			
		SEANRCH	MONSYM		
;		N(%%MONS==%%MONS		
	>				

	IFB <NhB>,<			
		.TEXTO	|,REL:GLXLIB/SEAO(RCH/REQUIRE:I%INIOHT|
		DEFINE	$DATOhA (NAM,SIZ<1>),< P
			NAM:	BLOCK	SP(IZ
		>			
		DEFPHINE	CDO (X),<GLOBPh X> 
		LIBVEC			Q
	>				

	IFNBQ( <B>,<CHKEDT (BQH)>	

	IFNB <B>Qh,<IFDIF <B><INI>R,< 
		IFN GLXPURR(E,<.PSECT .HIGH.>RH 
		IFE GLXPURE,Rh<		
			TWOSEG	40S0000	
			RELOC	0S(	
			RELOC	40000SH0	
		>			

		DShEFINE $DATA(NAM,STIZ<1>),< 
			IFNT( GLXPURE,<.PSECT THDATA> 
			IFE GLThXPURE,<RELOC> 
	U		IFNDEF B%D,<BU(%D::! B%DL==:0>
			NAM:	BLOCK	SIUhZ
			B%DL==:B%VDL+SIZ 
			IFN GV(LXPURE,<.ENDPS DAVHTA> 
			IFE GLXPVhURE,<RELOC> 
		>W			

		IFDIF <W(B><OTS>,<	
			DEWHFINE	CDO (X),<GLOWhB X> 
			LIBVEC	X	
		>			

	>>	X(			

	IFNB <B>XH,<IFIDN <B><INI>Xh,< 
		DEFINE	$DAYTA (NAM,SIZ<1>),<Y( 
			NAM:	BLOCK	YHSIZ
		>			
	>>	Yh			

	LSTON.			Z	

	GLOB	<.POPJZ(, .RETT, .RETF>	
	OPDEF	$RET	[POPZhJ	P,]	
	OPDEF	$R[ETT	[PJRST	.RETT][(	
	OPDEF	$RETF	[[HPJRST	.RETF]	
	O[hPDEF	$RETIT	[JUMP\T	.POPJ]	
	OPDEF\(	$RETIF	[JUMPF	.P\HOPJ]	
	.NODDT	$R\hET,$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 ] %n
	IFNB <>]@,<
	PRINTX  (Fro]`m GLXVER)
	> ;END IFNB 
	gpMt [`%f
	PRINTX \GLXVER	GLXSCN Edi\ t(74) by DEK on 2\@2-Jul-82
	PRINTX\`	    	GLXSCN	Actual Edit(A)
	gtYP g"@ .!
	IFN <<..A.TA>&B>,<PRINTX.` ?Initial field n/ot zero in $SET>
	/@..TVAL==<C>
	/`..TMSK==<B>
	  ..TA==..TA!0<FLD(..TVAL,..TMS0 K)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@$q"'C.SWIT+PDBCPY##C.SWIT+PDBg$tkQ@g$uP'g$uh6Q  g.N	@ 6@g.N
.SPID	(SP.QSR,.IPCPQ,.SPQ0SR,QUASAR)	
.SPIPD	(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,,ACTDAE)		
.SPID	(SP.0TLP,.IPCPT,,TAPLAPB)		
.SPID	(SP.TpOL,.IPCPC,,TAPAVR
)		
.SPID	(SP.DO
0L,.IPCPD,,DSKAVR)
P		
.SPID	(SP.FIL
p,.IPCPF,,FILDAE)		
>
,FILDAE)	gR^h9 k!j
	..STKR=kA=10		
	RADIX 8
k`	..STKN==0
	IRP lA,<
	  .STKV1 (l A)>
	$CALL	.STKl@ST
	 ..STKN,,..Sl`TKN
	RADIX ..STKmR
	PURGE ..STKN,m ..STKR,..STKQ
   TKR,..STKQ
  gR~)  A
	IFNB <aC>,<..STR0 (..DPB,A,C,B)>
	IFB   <C>,<MOVEM A,B>>,<MOVEM A,gV "
..AS(A,B,SUB,ADD)(A,Bgg
V ])p
	IFNB <]IB>,<TOPS10<A==B]h>>
	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( :9+SIFN FTUUOS,B			;DEFINE UNi?4H :y+WIFN FTJSYS,	INTERN AEDT	iD GyK

  IFNBH	<A>,<.TQCHA==^H8D<B>B17+ZZ>
  IHXFNB 	<D>,<DEFINEHx ..TQMA<D>>
  IIFNB	<C>,<.TQC=I8=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, =y;
	LSTOF.
	TQ(T,2,ASCIZ)		>8	
	TQ(O,2,OCTAL)>X			
	TQ(D,2,DECI>xMAL)			
	TQ(F,2,?FILE)			
	TQ(7,2?8,CSEVEN)			
	TQ(?X6,2,CSIXBIT)			
?x	TQ(W,2,SIXBIT)		@	
	TQ(5,2,SVNBIT@8)			
	TQ(P,2,USE@XR)			
	TQ(U,2,DI@xRECTORY)			
	TQ(AH,2,DAYTIME)			
A8	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		Ax	
	TQ(I,1,INDIREBCT)		
	TQ(M,0,CRB8,..TXC0(\".CHCRT)BX)	
	TQ(J,0,LF,..BxTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCC80(\".CHFFD))	
	TCXQ(K,0,VT,..TXC0(\Cx".CHVTB))	
	TQ(AD,0,NOCRLF,..TXA(.D8TQCHA))	
	TQ(0,0DX,NULL,..TXA(.TQCHDx0))	
	TQ(3,0,STREING,..TXER(IQU))	E8
	TQ(V,2,VERSIONEX)			
	TQ(2,0,CARExET,..TXER(IQU))	
	TQ(Q,2,POINTER)F8			
	TQ(B,2,ROB)FX			
	TQ(1,2,OBJEFxCT)			
	TQ(N,2,NGODE)			
	TQ(R,2,G8JIB)			
	LSTON.
)			
	LSTON. h)u
	LSTOF.
	X(33,TTY33,33,)yi				
	X(35,TTY35z),35,)				
TOPS20z	<
	X(37,TTY37,37zQ,)				
	X(EXECUPzpORT,EXEC,EXE,)			{
>
TOPS10<
	X({0LA120,LA120,L12,){P			
>
	X(LA36,L{pA36,L36,)			
	X(|VT05,VT05,V05,<37|0,177,177,177>)	
|P	X(VT100,VT100,10|p0,<.CHESC,"[","K"}>)	
	X(VT50,VT50}0,V50,<.CHESC,"J">}P)		
	X(VT52,VT52}p,V52,<.CHESC,"J">~)		
TOPS10<	X(VT~061,VT61,V61,<.CHE~PSC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ qa
	..TRR==r10		
	RADIX 8
	r ..NV==1			
	IRP r@A,<
	  .TRV1 (r`A)>		
	$CALL	.TRsSET		
	 ..NV-1,,s ..NV-1
	RADIX ..s@TRR		
	PURGE ..TRR,..NVURGE ..Tib ;X
		..TX(C,A,<B>)..TX(Cib <Ad
		..TX(CA,A,<B>).TX(CibP ;A\
		..TX(CE,A,<B>).TX(Cib` <`
		..TX(CN,A,<B>).TX(Cibp 5(
		..TX(N,A,<B>)..TX(Nibt 6A4
		..TX(NA,A,<B>).TX(NibtP 5A,
		..TX(NE,A,<B>).TX(Nibu` 60
		..TX(NN,A,<B>).TX(Nibx 78
		..TX(O,A,<B>)..TX(Oib| 8AD
		..TX(OA,A,<B>).TX(Oib|P 7A<
		..TX(OE,A,<B>).TX(Oib}` 8@
		..TX(ON,A,<B>).TX(Oic KW d`&*
	IFNB <>e,<
	PRINTX  (Froe m GLXVER)
	> ;END IFNB 
	ic Mt c &"
	PRINTX c@GLXVER	GLXTXT Edic`t(51) by DPM on 1d2-Feb-82
	PRINTXd 	    	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 9H
		..TX(Z,A,<B>)..TX(ZicT :AT
		..TX(ZA,A,<B>).TX(ZicTP 9AL
		..TX(ZE,A,<B>).TX(ZicU` :P
		..TX(ZN,A,<B>).TX(ZmKc@ ;RBYTE (3)AJ!WHO (9)AVER (6)AMIN (18)AEDTo&  A$<^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 y	H
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +
q+= +
q6~i4 C q? FA
4
	TXC A,<B>
	TXC A,q@ BAIFB <C>,<BaA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up a\
	IFNB <B>,<..STR1 (..TQZ ,,<B>,A,..STR4)@>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z cq&/
	.$RESETd
	$TYPE (.CMACT)d0
	$HELP (<>)
	$dPNEXT (A)
IFIDN dp<B> <>,< IRP C,e<C>
			.$BUILD>e0
IFDIF <B> <>,<eP
	$HELP (B)
	IepRP C,<C>
	.$BUILD><C>
	.$BU	0 /)~
.WTOX.(.OM/IACK,<A>,<B>,<C/h>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7  I"DEFINE .$R iTN <A>
			.%RTN==1A>
			.%RTN	fI9 I!^DEFINE .$LiST <A+1>
			.%LST==11>
			.%L	
=Z !
	  IFG AA-INT.LV,<PRINTX `?Level A interru pts not supported  >
	  .BGINT.(\A)   .BGINT.(\A	X5 i!pDEFINE .$B	REA <A>
			.%BREA==1>
			.%BR	- " 
	  IFDEF"! ..BSIZ,<PRINTX ?"@Missing $EOB afte"`r a $BUILD>
	  .#.BSIZ==0			
	  .# .BLOC==.			
	  R#@EPEAT A,<			
		#`BLD0.(\..BSIZ,0)	$
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 NQ${
	.$RESETNq
	$TYPE (.CMCMA)O
	$NEXT (A)
	IO0RP B,<B>
	.$BUILD,<B>
	.$BU	I@ K$]
	.$RESETK1
	$TYPE (.CMCFM)KP
	IRP A,<A>
	.$BUILD,<A>
		$^ Tq%7
	.$RESETU
	$TYPE (.CMTXT)U0
	$HELP (<>)
	$UPNEXT (A)
IFIDN Up<B> <>,< IRP C,V<C>
			.$BUILD>V0
IFDIF <B> <>,<VP
	$HELP (B)
	IVpRP C,<C>
	.$BUILD><C>
	.$BU	I  W1%C
	.$RESETWQ
	$TYPE (.CMTAD)Wp
	$PDATA (CM%IDAX)
	$NEXT (A)
	X0IRP B,<B>
	.$BUILD,<B>
	.$B	,,U !!

	  $RET	!A			;WILL INVOKE RIGHT ROUTINE
		,h: i!RDEFINE .$D	EFM <POINT 7,[ASC(IZ\A\]>
			.%DEFM==1>
			.%DE	.` SQ%#
	.$RESETSq
	$TYPE (.CMDEV)T
	$NEXT (A)
	IT0RP B,<B>
	.$BUILD,<B>
	.$BU	Lz: 9Q#_
	.$RESET9q
	$TYPE (.CMNUX):
	$PDATA (B)
	:0$HELP (<>)
	$NEX:PT (A)
IFIDN <C:p> <>,< IRP D,<D;>
			.$BUILD>
I;0FDIF <C> <>,<
	;P$HELP (C)
	IRP ;pD,<D>
	.$BUILD><D>
	.$BUILD	N  L$g
	.$RESETL1
	$TYPE (.CMDIR)LP
	$NEXT (A)
	ILpRP B,<B>
	.$BUILD,<B>
	.$BU	|  )d
	  IFNDE)!F ..BSIZ,<PRINTX )@?$EOB without pre)`vious $BUILD>
	 * IFN <.-..BLOC>,<* PRINTX ?Address c*@hange between $BU*`ILD and $EOB>
	 + LSTOF.			
	  ..+ T==0
	  REPEAT .[email protected],<
	    BLD+`0.(\..T,1)		
	  ,  ..T==..T+1 >
	,   PURGE ..BSIZ,..,@T,..BLOC	
	  LSTON.
		
	  LST	+y 	!jDEFINE .$E)RTN <A>
			.%ERTN==1>
			.%ER	, I!vDEFINE .$EiRTN <1B0+A+1>
			.%ERTN==1>
		- )"DEFINE .$EIRTN <[MOVEI S2,[AhSCIZ\A\]
				       $RETF]>
			.%ERTN==1>
			.	H6 2y
	$CALL	.3STOP
	LSTOF.
	J38UMP	[XWD 0,[ITEXT3X (<A>)]
		 EXP 3x%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ HQ$U
	.$RESETHq
	$TYPE (.CMFLD)I
	$NEXT (A)
	$I0HELP (<>)
IFIDN IP<B> <>,< IRP C,Ip<C>
			.$BUILD>J
IFDIF <B> <>,<J0
	$HELP (B)
	IJPRP C,<C>
	.$BUILD><C>
	.$BU	MI  F$A
	.$RESETF1
	$TYPE (.CMFIL)FP
	$HELP (<>)
	$FpNEXT (A)
IFIDN G<B> <>,< IRP C,G0<C>
			.$BUILD>GP
IFDIF <B> <>,<Gp
	$HELP (B)
	IHRP C,<C>
	.$BUILD><C>
	.$BU	dy 	!:DEFINE .$F)LGS <A>
			.%FLGS==1>
			.%FL	ex: Q%
	.$RESETQ1
	$TYPE (.CMFLT)QP
	$HELP (<>)
	$QpNEXT (A)
IFIDN R<B> <>,< IRP C,R0<C>
			.$BUILD>RP
IFDIF <B> <>,<Rp
	$HELP (B)
	ISRP C,<C>
	.$BUILD><C>
	.$BU	$ 2	EH
	  INTER29N A
	  $DATA(A,<B>)
	ATA(A,-
1@	" I!J
	IFDIF <iA> <>,<
DEFINE .$HLPM <POINT 7,[(ASCIZ\A\]>
			.%HLPM==1>
			.	&5 A$
	.$RESETA1
	$TYPE (.CMIFI)AP
	$HELP (<>)
	$ApNEXT (A)
IFIDN B<B> <>,< IRP C,B0<C>
			.$BUILD>BP
IFDIF <B> <>,<Bp
	$HELP (B)
	ICRP C,<C>
	.$BUILD><C>
	.$BU	&u Oq%
	.$RESETP
	$NEXT (A)
	$P0TYPE (.CMINI)
	IPPRP B,<B>
	.$BUILD,<B>
	.$BU	./ 51#3
	.$RESET5Q
	$TYPE (.CMKEY)5p
	$PDATA (B)
	6$NEXT (A)
	IRP 60C,<C>
	.$BUILD,<C>
	.$BUILD	./ 3q#'
	.$RESET4
	$TYPE (.CMKEY)40
	$PDATA (A)
	4P$NEXT (0)
	IRP 4pB,<B>
	.$BUILD,<B>
	.$BUILD	/>Ky 2	.WTOX.(.OM2)WTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p 1)
.WTOX.(.OM1ILOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV a&
	.$RESETa1
	$TYPE (.CMNOD)aP
	$HELP (<>)
	$apNEXT (A)
IFIDN b<B> <>,< IRP C,b0<C>
			.$BUILD>bP
IFDIF <B> <>,<bp
	$HELP (B)
;	c$FLAGS (CM%PO)
	c0IRP C,<C>
	.$BUILD><C>
	.$B	:}r <1#m
	.$RESET<Q
	$TYPE (.CMNOI)<p
	$PDATA (<POINT= 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR=PP C,<C>
	.$BUILD,<C>
	.$BUI	;-XR 6q#I
	.$RESET7
	$TYPE (.CMNUM)70
	$PDATA (B)
	7P$HELP (<>)
	$NEX7pT (A)
IFIDN <C8> <>,< IRP D,<D80>
			.$BUILD>
I8PFDIF <C> <>,<
	8p$HELP (C)
	IRP 9D,<D>
	.$BUILD><D>
	.$BUILD	>5 CQ$-
	.$RESETCq
	$TYPE (.CMOFI)D
	$NEXT (A)
	$D0HELP (<>)
IFIDN DP<B> <>,< IRP C,Dp<C>
			.$BUILD>E
IFDIF <B> <>,<E0
	$HELP (B)
	IEPRP C,<C>
	.$BUILD><C>
	.$BU	B$ i!@DEFINE .$D	ATA <A>
			.%DATA==1>
			.%DA	B$YP i!XDEFINE .$D	EFM <POINT 7,<A>>
			.%DEFM==1	CYT !)"
DEFINE .$D!IEFR <A>
			.%DEFR==1>
			.%DE	G-} [q%o
	.$RESET\
	$TYPE (.CMQST)\0
	$HELP (<>)
	$\PNEXT (A)
IFIDN \p<B> <>,< IRP C,]<C>
			.$BUILD>]0
IFDIF <B> <>,<]P
	$HELP (B)
	I]pRP C,<C>
	.$BUILD><C>
	.$BU	J.I  0i

	  $CALL1		.RETE			
		LSTO1(F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  |^
	.NVR==0|!			
	.ACM==0			

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

	IFN .A CM,<	
	    IFE <@.ACM-17B<T4>>,<.A`CM==0
				$CALL .SAVET>
	    IFE  <.ACM-377B<.A16>@>,<.ACM==0
				$`CALL .SAVE8>
	    IFE <.ACM-17B<P 4>>,<.ACM==0
			@	$CALL .SAVE4>
	`    IFE <.ACM-7B<P3>>,<.ACM==0
		 		$CALL .SAVE3>
@	    IFE .NVR,<	
	    IFE <.ACM-3B<P2>>,<.ACM==0
 				$CALL .SAVE2>@
	  IFE <.ACM-`1B<P1>>,<.ACM==0
				$CALL .SAVE1 >
	    IFE <.ACM@-1B<.A13>>,<.ACM=`=0
				$CALL .SV13>
	    IFE <.A 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.@ $A4
	  IFNDE$aF ..BSIZ,<PRINTX %?$SET without pre% vious $BUILD>
	 %@ IFNB <B>,<..STR%`0 (..SET,<C>,B,&A)>
	IFB  <B& >,<..STR0 (..SET,&@<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
kQ	XWD b-1,b-1
	kpDEFINE $ETAB <
		b==.-a> <
		O%| 7A
S..A::!79	$CALL .STOP
		L7XSTOF.
		JUMP [XW7xD 'A',[ITEXT (<8B>)]
			EXP %%.MOD]
		LSTON.	M	O= ?Q$
	.$RESET?q
	$TYPE (.CMSWI)@
	$PDATA (A)
	@0$NEXT (0)
	IRP @PB,<B>
	.$BUILD,<B>
	.$BUILD	O= >#y
	.$RESET>1
	$TYPE (.CMSWI)>P
	$PDATA (B)
	>p$NEXT (A)
	IRP ?C,<C>
	.$BUILD,<C>
	.$BUILD	R
@ Z1%[
	.$RESETZQ
	$TYPE (.CMTAD)Zp
	$PDATA (<CM%ID[A!CM%ITM>)
	$NEX[0T (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	T8y%TEXT
	LSTOF.	XC9REF
	JUMP	[XWD 298,0
		 EVL (A)
9X		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESETY
	$TYPE (.CMTAD)Y0
	$PDATA (CM%ITMYP)
	$NEXT (A)
	YpIRP B,<B>
	.$BUILD,<B>
	.$B	R}97 f1&=
	.$RESETfQ
	$TYPE (.CMTOK)fp
	$PDATA (<POINTg 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRgPP C,<C>
	.$BUILD,<C>
	.$BUI	S LYQ


  ..TXKiA(.TQA,C,D,E,IyB)	
      IFN .J9.TXEF,<			
	..TEJRR<$TQ(A,B,C,D,E)>>

C,	S@I9 cI<
	LSTOF.
	X(UQU,Unknown qdualifier)
	X(IQUd(,Invalid qualifiedHr)
	X(IJA,Invalidhd justification aergument)
	X(IWA,e(Invalid width argeHument)
	X(PEA,Prehemature end of arfgument)
	X(JNA,Jf(ustification is nfHot allowed)
	X(AfhNA,Arguments are gnot allowed)
	X(g(ADS,Address must gHbe specified)
	LSTON.
ied)
	L	SN	  )!4DEFINE .$TIYP <A>
			.%TYPE==1>
			.%TYP	W= ^1&
	.$RESET^Q
	$TYPE (.CMUQS)^p
	$HELP (<>)
	$_NEXT (A)
	$PDAT_0A (B)
IFIDN <C_P> <>,< IRP D,<D_p>
			.$BUILD>
I`FDIF <C> <>,<
	`0$HELP (C)
	IRP `PD,<D>
	.$BUILD><D>
	.$BUILD	W\@ M1$q
	.$RESETMQ
	$TYPE (.CMUSR)Mp
	$NEXT (A)
	INRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ 495
IFE %%.O4YTS,<DEFINE $WARN 4x(MSG) <
		$TEXT 5(T%TTY,<% ^W6/[%%58.MOD]/ MSG>)>>
I5XFN %%.OTS,<DEFINE5x $WARN (MSG) <
	6	$TEXT (T%TTY,<% 68^W6/IIB+IB.PRG/ ^6XW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r #),
		IFB	<#IA>,<.WFACD==0
		#h	IFN <0-2>,<.$WAC$D==0>>
		IFNB	<$(A>,<.WFACD==-1
	$H		IFN <0-2>,<.$WA$hCD==.$WACD!<A>>
			IFE <0-2>,<DE%(FINE .$WACD,<<WO.%HACD>B8+[ITEXT (<A>)]>>
		>
<	_$u )T
		IFB	<IA>,<.WFACK==0
		h	IFN <0-2>,<.$WACK==0>>
		IFNB	<(A>,<.WFACK==-1
	H		IFN <0-2>,<.$WAhCK==.$WACK!<A>>
			IFE <0-2>,<DE(FINE .$WACK,<<WO.HACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ 
	j
	IFE	<.W
)FMTY>,<PRINTX ?No
H message type in 
h$WTBLD>
DEFINE .EAWTO(SUFFIX,ARGC(OD),<
IFN .WF'SUHFFIX',<
	IFE	<ARhGCOD-0>,<<WO.'SUF
FIX'>B8+ .$W'SUFF
(IX'>
	IFE	<ARGCO
HD-1>,<<WO.'SUFFIX,('>B8+ [EXP .$W'SU,HFFIX']>
	IFE	<AR,hGCOD-2>,<.$W'SUFF-IX'>
>
>
	ALLW-(TO				
	EXP	0			
		
	EXP	0				_$k 	j
		IFB	<)A>,<.WFFLG==0
		H	IFN <1-2>,<.$WFLhG==0>>
		IFNB	<A>,<.WFFLG==-1
	(		IFN <1-2>,<.$WFHLG==.$WFLG!<A>>
			IFE <1-2>,<DEFINE .$WFLG,<<WO.(FLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W  I
		IFB	< iA>,<.WFJBN==0
		!	IFN <0-2>,<.$WJB!(N==0>>
		IFNB	<!HA>,<.WFJBN==-1
	!h		IFN <0-2>,<.$WJ"BN==.$WJBN!<A>>
			IFE <0-2>,<DE"HFINE .$WJBN,<<WO."hJBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV (iX
		IFB	<)	A>,<.WFMFL==0
		)(	IFN <1-2>,<.$WMF)HL==0>>
		IFNB	<)hA>,<.WFMFL==-1
	*		IFN <1-2>,<.$WM*(FL==.$WMFL!<A>>
			IFE <1-2>,<DE*hFINE .$WMFL,<<WO.+MFL>B8+[ITEXT (<A>)]>>
		>
<	%] 
		IFB	<TY==0
		FN <0-2>,<.$WMTY==0>>
		IFNB	<(A>,<.WFMTY==-1
	H		IFN <0-2>,<.$WMhTY==.$WMTY!<A>>
			IFE <0-2>,<DE(FINE .$WMTY,<<WO.HMTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr i
		IFB	<	A>,<.WFNOD==0
		(	IFN <0-2>,<.$WNOHD==0>>
		IFNB	<hA>,<.WFNOD==-1
			IFN <0-2>,<.$WN(OD==.$WNOD!<A>>
			IFE <0-2>,<DEhFINE .$WNOD,<<WO. NOD>B8+[ITEXT (<A>)]>>
		>
<	_%p -ip.WTOX.(.OM.	WTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU I>
		IFB	<iA>,<.WFOBJ==0
			IFN <0-2>,<.$WOB(J==0>>
		IFNB	<HA>,<.WFOBJ==-1
	h		IFN <0-2>,<.$WOBJ==.$WOBJ!<A>>
			IFE <0-2>,<DEHFINE .$WOBJ,<<WO.hOBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr &	B
		IFB	<&)A>,<.WFOCD==0
		&H	IFN <0-2>,<.$WOC&hD==0>>
		IFNB	<'A>,<.WFOCD==-1
	'(		IFN <0-2>,<.$WO'HCD==.$WOCD!<A>>
			IFE <0-2>,<DE(FINE .$WOCD,<<WO.((OCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ 0).WTOX.(.OM0IWTO,<A>,<B>,<C0h>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ .Iv
.WTOX.(.OM.iWTR,<A>,<B>,<C>,<D>,<E>)<C	&,z 
	DEFINE	
i.EAWTO(SUFFIX),<$+IWT'SUFFIX'	<>>
	ALLWTO				

		_&N i(
		IFB	<	A>,<.WFTXT==0
		(	IFN <2-2>,<.$WTXHT==0>>
		IFNB	<hA>,<.WFTXT==-1
			IFN <2-2>,<.$WT(XT==.$WTXT!<A>>
			IFE <2-2>,<DEhFINE .$WTXT,<<WO.TXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 	
		IFB	<)A>,<.WFTYP==0
		H	IFN <2-2>,<.$WTYhP==0>>
		IFNB	<A>,<.WFTYP==-1
	(		IFN <2-2>,<.$WTHYP==.$WTYP!<A>>
			IFE <2-2>,<DEFINE .$WTYP,<<WO.(TYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP N.
P .JP .bP /P B&@P cGP )0 "0=bPZ6 *q#			

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

	IFN <.%BR+pEA>,<d==d!CM%BR,K> 

	IFN <.%HL,0PM>,<d==d!CM%HP,PP!CM%SDH> 
					,p	

	IFN <.%DEFM->,<d==d!CM%DPP>-0 

c:!	XWD	b,-Pa			

	EXP d	-p			

	EXP .$DAT.A			

IFN <.%HL.0PM!.%DEFM!.%BREA>.P,<
		EXP	.$HLPM>.p		


IFN <.%DE/FM!.%BREA>,<
		E/0XP	.$DEFM>		

/P
IFN <.%BREA>,<	E/pXP	.$BREA>		

	0a==.-c			;LENGT00H OF THE FDB

I0PFN <.%NXT!.%DEFR!0p.%RTN!.%ERTN>,< E1XP .$NXT >	

IF10N <.%DEFR!.%RTN!.1P%ERTN>,<EXP .$RTN1p >	

IFN <.%DEF2R!.%ERTN>,<	EXP	.20$ERTN>	

IFN <.2P%DEFR>,<		EXP	.$D2pEFR>	


	b==.3-c			

	IF2<	P30URGE a,b,c,d>
	LISTb,c,d>$YV"i"POINT7,[ASCIZ\0\]NT7,[A$YY""0YBP
	SALL
	%QXLIST
	DEFINE .$%pTYP <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@"0["P'A i0T 1,)0P $YVP $YYP .-P 5IyP f=P w
P
	   ..AS$a1==-<B>	
	IFDEF% .PSECT,<
	.IFN % ..AS1,ABSOLUTE,<
	     C A,[-..%`AS1]>	
	.IF ..AS&1,ABSOLUTE,<
		.& .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 
N
	A: A

	  ..CX1a==C
	IFDEF .PSECT,<
 	.IFN ..CX 1,ABSOLUTE,<
	  @    CAMA B,[C]`>
	.IF ..CX1,ABSOLUTE,<	
		..CX2 ==0	
	  IFE <..CAX1&^O777777B17>,<`
		..CX2==1	
	    CAIA B,C>
A	  IFE ..CX2,<		
	    CAMA B,[`C]>
	PURGE ..CX1,..CX2>>
	IFNDEF  .PSECT,<
		..CX@2==0	
	  IFE <..`CX1&^O777777B17>, <
		..CX2==1	
	@     CAIA B,C>
	  IFE ..CX2,<		 `
	    CAMA B,[!C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ a"
	..TSIZ (..PST,C)
	.CAS E ..PST,<<
		MOV@EM A,B>,<
		HR`RM A,B>,<
		HRLM A,B>,<
		DP B A,[POINTR (B,C)]>>INTR (B,:<;Y j!V
   DEFINjAE ..CNS2 (NEW,OLDj`)<
	  OLD>			
	..CNS ()>			
	:L;Y hN
   DEFINh!E ..CNS (%%%)<
	[email protected] <%%%>,>
h`
   DEFINE ..CNS2i (NEW,OLD)<
	DEFi INE ..CNS (%%%)<
	  ..CNS2 <%%%>,i`<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ A
	..TSIZ a(..PST,C)
	.CASE ..PST,<<
		MOV E A,B>,<
		HRR@Z A,B>,<
		HLR`Z A,B>,<
		LDB A,[POINTR (B,C)]>>INTR (B,:}i1 O!
|
	A==<<<OA-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ *A
	  ..OP1*a==B
	IFDEF .PSE+CT,<
 	.IFN ..OP+ 1,ABSOLUTE,<
	  +@    C A,[..OP1]+`>
	.IF ..OP1,ABS,OLUTE,<	
		..OP2, ==0	
	  IFE <..O,@P1&^O777777B17>,<,`
		..OP2==1	
	--   CI A,..OP1>
	  IFE ..OP2,<		-@
	    C A,[..O-`P1]>
	PURGE ..OP.1,..OP2>>
	IFNDE. F .PSECT,<
		..O.@P2==0	
	  IFE <..`.OP1&^O777777B17>/,<
		..OP2==1	
/ 	    CI A,..OP1/@>
	  IFE ..OP2,</`		
	    C A,[.0.OP1]>
	PURGE ..OP1,..OP2>GE ..;m b)
	..PST==bIC-FWMASK
	.IF0 bh..PST,<
		POINT c0,B,35>,<
		POINTR (B,C)>POI;| 
		POPAP,
		PURGE .N
		.NVR==.NVR-1
		.NVR==.NVR;\t 
!f
		PUSH P
A,A
		DEFINE .NV
`B<A>
		.NVR==.NVR+1
		.NVR==.;] 'D
	  IFGE '!<<<B>&777777>-..'@BSIZ>,<
		PRINTX'` ?WORD offset gre(ater than $BUILD ( size parameter>
(@	  SET0. (\<B>,C,<A>)
	B>,;LH Ua
	IFNDEF VC,<PRINTX C IS V NOT DEFINED
	  V@A (<B>,D,FWMASKV`)>	
	IFDEF C,<
	IFNDEF %C,<
	W   A (<B>,D,C)W@>	
	IFDEF %C,<
	%C (A,<B>,D,C)>>A,<B>,;LH X!

	..NS==0XA			
	IRP C,<..NX`S=..NS+1>	
	IFE Y..NS,<PRINTX ?EMPY TY STRUCTURE LISTY@, A>
	IFE ..NS-Y`1,<		
	  ..STR0 Z(A,<B>,<C>,D)Z >
	IFG ..NS-1,<	Z@	
	..ICNS			
	.Z`.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 `
	..CNS (<,C,B>).CNS (;LI `A

	IFDIF <`aD><F>,<
	  IFNaB <D>,<
	    Aa  (<B>,D,..MSK)	a@
	    IFNB <F>,a`<PRINTX C AND Eb ARE IN DIFFERENTb  WORDS>>
	  ..MSb@K==0>		
	IFNB <b`F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ c!&

	IFDIF <cAD><F>,<	
	  IFc`NB <D>,<
	    dA (<B>,D,..MSK)d >	
	  ..MSK==0>	d@	
	IFNB <F>,<
d`	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ e!<

	IFDIF <eAD><F>,<	
	  IFe`NB <D>,<
	    IfFNB <F>,<		
		f A1 (B,D,..MSK)>f@ 
	    IFB <F>,f`<		
		A2 (B,Dg,..MSK)>> 
	  ..g MSK==0>		
	IFNB g@<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y i)V
hIF1,<
    PRINTX ? Erri	or in "A"
    DiYEFINE X(NAM,ERR) j)<IFN ..X'NAM&..TXjHEF,<PRINTX ? ERR>jh>
    $TX$ERR>

    $TX$ERR>
;$^ lI


    ..liTXF==0				
    .m.TXB==0				
    m(..TXP==0				
   mH ..TXEG==<..TXEF=mh=0>			
    IRPC nA,<				
	..TXC=n(=ASCII\A\-35		
	IFN ..TXB,<IFN nh..TXB-..TXC,..CNSo(<A>)
		   IFE o(..TXB-..TXC,..TXBoH==0>
	IFE ..TXB,oh<..TXQ(<A>,\..TXpF)>>	
    ..TXC1p(				
    IFN ..TpHXB,<IFN <..TXB-"^ph">,<..TXER(PEA)>>q
    ..TXEF==..Tq(XEF!..TXEG		
   qH IFN ..TXEF,<..TERR<A>>
,<..TE;&( O9{..TXA(.TQCH0)..TXA(.TQC;&) PI..TXER(IQU)..TXER(IQU;&) Oy..TXER(IQU)..TXER(IQU;&0 Nyw..TXA(.TQCHA)..TXA(.TQC;&5 M9k..TXC0(\".CHLFD).TXC0(\".;&5 N9s..TXC0(\".CHVTB).TXC0(\".;&6 Myo..TXC0(\".CHFFD).TXC0(\".;&6 Lyg..TXC0(\".CHCRT).TXC0(\".;&@ v
	..TSIZ !(..PST,C)	
	.CA@SE ..PST,<<
		SE`TZM B>,<	
		HLLZS B>,<	
		HRRZ S B>,<	
	  ..TS@AC (..ACT,B)	
	`  .IF0 ..ACT,<
		$CALL .ZERO	
		 LSTOF.
		JUMP [P@OINTR(B,C)]
		`LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 Ka
v
	IFNDEF L.PSECT,<
	A==0	L 		
	..TSA1==<Z L@B>		
	  IFE ..TSL`A1&^O777777777760M,<A==1> 
	>
	IM FDEF .PSECT,<
	M@A==0			
	..TSA1=M`=<Z B>		
	.IF .N.TSA1,ABSOLUTE,<	N 
	  IFE ..TSA1&^N@O777777777760,<AN`==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= J!
Z
	A==3		JA	
	IFE <B>+1,<J`A=0>	
	IFE <B>-K^O777777,<A==1> K 
	IFE <B>-^O777777B17,<A==2>7;' 0A

   ..TX10a==C			
IFDEF .P1SECT,<
   .IFN .1 .TX1,ABSOLUTE,<
1@	TDA B,[C]>
 2  .IF ..TX1,ABSOL1aUTE,<		
	..TX2==2!0		
	IFE <..TX1&2A^O777777B17>,<
	2`  ..TX2==1		
	  3TRA B,..TX1>
	3 IFE ..TX2,<		
	I3@FE <..TX1&^O777773a7>,<
	  ..TX2==14		
	  TLA B,(.4 .TX1)>>
	IFE ..T4@X2,<		
	  IFE <<4`..TX1>B53-^O77777=7>,< 
	    ..TX3=  (A,B)>>	
	IFE=@ ..TX2,<		
	  TD=`A B,[..TX1]>	
>	PURGE ..TX1,..TX> 2>>
IFNDEF .PSEC>@T,<
	..TX2==0		
	IFE <..TX1&^O77?7777B17>,<
	  ..? TX2==1		
	  TRA?@ B,..TX1>
	IFE ?`..TX2,<		
	IFE <@..TX1&^O777777>,<@ 
	  ..TX2==1		
@@	  TLA B,(..TX1@`)>>
	IFE ..TX2,<A		
	  IFE <<..TXA 1>B53-^O777777>,<A@ 
	    ..TX3 (AA`,B)>>	
	IFE ..TBX2,<		
	  TDA B B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` Ba
(
	IFIDN <CA><Z>,<		
	  ..C TX2==1
	  ANDI C@B,^-..TX1>	
	IFIC`DN <A><O>,<		
	D  ..TX2==1
	D@ORD CMI B,^-..TX1>	
	IFIDN <A><C>,<D`		
	  ..TX2==1
E	  EQVI B,^-..TX1>QVI B,^-..TX;'  Ri


	..TXES	F==0			

IFNDEFS( A,<..TXER(UQU)>SH		
IFDIF <B><>,Sh<IRPC B,<.IFN <TB>,NUMERIC,..TXERT((IWA)>>
IFNB <CTH>,<IFNDEF .TXTJCTh,<..TXER(IJA)>>
UIFDEF  A,<
  IFU(E <A_-^D18>,<IFDUHIF <EFBCD><>Uh,<..TXER(ANA)>>
V  IFE <1-<A_-^D1V(8>>,<IFDIF <BCVHD><>,<..TXER(JNA)Vh>>
  IFE <2-<A_W-^D18>>,<IFIDN <W(EF><>,<..TXER(ADWHS)>>>

      IFWhE ..TXEF,<
	IFIDXN <B><>,<..TXWD=X(=<..TXJU==<..TXFCXH==0>>>
	IFDIF <XhB><>,<
	  IFE <^YD<B>>,<..TXWD==<Y(..TXJU==<..TXFC==YH0>>>
	  IFN <^D<YhB>>,<..TXWD==^D<ZB>
	    IFNB <Z(C>,<..TXJU==.TXTJZHC>
	    IFB  <ZhC>,<..TXJU==.TXTJ[L
	      IFE <A[(-.TQOCT>,<..TXJU=[H=.TXTJR>
	\(    [hIFE <A-.TQDEC>,<\..TXJU==.TXTJR>>
	    IFB  <D>,<\H..TXFC==" ">
	  \h  IFNB <D>,<..TX]FC=="D">>>

	I](FB  <EF>,<..TXP]HT==0>
	IFNB <E]hF>,<..TXPT==1>
	^IFE <..TXWD+..TXP^(T>,<
	    EXP FL^HD(A,TXT.FN)>
	I^hFN <..TXWD+..TXPT_>,<
	    EXP FLD_((A,TXT.FN)+FLD(._H.TXJU,TXT.JU)+FLD_h(..TXWD,TXT.WD)+F`LD(..TXFC,TXT.FC)`(+TXT.AD
	    PNTR(E,F)>>

T;'h )&
    IFE I..TXP,<			
	..IChNS			
	..CNS<ASCIZ\>		
	..TXP==1(>		
    ..CNS<AH>			
    ..TXF==h0			
    ..TXB=="^"
    ..TXB==;'h )2

    IFIN ..TXP,<			
	..hCNS<\>		
	EXP <FLD(.TQCHT,TXT.FN)(+[..GCNS]>>
    ..TXP==0>
    ;'	9 k)`
    ..TXkIEF==..TXEF!..XA	kh	
    ..TXF==0		l		
    ..TXB=="^"
    ..TXB=="^;'
  r	..TXQB(<A>)..TXQB(<;'
( rI

    IFriN ..TXC-"^",<..TXsC0(<A>)>		
    s(IFE ..TXC-"^",<..TXF==1>-"^",<..;'
( si:

    IFt	E ..TXC-"^",<..TXt(C0(<A>)>	
    ItHFN ..TXF,<			
	.th.TXF==0		
	IFDEFu .TQCHA,<		
	  u(  IFDEF ..TQMA,.uH.TQMA 
	    IFNuh <.TQCHA_-^D18>,v<..TXF==2>>>
   v( IFE ..TXF-2,<..TvHXC1(<A>)	
	..ICvhNS			
	..CNS<..TwXA(.TQCHA,>>	
 w(   ..TXEG==..TXEG!..TXEF==..TXEG;'
) wiL
    ..TXx	F==3				
    IFGx(E ..TXC-"0",IFLE xH..TXC-"9",<..TXF=xh=2>
    IFE ..TXyF-2,<..CNS(A)>		y(
    IFE ..TXF-3yH,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'
) z	`
    ..TXz)F==4				
    IFEzH ..TXC-"/",<..TXFzh==5>		
    IFE .{.TXC-"[",<..TXF=={(5>		
    IFE ..T{HXF-4,<..CNS<A,>>{h		
    IFE ..TXF|-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'
* |Iv
    ..TX|iF==4				
    IFE} ..TXC-"/",..TXF=}(=5		
    IFE ..T}HXC-"[",..TXF==5		}h
    IFE ..TXF-5~,<..CNS<,>		
		 ~(..TXQ5<A>>		
  ~H  IFE ..TXF-4,<..~hCNS<A,>		
		 ..TXF==5>	
		 ..;'
* )
    ..TXIF==6				
    IFEh ..TXC-"/",..TXB=="/"		
    IFE .(.TXC-"[",..TXB=="H]"
    IFE ..TXBh-"]",..CNS<[>		
    IFE ..TXB,..TXF==5 ..TXB,..T;'
+ I
    ..TXiF==0			
    IFE ..TXC-"]",..CNS<](>	
    ..CNS<)>	H		
    ..GCNS			h
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  xAD
	.ACV2 (A)
	.ACV2 (d@ yN
	A=.FPAy!C+..NAC		
	IFB <y@B>,<..NAC=..NAC+y`1>
	IFNB <B>,<..NAC=..NAC+B>.d` z!\
	IFG A-zA.NPAC,<PRINTX ?TOz`O MANY ACS USED>
	IFLE A-4,<
	{{  $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z  a$CALL	I%INTA$CALL	I%IN9  H!
L
	..CSN==HAA
	..CSC==0
	IH`RP B,<
	IFE ..CISN-..CSC,<
	  STI OPI
	  ..CAS1 (I@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 R
	..PST==!C-FWMASK
	.IF0 @..PST,<
		SOS B`>,<	
		$CALL .SOS	
		LSTOF.
		J UMP [POINTR(B,C)]
		LSTON.>C} 	)`
	.OPCD==,	.OPCD+1
	WO.A==.OPCD
G),<
		$j6p $lWP %I7p %KqP %h:P %i:P &=p LzP MX<P N
WP N<P P `P &2 G
>
	..IFT==G!A		
	IFE ..IFT,G@<
	B
	..IFT==0G`>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H :
	..PST==!C-FWMASK
	.IF0 @..PST,<
		AOS B`>,<	
		$CALL .AOS	
		LSTOF.
		J UMP [POINTR(B,C)]
		LSTON.>C&tj7Q:?6MiTQ@7;rpz7H:pv7kp=7N8pz;`PB;-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 si k
	IFG	A-MX.PID==A>
C
G	A-OSP OYP O|P OyP O%=H man
	.STKV2 (A)
	.STKV2 O%=I n!|
	IFB <BnA>,<..STKN==..STKNn`+1>
	IFNB <B>,<o..STKN==..STKN+Bo >
	..STKQ==..STKo@N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I p

   IFDEFp! A,<.IF A,SYMBOp@L,<PRINTX STKVAR p`A ALREADY DEFINEqD>>
	DEFINE A<-q ^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  t 
	.TRV2 (A)
	.TRV2 (Sd@ tA*
	.TRV3 (taA,\..NV)	
	IFB u<B>,<..NV=..NV+1u >
	IFNB <B>,<..NV=..NV+B>,<..Sd` ua8
   IFDEFv A,<.IF A,SYMBOv L,<PRINTX TRVAR v@A ALREADY DEFINEDv`>>
	DEFINE A<^OwB(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP _%~ 2i2
		$CALL	3	I%WTO		
		LSTOF.3(			
		JRST	g		
		$WTRST			
	IF3hNB <A>,<$WTMTY (4<A>)>	
	IFNB <4(B>,<$WTTYP (<B>)4H>	
	IFNB <C>,<$4hWTTXT (<C>)>	
	5IFNB <D>,<$WTOBJ5( (<D>)>	
	IFNB 5H<E>,<$WTACK (<E5h>)>	
		IRP F,<6F>		
		$WTBLD			6(
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP