PDP-10 Archive: autopatch/glxmac.unv from bb-l014r-bm_tops20_v6_1_atpch

Trailing-Edge - PDP-10 Archives - bb-l014r-bm_tops20_v6_1_atpch_18 - autopatch/glxmac.unv

There are 92 other files named glxmac.unv in the archive. Click here to see a list.

x
,SD@P C4@ M	4l
	..NAC==M)0		
	IRP A,<
	MH  .ACV1 (A)>		
	.ACV3 (\..NAC)C' w	/8..AS(A,B,ADD,SUB)(A,BC, Y-HLSH A,-^D9LSH A,-^DC2f} \1=u
	.EAWTO(\QMTY,0)
	.EAWTO(T\pYP,2)
	.EAWTO(TX]T,2)
	.EAWTO(OBJ]0,0)
	.EAWTO(ACK,]P0)
	.EAWTO(FLG,1]p)
	.EAWTO(NOD,0)^
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
^P	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' I1\
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ I8
	  IFE iB,<..TA==0>
	  IFN B,<EXP ..TA(
		    PURGE ..TA>
	PURGE ..TE2&i1 )DP
	IFIDN <1E><C>,<EXTERNAL PBMAN,BDEV>
	SIpXBIT	/A/
	XWD	BMAN,BDEV
D	L%L!E-[a

t*9E@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ p	/
	    ..CX(,A,B)   ..CGD sI/
	    ..CX(A,A,B)  ..CGDP qI/


	    ..CX(E,A,B)  ..CGDp r	/
	    ..CX(G,A,B)  ..CGDy  rI/
	    ..CX(GE,A,B) ..CGE@ pI/
	    ..CX(L,A,B)  ..CGEI  q	/
	    ..CX(LE,A,B) ..CGE` s	/
	    ..CX(N,A,B)  ..CGH HQDI

	  LSTGQOF.

	X CRE	
	H1X GEN	
	X PRT	
H	X CLS	
	XqAUT	
	X USW	
	X SPL	Hq
	X SIZ   
	X MIOD	
	X CHN	

	  LSTON.


	G4,m:Q G4-ZQ G4.

zQ G:YlP

G>vC@ Y)eLALL
PAGEy; (A Continued on next page)
SAL8L; (A Continued Xfrom previous page) previous pagGHt;rP GHtkP GHv	P GHv)9P GHv:=P IuQ @IukyP Iv>9Q  I!k7P I!k<P ImP I$P'pIY{P .I  m)6p
	IFNB <mIB>,<..STR0 (.DECRmh0,,<B>,A)>
	IFnB  <B>,<SOS A>  <B>,<SOS A>I6= %I2@
	A==<-1%iB<C>+1B<C-D>> &
	IF1,<IFDEF %A&(,<PRINTX ?A ALRE&HADY DEFINED>>
	D&hEFINE %A (OP,AC,'Y,MSK)<	
	IFDIF '(<Y><>,<
	OP (<AC'H>,B+'Y,MSK)>
	I'hFIDN <Y><>,<
	OP( (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 yI/L..OP(A,B,DIV)..OP(A,BIOH1 >)K|
	IFB <D>I>,<
	XWD	[ASCIZ\>hC\],[XWD B,A]>?
	IFNB <D>,<
	?(XWD	[EXP CM%FW!D?H
		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 FD9
	IF1,<IFF1DEF ERA$,PRINTX FP?Duplicate error Fpcode A>
	ERA$=G=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y

1D-
	ERR	EOF

Q,<End of file>

pERR	IFP,<Illegal 
	RR	FDE,<File dat
	ERR	FN is not on disk>
	ERR	NSD,0<No such device>
	ERR	FCF,<File cpheckpoint failed>
	ERR	SLE,<A sys0tem limit was excPeeded>
	ERR	IFS,p<Illegal file specification>
	ERR0	FNF,<File not foPund>
	ERR	PRT,<Pprotection violation>
	ERR	DNA,<De0vice not availablPe>
	ERR	NCE,<No p"current" entry in list>
	ERR	NMA0,<No IPCF messageP is available>
	pERR	FDS,<Files are on different st0ructures>
	ERR	FPAE,<File already pexists>
	ERR	USE,<Unexpected syst0em error>
	ERR	NPSP,<No such pid>
	ERR	BOL,<Beginning of list reach0ed>
	ERR	EOL,<EnPd of list reachedp>
	ERR	RQF,<Receivers quota full>0
	ERR	SQF,<SendePrs quota full>
	pERR	NRE,<No remembered entry>
	ER0R	TBF,<Table is fPull>
	ERR	EIT,<Tpable entry already exists>
	ERR	I0TE,<Invalid tableP entry>
	ERR	QEFp,<Quota exceeded or disk full>
	E0RR	ARG,<Invalid aPrgument specifiedp>
	ERR	IFN,<Invalid function spec0ified>
	ERR	IJN,P<Invalid job numbper specified>
	ERR	RAD,<Invalid r0adix specified>
P	ERR	NUM,<Invalidp numeric argument>
	ERR	IDT,<Inva0lid date field spPecified>
	ERR	ITpF,<Invalid time field specified>
0	ERR	DOR,<Date/tiPme out of range>
	ERR	DTM,<Value missing in date/t0ime>
	ERR	MDD,<MPissing day in datpe/time>
	ERR	DFZ,<Field zero in d0ate/time>
	ERR	MPDS,<Mnemonic datep/time switch not  implemented>
	ER 0R	DFL,<Field too  Plarge in date/tim pe>
	ERR	ILR,<Ill!egal year format !0in date/time>
	E!PRR	NND,<Negative !pnumber in date/ti"me>
	ERR	NPF,<No"0t known whether p"Past or future in "pdate/time>
	ERR	#RDP,<Relative dat#0e parse required>#P
	ERR	NSW,<Switc#ph does not begin $with slash>
	ERR$0	NOM,<Unrecognize$Pd switch or keywo$prd>
	ERR	NUL,<Nu%ll switch or keyw%0ord given>
	ERR	%PINW,<Invalid guid%pe word>
	ERR	NC,&<Not confirmed>
&0	ERR	ICN,<Invalid&P character in num&pber>
	ERR	NQS,<I'nvalid quoted str'0ing - does not be'Pgin with quote>
'p	ERR	AMB,<Ambiguo(us switch or keyw(0ord>
	ERR	NMT,<D(Poes not match tok(pen>
	ERR	CMA,<Co)mma not given>
	)0ERR	NNC,<Node nam)Pe may not exceed )p6 characters>
	E*RR	INT,<Node term*0inator "::" must *Pbe specified>
	E*pRR	NSN,<Unknown n+ode name>
	ERR	I+0PS,<Invalid path +Pspecification>
	+pERR	IUS,<Invalid ,user specificatio,0n>
	ERR	DGS,<Dev,Pice name may not ,pexceed 6 characte-rs>
	ERR	DNE,<Un-0known device>
	E-PRR	DIO,<Device ca-pn not do input or. output>
	ERR	BD.0F,<Invalid date/t.Pime format>
	ERR.p	ABS,<Field too l/ong for internal /0buffer>
	ERR	TMT/P,<Command too lon/pg for internal bu0ffer>
	ERR	BDS,<00Invalid default s0Ptring>
	ERR	BTF,0p<Invalid table fo1rmat>
	ERR	TME,<10Date/time must be1P in the future>
1p	ERR	TMN,<No time2r entry has expir20ed>
	ERR	TMA,<Ti2Pmer entry already2p exists>
	ERR	DV3T,<Device termina30tor ":" must be s3Ppecified>
	ERR	N3pCI,<Argument bloc4k may not be in t40he ACs>
	ERR	TLU4P,<Terminal locati4pon is unknown>
	5ERR	FIO,<File is 50offline>
	ERR	FB5PM,<File being mod5pified>
	ERR	WLK,6<Write-locked dev60ice>
	ERR	CSD,<C6Pannot supersede a6p directory>
	ERR7	CDD,<Cannot dele70te a non-empty di7Prectory>
	ERR	SN7pF,<Sub-file direc8tory not found>
80	ERR	ESL,<Search 8Plist is empty>
	8pERR	LVL,<SFD leve9l nested deeper t90han the maximum a9Pllowed>
	ERR	CCW9p,<Cannot create/w:rite on any struc:0ture in search li:Pst>
	ERR	FCU,<Ca:pnnot update file>;
	ERR	ENQ,<File ;0has outstanding E;Pnqueue lockes set;p>
	ERR	SWS,<Soft<ware write-lock o<0n structure>
	ER<PR	DER,<Hardware d<pevice error>
	ER=R	DTE,<Hard data =0error>
	ERR	BKT,=P<Block too large>=p
	ERR	IPP,<Non-e>xistant UFD>
	ER>0R	TRN,<RIB or tra>Pnsmission error>
	ERR	ILC,<Illega?l character in da?0te/time>
	ERR	NF?PT,<Date/time must?p be in the future@>
	ERR	NPS,<Date@0/time must be in @Pthe past>
	ERR	U@pDM,<Unrecognized Amonth in date/timA0e>
	ERR	UDN,<UnrAPecognized name inAp date/time>
	ERRB	IFA,<Illegal filB0e attribute>
	ERBPR	FAI,<File attriBpbute inconsistancCy>
	ERR	CEI,<CanC0't enable/disableCP interrupt systemCp>
	ERR	ENF,<LinkDed list entry notD0 found>
	ERR	NSLDP,<No such linked Dplist>
	ERR	NFP,<ENo free pages>
	E0ERR	NPI,<No free EPpages 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` a9
	IFIDN <BC><>,<EXP <A> >
	IFDIF <BC><@>,<
	 IFE <A+1>`,<<POINT 7,C>>
	 IFN <A+1>,<
	    IFIDN <C><>,<@EXP <A,B>>
	  ` IFDIF <C><>,<EXP <A,B,C>>
	>>A,B,C>>
	>Kc  )KIRP A,<
