PDP-10 Archive: fortran-system/rmsinj.unv from bb-4157j-bm_fortran20_v11

Trailing-Edge - PDP-10 Archives - bb-4157j-bm_fortran20_v11_16mt9 - fortran-system/rmsinj.unv

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

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,<P60RINTX	%"F$ANB" RM6PS-11 ONLY, IGNORED BY RMS-20>
	L<`VaP&BKS,A)NEWVAL (LL` a&	$$NEWVAL (BLS,A)NEWVAL (L>@ %y$$NEWVAL (BSZ,A)NEWVAL (LN b&$$NEWVAL (CTX,A)NEWVAL (L%h  2#
		IF1,<P20RINTX	%"F$DNA" RM2PS-11 ONLY, IGNORED BY RMS-20>
	L%l` 3#
		IF1,<P30RINTX	%"F$DNS" RM3PS-11 ONLY, IGNORED BY RMS-20>
	L4` [%Y$$NEWVAL (FAC,A)NEWVAL (L5h  ]%i$$NEWVAL (FNA,A)NEWVAL (L5l` 1#
		IF1,<P10RINTX	%"F$FNS" RM1PS-11 ONLY, IGNORED BY RMS-20>
	L5| \%a$$NEWVAL (FOP,A)NEWVAL (L6>@ bP&$$NEWVAL (FSZ,A)NEWVAL (LTk@ ZP%U$$NEWVAL (JFN,A)NEWVAL (LUk `P&$$NEWVAL (JNL,A)NEWVAL (Ld: 8#E
		IF1,<P80RINTX	%"F$LCH" RM8PS-11 ONLY, IGNORED BY RMS-20>
	Ln+@ ^P%u$$NEWVAL (MRN,A)NEWVAL (Ln,` ^%q$$NEWVAL (MRS,A)NEWVAL (Lt  5#)$$NEWVAL (NAM,A)NEWVAL (L~)` \P%e$$NEWVAL (ORG,A)NEWVAL (L ]P%m$$NEWVAL (RAT,A)NEWVAL (Lk  _P%}$$NEWVAL (RFM,A)NEWVAL (LM@ 4#%
		IF1,<P40RINTX	%"F$RTV" RM4PS-11 ONLY, IGNORED BY RMS-20>
	L

@ [P%]$$NEWVAL (SHR,A)NEWVAL (L' 5P#-$$NEWVAL (TYP,A)NEWVAL (LD@ `&$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ PP%Q
	IFNB <PpA>,<			;RUN-TIME QINIT
		$$MAPADD Q0(A,$$ADDR);	; WIQPLL REFERENCE FAB QpVIA $$ADDR
		SYNR SF$$RT,$$SET
	>R0					
	IFB <A>,RP<SYN SF$$CT,$$SETRp>	
		$$CURR (F,BSID)
		$$CURR (F,S0BLN)
		$$CURR (FSP,STS)
		$$CURR (SpF,STV)
		$$CURR T(F,IFI)
		$$CURRT0 (F,JFN)
		$$CURTPR (F,FAC)
		$$CUTpRR (F,SHR)
		$$CUURR (F,FOP)
		$$U0CURR (F,ORG)
		$UP$CURR (F,FNA)
		Up$$CURR (F,RAT)
	V	$$CURR (F,MRS)
V0		$$CURR (F,MRN)
		$$CURR (F,BSZ)Vp
		$$CURR (F,RFMW)
		$$CURR (F,XAW0B)
		$$CURR (F,JWPNL)
		$$CURR (F,WpBLS)
		$$CURR (FX,BKS)
		$$CURR (X0F,DEV)
		$$CURR XP(F,SDC)
		$$CURRXp (F,CTX)
		$$CURYR (F,FSZ)	;![AWN]Y0
		$$CURR (F,TYPYP)	;![AWN]
		$$CUYpRR (F,NAM)	;![AWNZ]
		$$CURR (F,ALQ)	;![AWN]
	ALMI  7P'
	IFNDEF bp$$ADDR,<				
		<c$$SET(BID)>_^D18 c0! <$$SET(BLN)>
	cP	<$$SET(STS)>^D1cp8 ! <$$SET(STV)>
		<$$SET(CTX)>
d0		<$$SET(IFI)>_^DdP18 ! <$$SET(JFN)>dp
		<$$SET(FAC)>_e^D18 ! <$$SET(SHRe0)>
		<$$SET(FOP)eP>_^D18 ! <$$SET(OepRG)>_^D14 ! <$$SEfT(BSZ)>_^D8 ! <$$f0SET(BLS)>
		<$$SfPET(FNA)>
		<$$SEfpT(RAT)>_^D18 ! <$g$SET(MRS)>
		<$$g0SET(MRN)>
		<$$SgPET(FSZ)>_^D13 ! <gp$$SET(BKS)>_^D5 !h <$$SET(RFM)> ;![h0AWN]
		<$$SET(JNhPL)>_^D18 ! <$$SEThp(XAB)>
		<$$SET(iDEV)>_^D18 ! <$$Si0ET(SDC)>
		<$$SEiPT(TYP)>_^D18 ! <$ip$SET(NAM)>	;![AWNj]
		<$$SET(ALQ)>j0				;![AWN]
		EXjPP 0,0
	>					;ENjpD IFNB
	IFDEF $$kADDR,<
		$$SET(Bk0ID)
		$$SET(BLN)kP
		$$SET(STS)
	kp	$$SET(STV)
		$$lSET(IFI)
		$$SETl0(JFN)
		$$SET(FAlPC)
		$$SET(SHR)
		$$SET(FOP)
		m$$SET(ORG)
		$$Sm0ET(FNA)
		$$SET(mPRAT)
		$$SET(MRSmp)
		$$SET(MRN)
n		$$SET(BSZ)
		$n0$SET(RFM)
		$$SEnPT(XAB)
		$$SET(JnpNL)
		$$SET(BLS)o
		$$SET(BKS)
	o0	$$SET(DEV)
		$$oPSET(SDC)
		$$SETop(CTX)
		$$SET(FSpZ)			;![AWN]
		$p0$SET(NAM)			;![AWpPN]
		$$SET(TYP)	pp		;![AWN]
		$$SEqT(ALQ)			;![AWN]
		
		PURGE $$ADqPDR			
	>					
				
	>					
	MN@ u0/+ $$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  WP-= $$NEWVAL (ESA,A)NEWVAL \.<` X-A $$NEWVAL (ESS,A)NEWVAL \u| Y-I $$NEWVAL (NOP,A)NEWVAL \I@ XP-E $$NEWVAL (RLF,A)NEWVAL \8  YP-M $$NEWVAL (RSA,A)NEWVAL \<` Z-Q $$NEWVAL (RSS,A)NEWVAL ]$zP @]$9P ]$9P ]$9<P ]$;PP ]$I;P$]$J9P!]$YQ  ]$YQ @]$[PQ ]$]Q ]$]RQ ]$^P  ]${RP ]%[P ]%KSP ]%]6Q  ]%^P ?]%^P ?]%h6P @]%jP ]%j6P ]%krP ]&

WP ]&7Q ]&>7P ]&IYP  ]&N8P ]&ZP ]&[P ]&[ZP"]&i9P ]&{Q @]hH@ Np-9
	IFNB <OA>,<
		$$MAPADD O0(A,$$ADDR);	; WIOPLL REFERENCE THE OpBLOCK VIA $$ADDR
		SYN SN$$RT,$$SP0ET
	>					
	IFBPP <A>,<SYN SN$$CTPp,$$SET>	
		$$CURQR (N,BID)
		$$CUQ0RR (N,BLN)
		$$CQPURR (N,ESA)
		$$QpCURR (N,ESS)
		$R$CURR (N,ESL)
		R0$$CURR (N,RLF)
	RP	$$CURR (N,NOP)
Rp		$$CURR (N,RSA)
		$$CURR (N,RSL)S0
		$$CURR (N,RSSSP)
		$$CURR (N,FNSpB)
		$$CURR (N,WTCC)
		$$CURR (N,T0CHA)
		$$CURR (NTP,NDL)
		$$CURR (TpN,DVL)
		$$CURR U(N,NML)
		$$CURRU0 (N,TPL)
		$$CURUPR (N,VRL)
		$$CUUpRR (N,NDA)
		$$CVURR (N,DVA)
		$$V0CURR (N,DRA)
		$VP$CURR (N,NMA)
		Vp$$CURR (N,TPA)
	W	$$CURR (N,VRA)
	 URR (N,VRA)
]hI  ZP.=
	IFNDEF Zp$$ADDR,<
		<$$SE[T(BID)>_^D18 ! <$[0$SET(BLN)>
		<$$[PSET(ESA)>
		<$$S[pET(ESL)>_^D18 ! <\$$SET(ESS)>
		<$\0$SET(NOP)>_^D18 !\P <$$SET(RLF)>
		\p<$$SET(RSA)>
		<]$$SET(RSL)>_^D18 ]0! <$$SET(RSS)>
	]P	<$$SET(FNB)>
		]p<$$SET(WCC)>
		<^$$SET(DVL)>_^D27 ^0! <$$SET(NDL)>_^D^P18 ! <$$SET(CHA)>^p
		<$$SET(VRL)>__^D27 ! <$$SET(TPL_0)>_^D18 ! <$$SET(_PNML)>_^D9 ! <$$SE_pT(DRL)>
		<$$SET`(NDA)>
		<$$SET(`0DVA)>
		<$$SET(D`PRA)>
		<$$SET(NM`pA)>
		<$$SET(TPAa)>
		<$$SET(VRA)a0>
	>				;IFNDEF
	IFDEF $$ADDR,<
		$$SET(BID)
		b$$SET(BLN)
		$$Sb0ET(ESA)
		$$SET(bPESL)
		$$SET(ESSbp)
		$$SET(NOP)
c		$$SET(RLF)
		$c0$SET(RSA)
		$$SEcPT(RSL)
		$$SET(RcpSS)
		$$SET(FNB)d
		$$SET(WCC)
	d0	$$SET(DVL)
		$$dPSET(NDL)
		$$SETdp(CHA)
		$$SET(VReL)
		$$SET(TPL)
		$$SET(NML)
		eP$$SET(DRL)
		$$SepET(NDA)
		$$SET(fDVA)
		$$SET(DRAf0)
		$$SET(NMA)
