Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11m-bm - t20sub/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,S@PFKyPF{WPF)0PF$XZPF$[PF%qPF%xP F-mP F.(9P F/
F~	7P FYP F[P F[7P F[PP F]tP 
FX9P 
F&-7P F.	P F.KP 	F<:P F>*:P 
I$+P I$[ZP @I$\YP I%zP  I%HuP I%KqP I&-P I&LQP KH$2@#KH$@#KH$T@#KH$*y@#KH$*}@#KH$+@#KH$,}@#KH$-3@#KH$8s@#KH$8y@#KH$9@#KH$93@#KH$9u@#KH$:@#KH$;@#6KH$;r@#KH$;s@#KH$=9@#KH$H7@#KH$Hq@#4KH$Hs@#1KH$I6@#	KH$I;@#	KH$IV@#
KH$K@#
KH$K2@#KH$L@#0KH$M@#KH$M8@#
KH$Y@#
KH$[s@#2KH$h1@#KH$k@#KH$k@#KH$kP@#KH$kQ@#KH$kS@#KH$kx@#KH$lt@#0KH$l}@#KH$m6@#KH%1@#5KH%6@#KH%7@#KH%Q@#KH%W@#KH%Y@#KH%T@#KH%V@#KH%<@#KH%x@#KH%Q@#KH%t@#KH%)W@#KH%8S@#KH%9<@#KH%<S@#KH%<}@#KH%Lw@#KH%X<P#6KH%Z7@#KH%\W@#KH%\Y@#KH%h6@#2KH%i3@#KH%k@#KH%k3@#3KH%l@#KH%n@#KH%|R@#KH%|S@#KH&	3@#KH&@# KH&y@# KH&
[@#!KH&@#!KH&(1@#"KH&(1@#"KH&(:@##KH&(S@##KH&)3@#$KH&)9@#$KH&)<@#%KH&)P@#%KH&)V@#&KH&+@#&KH&+S@#'KH&+V@#'KH&+x@#(KH&,[@#(KH&,p@#)KH&,r@#)KH&,}@#*KH&-@#*KH&-@#3KH&-@#4KH&98@#+KH&:=@#+KH&=8@#1KH&LR@#,KH&LZ@#,KH&N8@#5KH&XS@#-KH&Y@#-KH&i9@#.KH&y9@#.KH'1@#/KH'v@#/K`%X<P#'L$2Q $L$Q L$)YQ HL$*2Q $HL$*yQ 
 L$*zQ L$*}Q $L$+Q HL$+Q  L$,}Q L$8(Q L$8)Q L$88Q L$9Q L$:Q HL$;Q HL$;rQ $L$=Q L$H7Q $$L$I;Q $HL$IVQ HL$LPQ L$LVQ $L$L{Q 6$L$MQ $L$MPQ L$MVQ 6$L$XwQ $L$YQ L$[Q L$\pQ L$\vQ $HL$\yQ HL$h1Q HL$h1Q $HL$iQ $HL$j6Q 6$L$kQ HL$kQ HL$kPQ L$kQQ L$kxQ $HL$lqQ $HL$l}Q L%7Q 6$L%TQ $HL%VQ $HL%tQ $HL%)WQ HL%+VQ $HL%8SQ L%;VQ L%<SQ 6$L%<}Q $$L%H7Q $L%LwQ HL%XSQ $$L%[yQ $HL%\WQ L%\YQ HL%h6Q HL%iQ L%iQ $$L%i<Q HL%k0Q L%k6Q $L%kpQ $L%kuQ $L%kxQ $HL%nQ HL%|SQ L%|zQ $$L&2Q 6$L&	yQ $HL&yQ $HL&{Q HL&
hQ $HL&
hQ $HL&
iQ $HL&
iQ $HL&
jQ $HL&
jQ $HL&
kQ $HL&
kQ $H	L&
|Q $HL&(1Q 6$L&(:Q $HL&(SQ L&)Q L&)3Q $L&)HQ $HL&)IQ L&)JQ L&)PQ L&)VQ L&+Q HL&+xQ HL&,HQ lL&,IQ L&,IQ L&,JQ L&,hQ .4L&,iQ $HL&,iQ L&,jQ L&,jQ L&,kQ $HL&,kQ L&,lQ L&,lQ L&,pQ L&,vQ $HL&,yQ HL&,}Q $HL&.Q 00L&.Q L&.	Q L&.	Q L&.
Q L&.
QL&9Q$HL&:QQHL&:=QLHL&=Q $HL&=Q HL&>HQ HL&>HQ HL&>IQ HL&>IQ HL&>JQ HL&>JQ HL&>KQ HL&>KQ H	L&LQ L&LQ $$L&N8Q $HL&XSQ L&\wQ $$L&\{Q $L&\}Q HL&i9Q $L&lPQ L&lVQ 6$L&xqQ L&xzQ HL&{\Q $HL'1Q HL
		IF1,<P88RINTX	%"F$ANB" RM8XS-11 ONLY, IGNORED BY RMS-20>
	L<` cX&$$NEWVAL (BKS,A)NEWVAL (LL` c&$$NEWVAL (BLS,A)NEWVAL (L>@ a&	$$NEWVAL (BSZ,A)NEWVAL (LN d&!$$NEWVAL (CTX,A)NEWVAL (L%h  4#%
		IF1,<P48RINTX	%"F$DNA" RM4XS-11 ONLY, IGNORED BY RMS-20>
	L%l` 5#-
		IF1,<P58RINTX	%"F$DNS" RM5XS-11 ONLY, IGNORED BY RMS-20>
	L4` ]%i$$NEWVAL (FAC,A)NEWVAL (L5h  _%y$$NEWVAL (FNA,A)NEWVAL (L5l` 3#
		IF1,<P38RINTX	%"F$FNS" RM3XS-11 ONLY, IGNORED BY RMS-20>
	L5| ^%q$$NEWVAL (FOP,A)NEWVAL (L6>@ dX&%$$NEWVAL (FSZ,A)NEWVAL (LTk@ \X%e$$NEWVAL (JFN,A)NEWVAL (LUk bX&$$NEWVAL (JNL,A)NEWVAL (Ld: :#U
		IF1,<P:8RINTX	%"F$LCH" RM:XS-11 ONLY, IGNORED BY RMS-20>
	Ln+@V`X&$$NEWVALA(MRN,A)NEWVAL(Ln,` `&$$NEWVAL (MRS,A)NEWVAL (Lt  7#9$$NEWVAL (NAM,A)NEWVAL (L~)` ^X%u$$NEWVAL (ORG,A)NEWVAL (L X%}$$NEWVAL (RAT,A)NEWVAL (Lk  aX&
		IF1,<P68RINTX	%"F$RTV" RM6XS-11 ONLY, IGNORED BY RMS-20>
	L
@ ]X%m$$NEWVAL (SHR,A)NEWVAL (L' 7X#=$$NEWVAL (TYP,A)NEWVAL (LD@ b&$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ RX%a
	IFNB <RxA>,<			;RUN-TIME SINIT
		$$MAPADD S8(A,$$ADDR);	; WISXLL REFERENCE FAB SxVIA $$ADDR
		SYNT SF$$RT,$$SET
	>T8					
	IFB <A>,TX<SYN SF$$CT,$$SETTx>	
		$$CURR (F,BUID)
		$$CURR (F,U8BLN)
		$$CURR (FUX,STS)
		$$CURR (UxF,STV)
		$$CURR V(F,IFI)
		$$CURRV8 (F,JFN)
		$$CURVXR (F,FAC)
		$$CUVxRR (F,SHR)
		$$CWURR (F,FOP)
		$$W8CURR (F,ORG)
		$WX$CURR (F,FNA)
		Wx$$CURR (F,RAT)
	X	$$CURR (F,MRS)
X8		$$CURR (F,MRN)
		$$CURR (F,BSZ)Xx
		$$CURR (F,RFMY)
		$$CURR (F,XAY8B)
		$$CURR (F,JYXNL)
		$$CURR (F,YxBLS)
		$$CURR (FZ,BKS)
		$$CURR (Z8F,DEV)
		$$CURR ZX(F,SDC)
		$$CURRZx (F,CTX)
		$$CUR[R (F,FSZ)	;![AWN][8
		$$CURR (F,TYP[X)	;![AWN]
		$$CU[xRR (F,NAM)	;![AWN\]
		$$CURR (F,ALQ)	;![AWN]
	ALMI  9X'
	IFNDEF dx$$ADDR,<				
		<e$$SET(BID)>_^D18 e8! <$$SET(BLN)>
	eX	<$$SET(STS)>^D1ex8 ! <$$SET(STV)>
		<$$SET(CTX)>
f8		<$$SET(IFI)>_^DfX18 ! <$$SET(JFN)>fx
		<$$SET(FAC)>_g^D18 ! <$$SET(SHRg8)>
		<$$SET(FOP)gX>_^D18 ! <$$SET(OgxRG)>_^D14 ! <$$SEhT(BSZ)>_^D8 ! <$$h8SET(BLS)>
		<$$ShXET(FNA)>
		<$$SEhxT(RAT)>_^D18 ! <$i$SET(MRS)>
		<$$i8SET(MRN)>
		<$$SiXET(FSZ)>_^D13 ! <ix$$SET(BKS)>_^D5 !j <$$SET(RFM)> ;![j8AWN]
		<$$SET(JNjXL)>_^D18 ! <$$SETjx(XAB)>
		<$$SET(kDEV)>_^D18 ! <$$Sk8ET(SDC)>
		<$$SEkXT(TYP)>_^D18 ! <$kx$SET(NAM)>	;![AWNl]
		<$$SET(ALQ)>l8				;![AWN]
		EXlXP 0,0
	>					;ENlxD IFNB
	IFDEF $$mADDR,<
		$$SET(Bm8ID)
		$$SET(BLN)mX
		$$SET(STS)
	mx	$$SET(STV)
		$$nSET(IFI)
		$$SETn8(JFN)
		$$SET(FAnXC)
		$$SET(SHR)
		$$SET(FOP)
		o$$SET(ORG)
		$$So8ET(FNA)
		$$SET(oXRAT)
		$$SET(MRSox)
		$$SET(MRN)
p		$$SET(BSZ)
		$p8$SET(RFM)
		$$SEpXT(XAB)
		$$SET(JpxNL)
		$$SET(BLS)q
		$$SET(BKS)
	q8	$$SET(DEV)
		$$qXSET(SDC)
		$$SETqx(CTX)
		$$SET(FSrZ)			;![AWN]
		$r8$SET(NAM)			;![AWrXN]
		$$SET(TYP)	rx		;![AWN]
		$$SEsT(ALQ)			;![AWN]
		
		PURGE $$ADsXDR			
	>					
				
	>					
	MN@ w8/; $$ZERO(A,FA$LNG) ERO(AM$P M$P @M$VP M$*7P M$+P M$,WP  M$8VP  M$8vP M$:3P M$<@P M$=P M$I6P M$I[P M$KP @M$LUP M$[1P M$j<P M$mP M$y:P M%P M%P M%@P M%JwP M%LpP M%YP M%ZrP M%[ZP M%h6P M%i:P @M%j6P M%yP  M%yXP  M%}:P M&
WP M&)1P M&)6P M&+:P M&8sP  M&8yP M&98P M&;P M&;:P$M&<P M&<P M&<2P M&=P M&=8P M&K8P M&LVP M&LWP M&YP M&\P M&h9P M&iQP M&x:P M$)6@# M$)Q@# M$*@#!M$*9@#!M$[S@#"M$[x@#"M%	@##M%S@##M%kp@#$M%kt@#$M%ky@#%M%ky@#%M%kz@#&M&	w@#&M&,}@#'M&[V@#'UL%X<P UL%Z7P \.8  YX-M $$NEWVAL (ESA,A)NEWVAL \.<` Z-Q $$NEWVAL (ESS,A)NEWVAL \u| [-Y $$NEWVAL (NOP,A)NEWVAL \I@ ZX-U $$NEWVAL (RLF,A)NEWVAL \8  [X-] $$NEWVAL (RSA,A)NEWVAL \<` \-a $$NEWVAL (RSS,A)NEWVAL ]$zP @]$9P ]$9P ]$9<P ]$;PP ]$I;P$]$J9P!]$YQ  ]$YQ @]$[PQ ]$]Q ]$]RQ ]$^P  ]${RP ]% ]%KSP ]%]6Q  ]%^P ?]%^P ?]%h6P @]%jP ]%j6P ]%krP ]&
WP ]&7Q ]&>7P ]&IYP  ]&N8P ]&ZP ]&[P ]&[ZP"]&i9P ]&{Q @]hH@ Px-I
	IFNB <QA>,<
		$$MAPADD Q8(A,$$ADDR);	; WIQXLL REFERENCE THE QxBLOCK VIA $$ADDR
		SYN SN$$RT,$$SR8ET
	>					
	IFBRX <A>,<SYN SN$$CTRx,$$SET>	
		$$CURSR (N,BID)
		$$CUS8RR (N,BLN)
		$$CSXURR (N,ESA)
		$$SxCURR (N,ESS)
		$T$CURR (N,ESL)
		T8$$CURR (N,RLF)
	TX	$$CURR (N,NOP)
Tx		$$CURR (N,RSA)
		$$CURR (N,RSL)U8
		$$CURR (N,RSSUX)
		$$CURR (N,FNUxB)
		$$CURR (N,WVCC)
		$$CURR (N,V8CHA)
		$$CURR (NVX,NDL)
		$$CURR (VxN,DVL)
		$$CURR W(N,NML)
		$$CURRW8 (N,TPL)
		$$CURWXR (N,VRL)
		$$CUWxRR (N,NDA)
		$$CXURR (N,DVA)
		$$X8CURR (N,DRA)
		$XX$CURR (N,NMA)
		Xx$$CURR (N,TPA)
	Y	$$CURR (N,VRA)
	 URR (N,VRA)
]hI  \X.M
	IFNDEF \x$$ADDR,<
		<$$SE]T(BID)>_^D18 ! <$]8$SET(BLN)>
		<$$]XSET(ESA)>
		<$$S]xET(ESL)>_^D18 ! <^$$SET(ESS)>
		<$^8$SET(NOP)>_^D18 !^X <$$SET(RLF)>
		^x<$$SET(RSA)>
		<_$$SET(RSL)>_^D18 _8! <$$SET(RSS)>
	_X	<$$SET(FNB)>
		_x<$$SET(WCC)>
		<`$$SET(DVL)>_^D27 `8! <$$SET(NDL)>_^D`X18 ! <$$SET(CHA)>`x
		<$$SET(VRL)>_a^D27 ! <$$SET(TPLa8)>_^D18 ! <$$SET(aXNML)>_^D9 ! <$$SEaxT(DRL)>
		<$$SETb(NDA)>
		<$$SET(b8DVA)>
		<$$SET(DbXRA)>
		<$$SET(NMbxA)>
		<$$SET(TPAc)>
		<$$SET(VRA)c8>
	>				;IFNDEF
	IFDEF $$ADDR,<
		$$SET(BID)
		d$$SET(BLN)
		$$Sd8ET(ESA)
		$$SET(dXESL)
		$$SET(ESSdx)
		$$SET(NOP)
e		$$SET(RLF)
		$e8$SET(RSA)
		$$SEeXT(RSL)
		$$SET(RexSS)
		$$SET(FNB)f
		$$SET(WCC)
	f8	$$SET(DVL)
		$$fXSET(NDL)
		$$SETfx(CHA)
		$$SET(VRgL)
		$$SET(TPL)
		$$SET(NML)
		gX$$SET(DRL)
		$$SgxET(NDA)
		$$SET(hDVA)
		$$SET(DRAh8)
		$$SET(NMA)
hX		$$SET(TPA)
		$hx$SET(VRA)

		PUiRGE $$ADDR			;SO i8NEXT C/R DECIS COiXRRECT
	>					;IFDEF
	>					;IF]hN@Py/IA$$ZERO(A,NA$LNG)ERO(AdNRX(A$$NEWVAL(CTX,A)NEWVALVd-L`RX(A$$NEWVAL(ELS,A)NEWVALVd4@R|'aA$$NEWVAL(FAB,A)NEWVAL d\)@ X( $$NEWVAL (KBF,A)NEWVAL d^)@ X'} $$NEWVAL (KRF,A)NEWVAL d^>@ ( $$NEWVAL (KSZ,A)NEWVAL df;@ ( $$NEWVAL (LSN,A)NEWVAL dl)@ (	 $$NEWVAL (MBF,A)NEWVAL d X(
		IF1,<P:xRINTX	%"R$RHB" RM;S-11 ONLY, IGNORED BY RMS-20>
	d| }'i $$NEWVAL (ROP,A)NEWVAL d>@ ~X'u $$NEWVAL (RSZ,A)NEWVAL d,)@ }X'm $$NEWVAL (UBF,A)NEWVAL d.>@ 'y $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ t']
	IFNB <t8A>,<
		$$MAPADD tX(A,$$ADDR);	; WItxLL REFERENCE THE uBLOCK VIA $$ADDR
		SYN SR$$RT,$$SuXET
	>					
	IFBux <A>,<SYN SR$$CTv,$$SET>	
		$$CURv8R (R,BID)
		$$CUvXRR (R,BLN)
		$$CvxURR (R,STS)
		$$wCURR (R,STV)
		$w8$CURR (R,ISI)
		wX$$CURR (R,FAB)
	wx	$$CURR (R,RAC)
x		$$CURR (R,ROP)
		$$CURR (R,UBF)xX
		$$CURR (R,RBFxx)
		$$CURR (R,RSyZ)
		$$CURR (R,Uy8SZ)
		$$CURR (R,yXRFA)
		$$CURR (Ryx,KRF)
		$$CURR (zR,KSZ)
		$$CURR z8(R,KBF)
		$$CURRzX (R,MBF)
		$$CURzxR (R,LSN)
		$$CU{RR (R,BKT)
		$$C{8URR (R,PAD)
		$${XCURR (R,CTX)
	 URR (R,CTX)
	 eI  (}
	IFNDEF 8$$ADDR,<
		<$$SEXT(BID)>_^D18 ! <$x$SET(BLN)>
		<$$SET(STS)>_^D18 ! 8<$$SET(STV)>
		<X$$SET(CTX)>
		<$x$SET(ISI)>_^D18 ! <$$SET(FAB)>
		8<$$SET(RAC)>_^D27X ! <$$SET(MBF)>_^xD18 ! <$$SET(ROP)>
		<$$SET(UBF)>8
		<$$SET(RBF)>
		<$$SET(RSZ)>_^xD18 ! <$$SET(USZ)>
		<$$SET(RFA)>8
		<$$SET(KRF)>_X^D27 ! <$$SET(KSZx)>_^D18 ! <$$SET(	LSN)>
		<$$SET(K	8BF)>
		<$$SET(BK	XT)>
		<$$SET(PAD	x)>_^D27
		EXP 0,
0,0
	>				;IFNDE
8F
	IFDEF $$ADDR,
X<
		$$SET(BID)

x		$$SET(BLN)
		$$SET(STS)
		$$SE8T(STV)
		$$SET(IXSI)
		$$SET(FAB)x
		$$SET(RAC)
	
	$$SET(ROP)
		$$
8SET(UBF)
		$$SET
X(RBF)
		$$SET(RS
xZ)
		$$SET(USZ)
		$$SET(RFA)
		SET(KRF)
		$$SZ)
		$$SET(
		$$SET(MBF)
		$$SET(LSN)
8		$$SET(BKT)
		$X$SET(PAD)
		$$SExT(CTX)
		PURGE $$ADDR			;SO NEXT 8C/R DECIS CORRECTX
	>					;IFDEF
	>					;IFDEF
eN@ wx/? $$ZERO(A,RA$LNG) ERO(Ae$)ZP e$+P e$[sP e$iP e%9<P e%9rP @e%9zP  e%KpP e%KqP e%j6P e%lXP e&2P e&(4P e&)PP e&98P e&LPP e&x0P e&xPP e&xTP e4%X< e4%Z7 e7IP e7IP f$(` 8! A$B==1BC  A$B==1Bf$H` x! A$B==^DC  A$B==^Df&8` 8! A$B==C$D  A$B==Cg Hz Ix$QIFDEF C$$JA,<C$$A> IFNDEF C$$A,<$$FA>F g LZ HX$K
	    IFNHxDEF C$$A,<IFN $$IFA,<C$$A==$$FAI8>>
	    STO$$C(A)			
	TO$$C(g8 Hz Ox%IFDEF C$$PA,<C$$A> IFNDEF C$$A,<$$NA>F g8 LZ NX${
	    IFNNxDEF C$$A,<IFN $$ONA,<C$$A==$$NAO8>>
	    STO$$C(A)			
	TO$$C(gH Hz Kx$aIFDEF C$$LA,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ JX$[
	    IFNJxDEF C$$A,<IFN $$KRA,<C$$A==$$RAK8>>
	    STO$$C(A)			
	TO$$C(gP Hz Qx%IFDEF C$$RA,<C$$A> IFNDEF C$$A,<$$TA>F gP LZ PX%
	    IFNPxDEF C$$A,<IFN $$QTA,<C$$A==$$TAQ8>>
	    STO$$C(A)			
	TO$$C(gRxA G$A			
	GX  G8IFDEF C$$A,<			
		<HRREI 1,> ! CGx$$A		
		$STORE	H(1,A,$$ADDR)		
	    >
	R)		
gT$M8@ gT%@ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz Mx$qIFDEF C$$NA,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ LX$k
	    IFNLxDEF C$$A,<IFN $$MXA,<C$$A==$$XAM8>>
	    STO$$C(A)			
	TO$$C(hH  nX.u $$NEWVAL (CLA,A)NEWVAL h4M o.y $$NEWVAL (FDT,A)NEWVAL h5K@ oX.} $$NEWVAL (FLN,A)NEWVAL h68` p/ $$NEWVAL (FSC,A)NEWVAL hm|@ q/	 $$NEWVAL (MOR,A)NEWVAL ht^ pX/ $$NEWVAL (NEX,A)NEWVAL i?D(P i?DHP id$qP id$.:P id$K
P id%0P id%KSP id%T(P id&N8P igH@ j.q
	IFNB <j8A>,<
		$$MAPADD jX(A,$$ADDR);	; WIjxLL REFERENCE THE kBLOCK VIA $$ADDR
		SYN ST$$RT,$$SkXET
	>					
	IFBkx <A>,<SYN ST$$CTl,$$SET>	
		$$CURl8R (T,BID)
		$$CUlXRR (T,BLN)
		$$ClxURR (T,CLA)
		$$mCURR (T,FDT)
		$m8$CURR (T,FLN)
		mX$$CURR (T,FSC)
	mx	$$CURR (T,NEX)
n		$$CURR (T,MOR)
	gURR (T,MOR)
	IFNDEF qx$$ADDR,<
		<$$SErT(BID)>_^D18 ! <$r8$SET(BLN)>
		<$$rXSET(FDT)>_^D18 ! rx<$$SET(CLA)>
		<s$$SET(FLN)>_^D18 s8! <$$SET(FDT)>
	sX	<$$SET(MOR)>^D1sx8 ! <$$SET(NEX)>
	>				;IFNDEF
	t8IFDEF $$ADDR,<
	tX	$$SET(BID)
		$$txSET(BLN)
		$$SETu(FDT)
		$$SET(CLu8A)
		$$SET(FLN)
		$$SET(FDT)
		ux$$SET(MOR)
		$$SvET(NEX)
		PURGE v8$$ADDR			;SO NEXTvX C/R DECIS CORRECvxT
	>					;IFDEF
	>					;IFDEFE$$ZERO(A,TY$LNG)WERO(Ap %8*+$$NEWVAL (BKZ,A)NEWVAL (p$@ (8*C$$NEWVAL (DAN,A)NEWVAL (p$k &8*3$$NEWVAL (DFL,A)NEWVAL (p&L &x*7$$NEWVAL (DTP,A)NEWVAL (p,M "8*$$NEWVAL (EDT,A)NEWVAL (p5I` '8*;$$NEWVAL (FLG,A)NEWVAL (p>, B8$
		IF1,<PBXRINTX	%"X$GRP" RMBxS-11 ONLY, IGNORED BY RMS-20>
	pD =8#o
		IF1,<P=XRINTX	%"X$HAL" RM=xS-11 ONLY, IGNORED BY RMS-20>
	pL@ 'x*?$$NEWVAL (IAN,A)NEWVAL (pLk %x*/$$NEWVAL (IFL,A)NEWVAL (p]k  )x*O$$NEWVAL (KNM,A)NEWVAL (pd@ (x*G$$NEWVAL (LAN,A)NEWVAL (pnJ <8#g
		IF1,<P<XRINTX	%"X$MTH" RM<xS-11 ONLY, IGNORED BY RMS-20>
	pw!x*$$NEWVAL (NXT,A)NEWVAL (p~{@ A8$
		IF1,<PAXRINTX	%"X$OWN" RMAxS-11 ONLY, IGNORED BY RMS-20>
	p|@ #x*$$NEWVAL (PGR,A)NEWVAL (p|` *8*i

		$$NE*XWARRVAL (PS0,A)
		$$NEWARRVAL (P+S1,B)
		$$NEWAR+8RVAL (PS2,C)
		+X$$NEWARRVAL (PS3,+xD)
		$$NEWARRVA,L (PS4,E)
		$$N,8EWARRVAL (PS5,F),X
		$$NEWARRVAL (,xPS6,G)
		$$NEWA-RRVAL (PS7,H)
	VAL (PS7,H)
	p}` #8*$$NEWVAL (POW,A)NEWVAL (p)` >8#w
		IF1,<P>XRINTX	%"X$PRG" RM>xS-11 ONLY, IGNORED BY RMS-20>
	p*@ ?8#
		IF1,<P?XRINTX	%"X$PRJ" RM?xS-11 ONLY, IGNORED BY RMS-20>
	p>  "x*$$NEWVAL (PSY,A)NEWVAL (p{ $8*#$$NEWVAL (PWL,A)NEWVAL (pY@ )8*K$$NEWVAL (REF,A)NEWVAL (p+@ E8$/
		IF1,<PEXRINTX	%"X$SBN" RMExS-11 ONLY, IGNORED BY RMS-20>
	p@ -X+

		$$NE-xWARRVAL (SZ0,A)
		$$NEWARRVAL (S.8Z1,B)
		$$NEWAR.XRVAL (SZ2,C)
		.x$$NEWARRVAL (SZ3,/D)
		$$NEWARRVA/8L (SZ4,E)
		$$N/XEWARRVAL (SZ5,F)/x
		$$NEWARRVAL (0SZ6,G)
		$$NEWA08RRVAL (SZ7,H)
	VAL (SZ7,H)
	p` @8$
		IF1,<P@XRINTX	%"X$SYS" RM@xS-11 ONLY, IGNORED BY RMS-20>
	p5{ D8$'
		IF1,<PDXRINTX	%"X$VOL" RMDxS-11 ONLY, IGNORED BY RMS-20>
	p=I C8$
		IF1,<PCXRINTX	%"X$WLD" RMCxS-11 ONLY, IGNORED BY RMS-20>
	pD.  F8$7
		IF1,<PFXRINTX	%"X$XBY" RMFxS-11 ONLY, IGNORED BY RMS-20>
	pT\WP q$4(P q$d(P q$d(P q$dHP q$klP q$lZP q%9P q%KSP 	q%ksP q%|lP q&yP q&$(P q&$HP q&$iP q&,zP q&-P q&-
P q&.P q&.P q&.P q&.P q&90P q&>P q&>P q&>P q&>P 	q&>P q&>P q&D(P q&DHP q&N8P q&k9P qH@ *
	IFNB <8B>,<
		$$MAPADD X(B,$$ADDR)	
		SxYN SX$$RT,$$SET
	>					
	IFB <B8>,<SYN SX$$CT,$$SXET>	
						
		Cx$$COD==XB$A		
		X$$BLN==XA$SXA	8	
						
		$$CUXRR (X,BLN)						
		$$CURR (X,BID)
		$$CURR (X,RS18)
		$$CURR (X,NXXT)

						
		$x$CURR (X,CDT)
		$$CURR (X,RDT)
	8	$$CURR (X,EDT)
X
						
		$$CURxR (X,PSY)
		$$CURR (X,POW)
		$$C8URR (X,PGR)
		$$XCURR (X,PWL)

	x					
		$$CURR (X,RS2)
		$$CURR 8(X,AID)
		$$CURRX (X,BKZ)

					x	
		$$CURR (X,IFL)
		$$CURR (X,D8FL)
		$$CURR (X,XDTP)
		$$CURR (Xx,FLG)
		$$CURR (X,IAN)
		$$CURR 8(X,DAN)
		$$CURRX (X,LAN)
		$$CURxR (X,REF)
		$$CURR (X,KNM)
		$$C8URR (X,RX0)
		$$XCURR (X,RX1)
		$x$CURR (X,RX2)
		$$CURR (X,RX3)
	8	$$CURR (X,RX4)
X		$$CURR (X,RX5)
		$$CURR (X,PS0)
		$$CURR (X,PS18)
		$$CURR (X,PSX2)
		$$CURR (X,PxS3)
		$$CURR (X,PS4)
		$$CURR (X8,PS5)
		$$CURR (XX,PS6)
		$$CURR x(X,PS7)
		$$CURR (X,SZ0)
		$$CUR8R (X,SZ1)
		$$CUXRR (X,SZ2)
		$$CxURR (X,SZ3)
		$$CURR (X,SZ4)
		$8$CURR (X,SZ5)
		X$$CURR (X,SZ6)
	x	$$CURR (X,SZ7)
	
						
		$$CU8RR (X,RS6)
		$$CXURR (X,NOK)
		$$xCURR (X,NOA)
		$ $CURR (X,RS7)
		 8$$CURR (X,RS8)
	 X	$$CURR (X,RS9)
 x
						
						;!ONLY THE NXT FIEL!8D IS SETTABLE

	S SETTABLE

qI  0x-
			$$NEW1VAL(BLN,X$$BLN)  18 
	IFNDEF $$ADDR1X,<

		<$$SET(BI1xD)>_^D18 ! <$$SET2(BLN)>
		<$$SET(28COD)>_^D18 ! <$$S2XET(NXT)>
		IFE <2xC$$COD-XB$DAT>,<
			<$$SET(CDT)>
			<$$SET(RDT)>
			<$$SET(EDT)>
		>
		IFE <C$$C4OD-XB$PRO>,<
			48<$$SET(PSY)>
			4X<$$SET(POW)>
			4x<$$SET(PGR)>
			5<$$SET(PWL)>
		>58
		IFE <C$$COD-X5XB$ALL>,<
			<$$S5xET(AID)>_^D9 ! <$6$SET(BKZ)>
			EX68P 0,0,0
		>
		I6XFE <C$$COD-XB$KEY6x>,<
			<$$SET(DT7P)>_^D18 ! <$$SET78(FLG)>
			<$$SET7X(IAN)>_^D27 ! <$$7xSET(DAN)>_^D18 ! 8<$$SET(LAN)>_^D9 88! <$$SET(REF)>
	8X		<$$SET(IFL)>_^D8x18 ! <$$SET(DFL)>9
			<$$SET(KNM)>98
			EXP 0,0,0,0,9X0
			<$$SET(PS0)9x>_^D18 ! <$$SET(S:Z0)>
			<$$SET(P:8S1)>_^D18 ! <$$SE:XT(SZ1)>
			<$$SE:xT(PS2)>_^D18 ! <$;$SET(SZ2)>
			<$;8$SET(PS3)>_^D18 !;X <$$SET(SZ3)>
		;x	<$$SET(PS4)>^D1<8 ! <$$SET(SZ4)>
			<$$SET(PS5)>_<X^D18 ! <$$SET(SZ5<x)>
			<$$SET(PS6=)>_^D18 ! <$$SET(=8SZ6)>
			<$$SET(=XPS7)>_^D18 ! <$$S=xET(SZ7)>
		>
		>IFE <C$$COD-XB$SU>8M>,<
			<$$SET(N>XOK)>_^D9 ! <$$SET>x(NOA)>
			EXP 0,?0,0
		>

		IFE?8 <C$$COD-XB$CFG>,?X<
			EXP 0,0,0,0?x,0,0
		>

	>
@	IFDEF $$ADDR,<
@8						
				; STO@XRE COMMON HEADER @xFOR ALL XAB TYPESA
		$$SET(BID)
	A8	$$SET(RS1)
		$$AXSET(COD)
		$$SETAx(NXT)
				; STORBE REST OF XAB DEPB8ENDING ON IT'S TYBXPE
		IFE <C$$CODBx-XB$DAT>,<
		$$SCET(BLN)
		$$SET(C8CDT)
		$$SET(RDTCX)
		$$SET(EDT)
Cx		>

		IFE <C$$DCOD-XB$PRO>,<
		D8$$SET(BLN)
		$$SDXET(PSY)
		$$SET(DxPOW)
		$$SET(PGRE)
		$$SET(PWL)
E8		>

		IFE <C$$EXCOD-XB$ALL>,<
		Ex$$SET(BLN)
		$$SFET(RS2)
		$$SET(F8AID)
		$$SET(BKZFX)
		>

		IFE <FxC$$COD-XB$KEY>,<
		$$SET(BLN)
		G8$$SET(IFL)
		$$SGXET(DFL)
		$$SET(GxDTP)
		$$SET(FLGH)
		$$SET(IAN)
H8		$$SET(DAN)
		$HX$SET(LAN)
		$$SEHxT(REF)
		$$SET(KINM)
		$$SET(RX0)I8
		$$SET(RX1)
	IX	$$SET(RX2)
		$$IxSET(RX3)
		$$SETJ(RX4)
		$$SET(RXJ85)

		$$SET(PS0JX)
		$$SET(PS1)
Jx		$$SET(PS2)
		$K$SET(PS3)
		$$SEK8T(PS4)
		$$SET(PKXS5)
		$$SET(PS6)Kx
		$$SET(PS7)
L
		$$SET(SZ0)
		L8$$SET(SZ1)
		$$SLXET(SZ2)
		$$SET(LxSZ3)
		$$SET(SZ4M)
		$$SET(SZ5)
M8		$$SET(SZ6)
		$MX$SET(SZ7)
		>
Mx
		IFE <C$$COD-XBN$SUM>,<
		$$SET(N8BLN)
		$$SET(RS6NX)
		$$SET(NOK)
Nx		$$SET(NOA)
		$O$SET(RS7)
		$$SEO8T(RS8)
		$$SET(ROXS9)
		>
		IFE <OxC$$COD-XB$CFG>,<
		$$SET(BLN)
		P8>
		PURGE $$ADDR			
	>					
	qN@ x8/E $$ZERO(AxX,%NAME(XA$SX,B)) AME(XA$SX,B))q$vP q$P q$P q$P q$lP q$(yP q$*:P q$+P 	q$+P 	q$8:P q$9P q$9SP q$:P q$:P 
q$;8P q$;PP q$<P q$DwP q$H:P q$IYP q$J9P 
q$J9P q$LWP q$MP q$iP q$kP q$k	P q$lP q$lqP q$yVP q${`P q%
tP q%5P q%JP q%LP q%96P q%9<P q%X:P q%X<P q%YP q%h6P q%j6P q%}WP q&1P q&
RP q&
VP 
WP q&(:P q&)P q&)1P q&)7P q&*P q&*rP q&+P q&,P q&,RP q&,SP q&-QP q&8PP q&93P q&:<P q&;6P 
q&<0P q&<7P q&<:P q&=P q&=6P q&=pP q&[JP q&x9P q&{P q'P 
q@&
PP q@&
QP q@&
RP q@&
RP q@&
VP q@&
YP q@&
ZP q@&
[P q@&
\P q`$4P q`$6P q`%X<P q`%k`P q`%t(P q`%t(P q`%t)P q`%t)P q`%t*P q`%t*P q`%t+P q`%t+P q`%t,P 	q`%t,P 	q`%tHP 
q`%tHP 
q`%tIP q`%xwP q`%xzP q`%yHP q`%yHP q`%yIP q`%yIP q`%yJP q`%yJP q`%yKP q`%yKP q`%yLP q`%yLP q`%z2P q`%{P q`%|zP q`%|{P q`&P q`& P q`&(P q`&(P q`&)P q`&)P q`&*P q`&*P q`&+P q`&+P q`&,P 	q`&,P 	q`&@P q`&HP 
q`&HP 
q`&IP q`&IP q`&JP 
q`&JP 
q`&KP q`&`P q`&hP q`&hP q`&iP q`&iP q`&jP q`&jP q`&P q`& P q`&@P q`&`P q`&P q`& P q`&wP 	q`&zP q`&
2P 	q`&P 	q`&P q`&
@P q`&
zP 	q`&
{P q`&4P q`&4 P q`&4(P q`&4(P q`&4)P q`&4)P q`&4*P q`&4*P q`&4+P q`&4+P q`&4,P 	q`&4,P 	q`&4@P q`&4HP 
q`&4HP 
q`&4IP q`&4IP q`&4JP 
q`&4JP 
q`&4KPq`&4LP q`&4`P q`&4hP q`&4hP q`&4iP q`&4iP q`&4jP q`&4jP q`&4kP q`&5P q`&5 P q`&5@P q`&5`P q`&6P q`&6 P q`&8wP q`&8zP q`&:P 	q`&:2P 	q`&;P 	q`&<zP 	q`&<{P 	q`&=`P q`'9P $0 

	COPYRIGHTP(C)TDIORPORATION 1979, 81986.
	ALL RIGHTXS RESERVED.

\ RESERVED.

\<z !
	IFNB <8B>,<IFL A-B,<PRXINTX ?A HAS A VAxLUE WHICH IS TOO LOW>>
	IFNB <C>8,<IFG A-C,<PRINXTX ?A HAS A VALUxE WHICH IS TOO HIGH>>
IS TOO HIy ,8"e
	C=A+,XB		
	B==B+1			

	B==B+1			\Y 0x#PURGE C$$BPURGE C$$-i !! END 4P 4*2P 4*yP 4+P 4+P 4,}P 4=P 4I;P 4\Y *x"Y
	$$CODE(+.EXBAS,.EXCTR,A,B)
.EXCTR,A,4h1P 4kPP 4kxP 4l}P 56 x!
IF1,<
	$$AB==C$D
8	F$$B==<XX$G>B5X ! <XX$F>B11 ! XxX$E	
  >	;END OF IF1
>	;END O5TP 5)WP 5+VP 5\WP 5\YP 5h6P 5|SP 6(:P 6)HP 6)IP 6)JP 6)VP 69P 6:P 6=P 6=P 6N8P 71P N;v 09
	T$$PS==8F$$A_-^D30		
	TX$$SZ==<F$$A_-^D2x4> & 77	
	T$$OF==F$$A & 777777	
$A& 777777	DEFINE B<A>DEFINE B<l +X"A$MAX==.+xABASE + .ACTR - 1SE + .ACTR - t*2P t+P t:P tLPP tLVP tMPP tMVP t\pP t\vP t\yP t]p ;8#
	IFNB <;xB>,<C$$A==B>
>,<C$$A==B>
t]{ 2#
	DEFINE C$$A<B>		
E tkQP uiP uiP uk0P uk6P ukxP v+P v,pP v,vP v,yP vLP vLP vlPP vlVP vxqP vxzP v{\P *2P *zP +P =P [P h1P tP 8SP <SP <}P LwP XSP 2P (1P (SP )PP +xP ,HP ,IP ,IP ,JP ,}P =P =P XSP \}P X` )8"M
	$$CODE()X.SUBAS,.SUCTR,A,B)
.SUCTR,A,V X!A
	FB$ALL=x=FB$GET+FB$PUT+FB$DEL+FB$UPD+FB$TR8N

	
	$$ASSUMEX(FB$SEQ,0)		;FILEx ORG MUST BE GTR ZERO
	$$ASSUME(R8B$SEQ,0,0)		;RECOXRD ACCESS MUST STxART AT ZERO
	$$ASSUME(XB$KEY,0,0)8		;KEY XAB MUST BXE FIRST
	$$ASSUMxE(XB$STG,0,0)		;STRING DATA-TYPE SHOULD BE ZERO
$*2P $+P $;P $iP $kP $lqP %[yP %i<P ,\Y *"S
	$$CODE(*8.ERBAS,.ERCTR,A,B)
.ERCTR,A,4[R &X"G			
  IF2&x,<
	C$MAX==XX$MA'X		
	JS$MIN==100'80
	JS$MAX==1000+'XXX$MAX
	OPDEF	RM'x$MIN [104B8+1000](	;MINIMUM JSYS  V(8ALUE
	OPDEF	RM$M(XAX [104B8+1000+XX(x$MAX]
  >				
MAX]
  >				
4\Q "1		
    C$8A==XX$MAX		
   X DEFINE $%A(A)<x	
      IFE <RMS$DJ+RMS$DY>,<				8		;a506
       IXFN TOP$10,<PUSHJ x17,RMS$10##+C$A>	
       IFN TOP8$20,<104B8+1000+CX$A>	
     >				x					;a506
     IFN RMS$DY,<PUSHJ8 17,@$$A##>		
 X    IFN RMS$DJ,<PxUSHJ 17,%$A##>		
    >

    DE8FINE $A(.BLK1,.EXRRAD,.BLK2),<
	IxFB <.BLK1>,<IF1,<PRINTX %ARGBLK AD8DRESS OMITTED ON XA MACRO>>
	XMOVxEI	1, .BLK1
	IFI DN <A><RENAME>,< 8					       
	IF XB <.BLK2>,<IF1,<P xRINTX %NEWFAB ADD!RESS OMITTED ON R!8ENAME MACRO>>
	X!XMOVEI 2, .BLK2>
!x	IFDIF <A><RENAM"E>,<
	IFNB <.BLK"82>,<IF1,<PRINTX %"XMORE THAN 2 ARGS "xDETECTED IN A MA#CRO>>>
	$%A			
	IFE <RMS$DY+RMS#X$DJ>,<
		IFNB <.#xERRAD>,<JUMP 17,.$ERRAD>
		IFB <.E$8RRAD>,<JUMP 16,.+$X1>	>  
	IFN <RMS$x$DY+RMS$DJ>,< IFN%B <.ERRAD>,<
		C%8AIL 2,300000			  %X 
		 PUSHJ 17,.E%xRRAD 		>> 
	
  &  >
  XX$MAX==XX$MAX+1		
X==XX5T X!M			
	XX$MAX==0		

	XX$MD2P D)YP D*2P D*}P D+P D8(P D8)P D88P D9P D;rP DH7P DIVP DL{P DMP DXwP DYP Dj6P DkP E7P EVP E;VP EH7P EkpP EkuP EnP E|zP F	yP FyP F{P F
hP F
hP F
iP F
iP F
jP F
jP F
kP F
kP F
|P F)P F)3P F,hP F,iP F,iP F,jP F,jP F,kP F,kP F,lP F,lP F.P F.P F.	P F.	P F.
P F.
P F:=P F>HP F>HP F>IP F>IP F>JP F>JP F>KP F>KP F\wP F\{P Fi9P T\W z/Y
	SETZM	z8A			
	MOVEI	2,AzX			
	MOVEI	1,1(2zx)			
	HRLI	1,A	{		
	BLT	1,B-1(2)		
T	1,B-1(2Ky 02	
      IPFE <RMS$DJ+RMS$DYp>,<						;a506
       IFN TOP$10,0<PUSHJ 17,RMS$10#P#+C$CLOSE>	
    p   IFN TOP$20,<104B8+1000+C$CLOSE>0	
     >								P	;a506
     IFN pRMS$DY,<PUSHJ 17, @$$CLOSE##>		
   0   IFN RMS$DJ,<PU PSHJ 17,%$CLOSE##>		
    LOSE##>{W jp6s	
      IkFE <RMS$DJ+RMS$DYk0>,<						;a506
 kP      IFN TOP$10,kp<PUSHJ 17,RMS$10#l#+C$CONNECT>	
  l0     IFN TOP$20,<lP104B8+1000+C$CONNlpECT>	
     >				m					;a506
     m0IFN RMS$DY,<PUSHJmP 17,@$$CONNECT##>mp		
     IFN RMS$nDJ,<PUSHJ 17,%$COn0NNECT##>		
    NECT##>		
    )0 v08+	
      I0FE <RMS$DJ+RMS$DYP>,<						;a506
 p      IFN TOP$10,<PUSHJ 17,RMS$10#0#+C$CREATE>	
   P    IFN TOP$20,<1p04B8+1000+C$CREATE>	
     >						0			;a506
  IFPN RMS$DY,<PUSHJ 1p7,@$$CREATE##>		
     IFN RMS$DJ,0<PUSHJ 17,%$CREATE##>		
9EAT$XZ 
0FE<<RI$DJ+RMS$DY
p     IFN TOP$10,<PUSHJ 17,RMS$10#0#+C$DEBUG>	
    P   IFN TOP$20,<10p4B8+1000+C$DEBUG>	
     >								0	;a506
     IFN PRMS$DY,<PUSHJ 17,p@$$DEBUG##>		
     IFN RMS$DJ,<PU0SHJ 17,%$DEBUG##>		
    EBUG##>$[ I04e	
      IIPFE <RMS$DJ+RMS$DYIp>,<						;a506
 J      IFN TOP$10,J0<PUSHJ 17,RMS$10#JP#+C$DELETE>	
   Jp    IFN TOP$20,<1K04B8+1000+C$DELETK0E>	
     >						KP			;a506
L0  IFKpN RMS$DY,<PUSHJ 1L7,@$$DELETE##>		
     IFN RMS$DJ,LP<PUSHJ 17,%$DELETE##>		
    LET%q vP7Q	
      IvpFE <RMS$DJ+RMS$DYw>,<						;a506
w0      IFN TOP$10,wP<PUSHJ 17,RMS$10#wp#+C$DISCONNECT>	
       IFN TOP$2x00,<104B8+1000+C$DxPISCONNECT>	
y xp >									;a506
     IFN RMS$DY,y0<PUSHJ 17,@$$DISCyPONNECT##>		
    yp IFN RMS$DJ,<PUSHzJ 17,%$DISCONNECT##>		
    NECT%x :<I	
      IEpFE <RMS$DJ+RMS$DYF>,<						;a506
 F0      IFN TOP$10,FP<PUSHJ 17,RMS$10#Fp#+C$DISPLAY>	
  G     IFN TOP$20,<G0104B8+1000+C$DISPGPLAY>	
     >				Gp					;a506
     HIFN RMS$DY,<PUSHJH0 17,@$$DISPLAY##>HP		
     IFN RMS$HpDJ,<PUSHJ 17,%$DIISPLAY##>		
    PLAY##>		
    -m JDk	
      IJ0FE <RMS$DJ+RMS$DYJP>,<						;a506
 Jp      IFN TOP$10,K<PUSHJ 17,RMS$10#K0#+C$ENTER>	
    KP   IFN TOP$20,<10Kp4B8+1000+C$ENTER>L	
     >								L0	;a506
     IFN LPRMS$DY,<PUSHJ 17,Lp@$$ENTER##>		
  M   IFN RMS$DJ,<PUM0SHJ 17,%$ENTER##>		
    NTER##>.(9 Q=#	
      IQ0FE <RMS$DJ+RMS$DYQP>,<						;a506
 Qp      IFN TOP$10,R<PUSHJ 17,RMS$10#R0#+C$ERASE>	
    RP   IFN TOP$20,<10Rp4B8+1000+C$ERASE>S	
     >								S0	;a506
     IFN SPRMS$DY,<PUSHJ 17,Sp@$$ERASE##>		
  T   IFN RMS$DJ,<PUT0SHJ 17,%$ERASE##>		
 RASE##>/	
      IU0FE <RMS$DJ+RMS$DYUP>,<						;a506
 Up      IFN TOP$10,V<PUSHJ 17,RMS$10#V0#+C$EXTEND>	
   VP    IFN TOP$20,<1Vp04B8+1000+C$EXTENWD>	
     >						W0			;a506
X  IFWPN RMS$DY,<PUSHJ 1Wp7,@$$EXTEND##>		
     IFN RMS$DJ,X0<PUSHJ 17,%$EXTEND##>		
    TEN5R T05=	
      ITPFE <RMS$DJ+RMS$DYTp>,<						;a506
 U      IFN TOP$10,U0<PUSHJ 17,RMS$10#UP#+C$FIND>	
V0  Up  IFN TOP$20,<104VB8+1000+C$FIND>	
     >									;VPa506
     IFN RMVpS$DY,<PUSHJ 17,@$W$FIND##>		
     W0IFN RMS$DJ,<PUSHJWP 17,%$FIND##>		
    FIND##>		
5M9 #P:7	
      I#pFE <RMS$DJ+RMS$DY$>,<						;a506
 $0      IFN TOP$10,$P<PUSHJ 17,RMS$10#$p#+C$FLUSH>	
    %   IFN TOP$20,<10%04B8+1000+C$FLUSH>%P	
     >								%p	;a506
     IFN &RMS$DY,<PUSHJ 17,&0@$$FLUSH##>		
  &P   IFN RMS$DJ,<PU&pSHJ 17,%$FLUSH##>		
    LUSH##>6)2 \={	
      I\0FE <RMS$DJ+RMS$DY\P>,<						;a506
 \p      IFN TOP$10,]<PUSHJ 17,RMS$10#]0#+C$FREE>	
^  ]P  IFN TOP$20,<104]pB8+1000+C$FREE>	
     >									;^0a506
     IFN RM^PS$DY,<PUSHJ 17,@$^p$FREE##>		
     _IFN RMS$DJ,<PUSHJ_0 17,%$FREE##>		
    FREE##>		
<] (02]	
      I(PFE <RMS$DJ+RMS$DY(p>,<						;a506
 )      IFN TOP$10,)0<PUSHJ 17,RMS$10#)P#+C$GET>	
      )p IFN TOP$20,<104B*8+1000+C$GET>	
 *0    >									;a5*P06
     IFN RMS$*pDY,<PUSHJ 17,@$$G+ET##>		
     IFN+0 RMS$DJ,<PUSHJ 17+P,%$GET##>		
    $GET##>		
    l\y .P;	
      I.pFE <RMS$DJ+RMS$DY/>,<						;a506
 /0      IFN TOP$10,/P<PUSHJ 17,RMS$10#/p#+C$MESSAGE>	
  0     IFN TOP$20,<00104B8+1000+C$MESS0PAGE>	
     >				0p					;a506
     1IFN RMS$DY,<PUSHJ10 17,@$$MESSAGE##>1P		
     IFN RMS$1pDJ,<PUSHJ 17,%$ME2SSAGE##>		
    SAGE##>		
    u{2 :0;o	
      I:PFE <RMS$DJ+RMS$DY:p>,<						;a506
 ;      IFN TOP$10,;0<PUSHJ 17,RMS$10#;P#+C$NOMESSAGE>	
;p       IFN TOP$20<,<104B8+1000+C$NO<0MESSAGE>	
     ><P									;a506
 <p    IFN RMS$DY,<P=USHJ 17,@$$NOMESS=0AGE##>		
     IF=PN RMS$DJ,<PUSHJ 1=p7,%$NOMESSAGE##>		
 SAGE##>	w
      Ir0FE <RMS$DJ+RMS$DYrP>,<						;a506
 rp      IFN TOP$10,s<PUSHJ 17,RMS$10#s0#+C$NXTVOL>	
   sP    IFN TOP$20,<1sp04B8+1000+C$NXTVOtL>	
     >						t0			;a506
u  IFtPN RMS$DY,<PUSHJ 1tp7,@$$NXTVOL##>		
     IFN RMS$DJ,u0<PUSHJ 17,%$NXTVOL##>		
    TVO~	7 	1-	
      I	8FE <RMS$DJ+RMS$DYx>,<						;a506
 X      IFN TOP$10,X<PUSHJ 17,RMS$10#x#+C$OPEN>	
0    IFN TOP$20,<1048B8+1000+C$OPEN>	
     >									;Pa506
     IFN RMpS$DY,<PUSHJ 17,@$$OPEN##>		
     0IFN RMS$DJ,<PUSHJP 17,%$OPEN##>		
    OPEN##>		
Y 4C;	
      I40FE <RMS$DJ+RMS$DY4P>,<						;a506
 4p      IFN TOP$10,5<PUSHJ 17,RMS$10#50#+C$PARSE>	
    5P   IFN TOP$20,<105p4B8+1000+C$PARSE>6	
     >								60	;a506
     IFN 6PRMS$DY,<PUSHJ 17,6p@$$PARSE##>		
  7   IFN RMS$DJ,<PU70SHJ 17,%$PARSE##>		
    ARSE##>] 3035	
      I3PFE <RMS$DJ+RMS$DY3p>,<						;a506
 4      IFN TOP$10,40<PUSHJ 17,RMS$10#4P#+C$PUT>	
      4p IFN TOP$20,<104B58+1000+C$PUT>	
 50    >									;a55P06
     IFN RMS$5pDY,<PUSHJ 17,@$$P6UT##>		
     IFN60 RMS$DJ,<PUSHJ 176P,%$PUT##>		
    $PUT##>		
    X2 A3	
      I0FE <RMS$DJ+RMS$DYP>,<						;a506
 p      IFN TOP$10,<PUSHJ 17,RMS$10#0#+C$READ>	
  P  IFN TOP$20,<104pB8+1000+C$READ>	
     >									;0a506
     IFN RMPS$DY,<PUSHJ 17,@$p$READ##>		
     IFN RMS$DJ,<PUSHJ0 17,%$READ##>		
    READ##>		
[ 9]	
      I0FE <RMS$DJ+RMS$DYP>,<						;a506
 p      IFN TOP$10,<PUSHJ 17,RMS$10#0#+C$RELEASE>	
  P     IFN TOP$20,<p104B8+1000+C$RELEASE>	
     >				0					;a506
     PIFN RMS$DY,<PUSHJp 17,@$$RELEASE##>		
     IFN RMS$0DJ,<PUSHJ 17,%$REPLEASE##>		
    EASE##>		
    [7 `F	
      I`0FE <RMS$DJ+RMS$DY`P>,<						;a506
 `p      IFN TOP$10,a<PUSHJ 17,RMS$10#a0#+C$REMOVE>	
   aP    IFN TOP$20,<1ap04B8+1000+C$REMOVbE>	
     >						b0			;a506
c  IFbPN RMS$DY,<PUSHJ 1bp7,@$$REMOVE##>		
     IFN RMS$DJ,c0<PUSHJ 17,%$REMOVE##>		
    MOV[P kFs	
      Ik0FE <RMS$DJ+RMS$DYkP>,<						;a506
 kp      IFN TOP$10,l<PUSHJ 17,RMS$10#l0#+C$RENAME>	
   lP    IFN TOP$20,<1lp04B8+1000+C$RENAMmE>	
     >						m0			;a506
n  IFmPN RMS$DY,<PUSHJ 1mp7,@$$RENAME##>		
     IFN RMS$DJ,n0<PUSHJ 17,%$RENAME##>		
    NAM]t }@	
      I}0FE <RMS$DJ+RMS$DY}P>,<						;a506
 }p      IFN TOP$10,~<PUSHJ 17,RMS$10#~0#+C$REWIND>	
   ~P    IFN TOP$20,<1~p04B8+1000+C$REWIND>	
     >						0			;a506
  IFPN RMS$DY,<PUSHJ 1p7,@$$REWIND##>		
     IFN RMS$DJ,0<PUSHJ 17,%$REWIND##>		
    WINX9 ?D	
      I?0FE <RMS$DJ+RMS$DY?P>,<						;a506
 ?p      IFN TOP$10,@<PUSHJ 17,RMS$10#@0#+C$SEARCH>	
   @P    IFN TOP$20,<1@p04B8+1000+C$SEARCAH>	
     >						A0			;a506
B  IFAPN RMS$DY,<PUSHJ 1Ap7,@$$SEARCH##>		
     IFN RMS$DJ,B0<PUSHJ 17,%$SEARCH##>		
    ARC1 B	
      I0FE <RMS$DJ+RMS$DYP>,<						;a506
 p      IFN TOP$10,<PUSHJ 17,RMS$10#0#+C$SPACE>	
    P   IFN TOP$20,<10p4B8+1000+C$SPACE> 	
     >								 0	;a506
     IFN  PRMS$DY,<PUSHJ 17, p@$$SPACE##>		
  !   IFN RMS$DJ,<PU!0SHJ 17,%$SPACE##>		
    PACE##>&-7 _06	
      I_PFE <RMS$DJ+RMS$DY_p>,<						;a506
 `      IFN TOP$10,`0<PUSHJ 17,RMS$10#`P#+C$TRUNCATE>	
 `p      IFN TOP$20,a<104B8+1000+C$TRUa0NCATE>	
     >		aP							;a506
   ap  IFN RMS$DY,<PUSbHJ 17,@$$TRUNCATEb0##>		
     IFN RbPMS$DJ,<PUSHJ 17,%bp$TRUNCATE##>		
    CATE##>		
.	 >04
      I>PFE <RMS$DJ+RMS$DY>p>,<						;a506
 ?      IFN TOP$10,?0<PUSHJ 17,RMS$10#?P#+C$UPDATE>	
   ?p    IFN TOP$20,<1@04B8+1000+C$UPDAT@0E>	
     >						@P			;a506
A0  IF@pN RMS$DY,<PUSHJ 1A7,@$$UPDATE##>		
     IFN RMS$DJ,AP<PUSHJ 17,%$UPDATE##>		
    DAT.K g>S	
      Ig0FE <RMS$DJ+RMS$DYgP>,<						;a506
 gp      IFN TOP$10,h<PUSHJ 17,RMS$10#h0#+C$UTLINT>	
   hP    IFN TOP$20,<1hp04B8+1000+C$UTLINiT>	
     >						i0			;a506
j  IFiPN RMS$DY,<PUSHJ 1ip7,@$$UTLINT##>		
     IFN RMS$DJ,j0<PUSHJ 17,%$UTLINT##>		
    LIN<: @[	
      I0FE <RMS$DJ+RMS$DYP>,<						;a506
 p      IFN TOP$10,	<PUSHJ 17,RMS$10#	0#+C$WAIT>	
    	P  IFN TOP$20,<104	pB8+1000+C$WAIT>	

     >									;
0a506
     IFN RM
PS$DY,<PUSHJ 17,@$
p$WAIT##>		
     IFN RMS$DJ,<PUSHJ0 17,%$WAIT##>		
    WAIT##>		
>*: )Bc	
      I)0FE <RMS$DJ+RMS$DY)P>,<						;a506
 )p      IFN TOP$10,*<PUSHJ 17,RMS$10#*0#+C$WRITE>	
    *P   IFN TOP$20,<10*p4B8+1000+C$WRITE>+	
     >								+0	;a506
     IFN +PRMS$DY,<PUSHJ 17,+p@$$WRITE##>		
  ,   IFN RMS$DJ,<PU,0SHJ 17,%$WRITE##>		
    RITE##>	e|r !2?
	IFB <A!0>,<IF1,<PRINTX %A!PRGBLK ADDRESS OMI!pTTED ON CLOSE MAC"RO>>
	XMOVEI	1, "0A
	IFIDN <CLOSE"P><RENAME>,<					 "p      
	IFB <C>#,<IF1,<PRINTX %NE#0WFAB ADDRESS OMIT#PTED ON RENAME MAC#pRO>>
	XMOVEI 2, $C>
	IFDIF <CLOS$0E><RENAME>,<
	IF$PNB <C>,<IF1,<PRI$pNTX %MORE THAN 2 %ARGS DETECTED IN %0CLOSE MACRO>>>
	%P$%CLOSE			
	IFE %p<RMS$DY+RMS$DJ>,<&
		IFNB <B>,<JU&0MP 17,B>
		IFB &P<B>,<JUMP 16,.+1&p>	>  
	IFN <RMS$'DY+RMS$DJ>,< IFNB'0 <B>,<
		CAIL 2'P,300000			   
		'p PUSHJ 17,B 		>> 
	
     		>>	}kR np7/
	IFB <Ao>,<IF1,<PRINTX %Ao0RGBLK ADDRESS OMIoPTTED ON CONNECT MopACRO>>
	XMOVEI	1p, A
	IFIDN <CONp0NECT><RENAME>,<		pP			       
	IFB pp<C>,<IF1,<PRINTXq %NEWFAB ADDRESS q0OMITTED ON RENAMEqP MACRO>>
	XMOVEIqp 2, C>
	IFDIF <rCONNECT><RENAME>,r0<
	IFNB <C>,<IFrP1,<PRINTX %MORE TrpHAN 2 ARGS DETECTsED IN CONNECT MACs0RO>>>
	$%CONNECTsP			
	IFE <RMS$DYsp+RMS$DJ>,<
		IFNtB <B>,<JUMP 17,t0B>
		IFB <B>,<JtPUMP 16,.+1>	>  
tp	IFN <RMS$DY+RMS$uDJ>,< IFNB <B>,<u0
		CAIL 2,300000uP			   
		 PUSHJ up17,B 		>> 
	
     		>> 
	
 	X: p8e
	IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPTTED ON CREATE MApCRO>>
	XMOVEI	1, A
	IFIDN <CREA0TE><RENAME>,<				P	       
	IFB <pC>,<IF1,<PRINTX %NEWFAB ADDRESS OM0ITTED ON RENAME MPACRO>>
	XMOVEI 2p, C>
	IFDIF <CR	EATE><RENAME>,<
	0	IFNB <C>,<IF1,<	PPRINTX %MORE THAN	p 2 ARGS DETECTED 
IN CREATE MACRO>>
0>
	$%CREATE			

P	IFE <RMS$DY+RMS$
pDJ>,<
		IFNB <B>,<JUMP 17,B>
	0	IFB <B>,<JUMP 1P6,.+1>	>  
	IFN p<RMS$DY+RMS$DJ>,<
 IFNB <B>,<
		C
0AIL 2,300000			  
P 
		 PUSHJ 17,B 		>> 
	
    	,-3 p9=
	IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPTTED ON DEBUG MACpRO>>
	XMOVEI	1, A
	IFIDN <DEBUG0><RENAME>,<					 P      
	IFB <C>p,<IF1,<PRINTX %NEWFAB ADDRESS OMIT0TED ON RENAME MACPRO>>
	XMOVEI 2, pC>
	IFDIF <DEBUG><RENAME>,<
	IF0NB <C>,<IF1,<PRIPNTX %MORE THAN 2 pARGS DETECTED IN DEBUG MACRO>>>
	0$%DEBUG			
	IFE P<RMS$DY+RMS$DJ>,<p
		IFNB <B>,<JUMP 17,B>
		IFB 0<B>,<JUMP 16,.+1P>	>  
	IFN <RMS$pDY+RMS$DJ>,< IFNB <B>,<
		CAIL 20,300000			   
		P PUSHJ 17,B 		>> 
	
     		>>	-I: M5
	IFB <AM0>,<IF1,<PRINTX %AMPRGBLK ADDRESS OMIMpTTED ON DELETE MANCRO>>
	XMOVEI	1,N0 A
	IFIDN <DELENPTE><RENAME>,<				Np	       
	IFB <OC>,<IF1,<PRINTX %O0NEWFAB ADDRESS OMOPITTED ON RENAME MOpACRO>>
	XMOVEI 2P, C>
	IFDIF <DEP0LETE><RENAME>,<
PP	IFNB <C>,<IF1,<PpPRINTX %MORE THANQ 2 ARGS DETECTED Q0IN DELETE MACRO>>QP>
	$%DELETE			
Qp	IFE <RMS$DY+RMS$RDJ>,<
		IFNB <BR0>,<JUMP 17,B>
	RP	IFB <B>,<JUMP 1Rp6,.+1>	>  
	IFN S<RMS$DY+RMS$DJ>,<S0 IFNB <B>,<
		CSPAIL 2,300000			  Sp 
		 PUSHJ 17,B 		>> 
	
    	N8w zP8
	IFB <Azp>,<IF1,<PRINTX %A{RGBLK ADDRESS OMI{0TTED ON DISCONNEC{PT MACRO>>
	XMOVE{pI	1, A
	IFIDN <|DISCONNECT><RENAM|0E>,<					       
	IFB <C>,<IF1,<|pPRINTX %NEWFAB AD}DRESS OMITTED ON }0RENAME MACRO>>
	}PXMOVEI 2, C>
	I}pFDIF <DISCONNECT>~<RENAME>,<
	IFNB~0 <C>,<IF1,<PRINT~PX %MORE THAN 2 AR~pGS DETECTED IN DISCONNECT MACRO>>>0
	$%DISCONNECT		P	
	IFE <RMS$DY+RpMS$DJ>,<
		IFNB <B>,<JUMP 17,B>0
		IFB <B>,<JUMPP 16,.+1>	>  
	IpFN <RMS$DY+RMS$DJ>,< IFNB <B>,<
0		CAIL 2,300000		P	   
		 PUSHJ 17p,B 		>> 
	
     		>> 
	
   	N< IP=
	IFB <AIp>,<IF1,<PRINTX %AJRGBLK ADDRESS OMIJ0TTED ON DISPLAY MJPACRO>>
	XMOVEI	1Jp, A
	IFIDN <DISKPLAY><RENAME>,<		K0			       
	IFB KP<C>,<IF1,<PRINTXKp %NEWFAB ADDRESS LOMITTED ON RENAMEL0 MACRO>>
	XMOVEILP 2, C>
	IFDIF <LpDISPLAY><RENAME>,M<
	IFNB <C>,<IFM01,<PRINTX %MORE TMPHAN 2 ARGS DETECTMpED IN DISPLAY MACNRO>>>
	$%DISPLAYN0			
	IFE <RMS$DYNP+RMS$DJ>,<
		IFNNpB <B>,<JUMP 17,OB>
		IFB <B>,<JO0UMP 16,.+1>	>  
OP	IFN <RMS$DY+RMS$OpDJ>,< IFNB <B>,<P
		CAIL 2,300000P0			   
		 PUSHJ PP17,B 		>> 
	
     		>> 
	
 	vI9 MpE%
	IFB <AN>,<IF1,<PRINTX %AN0RGBLK ADDRESS OMINPTTED ON ENTER MACNpRO>>
	XMOVEI	1, OA
	IFIDN <ENTERO0><RENAME>,<					 OP      
	IFB <C>Op,<IF1,<PRINTX %NEPWFAB ADDRESS OMITP0TED ON RENAME MACPPRO>>
	XMOVEI 2, PpC>
	IFDIF <ENTEQR><RENAME>,<
	IFQ0NB <C>,<IF1,<PRIQPNTX %MORE THAN 2 QpARGS DETECTED IN RENTER MACRO>>>
	R0$%ENTER			
	IFE RP<RMS$DY+RMS$DJ>,<Rp
		IFNB <B>,<JUSMP 17,B>
		IFB S0<B>,<JUMP 16,.+1SP>	>  
	IFN <RMS$SpDY+RMS$DJ>,< IFNBT <B>,<
		CAIL 2T0,300000			   
		TP PUSHJ 17,B 		>> 
	
     		>>	r Tp=]
	IFB <AU>,<IF1,<PRINTX %AU0RGBLK ADDRESS OMIUPTTED ON ERASE MACUpRO>>
	XMOVEI	1, VA
	IFIDN <ERASEV0><RENAME>,<					 VP      
	IFB <C>Vp,<IF1,<PRINTX %NEWWFAB ADDRESS OMITW0TED ON RENAME MACWPRO>>
	XMOVEI 2, WpC>
	IFDIF <ERASXE><RENAME>,<
	IFX0NB <C>,<IF1,<PRIXPNTX %MORE THAN 2 XpARGS DETECTED IN YERASE MACRO>>>
	Y0$%ERASE			
	IFE YP<RMS$DY+RMS$DJ>,<Yp
		IFNB <B>,<JUZMP 17,B>
		IFB Z0<B>,<JUMP 16,.+1ZP>	>  
	IFN <RMS$ZpDY+RMS$DJ>,< IFNB[ <B>,<
		CAIL 2[0,300000			   
		[P PUSHJ 17,B 		>> 
	
     		>>	FI7 XpE}
	IFB <AY>,<IF1,<PRINTX %AY0RGBLK ADDRESS OMIYPTTED ON EXTEND MAYpCRO>>
	XMOVEI	1,Z A
	IFIDN <EXTEZ0ND><RENAME>,<				ZP	       
	IFB <ZpC>,<IF1,<PRINTX %[NEWFAB ADDRESS OM[0ITTED ON RENAME M[PACRO>>
	XMOVEI 2[p, C>
	IFDIF <EX\TEND><RENAME>,<
\0	IFNB <C>,<IF1,<\PPRINTX %MORE THAN\p 2 ARGS DETECTED ]IN EXTEND MACRO>>]0>
	$%EXTEND			
]P	IFE <RMS$DY+RMS$]pDJ>,<
		IFNB <B^>,<JUMP 17,B>
	^0	IFB <B>,<JUMP 1^P6,.+1>	>  
	IFN ^p<RMS$DY+RMS$DJ>,<_ IFNB <B>,<
		C_0AIL 2,300000			  _P 
		 PUSHJ 17,B 		>> 
	
    	.Ht |80
	$$ISOL(|XB)			
	IFE <T$$|xSZ-^D18>,<		
	}8}  IFE T$$PS,<			
		HRRZ A,T$$OF+}XC
		T$$SZ==0		
	    >
	    IFE~ <T$$PS-^D18>,<		~8
		HLRZ A,T$$OF~X+C
		T$$SZ==0		~x
	    >
	>
	IFE <T$$SZ-^D36>,<	8	
		MOVE A,T$$OXF+C
		T$$SZ==0	x	
	>
	IFN T$$SZ,<			
		LDB A,[8<T$$PS>B5 ! <T$$SXZ>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ {x/_[F$$A+B][F$$A+B]	Mi X5w
	IFB <AX0>,<IF1,<PRINTX %AXPRGBLK ADDRESS OMIXpTTED ON FIND MACRYO>>
	XMOVEI	1, Y0A
	IFIDN <FIND><YPRENAME>,<					   Yp    
	IFB <C>,<ZIF1,<PRINTX %NEWFZ0AB ADDRESS OMITTEZPD ON RENAME MACROZp>>
	XMOVEI 2, C[>
	IFDIF <FIND><[0RENAME>,<
	IFNB [P<C>,<IF1,<PRINTX[p %MORE THAN 2 ARG\S DETECTED IN FIN\0D MACRO>>>
	$%FI\PND			
	IFE <RMS$\pDY+RMS$DJ>,<
		I]FNB <B>,<JUMP 17]0,B>
		IFB <B>,]P<JUMP 16,.+1>	>  ]p
	IFN <RMS$DY+RM^S$DJ>,< IFNB <B>^0,<
		CAIL 2,3000^P00			   
		 PUSH^pJ 17,B 		>> 
	
     		>> 
	f\t '0:q
	IFB <A'P>,<IF1,<PRINTX %A'pRGBLK ADDRESS OMI(TTED ON FLUSH MAC(0RO>>
	XMOVEI	1, (PA
	IFIDN <FLUSH(p><RENAME>,<					 )      
	IFB <C>)0,<IF1,<PRINTX %NE)PWFAB ADDRESS OMIT)pTED ON RENAME MAC*RO>>
	XMOVEI 2, *0C>
	IFDIF <FLUS*PH><RENAME>,<
	IF*pNB <C>,<IF1,<PRI+NTX %MORE THAN 2 +0ARGS DETECTED IN +PFLUSH MACRO>>>
	+p$%FLUSH			
	IFE ,<RMS$DY+RMS$DJ>,<,0
		IFNB <B>,<JU,PMP 17,B>
		IFB ,p<B>,<JUMP 16,.+1->	>  
	IFN <RMS$-0DY+RMS$DJ>,< IFNB-P <B>,<
		CAIL 2-p,300000			   
		. PUSHJ 17,B 		>> 
	
     		>>	Y  _p>5
	IFB <A`>,<IF1,<PRINTX %A`0RGBLK ADDRESS OMI`PTTED ON FREE MACR`pO>>
	XMOVEI	1, aA
	IFIDN <FREE><a0RENAME>,<					   aP    
	IFB <C>,<apIF1,<PRINTX %NEWFbAB ADDRESS OMITTEb0D ON RENAME MACRObP>>
	XMOVEI 2, Cbp>
	IFDIF <FREE><cRENAME>,<
	IFNB c0<C>,<IF1,<PRINTXcP %MORE THAN 2 ARGcpS DETECTED IN FREdE MACRO>>>
	$%FRd0EE			
	IFE <RMS$dPDY+RMS$DJ>,<
		IdpFNB <B>,<JUMP 17e,B>
		IFB <B>,e0<JUMP 16,.+1>	>  eP
	IFN <RMS$DY+RMepS$DJ>,< IFNB <B>f,<
		CAIL 2,3000f000			   
		 PUSHfPJ 17,B 		>> 
	
     		>> 
	.@ ,3
	IFB <A,0>,<IF1,<PRINTX %A,PRGBLK ADDRESS OMI,pTTED ON GET MACRO->>
	XMOVEI	1, A-0
	IFIDN <GET><RE-PNAME>,<					     -p  
	IFB <C>,<IF.1,<PRINTX %NEWFAB.0 ADDRESS OMITTED .PON RENAME MACRO>>.p
	XMOVEI 2, C>
	IFDIF <GET><REN/0AME>,<
	IFNB <C/P>,<IF1,<PRINTX %M/pORE THAN 2 ARGS D0ETECTED IN GET MA00CRO>>>
	$%GET			0P
	IFE <RMS$DY+RM0pS$DJ>,<
		IFNB <1B>,<JUMP 17,B>
		IFB <B>,<JUMP1P 16,.+1>	>  
	IF1pN <RMS$DY+RMS$DJ>2,< IFNB <B>,<
	20	CAIL 2,300000			2P   
		 PUSHJ 17,2pB 		>> 
	
     		>> 
	
    	&u vPG=			
	PUSHw0J 17,$$RMS##	
	.wPREQUIRE SYS:RMSINI	
)%BAD REC	6.<p 2P;M
	IFB <A2p>,<IF1,<PRINTX %A3RGBLK ADDRESS OMI30TTED ON MESSAGE M3PACRO>>
	XMOVEI	13p, A
	IFIDN <MES4SAGE><RENAME>,<		40			       
	IFB 4P<C>,<IF1,<PRINTX4p %NEWFAB ADDRESS 5OMITTED ON RENAME50 MACRO>>
	XMOVEI5P 2, C>
	IFDIF <5pMESSAGE><RENAME>,6<
	IFNB <C>,<IF601,<PRINTX %MORE T6PHAN 2 ARGS DETECT6pED IN MESSAGE MAC7RO>>>
	$%MESSAGE70			
	IFE <RMS$DY7P+RMS$DJ>,<
		IFN7pB <B>,<JUMP 17,8B>
		IFB <B>,<J80UMP 16,.+1>	>  
8P	IFN <RMS$DY+RMS$8pDJ>,< IFNB <B>,<9
		CAIL 2,30000090			   
		 PUSHJ 9P17,B 		>> 
	
     		>> 
	
 	:}Y9 >0<+
	IFB <A>P>,<IF1,<PRINTX %A>pRGBLK ADDRESS OMI?TTED ON NOMESSAGE?0 MACRO>>
	XMOVEI?P	1, A
	IFIDN <N?pOMESSAGE><RENAME>@,<					       
	@0IFB <C>,<IF1,<PR@PINTX %NEWFAB ADDR@pESS OMITTED ON REANAME MACRO>>
	XMA0OVEI 2, C>
	IFDAPIF <NOMESSAGE><REApNAME>,<
	IFNB <BC>,<IF1,<PRINTX %B0MORE THAN 2 ARGS BPDETECTED IN NOMESBpSAGE MACRO>>>
	$C%NOMESSAGE			
	IC0FE <RMS$DY+RMS$DJCP>,<
		IFNB <B>,Cp<JUMP 17,B>
		IDFB <B>,<JUMP 16,D0.+1>	>  
	IFN <RDPMS$DY+RMS$DJ>,< IDpFNB <B>,<
		CAIEL 2,300000			   
		 PUSHJ 17,B 		>> 
	
     		;FMW up?e
	IFB <Av>,<IF1,<PRINTX %Av0RGBLK ADDRESS OMIvPTTED ON NXTVOL MAvpCRO>>
	XMOVEI	1,w A
	IFIDN <NXTVw0OL><RENAME>,<				wP	       
	IFB <wpC>,<IF1,<PRINTX %xNEWFAB ADDRESS OMx0ITTED ON RENAME MxPACRO>>
	XMOVEI 2xp, C>
	IFDIF <NXyTVOL><RENAME>,<
y0	IFNB <C>,<IF1,<yPPRINTX %MORE THANyp 2 ARGS DETECTED zIN NXTVOL MACRO>>z0>
	$%NXTVOL			
zP	IFE <RMS$DY+RMS$zpDJ>,<
		IFNB <B{>,<JUMP 17,B>
	{0	IFB <B>,<JUMP 1{P6,.+1>	>  
	IFN {p<RMS$DY+RMS$DJ>,<| IFNB <B>,<
		C|0AIL 2,300000			  |P 
		 PUSHJ 17,B 		>> 
	
    	?[@ 1g
	IFB <A0>,<IF1,<PRINTX %APRGBLK ADDRESS OMIpTTED ON OPEN MACRO>>
	XMOVEI	1, 0A
	IFIDN <OPEN><PRENAME>,<					   p    
	IFB <C>,<IF1,<PRINTX %NEWF0AB ADDRESS OMITTEPD ON RENAME MACROp>>
	XMOVEI 2, C>
	IFDIF <OPEN><0RENAME>,<
	IFNB P<C>,<IF1,<PRINTXp %MORE THAN 2 ARGS DETECTED IN OPE0N MACRO>>>
	$%OPPEN			
	IFE <RMS$pDY+RMS$DJ>,<
		IFNB <B>,<JUMP 170,B>
		IFB <B>,P<JUMP 16,.+1>	>  p
	IFN <RMS$DY+RMS$DJ>,< IFNB <B>0,<
		CAIL 2,3000P00			   
		 PUSHpJ 17,B 		>> 
	
     		>> 
	B,r 7pCu
	IFB <A8>,<IF1,<PRINTX %A80RGBLK ADDRESS OMI8PTTED ON PARSE MAC8pRO>>
	XMOVEI	1, 9A
	IFIDN <PARSE90><RENAME>,<					 9P      
	IFB <C>9p,<IF1,<PRINTX %NE:WFAB ADDRESS OMIT:0TED ON RENAME MAC:PRO>>
	XMOVEI 2, :pC>
	IFDIF <PARS;E><RENAME>,<
	IF;0NB <C>,<IF1,<PRI;PNTX %MORE THAN 2 ;pARGS DETECTED IN <PARSE MACRO>>>
	<0$%PARSE			
	IFE <P<RMS$DY+RMS$DJ>,<<p
		IFNB <B>,<JU=MP 17,B>
		IFB =0<B>,<JUMP 16,.+1=P>	>  
	IFN <RMS$=pDY+RMS$DJ>,< IFNB> <B>,<
		CAIL 2>0,300000			   
		>P PUSHJ 17,B 		>> 
	
     		>>	C.@ 73o
	IFB <A70>,<IF1,<PRINTX %A7PRGBLK ADDRESS OMI7pTTED ON PUT MACRO8>>
	XMOVEI	1, A80
	IFIDN <PUT><RE8PNAME>,<					     8p  
	IFB <C>,<IF91,<PRINTX %NEWFAB90 ADDRESS OMITTED 9PON RENAME MACRO>>9p
	XMOVEI 2, C>
	IFDIF <PUT><REN:0AME>,<
	IFNB <C:P>,<IF1,<PRINTX %M:pORE THAN 2 ARGS D;ETECTED IN PUT MA;0CRO>>>
	$%PUT			;P
	IFE <RMS$DY+RM;pS$DJ>,<
		IFNB <<B>,<JUMP 17,B>
		IFB <B>,<JUMP<P 16,.+1>	>  
	IF<pN <RMS$DY+RMS$DJ>=,< IFNB <B>,<
	=0	CAIL 2,300000			=P   
		 PUSHJ 17,=pB 		>> 
	
     		>> 
	
    	J, pAm
	IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPTTED ON READ MACRpO>>
	XMOVEI	1, A
	IFIDN <READ><0RENAME>,<					   P    
	IFB <C>,<pIF1,<PRINTX %NEWFAB ADDRESS OMITTE0D ON RENAME MACROP>>
	XMOVEI 2, Cp>
	IFDIF <READ><RENAME>,<
	IFNB 0<C>,<IF1,<PRINTXP %MORE THAN 2 ARGpS DETECTED IN READ MACRO>>>
	$%RE0AD			
	IFE <RMS$PDY+RMS$DJ>,<
		IpFNB <B>,<JUMP 17,B>
		IFB <B>,0<JUMP 16,.+1>	>  P
	IFN <RMS$DY+RMpS$DJ>,< IFNB <B>,<
		CAIL 2,3000000			   
		 PUSHPJ 17,B 		>> 
	
     		>> 
	J-I0 :
	IFB <A0>,<IF1,<PRINTX %APRGBLK ADDRESS OMIpTTED ON RELEASE MACRO>>
	XMOVEI	10, A
	IFIDN <RELPEASE><RENAME>,<		p			       
	IFB <C>,<IF1,<PRINTX0 %NEWFAB ADDRESS POMITTED ON RENAMEp MACRO>>
	XMOVEI 2, C>
	IFDIF <0RELEASE><RENAME>,P<
	IFNB <C>,<IFp1,<PRINTX %MORE T HAN 2 ARGS DETECT 0ED IN RELEASE MAC PRO>>>
	$%RELEASE p			
	IFE <RMS$DY!+RMS$DJ>,<
		IFN!0B <B>,<JUMP 17,!PB>
		IFB <B>,<J!pUMP 16,.+1>	>  
"	IFN <RMS$DY+RMS$"0DJ>,< IFNB <B>,<"P
		CAIL 2,300000"p			   
		 PUSHJ #17,B 		>> 
	
     		>> 
	
 	J-[{ cpFU
	IFB <Ad>,<IF1,<PRINTX %Ad0RGBLK ADDRESS OMIdPTTED ON REMOVE MAdpCRO>>
	XMOVEI	1,e A
	IFIDN <REMOe0VE><RENAME>,<				eP	       
	IFB <epC>,<IF1,<PRINTX %fNEWFAB ADDRESS OMf0ITTED ON RENAME MfPACRO>>
	XMOVEI 2fp, C>
	IFDIF <REgMOVE><RENAME>,<
g0	IFNB <C>,<IF1,<gPPRINTX %MORE THANgp 2 ARGS DETECTED hIN REMOVE MACRO>>h0>
	$%REMOVE			
hP	IFE <RMS$DY+RMS$hpDJ>,<
		IFNB <Bi>,<JUMP 17,B>
	i0	IFB <B>,<JUMP 1iP6,.+1>	>  
	IFN ip<RMS$DY+RMS$DJ>,<j IFNB <B>,<
		Cj0AIL 2,300000			  jP 
		 PUSHJ 17,B 		>> 
	
    	J-h6 npG-
	IFB <Ao>,<IF1,<PRINTX %Ao0RGBLK ADDRESS OMIoPTTED ON RENAME MAopCRO>>
	XMOVEI	1,p A
	IFIDN <RENAp0ME><RENAME>,<				pP	       
	IFB <ppC>,<IF1,<PRINTX %qNEWFAB ADDRESS OMq0ITTED ON RENAME MqPACRO>>
	XMOVEI 2qp, C>
	IFDIF <RErNAME><RENAME>,<
r0	IFNB <C>,<IF1,<rPPRINTX %MORE THANrp 2 ARGS DETECTED sIN RENAME MACRO>>s0>
	$%RENAME			
sP	IFE <RMS$DY+RMS$spDJ>,<
		IFNB <Bt>,<JUMP 17,B>
	t0	IFB <B>,<JUMP 1tP6,.+1>	>  
	IFN tp<RMS$DY+RMS$DJ>,<u IFNB <B>,<
		Cu0AIL 2,300000			  uP 
		 PUSHJ 17,B 		>> 
	
    	J.M9 /[POPJ	17,	J.z7 p@=
	IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPTTED ON REWIND MApCRO>>
	XMOVEI	1, A
	IFIDN <REWI0ND><RENAME>,<				P	       
	IFB <pC>,<IF1,<PRINTX %NEWFAB ADDRESS OM0ITTED ON RENAME MPACRO>>
	XMOVEI 2p, C>
	IFDIF <REWIND><RENAME>,<
0	IFNB <C>,<IF1,<PPRINTX %MORE THANp 2 ARGS DETECTED IN REWIND MACRO>>0>
	$%REWIND			
P	IFE <RMS$DY+RMS$pDJ>,<
		IFNB <B>,<JUMP 17,B>
	0	IFB <B>,<JUMP 1P6,.+1>	>  
	IFN p<RMS$DY+RMS$DJ>,< IFNB <B>,<
		C0AIL 2,300000			  P 
		 PUSHJ 17,B 		>> 
	
    	Jn0 vPG=			
	PUSHw0J 17,$$RMS##	
	.wPREQUIRE SYS:RMSINI	
)%BAD REC	N,Q BpDM
	IFB <AC>,<IF1,<PRINTX %AC0RGBLK ADDRESS OMICPTTED ON SEARCH MACpCRO>>
	XMOVEI	1,D A
	IFIDN <SEARD0CH><RENAME>,<				DP	       
	IFB <DpC>,<IF1,<PRINTX %ENEWFAB ADDRESS OME0ITTED ON RENAME MEPACRO>>
	XMOVEI 2Ep, C>
	IFDIF <SEFARCH><RENAME>,<
F0	IFNB <C>,<IF1,<FPPRINTX %MORE THANFp 2 ARGS DETECTED GIN SEARCH MACRO>>G0>
	$%SEARCH			
GP	IFE <RMS$DY+RMS$GpDJ>,<
		IFNB <BH>,<JUMP 17,B>
	H0	IFB <B>,<JUMP 1HP6,.+1>	>  
	IFN Hp<RMS$DY+RMS$DJ>,<I IFNB <B>,<
		CI0AIL 2,300000			  IP 
		 PUSHJ 17,B 		>> 
	
    	Or !pBE
	IFB <A">,<IF1,<PRINTX %A"0RGBLK ADDRESS OMI"PTTED ON SPACE MAC"pRO>>
	XMOVEI	1, #A
	IFIDN <SPACE#0><RENAME>,<					 #P      
	IFB <C>#p,<IF1,<PRINTX %NE$WFAB ADDRESS OMIT$0TED ON RENAME MAC$PRO>>
	XMOVEI 2, $pC>
	IFDIF <SPAC%E><RENAME>,<
	IF%0NB <C>,<IF1,<PRI%PNTX %MORE THAN 2 %pARGS DETECTED IN &SPACE MACRO>>>
	&0$%SPACE			
	IFE &P<RMS$DY+RMS$DJ>,<&p
		IFNB <B>,<JU'MP 17,B>
		IFB '0<B>,<JUMP 16,.+1'P>	>  
	IFN <RMS$'pDY+RMS$DJ>,< IFNB( <B>,<
		CAIL 2(0,300000			   
		(P PUSHJ 17,B 		>> 
	
     		>>	O%|R 0-
	$$ISOL(8B)			
	IFE <T$$XSZ-^D18>,<		
	x  IFE T$$PS,<			
		HRRM A,T$$OF+8C
		T$$SZ==0		
	    >
	    IFEx <T$$PS-^D18>,<		
		HRLM A,T$$OF8+C
		T$$SZ==0		X
	    >
	>
	IFxE <T$$SZ-^D36>,<		
		MOVEM A,T$$8OF+C
		T$$SZ==0X		;INDIC INST GENx
	>
	IFN T$$SZ,<			
		DPB A,[<8T$$PS>B5 ! <T$$SZX>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q c06S
	IFB <AcP>,<IF1,<PRINTX %AcpRGBLK ADDRESS OMIdTTED ON TRUNCATE d0MACRO>>
	XMOVEI	dP1, A
	IFIDN <TRdpUNCATE><RENAME>,<e					       
	IFe0B <C>,<IF1,<PRINePTX %NEWFAB ADDRESepS OMITTED ON RENAfME MACRO>>
	XMOVf0EI 2, C>
	IFDIFfP <TRUNCATE><RENAMfpE>,<
	IFNB <C>,g<IF1,<PRINTX %MORg0E THAN 2 ARGS DETgPECTED IN TRUNCATEgp MACRO>>>
	$%TRUhNCATE			
	IFE <Rh0MS$DY+RMS$DJ>,<
hP		IFNB <B>,<JUMPhp 17,B>
		IFB <iB>,<JUMP 16,.+1>	i0>  
	IFN <RMS$DYiP+RMS$DJ>,< IFNB <ipB>,<
		CAIL 2,3j00000			   
		Pj0USHJ 17,B 		>> 
	
	WH		>>B4G
	IFB <AB0>,<IF1,<PRINTX %ABPRGBLK ADDRESS OMIBpTTED ON UPDATE MACCRO>>
	XMOVEI	1,C0 A
	IFIDN <UPDACPTE><RENAME>,<				Cp	       
	IFB <DC>,<IF1,<PRINTX %D0NEWFAB ADDRESS OMDPITTED ON RENAME MDpACRO>>
	XMOVEI 2E, C>
	IFDIF <UPE0DATE><RENAME>,<
EP	IFNB <C>,<IF1,<EpPRINTX %MORE THANF 2 ARGS DETECTED F0IN UPDATE MACRO>>FP>
	$%UPDATE			
Fp	IFE <RMS$DY+RMS$GDJ>,<
		IFNB <BG0>,<JUMP 17,B>
	GP	IFB <B>,<JUMP 1Gp6,.+1>	>  
	IFN H<RMS$DY+RMS$DJ>,<H0 IFNB <B>,<
		CHPAIL 2,300000			  Hp 
		 PUSHJ 17,B 		>> 
	
	W%J7 jp?
	IFB <Ak>,<IF1,<PRINTX %Ak0RGBLK ADDRESS OMIkPTTED ON UTLINT MAkpCRO>>
	XMOVEI	1,l A
	IFIDN <UTLIl0NT><RENAME>,<				lP	       
	IFB <lpC>,<IF1,<PRINTX %mNEWFAB ADDRESS OMm0ITTED ON RENAME MmPACRO>>
	XMOVEI 2mp, C>
	IFDIF <UTnLINT><RENAME>,<
n0	IFNB <C>,<IF1,<nPPRINTX %MORE THANnp 2 ARGS DETECTED oIN UTLINT MACRO>>o0>
	$%UTLINT			
oP	IFE <RMS$DY+RMS$opDJ>,<
		IFNB <Bp>,<JUMP 17,B>
	p0	IFB <B>,<JUMP 1pP6,.+1>	>  
	IFN pp<RMS$DY+RMS$DJ>,<q IFNB <B>,<
		Cq0AIL 2,300000			  qP 
		 PUSHJ 17,B 		>> 
	
	^pA
	IFB <A
>,<IF1,<PRINTX %A
0RGBLK ADDRESS OMI
PTTED ON WAIT MACR
pO>>
	XMOVEI	1, 
	IFIDNE<WAIT><   
	IFB,<C>,< %NEWFAB ADDRESS OMITTE0D ON RENAME MACROP>>
	XMOVEI 2, Cp>
	IFDIF <WAIT><RENAME>,<
	IFNB 0<C>,<IF1,<PRINTXP %MORE THAN 2 ARGpS DETECTED IN WAIT MACRO>>>
	$%WA0IT			
	IFE <RMS$PDY+RMS$DJ>,<
		IpFNB <B>,<JUMP 17,B>
		IFB <B>,0<JUMP 16,.+1>	>  P
	IFN <RMS$DY+RMpS$DJ>,< IFNB <B>,<
		CAIL 2,3000000			   
		 PUSHPJ 17,B 		>> 
	
     		>> 
	 ,pC
	IFB <A->,<IF1,<PRINTX %A-0RGBLK ADDRESS OMI-PTTED ON WRITE MAC-pRO>>
	XMOVEI	1, .A
	IFIDN <WRITE.0><RENAME>,<					 .P      
	IFB <C>.p,<IF1,<PRINTX %NE/WFAB ADDRESS OMIT/0TED ON RENAME MAC/PRO>>
	XMOVEI 2, /pC>
	IFDIF <WRIT0E><RENAME>,<
	IF00NB <C>,<IF1,<PRI0PNTX %MORE THAN 2 0pARGS DETECTED IN 1WRITE MACRO>>>
	10$%WRITE			
	IFE 1P<RMS$DY+RMS$DJ>,<1p
		IFNB <B>,<JU2MP 17,B>
		IFB 20<B>,<JUMP 16,.+12P>	>  
	IFN <RMS$2pDY+RMS$DJ>,< IFNB3 <B>,<
		CAIL 230,300000			   
		3P PUSHJ 17,B 		>> 
	
     		>>: -"q
	DEFINE -8A$B(ARG)<
		IF-X1,<PRINTX	%"A$B-x" RMS-11 ONLY, IG.NORED BY RMS-20>
	>
YhRMS-20>.X"w
	IRP A,.x< ..BADF(F,A) >
.BADF(F,A)">
	IRP A,/X< ..BADF(R,A) >
.BADF(R,A)#>
	IRP A,08< ..BADF(X,A) >
.BADF(X,A)(>P#=P 6D(9P# D=P O,(9P O,=P >}{woP