9	IF2,<IFNDEF A,<EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP  Mv
P Mv=8P MuI7Q xMvN8P'Mn:=p MF:=P M$pQ"P M$tP'M$t:P M$t:P M$t;P M$t<RP M$ty7P M$u6Q @M$uI7Q xM$u[rP M$v

ZP M$v:=P M$v<P M$v\{P M2  ])-j<<<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|  y)YIRP A,<
	IF2,<IFDEF A,<.8IFN A,EXTERN,<INXTERN A>>
	     xIFNDEF A,<EXTERN A>
	Q SUPPRESPA>>YSUPPRO3FX7P [Qf@ +QfI@ <StLQ St\Yp Stkp SuZp Suh1Q SulQ Su}:p Sv
1p Sv

Sp Sv>9Q Sv>@p SNn y	/H..OP(A,B,IDIV).OP(A,BS7-N x	/@..OP(A,B,IMUL).OP(A,BS:  j)6X
	IFNB <jIB>,<..STR0 (.INCRjh0,,<B>,A)>
	IFkB  <B>,<AOS A>  <B>,<AOS A>S;k _i-~<<<A>B<POS(<B>)>>&<B>>S;!kP S;!k<P S? 	1X
	TXO A,<B>
	TXO A,S@,9QQ @S@,9QP S@,9RP `S@,9VP S@,9XP$S@,9YQ S@,9YQ  S@,9[P"[email protected]Q S@t,:P'S@t9QQ @S@t9QP S@t9RP `S@t9VP S@t9XP$S@t9YQ S@t9YQ  S@t9[P"S@t:P S@u-xQ  S@u[XQ xS@v

tQ @S@v,:P S@v,rQ S@v<Q S@v<Q S@v<Q xS@v<:P'~S@v=Q  S@vMQ SBd+@&SBn	@&SBn
@&SBn
@&	SBn@&	SBn@&
SBn

@&
SB2P SB)iP&	SB)iP&SB)kVP&SB)kYP'SB)lXP&
SB)lsP&
SB)lxP&	SB)lyP&SPuxzQ @SR/
	LSTOF.	aXCREF
	..TEXT<A>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ >Ds

	  LSTIqOF.

	X JNO,.JIJJNO,<-1,,GJBJNO>	J0
	X TNO,.JITNO,<JP-1,,GJBTTY>	
	X JpUSR,.JIUNO,.GTPPNK		
	X CDN,.JIDNOK0,<-1,,GJBPTH>	
	KPX PRG,.JIPNM,.GTPKpRG		
	X0CJN,.JICLPJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.GLPTOBI		
	X JLT,.JLpISTM,.GTJLT		
	XM LOC,<-1,,GJBLOC>M0,<-1,,GJBLOC> 
	MPX RTM,.JIRT,<-1,,MpGJBRTM>	
	X TLC,N<-1,,GJBTLC>,<-1,N0,GJBTLC>	
	  LSTON.


	  LSTU +,U +(U  +$Up +U~` +"U$t(:P U$t9P U$t:WP U$u+P U$u+WP U$uKqP U$uX<P U$uZ7P U$v

SP U$v-PNU$vKP	U$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
	IFB <C@)>,<
	XWD	[ASCIZ\@HB\],A>
	IFNB <@hC>,<
	XWD	[EXP ACM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 8A-@

	  LST8aOF. XCREF

	CDO9	OTSINI			
	CDO	9     			
	CDO	.ZP9@AGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD:O	.SAVE1
	CDO	.S: AVE2
	CDO	.SAVE3:@
	CDO	.SAVE4
	C:`DO	.SAVET
	CDO	.;SV13
	CDO	.SV14
	CDO	.SV15
	CDO;@	.SV16
	CDO	.RET;`T
	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%S@`PID
	CDO	C%MAXP
	CDO	C%PIDJ
	CDA O
	CDO
	CDO
	CA@DO
	CDO

	CDO	A`      			
	CDO	FB%IOPN
	CDO	F%AOPB N
	CDO	F%OOPN
	B@CDO	F%IBYT
	CDO	B`F%OBYT
	CDO	F%IBCUF
	CDO	F%OBUF
C 	CDO	F%REL
	CDO	C@F%DREL
	CDO	F%RRC`EL
	CDO	F%REW
	DCDO	F%POS
	CDO	FD %CHKP
	CDO	F%INFD@O
	CDO	F%FD
	CDD`O	F%REN
	CDO	F%DEEL
	CDO	F%FCHN
E 	CDO
	CDO
	CDO
	CDO
	CDO
	CDOE`
	CDO
	CDO
	CDFO

	CDO	      	F 		
	CDO	M%ACQP
F@	CDO	M%RELP
	CDOF`	M%IPSN
	CDO	M%NGXPG
	CDO	M%IPRC
	CDO	M%IPRM
	CDG@O	M%AQNP
	CDO	M%G`RLNP
	CDO	M%CLNCH
	CDO	M%FPGS
	CH DO	M%GMEM
	CDO	MH@%RMEM
	CDO
	CDOH`
	CDO
	CDO
	CDIO
	CDO
	CDO	M%GI PAG
	CDO	M%RPAG
	CDO
	CDO
	CDOI`
	CDO
	CDO
	CDJO
	CDO
	CDO

J 	CDO	      			
	J@CDO	T%TEXT
	CDO	J`T%TTY
	CDO
	CDOK
	CDO
	CDO
	CDK O
	CDO
	CDO
	CK@DO
	CDO
	CDO
K`
	CDO	      			
L	CDO	L%CLST
	CDOL 	L%DLST
	CDO	L%CL@ENT
	CDO	L%CBFR
	CDO	L%DENT
	CDMO	L%NEXT
	CDO	L%M FIRS
	CDO	L%LASTM@
	CDO	L%PREV
	CM`DO	L%PREM
	CDO	LN%CURR
	CDO	L%RENN T
	CDO	L%SIZE
	N@CDO	L%APOS
	CDO
	CDO
	CDO
	CDOO
	CDO
	CDO
	CDO O
	CDO

	CDO		O@	
	CDO	I%NOW
	CO`DO	I%EXIT
	CDO	IP%ION
	CDO	I%IOFFP 
	CDO	I%SLP
	CDP@O	I%INT1
	CDO	I%P`INT2
	CDO	I%INT3Q
	CDO	I%TIMR
	CQ DO
	CDO
	CDO	I%Q@SOPR
	CDO	I%WTO
	CDO
	CDO	I%HOSRT
	CDO	I%JINF
	R CDO
	CDO

	CDOR@			
	CDO
	CDO	SR`%DATI
	CDO	S%SIXSB
	CDO	S%CMND
	S CDO	S%TBLK
	CDO	S@S%SCMP
	CDO	S%ERS`R
	CDO	S%INTR
	TCDO	S%EXIT
	CDO	T S%TBAD
	CDO	S%TBT@DL
	CDO	S%NUMI
T`

	CDO	K%RCOC		U	
	CDO	K%WCOC
	U CDO	K%SUET
	CDO	U@K%STYP
	CDO	K%TXU`TI
	CDO	K%SOUT
V	CDO	K%BOUT
	CDOV 	K%BIN
	CDO	K%BAV@CK
	CDO	K%TPOS
V`	CDO	K%BUFF
	CDOW	K%FLSH
	CDO	K%OW PEN
	CDO
	CDO
W@	CDO
	CDO
	CDO
	CDO
	CDO
	CDOX
	CDO
	  LSTON.
  
	  LSTON.Y>

@ ci6$
	IFNB <d	C>,<..STR0 (..LDBd(,A,C,B)>
	IFBdH  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG )s
	IFNDEF 9LSTIN.,LSTIN.==0	X	
IFE LSTIN.,<
x	IFIDN <XCREF><A>,<.XCREF>	
		  8 XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G y)}
	IFG LSTIN.,LSTIN.==LSTIN8.-1	
	IFLE LSTINX.,<.CREF		
		      LIST>
		   [3@ _)-z<<<1_<A>>-1>B<B>>_<A>>[8@ ^)-r1B<<A>-1>-1B<B><<A>-1>[@ 4+,
	IFB <B4!>,<MAXSIZ==0
		I4@RP A,<IFG <A-MA4`XSIZ>,<MAXSIZ==A5>>>
	IFNB <B>,<5 B==0
		IRP A,<5@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 [n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 6+@
	IFB <B6!>,<MINSIZ==3777776@,,777777
		IRP 6`A,<IFG <MINSIZ-A7>,<MINSIZ==A>>>
	IFNB <B>,<B==7@377777,,777777
	7`	IRP A,<IFG <B-8A>,<B==A>>>
A>,<B==A>>>
[>!`^i-v<A-<A/B>*B><A-<A/B[>w@&
   ..MX1`I==B			
IFDEF .P`hSECT,<
   .IFN .a.MX1,ABSOLUTE,<
a(	MOVE A,[B]>
 aH  .IF ..MX1,ABSOLahUTE,<
	..MX2==0	b	
	IFE <..MX1>B5b(3,<
	bH..MX2==1
	  MOVEI A,..MXbh1>	
	IFE ..MX2,<c		
	IFE <..MX1>Bc(17,<
	  ..MX2==1cH
	  MOVSI A,(..chMX1)>>	
	IFE ..MdX2,<		
	IFE <<..d(MX1>B53-^O777777>dH,<
	  ..MX2==1
dh	  HRROI A,<..MXe1>>>	
	IFE ..MX2e(,<		
	IFE <<..MXeH1>B17-^O777777B17eh>,<
	f..MX2==1
	  HRLOI A,(..Mf(X1-^O777777)>> 
fH	IFE ..MX2,<		
	fh  MOVE A,[..MX1]g>	
	>>

IFNDEFg( .PSECT,<
	..MX2gH==0		
	IFE <..MXgh1>B53,<
	  ..MX2h==1
	  MOVEI A,h(..MX1>	
	IFE ..MhHX2,<		
	IFE <..MhhX1>B17,<
	  ..MXi2==1
	  MOVSI Ai(,(..MX1)>>	
	IFEiH ..MX2,<		
	IFE ih<<..MX1>B53-^O777j777>,<
	  ..MX2=j(=1
	  HRROI A,<jH..MX1>>>	
	IFE .jh.MX2,<		
	IFE <<k..MX1>B17-^O77777k(7B17>,<
	  ..MX2kH==1
	  HRLOI A,kh(..MX1-^O777777)>l> 
	IFE ..MX2,<	l(	
	  MOVE A,[..lHMX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= (I2V
	A==C	(i	
	IF1,<IFDEF %)A,<PRINTX ?A ALR)(EADY DEFINED>>
	)HDEFINE %A (OP,AC)h,Y,MSK)<	
	IFDIF* <Y><>,<
	OP (<A*(C>,B+'Y,MSK)>
	*HIFIDN <Y><>,<
	O*hP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg xI/D..OP(A,B,MUL)..OP(A,B[`v
2P [b6<P F] Q)3IF2,<IFDEF1 A,<A==A>> IFNDEF A,<A==B>]F@ G@TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= UE_

	X	.OT=QRDR,Reader
	X	.OIQTNCU,Network-ContU9roller
	X	.OTLPTTy,Printer
	X	.OTBV9AT,Batch-Stream
VX	X	.OTCDP,Card-PuVxnch
	X	.OTPTP,PaWpertape
	X	.OTPLW8T,Plotter
	X	.OTWXJOB,Job
	X	.OTTRWxM,Terminal
	X	.OXTOPR,Operator
	XX8	.OTIBM,<IBM RemoXXte>
	X	.OTMNT,<DXxevice>
	X	.OTFTSY,<File Transfer>
	X	.OTBIN,<Card YXReader InterpreteYxr>
	X	.OTRET,<FiZle Retrieval>
	XZ8	.OTNOT,<RetrievaZXl Notification>
Zx	X	.OTDBM,<DBMS S[ystem>
	X	.OTFAL[8,<File Access Lis[Xtener>
	X	.OTSNA[x,<SNA Workstation>
 Workstation_Sh6 e	F( [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 e)F_

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

  f	 IFNB <D>,<..XX=f9..XX!CM%HPP> 
  fX IFNB <E>,<..XX=fx..XX!CM%DPP> 

g	EXP ..XX		

  g8 IFNB <C>,<EXP gXC>
   IFB <C>,<gxEXP 0>

   IFNBh <D>,<POINT 7,[Ah8SCIZ \D\]>
   IhXFB <D>,<0>

ihx IFNB <E>,<POINTi 7,[ASCIZ \E\]>
iXIFB <E>,<0>



   IFB <Iix>,<0>
   IFNB <jI>,<EXP I>

  j8 IFB <J>,<0>
  jX IFNB <J>,<EXP jxJ>

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

   kXIFB <G>,<0>
   kxIFNB <G>,<EXP G>

G>,<EXP Ga XA-DLSH A,^D9LSH A,^D9a+= 5a;&  61;;
	 IFB  <6QB>,<..STR0(..PNT6p,,<FWMASK>,A)>
7	 IFNB <B>,<..ST70R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm \I-f<POINT WID\i(B),A,POS(B)>B),A,POS(B)>a?H6 +a? Z9-S<^L<<A>&<-<A>>>><<A>&<aJ}Ks  !+

	SALL	 A			
	LSTOF. XCRE `F			

	%%.GLX==!%%.GLX			


	I! FNB <A>,<%%.MOD=!@=SIXBIT/A/> 
	I!`FNB <B>,<%%.OTS="=SIXBIT/B/> 

" 	GLOB	I%INIT			
"@
	TOPS10	<			
	"`	SEARCH	UUOSYM		
		%%UUOS==%%UUOS# 		
	>				

	TO#@PS20	<			
		SEAR#`CH	MONSYM		
;		%$%MONS==%%MONS		
$ 	>				

	IFB <$@B>,<			
		.TEXT	$`|,REL:GLXLIB/SEAR%CH/REQUIRE:I%INIT% |
		DEFINE	$DATA%@ (NAM,SIZ<1>),< 
			NAM:	BLOCK	SI&Z
		>			
		DEFI& NE	CDO (X),<GLOB &@X> 
		LIBVEC			
	>				

	IFNB '<B>,<IFDIF <B><' INI>,< 
		IFN GL'@XPURE,<.PSECT .HI'`GH.> 
		IFE GLXP(URE,<		
			TWOSE( G	400000	
			REL(@OC	0	
			RELOC	4(`00000	
		>			
)
		DEFINE $DATA(N) AM,SIZ<1>),< 
		)@	IFN GLXPURE,<.PS)`ECT DATA> 
			IF*E GLXPURE,<RELOC>*  
			IFNDEF B%D*@,<B%D::! B%DL==*`:0>
			NAM:	BLOC+K	SIZ
			B%DL==+ :B%DL+SIZ 
			I+@FN GLXPURE,<.ENDP+`S DATA> 
			IFE ,GLXPURE,<RELOC> 
		>			

		IFDI,@F <B><OTS>,<	
	,`		DEFINE	CDO (X),-<GLOB X> 
			LIB- VEC		
		>			

-@	>>				

	IFNB -`<B>,<IFIDN <B><.INI>,< 
		DEFINE. 	$DATA (NAM,SIZ<1.@>),< 
			NAM:	BL.`OCK	SIZ
		>			
/	>>				

	LSTON/ .				

	GLOB	<./@POPJ, .RETT, .RET/`F>	
	OPDEF	$RET	0[POPJ	P,]	
	OPDE0 F	$RETT	[PJRST	.R0@ETT]	
	OPDEF	$RE0`TF	[PJRST	.RETF]	1
	OPDEF	$RETIT	[1 JUMPT	.POPJ]	
	O1@PDEF	$RETIF	[JUMP1`F	.POPJ]	
	.NODD2T	$RET,$RETT,$RET2 F,$RETIT,$RETIF
$RETIT,$RETIF
aPtP aPtkP aPuTP aPv\rP e"luP'ePv8vP ePv9VP ePv;P fDP fHP gkp gk9p glp glp gltp gl}p g"@ i8.
	IFN <<.	.TA>&B>,<PRINTX( ?Initial field nHot zero in $SET>
	..TVAL==<C>
	(..TMSK==<B>
	  ..TA==..TA!H<FLD(..TVAL,..TMShK)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@{	GXC.SWIT+PDBCPY##C.SWIT+PDBg$tkQ^@g$uP'g$uh6Q  g.N	@ 6@g.N
.SPID	(S^)P.QSR,.IPCPQ,.SPQ^HSR,QUASAR)	
.SPI^hD	(SP.OPR,.IPCPO,_.SPOPR,ORION)	
.h(SPID	(SP.INF,.IPCHPI,.SPINF,INFO)	
.SPID	(SP.MDA,.I`PCPM,.SPMDA,MDA)	`(
TOPS10<
.SPID	`H(SP.IPC,.IPCPS,,I`hPCC)		
.SPID	(SPa.ACT,.IPCPA,,ACTDa(AE)		
.SPID	(SP.aHTLP,.IPCPT,,TAPLAahB)		
.SPID	(SP.TbOL,.IPCPC,,TAPAVRb()		
.SPID	(SP.DObHL,.IPCPD,,DSKAVR)bh		
.SPID	(SP.FILc,.IPCPF,,FILDAE)		
>
,FILDAE)	gR^h9 @i4
	..STKR=A	=10		
	RADIX 8
A(	..STKN==0
	IRP AHA,<
	  .STKV1 (AhA)>
	$CALL	.STKBST
	 ..STKN,,..SB(TKN
	RADIX ..STKBHR
	PURGE ..STKN,Bh..STKR,..STKQ
   TKR,..STKQ
  gR~)  g	6>
	IFNB <g)C>,<..STR0 (..DPBgH,A,C,B)>
	IFBgh  <C>,<MOVEM A,B>>,<MOVEM A,gV wI/<..AS(A,B,SUB,ADD)(A,Bgg

V 2a+
	IFNB <3B>,<TOPS10<A==B3 >>
	IFNB <C>,<T3@OPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( C1LIFN FTUUOS,

-J8Q-`a

-ii?4H CqLIFN FTJSYS,

.\yQ-_a

tTiD A9x

  IFNBa	<A>,<.TQCHA==^D<B>B17+ZZ>
  I FNB 	<D>,<DEFINE@ ..TQMA<D>>
  `IFNB	<C>,<.TQC==^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, A9h
	LSTOF.
	TQ(T,2,ASCIZ)			
	TQ(O,2,OCTAL) 			
	TQ(D,2,DECI@MAL)			
	TQ(F,2,`FILE)			
	TQ(7,2,CSEVEN)			
	TQ( 6,2,CSIXBIT)			
@	TQ(W,2,SIXBIT)		`	
	TQ(5,2,SVNBIT)			
	TQ(P,2,USE R)			
	TQ(U,2,DI@RECTORY)			
	TQ(`H,2,DAYTIME)			
	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		@	
	TQ(I,1,INDIRE`CT)		
	TQ(M,0,CR,..TXC0(\".CHCRT) )	
	TQ(J,0,LF,..@TXC0(\".CHLFD))	
	TQ(L,0,FF,..TXC0(\".CHFFD))	
	T Q(K,0,VT,..TXC0(\@".CHVTB))	
	TQ(A`,0,NOCRLF,..TXA(.TQCHA))	
	TQ(0,0 ,NULL,..TXA(.TQCH@0))	
	TQ(3,0,STR`ING,..TXER(IQU))	
	TQ(V,2,VERSION )			
	TQ(2,0,CAR@ET,..TXER(IQU))	
	TQ(Q,2,POINTER)			
	TQ(B,2,ROB) 			
	TQ(1,2,OBJE@CT)			
	TQ(N,2,N`ODE)			
	TQ(R,2,JIB)			
	LSTON.
)			
	LSTON. =qE!
	LSTOF.
	X(33,TTY33,33,)O1				
	X(35,TTY35Oq,35,)				
TOPS20OQ<
	X(37,TTY37,37P,)				
	X(EXECUPP8ORT,EXEC,EXE,)			PX
>
TOPS10<
	X(PxLA120,LA120,L12,)Q			
>
	X(LA36,LQ8A36,L36,)			
	X(QXVT05,VT05,V05,<37Qx,177,177,177>)	
R	X(VT100,VT100,10R80,<.CHESC,"[","K"RX>)	
	X(VT50,VT50Rx,V50,<.CHESC,"J">S)		
	X(VT52,VT52S8,V52,<.CHESC,"J">SX)		
TOPS10<	X(VTSx61,VT61,V61,<.CHETSC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ G)4H
	..TRR==GI10		
	RADIX 8
	Gh..NV==1			
	IRP HA,<
	  .TRV1 (H(A)>		
	$CALL	.TRHHSET		
	 ..NV-1,,Hh..NV-1
	RADIX ..ITRR		
	PURGE ..TRR,..NVURGE ..Tib I1
		..TX(C,A,<B>)..TX(Cib 	1
		..TX(CA,A,<B>).TX(CibP 	1
		..TX(CE,A,<B>).TX(Cib` I1


		..TX(CN,A,<B>).TX(Cibp 
I0T
		..TX(N,A,<B>)..TX(Nibt

	0`
		..TX(NA,A,<B>).TX(NibtP 	0X
		..TX(NE,A,<B>).TX(Nibu` I0\
		..TX(NN,A,<B>).TX(Nibx

I0d
		..TX(O,A,<B>)..TX(Oib| 	0p
		..TX(OA,A,<B>).TX(Oib|P 
		..TX(OE,A,<B>).TX(Oib}` 
		..TX(ON,A,<B>).TX(Oic!h2Q ic!i0Q ic!iQP ic!iWQ `ic!j6Q ic!jZQ ic!k Q `ic!kPQ @ic!lQ  ic!lQ |ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP'ic!lyP ic!lyQ ic!mrQ pic!nQ icP I0t
		..TX(Z,A,<B>)..TX(ZicT 	1
		..TX(ZA,A,<B>).TX(ZicTP 	0x
		..TX(ZE,A,<B>).TX(ZicU` I0|
		..TX(ZN,A,<B>).TX(Zm:7 1))
	IFG  <QAMAN-ADEV>,<AEDpT==:AMAN>
	IFLE <AMAN-ADEV>,<AEDT==:ADEV>
mKc@ Q)/BYTE (3)AqWHO (9)AVER (6)AMIN (18)AEDTo&  Yy-O<^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 NQDu
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +

q+= +
q6~i4 C q? 	1`
	TXC A,<B>
	TXC A,q@ 9)EIFB <C>,<YA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up p)7
	IFNB <pIB>,<..STR1 (..TQZph,,<B>,A,..STR4)q>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z :	K`
	.$RESET:)
	$TYPE (.CMACT):H
	$HELP (<>)
	$:hNEXT (A)
IFIDN ;<B> <>,< IRP C,;(<C>
			.$BUILD>;H
IFDIF <B> <>,<;h
	$HELP (B)
	I<RP C,<C>
	.$BUILD><C>
	.$BU	0 q@+
.WTOX.(.OMACK,<A>,<B>,<C0>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 vaG8DEFINE .$RwTN <A>
			.%RTN==1A>
			.%RTN	fI9 qaGDEFINE .$LrST <A+1>
			.%LST==11>
			.%L	
=Z ti7.
	  IFG u	A-INT.LV,<PRINTX u(?Level A interruuHpts not supporteduh>
	  .BGINT.(\A)   .BGINT.(\A	X5 tG"DEFINE .$Bt!REA <A>
			.%BREA==1>
			.%BR	- wI7L
	  IFDEFwi ..BSIZ,<PRINTX ?xMissing $EOB aftex(r a $BUILD>
	  .xH.BSIZ==0			
	  .xh.BLOC==.			
	  RyEPEAT A,<			
		y(BLD0.(\..BSIZ,0)	yH
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 $iJ,
	.$RESET%	
	$TYPE (.CMCMA)%(
	$NEXT (A)
	I%HRP B,<B>
	.$BUILD,<B>
	.$BU	I@ !)J
	.$RESET!I
	$TYPE (.CMCFM)!h
	IRP A,<A>
	.$BUILD,<A>
		$^ +	Jh
	.$RESET+)
	$TYPE (.CMTXT)+H
	$HELP (<>)
	$+hNEXT (A)
IFIDN ,<B> <>,< IRP C,,(<C>
			.$BUILD>,H
IFDIF <B> <>,<,h
	$HELP (B)
	I-RP C,<C>
	.$BUILD><C>
	.$BU	I  -IJt
	.$RESET-i
	$TYPE (.CMTAD).
	$PDATA (CM%IDA.()
	$NEXT (A)
	.HIRP B,<B>
	.$BUILD,<B>
	.$B	,,U vi78
	  $RET	w				;WILL INVOKE RIGHT ROUTINE
		,h: pGDEFINE .$Dp!EFM <POINT 7,[ASCp@IZ\A\]>
			.%DEFM==1>
			.%DE	.` )iJT
	.$RESET*	
	$TYPE (.CMDEV)*(
	$NEXT (A)
	I*HRP B,<B>
	.$BUILD,<B>
	.$BU	Lz: iI
	.$RESET	
	$TYPE (.CMNUX)(
	$PDATA (B)
	H$HELP (<>)
	$NEXhT (A)
IFIDN <C> <>,< IRP D,<D(>
			.$BUILD>
IHFDIF <C> <>,<
	h$HELP (C)
	IRP D,<D>
	.$BUILD><D>
	.$BUILD	N  ")J
	.$RESET"I
	$TYPE (.CMDIR)"h
	$NEXT (A)
	I#RP B,<B>
	.$BUILD,<B>
	.$BU	|  ~I8
	  IFNDE~iF ..BSIZ,<PRINTX ?$EOB without pre(vious $BUILD>
	 H IFN <.-..BLOC>,<hPRINTX ?Address change between $BU(ILD and $EOB>
	 H LSTOF.			
	  ..hT==0
	  REPEAT ..BSIZ,<
	    BLD(0.(\..T,1)		
	  H  ..T==..T+1 >
	h  PURGE ..BSIZ,..T,..BLOC	
	  LSTON.
		
	  LST	+y s!GDEFINE .$EsARTN <A>
			.%ERTN==1>
			.%ER	, taG(DEFINE .$EuRTN <1B0+A+1>
			.%ERTN==1>
		- uAG2DEFINE .$EuaRTN <[MOVEI S2,[AvSCIZ\A\]
				  v     $RETF]>
			.%ERTN==1>
			.	H6 A8L
	$CALL	.aSTOP
	LSTOF.
	J	UMP	[XWD 0,[ITEXT	  (<A>)]
		 EXP 	@%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ iJ
	.$RESET	
	$TYPE (.CMFLD)(
	$NEXT (A)
	$HHELP (<>)
IFIDN h<B> <>,< IRP C, <C>
			.$BUILD> (
IFDIF <B> <>,< H
	$HELP (B)
	I hRP C,<C>
	.$BUILD><C>
	.$BU	MI  )Ir
	.$RESETI
	$TYPE (.CMFIL)h
	$HELP (<>)
	$NEXT (A)
IFIDN (<B> <>,< IRP C,H<C>
			.$BUILD>h
IFDIF <B> <>,<
	$HELP (B)
	I(RP C,<C>
	.$BUILD><C>
	.$BU	dy m!FlDEFINE .$FmALGS <A>
			.%FLGS==1>
			.%FL	ex: ')JJ
	.$RESET'I
	$TYPE (.CMFLT)'h
	$HELP (<>)
	$(NEXT (A)
IFIDN ((<B> <>,< IRP C,(H<C>
			.$BUILD>(h
IFDIF <B> <>,<)
	$HELP (B)
	I)(RP C,<C>
	.$BUILD><C>
	.$BU	$ Q8@K8
	  INTERN A
	  $DATA(A,<B>)
	ATA(AL\891	"
	IFDIF <oA> <>,<
DEFINE o .$HLPM <POINT 7,[o@ASCIZ\A\]>
			.%HLPM==1>
			.	&5 )IJ
	.$RESETI
	$TYPE (.CMIFI)h
	$HELP (<>)
	$NEXT (A)
IFIDN (<B> <>,< IRP C,H<C>
			.$BUILD>h
IFDIF <B> <>,<
	$HELP (B)
	I(RP C,<C>
	.$BUILD><C>
	.$BU	&u &	J6
	.$RESET&)
	$NEXT (A)
	$&HTYPE (.CMINI)
	I&hRP B,<B>
	.$BUILD,<B>
	.$BU	./ IHd
	.$RESETi
	$TYPE (.CMKEY)


	$PDATA (B)

($NEXT (A)
	IRP

HC,<C>
	.$BUILD,<C>
	.$BUILD	./ 
	HX
	.$RESET
)
	$TYPE (.CMKEY)
H
	$PDATA (A)
	
h$NEXT (0)
	IRP B,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDQ@?.WTOX.(.OMqWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p q@9.WTOX.(.OMLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV 7)KL
	.$RESET7I
	$TYPE (.CMNOD)7h
	$HELP (<>)
	$8NEXT (A)
IFIDN 8(<B> <>,< IRP C,8H<C>
			.$BUILD>8h
IFDIF <B> <>,<9
	$HELP (B)
;	9($FLAGS (CM%PO)
	9HIRP C,<C>
	.$BUILD><C>
	.$B	:}r II
	.$RESETi
	$TYPE (.CMNOI)
	$PDATA (<POINT( 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRhP C,<C>
	.$BUILD,<C>
	.$BUI	;-XR 
	.$RESET
	$TYPE (.CMNUM)
	$PDATA (B)
	HELP (<>)
	$NEXT (A)
IFIDN <C(> <>,< IRP D,<DH>
			.$BUILD>
IhFDIF <C> <>,<
	$HELP (C)
	IRP (D,<D>
	.$BUILD><D>
	.$BUILD	>5 iI^
	.$RESET	
	$TYPE (.CMOFI)(
	$NEXT (A)
	$HHELP (<>)
IFIDN h<B> <>,< IRP C,<C>
			.$BUILD>(
IFDIF <B> <>,<H
	$HELP (B)
	IhRP C,<C>
	.$BUILD><C>
	.$BU	B$ nFrDEFINE .$Dn!ATA <A>
			.%DATA==1>
			.%DA	B$YP qG
DEFINE .$Dq!EFM <POINT 7,<A>>
			.%DEFM==1	CYT wAG>DEFINE .$DwaEFR <A>
			.%DEFR==1>
			.%DE	G-} 2	K 
	.$RESET2)
	$TYPE (.CMQST)2H
	$HELP (<>)
	$2hNEXT (A)
IFIDN 3<B> <>,< IRP C,3(<C>
			.$BUILD>3H
IFDIF <B> <>,<3h
	$HELP (B)
	I4RP C,<C>
	.$BUILD><C>
	.$BU	J.I  187
	  $CALLQ	.RETE			
		LSTOpF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  QI6

	.NVR==0Qi			
	.ACM==0			

	IRP A,<		
	R(	..TSAC(.ACB,A)	RH	
		IFN .ACB,<.ARhCM==.ACM!1B<A>>	S
		IFE .ACB,<			S(
		IFE .NVR,<			SH
		    CAIA			
Sh		    LSTOF.
		 T   JRST b>
		  T(..PUSH(A,\<.NVR+TH1>)>>	

	IFN .AThCM,<	
	    IFE <U.ACM-17B<T4>>,<.AU(CM==0
				$CALL UH.SAVET>
	    IFEUh <.ACM-377B<.A16>V>,<.ACM==0
				$V(CALL .SAVE8>
	  VH  IFE <.ACM-17B<PVh4>>,<.ACM==0
			W	$CALL .SAVE4>
	W(    IFE <.ACM-7B<WHP3>>,<.ACM==0
		Wh		$CALL .SAVE3>
X	    IFE .NVR,<	
	    IFE <.ACM-3XHB<P2>>,<.ACM==0
Xh				$CALL .SAVE2>Y
	YH  IFE <.ACM-Y(1B<P1>>,<.ACM==0
				$CALL .SAVE1Yh>
	    IFE <.ACMZ-1B<.A13>>,<.ACM=Z(=0
				$CALL .SVZH13>
	    IFE <.AZhCM-1B<.A14>>,<.AC[M==0
				$CALL .[(SV14>
	    IFE <[H.ACM-1B<.A15>>,<.[hACM==0
				$CALL\ .SV15>
	    IFE\( <.ACM-1B<.A16>>,\H<.ACM==0
				$CA\hLL .SV16>
	    >]>

	IFN .ACM,<	](
	    IFE .NVR,<]H			
		CAIA			
	]h	LSTOF.
		JRST ^b>

	    .ACB==^(0			
	REPEAT ^D1^H6,<			
	    IFN ^h<.ACM&1B<.ACB>>,<_	
		..PUSH(\.ACB_(,\<.NVR+1>)>
		._HACB==.ACB+1>>		
_h
	IFN .NVR,<	
	`    PUSH P,[[CAIA`(		
		     AOS -.`HNVR(P)	
	    REP`hEAT .NVR,<..POP(\a.NVR)>	
		     Pa(OPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ z	7`
	  IFNDEz)F ..BSIZ,<PRINTX zH?$SET without prezhvious $BUILD>
	 { IFNB <B>,<..STR{(0 (..SET,<C>,B,{HA)>
	IFB  <B{h>,<..STR0 (..SET,|<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
Ai	XWD b-1,b-1
	BDEFINE $ETAB <
		b==.-a> <
		O%|

a8n
S..A::!STOP
		LF.
		JUMP'[XWEXT (<
			EXP %%.MOD]
		LSTON.	M	O= iI6
	.$RESET	
	$TYPE (.CMSWI)(
	$PDATA (A)
	H$NEXT (0)
	IRP hB,<B>
	.$BUILD,<B>
	.$BUILD	O= )I*
	.$RESETI
	$TYPE (.CMSWI)h
	$PDATA (B)
	$NEXT (A)
	IRP (C,<C>
	.$BUILD,<C>
	.$BUILD	R

@ 0IK


	.$RESET0i
	$TYPE (.CMTAD)1
	$PDATA (<CM%ID1(A!CM%ITM>)
	$NEX1HT (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	TA%TEXT
	LSTOF.	XC`REF
	JUMP	[XWD 2,0
		 EVL (A)
		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESET/)
	$TYPE (.CMTAD)/H
	$PDATA (CM%ITM/h)
	$NEXT (A)
	0IRP B,<B>
	.$BUILD,<B>
	.$B	R}97 <IKn
	.$RESET<i
	$TYPE (.CMTOK)=
	$PDATA (<POINT=( 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR=hP C,<C>
	.$BUILD,<C>
	.$BUI	S "!9~


  ..TX!1A(.TQA,C,D,E,AB)	
      IFN . .TXEF,<			
	..TEaRR<$TQ(A,B,C,D,E)>>

C,	S@I9 9;i
	LSTOF.
	X(UQU,Unknown q9Pualifier)
	X(IQU9p,Invalid qualifie:r)
	X(IJA,Invali:0d justification a:Prgument)
	X(IWA,:pInvalid width arg;ument)
	X(PEA,Pr;0emature end of ar;Pgument)
	X(JNA,J;pustification is n<ot allowed)
	X(A<0NA,Arguments are <Pnot allowed)
	X(<pADS,Address must =be specified)
	LSTON.
ied)
	L	SN	  lAFfDEFINE .$TlaYP <A>
			.%TYPE==1>
			.%TYP	W= 4IK6
	.$RESET4i
	$TYPE (.CMUQS)5
	$HELP (<>)
	$5(NEXT (A)
	$PDAT5HA (B)
IFIDN <C5h> <>,< IRP D,<D6>
			.$BUILD>
I6(FDIF <C> <>,<
	6H$HELP (C)
	IRP 6hD,<D>
	.$BUILD><D>
	.$BUILD	W\@ #IJ"
	.$RESET#i
	$TYPE (.CMUSR)$
	$NEXT (A)
	I$(RP B,<B>
	.$BUILD,<B>
	.$BU	^+@ 
8b
IFE %%.O
!TS,<DEFINE $WARN 
@(MSG) <
		$TEXT 
`(T%TTY,<% ^W6/[%%.MOD]/ MSG>)>>
I FN %%.OTS,<DEFINE@ $WARN (MSG) <
	`	$TEXT (T%TTY,<%

^W6/IIB+IB.PRG/ ^

 W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r xq?Y
		IFB	<yA>,<.WFACD==0
		y0	IFN <0-2>,<.$WACyPD==0>>
		IFNB	<ypA>,<.WFACD==-1
	z		IFN <0-2>,<.$WAz0CD==.$WACD!<A>>
			IFE <0-2>,<DEzpFINE .$WACD,<<WO.{ACD>B8+[ITEXT (<A>)]>>
		>
<	_$u mq?
		IFB	<nA>,<.WFACK==0
		n0	IFN <0-2>,<.$WACnPK==0>>
		IFNB	<npA>,<.WFACK==-1
	o		IFN <0-2>,<.$WAo0CK==.$WACK!<A>>
			IFE <0-2>,<DEopFINE .$WACK,<<WO.pACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ _Q@
	IFE	<.W_qFMTY>,<PRINTX ?No` message type in `0$WTBLD>
DEFINE .`PEAWTO(SUFFIX,ARGC`pOD),<
IFN .WF'SUaFFIX',<
	IFE	<ARa0GCOD-0>,<<WO.'SUFaPFIX'>B8+ .$W'SUFFapIX'>
	IFE	<ARGCObD-1>,<<WO.'SUFFIXp'>B8+ [EXP .$W'SUFFIX']>
	IFE	<AR0GCOD-2>,<.$W'SUFFPIX'>
>
>
	ALLWpTO				
	EXP	0			
		
	EXP	0				_$k pQ?
		IFB	<pqA>,<.WFFLG==0
		q	IFN <1-2>,<.$WFLq0G==0>>
		IFNB	<qPA>,<.WFFLG==-1
	qp		IFN <1-2>,<.$WFrLG==.$WFLG!<A>>
			IFE <1-2>,<DErPFINE .$WFLG,<<WO.rpFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W v?C
		IFB	<v1A>,<.WFJBN==0
		vP	IFN <0-2>,<.$WJBvpN==0>>
		IFNB	<wA>,<.WFJBN==-1
	w0		IFN <0-2>,<.$WJwPBN==.$WJBN!<A>>
			IFE <0-2>,<DExFINE .$WJBN,<<WO.x0JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV ~1@
		IFB	<~QA>,<.WFMFL==0
		~p	IFN <1-2>,<.$WMFL==0>>
		IFNB	<0A>,<.WFMFL==-1
	P		IFN <1-2>,<.$WMpFL==.$WMFL!<A>>
			IFE <1-2>,<DE0FINE .$WMFL,<<WO.PMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] bq>)
		IFB	<cA>,<.WFMTY==0
		c0	IFN <0-2>,<.$WMTcPY==0>>
		IFNB	<cpA>,<.WFMTY==-1
	d		IFN <0-2>,<.$WMd0TY==.$WMTY!<A>>
			IFE <0-2>,<DEdpFINE .$WMTY,<<WO.eMTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr s1?-
		IFB	<sQA>,<.WFNOD==0
		sp	IFN <0-2>,<.$WNOtD==0>>
		IFNB	<t0A>,<.WFNOD==-1
	tP		IFN <0-2>,<.$WNtpOD==.$WNOD!<A>>
			IFE <0-2>,<DEu0FINE .$WNOD,<<WO.uPNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p 1@.WTOX.(.OMQWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU k>k
		IFB	<k1A>,<.WFOBJ==0
		kP	IFN <0-2>,<.$WOBkpJ==0>>
		IFNB	<lA>,<.WFOBJ==-1
	l0		IFN <0-2>,<.$WOlPBJ==.$WOBJ!<A>>
			IFE <0-2>,<DEmFINE .$WOBJ,<<WO.m0OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr {Q?o
		IFB	<{qA>,<.WFOCD==0
		|	IFN <0-2>,<.$WOC|0D==0>>
		IFNB	<|PA>,<.WFOCD==-1
	|p		IFN <0-2>,<.$WO}CD==.$WOCD!<A>>
			IFE <0-2>,<DE}PFINE .$WOCD,<<WO.}pOCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ q@3.WTOX.(.OMWTO,<A>,<B>,<C0>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ @#
.WTOX.(.OM1WTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z bQ@	
	DEFINE	b1.EAWTO(SUFFIX),<$WT'SUFFIX'	<>>
	ALLWTO				

		_&N h1>U
		IFB	<hQA>,<.WFTXT==0
		hp	IFN <2-2>,<.$WTXiT==0>>
		IFNB	<i0A>,<.WFTXT==-1
	iP		IFN <2-2>,<.$WTipXT==.$WTXT!<A>>
			IFE <2-2>,<DEj0FINE .$WTXT,<<WO.jPTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 eQ>?
		IFB	<eqA>,<.WFTYP==0
		f	IFN <2-2>,<.$WTYf0P==0>>
		IFNB	<fPA>,<.WFTYP==-1
	fp		IFN <2-2>,<.$WTgYP==.$WTYP!<A>>
			IFE <2-2>,<DEgPFINE .$WTYP,<<WO.gpTYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P .
P .JP .bP /P B&@P cGP )0 GP0-MO2| Z6 	HL			

	d)==<FLD(.$TYP,CM%FHNC)>!.$FLGS!<.$LShT> 

	IFN <.%BREA>,<d==d!CM%BR(K> 

	IFN <.%HLHPM>,<d==d!CM%HPhP!CM%SDH> 
						

	IFN <.%DEFM(>,<d==d!CM%DPP>H 

c:!	XWD	b,ha			

	EXP d				

	EXP .$DAT(A			

IFN <.%HLHPM!.%DEFM!.%BREA>h,<
		EXP	.$HLPM>		


IFN <.%DE(FM!.%BREA>,<
		EHXP	.$DEFM>		

h
IFN <.%BREA>,<	EXP	.$BREA>		

	(a==.-c			;LENGTHH OF THE FDB

IhFN <.%NXT!.%DEFR!.%RTN!.%ERTN>,< E(XP .$NXT >	

IFHN <.%DEFR!.%RTN!.h%ERTN>,<EXP .$RTN >	

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

IFN <.h%DEFR>,<		EXP	.$D	EFR>	


	b==.	(-c			

	IF2<	P	HURGE a,b,c,d>
	LISTb,c,d>$YVRyGHPOINT7,[ASCIZ\0\]NT 7,[A$YY GT0[O6X7.- GN0)7MS.[y5Iy GD0MJhrf= GJ0+1MJm9w
	SALL
	{iXLIST
	DEFINE .$|TYP <0>
	.%TYPE=|(=0
	DEFINE .$FLG|HS <0>
	.%FLGS==0|h
	DEFINE .$DATA }<0>
	.%DATA==0
}(	DEFINE .$HLPM <>}H
	.%HLPM==0
	DE}hFINE .$DEFM <0>
~	.%DEFM==0
	DEFI~(NE .$LST <0>
	.%~HLST==0
	DEFINE .~h$BREA <0>
	.%BREA==0
	DEFINE .$N(XT <0>
	.%NXT==0H
	DEFINE .$ERTN h<0>
	.%ERTN==0
	DEFINE .$RTN <0>(
	.%RTN==0
	DEFHINE .$DEFR <0>
	.%DEFR==0<0>
	K@GR0YgO6I;'DK0TP1,w
	   ..ASz)1==-<B>	
	IFDEFzH .PSECT,<
	.IFN zh..AS1,ABSOLUTE,<
	     C A,[-..{(AS1]>	
	.IF ..AS{H1,ABSOLUTE,<
		.{h.AS2==0	
	  IFE |<..AS1&^O777777B1|(7>,<
		..AS2==1	|H
	    DI A,..A|hS1>
	  IFE ..AS2},<
	    ..OP(A,}(B,C)>	
	PURGE }H..AS1,..AS2>>
	I}hFNDEF .PSECT,<
	~	..AS2==0	
	  IF~(E <..AS1&^O777777~HB17>,<
		..AS2==~h1	
	    DI A,..AS1>
	  IFE ..A(S2,<		
	    ..OPH(A,B,C)>
	PURGE ..AS1,..AS2>:h 1z
	A: m	/4
	  ..CX1m)==C
	IFDEF .PSEmHCT,<
 	.IFN ..CXmh1,ABSOLUTE,<
	  n    CAMA B,[C]n(>
	.IF ..CX1,ABSnIOLUTE,<	
		..CX2nh==0	
	  IFE <..Co	X1&^O777777B17>,<o(
		..CX2==1	
	 oH   CAIA B,C>
oh	  IFE ..CX2,<		
	    CAMA B,[t(C]>
	PURGE ..CX1tH,..CX2>>
	IFNDEFth .PSECT,<
		..CXu2==0	
	  IFE <..u(CX1&^O777777B17>,uH<
		..CX2==1	
	uh    CAIA B,C>
	  IFE ..CX2,<		v(
	    CAMA B,[vHC]>
	PURGE ..CX1,..CX2>GE ..CX:&@ h)6N
	..TSIZ hI(..PST,C)
	.CAShhE ..PST,<<
		MOViEM A,B>,<
		HRi(RM A,B>,<
		HRiHLM A,B>,<
		DPihB A,[POINTR (B,C)]>>INTR (B,:<;Y ?i4
   DEFIN@	E ..CNS2 (NEW,OLD@()<
	  OLD>			
	..CNS ()>			
	:L;Y =I3z
   DEFIN=iE ..CNS (%%%)<
	>..CNS2 <%%%>,>
>(
   DEFINE ..CNS2>H (NEW,OLD)<
	DEF>hINE ..CNS (%%%)<
	  ..CNS2 <%%%>,?(<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ e	64
	..TSIZ e)(..PST,C)
	.CASeHE ..PST,<<
		MOVehE A,B>,<
		HRRfZ A,B>,<
		HLRf(Z A,B>,<
		LDBfH A,[POINTR (B,C)]>>INTR (B,:}i1 $i2(
	A==<<<%	-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 	0,
	  ..OP1)==B
	IFDEF .PSEHCT,<
 	.IFN ..OPh1,ABSOLUTE,<
	      C A,[..OP1](>
	.IF ..OP1,ABSHOLUTE,<	
		..OP2h==0	
	  IFE <..OP1&^O777777B17>,<(
		..OP2==1	
	H   CI A,..OP1>
	  IFE ..OP2,<		
	    C A,[..O(P1]>
	PURGE ..OPH1,..OP2>>
	IFNDEhF .PSECT,<
		..OP2==0	
	  IFE <.(.OP1&^O777777B17>H,<
		..OP2==1	
h	    CI A,..OP1>
	  IFE ..OP2,<(		
	    C A,[.H.OP1]>
	PURGE ..OP1,..OP2>GE ..;m 7q;E
	..PST==8C-FWMASK
	.IF0 80..PST,<
		POINT 8P0,B,35>,<
		POINTR (B,C)>POI;| bi6
		POP P,c	.NVA
		PURGE .Nc(VA
		.NVR==.NVR-1
		.NVR==.NVR;\t ai6
		PUSH Pb	,A
		DEFINE .NVb(B<A>
		.NVR==.NVR+1
		.NVR==.;] |I7p
	  IFGE |i<<<B>&777777>-..}BSIZ>,<
		PRINTX}( ?WORD offset gre}Hater than $BUILD }hsize parameter>
~	  SET0. (\<B>,C,<A>)
	B>,;LH +)2j
	IFNDEF +IC,<PRINTX C IS +hNOT DEFINED
	  ,A (<B>,D,FWMASK,()>	
	IFDEF C,<
	IFNDEF %C,<
	,h  A (<B>,D,C)->	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH -i3(

	..NS==0.				
	IRP C,<..N.(S=..NS+1>	
	IFE .H..NS,<PRINTX ?EMP.hTY STRUCTURE LIST/, A>
	IFE ..NS-/(1,<		
	  ..STR0 /H(A,<B>,<C>,D)/h>
	IFG ..NS-1,<	0	
	..ICNS			
	.0(.CNS (<E (A,<B0H>,,>) 
	IRP C,<0h		
	  IFNDEF C,1<PRINTX C NOT DE1(FINED>
	  IFDEF 1HC,<
	  IFNDEF %1hC,<
	  ..CNS (<2,C,D>)>	
	  IF2(DEF %C,<
	  %C2H (..STR2,,D,C)>2h 
	  ..CNS (<)>)3		
	  ..GCNS		
3(	  ..ICNS		
	  .3H.CNS (<E (A,<B3h>>) 
	  IFNDEF %4C,<
	  ..CNS (<4(,C,D>)>	
	  IF4HDEF %C,<
	  %C4h (..STR2,,D,C)>5>> 
	..CNS (<,,)>)		
	..GCNS>);LI 5I3,
	..CNS (<,C,B>).CNS (;LI 6	3B


	IFDIF <6)D><F>,<
	  IFN6HB <D>,<
	    A6h (<B>,D,..MSK)	7
	    IFNB <F>,7(<PRINTX C AND E7H ARE IN DIFFERENT7h WORDS>>
	  ..MS8K==0>		
	IFNB <8(F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ 8i3R


	IFDIF <9	D><F>,<	
	  IF9(NB <D>,<
	    9HA (<B>,D,..MSK)9h>	
	  ..MSK==0>	:	
	IFNB <F>,<
:(	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ :i3h


	IFDIF <;	D><F>,<	
	  IF;(NB <D>,<
	    I;HFNB <F>,<		
		;hA1 (B,D,..MSK)>< 
	    IFB <F>,<(<		
		A2 (B,D<H,..MSK)>> 
	  ..<hMSK==0>		
	IFNB =<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y >q<
>IF1,<
    PRINTX ? Err>Qor in "A"
    D?!EFINE X(NAM,ERR) ?q<IFN ..X'NAM&..TX@EF,<PRINTX ? ERR>@0>
    $TX$ERR>

    $TX$ERR>
;$^ B<9

    ..B1TXF==0				
    .BP.TXB==0				
    Bp..TXP==0				
   C ..TXEG==<..TXEF=C0=0>			
    IRPC CPA,<				
	..TXC=Cp=ASCII\A\-35		
	IFN ..TXB,<IFN D0..TXB-..TXC,..CNSDP(<A>)
		   IFE Dp..TXB-..TXC,..TXBE==0>
	IFE ..TXB,E0<..TXQ(<A>,\..TXEPF)>>	
    ..TXC1Ep				
    IFN ..TFXB,<IFN <..TXB-"^F0">,<..TXER(PEA)>>FP
    ..TXEF==..TFpXEF!..TXEG		
   G IFN ..TXEF,<..TERR<A>>
,<..TE;&( %:(..TXA(.TQCH0)..TXA(.TQC;&) &:1..TXER(IQU)..TXER(IQU;&) %A:,..TXER(IQU)..TXER(IQU;&0 $A:$..TXA(.TQCHA)..TXA(.TQC;&5 #:..TXC0(\".CHLFD).TXC0(\".;&5 $: ..TXC0(\".CHVTB).TXC0(\".;&6 #A:..TXC0(\".CHFFD).TXC0(\".;&6 "A:..TXC0(\".CHCRT).TXC0(\".;&@ qI7"
	..TSIZ qi(..PST,C)	
	.CArSE ..PST,<<
		SEr(TZM B>,<	
		HLLrHZS B>,<	
		HRRZrhS B>,<	
	  ..TSsAC (..ACT,B)	
	s(  .IF0 ..ACT,<
	sH	$CALL .ZERO	
		shLSTOF.
		JUMP [PtOINTR(B,C)]
		t(LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 !)2"
	IFNDEF !I.PSECT,<
	A==0	!h		
	..TSA1==<Z "B>		
	  IFE ..TS"(A1&^O777777777760"H,<A==1> 
	>
	I"hFDEF .PSECT,<
	#A==0			
	..TSA1=#(=<Z B>		
	.IF .#H.TSA1,ABSOLUTE,<	#h
	  IFE ..TSA1&^$O777777777760,<A$(==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= i2
	A==3		 		
	IFE <B>+1,< (A=0>	
	IFE <B>- H^O777777,<A==1>  h
	IFE <B>-^O777777B17,<A==2>7;' 	1>
   ..TX1)==C			
IFDEF .PHSECT,<
   .IFN .h.TX1,ABSOLUTE,<
	TDA B,[C]>
 H  .IF ..TX1,ABSOL)UTE,<		
	..TX2==i0		
	IFE <..TX1&	^O777777B17>,<
	(  ..TX2==1		
	  HTRA B,..TX1>
	hIFE ..TX2,<		
	I	FE <..TX1&^O77777	)7>,<
	  ..TX2==1	I		
	  TLA B,(.	h.TX1)>>
	IFE ..T
X2,<		
	  IFE <<
(..TX1>B53-^O77777I7>,< 
	    ..TX3h (A,B)>>	
	IFE ..TX2,<		
	  TD(A B,[..TX1]>	
H	PURGE ..TX1,..TXh2>>
IFNDEF .PSECT,<
	..TX2==0		
	IFE <..TX1&^O77H7777B17>,<
	  ..hTX2==1		
	  TRA B,..TX1>
	IFE (..TX2,<		
	IFE <H..TX1&^O777777>,<h
	  ..TX2==1		
	  TLA B,(..TX1()>>
	IFE ..TX2,<H		
	  IFE <<..TXh1>B53-^O777777>,< 
	    ..TX3 (A(,B)>>	
	IFE ..THX2,<		
	  TDA hB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` )1T
	IFIDN <IA><Z>,<		
	  ..hTX2==1
	  ANDI B,^-..TX1>	
	IFI(DN <A><O>,<		
	H  ..TX2==1
	ORhCMI B,^-..TX1>	
	IFIDN <A><C>,<(		
	  ..TX2==1
H	  EQVI B,^-..TX1>QVI B,^-..TX;'  (1;/



	..TXE(QF==0			

IFNDEF(p A,<..TXER(UQU)>)		
IFDIF <B><>,)0<IRPC B,<.IFN <)PB>,NUMERIC,..TXER)p(IWA)>>
IFNB <C*>,<IFNDEF .TXTJC*0,<..TXER(IJA)>>
*PIFDEF  A,<
  IF*pE <A_-^D18>,<IFD+IF <EFBCD><>+0,<..TXER(ANA)>>
+P  IFE <1-<A_-^D1+p8>>,<IFDIF <BC,D><>,<..TXER(JNA),0>>
  IFE <2-<A_,P-^D18>>,<IFIDN <,pEF><>,<..TXER(AD-S)>>>

      IF-0E ..TXEF,<
	IFID-PN <B><>,<..TXWD=-p=<..TXJU==<..TXFC.==0>>>
	IFDIF <.0B><>,<
	  IFE <^.PD<B>>,<..TXWD==<.p..TXJU==<..TXFC==/0>>>
	  IFN <^D</0B>>,<..TXWD==^D</PB>
	    IFNB </pC>,<..TXJU==.TXTJ0C>
	    IFB  <00C>,<..TXJU==.TXTJ0PL
	      IFE <A0p-.TQOCT>,<..TXJU=1=.TXTJR>
	1p    10IFE <A-.TQDEC>,<1P..TXJU==.TXTJR>>
	    IFB  <D>,<2..TXFC==" ">
	  20  IFNB <D>,<..TX2PFC=="D">>>

	I2pFB  <EF>,<..TXP3T==0>
	IFNB <E30F>,<..TXPT==1>
	3PIFE <..TXWD+..TXP3pT>,<
	    EXP FL4D(A,TXT.FN)>
	I40FN <..TXWD+..TXPT4P>,<
	    EXP FLD4p(A,TXT.FN)+FLD(.5.TXJU,TXT.JU)+FLD50(..TXWD,TXT.WD)+F5PLD(..TXFC,TXT.FC)5p+TXT.AD
	    PNTR(E,F)>>

T;'h Xq=S
    IFE Y..TXP,<			
	..ICY0NS			
	..CNS<ASCYPIZ\>		
	..TXP==1Yp>		
    ..CNS<AZ>			
    ..TXF==Z00			
    ..TXB=="^"
    ..TXB==;'h Zq=_

    IF[N ..TXP,<			
	..[0CNS<\>		
	EXP <F[PLD(.TQCHT,TXT.FN)[p+[..GCNS]>>
    ..TXP==0>
;'	9 @q<
    ..TXAEF==..TXEF!..XA	A0	
    ..TXF==0		AP		
    ..TXB=="^"
    ..TXB=="^;'

  GQ<=..TXQB(<A>)..TXQB(<;'

( H<G

    IFH1N ..TXC-"^",<..TXHPC0(<A>)>		
    HpIFE ..TXC-"^",<..TXF==1>-"^",<..;'

( I1<g

    IFIQE ..TXC-"^",<..TXIpC0(<A>)>	
    IJFN ..TXF,<			
	.J0.TXF==0		
	IFDEFJP .TQCHA,<		
	  Jp  IFDEF ..TQMA,.K.TQMA 
	    IFNK0 <.TQCHA_-^D18>,KP<..TXF==2>>>
   Kp IFE ..TXF-2,<..TLXC1(<A>)	
	..ICL0NS			
	..CNS<..TLPXA(.TQCHA,>>	
 Lp   ..TXEG==..TXEG!..TXEF==..TXEG;'

) M1<y
    ..TXMQF==3				
    IFGMpE ..TXC-"0",IFLE N..TXC-"9",<..TXF=N0=2>
    IFE ..TXNPF-2,<..CNS(A)>		Np
    IFE ..TXF-3O,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

)OQ=
    ..TXOqF==4				
    IFEP ..TXC-"/",<..TXFP0==5>		
    IFE .PP.TXC-"[",<..TXF==Pp5>		
    IFE ..TQXF-4,<..CNS<A,>>Q0		
    IFE ..TXFQP-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* R=#
    ..TXR1F==4				
    IFERP ..TXC-"/",..TXF=Rp=5		
    IFE ..TSXC-"[",..TXF==5		S0
    IFE ..TXF-5SP,<..CNS<,>		
		 Sp..TXQ5<A>>		
  T  IFE ..TXF-4,<..T0CNS<A,>		
		 ..TXF==5>	
		 ..;'

* Tq=5
    ..TXUF==6				
    IFEU0 ..TXC-"/",..TXB=UP="/"		
    IFE .Up.TXC-"[",..TXB=="V]"
    IFE ..TXBV0-"]",..CNS<[>		
VP    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ W=C
    ..TXW1F==0			
    IFE WP..TXC-"]",..CNS<]Wp>	
    ..CNS<)>	X		
    ..GCNS			X0
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  N	4p
	.ACV2 (A)
	.ACV2 (d@ NI4z
	A=.FPANiC+..NAC		
	IFB <OB>,<..NAC=..NAC+O(1>
	IFNB <B>,<..NAC=..NAC+B>.d` Oi5
	IFG A-P	.NPAC,<PRINTX ?TOP(O MANY ACS USED>
	IFLE A-4,<
	QPh $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z v)72$CALL	I%INTA$CALL	I%IN9  i1x
	..CSN==	A
	..CSC==0
	I(RP B,<
	IFE ..CHSN-..CSC,<
	  SThOPI
	  ..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 nI6~
	..PST==niC-FWMASK
	.IF0 o..PST,<
		SOS Bo(>,<	
		$CALL .SOoHS	
		LSTOF.
		JohUMP [POINTR(B,C)]
		LSTON.>C} ^q@
	.OPCD==Q.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 I1j
	..IFT==iA		
	IFE ..IFT,<
	B
	..IFT==0(>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H kI6f
	..PST==kiC-FWMASK
	.IF0 l..PST,<
		AOS Bl(>,<	
		$CALL .AOlHS	
		LSTOF.
		JlhUMP [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 c)F 
	IFG	A-d	MX.PID,<MX.PID==A>
C
G	A-OSP OYP O|P OyP O%=H C)4
	.STKV2 (A)
	.STKV2 O%=I Ci4(
	IFB <BD	>,<..STKN==..STKND(+1>
	IFNB <B>,<DH..STKN==..STKN+BDh>
	..STKQ==..STKEN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I EI46
   IFDEFEi A,<.IF A,SYMBOFL,<PRINTX STKVAR F(A ALREADY DEFINEFHD>>
	DEFINE A<-Fh^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

: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

: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  II4L
	.TRV2 (A)
	.TRV2 (Sd@ J	4V
	.TRV3 (J)A,\..NV)	
	IFB JH<B>,<..NV=..NV+1Jh>
	IFNB <B>,<..NV=..NV+B>,<..Sd` K)4d
   IFDEFKI A,<.IF A,SYMBOKhL,<PRINTX TRVAR LA ALREADY DEFINEDL(>>
	DEFINE A<^OLHB(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP _%~ 1@_
		$CALL	QI%WTO		
		LSTOF.p			
		JRST	g		
		$WTRST			
	IF	0NB <A>,<$WTMTY (	P<A>)>	
	IFNB <	pB>,<$WTTYP (<B>)
>	
	IFNB <C>,<$
0WTTXT (<C>)>	
	
PIFNB <D>,<$WTOBJ
p (<D>)>	
	IFNB <E>,<$WTACK (<E0>)>	
		IRP F,<PF>		
		$WTBLD			p
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP