Google
 

Trailing-Edge - PDP-10 Archives - bb-l014q-bm_tops20_v6_1_atpch17 - autopatch/rmsint.x17
There are no other files named rmsint.x17 in the archive.
x
,Ss@PE,%KuPFKyPF{WPF)0PF$XZPF$[PF%qP F%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$wQ $$L$Q $HL$2Q $L$Q L$)Q  L$)RQ L$)WQ HL$)WQ .L$)XQ 6$L$)YQ HL$)ZQ 0
L$)]Q (
L$*2Q $HL$*pQ HL$*qQ $HL$*rP L$*sQ $L$*wQ HL$*yQ 0 L$*zQ L$*}Q $L$+Q $HL$+Q HL$+Q 6$L$+Q  L$+7Q B
L$,}Q L$.1Q HL$8(Q L$8)Q L$88Q L$9Q L$:Q HL$;Q HL$;rQ $L$=Q L$H7Q $$L$HUQ $$L$I;Q $HL$IVQ HL$J9Q HL$KQ L$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$kQ HL$kPQ L$kQQ L$kxQ $HL$lqQ $HL$lzQ $HL$l}Q L%\Q L%
}Q B
L%7Q 6$L%UQ 6$L%YQ HL%vQ HL%zQ L%Q lL%Q $HL%PQ 6$L%SQ HL%TQ $HL%VQ $HL%WQ (L%XQ $HL%SQ HL%yQ $HL%PQ $HL%SQ HL%WQ L%YQ HL%tQ $$L%tQ $HL%)WQ HL%+VQ $HL%8SQ L%8YQ  L%8]Q 0L%9Q $L%9Q $HL%9Q 6L%9SQ $HL%:0Q $L%:yQ HL%;VQ L%;\Q HL%<SQ 6$L%<WQ $$L%<qQ $HL%<{Q HL%<}Q $$L%H7Q $L%I;Q $L%LwQ HL%XSQ $$L%XYQ $L%[YQ HL%[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%lXQ L%nQ HL%|Q L%|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&+wQ $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&,qQ $HL&,vQ $HL&,yQ HL&,{Q HL&,}Q $HL&.Q 00L&.Q L&.	Q L&.	Q L&.
Q L&.
QL&9Q$HL&9QQHL&9QL$HL&9SQ HL&:Q HL&:=Q HL&:qQ $HL&:yQ 6$L&<SQ L&<YQ L&=Q $HL&=Q HL&>HQ HL&>HQ HL&>IQ HL&>IQ HL&>JQ HL&>JQ HL&>KQ HL&>KQ H	L&>SQ 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,<P6(RINTX	%"F$ANB" RM6HS-11 ONLY, IGNORED BY RMS-20>
	L<` aH&
$$NEWVAL (BKS,A)NEWVAL (LL` a&$$NEWVAL (BLS,A)NEWVAL (L>@ _%x$$NEWVAL (BSZ,A)NEWVAL (LN b&$$NEWVAL (CTX,A)NEWVAL (L%h  2#
		IF1,<P2(RINTX	%"F$DNA" RM2HS-11 ONLY, IGNORED BY RMS-20>
	L%l` 3#
		IF1,<P3(RINTX	%"F$DNS" RM3HS-11 ONLY, IGNORED BY RMS-20>
	L4` [%X$$NEWVAL (FAC,A)NEWVAL (L5h  ]%h$$NEWVAL (FNA,A)NEWVAL (L5l` 1#

		IF1,<P1(RINTX	%"F$FNS" RM1HS-11 ONLY, IGNORED BY RMS-20>
	L5| \%`$$NEWVAL (FOP,A)NEWVAL (L6>@ bH&$$NEWVAL (FSZ,A)NEWVAL (LTk@ ZH%T$$NEWVAL (JFN,A)NEWVAL (LUk `H&$$NEWVAL (JNL,A)NEWVAL (Ld: 8#D
		IF1,<P8(RINTX	%"F$LCH" RM8HS-11 ONLY, IGNORED BY RMS-20>
	Ln+@ ^H%t$$NEWVAL (MRN,A)NEWVAL (Ln,` ^%p$$NEWVAL (MRS,A)NEWVAL (Lt  5#($$NEWVAL (NAM,A)NEWVAL (L~)` \H%d$$NEWVAL (ORG,A)NEWVAL (L ]H%l$$NEWVAL (RAT,A)NEWVAL (Lk  _H%|$$NEWVAL (RFM,A)NEWVAL (LM@ 4#$
		IF1,<P4(RINTX	%"F$RTV" RM4HS-11 ONLY, IGNORED BY RMS-20>
	L
@ [H%\$$NEWVAL (SHR,A)NEWVAL (L' 5H#,$$NEWVAL (TYP,A)NEWVAL (LD@ `&$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ PH%P
	IFNB <PhA>,<			;RUN-TIME QINIT
		$$MAPADD Q((A,$$ADDR);	; WIQHLL REFERENCE FAB QhVIA $$ADDR
		SYNR SF$$RT,$$SET
	>R(					
	IFB <A>,RH<SYN SF$$CT,$$SETRh>	
		$$CURR (F,BSID)
		$$CURR (F,S(BLN)
		$$CURR (FSH,STS)
		$$CURR (ShF,STV)
		$$CURR T(F,IFI)
		$$CURRT( (F,JFN)
		$$CURTHR (F,FAC)
		$$CUThRR (F,SHR)
		$$CUURR (F,FOP)
		$$U(CURR (F,ORG)
		$UH$CURR (F,FNA)
		Uh$$CURR (F,RAT)
	V	$$CURR (F,MRS)
V(		$$CURR (F,MRN)
		$$CURR (F,BSZ)Vh
		$$CURR (F,RFMW)
		$$CURR (F,XAW(B)
		$$CURR (F,JWHNL)
		$$CURR (F,WhBLS)
		$$CURR (FX,BKS)
		$$CURR (X(F,DEV)
		$$CURR XH(F,SDC)
		$$CURRXh (F,CTX)
		$$CURYR (F,FSZ)	;![AWN]Y(
		$$CURR (F,TYPYH)	;![AWN]
		$$CUYhRR (F,NAM)	;![AWNZ]
		$$CURR (F,ALQ)	;![AWN]
	ALMI  7H'

	IFNDEF bh$$ADDR,<				
		<c$$SET(BID)>_^D18 c(! <$$SET(BLN)>
	cH	<$$SET(STS)>^D1ch8 ! <$$SET(STV)>
		<$$SET(CTX)>
d(		<$$SET(IFI)>_^DdH18 ! <$$SET(JFN)>dh
		<$$SET(FAC)>_e^D18 ! <$$SET(SHRe()>
		<$$SET(FOP)eH>_^D18 ! <$$SET(OehRG)>_^D14 ! <$$SEfT(BSZ)>_^D8 ! <$$f(SET(BLS)>
		<$$SfHET(FNA)>
		<$$SEfhT(RAT)>_^D18 ! <$g$SET(MRS)>
		<$$g(SET(MRN)>
		<$$SgHET(FSZ)>_^D13 ! <gh$$SET(BKS)>_^D5 !h <$$SET(RFM)> ;![h(AWN]
		<$$SET(JNhHL)>_^D18 ! <$$SEThh(XAB)>
		<$$SET(iDEV)>_^D18 ! <$$Si(ET(SDC)>
		<$$SEiHT(TYP)>_^D18 ! <$ih$SET(NAM)>	;![AWNj]
		<$$SET(ALQ)>j(				;![AWN]
		EXjHP 0,0
	>					;ENjhD IFNB
	IFDEF $$kADDR,<
		$$SET(Bk(ID)
		$$SET(BLN)kH
		$$SET(STS)
	kh	$$SET(STV)
		$$lSET(IFI)
		$$SETl((JFN)
		$$SET(FAlHC)
		$$SET(SHR)
		$$SET(FOP)
		m$$SET(ORG)
		$$Sm(ET(FNA)
		$$SET(mHRAT)
		$$SET(MRSmh)
		$$SET(MRN)
n		$$SET(BSZ)
		$n($SET(RFM)
		$$SEnHT(XAB)
		$$SET(JnhNL)
		$$SET(BLS)o
		$$SET(BKS)
	o(	$$SET(DEV)
		$$oHSET(SDC)
		$$SEToh(CTX)
		$$SET(FSpZ)			;![AWN]
		$p($SET(NAM)			;![AWpHN]
		$$SET(TYP)	ph		;![AWN]
		$$SEqT(ALQ)			;![AWN]
		
		PURGE $$ADqHDR			
	>					
				
	>					
	MN@ u(/* $$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@#'ML$pP ML$+P ML$\YP ML%P ML%JsP ML%KSP ML%KuP ML%i;P ML%|P ML%|P ML&)7P  ML&+:P @ML&N8P ML&YP UL%X<P UL%Z7P W$:P W$:P"W$M8P$W%
tP!W%KSP W%j<P W&N8P \.8  WH-< $$NEWVAL (ESA,A)NEWVAL \.<` X-@ $$NEWVAL (ESS,A)NEWVAL \u| Y-H $$NEWVAL (NOP,A)NEWVAL \I@ XH-D $$NEWVAL (RLF,A)NEWVAL \8  YH-L $$NEWVAL (RSA,A)NEWVAL \<` Z-P $$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@ Nh-8
	IFNB <OA>,<
		$$MAPADD O((A,$$ADDR);	; WIOHLL REFERENCE THE OhBLOCK VIA $$ADDR
		SYN SN$$RT,$$SP(ET
	>					
	IFBPH <A>,<SYN SN$$CTPh,$$SET>	
		$$CURQR (N,BID)
		$$CUQ(RR (N,BLN)
		$$CQHURR (N,ESA)
		$$QhCURR (N,ESS)
		$R$CURR (N,ESL)
		R($$CURR (N,RLF)
	RH	$$CURR (N,NOP)
Rh		$$CURR (N,RSA)
		$$CURR (N,RSL)S(
		$$CURR (N,RSSSH)
		$$CURR (N,FNShB)
		$$CURR (N,WTCC)
		$$CURR (N,T(CHA)
		$$CURR (NTH,NDL)
		$$CURR (ThN,DVL)
		$$CURR U(N,NML)
		$$CURRU( (N,TPL)
		$$CURUHR (N,VRL)
		$$CUUhRR (N,NDA)
		$$CVURR (N,DVA)
		$$V(CURR (N,DRA)
		$VH$CURR (N,NMA)
		Vh$$CURR (N,TPA)
	W	$$CURR (N,VRA)
	 URR (N,VRA)
]hI  ZH.<
	IFNDEF Zh$$ADDR,<
		<$$SE[T(BID)>_^D18 ! <$[($SET(BLN)>
		<$$[HSET(ESA)>
		<$$S[hET(ESL)>_^D18 ! <\$$SET(ESS)>
		<$\($SET(NOP)>_^D18 !\H <$$SET(RLF)>
		\h<$$SET(RSA)>
		<]$$SET(RSL)>_^D18 ](! <$$SET(RSS)>
	]H	<$$SET(FNB)>
		]h<$$SET(WCC)>
		<^$$SET(DVL)>_^D27 ^(! <$$SET(NDL)>_^D^H18 ! <$$SET(CHA)>^h
		<$$SET(VRL)>__^D27 ! <$$SET(TPL_()>_^D18 ! <$$SET(_HNML)>_^D9 ! <$$SE_hT(DRL)>
		<$$SET`(NDA)>
		<$$SET(`(DVA)>
		<$$SET(D`HRA)>
		<$$SET(NM`hA)>
		<$$SET(TPAa)>
		<$$SET(VRA)a(>
	>				;IFNDEF
	IFDEF $$ADDR,<
		$$SET(BID)
		b$$SET(BLN)
		$$Sb(ET(ESA)
		$$SET(bHESL)
		$$SET(ESSbh)
		$$SET(NOP)
c		$$SET(RLF)
		$c($SET(RSA)
		$$SEcHT(RSL)
		$$SET(RchSS)
		$$SET(FNB)d
		$$SET(WCC)
	d(	$$SET(DVL)
		$$dHSET(NDL)
		$$SETdh(CHA)
		$$SET(VReL)
		$$SET(TPL)
		$$SET(NML)
		eH$$SET(DRL)
		$$SehET(NDA)
		$$SET(fDVA)
		$$SET(DRAf()
		$$SET(NMA)
fH		$$SET(TPA)
		$fh$SET(VRA)

		PUgRGE $$ADDR			;SO g(NEXT C/R DECIS COgHRRECT
	>					;IFDEF
	>					;IF]hN@ w/8 $$ZERO(A,NA$LNG) ERO(AdN H( $$NEWVAL (CTX,A)NEWVAL d-L` H(
 $$NEWVAL (ELS,A)NEWVAL d4@ z'P $$NEWVAL (FAB,A)NEWVAL d\)@ ~H't $$NEWVAL (KBF,A)NEWVAL d^)@ }H'l $$NEWVAL (KRF,A)NEWVAL d^>@ ~'p $$NEWVAL (KSZ,A)NEWVAL df;@ ( $$NEWVAL (LSN,A)NEWVAL dl)@ 'x $$NEWVAL (MBF,A)NEWVAL d H'| $$NEWVAL (PAD,A)NEWVAL d` zH'T $$NEWVAL (RAC,A)NEWVAL d)@ |'` $$NEWVAL (RBF,A)NEWVAL dh  ( $$NEWVAL (RFA,A)NEWVAL d@ 0H#H
		IF1,<P8hRINTX	%"R$RHB" RM9S-11 ONLY, IGNORED BY RMS-20>
	d| {'X $$NEWVAL (ROP,A)NEWVAL d>@ |H'd $$NEWVAL (RSZ,A)NEWVAL d,)@ {H'\ $$NEWVAL (UBF,A)NEWVAL d.>@ }'h $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ r'L
	IFNB <r(A>,<
		$$MAPADD rH(A,$$ADDR);	; WIrhLL REFERENCE THE sBLOCK VIA $$ADDR
		SYN SR$$RT,$$SsHET
	>					
	IFBsh <A>,<SYN SR$$CTt,$$SET>	
		$$CURt(R (R,BID)
		$$CUtHRR (R,BLN)
		$$CthURR (R,STS)
		$$uCURR (R,STV)
		$u($CURR (R,ISI)
		uH$$CURR (R,FAB)
	uh	$$CURR (R,RAC)
v		$$CURR (R,ROP)
		$$CURR (R,UBF)vH
		$$CURR (R,RBFvh)
		$$CURR (R,RSwZ)
		$$CURR (R,Uw(SZ)
		$$CURR (R,wHRFA)
		$$CURR (Rwh,KRF)
		$$CURR (xR,KSZ)
		$$CURR x((R,KBF)
		$$CURRxH (R,MBF)
		$$CURxhR (R,LSN)
		$$CUyRR (R,BKT)
		$$Cy(URR (R,PAD)
		$$yHCURR (R,CTX)
	 URR (R,CTX)
	 eI  (l
	IFNDEF ($$ADDR,<
		<$$SEHT(BID)>_^D18 ! <$h$SET(BLN)>
		<$$SET(STS)>_^D18 ! (<$$SET(STV)>
		<H$$SET(CTX)>
		<$h$SET(ISI)>_^D18 ! <$$SET(FAB)>
		(<$$SET(RAC)>_^D27H ! <$$SET(MBF)>_^hD18 ! <$$SET(ROP)>
		<$$SET(UBF)>(
		<$$SET(RBF)>
		<$$SET(RSZ)>_^hD18 ! <$$SET(USZ)>
		<$$SET(RFA)>(
		<$$SET(KRF)>_H^D27 ! <$$SET(KSZh)>_^D18 ! <$$SET(LSN)>
		<$$SET(K(BF)>
		<$$SET(BKHT)>
		<$$SET(PADh)>_^D27
		EXP 0,0,0
	>				;IFNDE(F
	IFDEF $$ADDR,H<
		$$SET(BID)
h		$$SET(BLN)
		$	$SET(STS)
		$$SE	(T(STV)
		$$SET(I	HSI)
		$$SET(FAB)	h
		$$SET(RAC)
	
	$$SET(ROP)
		$$
(SET(UBF)
		$$SET
H(RBF)
		$$SET(RS
hZ)
		$$SET(USZ)
		$$SET(RFA)
		($$SET(KRF)
		$$SHET(KSZ)
		$$SET(hKBF)
		$$SET(MBF
)
		$$SET(LSN)

(		$$SET(BKT)
		$
H$SET(PAD)
		$$SE
hT(CTX)
		PURGE	$SOONEXTT
	>					;IFDEF
	>					;IFDEF
eN@ uh/. $$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 eL$[sP eL%KSP 	eL%KuP eL&9P eL&98P  eL&=1P eL&LWP @eL&N8P eL&\P f$(` (! A$B==1BC  A$B==1Bf$H` h ~ A$B==^DC  A$B==^Df&8` ( z A$B==C$D  A$B==Cg Hz Gh$@IFDEF C$$HA,<C$$A> IFNDEF C$$A,<$$FA>F g LZ FH$:
	    IFNFhDEF C$$A,<IFN $$GFA,<C$$A==$$FAG(>>
	    STO$$C(A)			
	TO$$C(g8 Hz Mh$pIFDEF C$$NA,<C$$A> IFNDEF C$$A,<$$NA>F g8 LZ LH$j
	    IFNLhDEF C$$A,<IFN $$MNA,<C$$A==$$NAM(>>
	    STO$$C(A)			
	TO$$C(gH Hz Ih$PIFDEF C$$JA,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ HH$J
	    IFNHhDEF C$$A,<IFN $$IRA,<C$$A==$$RAI(>>
	    STO$$C(A)			
	TO$$C(gP Hz Oh%IFDEF C$$PA,<C$$A> IFNDEF C$$A,<$$TA>F gP LZ NH$z
	    IFNNhDEF C$$A,<IFN $$OTA,<C$$A==$$TAO(>>
	    STO$$C(A)			
	TO$$C(gRxA E$0			
	EH  E(IFDEF C$$A,<			
		<HRREI 1,> ! CEh$$A		
		$STORE	F(1,A,$$ADDR)		
	    >
	R)		
gT$M8@ gT%@ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz Kh$`IFDEF C$$LA,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ JH$Z
	    IFNJhDEF C$$A,<IFN $$KXA,<C$$A==$$XAK(>>
	    STO$$C(A)			
	TO$$C(hH  lH.d $$NEWVAL (CLA,A)NEWVAL h4M m.h $$NEWVAL (FDT,A)NEWVAL h5K@ mH.l $$NEWVAL (FLN,A)NEWVAL h68` n.p $$NEWVAL (FSC,A)NEWVAL hm|@ o.x $$NEWVAL (MOR,A)NEWVAL ht^ nH.t $$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@ h.`
	IFNB <h(A>,<
		$$MAPADD hH(A,$$ADDR);	; WIhhLL REFERENCE THE iBLOCK VIA $$ADDR
		SYN ST$$RT,$$SiHET
	>					
	IFBih <A>,<SYN ST$$CTj,$$SET>	
		$$CURj(R (T,BID)
		$$CUjHRR (T,BLN)
		$$CjhURR (T,CLA)
		$$kCURR (T,FDT)
		$k($CURR (T,FLN)
		kH$$CURR (T,FSC)
	kh	$$CURR (T,NEX)
l		$$CURR (T,MOR)
	gURR (T,MOR)
	IFNDEF oh$$ADDR,<
		<$$SEpT(BID)>_^D18 ! <$p($SET(BLN)>
		<$$pHSET(FDT)>_^D18 ! ph<$$SET(CLA)>
		<q$$SET(FLN)>_^D18 q(! <$$SET(FDT)>
	qH	<$$SET(MOR)>^D1qh8 ! <$$SET(NEX)>
	>				;IFNDEF
	r(IFDEF $$ADDR,<
	rH	$$SET(BID)
		$$rhSET(BLN)
		$$SETs(FDT)
		$$SET(CLs(A)
		$$SET(FLN)
		$$SET(FDT)
		sh$$SET(MOR)
		$$StET(NEX)
		PURGE t($$ADDR			;SO NEXTtH C/R DECIS CORRECthT
	>					;IFDEF
	>					;IFDEFE$$ZERO(A,TY$LNG)WERO(Ap #(*$$NEWVAL (BKZ,A)NEWVAL (p$@ &(*2$$NEWVAL (DAN,A)NEWVAL (p$k $(*"$$NEWVAL (DFL,A)NEWVAL (p&L $h*&$$NEWVAL (DTP,A)NEWVAL (p,M  (*$$NEWVAL (EDT,A)NEWVAL (p5I` %(**$$NEWVAL (FLG,A)NEWVAL (p>, @($
		IF1,<P@HRINTX	%"X$GRP" RM@hS-11 ONLY, IGNORED BY RMS-20>
	pD ;(#^
		IF1,<P;HRINTX	%"X$HAL" RM;hS-11 ONLY, IGNORED BY RMS-20>
	pL@ %h*.$$NEWVAL (IAN,A)NEWVAL (pLk #h*$$NEWVAL (IFL,A)NEWVAL (p]k  'h*>$$NEWVAL (KNM,A)NEWVAL (pd@ &h*6$$NEWVAL (LAN,A)NEWVAL (pnJ :(#V
		IF1,<P:HRINTX	%"X$MTH" RM:hS-11 ONLY, IGNORED BY RMS-20>
	pwh)~$$NEWVAL (NXT,A)NEWVAL (p~{@ ?(#~
		IF1,<P?HRINTX	%"X$OWN" RM?hS-11 ONLY, IGNORED BY RMS-20>
	p|@ !h*$$NEWVAL (PGR,A)NEWVAL (p|` ((*X

		$$NE(HWARRVAL (PS0,A)
		$$NEWARRVAL (P)S1,B)
		$$NEWAR)(RVAL (PS2,C)
		)H$$NEWARRVAL (PS3,)hD)
		$$NEWARRVA*L (PS4,E)
		$$N*(EWARRVAL (PS5,F)*H
		$$NEWARRVAL (*hPS6,G)
		$$NEWA+RRVAL (PS7,H)
	VAL (PS7,H)
	p}` !(*
$$NEWVAL (POW,A)NEWVAL (p)` <(#f
		IF1,<P<HRINTX	%"X$PRG" RM<hS-11 ONLY, IGNORED BY RMS-20>
	p*@ =(#n
		IF1,<P=HRINTX	%"X$PRJ" RM=hS-11 ONLY, IGNORED BY RMS-20>
	p>   h*$$NEWVAL (PSY,A)NEWVAL (p{ "(*$$NEWVAL (PWL,A)NEWVAL (pY@ '(*:$$NEWVAL (REF,A)NEWVAL (p+@ C($
		IF1,<PCHRINTX	%"X$SBN" RMChS-11 ONLY, IGNORED BY RMS-20>
	p@ +H*r

		$$NE+hWARRVAL (SZ0,A)
		$$NEWARRVAL (S,(Z1,B)
		$$NEWAR,HRVAL (SZ2,C)
		,h$$NEWARRVAL (SZ3,-D)
		$$NEWARRVA-(L (SZ4,E)
		$$N-HEWARRVAL (SZ5,F)-h
		$$NEWARRVAL (.SZ6,G)
		$$NEWA.(RRVAL (SZ7,H)
	VAL (SZ7,H)
	p` >(#v
		IF1,<P>HRINTX	%"X$SYS" RM>hS-11 ONLY, IGNORED BY RMS-20>
	p5{ B($
		IF1,<PBHRINTX	%"X$VOL" RMBhS-11 ONLY, IGNORED BY RMS-20>
	p=I A($
		IF1,<PAHRINTX	%"X$WLD" RMAhS-11 ONLY, IGNORED BY RMS-20>
	pD.  D($&
		IF1,<PDHRINTX	%"X$XBY" RMDhS-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@ )z
	IFNB <(B>,<
		$$MAPADD H(B,$$ADDR)	
		ShYN SX$$RT,$$SET
	>					
	IFB <B(>,<SYN SX$$CT,$$SHET>	
						
		Ch$$COD==XB$A		
		X$$BLN==XA$SXA	(	
						
		$$CUHRR (X,BLN)						
		$$CURR (X,BID)
		$$CURR (X,RS1()
		$$CURR (X,NXHT)

						
		$h$CURR (X,CDT)
		$$CURR (X,RDT)
	(	$$CURR (X,EDT)
H
						
		$$CURhR (X,PSY)
		$$CURR (X,POW)
		$$C(URR (X,PGR)
		$$HCURR (X,PWL)

	h					
		$$CURR (X,RS2)
		$$CURR ((X,AID)
		$$CURRH (X,BKZ)

					h	
		$$CURR (X,IFL)
		$$CURR (X,D(FL)
		$$CURR (X,HDTP)
		$$CURR (Xh,FLG)
		$$CURR (X,IAN)
		$$CURR ((X,DAN)
		$$CURRH (X,LAN)
		$$CURhR (X,REF)
		$$CURR (X,KNM)
		$$C(URR (X,RX0)
		$$HCURR (X,RX1)
		$h$CURR (X,RX2)
		$$CURR (X,RX3)
	(	$$CURR (X,RX4)
H		$$CURR (X,RX5)
		$$CURR (X,PS0)
		$$CURR (X,PS1()
		$$CURR (X,PSH2)
		$$CURR (X,PhS3)
		$$CURR (X,PS4)
		$$CURR (X(,PS5)
		$$CURR (HX,PS6)
		$$CURR h(X,PS7)
		$$CURR (X,SZ0)
		$$CUR(R (X,SZ1)
		$$CUHRR (X,SZ2)
		$$ChURR (X,SZ3)
		$$CURR (X,SZ4)
		$($CURR (X,SZ5)
		H$$CURR (X,SZ6)
	h	$$CURR (X,SZ7)
	
						
		$$CU(RR (X,RS6)
		$$CHURR (X,NOK)
		$$hCURR (X,NOA)
		$$CURR (X,RS7)
		($$CURR (X,RS8)
	H	$$CURR (X,RS9)
h
						
						;ONLY THE NXT FIEL(D IS SETTABLE

	S SETTABLE

qI  .h,r
			$$NEW/VAL(BLN,X$$BLN)  /( 
	IFNDEF $$ADDR/H,<

		<$$SET(BI/hD)>_^D18 ! <$$SET0(BLN)>
		<$$SET(0(COD)>_^D18 ! <$$S0HET(NXT)>
		IFE <0hC$$COD-XB$DAT>,<
			<$$SET(CDT)>
			<$$SET(RDT)>
			<$$SET(EDT)>
		>
		IFE <C$$C2OD-XB$PRO>,<
			2(<$$SET(PSY)>
			2H<$$SET(POW)>
			2h<$$SET(PGR)>
			3<$$SET(PWL)>
		>3(
		IFE <C$$COD-X3HB$ALL>,<
			<$$S3hET(AID)>_^D9 ! <$4$SET(BKZ)>
			EX4(P 0,0,0
		>
		I4HFE <C$$COD-XB$KEY4h>,<
			<$$SET(DT5P)>_^D18 ! <$$SET5((FLG)>
			<$$SET5H(IAN)>_^D27 ! <$$5hSET(DAN)>_^D18 ! 6<$$SET(LAN)>_^D9 6(! <$$SET(REF)>
	6H		<$$SET(IFL)>_^D6h18 ! <$$SET(DFL)>7
			<$$SET(KNM)>7(
			EXP 0,0,0,0,7H0
			<$$SET(PS0)7h>_^D18 ! <$$SET(S8Z0)>
			<$$SET(P8(S1)>_^D18 ! <$$SE8HT(SZ1)>
			<$$SE8hT(PS2)>_^D18 ! <$9$SET(SZ2)>
			<$9($SET(PS3)>_^D18 !9H <$$SET(SZ3)>
		9h	<$$SET(PS4)>^D1:8 ! <$$SET(SZ4)>
			<$$SET(PS5)>_:H^D18 ! <$$SET(SZ5:h)>
			<$$SET(PS6;)>_^D18 ! <$$SET(;(SZ6)>
			<$$SET(;HPS7)>_^D18 ! <$$S;hET(SZ7)>
		>
		<IFE <C$$COD-XB$SU<(M>,<
			<$$SET(N<HOK)>_^D9 ! <$$SET<h(NOA)>
			EXP 0,=0,0
		>

		IFE=( <C$$COD-XB$CFG>,=H<
			EXP 0,0,0,0=h,0,0
		>

	>
>	IFDEF $$ADDR,<
>(						
				; STO>HRE COMMON HEADER >hFOR ALL XAB TYPES?
		$$SET(BID)
	?(	$$SET(RS1)
		$$?HSET(COD)
		$$SET?h(NXT)
				; STOR@E REST OF XAB DEP@(ENDING ON IT'S TY@HPE
		IFE <C$$COD@h-XB$DAT>,<
		$$SAET(BLN)
		$$SET(A(CDT)
		$$SET(RDTAH)
		$$SET(EDT)
Ah		>

		IFE <C$$BCOD-XB$PRO>,<
		B($$SET(BLN)
		$$SBHET(PSY)
		$$SET(BhPOW)
		$$SET(PGRC)
		$$SET(PWL)
C(		>

		IFE <C$$CHCOD-XB$ALL>,<
		Ch$$SET(BLN)
		$$SDET(RS2)
		$$SET(D(AID)
		$$SET(BKZDH)
		>

		IFE <DhC$$COD-XB$KEY>,<
		$$SET(BLN)
		E($$SET(IFL)
		$$SEHET(DFL)
		$$SET(EhDTP)
		$$SET(FLGF)
		$$SET(IAN)
F(		$$SET(DAN)
		$FH$SET(LAN)
		$$SEFhT(REF)
		$$SET(KGNM)
		$$SET(RX0)G(
		$$SET(RX1)
	GH	$$SET(RX2)
		$$GhSET(RX3)
		$$SETH(RX4)
		$$SET(RXH(5)

		$$SET(PS0HH)
		$$SET(PS1)
Hh		$$SET(PS2)
		$I$SET(PS3)
		$$SEI(T(PS4)
		$$SET(PIHS5)
		$$SET(PS6)Ih
		$$SET(PS7)
J
		$$SET(SZ0)
		J($$SET(SZ1)
		$$SJHET(SZ2)
		$$SET(JhSZ3)
		$$SET(SZ4K)
		$$SET(SZ5)
K(		$$SET(SZ6)
		$KH$SET(SZ7)
		>
Kh
		IFE <C$$COD-XBL$SUM>,<
		$$SET(L(BLN)
		$$SET(RS6LH)
		$$SET(NOK)
Lh		$$SET(NOA)
		$M$SET(RS7)
		$$SEM(T(RS8)
		$$SET(RMHS9)
		>
		IFE <MhC$$COD-XB$CFG>,<
		$$SET(BLN)
		N(>
		PURGE $$ADDR			
	>					
	qN@ v(/4 $$ZERO(AvH,%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`&4KP q`&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 ( dASCIZ\

H	COPYRIGHT (C) DIhGITAL EQUIPMENT C
ORPORATION 1979, 
(1986.
	ALL RIGHT
HS RESERVED.

\ RESERVED.

\<z 
	IFNBI<A-B,<PRLOW>>
	IFNB <C>(,<IFG A-C,<PRINHTX ?A HAS A VALUhE WHICH IS TOO HIGH>>
IS TOO HIy *("T
	C=A+*HB		
	B==B+1			

	B==B+1			\Y .h"vPURGE C$$BPURGE C$$-i 0*4P 4*2P 4*yP 4+P 4+P 4,}P 4=P 4I;P 4\Y (h"H
	$$CODE().EXBAS,.EXCTR,A,B)
.EXCTR,A,4h1P 4kPP 4kxP 4l}P 56 h!
IF1,<
	$$AB==C$D
(	F$$B==<XX$G>B5H ! <XX$F>B11 ! XhX$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 LwP LP L)WP L*2P L+P L+P L+P L+7P LJ9P LKP LkP MUP MYP MvP MzP MP MPP MSP MWP MXP MSP MyP MPP MSP MWP MYP MtP M8YP M9P MXYP N;v 0(
	T$$PS==(F$$A_-^D30		
	TH$$SZ==<F$$A_-^D2h4> & 77	
	T$$OF==F$$A & 777777	
$AP& 777777	P \+P \HUP \IVP ]
}P ]UP ]P ]VP ]8]P ]9P ]9P ]9SP ]:0P ]:yP ];\P ]<qP ]<{P ]I;P ][YP ^+wP l /("zDEFINE B<A>DEFINE B<l )H"NA$MAX==.)hABASE + .ACTR - 1SE + .ACTR - t*2P t+P t:P tLPP tLVP tMPP tMVP t\pP t\vP t\yP t]p 9(#N
	IFNB <9hB>,<C$$A==B>
>,<C$$A==B>
t]{ 0#
	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 )P )RP )WP )WP )XP )ZP )]P *2P *pP *qP *rP *sP *wP *yP +P +P .1P kP lzP \P 
}P <WP lXP |P 9P 9SP :qP :yP <SP <YP X` '("<
	$$CODE('H.SUBAS,.SUCTR,A,B)
.SUCTR,A,V H!0
	FB$ALL=h=FB$GET+FB$PUT+FB$DEL+FB$UPD+FB$TR(N

	
	$$ASSUMEH(FB$SEQ,0)		;FILEh ORG MUST BE GTR ZERO
	$$ASSUME(R(B$SEQ,0,0)		;RECOHRD ACCESS MUST SThART AT ZERO
	$$ASSUME(XB$KEY,0,0)(		;KEY XAB MUST BHE FIRST
	$$ASSUMhE(XB$STG,0,0)		;STRING DATA-TYPE SHOULD BE ZERO
$*2P $+P $;P $iP $kP $lqP %[yP %i<P ,\Y ("B
	$$CODE(((.ERBAS,.ERCTR,A,B)
.ERCTR,A,4[R $H"6			
  IF2$h,<
	C$MAX==XX$MA%X		
	JS$MIN==100%(0
	JS$MAX==1000+%HXX$MAX
	OPDEF	RM%h$MIN [104B8+1000]&	;MINIMUM JSYS  V&(ALUE
	OPDEF	RM$M&HAX [104B8+1000+XX&h$MAX]
  >				
MAX]
  >				
4\Q " 		
    C$(A==XX$MAX		
   H DEFINE $%A(A)<h	
      IFE <RMS$DJ+RMS$DY>,<				(		;a506
       IHFN TOP$10,<PUSHJ h17,RMS$10##+C$A>	
       IFN TOP($20,<104B8+1000+CH$A>	
     >				h					;a506
     IFN RMS$DY,<PUSHJ( 17,@$$A##>		
 H    IFN RMS$DJ,<PhUSHJ 17,%$A##>		
    >

    DE(FINE $A(.BLK1,.EHRRAD,.BLK2),<
	IhFB <.BLK1>,<IF1,<PRINTX %ARGBLK AD(DRESS OMITTED ON HA MACRO>>
	XMOVhEI	1, .BLK1
	IFIDN <A><RENAME>,<(					       
	IFHB <.BLK2>,<IF1,<PhRINTX %NEWFAB ADDRESS OMITTED ON R(ENAME MACRO>>
	XHMOVEI 2, .BLK2>
h	IFDIF <A><RENAM E>,<
	IFNB <.BLK (2>,<IF1,<PRINTX % HMORE THAN 2 ARGS  hDETECTED IN A MA!CRO>>>
	$%A			
	IFE <RMS$DY+RMS!H$DJ>,<
		IFNB <.!hERRAD>,<JUMP 17,."ERRAD>
		IFB <.E"(RRAD>,<JUMP 16,.+"H1>	>  
	IFN <RMS"h$DY+RMS$DJ>,< IFN#B <.ERRAD>,<
		C#(AIL 2,300000			  #H 
		 PUSHJ 17,.E#hRRAD 		>> 
	
  $  >
  XX$MAX==XX$MAX+1		
X==XX5T H!<			
	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 x/H
	SETZM	x(A			
	MOVEI	2,AxH			
	MOVEI	1,1(2xh)			
	HRLI	1,A	y		
	BLT	1,B-1(2)		
T	1,B-1(2Ky  1t	
      I@FE <RMS$DJ+RMS$DY`>,<						;a506
       IFN TOP$10, <PUSHJ 17,RMS$10#@#+C$CLOSE>	
    `   IFN TOP$20,<104B8+1000+C$CLOSE> 	
     >								@	;a506
     IFN `RMS$DY,<PUSHJ 17,@$$CLOSE##>		
      IFN RMS$DJ,<PU@SHJ 17,%$CLOSE##>		
    LOSE##>{W h`6b	
      IiFE <RMS$DJ+RMS$DYi >,<						;a506
 i@      IFN TOP$10,i`<PUSHJ 17,RMS$10#j#+C$CONNECT>	
  j      IFN TOP$20,<j@104B8+1000+C$CONNj`ECT>	
     >				k					;a506
     k IFN RMS$DY,<PUSHJk@ 17,@$$CONNECT##>k`		
     IFN RMS$lDJ,<PUSHJ 17,%$COl NNECT##>		
    NECT##>		
    )0 t 8	
      I FE <RMS$DJ+RMS$DY@>,<						;a506
 `      IFN TOP$10,<PUSHJ 17,RMS$10# #+C$CREATE>	
   @    IFN TOP$20,<1`04B8+1000+C$CREATE>	
     >						 			;a506
  IF@N RMS$DY,<PUSHJ 1`7,@$$CREATE##>		
     IFN RMS$DJ, <PUSHJ 17,%$CREATE##>		
    EAT$XZ 8r	
      I FE <RMS$DJ+RMS$DY@>,<						;a506
 `      IFN TOP$10,
<PUSHJ 17,RMS$10#
 #+C$DEBUG>	
    
@   IFN TOP$20,<10
`4B8+1000+C$DEBUG>
 	;a5>								
@RMS$IFN<USHJ 17,
     IFN RMS$DJ,<PU SHJ 17,%$DEBUG##>		
    EBUG##>$[ G 4T	
      IG@FE <RMS$DJ+RMS$DYG`>,<						;a506
 H      IFN TOP$10,H <PUSHJ 17,RMS$10#H@#+C$DELETE>	
   H`    IFN TOP$20,<1I04B8+1000+C$DELETI E>	
     >						I@			;a506
J   IFI`N RMS$DY,<PUSHJ 1J7,@$$DELETE##>		
     IFN RMS$DJ,J@<PUSHJ 17,%$DELETE##>		
    LET%q t@7@	
      It`FE <RMS$DJ+RMS$DYu>,<						;a506
u       IFN TOP$10,u@<PUSHJ 17,RMS$10#u`#+C$DISCONNECT>	
       IFN TOP$2v 0,<104B8+1000+C$Dv@ISCONNECT>	
w v` >									;a506
     IFN RMS$DY,w <PUSHJ 17,@$$DISCw@ONNECT##>		
    w` IFN RMS$DJ,<PUSHxJ 17,%$DISCONNECT##>		
    NECT%x 8<8	
      IC`FE <RMS$DJ+RMS$DYD>,<						;a506
 D       IFN TOP$10,D@<PUSHJ 17,RMS$10#D`#+C$DISPLAY>	
  E     IFN TOP$20,<E 104B8+1000+C$DISPE@LAY>	
     >				E`					;a506
     FIFN RMS$DY,<PUSHJF  17,@$$DISPLAY##>F@		
     IFN RMS$F`DJ,<PUSHJ 17,%$DIGSPLAY##>		
    PLAY##>		
    -m HDZ	
      IH FE <RMS$DJ+RMS$DYH@>,<						;a506
 H`      IFN TOP$10,I<PUSHJ 17,RMS$10#I #+C$ENTER>	
    I@   IFN TOP$20,<10I`4B8+1000+C$ENTER>J	
     >								J 	;a506
     IFN J@RMS$DY,<PUSHJ 17,J`@$$ENTER##>		
  K   IFN RMS$DJ,<PUK SHJ 17,%$ENTER##>		
    NTER##>.(9 O=	
      IO FE <RMS$DJ+RMS$DYO@>,<						;a506
 O`      IFN TOP$10,P<PUSHJ 17,RMS$10#P #+C$ERASE>	
    P@   IFN TOP$20,<10P`4B8+1000+C$ERASE>Q	
     >								Q 	;a506
     IFN Q@RMS$DY,<PUSHJ 17,Q`@$$ERASE##>		
  R   IFN RMS$DJ,<PUR SHJ 17,%$ERASE##>		
 RASE##>/	
      IS FE <RMS$DJ+RMS$DYS@>,<						;a506
 S`      IFN TOP$10,T<PUSHJ 17,RMS$10#T #+C$EXTEND>	
   T@    IFN TOP$20,<1T`04B8+1000+C$EXTENUD>	
     >						U 			;a506
V  IFU@N RMS$DY,<PUSHJ 1U`7,@$$EXTEND##>		
     IFN RMS$DJ,V <PUSHJ 17,%$EXTEND##>		
    TEN5R R 5,	
      IR@FE <RMS$DJ+RMS$DYR`>,<						;a506
 S      IFN TOP$10,S <PUSHJ 17,RMS$10#S@#+C$FIND>	
T   S`  IFN TOP$20,<104TB8+1000+C$FIND>	
     >									;T@a506
     IFN RMT`S$DY,<PUSHJ 17,@$U$FIND##>		
     U IFN RMS$DJ,<PUSHJU@ 17,%$FIND##>		
    FIND##>		
5M9 !@:&	
      I!`FE <RMS$DJ+RMS$DY">,<						;a506
 "       IFN TOP$10,"@<PUSHJ 17,RMS$10#"`#+C$FLUSH>	
    #   IFN TOP$20,<10# 4B8+1000+C$FLUSH>#@	
     >								#`	;a506
     IFN $RMS$DY,<PUSHJ 17,$ @$$FLUSH##>		
  $@   IFN RMS$DJ,<PU$`SHJ 17,%$FLUSH##>		
    LUSH##>6)2 Z=j	
      IZ FE <RMS$DJ+RMS$DYZ@>,<						;a506
 Z`      IFN TOP$10,[<PUSHJ 17,RMS$10#[ #+C$FREE>	
\  [@  IFN TOP$20,<104[`B8+1000+C$FREE>	
     >									;\ a506
     IFN RM\@S$DY,<PUSHJ 17,@$\`$FREE##>		
     ]IFN RMS$DJ,<PUSHJ]  17,%$FREE##>		
    FREE##>		
<] & 2L	
      I&@FE <RMS$DJ+RMS$DY&`>,<						;a506
 '      IFN TOP$10,' <PUSHJ 17,RMS$10#'@#+C$GET>	
      '` IFN TOP$20,<104B(8+1000+C$GET>	
 (     >									;a5(@06
     IFN RMS$(`DY,<PUSHJ 17,@$$G)ET##>		
     IFN)  RMS$DJ,<PUSHJ 17)@,%$GET##>		
    $GET##>		
    l\y ,@;	
      I,`FE <RMS$DJ+RMS$DY->,<						;a506
 -       IFN TOP$10,-@<PUSHJ 17,RMS$10#-`#+C$MESSAGE>	
  .     IFN TOP$20,<. 104B8+1000+C$MESS.@AGE>	
     >				.`					;a506
     /IFN RMS$DY,<PUSHJ/  17,@$$MESSAGE##>/@		
     IFN RMS$/`DJ,<PUSHJ 17,%$ME0SSAGE##>		
    SAGE##>		
    u{2 8 ;^	
      I8@FE <RMS$DJ+RMS$DY8`>,<						;a506
 9      IFN TOP$10,9 <PUSHJ 17,RMS$10#9@#+C$NOMESSAGE>	
9`       IFN TOP$20:,<104B8+1000+C$NO: MESSAGE>	
     >:@									;a506
 :`    IFN RMS$DY,<P;USHJ 17,@$$NOMESS; AGE##>		
     IF;@N RMS$DJ,<PUSHJ 1;`7,%$NOMESSAGE##>		
 SAGE##>	w
      Ip FE <RMS$DJ+RMS$DYp@>,<						;a506
 p`      IFN TOP$10,q<PUSHJ 17,RMS$10#q #+C$NXTVOL>	
   q@    IFN TOP$20,<1q`04B8+1000+C$NXTVOrL>	
     >						r 			;a506
s  IFr@N RMS$DY,<PUSHJ 1r`7,@$$NXTVOL##>		
     IFN RMS$DJ,s <PUSHJ 17,%$NXTVOL##>		
    TVO~	7 1	
      I(FE <RMS$DJ+RMS$DYh>,<						;a506
 H      IFN TOP$10,(<PUSHJ 17,RMS$10#h#+C$OPEN>	
     IFN TOP$20,<104(B8+1000+C$OPEN>	
     >									;@a506
     IFN RM`S$DY,<PUSHJ 17,@$$OPEN##>		
      IFN RMS$DJ,<PUSHJ@ 17,%$OPEN##>		
    OPEN##>		
Y 2C*	
      I2 FE <RMS$DJ+RMS$DY2@>,<						;a506
 2`      IFN TOP$10,3<PUSHJ 17,RMS$10#3 #+C$PARSE>	
    3@   IFN TOP$20,<103`4B8+1000+C$PARSE>4	
     >								4 	;a506
     IFN 4@RMS$DY,<PUSHJ 17,4`@$$PARSE##>		
  5   IFN RMS$DJ,<PU5 SHJ 17,%$PARSE##>		
    ARSE##>] 1 3$	
      I1@FE <RMS$DJ+RMS$DY1`>,<						;a506
 2      IFN TOP$10,2 <PUSHJ 17,RMS$10#2@#+C$PUT>	
      2` IFN TOP$20,<104B38+1000+C$PUT>	
 3     >									;a53@06
     IFN RMS$3`DY,<PUSHJ 17,@$$P4UT##>		
     IFN4  RMS$DJ,<PUSHJ 174@,%$PUT##>		
    $PUT##>		
    X2 A"	
      I FE <RMS$DJ+RMS$DY@>,<						;a506
 `      IFN TOP$10,<PUSHJ 17,RMS$10# #+C$READ>	
  @  IFN TOP$20,<104`B8+1000+C$READ>	
     >									; a506
     IFN RM@S$DY,<PUSHJ 17,@$`$READ##>		
     IFN RMS$DJ,<PUSHJ  17,%$READ##>		
    READ##>		
[ 9L	
      I FE <RMS$DJ+RMS$DY@>,<						;a506
 `      IFN TOP$10,<PUSHJ 17,RMS$10# #+C$RELEASE>	
  @     IFN TOP$20,<`104B8+1000+C$RELEASE>	
     >				 					;a506
     @IFN RMS$DY,<PUSHJ` 17,@$$RELEASE##>		
     IFN RMS$ DJ,<PUSHJ 17,%$RE@LEASE##>		
    EASE##>		
    [7 ^F
	
      I^ FE <RMS$DJ+RMS$DY^@>,<						;a506
 ^`      IFN TOP$10,_<PUSHJ 17,RMS$10#_ #+C$REMOVE>	
   _@    IFN TOP$20,<1_`04B8+1000+C$REMOV`E>	
     >						` 			;a506
a  IF`@N RMS$DY,<PUSHJ 1``7,@$$REMOVE##>		
     IFN RMS$DJ,a <PUSHJ 17,%$REMOVE##>		
    MOV[P iFb	
      Ii FE <RMS$DJ+RMS$DYi@>,<						;a506
 i`      IFN TOP$10,j<PUSHJ 17,RMS$10#j #+C$RENAME>	
   j@    IFN TOP$20,<1j`04B8+1000+C$RENAMkE>	
     >						k 			;a506
l  IFk@N RMS$DY,<PUSHJ 1k`7,@$$RENAME##>		
     IFN RMS$DJ,l <PUSHJ 17,%$RENAME##>		
    NAM]t {?r	
      I{ FE <RMS$DJ+RMS$DY{@>,<						;a506
 {`      IFN TOP$10,|<PUSHJ 17,RMS$10#| #+C$REWIND>	
   |@    IFN TOP$20,<1|`04B8+1000+C$REWIN}D>	
     >						} 			;a506
~  IF}@N RMS$DY,<PUSHJ 1}`7,@$$REWIND##>		
     IFN RMS$DJ,~ <PUSHJ 17,%$REWIND##>		
    WINX9 =D	
      I= FE <RMS$DJ+RMS$DY=@>,<						;a506
 =`      IFN TOP$10,><PUSHJ 17,RMS$10#> #+C$SEARCH>	
   >@    IFN TOP$20,<1>`04B8+1000+C$SEARC?H>	
     >						? 			;a506
@  IF?@N RMS$DY,<PUSHJ 1?`7,@$$SEARCH##>		
     IFN RMS$DJ,@ <PUSHJ 17,%$SEARCH##>		
    ARC1 Az	
      I FE <RMS$DJ+RMS$DY@>,<						;a506
 `      IFN TOP$10,<PUSHJ 17,RMS$10# #+C$SPACE>	
    @   IFN TOP$20,<10`4B8+1000+C$SPACE>	
     >								 	;a506
     IFN @RMS$DY,<PUSHJ 17,`@$$SPACE##>		
     IFN RMS$DJ,<PU SHJ 17,%$SPACE##>		
    PACE##>&-7 ] 6	
      I]@FE <RMS$DJ+RMS$DY]`>,<						;a506
 ^      IFN TOP$10,^ <PUSHJ 17,RMS$10#^@#+C$TRUNCATE>	
 ^`      IFN TOP$20,_<104B8+1000+C$TRU_ NCATE>	
     >		_@							;a506
   _`  IFN RMS$DY,<PUS`HJ 17,@$$TRUNCATE` ##>		
     IFN R`@MS$DJ,<PUSHJ 17,%``$TRUNCATE##>		
    CATE##>		
 .	 < 3|	
      I<@FE <RMS$DJ+RMS$DY<`>,<						;a506
 =      IFN TOP$10,= <PUSHJ 17,RMS$10#=@#+C$UPDATE>	
   =`    IFN TOP$20,<1>04B8+1000+C$UPDAT> E>	
     >						>@			;a506
?   IF>`N RMS$DY,<PUSHJ 1?7,@$$UPDATE##>		
     IFN RMS$DJ,?@<PUSHJ 17,%$UPDATE##>		
    DAT.K e>B	
      Ie FE <RMS$DJ+RMS$DYe@>,<						;a506
 e`      IFN TOP$10,f<PUSHJ 17,RMS$10#f #+C$UTLINT>	
   f@    IFN TOP$20,<1f`04B8+1000+C$UTLINgT>	
     >						g 			;a506
h  IFg@N RMS$DY,<PUSHJ 1g`7,@$$UTLINT##>		
     IFN RMS$DJ,h <PUSHJ 17,%$UTLINT##>		
    LIN<: @J	
      I FE <RMS$DJ+RMS$DY@>,<						;a506
 `      IFN TOP$10,<PUSHJ 17,RMS$10# #+C$WAIT>	
  @  IFN TOP$20,<104`B8+1000+C$WAIT>	
     >									; a506
     IFN RM@S$DY,<PUSHJ 17,@$`$WAIT##>		
     	IFN RMS$DJ,<PUSHJ	  17,%$WAIT##>		
    WAIT##>		
>*: 'BR	
      I' FE <RMS$DJ+RMS$DY'@>,<						;a506
 '`      IFN TOP$10,(<PUSHJ 17,RMS$10#( #+C$WRITE>	
    (@   IFN TOP$20,<10(`4B8+1000+C$WRITE>)	
     >								) 	;a506
     IFN )@RMS$DY,<PUSHJ 17,)`@$$WRITE##>		
  *   IFN RMS$DJ,<PU* SHJ 17,%$WRITE##>		
    RITE##>	e|r 2.
	IFB <A >,<IF1,<PRINTX %A@RGBLK ADDRESS OMI`TTED ON CLOSE MAC RO>>
	XMOVEI	1,   A
	IFIDN <CLOSE @><RENAME>,<					  `      
	IFB <C>!,<IF1,<PRINTX %NE! WFAB ADDRESS OMIT!@TED ON RENAME MAC!`RO>>
	XMOVEI 2, "C>
	IFDIF <CLOS" E><RENAME>,<
	IF"@NB <C>,<IF1,<PRI"`NTX %MORE THAN 2 #ARGS DETECTED IN # CLOSE MACRO>>>
	#@$%CLOSE			
	IFE #`<RMS$DY+RMS$DJ>,<$
		IFNB <B>,<JU$ MP 17,B>
		IFB $@<B>,<JUMP 16,.+1$`>	>  
	IFN <RMS$%DY+RMS$DJ>,< IFNB%  <B>,<
		CAIL 2%@,300000			   
		%` PUSHJ 17,B 		>> 
	
     		>>	}kR l`7
	IFB <Am>,<IF1,<PRINTX %Am RGBLK ADDRESS OMIm@TTED ON CONNECT Mm`ACRO>>
	XMOVEI	1n, A
	IFIDN <CONn NECT><RENAME>,<		n@			       
	IFB n`<C>,<IF1,<PRINTXo %NEWFAB ADDRESS o OMITTED ON RENAMEo@ MACRO>>
	XMOVEIo` 2, C>
	IFDIF <pCONNECT><RENAME>,p <
	IFNB <C>,<IFp@1,<PRINTX %MORE Tp`HAN 2 ARGS DETECTqED IN CONNECT MACq RO>>>
	$%CONNECTq@			
	IFE <RMS$DYq`+RMS$DJ>,<
		IFNrB <B>,<JUMP 17,r B>
		IFB <B>,<Jr@UMP 16,.+1>	>  
r`	IFN <RMS$DY+RMS$sDJ>,< IFNB <B>,<s 
		CAIL 2,300000s@			   
		 PUSHJ s`17,B 		>> 
	
     		>> 
	
 	X: `8T
	IFB <A>,<IF1,<PRINTX %A RGBLK ADDRESS OMI@TTED ON CREATE MA`CRO>>
	XMOVEI	1, A
	IFIDN <CREA TE><RENAME>,<				@	       
	IFB <`C>,<IF1,<PRINTX %NEWFAB ADDRESS OM ITTED ON RENAME M@ACRO>>
	XMOVEI 2`, C>
	IFDIF <CREATE><RENAME>,<
 	IFNB <C>,<IF1,<@PRINTX %MORE THAN` 2 ARGS DETECTED IN CREATE MACRO>> >
	$%CREATE			
@	IFE <RMS$DY+RMS$`DJ>,<
		IFNB <B	>,<JUMP 17,B>
		 	IFB <B>,<JUMP 1	@6,.+1>	>  
	IFN 	`<RMS$DY+RMS$DJ>,<
 IFNB <B>,<
		C
 AIL 2,300000			  
@ 
		 PUSHJ 17,B 		>> 
	
    	,-3 `9,
	IFB <A>,<IF1,<PRINTX %A RGBLK ADDRESS OMI@TTED ON DEBUG MAC`RO>>
	XMOVEI	1, A
	IFIDN <DEBUG ><RENAME>,<					 @      
	IFB <C>`,<IF1,<PRINTX %NEWFAB ADDRESS OMIT TED ON RENAME MAC@RO>>
	XMOVEI 2, `C>
	IFDIF <DEBUG><RENAME>,<
	IF NB <C>,<IF1,<PRI@NTX %MORE THAN 2 `ARGS DETECTED IN DEBUG MACRO>>>
	 $%DEBUG			
	IFE @<RMS$DY+RMS$DJ>,<`
		IFNB <B>,<JUMP 17,B>
		IFB  <B>,<JUMP 16,.+1@>	>  
	IFN <RMS$`DY+RMS$DJ>,< IFNB <B>,<
		CAIL 2 ,300000			   
		@ PUSHJ 17,B 		>> 
	
     		>>	-I: K5
	IFB <AK >,<IF1,<PRINTX %AK@RGBLK ADDRESS OMIK`TTED ON DELETE MALCRO>>
	XMOVEI	1,L  A
	IFIDN <DELEL@TE><RENAME>,<				L`	       
	IFB <MC>,<IF1,<PRINTX %M NEWFAB ADDRESS OMM@ITTED ON RENAME MM`ACRO>>
	XMOVEI 2N, C>
	IFDIF <DEN LETE><RENAME>,<
N@	IFNB <C>,<IF1,<N`PRINTX %MORE THANO 2 ARGS DETECTED O IN DELETE MACRO>>O@>
	$%DELETE			
O`	IFE <RMS$DY+RMS$PDJ>,<
		IFNB <BP >,<JUMP 17,B>
	P@	IFB <B>,<JUMP 1P`6,.+1>	>  
	IFN Q<RMS$DY+RMS$DJ>,<Q  IFNB <B>,<
		CQ@AIL 2,300000			  Q` 
		 PUSHJ 17,B 		>> 
	
    	N8w x@7~
	IFB <Ax`>,<IF1,<PRINTX %AyRGBLK ADDRESS OMIy TTED ON DISCONNECy@T MACRO>>
	XMOVEy`I	1, A
	IFIDN <zDISCONNECT><RENAMz E>,<					       
	IFB <C>,<IF1,<z`PRINTX %NEWFAB AD{DRESS OMITTED ON { RENAME MACRO>>
	{@XMOVEI 2, C>
	I{`FDIF <DISCONNECT>|<RENAME>,<
	IFNB|  <C>,<IF1,<PRINT|@X %MORE THAN 2 AR|`GS DETECTED IN DI}SCONNECT MACRO>>>} 
	$%DISCONNECT		}@	
	IFE <RMS$DY+R}`MS$DJ>,<
		IFNB ~<B>,<JUMP 17,B>~ 
		IFB <B>,<JUM~@P 16,.+1>	>  
	I~`FN <RMS$DY+RMS$DJ>,< IFNB <B>,<
 		CAIL 2,300000		@	   
		 PUSHJ 17`,B 		>> 
	
     		>> 
	
   	N< G@<t
	IFB <AG`>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIH TTED ON DISPLAY MH@ACRO>>
	XMOVEI	1H`, A
	IFIDN <DISIPLAY><RENAME>,<		I 			       
	IFB I@<C>,<IF1,<PRINTXI` %NEWFAB ADDRESS JOMITTED ON RENAMEJ  MACRO>>
	XMOVEIJ@ 2, C>
	IFDIF <J`DISPLAY><RENAME>,K<
	IFNB <C>,<IFK 1,<PRINTX %MORE TK@HAN 2 ARGS DETECTK`ED IN DISPLAY MACLRO>>>
	$%DISPLAYL 			
	IFE <RMS$DYL@+RMS$DJ>,<
		IFNL`B <B>,<JUMP 17,MB>
		IFB <B>,<JM UMP 16,.+1>	>  
M@	IFN <RMS$DY+RMS$M`DJ>,< IFNB <B>,<N
		CAIL 2,300000N 			   
		 PUSHJ N@17,B 		>> 
	
     		>> 
	
 	vI9 K`E
	IFB <AL>,<IF1,<PRINTX %AL RGBLK ADDRESS OMIL@TTED ON ENTER MACL`RO>>
	XMOVEI	1, MA
	IFIDN <ENTERM ><RENAME>,<					 M@      
	IFB <C>M`,<IF1,<PRINTX %NENWFAB ADDRESS OMITN TED ON RENAME MACN@RO>>
	XMOVEI 2, N`C>
	IFDIF <ENTEOR><RENAME>,<
	IFO NB <C>,<IF1,<PRIO@NTX %MORE THAN 2 O`ARGS DETECTED IN PENTER MACRO>>>
	P $%ENTER			
	IFE P@<RMS$DY+RMS$DJ>,<P`
		IFNB <B>,<JUQMP 17,B>
		IFB Q <B>,<JUMP 16,.+1Q@>	>  
	IFN <RMS$Q`DY+RMS$DJ>,< IFNBR <B>,<
		CAIL 2R ,300000			   
		R@ PUSHJ 17,B 		>> 
	
     		>>	r R`=L
	IFB <AS>,<IF1,<PRINTX %AS RGBLK ADDRESS OMIS@TTED ON ERASE MACS`RO>>
	XMOVEI	1, TA
	IFIDN <ERASET ><RENAME>,<					 T@      
	IFB <C>T`,<IF1,<PRINTX %NEUWFAB ADDRESS OMITU TED ON RENAME MACU@RO>>
	XMOVEI 2, U`C>
	IFDIF <ERASVE><RENAME>,<
	IFV NB <C>,<IF1,<PRIV@NTX %MORE THAN 2 V`ARGS DETECTED IN WERASE MACRO>>>
	W $%ERASE			
	IFE W@<RMS$DY+RMS$DJ>,<W`
		IFNB <B>,<JUXMP 17,B>
		IFB X <B>,<JUMP 16,.+1X@>	>  
	IFN <RMS$X`DY+RMS$DJ>,< IFNBY <B>,<
		CAIL 2Y ,300000			   
		Y@ PUSHJ 17,B 		>> 
	
     		>>	FI7 V`El
	IFB <AW>,<IF1,<PRINTX %AW RGBLK ADDRESS OMIW@TTED ON EXTEND MAW`CRO>>
	XMOVEI	1,X A
	IFIDN <EXTEX ND><RENAME>,<				X@	       
	IFB <X`C>,<IF1,<PRINTX %YNEWFAB ADDRESS OMY ITTED ON RENAME MY@ACRO>>
	XMOVEI 2Y`, C>
	IFDIF <EXZTEND><RENAME>,<
Z 	IFNB <C>,<IF1,<Z@PRINTX %MORE THANZ` 2 ARGS DETECTED [IN EXTEND MACRO>>[ >
	$%EXTEND			
[@	IFE <RMS$DY+RMS$[`DJ>,<
		IFNB <B\>,<JUMP 17,B>
	\ 	IFB <B>,<JUMP 1\@6,.+1>	>  
	IFN \`<RMS$DY+RMS$DJ>,<] IFNB <B>,<
		C] AIL 2,300000			  ]@ 
		 PUSHJ 17,B 		>> 
	
    	.Ht z(/t
	$$ISOL(zHB)			
	IFE <T$$zhSZ-^D18>,<		
	{({  IFE T$$PS,<			
		HRRZ A,T$$OF+{HC
		T$$SZ==0		
	    >
	    IFE| <T$$PS-^D18>,<		|(
		HLRZ A,T$$OF|H+C
		T$$SZ==0		|h
	    >
	>
	IF}E <T$$SZ-^D36>,<	}(	
		MOVE A,T$$O}HF+C
		T$$SZ==0	}h	
	>
	IFN T$$SZ~,<			
		LDB A,[~(<T$$PS>B5 ! <T$$S~HZ>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ yh/N[F$$A+B][F$$A+B]	Mi V5f
	IFB <AV >,<IF1,<PRINTX %AV@RGBLK ADDRESS OMIV`TTED ON FIND MACRWO>>
	XMOVEI	1, W A
	IFIDN <FIND><W@RENAME>,<					   W`    
	IFB <C>,<XIF1,<PRINTX %NEWFX AB ADDRESS OMITTEX@D ON RENAME MACROX`>>
	XMOVEI 2, CY>
	IFDIF <FIND><Y RENAME>,<
	IFNB Y@<C>,<IF1,<PRINTXY` %MORE THAN 2 ARGZS DETECTED IN FINZ D MACRO>>>
	$%FIZ@ND			
	IFE <RMS$Z`DY+RMS$DJ>,<
		I[FNB <B>,<JUMP 17[ ,B>
		IFB <B>,[@<JUMP 16,.+1>	>  [`
	IFN <RMS$DY+RM\S$DJ>,< IFNB <B>\ ,<
		CAIL 2,3000\@00			   
		 PUSH\`J 17,B 		>> 
	
     		>> 
	f\t % :`
	IFB <A%@>,<IF1,<PRINTX %A%`RGBLK ADDRESS OMI&TTED ON FLUSH MAC& RO>>
	XMOVEI	1, &@A
	IFIDN <FLUSH&`><RENAME>,<					 '      
	IFB <C>' ,<IF1,<PRINTX %NE'@WFAB ADDRESS OMIT'`TED ON RENAME MAC(RO>>
	XMOVEI 2, ( C>
	IFDIF <FLUS(@H><RENAME>,<
	IF(`NB <C>,<IF1,<PRI)NTX %MORE THAN 2 ) ARGS DETECTED IN )@FLUSH MACRO>>>
	)`$%FLUSH			
	IFE *<RMS$DY+RMS$DJ>,<* 
		IFNB <B>,<JU*@MP 17,B>
		IFB *`<B>,<JUMP 16,.+1+>	>  
	IFN <RMS$+ DY+RMS$DJ>,< IFNB+@ <B>,<
		CAIL 2+`,300000			   
		, PUSHJ 17,B 		>> 
	
     		>>	Y  ]`>$
	IFB <A^>,<IF1,<PRINTX %A^ RGBLK ADDRESS OMI^@TTED ON FREE MACR^`O>>
	XMOVEI	1, _A
	IFIDN <FREE><_ RENAME>,<					   _@    
	IFB <C>,<_`IF1,<PRINTX %NEWF`AB ADDRESS OMITTE` D ON RENAME MACRO`@>>
	XMOVEI 2, C``>
	IFDIF <FREE><aRENAME>,<
	IFNB a <C>,<IF1,<PRINTXa@ %MORE THAN 2 ARGa`S DETECTED IN FREbE MACRO>>>
	$%FRb EE			
	IFE <RMS$b@DY+RMS$DJ>,<
		Ib`FNB <B>,<JUMP 17c,B>
		IFB <B>,c <JUMP 16,.+1>	>  c@
	IFN <RMS$DY+RMc`S$DJ>,< IFNB <B>d,<
		CAIL 2,3000d 00			   
		 PUSHd@J 17,B 		>> 
	
     		>> 
	.@ *3
	IFB <A* >,<IF1,<PRINTX %A*@RGBLK ADDRESS OMI*`TTED ON GET MACRO+>>
	XMOVEI	1, A+ 
	IFIDN <GET><RE+@NAME>,<					     +`  
	IFB <C>,<IF,1,<PRINTX %NEWFAB,  ADDRESS OMITTED ,@ON RENAME MACRO>>,`
	XMOVEI 2, C>
	IFDIF <GET><REN- AME>,<
	IFNB <C-@>,<IF1,<PRINTX %M-`ORE THAN 2 ARGS D.ETECTED IN GET MA. CRO>>>
	$%GET			.@
	IFE <RMS$DY+RM.`S$DJ>,<
		IFNB </B>,<JUMP 17,B>
		IFB <B>,<JUMP/@ 16,.+1>	>  
	IF/`N <RMS$DY+RMS$DJ>0,< IFNB <B>,<
	0 	CAIL 2,300000			0@   
		 PUSHJ 17,0`B 		>> 
	
     		>> 
	
    	&u t`G4			
	PUSHuJ 17,$$RMS##	
	.v@REQUIRE SYS:RMSINI	
SHORD 	6.<p 0@;<
	IFB <A0`>,<IF1,<PRINTX %A1RGBLK ADDRESS OMI1 TTED ON MESSAGE M1@ACRO>>
	XMOVEI	11`, A
	IFIDN <MES2SAGE><RENAME>,<		2 			       
	IFB 2@<C>,<IF1,<PRINTX2` %NEWFAB ADDRESS 3OMITTED ON RENAME3  MACRO>>
	XMOVEI3@ 2, C>
	IFDIF <3`MESSAGE><RENAME>,4<
	IFNB <C>,<IF4 1,<PRINTX %MORE T4@HAN 2 ARGS DETECT4`ED IN MESSAGE MAC5RO>>>
	$%MESSAGE5 			
	IFE <RMS$DY5@+RMS$DJ>,<
		IFN5`B <B>,<JUMP 17,6B>
		IFB <B>,<J6 UMP 16,.+1>	>  
6@	IFN <RMS$DY+RMS$6`DJ>,< IFNB <B>,<7
		CAIL 2,3000007 			   
		 PUSHJ 7@17,B 		>> 
	
     		>> 
	
 	:}Y9 < <
	IFB <A<@>,<IF1,<PRINTX %A<`RGBLK ADDRESS OMI=TTED ON NOMESSAGE=  MACRO>>
	XMOVEI=@	1, A
	IFIDN <N=`OMESSAGE><RENAME>>,<					       
	> IFB <C>,<IF1,<PR>@INTX %NEWFAB ADDR>`ESS OMITTED ON RE?NAME MACRO>>
	XM? OVEI 2, C>
	IFD?@IF <NOMESSAGE><RE?`NAME>,<
	IFNB <@C>,<IF1,<PRINTX %@ MORE THAN 2 ARGS @@DETECTED IN NOMES@`SAGE MACRO>>>
	$A%NOMESSAGE			
	IA FE <RMS$DY+RMS$DJA@>,<
		IFNB <B>,A`<JUMP 17,B>
		IBFB <B>,<JUMP 16,B .+1>	>  
	IFN <RB@MS$DY+RMS$DJ>,< IB`FNB <B>,<
		CAICL 2,300000			   
		 PUSHJ 17,B 		>> 
	
     		;FMW s`?T
	IFB <At>,<IF1,<PRINTX %At RGBLK ADDRESS OMIt@TTED ON NXTVOL MAt`CRO>>
	XMOVEI	1,u A
	IFIDN <NXTVu OL><RENAME>,<				u@	       
	IFB <u`C>,<IF1,<PRINTX %vNEWFAB ADDRESS OMv ITTED ON RENAME Mv@ACRO>>
	XMOVEI 2v`, C>
	IFDIF <NXwTVOL><RENAME>,<
w 	IFNB <C>,<IF1,<w@PRINTX %MORE THANw` 2 ARGS DETECTED xIN NXTVOL MACRO>>x >
	$%NXTVOL			
x@	IFE <RMS$DY+RMS$x`DJ>,<
		IFNB <By>,<JUMP 17,B>
	y 	IFB <B>,<JUMP 1y@6,.+1>	>  
	IFN y`<RMS$DY+RMS$DJ>,<z IFNB <B>,<
		Cz AIL 2,300000			  z@ 
		 PUSHJ 17,B 		>> 
	
    	?[@ 1V
	IFB <A >,<IF1,<PRINTX %A@RGBLK ADDRESS OMI`TTED ON OPEN MACRO>>
	XMOVEI	1,  A
	IFIDN <OPEN><@RENAME>,<					   `    
	IFB <C>,<IF1,<PRINTX %NEWF AB ADDRESS OMITTE@D ON RENAME MACRO`>>
	XMOVEI 2, C>
	IFDIF <OPEN>< RENAME>,<
	IFNB @<C>,<IF1,<PRINTX` %MORE THAN 2 ARGS DETECTED IN OPE N MACRO>>>
	$%OP@EN			
	IFE <RMS$`DY+RMS$DJ>,<
		IFNB <B>,<JUMP 17 ,B>
		IFB <B>,@<JUMP 16,.+1>	>  `
	IFN <RMS$DY+RMS$DJ>,< IFNB <B> ,<
		CAIL 2,3000@00			   
		 PUSH`J 17,B 		>> 
	
     		>> 
	B,r 5`Cd
	IFB <A6>,<IF1,<PRINTX %A6 RGBLK ADDRESS OMI6@TTED ON PARSE MAC6`RO>>
	XMOVEI	1, 7A
	IFIDN <PARSE7 ><RENAME>,<					 7@      
	IFB <C>7`,<IF1,<PRINTX %NE8WFAB ADDRESS OMIT8 TED ON RENAME MAC8@RO>>
	XMOVEI 2, 8`C>
	IFDIF <PARS9E><RENAME>,<
	IF9 NB <C>,<IF1,<PRI9@NTX %MORE THAN 2 9`ARGS DETECTED IN :PARSE MACRO>>>
	: $%PARSE			
	IFE :@<RMS$DY+RMS$DJ>,<:`
		IFNB <B>,<JU;MP 17,B>
		IFB ; <B>,<JUMP 16,.+1;@>	>  
	IFN <RMS$;`DY+RMS$DJ>,< IFNB< <B>,<
		CAIL 2< ,300000			   
		<@ PUSHJ 17,B 		>> 
	
     		>>	C.@ 53^
	IFB <A5 >,<IF1,<PRINTX %A5@RGBLK ADDRESS OMI5`TTED ON PUT MACRO6>>
	XMOVEI	1, A6 
	IFIDN <PUT><RE6@NAME>,<					     6`  
	IFB <C>,<IF71,<PRINTX %NEWFAB7  ADDRESS OMITTED 7@ON RENAME MACRO>>7`
	XMOVEI 2, C>
	IFDIF <PUT><REN8 AME>,<
	IFNB <C8@>,<IF1,<PRINTX %M8`ORE THAN 2 ARGS D9ETECTED IN PUT MA9 CRO>>>
	$%PUT			9@
	IFE <RMS$DY+RM9`S$DJ>,<
		IFNB <:B>,<JUMP 17,B>
		IFB <B>,<JUMP:@ 16,.+1>	>  
	IF:`N <RMS$DY+RMS$DJ>;,< IFNB <B>,<
	; 	CAIL 2,300000			;@   
		 PUSHJ 17,;`B 		>> 
	
     		>> 
	
    	J, `A\
	IFB <A>,<IF1,<PRINTX %A RGBLK ADDRESS OMI@TTED ON READ MACR`O>>
	XMOVEI	1, A
	IFIDN <READ>< RENAME>,<					   @    
	IFB <C>,<`IF1,<PRINTX %NEWFAB ADDRESS OMITTE D ON RENAME MACRO@>>
	XMOVEI 2, C`>
	IFDIF <READ><RENAME>,<
	IFNB  <C>,<IF1,<PRINTX@ %MORE THAN 2 ARG`S DETECTED IN READ MACRO>>>
	$%RE AD			
	IFE <RMS$@DY+RMS$DJ>,<
		I`FNB <B>,<JUMP 17,B>
		IFB <B>, <JUMP 16,.+1>	>  @
	IFN <RMS$DY+RM`S$DJ>,< IFNB <B>,<
		CAIL 2,3000 00			   
		 PUSH@J 17,B 		>> 
	
     		>> 
	J-I0 :
	IFB <A >,<IF1,<PRINTX %A@RGBLK ADDRESS OMI`TTED ON RELEASE MACRO>>
	XMOVEI	1 , A
	IFIDN <REL@EASE><RENAME>,<		`			       
	IFB <C>,<IF1,<PRINTX  %NEWFAB ADDRESS @OMITTED ON RENAME` MACRO>>
	XMOVEI 2, C>
	IFDIF < RELEASE><RENAME>,@<
	IFNB <C>,<IF`1,<PRINTX %MORE THAN 2 ARGS DETECT ED IN RELEASE MAC@RO>>>
	$%RELEASE`			
	IFE <RMS$DY+RMS$DJ>,<
		IFN B <B>,<JUMP 17,@B>
		IFB <B>,<J`UMP 16,.+1>	>  
 	IFN <RMS$DY+RMS$  DJ>,< IFNB <B>,< @
		CAIL 2,300000 `			   
		 PUSHJ !17,B 		>> 
	
     		>> 
	
 	J-[{ a`FD
	IFB <Ab>,<IF1,<PRINTX %Ab RGBLK ADDRESS OMIb@TTED ON REMOVE MAb`CRO>>
	XMOVEI	1,c A
	IFIDN <REMOc VE><RENAME>,<				c@	       
	IFB <c`C>,<IF1,<PRINTX %dNEWFAB ADDRESS OMd ITTED ON RENAME Md@ACRO>>
	XMOVEI 2d`, C>
	IFDIF <REeMOVE><RENAME>,<
e 	IFNB <C>,<IF1,<e@PRINTX %MORE THANe` 2 ARGS DETECTED fIN REMOVE MACRO>>f >
	$%REMOVE			
f@	IFE <RMS$DY+RMS$f`DJ>,<
		IFNB <Bg>,<JUMP 17,B>
	g 	IFB <B>,<JUMP 1g@6,.+1>	>  
	IFN g`<RMS$DY+RMS$DJ>,<h IFNB <B>,<
		Ch AIL 2,300000			  h@ 
		 PUSHJ 17,B 		>> 
	
    	J-h6 l`G
	IFB <Am>,<IF1,<PRINTX %Am RGBLK ADDRESS OMIm@TTED ON RENAME MAm`CRO>>
	XMOVEI	1,n A
	IFIDN <RENAn ME><RENAME>,<				n@	       
	IFB <n`C>,<IF1,<PRINTX %oNEWFAB ADDRESS OMo ITTED ON RENAME Mo@ACRO>>
	XMOVEI 2o`, C>
	IFDIF <REpNAME><RENAME>,<
p 	IFNB <C>,<IF1,<p@PRINTX %MORE THANp` 2 ARGS DETECTED qIN RENAME MACRO>>q >
	$%RENAME			
q@	IFE <RMS$DY+RMS$q`DJ>,<
		IFNB <Br>,<JUMP 17,B>
	r 	IFB <B>,<JUMP 1r@6,.+1>	>  
	IFN r`<RMS$DY+RMS$DJ>,<s IFNB <B>,<
		Cs AIL 2,300000			  s@ 
		 PUSHJ 17,B 		>> 
	
    	J.M9 /JPOPJ	17,	J.z7 ~`@,
	IFB <A>,<IF1,<PRINTX %A RGBLK ADDRESS OMI@TTED ON REWIND MA`CRO>>
	XMOVEI	1, A
	IFIDN <REWI ND><RENAME>,<				@	       
	IFB <`C>,<IF1,<PRINTX %NEWFAB ADDRESS OM ITTED ON RENAME M@ACRO>>
	XMOVEI 2`, C>
	IFDIF <REWIND><RENAME>,<
 	IFNB <C>,<IF1,<@PRINTX %MORE THAN` 2 ARGS DETECTED IN REWIND MACRO>> >
	$%REWIND			
@	IFE <RMS$DY+RMS$`DJ>,<
		IFNB <B>,<JUMP 17,B>
	 	IFB <B>,<JUMP 1@6,.+1>	>  
	IFN `<RMS$DY+RMS$DJ>,< IFNB <B>,<
		C AIL 2,300000			  @ 
		 PUSHJ 17,B 		>> 
	
    	Jn0 t`G4			
	PUSHuJ 17,$$RMS##	
	.v@REQUIRE SYS:RMSINI	
SHORD 	N,Q @`D<
	IFB <AA>,<IF1,<PRINTX %AA RGBLK ADDRESS OMIA@TTED ON SEARCH MAA`CRO>>
	XMOVEI	1,B A
	IFIDN <SEARB CH><RENAME>,<				B@	       
	IFB <B`C>,<IF1,<PRINTX %CNEWFAB ADDRESS OMC ITTED ON RENAME MC@ACRO>>
	XMOVEI 2C`, C>
	IFDIF <SEDARCH><RENAME>,<
D 	IFNB <C>,<IF1,<D@PRINTX %MORE THAND` 2 ARGS DETECTED EIN SEARCH MACRO>>E >
	$%SEARCH			
E@	IFE <RMS$DY+RMS$E`DJ>,<
		IFNB <BF>,<JUMP 17,B>
	F 	IFB <B>,<JUMP 1F@6,.+1>	>  
	IFN F`<RMS$DY+RMS$DJ>,<G IFNB <B>,<
		CG AIL 2,300000			  G@ 
		 PUSHJ 17,B 		>> 
	
    	Or `B4
	IFB <A >,<IF1,<PRINTX %A  RGBLK ADDRESS OMI @TTED ON SPACE MAC `RO>>
	XMOVEI	1, !A
	IFIDN <SPACE! ><RENAME>,<					 !@      
	IFB <C>!`,<IF1,<PRINTX %NE"WFAB ADDRESS OMIT" TED ON RENAME MAC"@RO>>
	XMOVEI 2, "`C>
	IFDIF <SPAC#E><RENAME>,<
	IF# NB <C>,<IF1,<PRI#@NTX %MORE THAN 2 #`ARGS DETECTED IN $SPACE MACRO>>>
	$ $%SPACE			
	IFE $@<RMS$DY+RMS$DJ>,<$`
		IFNB <B>,<JU%MP 17,B>
		IFB % <B>,<JUMP 16,.+1%@>	>  
	IFN <RMS$%`DY+RMS$DJ>,< IFNB& <B>,<
		CAIL 2& ,300000			   
		&@ PUSHJ 17,B 		>> 
	
     		>>	O%|R 0
	$$ISOL((B)			
	IFE <T$$HSZ-^D18>,<		
	h  IFE T$$PS,<			
		HRRM A,T$$OF+(C
		T$$SZ==0		
	    >
	    IFEh <T$$PS-^D18>,<		
		HRLM A,T$$OF(+C
		T$$SZ==0		H
	    >
	>
	IFhE <T$$SZ-^D36>,<		
		MOVEM A,T$$(OF+C
		T$$SZ==0H		;INDIC INST GENh
	>
	IFN T$$SZ,<			
		DPB A,[<(T$$PS>B5 ! <T$$SZH>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q a 6B
	IFB <Aa@>,<IF1,<PRINTX %Aa`RGBLK ADDRESS OMIbTTED ON TRUNCATE b MACRO>>
	XMOVEI	b@1, A
	IFIDN <TRb`UNCATE><RENAME>,<c					       
	IFc B <C>,<IF1,<PRINc@TX %NEWFAB ADDRESc`S OMITTED ON RENAdME MACRO>>
	XMOVd EI 2, C>
	IFDIFd@ <TRUNCATE><RENAMd`E>,<
	IFNB <C>,e<IF1,<PRINTX %MORe E THAN 2 ARGS DETe@ECTED IN TRUNCATEe` MACRO>>>
	$%TRUfNCATE			
	IFE <Rf MS$DY+RMS$DJ>,<
f@		IFNB <B>,<JUMPf` 17,B>
		IFB <gB>,<JUMP 16,.+1>	g >  
	IFN <RMS$DYg@+RMS$DJ>,< IFNB <g`B>,<
		CAIL 2,3h00000			   
		Ph USHJ 17,B 		>> 
	
	WH		>>@46
	IFB <A@ >,<IF1,<PRINTX %A@@RGBLK ADDRESS OMI@`TTED ON UPDATE MAACRO>>
	XMOVEI	1,A  A
	IFIDN <UPDAA@TE><RENAME>,<				A`	       
	IFB <BC>,<IF1,<PRINTX %B NEWFAB ADDRESS OMB@ITTED ON RENAME MB`ACRO>>
	XMOVEI 2C, C>
	IFDIF <UPC DATE><RENAME>,<
C@	IFNB <C>,<IF1,<C`PRINTX %MORE THAND 2 ARGS DETECTED D IN UPDATE MACRO>>D@>
	$%UPDATE			
D`	IFE <RMS$DY+RMS$EDJ>,<
		IFNB <BE >,<JUMP 17,B>
	E@	IFB <B>,<JUMP 1E`6,.+1>	>  
	IFN F<RMS$DY+RMS$DJ>,<F  IFNB <B>,<
		CF@AIL 2,300000			  F` 
		 PUSHJ 17,B 		>> 
	
    	W%J7 h`>|
	IFB <Ai>,<IF1,<PRINTX %Ai RGBLK ADDRESS OMIi@TTED ON UTLINT MAi`CRO>>
	XMOVEI	1,j A
	IFIDN <UTLIj NT><RENAME>,<				j@	       
	IFB <j`C>,<IF1,<PRINTX %kNEWFAB ADDRESS OMk ITTED ON RENAME Mk@ACRO>>
	XMOVEI 2k`, C>
	IFDIF <UTlLINT><RENAME>,<
l 	IFNB <C>,<IF1,<l@PRINTX %MORE THANl` 2 ARGS DETECTED mIN UTLINT MACRO>>m >
	$%UTLINT			
m@	IFE <RMS$DY+RMS$m`DJ>,<
		IFNB <Bn>,<JUMP 17,B>
	n 	IFB <B>,<JUMP 1n@6,.+1>	>  
	IFN n`<RMS$DY+RMS$DJ>,<o IFNB <B>,<
		Co AIL 2,300000			  o@ 
		 PUSHJ 17,B 		>> 
	
	^	`A
	IFB <A
>,<IF1,<PRINTX %A
 RGBLK ADDRESS OMI
@TTED ON WAIT MACR
`O>>
	XMOVEI	1, A
	IFIDN <WAIT>< RENAME>,<					   @    
	IFB <C>,<`IF1,<PRINTX %NEWF
AB ADDRESS OMITTE
 D ON RENAME MACRO
@>>
	XMOVEI 2, C
`>
	IFDIFE<WAIT><
	IFNB,IF1,<PRINTXT MACRO>>>
	$%WA IT			
	IFE <RMS$@DY+RMS$DJ>,<
		I`FNB <B>,<JUMP 17,B>
		IFB <B>, <JUMP 16,.+1>	>  @
	IFN <RMS$DY+RM`S$DJ>,< IFNB <B>,<
		CAIL 2,3000 00			   
		 PUSH@J 17,B 		>> 
	
     		>> 
	 *`C

	IFB <A+>,<IF1,<PRINTX %A+ RGBLK ADDRESS OMI+@TTED ON WRITE MAC+`RO>>
	XMOVEI	1, ,A
	IFIDN <WRITE, ><RENAME>,<					 ,@      
	IFB <C>,`,<IF1,<PRINTX %NE-WFAB ADDRESS OMIT- TED ON RENAME MAC-@RO>>
	XMOVEI 2, -`C>
	IFDIF <WRIT.E><RENAME>,<
	IF. NB <C>,<IF1,<PRI.@NTX %MORE THAN 2 .`ARGS DETECTED IN /WRITE MACRO>>>
	/ $%WRITE			
	IFE /@<RMS$DY+RMS$DJ>,</`
		IFNB <B>,<JU0MP 17,B>
		IFB 0 <B>,<JUMP 16,.+10@>	>  
	IFN <RMS$0`DY+RMS$DJ>,< IFNB1 <B>,<
		CAIL 21 ,300000			   
		1@ PUSHJ 17,B 		>> 
	
     		>>: +"`
	DEFINE +(A$B(ARG)<
		IF+H1,<PRINTX	%"A$B+h" RMS-11 ONLY, IG,NORED BY RMS-20>
	>
YhRMS-20>,H"f
	IRP A,,h< ..BADF(F,A) >
.BADF(F,A)">
	IRP A,-H< ..BADF(R,A) >
.BADF(R,A)">
	IRP A,.(< ..BADF(X,A) >
.BADF(X,A)(>P#=P 6D(9P# D=P O,(9P O,=P >}{woP