fP		$$SET(TPA)
		$fp$SET(VRA)

		PUgRGE $$ADDR			;SO g0NEXT C/R DECIS COgPRRECT
	>					;IFDEF
	>					;IF]hN@Ew/9A$$ZERO(A,NA$LNG)ERO(AdNFP(A$$NEWVAL(CTX,A)NEWVALVd-L`KP(NEWVAL d^)@ }P'm $$NEWVAL (KRF,A)NEWVAL d^>@ ~'q $$NEWVAL (KSZ,A)NEWVAL df;@ ( $$NEWVAL (LSN,A)NEWVAL dl)@ 'y $$NEWVAL (MBF,A)NEWVAL d P'} $$NEWVAL (PAD,A)NEWVAL d` zP'U $$NEWVAL (RAC,A)NEWVAL d)@ |'a $$NEWVAL (RBF,A)NEWVAL dh  (	 $$NEWVAL (RFA,A)NEWVAL d@ 0P#I
		IF1,<P8pRINTX	%"R$RHB" RM9S-11 ONLY, IGNORED BY RMS-20>
	d| {'Y $$NEWVAL (ROP,A)NEWVAL d>@ |P'e $$NEWVAL (RSZ,A)NEWVAL d,)@ {P'] $$NEWVAL (UBF,A)NEWVAL d.>@ }'i $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ r'M
	IFNB <r0A>,<
		$$MAPADD rP(A,$$ADDR);	; WIrpLL REFERENCE THE sBLOCK VIA $$ADDR
		SYN SR$$RT,$$SsPET
	>					
	IFBsp <A>,<SYN SR$$CTt,$$SET>	
		$$CURt0R (R,BID)
		$$CUtPRR (R,BLN)
		$$CtpURR (R,STS)
		$$uCURR (R,STV)
		$u0$CURR (R,ISI)
		uP$$CURR (R,FAB)
	up	$$CURR (R,RAC)
v		$$CURR (R,ROP)
		$$CURR (R,UBF)vP
		$$CURR (R,RBFvp)
		$$CURR (R,RSwZ)
		$$CURR (R,Uw0SZ)
		$$CURR (R,wPRFA)
		$$CURR (Rwp,KRF)
		$$CURR (xR,KSZ)
		$$CURR x0(R,KBF)
		$$CURRxP (R,MBF)
		$$CURxpR (R,LSN)
		$$CUyRR (R,BKT)
		$$Cy0URR (R,PAD)
		$$yPCURR (R,CTX)
	 URR (R,CTX)
	 eI  (m
	IFNDEF 0$$ADDR,<
		<$$SEPT(BID)>_^D18 ! <$p$SET(BLN)>
		<$$SET(STS)>_^D18 ! 0<$$SET(STV)>
		<P$$SET(CTX)>
		<$p$SET(ISI)>_^D18 ! <$$SET(FAB)>
		0<$$SET(RAC)>_^D27P ! <$$SET(MBF)>_^pD18 ! <$$SET(ROP)>
		<$$SET(UBF)>0
		<$$SET(RBF)>
		<$$SET(RSZ)>_^pD18 ! <$$SET(USZ)>
		<$$SET(RFA)>0
		<$$SET(KRF)>_P^D27 ! <$$SET(KSZp)>_^D18 ! <$$SET(LSN)>
		<$$SET(K0BF)>
		<$$SET(BKPT)>
		<$$SET(PADp)>_^D27
		EXP 0,0,0
	>				;IFNDE0F
	IFDEF $$ADDR,P<
		$$SET(BID)
p		$$SET(BLN)
		$	$SET(STS)
		$$SE	0T(STV)
		$$SET(I	PSI)
		$$SET(FAB)	p
		$$SET(RAC)
	
	$$SET(ROP)
		$$
0SET(UBF)
		$$SET
P(RBF)
		$$SET(RS
pZ)
		$$SET(USZ)
		$$SET(RFA)
		0$$SET(KRF)
		$$SPET(KSZ)
		$$SET(pKBF)
		$$SET(MBF

)
		$$SET(LSN)

0		$$SET(BKT)
		$

P$SET(PAD)
		$$SE

pT(CTX)
		PURGE	$SOONEXTT
	>					;IFDEF
	>					;IFDEF
eN@ up// $$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 e7IQ e7IP eL$[sP eL%KSP 	eL%KuP eL&9P eL&98P  eL&=1P eL&LWP @eL&N8P eL&\P f$(` 0! A$B==1BC  A$B==1Bf$H` p  A$B==^DC  A$B==^Df&8` 0 { A$B==C$D  A$B==Cg Hz Gp$AIFDEF C$$HA,<C$$A> IFNDEF C$$A,<$$FA>F g LZ FP$;
	    IFNFpDEF C$$A,<IFN $$GFA,<C$$A==$$FAG0>>
	    STO$$C(A)			
	TO$$C(g8 Hz Mp$qIFDEF C$$NA,<C$$A> IFNDEF C$$A,<$$NA>F g8 LZ LP$k
	    IFNLpDEF C$$A,<IFN $$MNA,<C$$A==$$NAM0>>
	    STO$$C(A)			
	TO$$C(gH Hz Ip$QIFDEF C$$JA,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ HP$K
	    IFNHpDEF C$$A,<IFN $$IRA,<C$$A==$$RAI0>>
	    STO$$C(A)			
	TO$$C(gP Hz Op%IFDEF C$$PA,<C$$A> IFNDEF C$$A,<$$TA>F gP LZ NP${
	    IFNNpDEF C$$A,<IFN $$OTA,<C$$A==$$TAO0>>
	    STO$$C(A)			
	TO$$C(gRxA E$1			
	EP  E0IFDEF C$$A,<			
		<HRREI 1,> ! CEp$$A		
		$STORE	F(1,A,$$ADDR)		
	    >
	R)		
gT$M8@ gT%@ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz Kp$aIFDEF C$$LA,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ JP$[
	    IFNJpDEF C$$A,<IFN $$KXA,<C$$A==$$XAK0>>
	    STO$$C(A)			
	TO$$C(hH  lP.e $$NEWVAL (CLA,A)NEWVAL h4M m.i $$NEWVAL (FDT,A)NEWVAL h5K@ mP.m $$NEWVAL (FLN,A)NEWVAL h68` n.q $$NEWVAL (FSC,A)NEWVAL hm|@ o.y $$NEWVAL (MOR,A)NEWVAL ht^ nP.u $$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.a
	IFNB <h0A>,<
		$$MAPADD hP(A,$$ADDR);	; WIhpLL REFERENCE THE iBLOCK VIA $$ADDR
		SYN ST$$RT,$$SiPET
	>					
	IFBip <A>,<SYN ST$$CTj,$$SET>	
		$$CURj0R (T,BID)
		$$CUjPRR (T,BLN)
		$$CjpURR (T,CLA)
		$$kCURR (T,FDT)
		$k0$CURR (T,FLN)
		kP$$CURR (T,FSC)
	kp	$$CURR (T,NEX)
l		$$CURR (T,MOR)
	gURR (T,MOR)
	IFNDEF op$$ADDR,<
		<$$SEpT(BID)>_^D18 ! <$p0$SET(BLN)>
		<$$pPSET(FDT)>_^D18 ! pp<$$SET(CLA)>
		<q$$SET(FLN)>_^D18 q0! <$$SET(FDT)>
	qP	<$$SET(MOR)>^D1qp8 ! <$$SET(NEX)>
	>				;IFNDEF
	r0IFDEF $$ADDR,<
	rP	$$SET(BID)
		$$rpSET(BLN)
		$$SETs(FDT)
		$$SET(CLs0A)
		$$SET(FLN)
		$$SET(FDT)
		sp$$SET(MOR)
		$$StET(NEX)
		PURGE t0$$ADDR			;SO NEXTtP C/R DECIS CORRECtpT
	>					;IFDEF
	>					;IFDEFE$$ZERO(A,TY$LNG)WERO(Ap #0*$$NEWVAL (BKZ,A)NEWVAL (p$@ &0*3$$NEWVAL (DAN,A)NEWVAL (p$k $0*#$$NEWVAL (DFL,A)NEWVAL (p&L $p*'$$NEWVAL (DTP,A)NEWVAL (p,M  0*$$NEWVAL (EDT,A)NEWVAL (p5I` %0*+$$NEWVAL (FLG,A)NEWVAL (p>, @0$
		IF1,<P@PRINTX	%"X$GRP" RM@pS-11 ONLY, IGNORED BY RMS-20>
	pD ;0#_
		IF1,<P;PRINTX	%"X$HAL" RM;pS-11 ONLY, IGNORED BY RMS-20>
	pL@ %p*/$$NEWVAL (IAN,A)NEWVAL (pLk #p*$$NEWVAL (IFL,A)NEWVAL (p]k  'p*?$$NEWVAL (KNM,A)NEWVAL (pd@ &p*7$$NEWVAL (LAN,A)NEWVAL (pnJ :0#W
		IF1,<P:PRINTX	%"X$MTH" RM:pS-11 ONLY, IGNORED BY RMS-20>
	pwp)$$NEWVAL (NXT,A)NEWVAL (p~{@ ?0#
		IF1,<P?PRINTX	%"X$OWN" RM?pS-11 ONLY, IGNORED BY RMS-20>
	p|@ !p*$$NEWVAL (PGR,A)NEWVAL (p|` (0*Y

		$$NE(PWARRVAL (PS0,A)
		$$NEWARRVAL (P)S1,B)
		$$NEWAR)0RVAL (PS2,C)
		)P$$NEWARRVAL (PS3,)pD)
		$$NEWARRVA*L (PS4,E)
		$$N*0EWARRVAL (PS5,F)*P
		$$NEWARRVAL (*pPS6,G)
		$$NEWA+RRVAL (PS7,H)
	VAL (PS7,H)
	p}` !0*$$NEWVAL (POW,A)NEWVAL (p)` <0#g
		IF1,<P<PRINTX	%"X$PRG" RM<pS-11 ONLY, IGNORED BY RMS-20>
	p*@ =0#o
		IF1,<P=PRINTX	%"X$PRJ" RM=pS-11 ONLY, IGNORED BY RMS-20>
	p>   p*$$NEWVAL (PSY,A)NEWVAL (p{ "0*$$NEWVAL (PWL,A)NEWVAL (pY@ '0*;$$NEWVAL (REF,A)NEWVAL (p+@ C0$
		IF1,<PCPRINTX	%"X$SBN" RMCpS-11 ONLY, IGNORED BY RMS-20>
	p@ +P*s

		$$NE+pWARRVAL (SZ0,A)
		$$NEWARRVAL (S,0Z1,B)
		$$NEWAR,PRVAL (SZ2,C)
		,p$$NEWARRVAL (SZ3,-D)
		$$NEWARRVA-0L (SZ4,E)
		$$N-PEWARRVAL (SZ5,F)-p
		$$NEWARRVAL (.SZ6,G)
		$$NEWA.0RRVAL (SZ7,H)
	VAL (SZ7,H)
	p` >0#w
		IF1,<P>PRINTX	%"X$SYS" RM>pS-11 ONLY, IGNORED BY RMS-20>
	p5{ B0$
		IF1,<PBPRINTX	%"X$VOL" RMBpS-11 ONLY, IGNORED BY RMS-20>
	p=I A0$
		IF1,<PAPRINTX	%"X$WLD" RMApS-11 ONLY, IGNORED BY RMS-20>
	pD.  D0$'
		IF1,<PDPRINTX	%"X$XBY" RMDpS-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 <0B>,<
		$$MAPADD P(B,$$ADDR)	
		SpYN SX$$RT,$$SET
	>					
	IFB <B0>,<SYN SX$$CT,$$SPET>	
						
		Cp$$COD==XB$A		
		X$$BLN==XA$SXA	0	
						
		$$CUPRR (X,BLN)						
		$$CURR (X,BID)
		$$CURR (X,RS10)
		$$CURR (X,NXPT)

						
		$p$CURR (X,CDT)
		$$CURR (X,RDT)
	0	$$CURR (X,EDT)
P
						
		$$CURpR (X,PSY)
		$$CURR (X,POW)
		$$C0URR (X,PGR)
		$$PCURR (X,PWL)

	p					
		$$CURR (X,RS2)
		$$CURR 0(X,AID)
		$$CURRP (X,BKZ)

					p	
		$$CURR (X,IFL)
		$$CURR (X,D0FL)
		$$CURR (X,PDTP)
		$$CURR (Xp,FLG)
		$$CURR (X,IAN)
		$$CURR 0(X,DAN)
		$$CURRP (X,LAN)
		$$CURpR (X,REF)
		$$CURR (X,KNM)
		$$C0URR (X,RX0)
		$$PCURR (X,RX1)
		$p$CURR (X,RX2)
		$$CURR (X,RX3)
	0	$$CURR (X,RX4)
P		$$CURR (X,RX5)
		$$CURR (X,PS0)
		$$CURR (X,PS10)
		$$CURR (X,PSP2)
		$$CURR (X,PpS3)
		$$CURR (X,PS4)
		$$CURR (X0,PS5)
		$$CURR (PX,PS6)
		$$CURR p(X,PS7)
		$$CURR (X,SZ0)
		$$CUR0R (X,SZ1)
		$$CUPRR (X,SZ2)
		$$CpURR (X,SZ3)
		$$CURR (X,SZ4)
		$0$CURR (X,SZ5)
		P$$CURR (X,SZ6)
	p	$$CURR (X,SZ7)
	
						
		$$CU0RR (X,RS6)
		$$CPURR (X,NOK)
		$$pCURR (X,NOA)
		$$CURR (X,RS7)
		0$$CURR (X,RS8)
	P	$$CURR (X,RS9)
p
						
						;ONLY THE NXT FIEL0D IS SETTABLE

	S SETTABLE

qI  .p,s
			$$NEW/VAL(BLN,X$$BLN)  /0 
	IFNDEF $$ADDR/P,<

		<$$SET(BI/pD)>_^D18 ! <$$SET0(BLN)>
		<$$SET(00COD)>_^D18 ! <$$S0PET(NXT)>
		IFE <0pC$$COD-XB$DAT>,<
			<$$SET(CDT)>
			<$$SET(RDT)>
			<$$SET(EDT)>
		>
		IFE <C$$C2OD-XB$PRO>,<
			20<$$SET(PSY)>
			2P<$$SET(POW)>
			2p<$$SET(PGR)>
			3<$$SET(PWL)>
		>30
		IFE <C$$COD-X3PB$ALL>,<
			<$$S3pET(AID)>_^D9 ! <$4$SET(BKZ)>
			EX40P 0,0,0
		>
		I4PFE <C$$COD-XB$KEY4p>,<
			<$$SET(DT5P)>_^D18 ! <$$SET50(FLG)>
			<$$SET5P(IAN)>_^D27 ! <$$5pSET(DAN)>_^D18 ! 6<$$SET(LAN)>_^D9 60! <$$SET(REF)>
	6P		<$$SET(IFL)>_^D6p18 ! <$$SET(DFL)>7
			<$$SET(KNM)>70
			EXP 0,0,0,0,7P0
			<$$SET(PS0)7p>_^D18 ! <$$SET(S8Z0)>
			<$$SET(P80S1)>_^D18 ! <$$SE8PT(SZ1)>
			<$$SE8pT(PS2)>_^D18 ! <$9$SET(SZ2)>
			<$90$SET(PS3)>_^D18 !9P <$$SET(SZ3)>
		9p	<$$SET(PS4)>^D1:8 ! <$$SET(SZ4)>
			<$$SET(PS5)>_:P^D18 ! <$$SET(SZ5:p)>
			<$$SET(PS6;)>_^D18 ! <$$SET(;0SZ6)>
			<$$SET(;PPS7)>_^D18 ! <$$S;pET(SZ7)>
		>
		<IFE <C$$COD-XB$SU<0M>,<
			<$$SET(N<POK)>_^D9 ! <$$SET<p(NOA)>
			EXP 0,=0,0
		>

		IFE=0 <C$$COD-XB$CFG>,=P<
			EXP 0,0,0,0=p,0,0
		>

	>
>	IFDEF $$ADDR,<
>0						
				; STO>PRE COMMON HEADER >pFOR ALL XAB TYPES?
		$$SET(BID)
	?0	$$SET(RS1)
		$$?PSET(COD)
		$$SET?p(NXT)
				; STOR@E REST OF XAB DEP@0ENDING ON IT'S TY@PPE
		IFE <C$$COD@p-XB$DAT>,<
		$$SAET(BLN)
		$$SET(A0CDT)
		$$SET(RDTAP)
		$$SET(EDT)
Ap		>

		IFE <C$$BCOD-XB$PRO>,<
		B0$$SET(BLN)
		$$SBPET(PSY)
		$$SET(BpPOW)
		$$SET(PGRC)
		$$SET(PWL)
C0		>

		IFE <C$$CPCOD-XB$ALL>,<
		Cp$$SET(BLN)
		$$SDET(RS2)
		$$SET(D0AID)
		$$SET(BKZDP)
		>

		IFE <DpC$$COD-XB$KEY>,<
		$$SET(BLN)
		E0$$SET(IFL)
		$$SEPET(DFL)
		$$SET(EpDTP)
		$$SET(FLGF)
		$$SET(IAN)
F0		$$SET(DAN)
		$FP$SET(LAN)
		$$SEFpT(REF)
		$$SET(KGNM)
		$$SET(RX0)G0
		$$SET(RX1)
	GP	$$SET(RX2)
		$$GpSET(RX3)
		$$SETH(RX4)
		$$SET(RXH05)

		$$SET(PS0HP)
		$$SET(PS1)
Hp		$$SET(PS2)
		$I$SET(PS3)
		$$SEI0T(PS4)
		$$SET(PIPS5)
		$$SET(PS6)Ip
		$$SET(PS7)
J
		$$SET(SZ0)
		J0$$SET(SZ1)
		$$SJPET(SZ2)
		$$SET(JpSZ3)
		$$SET(SZ4K)
		$$SET(SZ5)
K0		$$SET(SZ6)
		$KP$SET(SZ7)
		>
Kp
		IFE <C$$COD-XBL$SUM>,<
		$$SET(L0BLN)
		$$SET(RS6LP)
		$$SET(NOK)
Lp		$$SET(NOA)
		$M$SET(RS7)
		$$SEM0T(RS8)
		$$SET(RMPS9)
		>
		IFE <MpC$$COD-XB$CFG>,<
		$$SET(BLN)
		N0>
		PURGE $$ADDR			
	>					
	qN@ v0/5 $$ZERO(AvP,%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`&KPqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq
	IFNB <9pB>,<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` '0"=
	$$CODE('P.SUBAS,.SUCTR,A,B)
.SUCTR,A,V P!1
	FB$ALL=p=FB$GET+FB$PUT+FB$DEL+FB$UPD+FB$TR0N

	
	$$ASSUMEP(FB$SEQ,0)		;FILEp ORG MUST BE GTR ZERO
	$$ASSUME(R0B$SEQ,0,0)		;RECOPRD ACCESS MUST STpART AT ZERO
	$$ASSUME(XB$KEY,0,0)0		;KEY XAB MUST BPE FIRST
	$$ASSUMpE(XB$STG,0,0)		;STRING DATA-TYPE SHOULD BE ZERO
$*2P $+P $;P $iP $kP $lqP %[yP %i<P ,\Y ("C
	$$CODE((0.ERBAS,.ERCTR,A,B)
.ERCTR,A,4[R $P"7			
  IF2$p,<
	C$MAX==XX$MA%X		
	JS$MIN==100%00
	JS$MAX==1000+%PXX$MAX
	OPDEF	RM%p$MIN [104B8+1000]&	;MINIMUM JSYS  V&0ALUE
	OPDEF	RM$M&PAX [104B8+1000+XX&p$MAX]
  >				
MAX]
  >				
4\Q "!		
    C$0A==XX$MAX		
   P DEFINE $%A(A)<p	
      IFE <RMS$DJ+RMS$DY>,<				0		;a506
       IPFN TOP$10,<PUSHJ p17,RMS$10##+C$A>	
       IFN TOP0$20,<104B8+1000+CP$A>	
     >				p					;a506
     IFN RMS$DY,<PUSHJ0 17,@$$A##>		
 P    IFN RMS$DJ,<PpUSHJ 17,%$A##>		
    >

    DE0FINE $A(.BLK1,.EPRRAD,.BLK2),<
	IpFB <.BLK1>,<IF1,<PRINTX %ARGBLK AD0DRESS OMITTED ON PA MACRO>>
	XMOVpEI	1, .BLK1
	IFIDN <A><RENAME>,<0					       
	IFPB <.BLK2>,<IF1,<PpRINTX %NEWFAB ADDRESS OMITTED ON R0ENAME MACRO>>
	XPMOVEI 2, .BLK2>
p	IFDIF <A><RENAM E>,<
	IFNB <.BLK 02>,<IF1,<PRINTX % PMORE THAN 2 ARGS  pDETECTED IN A MA!CRO>>>
	$%A			
	IFE <RMS$DY+RMS!P$DJ>,<
		IFNB <.!pERRAD>,<JUMP 17,."ERRAD>
		IFB <.E"0RRAD>,<JUMP 16,.+"P1>	>  
	IFN <RMS"p$DY+RMS$DJ>,< IFN#B <.ERRAD>,<
		C#0AIL 2,300000			  #P 
		 PUSHJ 17,.E#pRRAD 		>> 
	
  $  >
  XX$MAX==XX$MAX+1		
X==XX5T P!=			
	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/I
	SETZM	x0A			
	MOVEI	2,AxP			
	MOVEI	1,1(2xp)			
	HRLI	1,A	y		
	BLT	1,B-1(2)		
T	1,B-1(2Ky (1t	
      IHFE <RMS$DJ+RMS$DYh>,<						;a506
       IFN TOP$10,(<PUSHJ 17,RMS$10#H#+C$CLOSE>	
    h   IFN TOP$20,<104B8+1000+C$CLOSE>(	
     >								H	;a506
     IFN hRMS$DY,<PUSHJ 17,@$$CLOSE##>		
  (   IFN RMS$DJ,<PUHSHJ 17,%$CLOSE##>		
    LOSE##>{W hh6b	
      IiFE <RMS$DJ+RMS$DYi(>,<						;a506
 iH      IFN TOP$10,ih<PUSHJ 17,RMS$10#j#+C$CONNECT>	
  j(     IFN TOP$20,<jH104B8+1000+C$CONNjhECT>	
     >				k					;a506
     k(IFN RMS$DY,<PUSHJkH 17,@$$CONNECT##>kh		
     IFN RMS$lDJ,<PUSHJ 17,%$COl(NNECT##>		
    NECT##>		
    )0 t(8	
      I(FE <RMS$DJ+RMS$DYH>,<						;a506
 h      IFN TOP$10,<PUSHJ 17,RMS$10#(#+C$CREATE>	
   H    IFN TOP$20,<1h04B8+1000+C$CREATE>	
     >						(			;a506
  IFHN RMS$DY,<PUSHJ 1h7,@$$CREATE##>		
     IFN RMS$DJ,(<PUSHJ 17,%$CREATE##>		
    EAT$XZ 8r	
      I(FE <RMS$DJ+RMS$DYH>,<						;a506
 h      IFN TOP$10,

<PUSHJ 17,RMS$10#

(#+C$DEBUG>

H   IFN TOP$20,<10

h4B8+1000+C$DEBUG>
(	;a5>								
HRMS$IFN<USHJ 17,
     IFN RMS$DJ,<PU(SHJ 17,%$DEBUG##>		
    EBUG##>$[ G(4T	
      IGHFE <RMS$DJ+RMS$DYGh>,<						;a506
 H      IFN TOP$10,H(<PUSHJ 17,RMS$10#HH#+C$DELETE>	
   Hh    IFN TOP$20,<1I04B8+1000+C$DELETI(E>	
     >						IH			;a506
J(  IFIhN RMS$DY,<PUSHJ 1J7,@$$DELETE##>		
     IFN RMS$DJ,JH<PUSHJ 17,%$DELETE##>		
    LET%q tH7@	
      IthFE <RMS$DJ+RMS$DYu>,<						;a506
u(      IFN TOP$10,uH<PUSHJ 17,RMS$10#uh#+C$DISCONNECT>	
       IFN TOP$2v(0,<104B8+1000+C$DvHISCONNECT>	
w vh >									;a506
     IFN RMS$DY,w(<PUSHJ 17,@$$DISCwHONNECT##>		
    wh IFN RMS$DJ,<PUSHxJ 17,%$DISCONNECT##>		
    NECT%x 8<8	
      IChFE <RMS$DJ+RMS$DYD>,<						;a506
 D(      IFN TOP$10,DH<PUSHJ 17,RMS$10#Dh#+C$DISPLAY>	
  E     IFN TOP$20,<E(104B8+1000+C$DISPEHLAY>	
     >				Eh					;a506
     FIFN RMS$DY,<PUSHJF( 17,@$$DISPLAY##>FH		
     IFN RMS$FhDJ,<PUSHJ 17,%$DIGSPLAY##>		
    PLAY##>		
    -m HDZ	
      IH(FE <RMS$DJ+RMS$DYHH>,<						;a506
 Hh      IFN TOP$10,I<PUSHJ 17,RMS$10#I(#+C$ENTER>	
    IH   IFN TOP$20,<10Ih4B8+1000+C$ENTER>J	
     >								J(	;a506
     IFN JHRMS$DY,<PUSHJ 17,Jh@$$ENTER##>		
  K   IFN RMS$DJ,<PUK(SHJ 17,%$ENTER##>		
    NTER##>.(9 O=	
      IO(FE <RMS$DJ+RMS$DYOH>,<						;a506
 Oh      IFN TOP$10,P<PUSHJ 17,RMS$10#P(#+C$ERASE>	
    PH   IFN TOP$20,<10Ph4B8+1000+C$ERASE>Q	
     >								Q(	;a506
     IFN QHRMS$DY,<PUSHJ 17,Qh@$$ERASE##>		
  R   IFN RMS$DJ,<PUR(SHJ 17,%$ERASE##>		
 RASE##>/	
      IS(FE <RMS$DJ+RMS$DYSH>,<						;a506
 Sh      IFN TOP$10,T<PUSHJ 17,RMS$10#T(#+C$EXTEND>	
   TH    IFN TOP$20,<1Th04B8+1000+C$EXTENUD>	
     >						U(			;a506
V  IFUHN RMS$DY,<PUSHJ 1Uh7,@$$EXTEND##>		
     IFN RMS$DJ,V(<PUSHJ 17,%$EXTEND##>		
    TEN5R R(5,	
      IRHFE <RMS$DJ+RMS$DYRh>,<						;a506
 S      IFN TOP$10,S(<PUSHJ 17,RMS$10#SH#+C$FIND>	
T(  Sh  IFN TOP$20,<104TB8+1000+C$FIND>	
     >									;THa506
     IFN RMThS$DY,<PUSHJ 17,@$U$FIND##>		
     U(IFN RMS$DJ,<PUSHJUH 17,%$FIND##>		
    FIND##>		
5M9 !H:&	
      I!hFE <RMS$DJ+RMS$DY">,<						;a506
 "(      IFN TOP$10,"H<PUSHJ 17,RMS$10#"h#+C$FLUSH>	
    #   IFN TOP$20,<10#(4B8+1000+C$FLUSH>#H	
     >								#h	;a506
     IFN $RMS$DY,<PUSHJ 17,$(@$$FLUSH##>		
  $H   IFN RMS$DJ,<PU$hSHJ 17,%$FLUSH##>		
    LUSH##>6)2 Z=j	
      IZ(FE <RMS$DJ+RMS$DYZH>,<						;a506
 Zh      IFN TOP$10,[<PUSHJ 17,RMS$10#[(#+C$FREE>	
\  [H  IFN TOP$20,<104[hB8+1000+C$FREE>	
     >									;\(a506
     IFN RM\HS$DY,<PUSHJ 17,@$\h$FREE##>		
     ]IFN RMS$DJ,<PUSHJ]( 17,%$FREE##>		
    FREE##>		
<] &(2L	
      I&HFE <RMS$DJ+RMS$DY&h>,<						;a506
 '      IFN TOP$10,'(<PUSHJ 17,RMS$10#'H#+C$GET>	
      'h IFN TOP$20,<104B(8+1000+C$GET>	
 ((    >									;a5(H06
     IFN RMS$(hDY,<PUSHJ 17,@$$G)ET##>		
     IFN)( RMS$DJ,<PUSHJ 17)H,%$GET##>		
    $GET##>		
    l\y ,H;	
      I,hFE <RMS$DJ+RMS$DY->,<						;a506
 -(      IFN TOP$10,-H<PUSHJ 17,RMS$10#-h#+C$MESSAGE>	
  .     IFN TOP$20,<.(104B8+1000+C$MESS.HAGE>	
     >				.h					;a506
     /IFN RMS$DY,<PUSHJ/( 17,@$$MESSAGE##>/H		
     IFN RMS$/hDJ,<PUSHJ 17,%$ME0SSAGE##>		
    SAGE##>		
    u{2 8(;^	
      I8HFE <RMS$DJ+RMS$DY8h>,<						;a506
 9      IFN TOP$10,9(<PUSHJ 17,RMS$10#9H#+C$NOMESSAGE>	
9h       IFN TOP$20:,<104B8+1000+C$NO:(MESSAGE>	
     >:H									;a506
 :h    IFN RMS$DY,<P;USHJ 17,@$$NOMESS;(AGE##>		
     IF;HN RMS$DJ,<PUSHJ 1;h7,%$NOMESSAGE##>		
 SAGE##>	w
      Ip(FE <RMS$DJ+RMS$DYpH>,<						;a506
 ph      IFN TOP$10,q<PUSHJ 17,RMS$10#q(#+C$NXTVOL>	
   qH    IFN TOP$20,<1qh04B8+1000+C$NXTVOrL>	
     >						r(			;a506
s  IFrHN RMS$DY,<PUSHJ 1rh7,@$$NXTVOL##>		
     IFN RMS$DJ,s(<PUSHJ 17,%$NXTVOL##>		
    TVO~	7 1	
      I0FE <RMS$DJ+RMS$DYp>,<						;a506
 P      IFN TOP$10,0<PUSHJ 17,RMS$10#p#+C$OPEN>	
(    IFN TOP$20,<1040B8+1000+C$OPEN>	
     >									;Ha506
     IFN RMhS$DY,<PUSHJ 17,@$$OPEN##>		
     (IFN RMS$DJ,<PUSHJH 17,%$OPEN##>		
    OPEN##>		
Y 2C*	
      I2(FE <RMS$DJ+RMS$DY2H>,<						;a506
 2h      IFN TOP$10,3<PUSHJ 17,RMS$10#3(#+C$PARSE>	
    3H   IFN TOP$20,<103h4B8+1000+C$PARSE>4	
     >								4(	;a506
     IFN 4HRMS$DY,<PUSHJ 17,4h@$$PARSE##>		
  5   IFN RMS$DJ,<PU5(SHJ 17,%$PARSE##>		
    ARSE##>] 1(3$	
      I1HFE <RMS$DJ+RMS$DY1h>,<						;a506
 2      IFN TOP$10,2(<PUSHJ 17,RMS$10#2H#+C$PUT>	
      2h IFN TOP$20,<104B38+1000+C$PUT>	
 3(    >									;a53H06
     IFN RMS$3hDY,<PUSHJ 17,@$$P4UT##>		
     IFN4( RMS$DJ,<PUSHJ 174H,%$PUT##>		
    $PUT##>		
    X2 A"	
      I(FE <RMS$DJ+RMS$DYH>,<						;a506
 h      IFN TOP$10,<PUSHJ 17,RMS$10#(#+C$READ>	
  H  IFN TOP$20,<104hB8+1000+C$READ>	
     >									;(a506
     IFN RMHS$DY,<PUSHJ 17,@$h$READ##>		
     IFN RMS$DJ,<PUSHJ( 17,%$READ##>		
    READ##>		
[ 9L	
      I(FE <RMS$DJ+RMS$DYH>,<						;a506
 h      IFN TOP$10,<PUSHJ 17,RMS$10#(#+C$RELEASE>	
  H     IFN TOP$20,<h104B8+1000+C$RELEASE>	
     >				(					;a506
     HIFN RMS$DY,<PUSHJh 17,@$$RELEASE##>		
     IFN RMS$(DJ,<PUSHJ 17,%$REHLEASE##>		
    EASE##>		
    [7 ^F
	
      I^(FE <RMS$DJ+RMS$DY^H>,<						;a506
 ^h      IFN TOP$10,_<PUSHJ 17,RMS$10#_(#+C$REMOVE>	
   _H    IFN TOP$20,<1_h04B8+1000+C$REMOV`E>	
     >						`(			;a506
a  IF`HN RMS$DY,<PUSHJ 1`h7,@$$REMOVE##>		
     IFN RMS$DJ,a(<PUSHJ 17,%$REMOVE##>		
    MOV[P iFb	
      Ii(FE <RMS$DJ+RMS$DYiH>,<						;a506
 ih      IFN TOP$10,j<PUSHJ 17,RMS$10#j(#+C$RENAME>	
   jH    IFN TOP$20,<1jh04B8+1000+C$RENAMkE>	
     >						k(			;a506
l  IFkHN RMS$DY,<PUSHJ 1kh7,@$$RENAME##>		
     IFN RMS$DJ,l(<PUSHJ 17,%$RENAME##>		
    NAM]t {?r	
      I{(FE <RMS$DJ+RMS$DY{H>,<						;a506
 {h      IFN TOP$10,|<PUSHJ 17,RMS$10#|(#+C$REWIND>	
   |H    IFN TOP$20,<1|h04B8+1000+C$REWIN}D>	
     >						}(			;a506
~  IF}HN RMS$DY,<PUSHJ 1}h7,@$$REWIND##>		
     IFN RMS$DJ,~(<PUSHJ 17,%$REWIND##>		
    WINX9 =D	
      I=(FE <RMS$DJ+RMS$DY=H>,<						;a506
 =h      IFN TOP$10,><PUSHJ 17,RMS$10#>(#+C$SEARCH>	
   >H    IFN TOP$20,<1>h04B8+1000+C$SEARC?H>	
     >						?(			;a506
@  IF?HN RMS$DY,<PUSHJ 1?h7,@$$SEARCH##>		
     IFN RMS$DJ,@(<PUSHJ 17,%$SEARCH##>		
    ARC1 Az	
      I(FE <RMS$DJ+RMS$DYH>,<						;a506
 h      IFN TOP$10,<PUSHJ 17,RMS$10#(#+C$SPACE>	
    H   IFN TOP$20,<10h4B8+1000+C$SPACE>	
     >								(	;a506
     IFN HRMS$DY,<PUSHJ 17,h@$$SPACE##>		
     IFN RMS$DJ,<PU(SHJ 17,%$SPACE##>		
    PACE##>&-7 ](6	
      I]HFE <RMS$DJ+RMS$DY]h>,<						;a506
 ^      IFN TOP$10,^(<PUSHJ 17,RMS$10#^H#+C$TRUNCATE>	
 ^h      IFN TOP$20,_<104B8+1000+C$TRU_(NCATE>	
     >		_H							;a506
   _h  IFN RMS$DY,<PUS`HJ 17,@$$TRUNCATE`(##>		
     IFN R`HMS$DJ,<PUSHJ 17,%`h$TRUNCATE##>		
    CATE##>		
 .	 <(3|	
      I<HFE <RMS$DJ+RMS$DY<h>,<						;a506
 =      IFN TOP$10,=(<PUSHJ 17,RMS$10#=H#+C$UPDATE>	
   =h    IFN TOP$20,<1>04B8+1000+C$UPDAT>(E>	
     >						>H			;a506
?(  IF>hN RMS$DY,<PUSHJ 1?7,@$$UPDATE##>		
     IFN RMS$DJ,?H<PUSHJ 17,%$UPDATE##>		
    DAT.K e>B	
      Ie(FE <RMS$DJ+RMS$DYeH>,<						;a506
 eh      IFN TOP$10,f<PUSHJ 17,RMS$10#f(#+C$UTLINT>	
   fH    IFN TOP$20,<1fh04B8+1000+C$UTLINgT>	
     >						g(			;a506
h  IFgHN RMS$DY,<PUSHJ 1gh7,@$$UTLINT##>		
     IFN RMS$DJ,h(<PUSHJ 17,%$UTLINT##>		
    LIN<: @J	
      I(FE <RMS$DJ+RMS$DYH>,<						;a506
 h      IFN TOP$10,<PUSHJ 17,RMS$10#(#+C$WAIT>	
  H  IFN TOP$20,<104hB8+1000+C$WAIT>	
     >									;(a506
     IFN RMHS$DY,<PUSHJ 17,@$h$WAIT##>		
     	IFN RMS$DJ,<PUSHJ	( 17,%$WAIT##>		
    WAIT##>		
>*: 'BR	
      I'(FE <RMS$DJ+RMS$DY'H>,<						;a506
 'h      IFN TOP$10,(<PUSHJ 17,RMS$10#((#+C$WRITE>	
    (H   IFN TOP$20,<10(h4B8+1000+C$WRITE>)	
     >								)(	;a506
     IFN )HRMS$DY,<PUSHJ 17,)h@$$WRITE##>		
  *   IFN RMS$DJ,<PU*(SHJ 17,%$WRITE##>		
    RITE##>	e|r 2.
	IFB <A(>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIhTTED ON CLOSE MAC RO>>
	XMOVEI	1,  (A
	IFIDN <CLOSE H><RENAME>,<					  h      
	IFB <C>!,<IF1,<PRINTX %NE!(WFAB ADDRESS OMIT!HTED ON RENAME MAC!hRO>>
	XMOVEI 2, "C>
	IFDIF <CLOS"(E><RENAME>,<
	IF"HNB <C>,<IF1,<PRI"hNTX %MORE THAN 2 #ARGS DETECTED IN #(CLOSE MACRO>>>
	#H$%CLOSE			
	IFE #h<RMS$DY+RMS$DJ>,<$
		IFNB <B>,<JU$(MP 17,B>
		IFB $H<B>,<JUMP 16,.+1$h>	>  
	IFN <RMS$%DY+RMS$DJ>,< IFNB%( <B>,<
		CAIL 2%H,300000			   
		%h PUSHJ 17,B 		>> 
	
     		>>	}kR lh7
	IFB <Am>,<IF1,<PRINTX %Am(RGBLK ADDRESS OMImHTTED ON CONNECT MmhACRO>>
	XMOVEI	1n, A
	IFIDN <CONn(NECT><RENAME>,<		nH			       
	IFB nh<C>,<IF1,<PRINTXo %NEWFAB ADDRESS o(OMITTED ON RENAMEoH MACRO>>
	XMOVEIoh 2, C>
	IFDIF <pCONNECT><RENAME>,p(<
	IFNB <C>,<IFpH1,<PRINTX %MORE TphHAN 2 ARGS DETECTqED IN CONNECT MACq(RO>>>
	$%CONNECTqH			
	IFE <RMS$DYqh+RMS$DJ>,<
		IFNrB <B>,<JUMP 17,r(B>
		IFB <B>,<JrHUMP 16,.+1>	>  
rh	IFN <RMS$DY+RMS$sDJ>,< IFNB <B>,<s(
		CAIL 2,300000sH			   
		 PUSHJ sh17,B 		>> 
	
     		>> 
	
 	X: h8T
	IFB <A>,<IF1,<PRINTX %A(RGBLK ADDRESS OMIHTTED ON CREATE MAhCRO>>
	XMOVEI	1, A
	IFIDN <CREA(TE><RENAME>,<				H	       
	IFB <hC>,<IF1,<PRINTX %NEWFAB ADDRESS OM(ITTED ON RENAME MHACRO>>
	XMOVEI 2h, C>
	IFDIF <CREATE><RENAME>,<
(	IFNB <C>,<IF1,<HPRINTX %MORE THANh 2 ARGS DETECTED IN CREATE MACRO>>(>
	$%CREATE			
H	IFE <RMS$DY+RMS$hDJ>,<
		IFNB <B	>,<JUMP 17,B>
		(	IFB <B>,<JUMP 1	H6,.+1>	>  
	IFN 	h<RMS$DY+RMS$DJ>,<
 IFNB <B>,<
		C
(AIL 2,300000			  
H 
		 PUSHJ 17,B 		>> 
	
    	,-3 h9,
	IFB <A>,<IF1,<PRINTX %A(RGBLK ADDRESS OMIHTTED ON DEBUG MAChRO>>
	XMOVEI	1, A
	IFIDN <DEBUG(><RENAME>,<					 H      
	IFB <C>h,<IF1,<PRINTX %NEWFAB ADDRESS OMIT(TED ON RENAME MACHRO>>
	XMOVEI 2, hC>
	IFDIF <DEBUG><RENAME>,<
	IF(NB <C>,<IF1,<PRIHNTX %MORE THAN 2 hARGS DETECTED IN DEBUG MACRO>>>
	($%DEBUG			
	IFE H<RMS$DY+RMS$DJ>,<h
		IFNB <B>,<JUMP 17,B>
		IFB (<B>,<JUMP 16,.+1H>	>  
	IFN <RMS$hDY+RMS$DJ>,< IFNB <B>,<
		CAIL 2(,300000			   
		H PUSHJ 17,B 		>> 
	
     		>>	-I: K5
	IFB <AK(>,<IF1,<PRINTX %AKHRGBLK ADDRESS OMIKhTTED ON DELETE MALCRO>>
	XMOVEI	1,L( A
	IFIDN <DELELHTE><RENAME>,<				Lh	       
	IFB <MC>,<IF1,<PRINTX %M(NEWFAB ADDRESS OMMHITTED ON RENAME MMhACRO>>
	XMOVEI 2N, C>
	IFDIF <DEN(LETE><RENAME>,<
NH	IFNB <C>,<IF1,<NhPRINTX %MORE THANO 2 ARGS DETECTED O(IN DELETE MACRO>>OH>
	$%DELETE			
Oh	IFE <RMS$DY+RMS$PDJ>,<
		IFNB <BP(>,<JUMP 17,B>
	PH	IFB <B>,<JUMP 1Ph6,.+1>	>  
	IFN Q<RMS$DY+RMS$DJ>,<Q( IFNB <B>,<
		CQHAIL 2,300000			  Qh 
		 PUSHJ 17,B 		>> 
	
    	N8w xH7~
	IFB <Axh>,<IF1,<PRINTX %AyRGBLK ADDRESS OMIy(TTED ON DISCONNECyHT MACRO>>
	XMOVEyhI	1, A
	IFIDN <zDISCONNECT><RENAMz(E>,<					       
	IFB <C>,<IF1,<zhPRINTX %NEWFAB AD{DRESS OMITTED ON {(RENAME MACRO>>
	{HXMOVEI 2, C>
	I{hFDIF <DISCONNECT>|<RENAME>,<
	IFNB|( <C>,<IF1,<PRINT|HX %MORE THAN 2 AR|hGS DETECTED IN DI}SCONNECT MACRO>>>}(
	$%DISCONNECT		}H	
	IFE <RMS$DY+R}hMS$DJ>,<
		IFNB ~<B>,<JUMP 17,B>~(
		IFB <B>,<JUM~HP 16,.+1>	>  
	I~hFN <RMS$DY+RMS$DJ>,< IFNB <B>,<
(		CAIL 2,300000		H	   
		 PUSHJ 17h,B 		>> 
	
     		>> 
	
   	N< GH<t
	IFB <AGh>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIH(TTED ON DISPLAY MHHACRO>>
	XMOVEI	1Hh, A
	IFIDN <DISIPLAY><RENAME>,<		I(			       
	IFB IH<C>,<IF1,<PRINTXIh %NEWFAB ADDRESS JOMITTED ON RENAMEJ( MACRO>>
	XMOVEIJH 2, C>
	IFDIF <JhDISPLAY><RENAME>,K<
	IFNB <C>,<IFK(1,<PRINTX %MORE TKHHAN 2 ARGS DETECTKhED IN DISPLAY MACLRO>>>
	$%DISPLAYL(			
	IFE <RMS$DYLH+RMS$DJ>,<
		IFNLhB <B>,<JUMP 17,MB>
		IFB <B>,<JM(UMP 16,.+1>	>  
MH	IFN <RMS$DY+RMS$MhDJ>,< IFNB <B>,<N
		CAIL 2,300000N(			   
		 PUSHJ NH17,B 		>> 
	
     		>> 
	
 	vI9 KhE
	IFB <AL>,<IF1,<PRINTX %AL(RGBLK ADDRESS OMILHTTED ON ENTER MACLhRO>>
	XMOVEI	1, MA
	IFIDN <ENTERM(><RENAME>,<					 MH      
	IFB <C>Mh,<IF1,<PRINTX %NENWFAB ADDRESS OMITN(TED ON RENAME MACNHRO>>
	XMOVEI 2, NhC>
	IFDIF <ENTEOR><RENAME>,<
	IFO(NB <C>,<IF1,<PRIOHNTX %MORE THAN 2 OhARGS DETECTED IN PENTER MACRO>>>
	P($%ENTER			
	IFE PH<RMS$DY+RMS$DJ>,<Ph
		IFNB <B>,<JUQMP 17,B>
		IFB Q(<B>,<JUMP 16,.+1QH>	>  
	IFN <RMS$QhDY+RMS$DJ>,< IFNBR <B>,<
		CAIL 2R(,300000			   
		RH PUSHJ 17,B 		>> 
	
     		>>	r Rh=L
	IFB <AS>,<IF1,<PRINTX %AS(RGBLK ADDRESS OMISHTTED ON ERASE MACShRO>>
	XMOVEI	1, TA
	IFIDN <ERASET(><RENAME>,<					 TH      
	IFB <C>Th,<IF1,<PRINTX %NEUWFAB ADDRESS OMITU(TED ON RENAME MACUHRO>>
	XMOVEI 2, UhC>
	IFDIF <ERASVE><RENAME>,<
	IFV(NB <C>,<IF1,<PRIVHNTX %MORE THAN 2 VhARGS DETECTED IN WERASE MACRO>>>
	W($%ERASE			
	IFE WH<RMS$DY+RMS$DJ>,<Wh
		IFNB <B>,<JUXMP 17,B>
		IFB X(<B>,<JUMP 16,.+1XH>	>  
	IFN <RMS$XhDY+RMS$DJ>,< IFNBY <B>,<
		CAIL 2Y(,300000			   
		YH PUSHJ 17,B 		>> 
	
     		>>	FI7 VhEl
	IFB <AW>,<IF1,<PRINTX %AW(RGBLK ADDRESS OMIWHTTED ON EXTEND MAWhCRO>>
	XMOVEI	1,X A
	IFIDN <EXTEX(ND><RENAME>,<				XH	       
	IFB <XhC>,<IF1,<PRINTX %YNEWFAB ADDRESS OMY(ITTED ON RENAME MYHACRO>>
	XMOVEI 2Yh, C>
	IFDIF <EXZTEND><RENAME>,<
Z(	IFNB <C>,<IF1,<ZHPRINTX %MORE THANZh 2 ARGS DETECTED [IN EXTEND MACRO>>[(>
	$%EXTEND			
[H	IFE <RMS$DY+RMS$[hDJ>,<
		IFNB <B\>,<JUMP 17,B>
	\(	IFB <B>,<JUMP 1\H6,.+1>	>  
	IFN \h<RMS$DY+RMS$DJ>,<] IFNB <B>,<
		C](AIL 2,300000			  ]H 
		 PUSHJ 17,B 		>> 
	
    	.Ht z0/u
	$$ISOL(zPB)			
	IFE <T$$zpSZ-^D18>,<		
	{0{  IFE T$$PS,<			
		HRRZ A,T$$OF+{PC
		T$$SZ==0		
	    >
	    IFE| <T$$PS-^D18>,<		|0
		HLRZ A,T$$OF|P+C
		T$$SZ==0		|p
	    >
	>
	IF}E <T$$SZ-^D36>,<	}0	
		MOVE A,T$$O}PF+C
		T$$SZ==0	}p	
	>
	IFN T$$SZ~,<			
		LDB A,[~0<T$$PS>B5 ! <T$$S~PZ>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ yp/O[F$$A+B][F$$A+B]	Mi V5f
	IFB <AV(>,<IF1,<PRINTX %AVHRGBLK ADDRESS OMIVhTTED ON FIND MACRWO>>
	XMOVEI	1, W(A
	IFIDN <FIND><WHRENAME>,<					   Wh    
	IFB <C>,<XIF1,<PRINTX %NEWFX(AB ADDRESS OMITTEXHD ON RENAME MACROXh>>
	XMOVEI 2, CY>
	IFDIF <FIND><Y(RENAME>,<
	IFNB YH<C>,<IF1,<PRINTXYh %MORE THAN 2 ARGZS DETECTED IN FINZ(D MACRO>>>
	$%FIZHND			
	IFE <RMS$ZhDY+RMS$DJ>,<
		I[FNB <B>,<JUMP 17[(,B>
		IFB <B>,[H<JUMP 16,.+1>	>  [h
	IFN <RMS$DY+RM\S$DJ>,< IFNB <B>\(,<
		CAIL 2,3000\H00			   
		 PUSH\hJ 17,B 		>> 
	
     		>> 
	f\t %(:`
	IFB <A%H>,<IF1,<PRINTX %A%hRGBLK ADDRESS OMI&TTED ON FLUSH MAC&(RO>>
	XMOVEI	1, &HA
	IFIDN <FLUSH&h><RENAME>,<					 '      
	IFB <C>'(,<IF1,<PRINTX %NE'HWFAB ADDRESS OMIT'hTED ON RENAME MAC(RO>>
	XMOVEI 2, ((C>
	IFDIF <FLUS(HH><RENAME>,<
	IF(hNB <C>,<IF1,<PRI)NTX %MORE THAN 2 )(ARGS DETECTED IN )HFLUSH MACRO>>>
	)h$%FLUSH			
	IFE *<RMS$DY+RMS$DJ>,<*(
		IFNB <B>,<JU*HMP 17,B>
		IFB *h<B>,<JUMP 16,.+1+>	>  
	IFN <RMS$+(DY+RMS$DJ>,< IFNB+H <B>,<
		CAIL 2+h,300000			   
		, PUSHJ 17,B 		>> 
	
     		>>	Y  ]h>$
	IFB <A^>,<IF1,<PRINTX %A^(RGBLK ADDRESS OMI^HTTED ON FREE MACR^hO>>
	XMOVEI	1, _A
	IFIDN <FREE><_(RENAME>,<					   _H    
	IFB <C>,<_hIF1,<PRINTX %NEWF`AB ADDRESS OMITTE`(D ON RENAME MACRO`H>>
	XMOVEI 2, C`h>
	IFDIF <FREE><aRENAME>,<
	IFNB a(<C>,<IF1,<PRINTXaH %MORE THAN 2 ARGahS DETECTED IN FREbE MACRO>>>
	$%FRb(EE			
	IFE <RMS$bHDY+RMS$DJ>,<
		IbhFNB <B>,<JUMP 17c,B>
		IFB <B>,c(<JUMP 16,.+1>	>  cH
	IFN <RMS$DY+RMchS$DJ>,< IFNB <B>d,<
		CAIL 2,3000d(00			   
		 PUSHdHJ 17,B 		>> 
	
     		>> 
	.@ *3
	IFB <A*(>,<IF1,<PRINTX %A*HRGBLK ADDRESS OMI*hTTED ON GET MACRO+>>
	XMOVEI	1, A+(
	IFIDN <GET><RE+HNAME>,<					     +h  
	IFB <C>,<IF,1,<PRINTX %NEWFAB,( ADDRESS OMITTED ,HON RENAME MACRO>>,h
	XMOVEI 2, C>
	IFDIF <GET><REN-(AME>,<
	IFNB <C-H>,<IF1,<PRINTX %M-hORE THAN 2 ARGS D.ETECTED IN GET MA.(CRO>>>
	$%GET			.H
	IFE <RMS$DY+RM.hS$DJ>,<
		IFNB </B>,<JUMP 17,B>
		IFB <B>,<JUMP/H 16,.+1>	>  
	IF/hN <RMS$DY+RMS$DJ>0,< IFNB <B>,<
	0(	CAIL 2,300000			0H   
		 PUSHJ 17,0hB 		>> 
	
     		>> 
	
    	&u thG4			
	PUSHuJ 17,$$RMS##	
	.vHREQUIRE SYS:RMSINI	
SHORD 	6.<p 0H;<
	IFB <A0h>,<IF1,<PRINTX %A1RGBLK ADDRESS OMI1(TTED ON MESSAGE M1HACRO>>
	XMOVEI	11h, A
	IFIDN <MES2SAGE><RENAME>,<		2(			       
	IFB 2H<C>,<IF1,<PRINTX2h %NEWFAB ADDRESS 3OMITTED ON RENAME3( MACRO>>
	XMOVEI3H 2, C>
	IFDIF <3hMESSAGE><RENAME>,4<
	IFNB <C>,<IF4(1,<PRINTX %MORE T4HHAN 2 ARGS DETECT4hED IN MESSAGE MAC5RO>>>
	$%MESSAGE5(			
	IFE <RMS$DY5H+RMS$DJ>,<
		IFN5hB <B>,<JUMP 17,6B>
		IFB <B>,<J6(UMP 16,.+1>	>  
6H	IFN <RMS$DY+RMS$6hDJ>,< IFNB <B>,<7
		CAIL 2,3000007(			   
		 PUSHJ 7H17,B 		>> 
	
     		>> 
	
 	:}Y9 <(<
	IFB <A<H>,<IF1,<PRINTX %A<hRGBLK ADDRESS OMI=TTED ON NOMESSAGE=( MACRO>>
	XMOVEI=H	1, A
	IFIDN <N=hOMESSAGE><RENAME>>,<					       
	>(IFB <C>,<IF1,<PR>HINTX %NEWFAB ADDR>hESS OMITTED ON RE?NAME MACRO>>
	XM?(OVEI 2, C>
	IFD?HIF <NOMESSAGE><RE?hNAME>,<
	IFNB <@C>,<IF1,<PRINTX %@(MORE THAN 2 ARGS @HDETECTED IN NOMES@hSAGE MACRO>>>
	$A%NOMESSAGE			
	IA(FE <RMS$DY+RMS$DJAH>,<
		IFNB <B>,Ah<JUMP 17,B>
		IBFB <B>,<JUMP 16,B(.+1>	>  
	IFN <RBHMS$DY+RMS$DJ>,< IBhFNB <B>,<
		CAICL 2,300000			   
		 PUSHJ 17,B 		>> 
	
     		;FMW sh?T
	IFB <At>,<IF1,<PRINTX %At(RGBLK ADDRESS OMItHTTED ON NXTVOL MAthCRO>>
	XMOVEI	1,u A
	IFIDN <NXTVu(OL><RENAME>,<				uH	       
	IFB <uhC>,<IF1,<PRINTX %vNEWFAB ADDRESS OMv(ITTED ON RENAME MvHACRO>>
	XMOVEI 2vh, C>
	IFDIF <NXwTVOL><RENAME>,<
w(	IFNB <C>,<IF1,<wHPRINTX %MORE THANwh 2 ARGS DETECTED xIN NXTVOL MACRO>>x(>
	$%NXTVOL			
xH	IFE <RMS$DY+RMS$xhDJ>,<
		IFNB <By>,<JUMP 17,B>
	y(	IFB <B>,<JUMP 1yH6,.+1>	>  
	IFN yh<RMS$DY+RMS$DJ>,<z IFNB <B>,<
		Cz(AIL 2,300000			  zH 
		 PUSHJ 17,B 		>> 
	
    	?[@ 1V
	IFB <A(>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIhTTED ON OPEN MACRO>>
	XMOVEI	1, (A
	IFIDN <OPEN><HRENAME>,<					   h    
	IFB <C>,<IF1,<PRINTX %NEWF(AB ADDRESS OMITTEHD ON RENAME MACROh>>
	XMOVEI 2, C>
	IFDIF <OPEN><(RENAME>,<
	IFNB H<C>,<IF1,<PRINTXh %MORE THAN 2 ARGS DETECTED IN OPE(N MACRO>>>
	$%OPHEN			
	IFE <RMS$hDY+RMS$DJ>,<
		IFNB <B>,<JUMP 17(,B>
		IFB <B>,H<JUMP 16,.+1>	>  h
	IFN <RMS$DY+RMS$DJ>,< IFNB <B>(,<
		CAIL 2,3000H00			   
		 PUSHhJ 17,B 		>> 
	
     		>> 
	B,r 5hCd
	IFB <A6>,<IF1,<PRINTX %A6(RGBLK ADDRESS OMI6HTTED ON PARSE MAC6hRO>>
	XMOVEI	1, 7A
	IFIDN <PARSE7(><RENAME>,<					 7H      
	IFB <C>7h,<IF1,<PRINTX %NE8WFAB ADDRESS OMIT8(TED ON RENAME MAC8HRO>>
	XMOVEI 2, 8hC>
	IFDIF <PARS9E><RENAME>,<
	IF9(NB <C>,<IF1,<PRI9HNTX %MORE THAN 2 9hARGS DETECTED IN :PARSE MACRO>>>
	:($%PARSE			
	IFE :H<RMS$DY+RMS$DJ>,<:h
		IFNB <B>,<JU;MP 17,B>
		IFB ;(<B>,<JUMP 16,.+1;H>	>  
	IFN <RMS$;hDY+RMS$DJ>,< IFNB< <B>,<
		CAIL 2<(,300000			   
		<H PUSHJ 17,B 		>> 
	
     		>>	C.@ 53^
	IFB <A5(>,<IF1,<PRINTX %A5HRGBLK ADDRESS OMI5hTTED ON PUT MACRO6>>
	XMOVEI	1, A6(
	IFIDN <PUT><RE6HNAME>,<					     6h  
	IFB <C>,<IF71,<PRINTX %NEWFAB7( ADDRESS OMITTED 7HON RENAME MACRO>>7h
	XMOVEI 2, C>
	IFDIF <PUT><REN8(AME>,<
	IFNB <C8H>,<IF1,<PRINTX %M8hORE THAN 2 ARGS D9ETECTED IN PUT MA9(CRO>>>
	$%PUT			9H
	IFE <RMS$DY+RM9hS$DJ>,<
		IFNB <:B>,<JUMP 17,B>
		IFB <B>,<JUMP:H 16,.+1>	>  
	IF:hN <RMS$DY+RMS$DJ>;,< IFNB <B>,<
	;(	CAIL 2,300000			;H   
		 PUSHJ 17,;hB 		>> 
	
     		>> 
	
    	J, hA\
	IFB <A>,<IF1,<PRINTX %A(RGBLK ADDRESS OMIHTTED ON READ MACRhO>>
	XMOVEI	1, A
	IFIDN <READ><(RENAME>,<					   H    
	IFB <C>,<hIF1,<PRINTX %NEWFAB ADDRESS OMITTE(D ON RENAME MACROH>>
	XMOVEI 2, Ch>
	IFDIF <READ><RENAME>,<
	IFNB (<C>,<IF1,<PRINTXH %MORE THAN 2 ARGhS DETECTED IN READ MACRO>>>
	$%RE(AD			
	IFE <RMS$HDY+RMS$DJ>,<
		IhFNB <B>,<JUMP 17,B>
		IFB <B>,(<JUMP 16,.+1>	>  H
	IFN <RMS$DY+RMhS$DJ>,< IFNB <B>,<
		CAIL 2,3000(00			   
		 PUSHHJ 17,B 		>> 
	
     		>> 
	J-I0 :
	IFB <A(>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIhTTED ON RELEASE MACRO>>
	XMOVEI	1(, A
	IFIDN <RELHEASE><RENAME>,<		h			       
	IFB <C>,<IF1,<PRINTX( %NEWFAB ADDRESS HOMITTED ON RENAMEh MACRO>>
	XMOVEI 2, C>
	IFDIF <(RELEASE><RENAME>,H<
	IFNB <C>,<IFh1,<PRINTX %MORE THAN 2 ARGS DETECT(ED IN RELEASE MACHRO>>>
	$%RELEASEh			
	IFE <RMS$DY+RMS$DJ>,<
		IFN(B <B>,<JUMP 17,HB>
		IFB <B>,<JhUMP 16,.+1>	>  
 	IFN <RMS$DY+RMS$ (DJ>,< IFNB <B>,< H
		CAIL 2,300000 h			   
		 PUSHJ !17,B 		>> 
	
     		>> 
	
 	J-[{ ahFD
	IFB <Ab>,<IF1,<PRINTX %Ab(RGBLK ADDRESS OMIbHTTED ON REMOVE MAbhCRO>>
	XMOVEI	1,c A
	IFIDN <REMOc(VE><RENAME>,<				cH	       
	IFB <chC>,<IF1,<PRINTX %dNEWFAB ADDRESS OMd(ITTED ON RENAME MdHACRO>>
	XMOVEI 2dh, C>
	IFDIF <REeMOVE><RENAME>,<
e(	IFNB <C>,<IF1,<eHPRINTX %MORE THANeh 2 ARGS DETECTED fIN REMOVE MACRO>>f(>
	$%REMOVE			
fH	IFE <RMS$DY+RMS$fhDJ>,<
		IFNB <Bg>,<JUMP 17,B>
	g(	IFB <B>,<JUMP 1gH6,.+1>	>  
	IFN gh<RMS$DY+RMS$DJ>,<h IFNB <B>,<
		Ch(AIL 2,300000			  hH 
		 PUSHJ 17,B 		>> 
	
    	J-h6 lhG
	IFB <Am>,<IF1,<PRINTX %Am(RGBLK ADDRESS OMImHTTED ON RENAME MAmhCRO>>
	XMOVEI	1,n A
	IFIDN <RENAn(ME><RENAME>,<				nH	       
	IFB <nhC>,<IF1,<PRINTX %oNEWFAB ADDRESS OMo(ITTED ON RENAME MoHACRO>>
	XMOVEI 2oh, C>
	IFDIF <REpNAME><RENAME>,<
p(	IFNB <C>,<IF1,<pHPRINTX %MORE THANph 2 ARGS DETECTED qIN RENAME MACRO>>q(>
	$%RENAME			
qH	IFE <RMS$DY+RMS$qhDJ>,<
		IFNB <Br>,<JUMP 17,B>
	r(	IFB <B>,<JUMP 1rH6,.+1>	>  
	IFN rh<RMS$DY+RMS$DJ>,<s IFNB <B>,<
		Cs(AIL 2,300000			  sH 
		 PUSHJ 17,B 		>> 
	
    	J.M9 /KPOPJ	17,	J.z7 ~h@,
	IFB <A>,<IF1,<PRINTX %A(RGBLK ADDRESS OMIHTTED ON REWIND MAhCRO>>
	XMOVEI	1, A
	IFIDN <REWI(ND><RENAME>,<				H	       
	IFB <hC>,<IF1,<PRINTX %NEWFAB ADDRESS OM(ITTED ON RENAME MHACRO>>
	XMOVEI 2h, C>
	IFDIF <REWIND><RENAME>,<
(	IFNB <C>,<IF1,<HPRINTX %MORE THANh 2 ARGS DETECTED IN REWIND MACRO>>(>
	$%REWIND			
H	IFE <RMS$DY+RMS$hDJ>,<
		IFNB <B>,<JUMP 17,B>
	(	IFB <B>,<JUMP 1H6,.+1>	>  
	IFN h<RMS$DY+RMS$DJ>,< IFNB <B>,<
		C(AIL 2,300000			  H 
		 PUSHJ 17,B 		>> 
	
    	Jn0 thG4			
	PUSHuJ 17,$$RMS##	
	.vHREQUIRE SYS:RMSINI	
SHORD 	N,Q @hD<
	IFB <AA>,<IF1,<PRINTX %AA(RGBLK ADDRESS OMIAHTTED ON SEARCH MAAhCRO>>
	XMOVEI	1,B A
	IFIDN <SEARB(CH><RENAME>,<				BH	       
	IFB <BhC>,<IF1,<PRINTX %CNEWFAB ADDRESS OMC(ITTED ON RENAME MCHACRO>>
	XMOVEI 2Ch, C>
	IFDIF <SEDARCH><RENAME>,<
D(	IFNB <C>,<IF1,<DHPRINTX %MORE THANDh 2 ARGS DETECTED EIN SEARCH MACRO>>E(>
	$%SEARCH			
EH	IFE <RMS$DY+RMS$EhDJ>,<
		IFNB <BF>,<JUMP 17,B>
	F(	IFB <B>,<JUMP 1FH6,.+1>	>  
	IFN Fh<RMS$DY+RMS$DJ>,<G IFNB <B>,<
		CG(AIL 2,300000			  GH 
		 PUSHJ 17,B 		>> 
	
    	Or hB4
	IFB <A >,<IF1,<PRINTX %A (RGBLK ADDRESS OMI HTTED ON SPACE MAC hRO>>
	XMOVEI	1, !A
	IFIDN <SPACE!(><RENAME>,<					 !H      
	IFB <C>!h,<IF1,<PRINTX %NE"WFAB ADDRESS OMIT"(TED ON RENAME MAC"HRO>>
	XMOVEI 2, "hC>
	IFDIF <SPAC#E><RENAME>,<
	IF#(NB <C>,<IF1,<PRI#HNTX %MORE THAN 2 #hARGS DETECTED IN $SPACE MACRO>>>
	$($%SPACE			
	IFE $H<RMS$DY+RMS$DJ>,<$h
		IFNB <B>,<JU%MP 17,B>
		IFB %(<B>,<JUMP 16,.+1%H>	>  
	IFN <RMS$%hDY+RMS$DJ>,< IFNB& <B>,<
		CAIL 2&(,300000			   
		&H PUSHJ 17,B 		>> 
	
     		>>	O%|R 0
	$$ISOL(0B)			
	IFE <T$$PSZ-^D18>,<		
	p  IFE T$$PS,<			
		HRRM A,T$$OF+0C
		T$$SZ==0		
	    >
	    IFEp <T$$PS-^D18>,<		
		HRLM A,T$$OF0+C
		T$$SZ==0		P
	    >
	>
	IFpE <T$$SZ-^D36>,<		
		MOVEM A,T$$0OF+C
		T$$SZ==0P		;INDIC INST GENp
	>
	IFN T$$SZ,<			
		DPB A,[<0T$$PS>B5 ! <T$$SZP>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q a(6B
	IFB <AaH>,<IF1,<PRINTX %AahRGBLK ADDRESS OMIbTTED ON TRUNCATE b(MACRO>>
	XMOVEI	bH1, A
	IFIDN <TRbhUNCATE><RENAME>,<c					       
	IFc(B <C>,<IF1,<PRINcHTX %NEWFAB ADDRESchS OMITTED ON RENAdME MACRO>>
	XMOVd(EI 2, C>
	IFDIFdH <TRUNCATE><RENAMdhE>,<
	IFNB <C>,e<IF1,<PRINTX %MORe(E THAN 2 ARGS DETeHECTED IN TRUNCATEeh MACRO>>>
	$%TRUfNCATE			
	IFE <Rf(MS$DY+RMS$DJ>,<
fH		IFNB <B>,<JUMPfh 17,B>
		IFB <gB>,<JUMP 16,.+1>	g(>  
	IFN <RMS$DYgH+RMS$DJ>,< IFNB <ghB>,<
		CAIL 2,3h00000			   
		Ph(USHJ 17,B 		>> 
	
	WH		>>@46
	IFB <A@(>,<IF1,<PRINTX %A@HRGBLK ADDRESS OMI@hTTED ON UPDATE MAACRO>>
	XMOVEI	1,A( A
	IFIDN <UPDAAHTE><RENAME>,<				Ah	       
	IFB <BC>,<IF1,<PRINTX %B(NEWFAB ADDRESS OMBHITTED ON RENAME MBhACRO>>
	XMOVEI 2C, C>
	IFDIF <UPC(DATE><RENAME>,<
CH	IFNB <C>,<IF1,<ChPRINTX %MORE THAND 2 ARGS DETECTED D(IN UPDATE MACRO>>DH>
	$%UPDATE			
Dh	IFE <RMS$DY+RMS$EDJ>,<
		IFNB <BE(>,<JUMP 17,B>
	EH	IFB <B>,<JUMP 1Eh6,.+1>	>  
	IFN F<RMS$DY+RMS$DJ>,<F( IFNB <B>,<
		CFHAIL 2,300000			  Fh 
		 PUSHJ 17,B 		>> 
	
    	W%J7 hh>|
	IFB <Ai>,<IF1,<PRINTX %Ai(RGBLK ADDRESS OMIiHTTED ON UTLINT MAihCRO>>
	XMOVEI	1,j A
	IFIDN <UTLIj(NT><RENAME>,<				jH	       
	IFB <jhC>,<IF1,<PRINTX %kNEWFAB ADDRESS OMk(ITTED ON RENAME MkHACRO>>
	XMOVEI 2kh, C>
	IFDIF <UTlLINT><RENAME>,<
l(	IFNB <C>,<IF1,<lHPRINTX %MORE THANlh 2 ARGS DETECTED mIN UTLINT MACRO>>m(>
	$%UTLINT			
mH	IFE <RMS$DY+RMS$mhDJ>,<
		IFNB <Bn>,<JUMP 17,B>
	n(	IFB <B>,<JUMP 1nH6,.+1>	>  
	IFN nh<RMS$DY+RMS$DJ>,<o IFNB <B>,<
		Co(AIL 2,300000			  oH 
		 PUSHJ 17,B 		>> 
	
	^	hA
	IFB <A
>,<IF1,<PRINTX %A
(RGBLK ADDRESS OMI
HTTED ON WAIT MACR
hO>>
	XMOVEI	1, A
	IFIDN <WAIT><(RENAME>,<					   H    
	IFB <C>,<hIF1,<PRINTX %NEWF

AB ADDRESS OMITTE

(D ON RENAME MACRO

H>>
	XMOVEI 2, C

h>
	IFDIFE<WAIT><
	IFNB,IF1,<PRINTXT MACRO>>>
	$%WA(IT			
	IFE <RMS$HDY+RMS$DJ>,<
		IhFNB <B>,<JUMP 17,B>
		IFB <B>,(<JUMP 16,.+1>	>  H
	IFN <RMS$DY+RMhS$DJ>,< IFNB <B>,<
		CAIL 2,3000(00			   
		 PUSHHJ 17,B 		>> 
	
     		>> 
	 *hC


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