Google
 
Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_1_19910112 - 5-galaxy/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,5B@P C4@ Gt=
	..NAC==G00		
	IRP A,<
	GP  .ACV1 (A)>		
	.ACV3.(\..NAC)C'S)(A,BC, V8}E
	.EAWTO(VXMTY,0)
	.EAWTO(TVxYP,2)
	.EAWTO(TXWT,2)
	.EAWTO(OBJW8,0)
	.EAWTO(ACK,WX0)
	.EAWTO(FLG,1Wx)
	.EAWTO(NOD,0)X
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
XX	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' Pq-
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ |Pwk
	  IFE |pB,<..TA==0>
	  }IFN B,<EXP ..TA}0
		    PURGE ..TA>
	PURGE ..TE2&i1 
	IFIDN><<EXTERNAL 
	SIIT	/A/
	XWD	BMAN,BDEV
D	

Ea-	E@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ 
	Pnm..CX(,A,B)   ..CGD 
	Pn]..CX(A,A,B)  ..CGDP 
	na..CX(E,A,B)  ..CGDp 
	Pne..CX(G,A,B)  ..CGDy  
	PnU..CX(GE,A,B) ..CGE@ 
	nY..CX(L,A,B)  ..CGEI  
	ni..CX(LE,A,B) ..CGE` 
	    ..CX(N,A,B)  ..CGH BY

	  LSTAYOF.

	X CRE	
	B9X GEN	
	X PRT	
B	X CLS	
	XyAUT	
	X USW	
	X SPL	By
	X SIZ   
	X MCOD	
	X CHN	

	  LSTON.


	G4,m:Q G4-ZQ G4.

zQ G:YlP 

G>vC@ALL
PAGE(AtContinued o
SAL;o(ArContinuedge) 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  g0vA
	IFNB <gPB>,<..STR0 (.DECRgp0,,<B>,A)>
	IFhB  <B>,<SOS A>  <B>,<SOS A>I6= Pr
	A==<-1pB<C>+1B<C-D>>  
	IF1,<IFDEF %A 0,<PRINTX ?A ALRE PADY DEFINED>>
	D pEFINE %A (OP,AC,!Y,MSK)<	
	IFDIF !0<Y><>,<
	OP (<AC!P>,B+'Y,MSK)>
	I!pFIDN <Y><>,<
	OP"(<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7:Z
	IFB <D:)>,<
	XWD	[ASCIZ\:HC\],[XWD B,A]>:h
	IFNB <D>,<
	;XWD	[EXP CM%FW!D;(
		ASCIZ\C\],[XWD B,A]>
,[XKH(Q P 3KJ

,bPBKJ)bPb  KJ=P +KJ{P 	KJIBP !KJ=bP (KJIP &KJZ"P 0KJX"P KJ9P &KJ$\BP *KJ$kP KJ$nBP KJ$|bP KJ%bP KJ%h"P KJ%i"P KJ%|BP KJ&I"P +KJ&K"P KJ&mP #KJ-P 

KJ-iBP 1KJ-l"P )KJ-yBP KJ-{P 	KJ.;P 'KJ4"P KJ4"P 0KJ4+"P %KJ49BP KJ4="P )KJ4I"P KJ4LbP KJ5bP $KJ5iP KJ5iBP KJL;BP KJLMP KJLh"P /KJLkBP KJLlP KJLlbP KJM+BP KJMHbP -KJMLBP KJMmP KJMmbP KJN

P ,KJN

bP KJNI"P 

KJNIBP KJN\bP KJfkP (KJlIP KJlLbP KJt1P KJt9"P KJt:"P #KJtlP 2KJtmP -KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv	BP KJv
"P 2KJv

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

YBP @	
	IF1,<IF@9DEF ERA$,PRINTX @X?Duplicate error @xcode A>
	ERA$=A=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y 9}
	ERR	EOFY,<End of file>
	xERR	IFP,<Illegal file position>
	8ERR	FDE,<File datXa error>
	ERR	FNxD,<File is not on disk>
	ERR	NSD,8<No such device>
	ERR	FCF,<File cxheckpoint failed>	
	ERR	SLE,<A sys	8tem limit was exc	Xeeded>
	ERR	IFS,	x<Illegal file spe
cification>
	ERR
8	FNF,<File not fo
Xund>
	ERR	PRT,<P
xrotection violation>
	ERR	DNA,<De8vice not availablXe>
	ERR	NCE,<No x"current" entry i

n list>
	ERR	NMA

8,<No IPCF message

X is available>
	

xERR	FDS,<Files ar
	ERR	Fle already 
	ERR	USE,<Unexpected syst8em error>
	ERR	NXSP,<No such pid>
	ERR	BOL,<Beginning of list reach8ed>
	ERR	EOL,<EnXd of list reachedx>
	ERR	RQF,<Receivers quota full>8
	ERR	SQF,<SendeXrs quota full>
	xERR	NRE,<No remembered entry>
	ER8R	TBF,<Table is fXull>
	ERR	EIT,<Txable entry already exists>
	ERR	I8TE,<Invalid tableX entry>
	ERR	QEFx,<Quota exceeded or disk full>
	E8RR	ARG,<Invalid aXrgument specifiedx>
	ERR	IFN,<Invalid function spec8ified>
	ERR	IJN,X<Invalid job numbxer specified>
	ERR	RAD,<Invalid r8adix specified>
X	ERR	NUM,<Invalidx numeric argument>
	ERR	IDT,<Inva8lid date field spXecified>
	ERR	ITxF,<Invalid time field specified>
8	ERR	DOR,<Date/tiXme out of range>
	ERR	DTM,<Value missing in date/t8ime>
	ERR	MDD,<MXissing day in datxe/time>
	ERR	DFZ,<Field zero in d8ate/time>
	ERR	MXDS,<Mnemonic datex/time switch not implemented>
	ER8R	DFL,<Field too Xlarge in date/timxe>
	ERR	ILR,<Illegal year format 8in date/time>
	EXRR	NND,<Negative xnumber in date/time>
	ERR	NPF,<No8t known whether pXast or future in xdate/time>
	ERR	RDP,<Relative dat8e parse required>X
	ERR	NSW,<Switcxh does not begin with slash>
	ERR8	NOM,<UnrecognizeXd switch or keywoxrd>
	ERR	NUL,<Null switch or keyw8ord given>
	ERR	XINW,<Invalid guidxe word>
	ERR	NC, <Not confirmed>
 8	ERR	ICN,<Invalid X character in num xber>
	ERR	NQS,<I!nvalid quoted str!8ing - does not be!Xgin with quote>
!x	ERR	AMB,<Ambiguo"us switch or keyw"8ord>
	ERR	NMT,<D"Xoes not match tok"xen>
	ERR	CMA,<Co#mma not given>
	#8ERR	NNC,<Node nam#Xe may not exceed #x6 characters>
	E$RR	INT,<Node term$8inator "::" must $Xbe specified>
	E$xRR	NSN,<Unknown n%ode name>
	ERR	I%8PS,<Invalid path %Xspecification>
	%xERR	IUS,<Invalid &user specificatio&8n>
	ERR	DGS,<Dev&Xice name may not &xexceed 6 characte'rs>
	ERR	DNE,<Un'8known device>
	E'XRR	DIO,<Device ca'xn not do input or( output>
	ERR	BD(8F,<Invalid date/t(Xime format>
	ERR(x	ABS,<Field too l)ong for internal )8buffer>
	ERR	TMT)X,<Command too lon)xg for internal bu*ffer>
	ERR	BDS,<*8Invalid default s*Xtring>
	ERR	BTF,*x<Invalid table fo+rmat>
	ERR	TME,<+8Date/time must be+X in the future>
+x	ERR	TMN,<No time,r entry has expir,8ed>
	ERR	TMA,<Ti,Xmer entry already,x exists>
	ERR	DV-T,<Device termina-8tor ":" must be s-Xpecified>
	ERR	N-xCI,<Argument bloc.k may not be in t.8he ACs>
	ERR	TLU.X,<Terminal locati.xon is unknown>
	/ERR	FIO,<File is /8offline>
	ERR	FB/XM,<File being mod/xified>
	ERR	WLK,0<Write-locked dev08ice>
	ERR	CSD,<C0Xannot supersede a0x directory>
	ERR1	CDD,<Cannot dele18te a non-empty di1Xrectory>
	ERR	SN1xF,<Sub-file direc2tory not found>
28	ERR	ESL,<Search 2Xlist is empty>
	2xERR	LVL,<SFD leve3l nested deeper t38han the maximum a3Xllowed>
	ERR	CCW3x,<Cannot create/w4rite on any struc48ture in search li4Xst>
	ERR	FCU,<Ca4xnnot update file>5
	ERR	ENQ,<File 58has outstanding E5Xnqueue lockes set5x>
	ERR	SWS,<Soft6ware write-lock o68n structure>
	ER6XR	DER,<Hardware d6xevice error>
	ER7R	DTE,<Hard data 78error>
	ERR	BKT,7X<Block too large>7x
	ERR	IPP,<Non-e8xistant UFD>
	ER88R	TRN,<RIB or tra8Xnsmission error>
	ERR	ILC,<Illega9l character in da98te/time>
	ERR	NF9XT,<Date/time must9x be in the future:>
	ERR	NPS,<Date:8/time must be in :Xthe past>
	ERR	U:xDM,<Unrecognized ;month in date/tim;8e>
	ERR	UDN,<Unr;Xecognized name in;x date/time>
	ERR<	IFA,<Illegal fil<8e attribute>
	ER<XR	FAI,<File attri<xbute inconsistanc=y>
	ERR	CEI,<Can=8't enable/disable=X interrupt system=x>
	ERR	ENF,<Link>ed list entry not>8 found>
	ERR	NSL>X,<No such linked >xlist>
	ERR	NFP,<?No free pages>
	?8ERR	NPI,<No free ?Xpages 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` 	hx`
	IFIDN <
BC><>,<EXP <A>
(>
	IFDIF <BC><
H>,<
	 IFE <A+1>
h,<<POINT 7,C>>
	 IFN <A+1>,<
	(   IFIDN <C><>,<HEXP <A,B>>
	  h IFDIF <C><>,<EX

P <A,B,C>>
	>>A,B,C>>
	>KcI A,<
@	IF2,<IFNDEF A,<EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP  Mv
P 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:=PAM$v<P(M$v\{PM21 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|  
@	IF2,<IFDEFRA,<.
	IFNDEF A,<EXTERN
	Q SUPPRESPA>>YSUPPRO3FX7P NQf@ +QfI@ <StLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv

SpSv>9Q(Sv>@pSNnB-N d0v)
	IFNB <dPB>,<..STR0 (.INCRdp0,,<B>,A)>
	IFeB<B>,<AOSOA>>)<B>,<AOSA>S;k;<P S? q)
	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 SBd+@&SBn	@&SBn
@&SBn
@&	SBn@&	SBn@&
SBn

@&
SB2P SB)iP&	SB)iP&SB)kVP&SB)kYP'SB)lXP&
SB)lsP&
SB)lxP&	SB)mvP&SBal}P SPuxzQ @SR/

Hxh
	LSTOF.	

hXCREF
	..TEXT<A
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ 8C

	  LSTCyOF.

	X JNO,.JIDJNO,<-1,,GJBJNO>	D8
	X TNO,.JITNO,<DX-1,,GJBTTY>	
	X DxUSR,.JIUNO,.GTPPNE		
	X CDN,.JIDNOE8,<-1,,GJBPTH>	
	EXX PRG,.JIPNM,.GTPExRG		
	X8CJN,.JICFPJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.GFXTOBI		
	X JLT,.JFxISTM,.GTJLT		
	XG LOC,<-1,,GJBLOC>G8,<-1,,GJBLOC> 
	GXX RTM,.JIRT,<-1,,GxGJBRTM>	
	X TLC,H<-1,,GJBTLC>,<-1,H8,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$vKPiU$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
	IFB <C<	>,<
	XWD	[ASCIZ\<(B\],A>
	IFNB <<HC>,<
	XWD	[EXP <hCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 

	hOLSTXCREF

	CDOTSINI			
	CDO	 			
	CDO	.ZP
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD	.SAVE1
	CDO	.S
	CDO	.SAVE3
	CDO	.SAVE4
	CDO	.SAVET
	CDO	.
	CDO	.SV14
	CDO	.SV15
	CDOSV16
	CDO	.RET
	CDO	.RETF
	CDO	.RETE
	CDO	.A
	CDO	.SOS		
	CDO	.ZERO		
	hCDO	.POPJ		
	CDOSTOP		
	CDO	.S	
	CDO	.STK
	CDO	.TRSET
	CDO	.POPJ1		
	CDO	.UD2SC		
8(	CDO	.SC2UD		
	CDO	.CPUTY		
	CDO
	CDO
	CDO

	CDO			
	CDO	C%RP
	CDO	C%INTR
9H	CDO	C%SEND
	CDO%RECV
	CDO	C%B
	CDO	C%REL
:(	CDO	C%CPID
	CDO%KPID
	CDO	C%S
	CDO	C%MAXP
	CDO	C%PIDJ
	CD
	CDO
	CDO
	CDO
	CDO

	CDO	   			
	CDO	FN
	CDO	F%AOP
	CDO	F%OOPN
	HCDO	F%IBYT
	CDO	BYT
	CDO	F%IB
	CDO	F%OBUF
=(	CDO	F%REL
	CDO	REL
	CDO	F%RR
	CDO	F%REW
	CDO	F%POS
	CDO	FP
	CDO	F%INF
	CDO	F%FD
	CD	F%REN
	CDO	F%D
	CDO	F%FCHN
?(	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CD

	CDO	      	
	CDO	M%ACQP
@H	CDO	M%RELP
	CDO%IPSN
	CDO	M%N
	CDO	M%IPRC
	CDO	M%IPRM
	CD	M%AQNP
	CDO	M%
	CDO	M%CLNC
	CDO	M%FPGS
	CDO	M%GMEM
	CDO	MM
	CDO
	CDO
	CDO
	CDO
	CD
	CDO
	CDO	M%G
	CDO	M%RPAG
	CDO
	CDO
	CDO
	CDO
	CDO
	CD
	CDO
	CDO

D(	CDO	      			
	HCDO	T%TEXT
	CDO	TY
	CDO
	CDO
	CDO
	CDO
	CD
	CDO
	CDO
	CDO
	CDO
	CDO
Eh
	CDO	      			
F	CDO	L%CLST
	CDO%DLST
	CDO	L%C
	CDO	L%CBFR
	CDO	L%DENT
	CD	L%NEXT
	CDO	L%
	CDO	L%LAST
	CDO	L%PREV
	CDO	L%PREM
	CDO	LR
	CDO	L%REN
	CDO	L%SIZE
	HCDO	L%APOS
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CD
	CDO

	CDO		
	CDO	I%NOW
	CDO	I%EXIT
	CDO	I
	CDO	I%IOFF
	CDO	I%SLP
	CD	I%INT1
	CDO	I%
	CDO	I%INT3
	CDO	I%TIMR
	CDO
	CDO
	CDO	I%
	CDO	I%WTO
	CDO
	CDO	I%HOS
	CDO	I%JINF
	(CDO
	CDO

	CDO	
	CDO
	CDO	SI
	CDO	S%SIX
	CDO	S%CMND
	(CDO	S%TBLK
	CDO	CMP
	CDO	S%ER
	CDO	S%INTR
	CDO	S%EXIT
	CDO	BAD
	CDO	S%TB
	CDO	S%NUMI
Nh

	CDO	K%RCOC		
	CDO	K%WCOC
	(CDO	K%SUET
	CDO	TYP
	CDO	K%TX
	CDO	K%SOUT
P	CDO	K%BOUT
	CDO%BIN
	CDO	K%BA
	CDO	K%TPOS
Ph	CDO	K%BUFF
	CDO%FLSH
	CDO	K%O
	CDO
	CDO
QH	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	  LSTON.
  
	  LSTON.Y>

@ ]puu
	IFNB <^C>,<..STR0 (..LDB^0,A,C,B)>
	IFB^P<C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 
	IFNDEF.,LSTIN.==0	
IFE LSTIN.,<
	IFIDNR<XCREF><A
		 XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 
	IFG.LSTTIN.==LSTIN
	IFLE.LSTIN	
		      LIST>
		mK[3@1A>>-1>B<B>><A>>[8@ 
	IFB<<BSIZ==0
		IPIA,<IFGS<A-MA
	IFNB=<B>,<
		IRP 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 
	IFB<<BSIZ==377777
		IRPIGS<MINSIZ-A
	IFNB7<B>,<B==
	h	IRP<A,<IFG><B-
A>,<B==A>>>
[>!`A-<A/B>*B><A-<A/B[?7 
ZP=..MX1	
IFDEFT.P
[..IFNA.SOLUTE,<
[0	MOVE A,[B]>
[PUT.IF ..MX1,ABSOL
	..MX2==0	
	IFE<<..MX1>B5
	P ..MX2==1
	p1MOVEI A,..MX
	IFE ..MX2,<
	IFE,<..MX1>B
	P ..MX2==1
	pMMOVSI	A,(..
	IFE,..M
	IFE1<<..-^O777777>
	  ..MX2==1
^p	>>HRROI A,<..MX
	IFE	..MX2
	IFEB<<..MX77777B17
	 ..MX2==1
	0XHRLOI7A,(..M 
`P	IFE ..MX2,<		
	p>	MOVE A,[..MX1]
	>>

IFNDEFECT,<
	..MX2	
	IFEB<..MX
	=..MX2
	0.MOVEI	A,
	IFE,..M
	IFE><..M<
	2..MX
	0,MOVSI1A>	
	IFE.MX2,<		
	IFE..MX1>B53-^O777
	0=..MX2=
	P.HRROI>A,<
	IFEX.,<		
	IFEM<<>B17-^O77777
	P=..MX2
	p(HRLOI-A,77777)>
	IFE ..MX2,<	
	PMMOVE	A,[..
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= "Pr'
	A==C	"p	
	IF1,<IFDEF %#A,<PRINTX ?A ALR#0EADY DEFINED>>
	#PDEFINE %A (OP,AC#p,Y,MSK)<	
	IFDIF$ <Y><>,<
	OP (<A$0C>,B+'Y,MSK)>
	$PIFIDN <Y><>,<
	O$pP(<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg 
2P[b6<P<F]EA,<A==B>]F@ TEMFDB##
QkRp _
Ql}p _
Qmp _
Qm7p _
T= O!>

	X	.OT7YRDR,Reader
	X	.OCXTNCU,Network-ContOAroller
	X	.OTLPTO,Printer
	X	.OTBPAAT,Batch-Stream
P`;[LSRSPL]	X	.OTCDQP,Card-Punch
	X	Q .OTCDP,Laser-PrinQ@ter		;[LSRSPL]
	Q`X	.OTPTP,PapertapRe
IFE NICSW,<
	R X	.OTPLT,Plotter
>;IFE NICSW
IFNR` NICSW,<
	X	.OTPSLT,Foreign-printeS r
>;IFN NICSW
	S@X	.OTJOB,Job
	X	S`.OTTRM,Terminal
T	X	.OTOPR,OperatoT r
	X	.OTIBM,<IBMT@ Remote>
	X	.OTMT`NT,<Device>
	X	.UOTFTS,<File TransU fer>
	X	.OTBIN,<U@Card Reader InterU`preter>
	X	.OTREVT,<File RetrievalV >
	X	.OTNOT,<RetV@rieval NotificatiV`on>
	X	.OTDBM,<DWBMS System>
	X	.W OTFAL,<File AccesW@s Listener>
	X	.W`OTSNA,<SNA Workstation>
 Workst_Sh6 `i [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 a	=

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

  ai IFNB <D>,<..XX=b..XX!CM%HPP> 
  b8 IFNB <E>,<..XX=bX..XX!CM%DPP> 

bx	EXP ..XX		

  c IFNB <C>,<EXP c8C>
   IFB <C>,<cXEXP 0>

   IFNBcx <D>,<POINT 7,[AdSCIZ \D\]>
   Id8FB <D>,<0>

edX IFNB <E>,<POINTdx 7,[ASCIZ \E\]>
e8IFB <E>,<0>



   IFB <IeX>,<0>
   IFNB <exI>,<EXP I>

  f IFB <J>,<0>
  f8 IFNB <J>,<EXP fXJ>

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

   g8IFB <G>,<0>
   gXIFNB <G>,<EXP G>

G>,<EXPLGaLSH A,^D9a+= 5a;&  08{
	 IFB  <0XB>,<..STR0(..PNT0x,,<FWMASK>,A)>
1	IFNB<<B>,<..ST18R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 

	SALL	
	LSTOF. XCRE

	%%.GLX==		


	IFNBX<A>,<%%.MOD=
	IFNBX<B>,<%%.OTS=

(	GLOB	I%INIT			
H
	TOPS10	<			
	h	SEARCH	UUOSYM		
		%%UUOS==%%UUOS
	>				

	TOS20	<			
		SEARONSYM		
;		%ONS==%%MONS		
(	>				

	IFB,<		
		.TEXT	GLXLIB/SEAR
		DEFINE	$DATA),< 
			NAM:	BLOCK	SI
		>			
		DEFIDO (X),<GLOB 
		LIBVEC			
	>				

	IFNB>,<IFDIF <B><
		IFNRGL<.PSECT .HI
		IFE,GLXP
			TWOSE00	
			REL	
			RELOC	4
		>			
#
		DEFINE<$DATA(N
			IFNDGLXPURE,<.PS
			IFLXPURE,<RELOC>
			IFNDEF:B%D%DL==
			NAM:	BLOC
			B%DL==IZ 
			IDGLXPURE,<.ENDP
			IFEURE,<RELOC> 
		>			

		IFDIB><OTS>,<	
	h		DEFINE	CDO (X),
			LIB	
		>			

'H	>>				

	IFNB>,<IFIDN <B><
		DEFINE (NAM,SIZ<1
			NAM:	BL
		>			
)	>>				

	LSTON	

	GLOB	<..RETT, .RET
	OPDEF	$RET	
	OPDERETT	[PJRST	.R
	OPDEF	$RET	.RETF]	
	OPDEF	$RETIT	[
	OPDEF	$RETIF	[JUMP
	.NODDET,$RETT,$RET
$RETIT,$RETIF
aPtP aPtkP aPuTP aPv\rP e"luP'ePv8vP ePv9VP ePv;P fDP fHP gkp gk9p glp glp gltp gl}p g"@ }pw
	IFN <<.~.TA>&B>,<PRINTX~0 ?Initial field n~Pot zero in $SET>
	..TVAL==<C>
	0..TMSK==<B>
	  ..TA==..TA!P<FLD(..TVAL,..TMSpK)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@vi6C.SWIT+PDBCPY##C.SWIT+PDBg$tkQY@g$uP'g$uh6Q  g.N	@ 6@g.N
.SPID	(SZ	P.QSR,.IPCPQ,.SPQZ(SR,QUASAR)	
.SPIZHD	(SP.OPR,.IPCPO,Zh.SPOPR,ORION)	
.[SPID	(SP.INF,.IPC[(PI,.SPINF,INFO)	
.SPID	(SP.MDA,.I[hPCPM,.SPMDA,MDA)	\
TOPS10<
.SPID	\((SP.IPC,.IPCPS,,I\HPCC)		
.SPID	(SP\h.ACT,.IPCPA,,ACTD]AE)		
.SPID	(SP.](TLP,.IPCPT,,TAPLA]HB)		
.SPID	(SP.T]hOL,.IPCPC,,TAPAVR^)		
.SPID	(SP.DO^(L,.IPCPD,,DSKAVR)^H		
.SPID	(SP.FIL^h,.IPCPF,,FILDAE)		
>
,FILDAE)	gR^h9 :psg
	..STKR=;=10		
	RADIX 8
;0	..STKN==0
	IRP ;PA,<
	  .STKV1 (;pA)>
	$CALL	.STK<ST
	 ..STKN,,..S<0TKN
	RADIX ..STK<PR
	PURGE ..STKN,<p..STKR,..STKQ
   TKR,..STKQ
  gR~)  av
	IFNB <a0C>,<..STR0 (..DPBaP,A,C,B)>
	IFBapAS<C>,<MOVEMUA,B>>,<MOVEM A,gV 

Vl
	IFNB<<PS10<A==B
	IFNB2<C>,<TC>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( ?yIFN FTUUOS,HP`Li?4H ?Q}IFN FTJSYS,>:=Pa,I3iD HyH

  IFNBh	<A>,<.TQCHA==^D<B>B17+ZZ>
  I(FNB 	<D>,<DEFINEH ..TQMA<D>>
  hIFNB	<C>,<.TQC==^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, 
	LSTOF.
	TQ(T,2,ASCIZ)			
	TQ(O,2,OCTAL)(			
	TQ(D,2,DECIHMAL)			
	TQ(F,2,hFILE)			
	TQ(7,2,CSEVEN)			
	TQ((6,2,CSIXBIT)			
H	TQ(W,2,SIXBIT)		h	
	TQ(5,2,SVNBIT)			
	TQ(P,2,USE(R)			
	TQ(U,2,DIHRECTORY)			
	TQ(hH,2,DAYTIME)			
	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		H	
	TQ(I,1,INDIREhCT)		
	TQ(M,0,CR,..TXC0(\".CHCRT)()	
	TQ(J,0,LF,..HTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXC0(\".CHFFD))	
	T(Q(K,0,VT,..TXC0(\H".CHVTB))	
	TQ(Ah,0,NOCRLF,..TXA(.TQCHA))	
	TQ(0,0(,NULL,..TXA(.TQCHH0))	
	TQ(3,0,STRhING,..TXER(IQU))	
	TQ(V,2,VERSION()			
	TQ(2,0,CARHET,..TXER(IQU))	
	TQ(Q,2,POINTER)			
	TQ(B,2,ROB)(			
	TQ(1,2,OBJEHCT)			
	TQ(N,2,NhODE)			
	TQ(R,2,JIB)			
	LSTON.
)			
	LSTON. 7yr
	LSTOF.
	X(33,TTY33,33,)I9				
	X(35,TTY35Iy,35,)				
TOPS20IY<
	X(37,TTY37,37J!,)				
	X(EXECUPJ@ORT,EXEC,EXE,)			J`
>
TOPS10<
	X(KLA120,LA120,L12,)K 			
>
	X(LA36,LK@A36,L36,)			
	X(K`VT05,VT05,V05,<37L,177,177,177>)	
L 	X(VT100,VT100,10L@0,<.CHESC,"[","K"L`>)	
	X(VT50,VT50M,V50,<.CHESC,"J">M )		
	X(VT52,VT52M@,V52,<.CHESC,"J">M`)		
TOPS10<	X(VTN61,VT61,V61,<.CHEN SC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ A0t
	..TRR==AP10		
	RADIX 8
	Ap..NV==1			
	IRP BA,<
	  .TRV1 (B0A)>		
	$CALL	.TRBPSET		
	 ..NV-1,,Bp..NV-1
	RADIX ..CTRR		
	PURGE ..TRR,..NVURGE ..Tib 
PpU
		..TX(C,A,<B>)..TX(Cib 

pa
		..TX(CA,A,<B>).TX(CibP pY
		..TX(CE,A,<B>).TX(Cib` Pp]
		..TX(CN,A,<B>).TX(Cibp Pp%
		..TX(N,A,<B>)..TX(Nibt p1
		..TX(NA,A,<B>).TX(NibtP p)
		..TX(NE,A,<B>).TX(Nibu` Pp-
		..TX(NN,A,<B>).TX(Nibx Pp5
		..TX(O,A,<B>)..TX(Oib| pA
		..TX(OA,A,<B>).TX(Oib|P p9
		..TX(OE,A,<B>).TX(Oib}` Pp=
		..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 PpE
		..TX(Z,A,<B>)..TX(ZicT 
pQ
		..TX(ZA,A,<B>).TX(ZicTP 	pI
		..TX(ZE,A,<B>).TX(ZicU` 	PpM
		..TX(ZN,A,<B>).TX(Zm:7 
	IFGAN<ADEV>,<AED
	IFLEAMAN-ADEV>,<AEDT==:ADEV>
mKc@BER(3)AAMIN<(18)AEDTo&t 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 HYE
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +

q+= +
q6~i4 C q? q1
	TXC A,<B>
	TXCA,q@C<>,<A=:B>B <CqBp +qN5P +up j0vY
	IFNB <jPB>,<..STR1 (..TQZjp,,<B>,A,..STR4)k>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z 5i>
	.$RESET6	
	$TYPE (.CMACT)6(
	$HELP (<>)
	$6HNEXT (A)
IFIDN 6h<B> <>,< IRP C,7<C>
			.$BUILD>7(
IFDIF <B> <>,<7H
	$HELP (B)
	I7hRP C,<C>
	.$BUILD><C>
	.$BU	0 ~x{
.WTOX.(.OMACK,<A>,<B>,<C8>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 rADEFINE .$RraTN <A>
			.%RTN==1A>
			.%RTN	fI9 mAnDEFINE .$LmaST <A+1>
			.%LST==11>
			.%L	
=Z npv
	  IFG oA-INT.LV,<PRINTX o0?Level A interruoPpts not supportedop>
	  .BGINT.(\A)   .BGINT.(\A	X5 oaDEFINE .$BpREA <A>
			.%BREA==1>
			.%BR	- qPw
	  IFDEFqp ..BSIZ,<PRINTX ?rMissing $EOB after0r a $BUILD>
	  .rP.BSIZ==0			
	  .rp.BLOC==.			
	  RsEPEAT A,<			
		s0BLD0.(\..BSIZ,0)	sP
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0  I


	.$RESET i
	$TYPE (.CMCMA)!
	$NEXT (A)
	I!(RP B,<B>
	.$BUILD,<B>
	.$BU	I@ 		l
	.$RESET)
	$TYPE (.CMCFM)H
	IRP A,<A>
	.$BUILD,<A>
		$^ &i
F
	.$RESET'	
	$TYPE (.CMTXT)'(
	$HELP (<>)
	$'HNEXT (A)
IFIDN 'h<B> <>,< IRP C,(<C>
			.$BUILD>((
IFDIF <B> <>,<(H
	$HELP (B)
	I(hRP C,<C>
	.$BUILD><C>
	.$BU	I  ))
R
	.$RESET)I
	$TYPE (.CMTAD))h
	$PDATA (CM%IDA*)
	$NEXT (A)
	*(IRP B,<B>
	.$BUILD,<B>
	.$B	,,U ppw	
	  $RET	q			;WILL INVOKE RIGHT ROUTINE
		,h: kabDEFINE .$DlEFM <POINT 7,[ASCl IZ\A\]>
			.%DEFM==1>
			.%DE	.` %I
2
	.$RESET%i
	$TYPE (.CMDEV)&
	$NEXT (A)
	I&(RP B,<B>
	.$BUILD,<B>
	.$BU	Lz: In
	.$RESETi
	$TYPE (.CMNUX)


	$PDATA (B)
	

($HELP (<>)
	$NEX

HT (A)
IFIDN <C

h> <>,< IRP D,<D
			.$BUILD>
IDIF <C> <>,<
	HELP (C)
	IRP<D>
	.$BUILD><D>
	.$BUILD	N  		v
	.$RESET)
	$TYPE (.CMDIR)H
	$NEXT (A)
	IhRP B,<B>
	.$BUILD,<B>
	.$BU	|  xPwa
	  IFNDExpF ..BSIZ,<PRINTX y?$EOB without prey0vious $BUILD>
	 yP IFN <.-..BLOC>,<ypPRINTX ?Address czhange between $BUz0ILD and $EOB>
	 zP LSTOF.			
	  ..zpT==0
	  REPEAT .{.BSIZ,<
	    BLD{00.(\..T,1)		
	  {P  ..T==..T+1 >
	{p  PURGE ..BSIZ,..|T,..BLOC	
	  LSTON.
		
	  LST	+y ozDEFINE .$Eo!RTN <A>
			.%ERTN==1>
			.%ER	, pADEFINE .$EpaRTN <1B0+A+1>
			.%ERTN==1>
		- q!DEFINE .$EqARTN <[MOVEI S2,[Aq`SCIZ\A\]
				  r    $RETF]>
			.%ERTN==1>
			.	H6 Hx
	$CALL	.hSTOP
	LSTOF.
	JUMP	[XWD 0,[ITEXT( (<A>)]
		 EXP H%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ I	d
	.$RESETi
	$TYPE (.CMFLD)
	$NEXT (A)
	$(HELP (<>)
IFIDN H<B> <>,< IRP C,h<C>
			.$BUILD>
IFDIF <B> <>,<(
	$HELP (B)
	IHRP C,<C>
	.$BUILD><C>
	.$BU	MI  		P
	.$RESET)
	$TYPE (.CMFIL)H
	$HELP (<>)
	$hNEXT (A)
IFIDN <B> <>,< IRP C,(<C>
			.$BUILD>H
IFDIF <B> <>,<h
	$HELP (B)
	IRP C,<C>
	.$BUILD><C>
	.$BU	dy iJDEFINE .$Fi!LGS <A>
			.%FLGS==1>
			.%FL	ex: #	
(
	.$RESET#)
	$TYPE (.CMFLT)#H
	$HELP (<>)
	$#hNEXT (A)
IFIDN $<B> <>,< IRP C,$(<C>
			.$BUILD>$H
IFDIF <B> <>,<$h
	$HELP (B)
	I%RP C,<C>
	.$BUILD><C>
	.$BU	$ XxG
	  INTERN A
	  $DATA(A,<B>)
	ATA(A

:x	1	"
	IFDIF <jaA> <>,<
DEFINE k.$HLPM <POINT 7,[k ASCIZ\A\]>
			.%HLPM==1>
			.	&5 		(
	.$RESET)
	$TYPE (.CMIFI)H
	$HELP (<>)
	$hNEXT (A)
IFIDN <B> <>,< IRP C,(<C>
			.$BUILD>H
IFDIF <B> <>,<h
	$HELP (B)
	IRP C,<C>
	.$BUILD><C>
	.$BU	&u !i

	.$RESET"	
	$NEXT (A)
	$"(TYPE (.CMINI)
	I"HRP B,<B>
	.$BUILD,<B>
	.$BU	./ )B
	.$RESETI
	$TYPE (.CMKEY)h
	$PDATA (B)
	$NEXT (A)
	IRP (C,<C>
	.$BUILD,<C>
	.$BUILD	./ i6
	.$RESET	
	$TYPE (.CMKEY)(
	$PDATA (A)
	H$NEXT (0)
	IRP hB,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDY.WTOX.(.OMyWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p y	.WTOX.(.OMLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV 3	*
	.$RESET3)
	$TYPE (.CMNOD)3H
	$HELP (<>)
	$3hNEXT (A)
IFIDN 4<B> <>,< IRP C,4(<C>
			.$BUILD>4H
IFDIF <B> <>,<4h
	$HELP (B)
;	5$FLAGS (CM%PO)
	5(IRP C,<C>
	.$BUILD><C>
	.$B	:}r )|
	.$RESETI
	$TYPE (.CMNOI)h
	$PDATA (<POINT 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRHP C,<C>
	.$BUILD,<C>
	.$BUI	;-XR iX
	.$RESET		
	$TYPE (.CMNUM)	(
	$PDATA (B)
		H$HELP (<>)
	$NEX	hT (A)
IFIDN <C
> <>,< IRP D,<D
(>
			.$BUILD>
I
HFDIF <C> <>,<
	
h$HELP (C)
	IRP D,<D>
	.$BUILD><D>
	.$BUILD	>5 I	<
	.$RESETi
	$TYPE (.CMOFI)
	$NEXT (A)
	$(HELP (<>)
IFIDN H<B> <>,< IRP C,h<C>
			.$BUILD>
IFDIF <B> <>,<(
	$HELP (B)
	IHRP C,<C>
	.$BUILD><C>
	.$BU	B$ iaPDEFINE .$DjATA <A>
			.%DATA==1>
			.%DA	B$YP lahDEFINE .$DmEFM <POINT 7,<A>>
			.%DEFM==1	CYT s!DEFINE .$DsAEFR <A>
			.%DEFR==1>
			.%DE	G-} -i
~
	.$RESET.	
	$TYPE (.CMQST).(
	$HELP (<>)
	$.HNEXT (A)
IFIDN .h<B> <>,< IRP C,/<C>
			.$BUILD>/(
IFDIF <B> <>,</H
	$HELP (B)
	I/hRP C,<C>
	.$BUILD><C>
	.$BU	J.I  8x
	  $CALLX	.RETE			
		LSTOxF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  KPu[
	.NVR==0Kp			
	.ACM==0			

	IRP A,<		
	L0	..TSAC(.ACB,A)	LP	
		IFN .ACB,<.ALpCM==.ACM!1B<A>>	M
		IFE .ACB,<			M0
		IFE .NVR,<			MP
		    CAIA			
Mp		    LSTOF.
		 N   JRST b>
		  N0..PUSH(A,\<.NVR+NP1>)>>	

	IFN .ANpCM,<	
	    IFE <O.ACM-17B<T4>>,<.AO0CM==0
				$CALL OP.SAVET>
	    IFEOp <.ACM-377B<.A16>P>,<.ACM==0
				$P0CALL .SAVE8>
	  PP  IFE <.ACM-17B<PPp4>>,<.ACM==0
			Q	$CALL .SAVE4>
	Q0    IFE <.ACM-7B<QPP3>>,<.ACM==0
		Qp		$CALL .SAVE3>
R	    IFE .NVR,<	
	    IFE <.ACM-3RPB<P2>>,<.ACM==0
Rp				$CALL .SAVE2>S
	SP  IFE <.ACM-S01B<P1>>,<.ACM==0
				$CALL .SAVE1Sp>
	    IFE <.ACMT-1B<.A13>>,<.ACM=T0=0
				$CALL .SVTP13>
	    IFE <.ATpCM-1B<.A14>>,<.ACUM==0
				$CALL .U0SV14>
	    IFE <UP.ACM-1B<.A15>>,<.UpACM==0
				$CALLV .SV15>
	    IFEV0 <.ACM-1B<.A16>>,VP<.ACM==0
				$CAVpLL .SV16>
	    >W>

	IFN .ACM,<	W0
	    IFE .NVR,<WP			
		CAIA			
	Wp	LSTOF.
		JRST Xb>

	    .ACB==X00			
	REPEAT ^D1XP6,<			
	    IFN Xp<.ACM&1B<.ACB>>,<Y	
		..PUSH(\.ACBY0,\<.NVR+1>)>
		.YPACB==.ACB+1>>		
Yp
	IFN .NVR,<	
	Z    PUSH P,[[CAIAZ0		
		     AOS -.ZPNVR(P)	
	    REPZpEAT .NVR,<..POP(\[.NVR)>	
		     P[0OPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ tw1
	  IFNDEt0F ..BSIZ,<PRINTX tP?$SET without pretpvious $BUILD>
	 u IFNB <B>,<..STRu00 (..SET,<C>,B,uPA)>
	IFB  <Bup>,<..STR0 (..SET,v<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
=I	XWD b-1,b-1
	=hDEFINE $ETAB <
		b==.-a> <
		O%| hx>
S..A::!	$CALL .STOP
		L(STOF.
		JUMP [XWHD 'A',[ITEXT (<hB>)]
			EXP %%.MOD]
		LSTON.	M	O= I	
	.$RESETi
	$TYPE (.CMSWI)
	$PDATA (A)
	($NEXT (0)
	IRP HB,<B>
	.$BUILD,<B>
	.$BUILD	O= 		
	.$RESET)
	$TYPE (.CMSWI)H
	$PDATA (B)
	h$NEXT (A)
	IRP C,<C>
	.$BUILD,<C>
	.$BUILD	R

@ ,)
j
	.$RESET,I
	$TYPE (.CMTAD),h
	$PDATA (<CM%ID-A!CM%ITM>)
	$NEX-(T (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	TH%TEXT
	LSTOF.	XChREF
	JUMP	[XWD 2	,0
		 EVL (A)
	(		 ITEXT(<B>)]	
	LSTON.B>)]	
^
	.$RESET+	
	$TYPE (.CMTAD)+(
	$PDATA (CM%ITM+H)
	$NEXT (A)
	+hIRP B,<B>
	.$BUILD,<B>
	.$B	R}97 8)L
	.$RESET8I
	$TYPE (.CMTOK)8h
	$PDATA (<POINT9 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR9HP C,<C>
	.$BUILD,<C>
	.$BUI	S (yN


  ..TX8A(.TQA,C,D,E,HB)	
      IFN ..TXEF,<			
	..TEhRR<$TQ(A,B,C,D,E)>>

C,	S@I9 3{9
	LSTOF.
	X(UQU,Unknown q3Xualifier)
	X(IQU3x,Invalid qualifie4r)
	X(IJA,Invali48d justification a4Xrgument)
	X(IWA,4xInvalid width arg5ument)
	X(PEA,Pr58emature end of ar5Xgument)
	X(JNA,J5xustification is n6ot allowed)
	X(A68NA,Arguments are 6Xnot allowed)
	X(6xADS,Address must 7be specified)
	LSTON.
ied)
	L	SN	  h!DDEFINE .$ThAYP <A>
			.%TYPE==1>
			.%TYP	W= 0)
	.$RESET0I
	$TYPE (.CMUQS)0h
	$HELP (<>)
	$1NEXT (A)
	$PDAT1(A (B)
IFIDN <C1H> <>,< IRP D,<D1h>
			.$BUILD>
I2FDIF <C> <>,<
	2($HELP (C)
	IRP 2HD,<D>
	.$BUILD><D>
	.$BUILD	W\@ )

	.$RESETI
	$TYPE (.CMUSR)h
	$NEXT (A)
	I RP B,<B>
	.$BUILD,<B>
	.$BU	^+@ x2
IFE %%.O(TS,<DEFINE $WARN H(MSG) <
		$TEXT h(T%TTY,<% ^W6/[%%.MOD]/ MSG>)>>
I(FN %%.OTS,<DEFINEH $WARN (MSG) <
	h	$TEXT (T%TTY,<% ^W6/IIB+IB.PRG/ ^(W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r rx)
		IFB	<sA>,<.WFACD==0
		s8	IFN <0-2>,<.$WACsXD==0>>
		IFNB	<sxA>,<.WFACD==-1
	t		IFN <0-2>,<.$WAt8CD==.$WACD!<A>>
			IFE <0-2>,<DEtxFINE .$WACD,<<WO.uACD>B8+[ITEXT (<A>)]>>
		>
<	_$u gx~Q
		IFB	<hA>,<.WFACK==0
		h8	IFN <0-2>,<.$WAChXK==0>>
		IFNB	<hxA>,<.WFACK==-1
	i		IFN <0-2>,<.$WAi8CK==.$WACK!<A>>
			IFE <0-2>,<DEixFINE .$WACK,<<WO.jACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ YXg
	IFE	<.WYxFMTY>,<PRINTX ?NoZ message type in Z8$WTBLD>
DEFINE .ZXEAWTO(SUFFIX,ARGCZxOD),<
IFN .WF'SU[FFIX',<
	IFE	<AR[8GCOD-0>,<<WO.'SUF[XFIX'>B8+ .$W'SUFF[xIX'>
	IFE	<ARGCO\D-1>,<<WO.'SUFFIX{x'>B8+ [EXP .$W'SU|FFIX']>
	IFE	<AR|8GCOD-2>,<.$W'SUFF|XIX'>
>
>
	ALLW|xTO				
	EXP	0			
		
	EXP	0				_$k jX~g
		IFB	<jxA>,<.WFFLG==0
		k	IFN <1-2>,<.$WFLk8G==0>>
		IFNB	<kXA>,<.WFFLG==-1
	kx		IFN <1-2>,<.$WFlLG==.$WFLG!<A>>
			IFE <1-2>,<DElXFINE .$WFLG,<<WO.lxFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W p
		IFB	<p8A>,<.WFJBN==0
		pX	IFN <0-2>,<.$WJBpxN==0>>
		IFNB	<qA>,<.WFJBN==-1
	q8		IFN <0-2>,<.$WJqXBN==.$WJBN!<A>>
			IFE <0-2>,<DErFINE .$WJBN,<<WO.r8JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV x8U
		IFB	<xXA>,<.WFMFL==0
		xx	IFN <1-2>,<.$WMFyL==0>>
		IFNB	<y8A>,<.WFMFL==-1
	yX		IFN <1-2>,<.$WMyxFL==.$WMFL!<A>>
			IFE <1-2>,<DEz8FINE .$WMFL,<<WO.zXMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] \x}y
		IFB	<]A>,<.WFMTY==0
		]8	IFN <0-2>,<.$WMT]XY==0>>
		IFNB	<]xA>,<.WFMTY==-1
	^		IFN <0-2>,<.$WM^8TY==.$WMTY!<A>>
			IFE <0-2>,<DE^xFINE .$WMTY,<<WO._MTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr m8~}
		IFB	<mXA>,<.WFNOD==0
		mx	IFN <0-2>,<.$WNOnD==0>>
		IFNB	<n8A>,<.WFNOD==-1
	nX		IFN <0-2>,<.$WNnxOD==.$WNOD!<A>>
			IFE <0-2>,<DEo8FINE .$WNOD,<<WO.oXNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p }8m.WTOX.(.OM}XWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU e~;
		IFB	<e8A>,<.WFOBJ==0
		eX	IFN <0-2>,<.$WOBexJ==0>>
		IFNB	<fA>,<.WFOBJ==-1
	f8		IFN <0-2>,<.$WOfXBJ==.$WOBJ!<A>>
			IFE <0-2>,<DEgFINE .$WOBJ,<<WO.g8OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr uX?
		IFB	<uxA>,<.WFOCD==0
		v	IFN <0-2>,<.$WOCv8D==0>>
		IFNB	<vXA>,<.WFOCD==-1
	vx		IFN <0-2>,<.$WOwCD==.$WOCD!<A>>
			IFE <0-2>,<DEwXFINE .$WOCD,<<WO.wxOCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ y.WTOX.(.OMWTO,<A>,<B>,<C8>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ ~s
.WTOX.(.OM~8WTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z \XY
	DEFINE	\8.EAWTO(SUFFIX),<${WT'SUFFIX'	<>>
	ALLWTO				

		_&N b8~%
		IFB	<bXA>,<.WFTXT==0
		bx	IFN <2-2>,<.$WTXcT==0>>
		IFNB	<c8A>,<.WFTXT==-1
	cX		IFN <2-2>,<.$WTcxXT==.$WTXT!<A>>
			IFE <2-2>,<DEd8FINE .$WTXT,<<WO.dXTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 _X~
		IFB	<_xA>,<.WFTYP==0
		`	IFN <2-2>,<.$WTY`8P==0>>
		IFNB	<`XA>,<.WFTYP==-1
	`x		IFN <2-2>,<.$WTaYP==.$WTYP!<A>>
			IFE <2-2>,<DEaXFINE .$WTYP,<<WO.axTYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P .
P .JP .bP /P B&@P cGP )0 .0m;M>h1Z6 |i*			

	d}	==<FLD(.$TYP,CM%F}(NC)>!.$FLGS!<.$LS}HT> 

	IFN <.%BR}hEA>,<d==d!CM%BR~K> 

	IFN <.%HL~(PM>,<d==d!CM%HP~HP!CM%SDH> 
					~h	

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

c:!	XWD	b,Ha			

	EXP d	h			

	EXP .$DATA			

IFN <.%HL(PM!.%DEFM!.%BREA>H,<
		EXP	.$HLPM>h		


IFN <.%DEFM!.%BREA>,<
		E(XP	.$DEFM>		

H
IFN <.%BREA>,<	EhXP	.$BREA>		

	a==.-c			;LENGT(H OF THE FDB

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

IF(N <.%DEFR!.%RTN!.H%ERTN>,<EXP .$RTNh >	

IFN <.%DEFR!.%ERTN>,<	EXP	.($ERTN>	

IFN <.H%DEFR>,<		EXP	.$DhEFR>	


	b==.-c			

	IF2<	P(URGE a,b,c,d>
	LISTb,c,d>$YV$ta&POINTb7,[ASCIZ\0\]NT 7,[A$YY 20M>k=.- ,0M$v\{5Iy "0M$t:f= (0+1M$u[rw
	SALL
	wIXLIST
	DEFINE .$whTYP <0>
	.%TYPE=x=0
	DEFINE .$FLGx(S <0>
	.%FLGS==0xH
	DEFINE .$DATA xh<0>
	.%DATA==0
y	DEFINE .$HLPM <>y(
	.%HLPM==0
	DEyHFINE .$DEFM <0>
yh	.%DEFM==0
	DEFIzNE .$LST <0>
	.%z(LST==0
	DEFINE .zH$BREA <0>
	.%BREzhA==0
	DEFINE .$N{XT <0>
	.%NXT==0{(
	DEFINE .$ERTN {H<0>
	.%ERTN==0
{h	DEFINE .$RTN <0>|
	.%RTN==0
	DEF|(INE .$DEFR <0>
	.%DEFR==0<0>
	K@00M>h{' x0T 1,)0P $YVP $YYP .-P 5IyP f=P w
	01=..ASB>	
	IFDEFECT,<
	.IFNS1,ABSOLUTE,<
	0AS1]C A,[-..
	.IFA..ASUTE,<
		.AS2==0	
	<IFES1&^O777777B1
		..AS2==1	
	pS1>DI A,..A
	,IFE ..AS2
	0B,..OP(A,
	PURGE1,..AS2>>
	IFNDEF .PSECT,<
		..AS2==0	
	0EIF..AS1&^O777777
		..AS2==
	.ASDI A,.
	0SIFE	..A
	P(A..OPC)>
	PURGE ..AS1,..AS2>:h qK
	A: 
	0=..CX1
	IFDEF .PSE
g	.IFNS..CXE,<
	>   CAMA B,[C]
	.IFU..CX1,ABS
		..CX2
	XIFEO<..C77B17>,<
		..CX2==1	
	P   CAIA B,C>
ip	  IFE ..CX2,<		
	0C]>CAMA B,[
	PURGEX..CX1
	IFNDEFCT,<
		..CX	
	0CIFE^<..7777B17>,
		..CX2==1	
	p    CAIA B,C>
	0 IFE ..CX2,<		
	PC]CAMA B,[
	PURGE ..CX1,..CX2>GE ..CX:&@ b0v
	..TSIZ bP(..PST,C)
	.CASbpE ..PST,<<
		MOVcEM A,B>,<
		HRc0RM A,B>,<
		HRcPLM A,B>,<
		DPcpB A,[POINTR (B,C)]>>INTR (B,:<;Y 9psS
   DEFIN:E ..CNS2 (NEW,OLD:0)<
	  OLD>			
	..CNS ()>			
	:L;Y 7PsK
   DEFIN7pE ..CNS (%%%)<
	8..CNS2 <%%%>,>
80
   DEFINE ..CNS28P (NEW,OLD)<
	DEF8pINE ..CNS (%%%)<
	  ..CNS2 <%%%>,90<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ _v
	..TSIZ _0(..PST,C)
	.CAS_PE ..PST,<<
		MOV_pE A,B>,<
		HRR`Z A,B>,<
		HLR`0Z A,B>,<
		LDB`P A,[POINTR (B,C)]>>INTR (B,:}i1 pqy
	A==<<<-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 
	0=..OP1
	IFDEF .PSE
z	.IFNS..OPE,<
	>   C A,[..OP1]
	.IFU..OP1,ABS
		..OP2
	PIFEO<..O77B17>,<
		..OP2==1	
	P   CI A,..OP1>
	 IFE ..OP2,<		
	0P1]C A,[..O
	PURGEO..OP
	IFNDESECT,<
		..O=0	
	0.IFE&<.777777B17>
		..OP2==1	
~p	    CI A,..OP1
	0	IFE ..OP2,<
	P.OPC>A,[.
	PURGE ..OP1,..OP2>GE ..;m 1x{
	..PST==2C-FWMASK
	.IF0 28..PST,<
		POINT 2X0,B,35>,<
		POINTR (B,C)>POI;| \puk
		POP P,].NVA
		PURGE .N]0VA
		.NVR==.NVR-1
		.NVR==.NVR;\t [puc
		PUSH P\,A
		DEFINE .NV\0B<A>
		.NVR==.NVR+1
		.NVR==.;] vPwA
	  IFGE vp<<<B>&777777>-..wBSIZ>,<
		PRINTXw0 ?WORD offset grewPater than $BUILD wpsize parameter>
x	  SET0. (\<B>,C,<A>)
	B>,;LH %0r;
	IFNDEF %PC,<PRINTX C IS %pNOT DEFINED
	  &A (<B>,D,FWMASK&0)>	
	IFDEF C,<
	IFNDEF %C,<
	&p  A (<B>,D,C)'>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH 'pry

	..NS==0(			
	IRP C,<..N(0S=..NS+1>	
	IFE (P..NS,<PRINTX ?EMP(pTY STRUCTURE LIST), A>
	IFE ..NS-)01,<		
	  ..STR0 )P(A,<B>,<C>,D))p>
	IFG ..NS-1,<	*	
	..ICNS			
	.*0.CNS (<E (A,<B*P>,,>) 
	IRP C,<*p		
	  IFNDEF C,+<PRINTX C NOT DE+0FINED>
	  IFDEF +PC,<
	  IFNDEF %+pC,<
	  ..CNS (<,,C,D>)>	
	  IF,0DEF %C,<
	  %C,P (..STR2,,D,C)>,p 
	  ..CNS (<)>)-		
	  ..GCNS		
-0	  ..ICNS		
	  .-P.CNS (<E (A,<B-p>>) 
	  IFNDEF %.C,<
	  ..CNS (<.0,C,D>)>	
	  IF.PDEF %C,<
	  %C.p (..STR2,,D,C)>/>> 
	..CNS (<,,)>)		
	..GCNS>);LI /Pr}
	..CNS (<,C,B>).CNS (;LI 0s


	IFDIF <00D><F>,<
	  IFN0PB <D>,<
	    A0p (<B>,D,..MSK)	1
	    IFNB <F>,10<PRINTX C AND E1P ARE IN DIFFERENT1p WORDS>>
	  ..MS2K==0>		
	IFNB <20F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ 2ps#


	IFDIF <3D><F>,<	
	  IF30NB <D>,<
	    3PA (<B>,D,..MSK)3p>	
	  ..MSK==0>	4	
	IFNB <F>,<
40	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ 4ps9


	IFDIF <5D><F>,<	
	  IF50NB <D>,<
	    I5PFNB <F>,<		
		5pA1 (B,D,..MSK)>6 
	    IFB <F>,60<		
		A2 (B,D6P,..MSK)>> 
	  ..6pMSK==0>		
	IFNB 7<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y 8x{S
8IF1,<
    PRINTX ? Err8Xor in "A"
    D9(EFINE X(NAM,ERR) 9x<IFN ..X'NAM&..TX:EF,<PRINTX ? ERR>:8>
    $TX$ERR>

    $TX$ERR>
;$^ <|	

    ..<8TXF==0				
    .<X.TXB==0				
    <x..TXP==0				
   = ..TXEG==<..TXEF==8=0>			
    IRPC =XA,<				
	..TXC==x=ASCII\A\-35		
	IFN ..TXB,<IFN >8..TXB-..TXC,..CNS>X(<A>)
		   IFE >x..TXB-..TXC,..TXB?==0>
	IFE ..TXB,?8<..TXQ(<A>,\..TX?XF)>>	
    ..TXC1?x				
    IFN ..T@XB,<IFN <..TXB-"^@8">,<..TXER(PEA)>>@X
    ..TXEF==..T@xXEF!..TXEG		
   A IFN ..TXEF,<..TERR<A>>
,<..TE;&( yx..TXA(.TQCH0)..TXA(.TQC;&)  z..TXER(IQU)..TXER(IQU;&) Hy|..TXER(IQU)..TXER(IQU;&0 Hyt..TXA(.TQCHA)..TXA(.TQC;&5 yh..TXC0(\".CHLFD).TXC0(\".;&5 yp..TXC0(\".CHVTB).TXC0(\".;&6 Hyl..TXC0(\".CHFFD).TXC0(\".;&6 Hyd..TXC0(\".CHCRT).TXC0(\".;&@ kPvs
	..TSIZ kp(..PST,C)	
	.CAlSE ..PST,<<
		SEl0TZM B>,<	
		HLLlPZS B>,<	
		HRRZlpS B>,<	
	  ..TSmAC (..ACT,B)	
	m0  .IF0 ..ACT,<
	mP	$CALL .ZERO	
		mpLSTOF.
		JUMP [PnOINTR(B,C)]
		n0LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 0qs
	IFNDEF P.PSECT,<
	A==0	p		
	..TSA1==<Z B>		
	  IFE ..TS0A1&^O777777777760P,<A==1> 
	>
	IpFDEF .PSECT,<
	A==0			
	..TSA1=0=<Z B>		
	.IF .P.TSA1,ABSOLUTE,<	p
	  IFE ..TSA1&^O777777777760,<A0==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= pqW
	A==3			
	IFE <B>+1,<0A=0>	
	IFE <B>-P^O777777,<A==1> p
	IFE <B>-^O777777B17,<A==2>7;' q
   ..TX10==C			
IFDEF .PPSECT,<
   .IFN .p.TX1,ABSOLUTE,<
	TDA B,[C]>
 P  .IF ..TX1,ABSOL0UTE,<		
	..TX2==p0		
	IFE <..TX1&^O777777B17>,<
	0  ..TX2==1		
	  PTRA B,..TX1>
	pIFE ..TX2,<		
	IFE <..TX1&^O7777707>,<
	  ..TX2==1P		
	  TLA B,(.p.TX1)>>
	IFE ..TX2,<		
	  IFE <<0..TX1>B53-^O77777

P7>,< 
	    ..TX3

p (A,B)>>	
	IFEX2,<		
	ATD,[..TX1]>	
	PURGE ..TX1,..TX
IFNDEF .PSECT,<
	..TX2==0		
	IFE <..TX1&^O77P7777B17>,<
	  ..pTX2==1		
	  TRA B,..TX1>
	IFE 0..TX2,<		
	IFE <P..TX1&^O777777>,<p
	  ..TX2==1		
	  TLA B,(..TX10)>>
	IFE ..TX2,<P		
	  IFE <<..TXp1>B53-^O777777>,< 
	    ..TX3 (A0,B)>>	
	IFE ..TPX2,<		
	  TDA pB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 0q%
	IFIDN <PA><Z>,<		
	  ..pTX2==1
	  ANDI B,^-..TX1>	
	IFI0DN <A><O>,<		
	P  ..TX2==1
	ORpCMI B,^-..TX1>	
	IFIDN <A><C>,<0		
	  ..TX2==1
P	  EQVI B,^-..TX1>QVI B,^-..TX;'  "8z



	..TXE"XF==0			

IFNDEF"x A,<..TXER(UQU)>#		
IFDIF <B><>,#8<IRPC B,<.IFN <#XB>,NUMERIC,..TXER#x(IWA)>>
IFNB <C$>,<IFNDEF .TXTJC$8,<..TXER(IJA)>>
$XIFDEF  A,<
  IF$xE <A_-^D18>,<IFD%IF <EFBCD><>%8,<..TXER(ANA)>>
%X  IFE <1-<A_-^D1%x8>>,<IFDIF <BC&D><>,<..TXER(JNA)&8>>
  IFE <2-<A_&X-^D18>>,<IFIDN <&xEF><>,<..TXER(AD'S)>>>

      IF'8E ..TXEF,<
	IFID'XN <B><>,<..TXWD='x=<..TXJU==<..TXFC(==0>>>
	IFDIF <(8B><>,<
	  IFE <^(XD<B>>,<..TXWD==<(x..TXJU==<..TXFC==)0>>>
	  IFN <^D<)8B>>,<..TXWD==^D<)XB>
	    IFNB <)xC>,<..TXJU==.TXTJ*C>
	    IFB  <*8C>,<..TXJU==.TXTJ*XL
	      IFE <A*x-.TQOCT>,<..TXJU=+=.TXTJR>
	+x    +8IFE <A-.TQDEC>,<+X..TXJU==.TXTJR>>
	    IFB  <D>,<,..TXFC==" ">
	  ,8  IFNB <D>,<..TX,XFC=="D">>>

	I,xFB  <EF>,<..TXP-T==0>
	IFNB <E-8F>,<..TXPT==1>
	-XIFE <..TXWD+..TXP-xT>,<
	    EXP FL.D(A,TXT.FN)>
	I.8FN <..TXWD+..TXPT.X>,<
	    EXP FLD.x(A,TXT.FN)+FLD(./.TXJU,TXT.JU)+FLD/8(..TXWD,TXT.WD)+F/XLD(..TXFC,TXT.FC)/x+TXT.AD
	    PNTR(E,F)>>

T;'h Rx}#
    IFE S..TXP,<			
	..ICS8NS			
	..CNS<ASCSXIZ\>		
	..TXP==1Sx>		
    ..CNS<AT>			
    ..TXF==T80			
    ..TXB=="^"
    ..TXB==;'h Tx}/

    IFUN ..TXP,<			
	..U8CNS<\>		
	EXP <FUXLD(.TQCHT,TXT.FN)Ux+[..GCNS]>>
    ..TXP==0>
    ;'	9 :x{]
    ..TX;EF==..TXEF!..XA	;8	
    ..TXF==0		;X		
    ..TXB=="^"
    ..TXB=="^;'

AX|B(<A>)..TXQB(<;'

( B|

    IFB8N ..TXC-"^",<..TXBXC0(<A>)>		
    BxIFE ..TXC-"^",<..TXF==1>-"^",<..;'

( C8|7

    IFCXE ..TXC-"^",<..TXCxC0(<A>)>	
    IDFN ..TXF,<			
	.D8.TXF==0		
	IFDEFDX .TQCHA,<		
	  Dx  IFDEF ..TQMA,.E.TQMA 
	    IFNE8 <.TQCHA_-^D18>,EX<..TXF==2>>>
   Ex IFE ..TXF-2,<..TFXC1(<A>)	
	..ICF8NS			
	..CNS<..TFXXA(.TQCHA,>>	
 Fx   ..TXEG==..TXEG!..TXEF==..TXEG;'

) G8|I
    ..TXGXF==3				
    IFGGxE ..TXC-"0",IFLE H..TXC-"9",<..TXF=H8=2>
    IFE ..TXHXF-2,<..CNS(A)>		Hx
    IFE ..TXF-3I,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) IX|]
    ..TXIxF==4				
    IFEJ ..TXC-"/",<..TXFJ8==5>		
    IFE .JX.TXC-"[",<..TXF==Jx5>		
    IFE ..TKXF-4,<..CNS<A,>>K8		
    IFE ..TXFKX-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* L|s
    ..TXL8F==4				
    IFELX ..TXC-"/",..TXF=Lx=5		
    IFE ..TMXC-"[",..TXF==5		M8
    IFE ..TXF-5MX,<..CNS<,>		
		 Mx..TXQ5<A>>		
  N  IFE ..TXF-4,<..N8CNS<A,>		
		 ..TXF==5>	
		 ..;'

* Nx}
    ..TXOF==6				
    IFEO8 ..TXC-"/",..TXB=OX="/"		
    IFE .Ox.TXC-"[",..TXB=="P]"
    IFE ..TXBP8-"]",..CNS<[>		
PX    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ Q}
    ..TXQ8F==0			
    IFE QX..TXC-"]",..CNS<]Qx>	
    ..CNS<)>	R		
    ..GCNS			R8
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  HtA
	.ACV2 (A)
	.ACV2 (d@ HPtK
	A=.FPAHpC+..NAC		
	IFB <IB>,<..NAC=..NAC+I01>
	IFNB <B>,<..NAC=..NAC+B>.d` IptY
	IFG A-J.NPAC,<PRINTX ?TOJ0O MANY ACS USED>
	IFLE A-4,<
	KJp $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z p0w$CALL	I%INTA$CALL	I%IN9  pqI
	..CSN==A
	..CSC==0
	I0RP B,<
	IFE ..CPSN-..CSC,<
	  STpOPI
	  ..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 hPvO
	..PST==hpC-FWMASK
	.IF0 i..PST,<
		SOS Bi0>,<	
		$CALL .SOiPS	
		LSTOF.
		JipUMP [POINTR(B,C)]
		LSTON.>C} Xx]
	.OPCD=={Y.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 Pq;
	..IFT==pA		
	IFE ..IFT,<
	B
	..IFT==00>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H ePv7
	..PST==epC-FWMASK
	.IF0 f..PST,<
		AOS Bf0>,<	
		$CALL .AOfPS	
		LSTOF.
		JfpUMP [POINTR(B,C)]
		LSTON.>C&tj7Q:?6MiTQ	@7;rp77H:pz7kpv7N8p=;`Pz;-J7P#>)qp >5H3p >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 C9z
	IFG	A-_)MX.PID,<MX.PID==A>
C
G	A-OSP OYP O|P OyP O%=H =0sk
	.STKV2 (A)
	.STKV2 O%=I =psy
	IFB <B>>,<..STKN==..STKN>0+1>
	IFNB <B>,<>P..STKN==..STKN+B>p>
	..STKQ==..STK?N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I ?Pt
   IFDEF?p A,<.IF A,SYMBO@L,<PRINTX STKVAR @0A ALREADY DEFINE@PD>>
	DEFINE A<-@p^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  CPt
	.TRV2 (A)
	.TRV2 (Sd@ Dt'
	.TRV3 (D0A,\..NV)	
	IFB DP<B>,<..NV=..NV+1Dp>
	IFNB <B>,<..NV=..NV+B>,<..Sd` E0t5
   IFDEFEP A,<.IF A,SYMBOEpL,<PRINTX TRVAR FA ALREADY DEFINEDF0>>
	DEFINE A<^OFPB(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP _%~ 9/
		$CALL	YI%WTO		
		LSTOF.x			
		JRST	g		
		$WTRST			
	IF8NB <A>,<$WTMTY (X<A>)>	
	IFNB <xB>,<$WTTYP (<B>)>	
	IFNB <C>,<$8WTTXT (<C>)>	
	XIFNB <D>,<$WTOBJx (<D>)>	
	IFNB <E>,<$WTACK (<E8>)>	
		IRP F,<XF>		
		$WTBLD			x
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP