PDP-10 Archive: t20sub/rmsinj.unv from BB-KL11J-BM

Trailing-Edge - PDP-10 Archives - BB-KL11J-BM_1990 - t20sub/rmsinj.unv

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

x
,S@PFKyPF{WPF)0PF$XZPF$[PF%qPF%xP F-mP F.(9P F/
F~	7P FYP F[P F[7P F[PP F]tP 
FX9P

F&-7P F.	P F.KP 	F<:P F>*:P

I$+P I$[ZP @I$\YP I%zP  I%HuP I%KqP I&-P I&LQP KH$2@#KH$@#KH$T@#KH$*y@#KH$*}@#KH$+@#KH$,}@#KH$-3@#KH$8s@#KH$8y@#KH$9@#KH$93@#KH$9u@#KH$:@#KH$;@#6KH$;r@#KH$;s@#KH$=9@#KH$H7@#KH$Hq@#4KH$Hs@#1KH$I6@#	KH$I;@#	KH$IV@#
KH$K@#
KH$K2@#KH$L@#0KH$M@#KH$M8@#

KH$Y@#

KH$[s@#2KH$h1@#KH$k@#KH$k@#KH$kP@#KH$kQ@#KH$kS@#KH$kx@#KH$lt@#0KH$l}@#KH$m6@#KH%1@#5KH%6@#KH%7@#KH%Q@#KH%W@#KH%Y@#KH%T@#KH%V@#KH%<@#KH%x@#KH%Q@#KH%t@#KH%)W@#KH%8S@#KH%9<@#KH%<S@#KH%<}@#KH%Lw@#KH%X<P#6KH%Z7@#KH%\W@#KH%\Y@#KH%h6@#2KH%i3@#KH%k@#KH%k3@#3KH%l@#KH%n@#KH%|R@#KH%|S@#KH&	3@#KH&@# KH&y@# KH&

[@#!KH&@#!KH&(1@#"KH&(1@#"KH&(:@##KH&(S@##KH&)3@#$KH&)9@#$KH&)<@#%KH&)P@#%KH&)V@#&KH&+@#&KH&+S@#'KH&+V@#'KH&+x@#(KH&,[@#(KH&,p@#)KH&,r@#)KH&,}@#*KH&-@#*KH&-@#3KH&-@#4KH&98@#+KH&:=@#+KH&=8@#1KH&LR@#,KH&LZ@#,KH&N8@#5KH&XS@#-KH&Y@#-KH&i9@#.KH&y9@#.KH'1@#/KH'v@#/K`%X<P#'L$2Q $L$Q L$)YQ HL$*2Q $HL$*yQ 
 L$*zQ L$*}Q $L$+Q HL$+Q  L$,}Q L$8(Q L$8)Q L$88Q L$9Q L$:Q HL$;Q HL$;rQ $L$=Q L$H7Q $$L$I;Q $HL$IVQ HL$LPQ L$LVQ $L$L{Q 6$L$MQ $L$MPQ L$MVQ 6$L$XwQ $L$YQ L$[Q L$\pQ L$\vQ $HL$\yQ HL$h1Q HL$h1Q $HL$iQ $HL$j6Q 6$L$kQ HL$kQ HL$kPQ L$kQQ L$kxQ $HL$lqQ $HL$l}Q L%7Q 6$L%TQ $HL%VQ $HL%tQ $HL%)WQ HL%+VQ $HL%8SQ L%;VQ L%<SQ 6$L%<}Q $$L%H7Q $L%LwQ HL%XSQ $$L%[yQ $HL%\WQ L%\YQ HL%h6Q HL%iQ L%iQ $$L%i<Q HL%k0Q L%k6Q $L%kpQ $L%kuQ $L%kxQ $HL%nQ HL%|SQ L%|zQ $$L&2Q 6$L&	yQ $HL&yQ $HL&{Q HL&

hQ $HL&

hQ $HL&

iQ $HL&

iQ $HL&

jQ $HL&

jQ $HL&

kQ $HL&

kQ $H	L&

|Q $HL&(1Q 6$L&(:Q $HL&(SQ L&)Q L&)3Q $L&)HQ $HL&)IQ L&)JQ L&)PQ L&)VQ L&+Q HL&+xQ HL&,HQ lL&,IQ L&,IQ L&,JQ L&,hQ .4L&,iQ $HL&,iQ L&,jQ L&,jQ L&,kQ $HL&,kQ L&,lQ L&,lQ L&,pQ L&,vQ $HL&,yQ HL&,}Q $HL&.Q 00L&.Q L&.	Q L&.	Q L&.
Q L&.
QL&9Q$HL&:QQHL&:=QLHL&=Q $HL&=Q HL&>HQ HL&>HQ HL&>IQ HL&>IQ HL&>JQ HL&>JQ HL&>KQ HL&>KQ H	L&LQ L&LQ $$L&N8Q $HL&XSQ L&\wQ $$L&\{Q $L&\}Q HL&i9Q $L&lPQ L&lVQ 6$L&xqQ L&xzQ HL&{\Q $HL'1Q HL
		IF1,<P8@RINTX	%"F$ANB" RM8`S-11 ONLY, IGNORED BY RMS-20>
	L<` c`&$$NEWVAL (BKS,A)NEWVAL (LL` c &$$NEWVAL (BLS,A)NEWVAL (L>@ a &
$$NEWVAL (BSZ,A)NEWVAL (LN d &"$$NEWVAL (CTX,A)NEWVAL (L%h  4 #&
		IF1,<P4@RINTX	%"F$DNA" RM4`S-11 ONLY, IGNORED BY RMS-20>
	L%l` 5 #.
		IF1,<P5@RINTX	%"F$DNS" RM5`S-11 ONLY, IGNORED BY RMS-20>
	L4` ] %j$$NEWVAL (FAC,A)NEWVAL (L5h  _ %z$$NEWVAL (FNA,A)NEWVAL (L5l` 3 #
		IF1,<P3@RINTX	%"F$FNS" RM3`S-11 ONLY, IGNORED BY RMS-20>
	L5| ^ %r$$NEWVAL (FOP,A)NEWVAL (L6>@ d`&&$$NEWVAL (FSZ,A)NEWVAL (LTk@ \`%f$$NEWVAL (JFN,A)NEWVAL (LUk b`&$$NEWVAL (JNL,A)NEWVAL (Ld: : #V
		IF1,<P:@RINTX	%"F$LCH" RM:`S-11 ONLY, IGNORED BY RMS-20>
	Ln+@ ``&$$NEWVAL (MRN,A)NEWVAL (Ln,` ` &$$NEWVAL (MRS,A)NEWVAL (Lt  7 #:$$NEWVAL (NAM,A)NEWVAL (L~)` ^`%v$$NEWVAL (ORG,A)NEWVAL (L _`%~$$NEWVAL (RAT,A)NEWVAL (Lk  a`&$$NEWVAL (RFM,A)NEWVAL (LM@ 6 #6
		IF1,<P6@RINTX	%"F$RTV" RM6`S-11 ONLY, IGNORED BY RMS-20>
	L

@ ]`%n$$NEWVAL (SHR,A)NEWVAL (L' 7`#>$$NEWVAL (TYP,A)NEWVAL (LD@ b &$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ R`%b
	IFNB <SA>,<			;RUN-TIME S INIT
		$$MAPADD S@(A,$$ADDR);	; WIS`LL REFERENCE FAB TVIA $$ADDR
		SYNT  SF$$RT,$$SET
	>T@					
	IFB <A>,T`<SYN SF$$CT,$$SETU>	
		$$CURR (F,BU ID)
		$$CURR (F,U@BLN)
		$$CURR (FU`,STS)
		$$CURR (VF,STV)
		$$CURR V (F,IFI)
		$$CURRV@ (F,JFN)
		$$CURV`R (F,FAC)
		$$CUWRR (F,SHR)
		$$CW URR (F,FOP)
		$$W@CURR (F,ORG)
		$W`$CURR (F,FNA)
		X$$CURR (F,RAT)
	X 	$$CURR (F,MRS)
X@		$$CURR (F,MRN)
		$$CURR (F,BSZ)Y
		$$CURR (F,RFMY )
		$$CURR (F,XAY@B)
		$$CURR (F,JY`NL)
		$$CURR (F,ZBLS)
		$$CURR (FZ ,BKS)
		$$CURR (Z@F,DEV)
		$$CURR Z`(F,SDC)
		$$CURR[ (F,CTX)
		$$CUR[ R (F,FSZ)	;![AWN][@
		$$CURR (F,TYP[`)	;![AWN]
		$$CU\RR (F,NAM)	;![AWN\ ]
		$$CURR (F,ALQ)	;![AWN]
	ALMI  9`'
	IFNDEF e$$ADDR,<				
		<e $$SET(BID)>_^D18 e@! <$$SET(BLN)>
	e`	<$$SET(STS)>^D1f8 ! <$$SET(STV)>
		<$$SET(CTX)>
f@		<$$SET(IFI)>_^Df`18 ! <$$SET(JFN)>g
		<$$SET(FAC)>_g ^D18 ! <$$SET(SHRg@)>
		<$$SET(FOP)g`>_^D18 ! <$$SET(OhRG)>_^D14 ! <$$SEh T(BSZ)>_^D8 ! <$$h@SET(BLS)>
		<$$Sh`ET(FNA)>
		<$$SEiT(RAT)>_^D18 ! <$i $SET(MRS)>
		<$$i@SET(MRN)>
		<$$Si`ET(FSZ)>_^D13 ! <j$$SET(BKS)>_^D5 !j  <$$SET(RFM)> ;![j@AWN]
		<$$SET(JNj`L)>_^D18 ! <$$SETk(XAB)>
		<$$SET(k DEV)>_^D18 ! <$$Sk@ET(SDC)>
		<$$SEk`T(TYP)>_^D18 ! <$l$SET(NAM)>	;![AWNl ]
		<$$SET(ALQ)>l@				;![AWN]
		EXl`P 0,0
	>					;ENmD IFNB
	IFDEF $$m ADDR,<
		$$SET(Bm@ID)
		$$SET(BLN)m`
		$$SET(STS)
	n	$$SET(STV)
		$$n SET(IFI)
		$$SETn@(JFN)
		$$SET(FAn`C)
		$$SET(SHR)
		$$SET(FOP)
		o $$SET(ORG)
		$$So@ET(FNA)
		$$SET(o`RAT)
		$$SET(MRSp)
		$$SET(MRN)
p 		$$SET(BSZ)
		$p@$SET(RFM)
		$$SEp`T(XAB)
		$$SET(JqNL)
		$$SET(BLS)q 
		$$SET(BKS)
	q@	$$SET(DEV)
		$$q`SET(SDC)
		$$SETr(CTX)
		$$SET(FSr Z)			;![AWN]
		$r@$SET(NAM)			;![AWr`N]
		$$SET(TYP)	s		;![AWN]
		$$SEs T(ALQ)			;![AWN]
		
		PURGE $$ADs`DR			
	>					
				
	>					
	MN@ w@/< $$ZERO(A,FA$LNG) ERO(AM$P M$P @M$VP M$*7P M$+P M$,WP  M$8VP  M$8vP M$:3P M$<@P M$=P M$I6P M$I[P M$KP @M$LUP M$[1P M$j<P M$mP M$y:P M%P M%P M%@P M%JwP M%LpP M%YP M%ZrP M%[ZP M%h6P M%i:P @M%j6P M%yP  M%yXP  M%}:P M&

WP M&)1P M&)6P M&+:P M&8sP  M&8yP M&98P M&;P M&;:P$M&<P M&<P M&<2P M&=P M&=8P M&K8P M&LVP M&LWP M&YP M&\P M&h9P M&iQP M&x:P M$)6@# M$)Q@# M$*@#!M$*9@#!M$[S@#"M$[x@#"M%	@##M%S@##M%kp@#$M%kt@#$M%ky@#%M%ky@#%M%kz@#&M&	w@#&M&,}@#'M&[V@#'UL%X<P UL%Z7P \.8  Y`-N $$NEWVAL (ESA,A)NEWVAL \.<` Z -R $$NEWVAL (ESS,A)NEWVAL \u| [ -Z $$NEWVAL (NOP,A)NEWVAL \I@ Z`-V $$NEWVAL (RLF,A)NEWVAL \8  [`-^ $$NEWVAL (RSA,A)NEWVAL \<` \ -b $$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@ Q-J
	IFNB <Q A>,<
		$$MAPADD Q@(A,$$ADDR);	; WIQ`LL REFERENCE THE RBLOCK VIA $$ADDR
		SYN SN$$RT,$$SR@ET
	>					
	IFBR` <A>,<SYN SN$$CTS,$$SET>	
		$$CURS R (N,BID)
		$$CUS@RR (N,BLN)
		$$CS`URR (N,ESA)
		$$TCURR (N,ESS)
		$T $CURR (N,ESL)
		T@$$CURR (N,RLF)
	T`	$$CURR (N,NOP)
U		$$CURR (N,RSA)
		$$CURR (N,RSL)U@
		$$CURR (N,RSSU`)
		$$CURR (N,FNVB)
		$$CURR (N,WV CC)
		$$CURR (N,V@CHA)
		$$CURR (NV`,NDL)
		$$CURR (WN,DVL)
		$$CURR W (N,NML)
		$$CURRW@ (N,TPL)
		$$CURW`R (N,VRL)
		$$CUXRR (N,NDA)
		$$CX URR (N,DVA)
		$$X@CURR (N,DRA)
		$X`$CURR (N,NMA)
		Y$$CURR (N,TPA)
	Y 	$$CURR (N,VRA)
	 URR (N,VRA)
]hI  \`.N
	IFNDEF ]$$ADDR,<
		<$$SE] T(BID)>_^D18 ! <$]@$SET(BLN)>
		<$$]`SET(ESA)>
		<$$S^ET(ESL)>_^D18 ! <^ $$SET(ESS)>
		<$^@$SET(NOP)>_^D18 !^` <$$SET(RLF)>
		_<$$SET(RSA)>
		<_ $$SET(RSL)>_^D18 _@! <$$SET(RSS)>
	_`	<$$SET(FNB)>
		`<$$SET(WCC)>
		<` $$SET(DVL)>_^D27 `@! <$$SET(NDL)>_^D``18 ! <$$SET(CHA)>a
		<$$SET(VRL)>_a ^D27 ! <$$SET(TPLa@)>_^D18 ! <$$SET(a`NML)>_^D9 ! <$$SEbT(DRL)>
		<$$SETb (NDA)>
		<$$SET(b@DVA)>
		<$$SET(Db`RA)>
		<$$SET(NMcA)>
		<$$SET(TPAc )>
		<$$SET(VRA)c@>
	>				;IFNDEF
	IFDEF $$ADDR,<
		$$SET(BID)
		d $$SET(BLN)
		$$Sd@ET(ESA)
		$$SET(d`ESL)
		$$SET(ESSe)
		$$SET(NOP)
e 		$$SET(RLF)
		$e@$SET(RSA)
		$$SEe`T(RSL)
		$$SET(RfSS)
		$$SET(FNB)f 
		$$SET(WCC)
	f@	$$SET(DVL)
		$$f`SET(NDL)
		$$SETg(CHA)
		$$SET(VRg L)
		$$SET(TPL)
		$$SET(NML)
		g`$$SET(DRL)
		$$ShET(NDA)
		$$SET(h DVA)
		$$SET(DRAh@)
		$$SET(NMA)
h`		$$SET(TPA)
		$i$SET(VRA)

		PUi RGE $$ADDR			;SO i@NEXT C/R DECIS COi`RRECT
	>					;IFDEF
	>					;IF]hN@ y /J $$ZERO(A,NA$LNG) ERO(AdN `( $$NEWVAL (CTX,A)NEWVAL d-L` `( $$NEWVAL (ELS,A)NEWVAL d4@ | 'b $$NEWVAL (FAB,A)NEWVAL d\)@ `( $$NEWVAL (KBF,A)NEWVAL d^)@ `'~ $$NEWVAL (KRF,A)NEWVAL d^>@  ( $$NEWVAL (KSZ,A)NEWVAL df;@  ( $$NEWVAL (LSN,A)NEWVAL dl)@  (
 $$NEWVAL (MBF,A)NEWVAL d `( $$NEWVAL (PAD,A)NEWVAL d` |`'f $$NEWVAL (RAC,A)NEWVAL d)@ ~ 'r $$NEWVAL (RBF,A)NEWVAL dh   ( $$NEWVAL (RFA,A)NEWVAL d@ 2`#Z
		IF1,<P;RINTX	%"R$RHB" RM; S-11 ONLY, IGNORED BY RMS-20>
	d| } 'j $$NEWVAL (ROP,A)NEWVAL d>@ ~`'v $$NEWVAL (RSZ,A)NEWVAL d,)@ }`'n $$NEWVAL (UBF,A)NEWVAL d.>@  'z $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ t '^
	IFNB <t@A>,<
		$$MAPADD t`(A,$$ADDR);	; WIuLL REFERENCE THE u BLOCK VIA $$ADDR
		SYN SR$$RT,$$Su`ET
	>					
	IFBv <A>,<SYN SR$$CTv ,$$SET>	
		$$CURv@R (R,BID)
		$$CUv`RR (R,BLN)
		$$CwURR (R,STS)
		$$w CURR (R,STV)
		$w@$CURR (R,ISI)
		w`$$CURR (R,FAB)
	x	$$CURR (R,RAC)
x@		$$CURR (R,ROP)
		$$CURR (R,UBF)x`
		$$CURR (R,RBFy)
		$$CURR (R,RSy Z)
		$$CURR (R,Uy@SZ)
		$$CURR (R,y`RFA)
		$$CURR (Rz,KRF)
		$$CURR (z R,KSZ)
		$$CURR z@(R,KBF)
		$$CURRz` (R,MBF)
		$$CUR{R (R,LSN)
		$$CU{ RR (R,BKT)
		$$C{@URR (R,PAD)
		$${`CURR (R,CTX)
	 URR (R,CTX)
	 eI   (~
	IFNDEF @$$ADDR,<
		<$$SE`T(BID)>_^D18 ! <$$SET(BLN)>
		<$$ SET(STS)>_^D18 ! @<$$SET(STV)>
		<`$$SET(CTX)>
		<$$SET(ISI)>_^D18 !  <$$SET(FAB)>
		@<$$SET(RAC)>_^D27` ! <$$SET(MBF)>_^D18 ! <$$SET(ROP) >
		<$$SET(UBF)>@
		<$$SET(RBF)>
		<$$SET(RSZ)>_^D18 ! <$$SET(USZ) >
		<$$SET(RFA)>@
		<$$SET(KRF)>_`^D27 ! <$$SET(KSZ	)>_^D18 ! <$$SET(	 LSN)>
		<$$SET(K	@BF)>
		<$$SET(BK	`T)>
		<$$SET(PAD
)>_^D27
		EXP 0,
 0,0
	>				;IFNDE
@F
	IFDEF $$ADDR,
`<
		$$SET(BID)
		$$SET(BLN)
		$ $SET(STS)
		$$SE@T(STV)
		$$SET(I`SI)
		$$SET(FAB)


		$$SET(RAC)

 	$$SET(ROP)
		$$

@SET(UBF)
		$$SET

`(RBF)
		$$SET(RS
		$$SET(USZ)
		$$SET(RFA)
		SET(KRF)
		$$SZ)
		$$SET(KBF)
		$$SET(MBF )
		$$SET(LSN)
@		$$SET(BKT)
		$`$SET(PAD)
		$$SET(CTX)
		PURGE $ $ADDR			;SO NEXT @C/R DECIS CORRECT`
	>					;IFDEF
	>					;IFDEF
eN@ x/@ $$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 f$(` @! A$B==1BC  A$B==1Bf$H` ! A$B==^DC  A$B==^Df&8` @!

 A$B==C$D  A$B==Cg Hz J$RIFDEF C$$J A,<C$$A> IFNDEF C$$A,<$$FA>F g LZ H`$L
	    IFNIDEF C$$A,<IFN $$I FA,<C$$A==$$FAI@>>
	    STO$$C(A)			
	TO$$C(g8 Hz P%IFDEF C$$P A,<C$$A> IFNDEF C$$A,<$$NA>F g8 LZ N`$|
	    IFNODEF C$$A,<IFN $$O NA,<C$$A==$$NAO@>>
	    STO$$C(A)			
	TO$$C(gH Hz L$bIFDEF C$$L A,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ J`$\
	    IFNKDEF C$$A,<IFN $$K RA,<C$$A==$$RAK@>>
	    STO$$C(A)			
	TO$$C(gP Hz R%IFDEF C$$R A,<C$$A> IFNDEF C$$A,<$$TA>F gP LZ P`%


	    IFNQDEF C$$A,<IFN $$Q TA,<C$$A==$$TAQ@>>
	    STO$$C(A)			
	TO$$C(gRxA G $B			
	G`  G@IFDEF C$$A,<			
		<HRREI 1,> ! CH$$A		
		$STORE	H (1,A,$$ADDR)		
	    >
	R)		
gT$M8@ gT%@ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz N$rIFDEF C$$N A,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ L`$l
	    IFNMDEF C$$A,<IFN $$M XA,<C$$A==$$XAM@>>
	    STO$$C(A)			
	TO$$C(hH  n`.v $$NEWVAL (CLA,A)NEWVAL h4M o .z $$NEWVAL (FDT,A)NEWVAL h5K@ o`.~ $$NEWVAL (FLN,A)NEWVAL h68` p / $$NEWVAL (FSC,A)NEWVAL hm|@ q /
 $$NEWVAL (MOR,A)NEWVAL ht^ p`/ $$NEWVAL (NEX,A)NEWVAL i?D(P i?DHP id$qP id$.:P id$K

P id%0P id%KSP id%T(P id&N8P igH@ j .r
	IFNB <j@A>,<
		$$MAPADD j`(A,$$ADDR);	; WIkLL REFERENCE THE k BLOCK VIA $$ADDR
		SYN ST$$RT,$$Sk`ET
	>					
	IFBl <A>,<SYN ST$$CTl ,$$SET>	
		$$CURl@R (T,BID)
		$$CUl`RR (T,BLN)
		$$CmURR (T,CLA)
		$$m CURR (T,FDT)
		$m@$CURR (T,FLN)
		m`$$CURR (T,FSC)
	n	$$CURR (T,NEX)
n		$$CURR (T,MOR)
	gURR (T,MOR)
	IFNDEF r$$ADDR,<
		<$$SEr T(BID)>_^D18 ! <$r@$SET(BLN)>
		<$$r`SET(FDT)>_^D18 ! s<$$SET(CLA)>
		<s $$SET(FLN)>_^D18 s@! <$$SET(FDT)>
	s`	<$$SET(MOR)>^D1t8 ! <$$SET(NEX)>
	>				;IFNDEF
	t@IFDEF $$ADDR,<
	t`	$$SET(BID)
		$$uSET(BLN)
		$$SETu (FDT)
		$$SET(CLu@A)
		$$SET(FLN)
		$$SET(FDT)
		v$$SET(MOR)
		$$Sv ET(NEX)
		PURGE v@$$ADDR			;SO NEXTv` C/R DECIS CORRECwT
	>					;IFDEF
	>					;IFDEFE$$ZERO(A,TY$LNG)WERO(Ap %@*,$$NEWVAL (BKZ,A)NEWVAL (p$@ (@*D$$NEWVAL (DAN,A)NEWVAL (p$k &@*4$$NEWVAL (DFL,A)NEWVAL (p&L '*8$$NEWVAL (DTP,A)NEWVAL (p,M "@*$$NEWVAL (EDT,A)NEWVAL (p5I` '@*<$$NEWVAL (FLG,A)NEWVAL (p>, B@$
		IF1,<PB`RINTX	%"X$GRP" RMCS-11 ONLY, IGNORED BY RMS-20>
	pD =@#p
		IF1,<P=`RINTX	%"X$HAL" RM>S-11 ONLY, IGNORED BY RMS-20>
	pL@ (*@$$NEWVAL (IAN,A)NEWVAL (pLk &*0$$NEWVAL (IFL,A)NEWVAL (p]k  **P$$NEWVAL (KNM,A)NEWVAL (pd@ )*H$$NEWVAL (LAN,A)NEWVAL (pnJ <@#h
		IF1,<P<`RINTX	%"X$MTH" RM=S-11 ONLY, IGNORED BY RMS-20>
	pw"*$$NEWVAL (NXT,A)NEWVAL (p~{@ A@$
		IF1,<PA`RINTX	%"X$OWN" RMBS-11 ONLY, IGNORED BY RMS-20>
	p|@ $* $$NEWVAL (PGR,A)NEWVAL (p|` *@*j

		$$NE*`WARRVAL (PS0,A)
		$$NEWARRVAL (P+ S1,B)
		$$NEWAR+@RVAL (PS2,C)
		+`$$NEWARRVAL (PS3,,D)
		$$NEWARRVA, L (PS4,E)
		$$N,@EWARRVAL (PS5,F),`
		$$NEWARRVAL (-PS6,G)
		$$NEWA- RRVAL (PS7,H)
	VAL (PS7,H)
	p}` #@*$$NEWVAL (POW,A)NEWVAL (p)` >@#x
		IF1,<P>`RINTX	%"X$PRG" RM?S-11 ONLY, IGNORED BY RMS-20>
	p*@ ?@$
		IF1,<P?`RINTX	%"X$PRJ" RM@S-11 ONLY, IGNORED BY RMS-20>
	p>  #*$$NEWVAL (PSY,A)NEWVAL (p{ $@*$$$NEWVAL (PWL,A)NEWVAL (pY@ )@*L$$NEWVAL (REF,A)NEWVAL (p+@ E@$0
		IF1,<PE`RINTX	%"X$SBN" RMFS-11 ONLY, IGNORED BY RMS-20>
	p@ -`+

		$$NE.WARRVAL (SZ0,A)
		$$NEWARRVAL (S.@Z1,B)
		$$NEWAR.`RVAL (SZ2,C)
		/$$NEWARRVAL (SZ3,/ D)
		$$NEWARRVA/@L (SZ4,E)
		$$N/`EWARRVAL (SZ5,F)0
		$$NEWARRVAL (0 SZ6,G)
		$$NEWA0@RRVAL (SZ7,H)
	VAL (SZ7,H)
	p` @@$
		IF1,<P@`RINTX	%"X$SYS" RMAS-11 ONLY, IGNORED BY RMS-20>
	p5{ D@$(
		IF1,<PD`RINTX	%"X$VOL" RMES-11 ONLY, IGNORED BY RMS-20>
	p=I C@$ 
		IF1,<PC`RINTX	%"X$WLD" RMDS-11 ONLY, IGNORED BY RMS-20>
	pD.  F@$8
		IF1,<PF`RINTX	%"X$XBY" RMGS-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 <@B>,<
		$$MAPADD `(B,$$ADDR)	
		SYN SX$$RT,$$SET
 	>					
	IFB <B@>,<SYN SX$$CT,$$S`ET>	
						
		C$$COD==XB$A		
	 	X$$BLN==XA$SXA	@	
						
		$$CU`RR (X,BLN)						
		$$CURR (X,BID) 
		$$CURR (X,RS1@)
		$$CURR (X,NX`T)

						
		$$CURR (X,CDT)
		 $$CURR (X,RDT)
	@	$$CURR (X,EDT)
`
						
		$$CURR (X,PSY)
		$$CU RR (X,POW)
		$$C@URR (X,PGR)
		$$`CURR (X,PWL)

						
		$$CURR ( X,RS2)
		$$CURR @(X,AID)
		$$CURR` (X,BKZ)

						
		$$CURR (X,IF L)
		$$CURR (X,D@FL)
		$$CURR (X,`DTP)
		$$CURR (X,FLG)
		$$CURR ( X,IAN)
		$$CURR @(X,DAN)
		$$CURR` (X,LAN)
		$$CURR (X,REF)
		$$CU RR (X,KNM)
		$$C@URR (X,RX0)
		$$`CURR (X,RX1)
		$$CURR (X,RX2)
		 $$CURR (X,RX3)
	@	$$CURR (X,RX4)
`		$$CURR (X,RX5)
		$$CURR (X,PS0) 
		$$CURR (X,PS1@)
		$$CURR (X,PS`2)
		$$CURR (X,PS3)
		$$CURR (X, PS4)
		$$CURR (X@,PS5)
		$$CURR (`X,PS6)
		$$CURR (X,PS7)
		$$CURR  (X,SZ0)
		$$CUR@R (X,SZ1)
		$$CU`RR (X,SZ2)
		$$CURR (X,SZ3)
		$$ CURR (X,SZ4)
		$@$CURR (X,SZ5)
		`$$CURR (X,SZ6)
		$$CURR (X,SZ7)
 	
						
		$$CU@RR (X,RS6)
		$$C`URR (X,NOK)
		$$ CURR (X,NOA)
		$  $CURR (X,RS7)
		 @$$CURR (X,RS8)
	 `	$$CURR (X,RS9)
!
						
						;! ONLY THE NXT FIEL!@D IS SETTABLE

	S SETTABLE

qI  1-
			$$NEW1 VAL(BLN,X$$BLN)  1@ 
	IFNDEF $$ADDR1`,<

		<$$SET(BI2D)>_^D18 ! <$$SET2 (BLN)>
		<$$SET(2@COD)>_^D18 ! <$$S2`ET(NXT)>
		IFE <3C$$COD-XB$DAT>,<
			<$$SET(CDT)>
			<$$SET(RDT)>
			<$$SET(EDT)>
		>
		IFE <C$$C4 OD-XB$PRO>,<
			4@<$$SET(PSY)>
			4`<$$SET(POW)>
			5<$$SET(PGR)>
			5 <$$SET(PWL)>
		>5@
		IFE <C$$COD-X5`B$ALL>,<
			<$$S6ET(AID)>_^D9 ! <$6 $SET(BKZ)>
			EX6@P 0,0,0
		>
		I6`FE <C$$COD-XB$KEY7>,<
			<$$SET(DT7 P)>_^D18 ! <$$SET7@(FLG)>
			<$$SET7`(IAN)>_^D27 ! <$$8SET(DAN)>_^D18 ! 8 <$$SET(LAN)>_^D9 8@! <$$SET(REF)>
	8`		<$$SET(IFL)>_^D918 ! <$$SET(DFL)>9 
			<$$SET(KNM)>9@
			EXP 0,0,0,0,9`0
			<$$SET(PS0):>_^D18 ! <$$SET(S: Z0)>
			<$$SET(P:@S1)>_^D18 ! <$$SE:`T(SZ1)>
			<$$SE;T(PS2)>_^D18 ! <$; $SET(SZ2)>
			<$;@$SET(PS3)>_^D18 !;` <$$SET(SZ3)>
		<	<$$SET(PS4)>^D1< 8 ! <$$SET(SZ4)>
			<$$SET(PS5)>_<`^D18 ! <$$SET(SZ5=)>
			<$$SET(PS6= )>_^D18 ! <$$SET(=@SZ6)>
			<$$SET(=`PS7)>_^D18 ! <$$S>ET(SZ7)>
		>
		> IFE <C$$COD-XB$SU>@M>,<
			<$$SET(N>`OK)>_^D9 ! <$$SET?(NOA)>
			EXP 0,? 0,0
		>

		IFE?@ <C$$COD-XB$CFG>,?`<
			EXP 0,0,0,0@,0,0
		>

	>
@ 	IFDEF $$ADDR,<
@@						
				; STO@`RE COMMON HEADER AFOR ALL XAB TYPESA 
		$$SET(BID)
	A@	$$SET(RS1)
		$$A`SET(COD)
		$$SETB(NXT)
				; STORB E REST OF XAB DEPB@ENDING ON IT'S TYB`PE
		IFE <C$$CODC-XB$DAT>,<
		$$SC ET(BLN)
		$$SET(C@CDT)
		$$SET(RDTC`)
		$$SET(EDT)
D		>

		IFE <C$$D COD-XB$PRO>,<
		D@$$SET(BLN)
		$$SD`ET(PSY)
		$$SET(EPOW)
		$$SET(PGRE )
		$$SET(PWL)
E@		>

		IFE <C$$E`COD-XB$ALL>,<
		F$$SET(BLN)
		$$SF ET(RS2)
		$$SET(F@AID)
		$$SET(BKZF`)
		>

		IFE <GC$$COD-XB$KEY>,<
		$$SET(BLN)
		G@$$SET(IFL)
		$$SG`ET(DFL)
		$$SET(HDTP)
		$$SET(FLGH )
		$$SET(IAN)
H@		$$SET(DAN)
		$H`$SET(LAN)
		$$SEIT(REF)
		$$SET(KI NM)
		$$SET(RX0)I@
		$$SET(RX1)
	I`	$$SET(RX2)
		$$JSET(RX3)
		$$SETJ (RX4)
		$$SET(RXJ@5)

		$$SET(PS0J`)
		$$SET(PS1)
K		$$SET(PS2)
		$K $SET(PS3)
		$$SEK@T(PS4)
		$$SET(PK`S5)
		$$SET(PS6)L
		$$SET(PS7)
L 
		$$SET(SZ0)
		L@$$SET(SZ1)
		$$SL`ET(SZ2)
		$$SET(MSZ3)
		$$SET(SZ4M )
		$$SET(SZ5)
M@		$$SET(SZ6)
		$M`$SET(SZ7)
		>
N
		IFE <C$$COD-XBN $SUM>,<
		$$SET(N@BLN)
		$$SET(RS6N`)
		$$SET(NOK)
O		$$SET(NOA)
		$O $SET(RS7)
		$$SEO@T(RS8)
		$$SET(RO`S9)
		>
		IFE <PC$$COD-XB$CFG>,<
		$$SET(BLN)
		P@>
		PURGE $$ADDR			
	>					
	qN@ x@/F $$ZERO(Ax`,%NAME(XA$SX,B)) AME(XA$SX,B))q$vP q$P q$P q$P q$lP q$(yP q$*:P q$+P 	q$+P 	q$8:P q$9P q$9SP q$:P q$:P 
q$;8P q$;PP q$<P q$DwP q$H:P q$IYP q$J9P

q$J9P q$LWP q$MP q$iP q$kP q$k	P q$lP q$lqP q$yVP q${`P q%

tP q%5P q%JP q%LP q%96P q%9<P q%X:P q%X<P q%YP q%h6P q%j6P q%}WP q&1P q&

RP q&

VP

WP q&(:P q&)P q&)1P q&)7P q&*P q&*rP q&+P q&,P q&,RP q&,SP q&-QP q&8PP q&93P q&:<P q&;6P

q&<0P q&<7P q&<:P q&=P q&=6P q&=pP q&[JP q&x9P q&{P q'P 
q@&

PP q@&

QP q@&

RP q@&

RP q@&

VP q@&

YP q@&

ZP q@&

[P q@&

\P q`$4P q`$6P q`%X<P q`%k`P q`%t(P q`%t(P q`%t)P q`%t)P q`%t*P q`%t*P q`%t+P q`%t+P q`%t,P 	q`%t,P 	q`%tHP 
q`%tHP 
q`%tIP q`%xwP q`%xzP q`%yHP q`%yHP q`%yIP q`%yIP q`%yJP q`%yJP q`%yKP q`%yKP q`%yLP q`%yLP q`%z2P q`%{P q`%|zP q`%|{P q`&P q`& P q`&(P q`&(P q`&)P q`&)P q`&*P q`&*P q`&+P q`&+P q`&,P 	q`&,P 	q`&@P q`&HP 
q`&HP 
q`&IP q`&IP q`&JP

q`&JP

q`&KP q`&`P q`&hP q`&hP q`&iP q`&iP q`&jP q`&jP q`&P q`& P q`&@P q`&`P q`&P q`& P q`&wP 	q`&zP q`&
2P 	q`&P 	q`&P q`&

@P q`&

zP 	q`&

{P q`&4P q`&4 P q`&4(P q`&4(P q`&4)P q`&4)P q`&4*P q`&4*P q`&4+P q`&4+P q`&4,P 	q`&4,P 	q`&4@P q`&4HP 
q`&4HP 
q`&4IP q`&4IP q`&4JP

q`&4JP

q`&4KPq`&4LP q`&4`P q`&4hP q`&4hP q`&4iP q`&4iP q`&4jP q`&4jP q`&4kP q`&5P q`&5 P q`&5@P q`&5`P q`&6P q`&6 P q`&8wP q`&8zP q`&:P 	q`&:2P 	q`&;P 	q`&<zP 	q`&<{P 	q`&=`P q`'9P $0 

	COPYRIGHT (C) DIGITAL EQUIPMENT C ORPORATION 1979, @1986.
	ALL RIGHT`S RESERVED.

\ RESERVED.

\<z  !
	IFNB <@B>,<IFL A-B,<PR`INTX ?A HAS A VALUE WHICH IS TOO  LOW>>
	IFNB <C>@,<IFG A-C,<PRIN`TX ?A HAS A VALUE WHICH IS TOO HIGH>>
IS TOO HIy ,@"f
	C=A+,`B		
	B==B+1			

	B==B+1			\Y 1#PURGE C$$BPURGE C$$-i !" END 4P 4*2P 4*yP 4+P 4+P 4,}P 4=P 4I;P 4\Y +"Z
	$$CODE(+ .EXBAS,.EXCTR,A,B)
.EXCTR,A,4h1P 4kPP 4kxP 4l}P 56 ! 
IF1,<
	$$AB==C$D
@	F$$B==<XX$G>B5` ! <XX$F>B11 ! XX$E	
  >	;END OF IF1
>	;END O5TP 5)WP 5+VP 5\WP 5\YP 5h6P 5|SP 6(:P 6)HP 6)IP 6)JP 6)VP 69P 6:P 6=P 6=P 6N8P 71P N;v  0:
	T$$PS==@F$$A_-^D30		
	T`$$SZ==<F$$A_-^D24> & 77	
	T$$OF= =F$$A & 777777	
$A& 777777

DEFINE B<A>DEFINE B<l +`"`A$MAX==.,ABASE + .ACTR - 1SE + .ACTR - t*2P t+P t:P tLPP tLVP tMPP tMVP t\pP t\vP t\yP t]p ;@#`
	IFNB <<B>,<C$$A==B>
>,<C$$A==B>
t]{ 2 #
	DEFINE C$$A<B>		
E tkQP uiP uiP uk0P uk6P ukxP v+P v,pP v,vP v,yP vLP vLP vlPP vlVP vxqP vxzP v{\P *2P *zP +P =P [P h1P tP 8SP <SP <}P LwP XSP 2P (1P (SP )PP +xP ,HP ,IP ,IP ,JP ,}P =P =P XSP \}P X` )@"N
	$$CODE()`.SUBAS,.SUCTR,A,B)
.SUCTR,A,V `!B
	FB$ALL==FB$GET+FB$PUT+FB $DEL+FB$UPD+FB$TR@N

	
	$$ASSUME`(FB$SEQ,0)		;FILE ORG MUST BE GTR  ZERO
	$$ASSUME(R@B$SEQ,0,0)		;RECO`RD ACCESS MUST START AT ZERO
	$$A SSUME(XB$KEY,0,0)@		;KEY XAB MUST B`E FIRST
	$$ASSUME(XB$STG,0,0)		;S TRING DATA-TYPE SHOULD BE ZERO
$*2P $+P $;P $iP $kP $lqP %[yP %i<P ,\Y * "T
	$$CODE(*@.ERBAS,.ERCTR,A,B)
.ERCTR,A,4[R &`"H			
  IF2',<
	C$MAX==XX$MA' X		
	JS$MIN==100'@0
	JS$MAX==1000+'`XX$MAX
	OPDEF	RM($MIN [104B8+1000]( 	;MINIMUM JSYS  V(@ALUE
	OPDEF	RM$M(`AX [104B8+1000+XX)$MAX]
  >				
MAX]
  >				
4\Q  "2		
    C$@A==XX$MAX		
   ` DEFINE $%A(A)<	
      IFE <RMS $DJ+RMS$DY>,<				@		;a506
       I`FN TOP$10,<PUSHJ 17,RMS$10##+C$A> 	
       IFN TOP@$20,<104B8+1000+C`$A>	
     >									;a506
      IFN RMS$DY,<PUSHJ@ 17,@$$A##>		
 `    IFN RMS$DJ,<PUSHJ 17,%$A##>		 
    >

    DE@FINE $A(.BLK1,.E`RRAD,.BLK2),<
	IFB <.BLK1>,<IF1,< PRINTX %ARGBLK AD@DRESS OMITTED ON `A MACRO>>
	XMOV EI	1, .BLK1
	IFI  DN <A><RENAME>,< @					       
	IF `B <.BLK2>,<IF1,<P!RINTX %NEWFAB ADD! RESS OMITTED ON R!@ENAME MACRO>>
	X!`MOVEI 2, .BLK2>
"	IFDIF <A><RENAM" E>,<
	IFNB <.BLK"@2>,<IF1,<PRINTX %"`MORE THAN 2 ARGS #DETECTED IN A MA# CRO>>>
	$%A			
	IFE <RMS$DY+RMS#`$DJ>,<
		IFNB <.$ERRAD>,<JUMP 17,.$ ERRAD>
		IFB <.E$@RRAD>,<JUMP 16,.+$`1>	>  
	IFN <RMS%$DY+RMS$DJ>,< IFN% B <.ERRAD>,<
		C%@AIL 2,300000			  %` 
		 PUSHJ 17,.E&RRAD 		>> 
	
  &   >
  XX$MAX==XX$MAX+1		
X==XX5T `!N			
	XX$MAX==0		

	XX$MD2P D)YP D*2P D*}P D+P D8(P D8)P D88P D9P D;rP DH7P DIVP DL{P DMP DXwP DYP Dj6P DkP E7P EVP E;VP EH7P EkpP EkuP EnP E|zP F	yP FyP F{P F

hP F

hP F

iP F

iP F

jP F

jP F

kP F

kP F

|P F)P F)3P F,hP F,iP F,iP F,jP F,jP F,kP F,kP F,lP F,lP F.P F.P F.	P F.	P F.
P F.
P F:=P F>HP F>HP F>IP F>IP F>JP F>JP F>KP F>KP F\wP F\{P Fi9P T\W z /Z
	SETZM	z@A			
	MOVEI	2,Az`			
	MOVEI	1,1(2{)			
	HRLI	1,A	{ 		
	BLT	1,B-1(2)		
T	1,B-1(2Ky 82	
      IXFE <RMS$DJ+RMS$DYx>,<						;a506
       IFN TOP$10,8<PUSHJ 17,RMS$10#X#+C$CLOSE>	
    x   IFN TOP$20,<104B8+1000+C$CLOSE>8	
     >								X	;a506
     IFN xRMS$DY,<PUSHJ 17, @$$CLOSE##>		
   8   IFN RMS$DJ,<PU XSHJ 17,%$CLOSE##>		
    LOSE##>{W jx6s	
      IkFE <RMS$DJ+RMS$DYk8>,<						;a506
 kX      IFN TOP$10,kx<PUSHJ 17,RMS$10#l#+C$CONNECT>	
  l8     IFN TOP$20,<lX104B8+1000+C$CONNlxECT>	
     >				m					;a506
     m8IFN RMS$DY,<PUSHJmX 17,@$$CONNECT##>mx		
     IFN RMS$nDJ,<PUSHJ 17,%$COn8NNECT##>		
    NECT##>		
    )0 v88+	
      I8FE <RMS$DJ+RMS$DYX>,<						;a506
 x      IFN TOP$10,<PUSHJ 17,RMS$10#8#+C$CREATE>	
   X    IFN TOP$20,<1x04B8+1000+C$CREATE>	
     >						8			;a506
  IFXN RMS$DY,<PUSHJ 1x7,@$$CREATE##>		
     IFN RMS$DJ,8<PUSHJ 17,%$CREATE##>		
9EAT$XZ 
8FE<<RI$DJ+RMS$DY
x     IFN TOP$10,<PUSHJ 17,RMS$10#8#+C$DEBUG>	
    X   IFN TOP$20,<10x4B8+1000+C$DEBUG>	
     >								8	;a506
     IFN XRMS$DY,<PUSHJ 17,x@$$DEBUG##>		
     IFN RMS$DJ,<PU8SHJ 17,%$DEBUG##>		
    EBUG##>$[ I84e	
      IIXFE <RMS$DJ+RMS$DYIx>,<						;a506
 J      IFN TOP$10,J8<PUSHJ 17,RMS$10#JX#+C$DELETE>	
   Jx    IFN TOP$20,<1K04B8+1000+C$DELETK8E>	
     >						KX			;a506
L8  IFKxN RMS$DY,<PUSHJ 1L7,@$$DELETE##>		
     IFN RMS$DJ,LX<PUSHJ 17,%$DELETE##>		
    LET%q vX7Q	
      IvxFE <RMS$DJ+RMS$DYw>,<						;a506
w8      IFN TOP$10,wX<PUSHJ 17,RMS$10#wx#+C$DISCONNECT>	
       IFN TOP$2x80,<104B8+1000+C$DxXISCONNECT>	
y xx >									;a506
     IFN RMS$DY,y8<PUSHJ 17,@$$DISCyXONNECT##>		
    yx IFN RMS$DJ,<PUSHzJ 17,%$DISCONNECT##>		
    NECT%x :<I	
      IExFE <RMS$DJ+RMS$DYF>,<						;a506
 F8      IFN TOP$10,FX<PUSHJ 17,RMS$10#Fx#+C$DISPLAY>	
  G     IFN TOP$20,<G8104B8+1000+C$DISPGXLAY>	
     >				Gx					;a506
     HIFN RMS$DY,<PUSHJH8 17,@$$DISPLAY##>HX		
     IFN RMS$HxDJ,<PUSHJ 17,%$DIISPLAY##>		
    PLAY##>		
    -m JDk	
      IJ8FE <RMS$DJ+RMS$DYJX>,<						;a506
 Jx      IFN TOP$10,K<PUSHJ 17,RMS$10#K8#+C$ENTER>	
    KX   IFN TOP$20,<10Kx4B8+1000+C$ENTER>L	
     >								L8	;a506
     IFN LXRMS$DY,<PUSHJ 17,Lx@$$ENTER##>		
  M   IFN RMS$DJ,<PUM8SHJ 17,%$ENTER##>		
    NTER##>.(9 Q=#	
      IQ8FE <RMS$DJ+RMS$DYQX>,<						;a506
 Qx      IFN TOP$10,R<PUSHJ 17,RMS$10#R8#+C$ERASE>	
    RX   IFN TOP$20,<10Rx4B8+1000+C$ERASE>S	
     >								S8	;a506
     IFN SXRMS$DY,<PUSHJ 17,Sx@$$ERASE##>		
  T   IFN RMS$DJ,<PUT8SHJ 17,%$ERASE##>		
 RASE##>/	
      IU8FE <RMS$DJ+RMS$DYUX>,<						;a506
 Ux      IFN TOP$10,V<PUSHJ 17,RMS$10#V8#+C$EXTEND>	
   VX    IFN TOP$20,<1Vx04B8+1000+C$EXTENWD>	
     >						W8			;a506
X  IFWXN RMS$DY,<PUSHJ 1Wx7,@$$EXTEND##>		
     IFN RMS$DJ,X8<PUSHJ 17,%$EXTEND##>		
    TEN5R T85=	
      ITXFE <RMS$DJ+RMS$DYTx>,<						;a506
 U      IFN TOP$10,U8<PUSHJ 17,RMS$10#UX#+C$FIND>	
V8  Ux  IFN TOP$20,<104VB8+1000+C$FIND>	
     >									;VXa506
     IFN RMVxS$DY,<PUSHJ 17,@$W$FIND##>		
     W8IFN RMS$DJ,<PUSHJWX 17,%$FIND##>		
    FIND##>		
5M9 #X:7	
      I#xFE <RMS$DJ+RMS$DY$>,<						;a506
 $8      IFN TOP$10,$X<PUSHJ 17,RMS$10#$x#+C$FLUSH>	
    %   IFN TOP$20,<10%84B8+1000+C$FLUSH>%X	
     >								%x	;a506
     IFN &RMS$DY,<PUSHJ 17,&8@$$FLUSH##>		
  &X   IFN RMS$DJ,<PU&xSHJ 17,%$FLUSH##>		
    LUSH##>6)2 \={	
      I\8FE <RMS$DJ+RMS$DY\X>,<						;a506
 \x      IFN TOP$10,]<PUSHJ 17,RMS$10#]8#+C$FREE>	
^  ]X  IFN TOP$20,<104]xB8+1000+C$FREE>	
     >									;^8a506
     IFN RM^XS$DY,<PUSHJ 17,@$^x$FREE##>		
     _IFN RMS$DJ,<PUSHJ_8 17,%$FREE##>		
    FREE##>		
<] (82]	
      I(XFE <RMS$DJ+RMS$DY(x>,<						;a506
 )      IFN TOP$10,)8<PUSHJ 17,RMS$10#)X#+C$GET>	
      )x IFN TOP$20,<104B*8+1000+C$GET>	
 *8    >									;a5*X06
     IFN RMS$*xDY,<PUSHJ 17,@$$G+ET##>		
     IFN+8 RMS$DJ,<PUSHJ 17+X,%$GET##>		
    $GET##>		
    l\y .X;	
      I.xFE <RMS$DJ+RMS$DY/>,<						;a506
 /8      IFN TOP$10,/X<PUSHJ 17,RMS$10#/x#+C$MESSAGE>	
  0     IFN TOP$20,<08104B8+1000+C$MESS0XAGE>	
     >				0x					;a506
     1IFN RMS$DY,<PUSHJ18 17,@$$MESSAGE##>1X		
     IFN RMS$1xDJ,<PUSHJ 17,%$ME2SSAGE##>		
    SAGE##>		
    u{2 :8;o	
      I:XFE <RMS$DJ+RMS$DY:x>,<						;a506
 ;      IFN TOP$10,;8<PUSHJ 17,RMS$10#;X#+C$NOMESSAGE>	
;x       IFN TOP$20<,<104B8+1000+C$NO<8MESSAGE>	
     ><X									;a506
 <x    IFN RMS$DY,<P=USHJ 17,@$$NOMESS=8AGE##>		
     IF=XN RMS$DJ,<PUSHJ 1=x7,%$NOMESSAGE##>		
 SAGE##>	w
      Ir8FE <RMS$DJ+RMS$DYrX>,<						;a506
 rx      IFN TOP$10,s<PUSHJ 17,RMS$10#s8#+C$NXTVOL>	
   sX    IFN TOP$20,<1sx04B8+1000+C$NXTVOtL>	
     >						t8			;a506
u  IFtXN RMS$DY,<PUSHJ 1tx7,@$$NXTVOL##>		
     IFN RMS$DJ,u8<PUSHJ 17,%$NXTVOL##>		
    TVO~	7 	 1-	
      I	@FE <RMS$DJ+RMS$DY	>,<						;a506
 `      IFN TOP$10,`<PUSHJ 17,RMS$10##+C$OPEN>	
8     IFN TOP$20,<104@B8+1000+C$OPEN>	
     >									;Xa506
     IFN RMxS$DY,<PUSHJ 17,@$$OPEN##>		
     8IFN RMS$DJ,<PUSHJX 17,%$OPEN##>		
    OPEN##>		
Y 4C;	
      I48FE <RMS$DJ+RMS$DY4X>,<						;a506
 4x      IFN TOP$10,5<PUSHJ 17,RMS$10#58#+C$PARSE>	
    5X   IFN TOP$20,<105x4B8+1000+C$PARSE>6	
     >								68	;a506
     IFN 6XRMS$DY,<PUSHJ 17,6x@$$PARSE##>		
  7   IFN RMS$DJ,<PU78SHJ 17,%$PARSE##>		
    ARSE##>] 3835	
      I3XFE <RMS$DJ+RMS$DY3x>,<						;a506
 4      IFN TOP$10,48<PUSHJ 17,RMS$10#4X#+C$PUT>	
      4x IFN TOP$20,<104B58+1000+C$PUT>	
 58    >									;a55X06
     IFN RMS$5xDY,<PUSHJ 17,@$$P6UT##>		
     IFN68 RMS$DJ,<PUSHJ 176X,%$PUT##>		
    $PUT##>		
    X2 A3	
      I8FE <RMS$DJ+RMS$DYX>,<						;a506
 x      IFN TOP$10,<PUSHJ 17,RMS$10#8#+C$READ>	
  X  IFN TOP$20,<104xB8+1000+C$READ>	
     >									;8a506
     IFN RMXS$DY,<PUSHJ 17,@$x$READ##>		
     IFN RMS$DJ,<PUSHJ8 17,%$READ##>		
    READ##>		
[ 9]	
      I8FE <RMS$DJ+RMS$DYX>,<						;a506
 x      IFN TOP$10,<PUSHJ 17,RMS$10#8#+C$RELEASE>	
  X     IFN TOP$20,<x104B8+1000+C$RELEASE>	
     >				8					;a506
     XIFN RMS$DY,<PUSHJx 17,@$$RELEASE##>		
     IFN RMS$8DJ,<PUSHJ 17,%$REXLEASE##>		
    EASE##>		
    [7 `F	
      I`8FE <RMS$DJ+RMS$DY`X>,<						;a506
 `x      IFN TOP$10,a<PUSHJ 17,RMS$10#a8#+C$REMOVE>	
   aX    IFN TOP$20,<1ax04B8+1000+C$REMOVbE>	
     >						b8			;a506
c  IFbXN RMS$DY,<PUSHJ 1bx7,@$$REMOVE##>		
     IFN RMS$DJ,c8<PUSHJ 17,%$REMOVE##>		
    MOV[P kFs	
      Ik8FE <RMS$DJ+RMS$DYkX>,<						;a506
 kx      IFN TOP$10,l<PUSHJ 17,RMS$10#l8#+C$RENAME>	
   lX    IFN TOP$20,<1lx04B8+1000+C$RENAMmE>	
     >						m8			;a506
n  IFmXN RMS$DY,<PUSHJ 1mx7,@$$RENAME##>		
     IFN RMS$DJ,n8<PUSHJ 17,%$RENAME##>		
    NAM]t }@	
      I}8FE <RMS$DJ+RMS$DY}X>,<						;a506
 }x      IFN TOP$10,~<PUSHJ 17,RMS$10#~8#+C$REWIND>	
   ~X    IFN TOP$20,<1~x04B8+1000+C$REWIND>	
     >						8			;a506
  IFXN RMS$DY,<PUSHJ 1x7,@$$REWIND##>		
     IFN RMS$DJ,8<PUSHJ 17,%$REWIND##>		
    WINX9 ?D	
      I?8FE <RMS$DJ+RMS$DY?X>,<						;a506
 ?x      IFN TOP$10,@<PUSHJ 17,RMS$10#@8#+C$SEARCH>	
   @X    IFN TOP$20,<1@x04B8+1000+C$SEARCAH>	
     >						A8			;a506
B  IFAXN RMS$DY,<PUSHJ 1Ax7,@$$SEARCH##>		
     IFN RMS$DJ,B8<PUSHJ 17,%$SEARCH##>		
    ARC1 B	
      I8FE <RMS$DJ+RMS$DYX>,<						;a506
 x      IFN TOP$10,<PUSHJ 17,RMS$10#8#+C$SPACE>	
    X   IFN TOP$20,<10x4B8+1000+C$SPACE> 	
     >								 8	;a506
     IFN  XRMS$DY,<PUSHJ 17, x@$$SPACE##>		
  !   IFN RMS$DJ,<PU!8SHJ 17,%$SPACE##>		
    PACE##>&-7 _86	
      I_XFE <RMS$DJ+RMS$DY_x>,<						;a506
 `      IFN TOP$10,`8<PUSHJ 17,RMS$10#`X#+C$TRUNCATE>	
 `x      IFN TOP$20,a<104B8+1000+C$TRUa8NCATE>	
     >		aX							;a506
   ax  IFN RMS$DY,<PUSbHJ 17,@$$TRUNCATEb8##>		
     IFN RbXMS$DJ,<PUSHJ 17,%bx$TRUNCATE##>		
    CATE##>		
.	 >84
      I>XFE <RMS$DJ+RMS$DY>x>,<						;a506
 ?      IFN TOP$10,?8<PUSHJ 17,RMS$10#?X#+C$UPDATE>	
   ?x    IFN TOP$20,<1@04B8+1000+C$UPDAT@8E>	
     >						@X			;a506
A8  IF@xN RMS$DY,<PUSHJ 1A7,@$$UPDATE##>		
     IFN RMS$DJ,AX<PUSHJ 17,%$UPDATE##>		
    DAT.K g>S	
      Ig8FE <RMS$DJ+RMS$DYgX>,<						;a506
 gx      IFN TOP$10,h<PUSHJ 17,RMS$10#h8#+C$UTLINT>	
   hX    IFN TOP$20,<1hx04B8+1000+C$UTLINiT>	
     >						i8			;a506
j  IFiXN RMS$DY,<PUSHJ 1ix7,@$$UTLINT##>		
     IFN RMS$DJ,j8<PUSHJ 17,%$UTLINT##>		
    LIN<: @[	
      I8FE <RMS$DJ+RMS$DYX>,<						;a506
 x      IFN TOP$10,	<PUSHJ 17,RMS$10#	8#+C$WAIT>	
    	X  IFN TOP$20,<104	xB8+1000+C$WAIT>	

     >									;
8a506
     IFN RM
XS$DY,<PUSHJ 17,@$
x$WAIT##>		
     IFN RMS$DJ,<PUSHJ8 17,%$WAIT##>		
    WAIT##>		
>*: )Bc	
      I)8FE <RMS$DJ+RMS$DY)X>,<						;a506
 )x      IFN TOP$10,*<PUSHJ 17,RMS$10#*8#+C$WRITE>	
    *X   IFN TOP$20,<10*x4B8+1000+C$WRITE>+	
     >								+8	;a506
     IFN +XRMS$DY,<PUSHJ 17,+x@$$WRITE##>		
  ,   IFN RMS$DJ,<PU,8SHJ 17,%$WRITE##>		
    RITE##>	e|r !2?
	IFB <A!8>,<IF1,<PRINTX %A!XRGBLK ADDRESS OMI!xTTED ON CLOSE MAC"RO>>
	XMOVEI	1, "8A
	IFIDN <CLOSE"X><RENAME>,<					 "x      
	IFB <C>#,<IF1,<PRINTX %NE#8WFAB ADDRESS OMIT#XTED ON RENAME MAC#xRO>>
	XMOVEI 2, $C>
	IFDIF <CLOS$8E><RENAME>,<
	IF$XNB <C>,<IF1,<PRI$xNTX %MORE THAN 2 %ARGS DETECTED IN %8CLOSE MACRO>>>
	%X$%CLOSE			
	IFE %x<RMS$DY+RMS$DJ>,<&
		IFNB <B>,<JU&8MP 17,B>
		IFB &X<B>,<JUMP 16,.+1&x>	>  
	IFN <RMS$'DY+RMS$DJ>,< IFNB'8 <B>,<
		CAIL 2'X,300000			   
		'x PUSHJ 17,B 		>> 
	
     		>>	}kR nx7/
	IFB <Ao>,<IF1,<PRINTX %Ao8RGBLK ADDRESS OMIoXTTED ON CONNECT MoxACRO>>
	XMOVEI	1p, A
	IFIDN <CONp8NECT><RENAME>,<		pX			       
	IFB px<C>,<IF1,<PRINTXq %NEWFAB ADDRESS q8OMITTED ON RENAMEqX MACRO>>
	XMOVEIqx 2, C>
	IFDIF <rCONNECT><RENAME>,r8<
	IFNB <C>,<IFrX1,<PRINTX %MORE TrxHAN 2 ARGS DETECTsED IN CONNECT MACs8RO>>>
	$%CONNECTsX			
	IFE <RMS$DYsx+RMS$DJ>,<
		IFNtB <B>,<JUMP 17,t8B>
		IFB <B>,<JtXUMP 16,.+1>	>  
tx	IFN <RMS$DY+RMS$uDJ>,< IFNB <B>,<u8
		CAIL 2,300000uX			   
		 PUSHJ ux17,B 		>> 
	
     		>> 
	
 	X: x8e
	IFB <A>,<IF1,<PRINTX %A8RGBLK ADDRESS OMIXTTED ON CREATE MAxCRO>>
	XMOVEI	1, A
	IFIDN <CREA8TE><RENAME>,<				X	       
	IFB <xC>,<IF1,<PRINTX %NEWFAB ADDRESS OM8ITTED ON RENAME MXACRO>>
	XMOVEI 2x, C>
	IFDIF <CR	EATE><RENAME>,<
	8	IFNB <C>,<IF1,<	XPRINTX %MORE THAN	x 2 ARGS DETECTED 
IN CREATE MACRO>>
8>
	$%CREATE			

X	IFE <RMS$DY+RMS$
xDJ>,<
		IFNB <B>,<JUMP 17,B>
	8	IFB <B>,<JUMP 1X6,.+1>	>  
	IFN x<RMS$DY+RMS$DJ>,<

 IFNB <B>,<
		C

8AIL 2,300000

X 
		 PUSHJ 17,B 		>> 
	
    	,-3 x9=
	IFB <A>,<IF1,<PRINTX %A8RGBLK ADDRESS OMIXTTED ON DEBUG MACxRO>>
	XMOVEI	1, A
	IFIDN <DEBUG8><RENAME>,<					 X      
	IFB <C>x,<IF1,<PRINTX %NEWFAB ADDRESS OMIT8TED ON RENAME MACXRO>>
	XMOVEI 2, xC>
	IFDIF <DEBUG><RENAME>,<
	IF8NB <C>,<IF1,<PRIXNTX %MORE THAN 2 xARGS DETECTED IN DEBUG MACRO>>>
	8$%DEBUG			
	IFE X<RMS$DY+RMS$DJ>,<x
		IFNB <B>,<JUMP 17,B>
		IFB 8<B>,<JUMP 16,.+1X>	>  
	IFN <RMS$xDY+RMS$DJ>,< IFNB <B>,<
		CAIL 28,300000			   
		X PUSHJ 17,B 		>> 
	
     		>>	-I: M5
	IFB <AM8>,<IF1,<PRINTX %AMXRGBLK ADDRESS OMIMxTTED ON DELETE MANCRO>>
	XMOVEI	1,N8 A
	IFIDN <DELENXTE><RENAME>,<				Nx	       
	IFB <OC>,<IF1,<PRINTX %O8NEWFAB ADDRESS OMOXITTED ON RENAME MOxACRO>>
	XMOVEI 2P, C>
	IFDIF <DEP8LETE><RENAME>,<
PX	IFNB <C>,<IF1,<PxPRINTX %MORE THANQ 2 ARGS DETECTED Q8IN DELETE MACRO>>QX>
	$%DELETE			
Qx	IFE <RMS$DY+RMS$RDJ>,<
		IFNB <BR8>,<JUMP 17,B>
	RX	IFB <B>,<JUMP 1Rx6,.+1>	>  
	IFN S<RMS$DY+RMS$DJ>,<S8 IFNB <B>,<
		CSXAIL 2,300000			  Sx 
		 PUSHJ 17,B 		>> 
	
    	N8w zX8
	IFB <Azx>,<IF1,<PRINTX %A{RGBLK ADDRESS OMI{8TTED ON DISCONNEC{XT MACRO>>
	XMOVE{xI	1, A
	IFIDN <|DISCONNECT><RENAM|8E>,<					       
	IFB <C>,<IF1,<|xPRINTX %NEWFAB AD}DRESS OMITTED ON }8RENAME MACRO>>
	}XXMOVEI 2, C>
	I}xFDIF <DISCONNECT>~<RENAME>,<
	IFNB~8 <C>,<IF1,<PRINT~XX %MORE THAN 2 AR~xGS DETECTED IN DISCONNECT MACRO>>>8
	$%DISCONNECT		X	
	IFE <RMS$DY+RxMS$DJ>,<
		IFNB <B>,<JUMP 17,B>8
		IFB <B>,<JUMXP 16,.+1>	>  
	IxFN <RMS$DY+RMS$DJ>,< IFNB <B>,<
8		CAIL 2,300000		X	   
		 PUSHJ 17x,B 		>> 
	
     		>> 
	
   	N< IX=
	IFB <AIx>,<IF1,<PRINTX %AJRGBLK ADDRESS OMIJ8TTED ON DISPLAY MJXACRO>>
	XMOVEI	1Jx, A
	IFIDN <DISKPLAY><RENAME>,<		K8			       
	IFB KX<C>,<IF1,<PRINTXKx %NEWFAB ADDRESS LOMITTED ON RENAMEL8 MACRO>>
	XMOVEILX 2, C>
	IFDIF <LxDISPLAY><RENAME>,M<
	IFNB <C>,<IFM81,<PRINTX %MORE TMXHAN 2 ARGS DETECTMxED IN DISPLAY MACNRO>>>
	$%DISPLAYN8			
	IFE <RMS$DYNX+RMS$DJ>,<
		IFNNxB <B>,<JUMP 17,OB>
		IFB <B>,<JO8UMP 16,.+1>	>  
OX	IFN <RMS$DY+RMS$OxDJ>,< IFNB <B>,<P
		CAIL 2,300000P8			   
		 PUSHJ PX17,B 		>> 
	
     		>> 
	
 	vI9 MxE%
	IFB <AN>,<IF1,<PRINTX %AN8RGBLK ADDRESS OMINXTTED ON ENTER MACNxRO>>
	XMOVEI	1, OA
	IFIDN <ENTERO8><RENAME>,<					 OX      
	IFB <C>Ox,<IF1,<PRINTX %NEPWFAB ADDRESS OMITP8TED ON RENAME MACPXRO>>
	XMOVEI 2, PxC>
	IFDIF <ENTEQR><RENAME>,<
	IFQ8NB <C>,<IF1,<PRIQXNTX %MORE THAN 2 QxARGS DETECTED IN RENTER MACRO>>>
	R8$%ENTER			
	IFE RX<RMS$DY+RMS$DJ>,<Rx
		IFNB <B>,<JUSMP 17,B>
		IFB S8<B>,<JUMP 16,.+1SX>	>  
	IFN <RMS$SxDY+RMS$DJ>,< IFNBT <B>,<
		CAIL 2T8,300000			   
		TX PUSHJ 17,B 		>> 
	
     		>>	r Tx=]
	IFB <AU>,<IF1,<PRINTX %AU8RGBLK ADDRESS OMIUXTTED ON ERASE MACUxRO>>
	XMOVEI	1, VA
	IFIDN <ERASEV8><RENAME>,<					 VX      
	IFB <C>Vx,<IF1,<PRINTX %NEWWFAB ADDRESS OMITW8TED ON RENAME MACWXRO>>
	XMOVEI 2, WxC>
	IFDIF <ERASXE><RENAME>,<
	IFX8NB <C>,<IF1,<PRIXXNTX %MORE THAN 2 XxARGS DETECTED IN YERASE MACRO>>>
	Y8$%ERASE			
	IFE YX<RMS$DY+RMS$DJ>,<Yx
		IFNB <B>,<JUZMP 17,B>
		IFB Z8<B>,<JUMP 16,.+1ZX>	>  
	IFN <RMS$ZxDY+RMS$DJ>,< IFNB[ <B>,<
		CAIL 2[8,300000			   
		[X PUSHJ 17,B 		>> 
	
     		>>	FI7 XxE}
	IFB <AY>,<IF1,<PRINTX %AY8RGBLK ADDRESS OMIYXTTED ON EXTEND MAYxCRO>>
	XMOVEI	1,Z A
	IFIDN <EXTEZ8ND><RENAME>,<				ZX	       
	IFB <ZxC>,<IF1,<PRINTX %[NEWFAB ADDRESS OM[8ITTED ON RENAME M[XACRO>>
	XMOVEI 2[x, C>
	IFDIF <EX\TEND><RENAME>,<
\8	IFNB <C>,<IF1,<\XPRINTX %MORE THAN\x 2 ARGS DETECTED ]IN EXTEND MACRO>>]8>
	$%EXTEND			
]X	IFE <RMS$DY+RMS$]xDJ>,<
		IFNB <B^>,<JUMP 17,B>
	^8	IFB <B>,<JUMP 1^X6,.+1>	>  
	IFN ^x<RMS$DY+RMS$DJ>,<_ IFNB <B>,<
		C_8AIL 2,300000			  _X 
		 PUSHJ 17,B 		>> 
	
    	.Ht |@0
	$$ISOL(|`B)			
	IFE <T$$}SZ-^D18>,<		
	}@}   IFE T$$PS,<			
		HRRZ A,T$$OF+}`C
		T$$SZ==0		
	    >
	    IFE~  <T$$PS-^D18>,<		~@
		HLRZ A,T$$OF~`+C
		T$$SZ==0		
	    >
	>
	IF E <T$$SZ-^D36>,<	@	
		MOVE A,T$$O`F+C
		T$$SZ==0		
	>
	IFN T$$SZ ,<			
		LDB A,[@<T$$PS>B5 ! <T$$S`Z>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ |/`[F$$A+B][F$$A+B]	Mi X5w
	IFB <AX8>,<IF1,<PRINTX %AXXRGBLK ADDRESS OMIXxTTED ON FIND MACRYO>>
	XMOVEI	1, Y8A
	IFIDN <FIND><YXRENAME>,<					   Yx    
	IFB <C>,<ZIF1,<PRINTX %NEWFZ8AB ADDRESS OMITTEZXD ON RENAME MACROZx>>
	XMOVEI 2, C[>
	IFDIF <FIND><[8RENAME>,<
	IFNB [X<C>,<IF1,<PRINTX[x %MORE THAN 2 ARG\S DETECTED IN FIN\8D MACRO>>>
	$%FI\XND			
	IFE <RMS$\xDY+RMS$DJ>,<
		I]FNB <B>,<JUMP 17]8,B>
		IFB <B>,]X<JUMP 16,.+1>	>  ]x
	IFN <RMS$DY+RM^S$DJ>,< IFNB <B>^8,<
		CAIL 2,3000^X00			   
		 PUSH^xJ 17,B 		>> 
	
     		>> 
	f\t '8:q
	IFB <A'X>,<IF1,<PRINTX %A'xRGBLK ADDRESS OMI(TTED ON FLUSH MAC(8RO>>
	XMOVEI	1, (XA
	IFIDN <FLUSH(x><RENAME>,<					 )      
	IFB <C>)8,<IF1,<PRINTX %NE)XWFAB ADDRESS OMIT)xTED ON RENAME MAC*RO>>
	XMOVEI 2, *8C>
	IFDIF <FLUS*XH><RENAME>,<
	IF*xNB <C>,<IF1,<PRI+NTX %MORE THAN 2 +8ARGS DETECTED IN +XFLUSH MACRO>>>
	+x$%FLUSH			
	IFE ,<RMS$DY+RMS$DJ>,<,8
		IFNB <B>,<JU,XMP 17,B>
		IFB ,x<B>,<JUMP 16,.+1->	>  
	IFN <RMS$-8DY+RMS$DJ>,< IFNB-X <B>,<
		CAIL 2-x,300000			   
		. PUSHJ 17,B 		>> 
	
     		>>	Y  _x>5
	IFB <A`>,<IF1,<PRINTX %A`8RGBLK ADDRESS OMI`XTTED ON FREE MACR`xO>>
	XMOVEI	1, aA
	IFIDN <FREE><a8RENAME>,<					   aX    
	IFB <C>,<axIF1,<PRINTX %NEWFbAB ADDRESS OMITTEb8D ON RENAME MACRObX>>
	XMOVEI 2, Cbx>
	IFDIF <FREE><cRENAME>,<
	IFNB c8<C>,<IF1,<PRINTXcX %MORE THAN 2 ARGcxS DETECTED IN FREdE MACRO>>>
	$%FRd8EE			
	IFE <RMS$dXDY+RMS$DJ>,<
		IdxFNB <B>,<JUMP 17e,B>
		IFB <B>,e8<JUMP 16,.+1>	>  eX
	IFN <RMS$DY+RMexS$DJ>,< IFNB <B>f,<
		CAIL 2,3000f800			   
		 PUSHfXJ 17,B 		>> 
	
     		>> 
	.@ ,3
	IFB <A,8>,<IF1,<PRINTX %A,XRGBLK ADDRESS OMI,xTTED ON GET MACRO->>
	XMOVEI	1, A-8
	IFIDN <GET><RE-XNAME>,<					     -x  
	IFB <C>,<IF.1,<PRINTX %NEWFAB.8 ADDRESS OMITTED .XON RENAME MACRO>>.x
	XMOVEI 2, C>
	IFDIF <GET><REN/8AME>,<
	IFNB <C/X>,<IF1,<PRINTX %M/xORE THAN 2 ARGS D0ETECTED IN GET MA08CRO>>>
	$%GET			0X
	IFE <RMS$DY+RM0xS$DJ>,<
		IFNB <1B>,<JUMP 17,B>
		IFB <B>,<JUMP1X 16,.+1>	>  
	IF1xN <RMS$DY+RMS$DJ>2,< IFNB <B>,<
	28	CAIL 2,300000			2X   
		 PUSHJ 17,2xB 		>> 
	
     		>> 
	
    	&u vXG=			
	PUSHw8J 17,$$RMS##	
	.wXREQUIRE SYS:RMSINI	
)%BAD REC	6.<p 2X;M
	IFB <A2x>,<IF1,<PRINTX %A3RGBLK ADDRESS OMI38TTED ON MESSAGE M3XACRO>>
	XMOVEI	13x, A
	IFIDN <MES4SAGE><RENAME>,<		48			       
	IFB 4X<C>,<IF1,<PRINTX4x %NEWFAB ADDRESS 5OMITTED ON RENAME58 MACRO>>
	XMOVEI5X 2, C>
	IFDIF <5xMESSAGE><RENAME>,6<
	IFNB <C>,<IF681,<PRINTX %MORE T6XHAN 2 ARGS DETECT6xED IN MESSAGE MAC7RO>>>
	$%MESSAGE78			
	IFE <RMS$DY7X+RMS$DJ>,<
		IFN7xB <B>,<JUMP 17,8B>
		IFB <B>,<J88UMP 16,.+1>	>  
8X	IFN <RMS$DY+RMS$8xDJ>,< IFNB <B>,<9
		CAIL 2,30000098			   
		 PUSHJ 9X17,B 		>> 
	
     		>> 
	
 	:}Y9 >8<+
	IFB <A>X>,<IF1,<PRINTX %A>xRGBLK ADDRESS OMI?TTED ON NOMESSAGE?8 MACRO>>
	XMOVEI?X	1, A
	IFIDN <N?xOMESSAGE><RENAME>@,<					       
	@8IFB <C>,<IF1,<PR@XINTX %NEWFAB ADDR@xESS OMITTED ON REANAME MACRO>>
	XMA8OVEI 2, C>
	IFDAXIF <NOMESSAGE><REAxNAME>,<
	IFNB <BC>,<IF1,<PRINTX %B8MORE THAN 2 ARGS BXDETECTED IN NOMESBxSAGE MACRO>>>
	$C%NOMESSAGE			
	IC8FE <RMS$DY+RMS$DJCX>,<
		IFNB <B>,Cx<JUMP 17,B>
		IDFB <B>,<JUMP 16,D8.+1>	>  
	IFN <RDXMS$DY+RMS$DJ>,< IDxFNB <B>,<
		CAIEL 2,300000			   
		 PUSHJ 17,B 		>> 
	
     		;FMW ux?e
	IFB <Av>,<IF1,<PRINTX %Av8RGBLK ADDRESS OMIvXTTED ON NXTVOL MAvxCRO>>
	XMOVEI	1,w A
	IFIDN <NXTVw8OL><RENAME>,<				wX	       
	IFB <wxC>,<IF1,<PRINTX %xNEWFAB ADDRESS OMx8ITTED ON RENAME MxXACRO>>
	XMOVEI 2xx, C>
	IFDIF <NXyTVOL><RENAME>,<
y8	IFNB <C>,<IF1,<yXPRINTX %MORE THANyx 2 ARGS DETECTED zIN NXTVOL MACRO>>z8>
	$%NXTVOL			
zX	IFE <RMS$DY+RMS$zxDJ>,<
		IFNB <B{>,<JUMP 17,B>
	{8	IFB <B>,<JUMP 1{X6,.+1>	>  
	IFN {x<RMS$DY+RMS$DJ>,<| IFNB <B>,<
		C|8AIL 2,300000			  |X 
		 PUSHJ 17,B 		>> 
	
    	?[@ 1g
	IFB <A8>,<IF1,<PRINTX %AXRGBLK ADDRESS OMIxTTED ON OPEN MACRO>>
	XMOVEI	1, 8A
	IFIDN <OPEN><XRENAME>,<					   x    
	IFB <C>,<IF1,<PRINTX %NEWF8AB ADDRESS OMITTEXD ON RENAME MACROx>>
	XMOVEI 2, C>
	IFDIF <OPEN><8RENAME>,<
	IFNB X<C>,<IF1,<PRINTXx %MORE THAN 2 ARGS DETECTED IN OPE8N MACRO>>>
	$%OPXEN			
	IFE <RMS$xDY+RMS$DJ>,<
		IFNB <B>,<JUMP 178,B>
		IFB <B>,X<JUMP 16,.+1>	>  x
	IFN <RMS$DY+RMS$DJ>,< IFNB <B>8,<
		CAIL 2,3000X00			   
		 PUSHxJ 17,B 		>> 
	
     		>> 
	B,r 7xCu
	IFB <A8>,<IF1,<PRINTX %A88RGBLK ADDRESS OMI8XTTED ON PARSE MAC8xRO>>
	XMOVEI	1, 9A
	IFIDN <PARSE98><RENAME>,<					 9X      
	IFB <C>9x,<IF1,<PRINTX %NE:WFAB ADDRESS OMIT:8TED ON RENAME MAC:XRO>>
	XMOVEI 2, :xC>
	IFDIF <PARS;E><RENAME>,<
	IF;8NB <C>,<IF1,<PRI;XNTX %MORE THAN 2 ;xARGS DETECTED IN <PARSE MACRO>>>
	<8$%PARSE			
	IFE <X<RMS$DY+RMS$DJ>,<<x
		IFNB <B>,<JU=MP 17,B>
		IFB =8<B>,<JUMP 16,.+1=X>	>  
	IFN <RMS$=xDY+RMS$DJ>,< IFNB> <B>,<
		CAIL 2>8,300000			   
		>X PUSHJ 17,B 		>> 
	
     		>>	C.@ 73o
	IFB <A78>,<IF1,<PRINTX %A7XRGBLK ADDRESS OMI7xTTED ON PUT MACRO8>>
	XMOVEI	1, A88
	IFIDN <PUT><RE8XNAME>,<					     8x  
	IFB <C>,<IF91,<PRINTX %NEWFAB98 ADDRESS OMITTED 9XON RENAME MACRO>>9x
	XMOVEI 2, C>
	IFDIF <PUT><REN:8AME>,<
	IFNB <C:X>,<IF1,<PRINTX %M:xORE THAN 2 ARGS D;ETECTED IN PUT MA;8CRO>>>
	$%PUT			;X
	IFE <RMS$DY+RM;xS$DJ>,<
		IFNB <<B>,<JUMP 17,B>
		IFB <B>,<JUMP<X 16,.+1>	>  
	IF<xN <RMS$DY+RMS$DJ>=,< IFNB <B>,<
	=8	CAIL 2,300000			=X   
		 PUSHJ 17,=xB 		>> 
	
     		>> 
	
    	J, xAm
	IFB <A>,<IF1,<PRINTX %A8RGBLK ADDRESS OMIXTTED ON READ MACRxO>>
	XMOVEI	1, A
	IFIDN <READ><8RENAME>,<					   X    
	IFB <C>,<xIF1,<PRINTX %NEWFAB ADDRESS OMITTE8D ON RENAME MACROX>>
	XMOVEI 2, Cx>
	IFDIF <READ><RENAME>,<
	IFNB 8<C>,<IF1,<PRINTXX %MORE THAN 2 ARGxS DETECTED IN READ MACRO>>>
	$%RE8AD			
	IFE <RMS$XDY+RMS$DJ>,<
		IxFNB <B>,<JUMP 17,B>
		IFB <B>,8<JUMP 16,.+1>	>  X
	IFN <RMS$DY+RMxS$DJ>,< IFNB <B>,<
		CAIL 2,3000800			   
		 PUSHXJ 17,B 		>> 
	
     		>> 
	J-I0 :
	IFB <A8>,<IF1,<PRINTX %AXRGBLK ADDRESS OMIxTTED ON RELEASE MACRO>>
	XMOVEI	18, A
	IFIDN <RELXEASE><RENAME>,<		x			       
	IFB <C>,<IF1,<PRINTX8 %NEWFAB ADDRESS XOMITTED ON RENAMEx MACRO>>
	XMOVEI 2, C>
	IFDIF <8RELEASE><RENAME>,X<
	IFNB <C>,<IFx1,<PRINTX %MORE T HAN 2 ARGS DETECT 8ED IN RELEASE MAC XRO>>>
	$%RELEASE x			
	IFE <RMS$DY!+RMS$DJ>,<
		IFN!8B <B>,<JUMP 17,!XB>
		IFB <B>,<J!xUMP 16,.+1>	>  
"	IFN <RMS$DY+RMS$"8DJ>,< IFNB <B>,<"X
		CAIL 2,300000"x			   
		 PUSHJ #17,B 		>> 
	
     		>> 
	
 	J-[{ cxFU
	IFB <Ad>,<IF1,<PRINTX %Ad8RGBLK ADDRESS OMIdXTTED ON REMOVE MAdxCRO>>
	XMOVEI	1,e A
	IFIDN <REMOe8VE><RENAME>,<				eX	       
	IFB <exC>,<IF1,<PRINTX %fNEWFAB ADDRESS OMf8ITTED ON RENAME MfXACRO>>
	XMOVEI 2fx, C>
	IFDIF <REgMOVE><RENAME>,<
g8	IFNB <C>,<IF1,<gXPRINTX %MORE THANgx 2 ARGS DETECTED hIN REMOVE MACRO>>h8>
	$%REMOVE			
hX	IFE <RMS$DY+RMS$hxDJ>,<
		IFNB <Bi>,<JUMP 17,B>
	i8	IFB <B>,<JUMP 1iX6,.+1>	>  
	IFN ix<RMS$DY+RMS$DJ>,<j IFNB <B>,<
		Cj8AIL 2,300000			  jX 
		 PUSHJ 17,B 		>> 
	
    	J-h6 nxG-
	IFB <Ao>,<IF1,<PRINTX %Ao8RGBLK ADDRESS OMIoXTTED ON RENAME MAoxCRO>>
	XMOVEI	1,p A
	IFIDN <RENAp8ME><RENAME>,<				pX	       
	IFB <pxC>,<IF1,<PRINTX %qNEWFAB ADDRESS OMq8ITTED ON RENAME MqXACRO>>
	XMOVEI 2qx, C>
	IFDIF <RErNAME><RENAME>,<
r8	IFNB <C>,<IF1,<rXPRINTX %MORE THANrx 2 ARGS DETECTED sIN RENAME MACRO>>s8>
	$%RENAME			
sX	IFE <RMS$DY+RMS$sxDJ>,<
		IFNB <Bt>,<JUMP 17,B>
	t8	IFB <B>,<JUMP 1tX6,.+1>	>  
	IFN tx<RMS$DY+RMS$DJ>,<u IFNB <B>,<
		Cu8AIL 2,300000			  uX 
		 PUSHJ 17,B 		>> 
	
    	J.M9 /\POPJ	17,	J.z7 x@=
	IFB <A>,<IF1,<PRINTX %A8RGBLK ADDRESS OMIXTTED ON REWIND MAxCRO>>
	XMOVEI	1, A
	IFIDN <REWI8ND><RENAME>,<				X	       
	IFB <xC>,<IF1,<PRINTX %NEWFAB ADDRESS OM8ITTED ON RENAME MXACRO>>
	XMOVEI 2x, C>
	IFDIF <REWIND><RENAME>,<
8	IFNB <C>,<IF1,<XPRINTX %MORE THANx 2 ARGS DETECTED IN REWIND MACRO>>8>
	$%REWIND			
X	IFE <RMS$DY+RMS$xDJ>,<
		IFNB <B>,<JUMP 17,B>
	8	IFB <B>,<JUMP 1X6,.+1>	>  
	IFN x<RMS$DY+RMS$DJ>,< IFNB <B>,<
		C8AIL 2,300000			  X 
		 PUSHJ 17,B 		>> 
	
    	Jn0 vXG=			
	PUSHw8J 17,$$RMS##	
	.wXREQUIRE SYS:RMSINI	
)%BAD REC	N,Q BxDM
	IFB <AC>,<IF1,<PRINTX %AC8RGBLK ADDRESS OMICXTTED ON SEARCH MACxCRO>>
	XMOVEI	1,D A
	IFIDN <SEARD8CH><RENAME>,<				DX	       
	IFB <DxC>,<IF1,<PRINTX %ENEWFAB ADDRESS OME8ITTED ON RENAME MEXACRO>>
	XMOVEI 2Ex, C>
	IFDIF <SEFARCH><RENAME>,<
F8	IFNB <C>,<IF1,<FXPRINTX %MORE THANFx 2 ARGS DETECTED GIN SEARCH MACRO>>G8>
	$%SEARCH			
GX	IFE <RMS$DY+RMS$GxDJ>,<
		IFNB <BH>,<JUMP 17,B>
	H8	IFB <B>,<JUMP 1HX6,.+1>	>  
	IFN Hx<RMS$DY+RMS$DJ>,<I IFNB <B>,<
		CI8AIL 2,300000			  IX 
		 PUSHJ 17,B 		>> 
	
    	Or !xBE
	IFB <A">,<IF1,<PRINTX %A"8RGBLK ADDRESS OMI"XTTED ON SPACE MAC"xRO>>
	XMOVEI	1, #A
	IFIDN <SPACE#8><RENAME>,<					 #X      
	IFB <C>#x,<IF1,<PRINTX %NE$WFAB ADDRESS OMIT$8TED ON RENAME MAC$XRO>>
	XMOVEI 2, $xC>
	IFDIF <SPAC%E><RENAME>,<
	IF%8NB <C>,<IF1,<PRI%XNTX %MORE THAN 2 %xARGS DETECTED IN &SPACE MACRO>>>
	&8$%SPACE			
	IFE &X<RMS$DY+RMS$DJ>,<&x
		IFNB <B>,<JU'MP 17,B>
		IFB '8<B>,<JUMP 16,.+1'X>	>  
	IFN <RMS$'xDY+RMS$DJ>,< IFNB( <B>,<
		CAIL 2(8,300000			   
		(X PUSHJ 17,B 		>> 
	
     		>>	O%|R  0.
	$$ISOL(@B)			
	IFE <T$$`SZ-^D18>,<		
	   IFE T$$PS,<			
		HRRM A,T$$OF+@C
		T$$SZ==0		
	    >
	    IFE <T$$PS-^D18>,<		 
		HRLM A,T$$OF@+C
		T$$SZ==0		`
	    >
	>
	IFE <T$$SZ-^D36>,<	 	
		MOVEM A,T$$@OF+C
		T$$SZ==0`		;INDIC INST GEN
	>
	IFN T$$SZ, <			
		DPB A,[<@T$$PS>B5 ! <T$$SZ`>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q c86S
	IFB <AcX>,<IF1,<PRINTX %AcxRGBLK ADDRESS OMIdTTED ON TRUNCATE d8MACRO>>
	XMOVEI	dX1, A
	IFIDN <TRdxUNCATE><RENAME>,<e					       
	IFe8B <C>,<IF1,<PRINeXTX %NEWFAB ADDRESexS OMITTED ON RENAfME MACRO>>
	XMOVf8EI 2, C>
	IFDIFfX <TRUNCATE><RENAMfxE>,<
	IFNB <C>,g<IF1,<PRINTX %MORg8E THAN 2 ARGS DETgXECTED IN TRUNCATEgx MACRO>>>
	$%TRUhNCATE			
	IFE <Rh8MS$DY+RMS$DJ>,<
hX		IFNB <B>,<JUMPhx 17,B>
		IFB <iB>,<JUMP 16,.+1>	i8>  
	IFN <RMS$DYiX+RMS$DJ>,< IFNB <ixB>,<
		CAIL 2,3j00000			   
		Pj8USHJ 17,B 		>> 
	
	WH		>>B4G
	IFB <AB8>,<IF1,<PRINTX %ABXRGBLK ADDRESS OMIBxTTED ON UPDATE MACCRO>>
	XMOVEI	1,C8 A
	IFIDN <UPDACXTE><RENAME>,<				Cx	       
	IFB <DC>,<IF1,<PRINTX %D8NEWFAB ADDRESS OMDXITTED ON RENAME MDxACRO>>
	XMOVEI 2E, C>
	IFDIF <UPE8DATE><RENAME>,<
EX	IFNB <C>,<IF1,<ExPRINTX %MORE THANF 2 ARGS DETECTED F8IN UPDATE MACRO>>FX>
	$%UPDATE			
Fx	IFE <RMS$DY+RMS$GDJ>,<
		IFNB <BG8>,<JUMP 17,B>
	GX	IFB <B>,<JUMP 1Gx6,.+1>	>  
	IFN H<RMS$DY+RMS$DJ>,<H8 IFNB <B>,<
		CHXAIL 2,300000			  Hx 
		 PUSHJ 17,B 		>> 
	
	W%J7 jx?
	IFB <Ak>,<IF1,<PRINTX %Ak8RGBLK ADDRESS OMIkXTTED ON UTLINT MAkxCRO>>
	XMOVEI	1,l A
	IFIDN <UTLIl8NT><RENAME>,<				lX	       
	IFB <lxC>,<IF1,<PRINTX %mNEWFAB ADDRESS OMm8ITTED ON RENAME MmXACRO>>
	XMOVEI 2mx, C>
	IFDIF <UTnLINT><RENAME>,<
n8	IFNB <C>,<IF1,<nXPRINTX %MORE THANnx 2 ARGS DETECTED oIN UTLINT MACRO>>o8>
	$%UTLINT			
oX	IFE <RMS$DY+RMS$oxDJ>,<
		IFNB <Bp>,<JUMP 17,B>
	p8	IFB <B>,<JUMP 1pX6,.+1>	>  
	IFN px<RMS$DY+RMS$DJ>,<q IFNB <B>,<
		Cq8AIL 2,300000			  qX 
		 PUSHJ 17,B 		>> 
	
	^xA
	IFB <A

>,<IF1,<PRINTX %A

8RGBLK ADDRESS OMI

XTTED ON WAIT MACR

xO>>
	XMOVEI	1, 
	IFIDNE<WAIT><   
	IFB,<C>,< %NEWFAB ADDRESS OMITTE8D ON RENAME MACROX>>
	XMOVEI 2, Cx>
	IFDIF <WAIT><RENAME>,<
	IFNB 8<C>,<IF1,<PRINTXX %MORE THAN 2 ARGxS DETECTED IN WAIT MACRO>>>
	$%WA8IT			
	IFE <RMS$XDY+RMS$DJ>,<
		IxFNB <B>,<JUMP 17,B>
		IFB <B>,8<JUMP 16,.+1>	>  X
	IFN <RMS$DY+RMxS$DJ>,< IFNB <B>,<
		CAIL 2,3000800			   
		 PUSHXJ 17,B 		>> 
	
     		>> 
	 ,xC
	IFB <A->,<IF1,<PRINTX %A-8RGBLK ADDRESS OMI-XTTED ON WRITE MAC-xRO>>
	XMOVEI	1, .A
	IFIDN <WRITE.8><RENAME>,<					 .X      
	IFB <C>.x,<IF1,<PRINTX %NE/WFAB ADDRESS OMIT/8TED ON RENAME MAC/XRO>>
	XMOVEI 2, /xC>
	IFDIF <WRIT0E><RENAME>,<
	IF08NB <C>,<IF1,<PRI0XNTX %MORE THAN 2 0xARGS DETECTED IN 1WRITE MACRO>>>
	18$%WRITE			
	IFE 1X<RMS$DY+RMS$DJ>,<1x
		IFNB <B>,<JU2MP 17,B>
		IFB 28<B>,<JUMP 16,.+12X>	>  
	IFN <RMS$2xDY+RMS$DJ>,< IFNB3 <B>,<
		CAIL 238,300000			   
		3X PUSHJ 17,B 		>> 
	
     		>>: - "r
	DEFINE -@A$B(ARG)<
		IF-`1,<PRINTX	%"A$B." RMS-11 ONLY, IG. NORED BY RMS-20>
	>
YhRMS-20>.`"x
	IRP A,/< ..BADF(F,A) >
.BADF(F,A)">
	IRP A,/`< ..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