Google
 

Trailing-Edge - PDP-10 Archives - BB-JF18A-BM - subsys/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,Qh@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&
hQ $HL&
hQ $HL&
iQ $HL&
iQ $HL&
jQ $HL&
jQ $HL&
kQ $HL&
kQ $H	L&(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,<P6RINTX	%"F$ANB" RM68S-11 ONLY, IGNORED BY RMS-20>
	L<` a8&$$NEWVAL (BKS,A)NEWVAL (LL` `x&$$NEWVAL (BLS,A)NEWVAL (L>@ ^x%w$$NEWVAL (BSZ,A)NEWVAL (LN ax&$$NEWVAL (CTX,A)NEWVAL (L%h  1x#
		IF1,<P2RINTX	%"F$DNA" RM28S-11 ONLY, IGNORED BY RMS-20>
	L%l` 2x#
		IF1,<P3RINTX	%"F$DNS" RM38S-11 ONLY, IGNORED BY RMS-20>
	L4` Zx%W$$NEWVAL (FAC,A)NEWVAL (L5h  \x%g$$NEWVAL (FNA,A)NEWVAL (L5l` 0x#
		IF1,<P1RINTX	%"F$FNS" RM18S-11 ONLY, IGNORED BY RMS-20>
	L5| [x%_$$NEWVAL (FOP,A)NEWVAL (L6>@ b8&$$NEWVAL (FSZ,A)NEWVAL (LTk@ Z8%S$$NEWVAL (JFN,A)NEWVAL (LUk `8&$$NEWVAL (JNL,A)NEWVAL (Ld: 7x#C
		IF1,<P8RINTX	%"F$LCH" RM88S-11 ONLY, IGNORED BY RMS-20>
	Ln+@ ^8%s$$NEWVAL (MRN,A)NEWVAL (Ln,` ]x%o$$NEWVAL (MRS,A)NEWVAL (Lt  4x#'$$NEWVAL (NAM,A)NEWVAL (L~)` \8%c$$NEWVAL (ORG,A)NEWVAL (L ]8%k$$NEWVAL (RAT,A)NEWVAL (Lk  _8%{$$NEWVAL (RFM,A)NEWVAL (LM@ 3x##
		IF1,<P4RINTX	%"F$RTV" RM48S-11 ONLY, IGNORED BY RMS-20>
	L
@ [8%[$$NEWVAL (SHR,A)NEWVAL (L' 58#+$$NEWVAL (TYP,A)NEWVAL (LD@ _x%$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ P8%O
	IFNB <PXA>,<			;RUN-TIME PxINIT
		$$MAPADD Q(A,$$ADDR);	; WIQ8LL REFERENCE FAB QXVIA $$ADDR
		SYNQx SF$$RT,$$SET
	>R					
	IFB <A>,R8<SYN SF$$CT,$$SETRX>	
		$$CURR (F,BRxID)
		$$CURR (F,SBLN)
		$$CURR (FS8,STS)
		$$CURR (SXF,STV)
		$$CURR Sx(F,IFI)
		$$CURRT (F,JFN)
		$$CURT8R (F,FAC)
		$$CUTXRR (F,SHR)
		$$CTxURR (F,FOP)
		$$UCURR (F,ORG)
		$U8$CURR (F,FNA)
		UX$$CURR (F,RAT)
	Ux	$$CURR (F,MRS)
V		$$CURR (F,MRN)
		$$CURR (F,BSZ)VX
		$$CURR (F,RFMVx)
		$$CURR (F,XAWB)
		$$CURR (F,JW8NL)
		$$CURR (F,WXBLS)
		$$CURR (FWx,BKS)
		$$CURR (XF,DEV)
		$$CURR X8(F,SDC)
		$$CURRXX (F,CTX)
		$$CURXxR (F,FSZ)	;![AWN]Y
		$$CURR (F,TYPY8)	;![AWN]
		$$CUYXRR (F,NAM)	;![AWNYx]
		$$CURR (F,ALQ)	;![AWN]
	ALMI  78'
	IFNDEF bX$$ADDR,<				
		<bx$$SET(BID)>_^D18 c! <$$SET(BLN)>
	c8	<$$SET(STS)>^D1cX8 ! <$$SET(STV)>
		<$$SET(CTX)>
d		<$$SET(IFI)>_^Dd818 ! <$$SET(JFN)>dX
		<$$SET(FAC)>_dx^D18 ! <$$SET(SHRe)>
		<$$SET(FOP)e8>_^D18 ! <$$SET(OeXRG)>_^D14 ! <$$SEexT(BSZ)>_^D8 ! <$$fSET(BLS)>
		<$$Sf8ET(FNA)>
		<$$SEfXT(RAT)>_^D18 ! <$fx$SET(MRS)>
		<$$gSET(MRN)>
		<$$Sg8ET(FSZ)>_^D13 ! <gX$$SET(BKS)>_^D5 !gx <$$SET(RFM)> ;![hAWN]
		<$$SET(JNh8L)>_^D18 ! <$$SEThX(XAB)>
		<$$SET(hxDEV)>_^D18 ! <$$SiET(SDC)>
		<$$SEi8T(TYP)>_^D18 ! <$iX$SET(NAM)>	;![AWNix]
		<$$SET(ALQ)>j				;![AWN]
		EXj8P 0,0
	>					;ENjXD IFNB
	IFDEF $$jxADDR,<
		$$SET(BkID)
		$$SET(BLN)k8
		$$SET(STS)
	kX	$$SET(STV)
		$$kxSET(IFI)
		$$SETl(JFN)
		$$SET(FAl8C)
		$$SET(SHR)
		$$SET(FOP)
		lx$$SET(ORG)
		$$SmET(FNA)
		$$SET(m8RAT)
		$$SET(MRSmX)
		$$SET(MRN)
mx		$$SET(BSZ)
		$n$SET(RFM)
		$$SEn8T(XAB)
		$$SET(JnXNL)
		$$SET(BLS)nx
		$$SET(BKS)
	o	$$SET(DEV)
		$$o8SET(SDC)
		$$SEToX(CTX)
		$$SET(FSoxZ)			;![AWN]
		$p$SET(NAM)			;![AWp8N]
		$$SET(TYP)	pX		;![AWN]
		$$SEpxT(ALQ)			;![AWN]
		
		PURGE $$ADq8DR			
	>					
				
	>					
	MN@ o.y $$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  Q8- $$NEWVAL (ESA,A)NEWVAL \.<` Qx- $$NEWVAL (ESS,A)NEWVAL \u| Rx- $$NEWVAL (NOP,A)NEWVAL \I@ R8- $$NEWVAL (RLF,A)NEWVAL \8  S8- $$NEWVAL (RSA,A)NEWVAL \<` Sx- $$NEWVAL (RSS,A)NEWVAL ]$zP @]$9P ]$9P ]$9<P ]$;PP ]$I;P$]$J9P!]$YQ  ]$YQ @]$[PQ ]$]Q ]$]RQ ]$^P  ]${RP ]% ]%KSP ]%]6Q  ]%^P ?]%^P ?]%h6P @]%jP ]%j6P ]%krP ]&
WP ]&7Q ]&>7P ]&IYP  ]&N8P ]&ZP ]&[P ]&[ZP"]&i9P ]&{Q @]hH@ HX-
	IFNB <HxA>,<
		$$MAPADD I(A,$$ADDR);	; WII8LL REFERENCE THE IXBLOCK VIA $$ADDR
		SYN SN$$RT,$$SJET
	>					
	IFBJ8 <A>,<SYN SN$$CTJX,$$SET>	
		$$CURJxR (N,BID)
		$$CUKRR (N,BLN)
		$$CK8URR (N,ESA)
		$$KXCURR (N,ESS)
		$Kx$CURR (N,ESL)
		L$$CURR (N,RLF)
	L8	$$CURR (N,NOP)
LX		$$CURR (N,RSA)
		$$CURR (N,RSL)M
		$$CURR (N,RSSM8)
		$$CURR (N,FNMXB)
		$$CURR (N,WMxCC)
		$$CURR (N,NCHA)
		$$CURR (NN8,NDL)
		$$CURR (NXN,DVL)
		$$CURR Nx(N,NML)
		$$CURRO (N,TPL)
		$$CURO8R (N,VRL)
		$$CUOXRR (N,NDA)
		$$COxURR (N,DVA)
		$$PCURR (N,DRA)
		$P8$CURR (N,NMA)
		PX$$CURR (N,TPA)
	Px	$$CURR (N,VRA)
	 URR (N,VRA)
]hI  T8.
	IFNDEF TX$$ADDR,<
		<$$SETxT(BID)>_^D18 ! <$U$SET(BLN)>
		<$$U8SET(ESA)>
		<$$SUXET(ESL)>_^D18 ! <Ux$$SET(ESS)>
		<$V$SET(NOP)>_^D18 !V8 <$$SET(RLF)>
		VX<$$SET(RSA)>
		<Vx$$SET(RSL)>_^D18 W! <$$SET(RSS)>
	W8	<$$SET(FNB)>
		WX<$$SET(WCC)>
		<Wx$$SET(DVL)>_^D27 X! <$$SET(NDL)>_^DX818 ! <$$SET(CHA)>XX
		<$$SET(VRL)>_Xx^D27 ! <$$SET(TPLY)>_^D18 ! <$$SET(Y8NML)>_^D9 ! <$$SEYXT(DRL)>
		<$$SETYx(NDA)>
		<$$SET(ZDVA)>
		<$$SET(DZ8RA)>
		<$$SET(NMZXA)>
		<$$SET(TPAZx)>
		<$$SET(VRA)[>
	>				;IFNDEF
	IFDEF $$ADDR,<
		$$SET(BID)
		[x$$SET(BLN)
		$$S\ET(ESA)
		$$SET(\8ESL)
		$$SET(ESS\X)
		$$SET(NOP)
\x		$$SET(RLF)
		$]$SET(RSA)
		$$SE]8T(RSL)
		$$SET(R]XSS)
		$$SET(FNB)]x
		$$SET(WCC)
	^	$$SET(DVL)
		$$^8SET(NDL)
		$$SET^X(CHA)
		$$SET(VR^xL)
		$$SET(TPL)
		$$SET(NML)
		_8$$SET(DRL)
		$$S_XET(NDA)
		$$SET(_xDVA)
		$$SET(DRA`)
		$$SET(NMA)
`8		$$SET(TPA)
		$`X$SET(VRA)

		PU`xRGE $$ADDR			;SO aNEXT C/R DECIS COa8RRECT
	>					;IFDEF
	>					;IF]hN@ px/ $$ZERO(A,NA$LNG) ERO(AdN 8( $$NEWVAL (CTX,A)NEWVAL d-L` 8( $$NEWVAL (ELS,A)NEWVAL d4@ yx'O $$NEWVAL (FAB,A)NEWVAL d\)@ ~8's $$NEWVAL (KBF,A)NEWVAL d^)@ }8'k $$NEWVAL (KRF,A)NEWVAL d^>@ }x'o $$NEWVAL (KSZ,A)NEWVAL df;@ x' $$NEWVAL (LSN,A)NEWVAL dl)@ ~x'w $$NEWVAL (MBF,A)NEWVAL d 8'{ $$NEWVAL (PAD,A)NEWVAL d` z8'S $$NEWVAL (RAC,A)NEWVAL d)@ {x'_ $$NEWVAL (RBF,A)NEWVAL dh  x( $$NEWVAL (RFA,A)NEWVAL d@ 08#G
		IF1,<P8XRINTX	%"R$RHB" RM8xS-11 ONLY, IGNORED BY RMS-20>
	d| zx'W $$NEWVAL (ROP,A)NEWVAL d>@ |8'c $$NEWVAL (RSZ,A)NEWVAL d,)@ {8'[ $$NEWVAL (UBF,A)NEWVAL d.>@ |x'g $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ qx'K
	IFNB <rA>,<
		$$MAPADD r8(A,$$ADDR);	; WIrXLL REFERENCE THE rxBLOCK VIA $$ADDR
		SYN SR$$RT,$$Ss8ET
	>					
	IFBsX <A>,<SYN SR$$CTsx,$$SET>	
		$$CURtR (R,BID)
		$$CUt8RR (R,BLN)
		$$CtXURR (R,STS)
		$$txCURR (R,STV)
		$u$CURR (R,ISI)
		u8$$CURR (R,FAB)
	uX	$$CURR (R,RAC)
ux		$$CURR (R,ROP)
		$$CURR (R,UBF)v8
		$$CURR (R,RBFvX)
		$$CURR (R,RSvxZ)
		$$CURR (R,UwSZ)
		$$CURR (R,w8RFA)
		$$CURR (RwX,KRF)
		$$CURR (wxR,KSZ)
		$$CURR x(R,KBF)
		$$CURRx8 (R,MBF)
		$$CURxXR (R,LSN)
		$$CUxxRR (R,BKT)
		$$CyURR (R,PAD)
		$$y8CURR (R,CTX)
	 URR (R,CTX)
	 eI  x(k
	IFNDEF $$ADDR,<
		<$$SE8T(BID)>_^D18 ! <$X$SET(BLN)>
		<$$xSET(STS)>_^D18 ! <$$SET(STV)>
		<8$$SET(CTX)>
		<$X$SET(ISI)>_^D18 !x <$$SET(FAB)>
		<$$SET(RAC)>_^D278 ! <$$SET(MBF)>_^XD18 ! <$$SET(ROP)x>
		<$$SET(UBF)>
		<$$SET(RBF)>
		<$$SET(RSZ)>_^XD18 ! <$$SET(USZ)x>
		<$$SET(RFA)>
		<$$SET(KRF)>_8^D27 ! <$$SET(KSZX)>_^D18 ! <$$SET(xLSN)>
		<$$SET(KBF)>
		<$$SET(BK8T)>
		<$$SET(PADX)>_^D27
		EXP 0,x0,0
	>				;IFNDEF
	IFDEF $$ADDR,8<
		$$SET(BID)
X		$$SET(BLN)
		$x$SET(STS)
		$$SE	T(STV)
		$$SET(I	8SI)
		$$SET(FAB)	X
		$$SET(RAC)
		x	$$SET(ROP)
		$$
SET(UBF)
		$$SET
8(RBF)
		$$SET(RS
XZ)
		$$SET(USZ)
x
		$$SET(RFA)
		$$SET(KRF)
		$$S8ET(KSZ)
		$$SET(XKBF)
		$$SET(MBFx)
		$$SET(LSN)

		$$SET(BKT)
		$
8$SET(PAD)
		$$SE
XT(CTX)
		PURGE $
x$ADDR			;SOONEXTT
	>					;IFDEF
	>					;IFDEF
eN@ oX.} $$ZERO(A,RA$LNG) ERO(Ae$)ZP e$+P e$[sP e$iP e%9<P e%9rP @e%9zP  e%KpP e%KqP e%j6P e%lXP e&2P e&(4P e&)PP e&98P e&LPP e&x0P e&xPP e&xTP e4%X< e4%Z7 e7IP e7IP eL$[sP eL%KSP 	eL%KuP eL&9P eL&98P  eL&=1P eL&LWP @eL&N8P eL&\P f$(` ! A$B==1BC  A$B==1Bf$H` X } A$B==^DC  A$B==^Df&8`  y A$B==C$D  A$B==Cg Hz GX$?IFDEF C$$GxA,<C$$A> IFNDEF C$$A,<$$FA>F g LZ F8$9
	    IFNFXDEF C$$A,<IFN $$FxFA,<C$$A==$$FAG>>
	    STO$$C(A)			
	TO$$C(g8 Hz MX$oIFDEF C$$MxA,<C$$A> IFNDEF C$$A,<$$NA>F g8 LZ L8$i
	    IFNLXDEF C$$A,<IFN $$LxNA,<C$$A==$$NAM>>
	    STO$$C(A)			
	TO$$C(gH Hz IX$OIFDEF C$$IxA,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ H8$I
	    IFNHXDEF C$$A,<IFN $$HxRA,<C$$A==$$RAI>>
	    STO$$C(A)			
	TO$$C(gP Hz OX$IFDEF C$$OxA,<C$$A> IFNDEF C$$A,<$$TA>F gP LZ N8$y
	    IFNNXDEF C$$A,<IFN $$NxTA,<C$$A==$$TAO>>
	    STO$$C(A)			
	TO$$C(gRxA Dx$/			
	E8  EIFDEF C$$A,<			
		<HRREI 1,> ! CEX$$A		
		$STORE	Ex(1,A,$$ADDR)		
	    >
	R)		
gT$M8@ gT%@ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz KX$_IFDEF C$$KxA,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ J8$Y
	    IFNJXDEF C$$A,<IFN $$JxXA,<C$$A==$$XAK>>
	    STO$$C(A)			
	TO$$C(hH  f8.3 $$NEWVAL (CLA,A)NEWVAL h4M fx.7 $$NEWVAL (FDT,A)NEWVAL h5K@ g8.; $$NEWVAL (FLN,A)NEWVAL h68` gx.? $$NEWVAL (FSC,A)NEWVAL hm|@ hx.G $$NEWVAL (MOR,A)NEWVAL ht^ h8.C $$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@ ax./
	IFNB <bA>,<
		$$MAPADD b8(A,$$ADDR);	; WIbXLL REFERENCE THE bxBLOCK VIA $$ADDR
		SYN ST$$RT,$$Sc8ET
	>					
	IFBcX <A>,<SYN ST$$CTcx,$$SET>	
		$$CURdR (T,BID)
		$$CUd8RR (T,BLN)
		$$CdXURR (T,CLA)
		$$dxCURR (T,FDT)
		$e$CURR (T,FLN)
		e8$$CURR (T,FSC)
	eX	$$CURR (T,NEX)
ex		$$CURR (T,MOR)
	gURR (T,MOR)
	IFNDEF iX$$ADDR,<
		<$$SEixT(BID)>_^D18 ! <$j$SET(BLN)>
		<$$j8SET(FDT)>_^D18 ! jX<$$SET(CLA)>
		<jx$$SET(FLN)>_^D18 k! <$$SET(FDT)>
	k8	<$$SET(MOR)>^D1kX8 ! <$$SET(NEX)>
	>				;IFNDEF
	lIFDEF $$ADDR,<
	l8	$$SET(BID)
		$$lXSET(BLN)
		$$SETlx(FDT)
		$$SET(CLmA)
		$$SET(FLN)
		$$SET(FDT)
		mX$$SET(MOR)
		$$SmxET(NEX)
		PURGE n$$ADDR			;SO NEXTn8 C/R DECIS CORRECnXT
	>					;IFDEF
	>					;IFDEFE$$ZERO(A,TY$LNG)WERO(Ap x)$$NEWVAL (BKZ,A)NEWVAL (p$@ "x*$$NEWVAL (DAN,A)NEWVAL (p$k  x*$$NEWVAL (DFL,A)NEWVAL (p&L !8*$$NEWVAL (DTP,A)NEWVAL (p,M x)w$$NEWVAL (EDT,A)NEWVAL (p5I` !x*$$NEWVAL (FLG,A)NEWVAL (p>, @$
		IF1,<P@8RINTX	%"X$GRP" RM@XS-11 ONLY, IGNORED BY RMS-20>
	pD ;#]
		IF1,<P;8RINTX	%"X$HAL" RM;XS-11 ONLY, IGNORED BY RMS-20>
	pL@ "8*$$NEWVAL (IAN,A)NEWVAL (pLk  8*$$NEWVAL (IFL,A)NEWVAL (p]k  $8*#$$NEWVAL (KNM,A)NEWVAL (pd@ #8*$$NEWVAL (LAN,A)NEWVAL (pnJ :#U
		IF1,<P:8RINTX	%"X$MTH" RM:XS-11 ONLY, IGNORED BY RMS-20>
	pw8)s$$NEWVAL (NXT,A)NEWVAL (p~{@ ?#}
		IF1,<P?8RINTX	%"X$OWN" RM?XS-11 ONLY, IGNORED BY RMS-20>
	p|` $x*=

		$$NE%WARRVAL (PS0,A)
		$$NEWARRVAL (P%XS1,B)
		$$NEWAR%xRVAL (PS2,C)
		&$$NEWARRVAL (PS3,&8D)
		$$NEWARRVA&XL (PS4,E)
		$$N&xEWARRVAL (PS5,F)'
		$$NEWARRVAL ('8PS6,G)
		$$NEWA'XRRVAL (PS7,H)
	VAL (PS7,H)
	p)` <#e
		IF1,<P<8RINTX	%"X$PRG" RM<XS-11 ONLY, IGNORED BY RMS-20>
	p*@ =#m
		IF1,<P=8RINTX	%"X$PRJ" RM=XS-11 ONLY, IGNORED BY RMS-20>
	pY@ #x*$$NEWVAL (REF,A)NEWVAL (p+@ C$
		IF1,<PC8RINTX	%"X$SBN" RMCXS-11 ONLY, IGNORED BY RMS-20>
	p@ (*W

		$$NE(8WARRVAL (SZ0,A)
		$$NEWARRVAL (S(xZ1,B)
		$$NEWAR)RVAL (SZ2,C)
		)8$$NEWARRVAL (SZ3,)XD)
		$$NEWARRVA)xL (SZ4,E)
		$$N*EWARRVAL (SZ5,F)*8
		$$NEWARRVAL (*XSZ6,G)
		$$NEWA*xRRVAL (SZ7,H)
	VAL (SZ7,H)
	p` >#u
		IF1,<P>8RINTX	%"X$SYS" RM>XS-11 ONLY, IGNORED BY RMS-20>
	p5{ B$
		IF1,<PB8RINTX	%"X$VOL" RMBXS-11 ONLY, IGNORED BY RMS-20>
	p=I A$
		IF1,<PA8RINTX	%"X$WLD" RMAXS-11 ONLY, IGNORED BY RMS-20>
	pD.  D$%
		IF1,<PD8RINTX	%"X$XBY" RMDXS-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&-
Poq&.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 8(B,$$ADDR)	
		SXYN SX$$RT,$$SET
x	>					
	IFB <B>,<SYN SX$$CT,$$S8ET>	
						
		CX$$COD==XB$A		
	x	X$$BLN==XA$SXA		
						
		$$CU8RR (X,BLN)						
		$$CURR (X,BID)x
		$$CURR (X,RS1)
		$$CURR (X,NX8T)

						
		$X$CURR (X,CDT)
		x$$CURR (X,RDT)
		$$CURR (X,EDT)
8
						
		$$CURXR (X,RS2)
		$$CUxRR (X,AID)
		$$CURR (X,BKZ)

		8				
		$$CURR (XX,IFL)
		$$CURR (xX,DFL)
		$$CURR (X,DTP)
		$$CURR8 (X,FLG)
		$$CURXR (X,IAN)
		$$CUxRR (X,DAN)
		$$CURR (X,LAN)
		$$8CURR (X,REF)
		$X$CURR (X,KNM)
		x$$CURR (X,RX0)
		$$CURR (X,RX1)
8		$$CURR (X,RX2)
		$$CURR (X,RX3)x
		$$CURR (X,RX4)
		$$CURR (X,RX85)
		$$CURR (X,PXS0)
		$$CURR (X,xPS1)
		$$CURR (X,PS2)
		$$CURR (8X,PS3)
		$$CURR X(X,PS4)
		$$CURRx (X,PS5)
		$$CURR (X,PS6)
		$$CU8RR (X,PS7)
		$$CXURR (X,SZ0)
		$$xCURR (X,SZ1)
		$$CURR (X,SZ2)
		8$$CURR (X,SZ3)
	X	$$CURR (X,SZ4)
x		$$CURR (X,SZ5)
		$$CURR (X,SZ6)8
		$$CURR (X,SZ7X)
	
						
		$x$CURR (X,RS6)
		$$CURR (X,NOK)
	8	$$CURR (X,NOA)
X		$$CURR (X,RS7)
		$$CURR (X,RS8)
		$$CURR (X,RS98)

						
				X		;ONLY THE NXT FxIELD IS SETTABLE

	S SETTABLE,A
			$$NEW+XVAL(BLN,X$$BLN)  +x 
	IFNDEF $$ADDR,,<

		<$$SET(BI,8D)>_^D18 ! <$$SET,X(BLN)>
		<$$SET(,xCOD)>_^D18 ! <$$S-ET(NXT)>
		IFE <-8C$$COD-XB$DAT>,<
			<$$SET(CDT)>
			<$$SET(RDT)>
			<$$SET(EDT)>
		>
		IFE <C$$C.XOD-XB$ALL>,<
			.x<$$SET(AID)>_^D9 /! <$$SET(BKZ)>
	/8		EXP 0,0,0
		>
		IFE <C$$COD-XB/x$KEY>,<
			<$$SE0T(DTP)>_^D18 ! <$08$SET(FLG)>
			<$0X$SET(IAN)>_^D27 !0x <$$SET(DAN)>_^D118 ! <$$SET(LAN)>_18^D9 ! <$$SET(REF)1X>
			<$$SET(IFL)1x>_^D18 ! <$$SET(D2FL)>
			<$$SET(K28NM)>
			EXP 0,0,2X0,0,0
			<$$SET(2xPS0)>_^D18 ! <$$S3ET(SZ0)>
			<$$S38ET(PS1)>_^D18 ! <3X$$SET(SZ1)>
			<3x$$SET(PS2)>_^D18 4! <$$SET(SZ2)>
	48		<$$SET(PS3)>_^D4X18 ! <$$SET(SZ3)>4x
			<$$SET(PS4)>5_^D18 ! <$$SET(SZ584)>
			<$$SET(PS5X5)>_^D18 ! <$$SET5x(SZ5)>
			<$$SET6(PS6)>_^D18 ! <$$68SET(SZ6)>
			<$$6XSET(PS7)>_^D18 ! 6x<$$SET(SZ7)>
		>7
		IFE <C$$COD-X78B$SUM>,<
			<$$S7XET(NOK)>_^D9 ! <$7x$SET(NOA)>
			EX8P 0,0,0
		>

	88	IFE <C$$COD-XB$C8XFG>,<
			EXP 0,08x,0,0,0,0
		>

9	>
	IFDEF $$ADDR98,<
						
				;9X STORE COMMON HEA9xDER FOR ALL XAB T:YPES
		$$SET(BID:8)
		$$SET(RS1)
:X		$$SET(COD)
		$:x$SET(NXT)
				; ;STORE REST OF XAB;8 DEPENDING ON IT';XS TYPE
		IFE <C$;x$COD-XB$DAT>,<
	<	$$SET(BLN)
		$$<8SET(CDT)
		$$SET<X(RDT)
		$$SET(ED<xT)
		>

		IFE =<C$$COD-XB$ALL>,<=8
		$$SET(BLN)
	=X	$$SET(RS2)
		$$=xSET(AID)
		$$SET>(BKZ)
		>

		I>8FE <C$$COD-XB$KEY>X>,<
		$$SET(BLN)>x
		$$SET(IFL)
	?	$$SET(DFL)
		$$?8SET(DTP)
		$$SET?X(FLG)
		$$SET(IA?xN)
		$$SET(DAN)
		$$SET(LAN)
		@8$$SET(REF)
		$$S@XET(KNM)
		$$SET(@xRX0)
		$$SET(RX1A)
		$$SET(RX2)
A8		$$SET(RX3)
		$AX$SET(RX4)
		$$SEAxT(RX5)

		$$SETB(PS0)
		$$SET(PSB81)
		$$SET(PS2)
		$$SET(PS3)
		Bx$$SET(PS4)
		$$SCET(PS5)
		$$SET(C8PS6)
		$$SET(PS7CX)

		$$SET(SZ0)Cx
		$$SET(SZ1)
	D	$$SET(SZ2)
		$$D8SET(SZ3)
		$$SETDX(SZ4)
		$$SET(SZDx5)
		$$SET(SZ6)
		$$SET(SZ7)
		E8>

		IFE <C$$COEXD-XB$SUM>,<
		$$ExSET(BLN)
		$$SETF(RS6)
		$$SET(NOF8K)
		$$SET(NOA)
		$$SET(RS7)
		Fx$$SET(RS8)
		$$SGET(RS9)
		>
		IG8FE <C$$COD-XB$CFGGX>,<
		$$SET(BLN)Gx
		>
		PURGE $$HADDR			
	>					
				
	>					 p/ $$ZERO(Ap8,%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&
WP(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`$4P q`$6P q`%X<P q`%k`P q`%t(P q`%t(P q`%t)P q`%t)P q`%t*P q`%t*P q`%t+P q`%t+P q`%t,P 	q`%t,P 	q`%tHP 
q`%tHP 
q`%tIP q`%xwP q`%xzP q`%yHP q`%yHP q`%yIP q`%yIP q`%yJP q`%yJP q`%yKP q`%yKP q`%yLP q`%yLP q`%z2P q`%{P q`%|zP q`%|{P q`&P q`& P q`&(P q`&(P q`&)P q`&)P q`&*P q`&*P q`&+P q`&+P q`&,P 	q`&,P 	q`&@P q`&HP 
q`&HP 
q`&IP q`&IP q`&JP 
q`&JP 
q`&KP q`&`P q`&hP q`&hP q`&iP q`&iP q`&jP q`&jP q`&P q`& P q`&@P q`&`P q`&P q`& P q`&wP 	q`&zP q`&
2P 	q`&P 	q`&P q`&
@P q`&
zP 	q`&
{P q`&4P q`&4 P q`&4(P q`&4(P q`&4)P q`&4)P q`&4*P q`&4*P q`&4+P q`&4+P q`&4,P 	q`&4,P 	q`&4@P q`&4HP 
q`&4HP 
q`&4IP q`&4IP q`&4JP 
q`&4JP 
q`&4KP q`&4LP q`&4`P q`&4hP q`&4hP q`&4iP q`&4iP q`&4jP q`&4jP q`&4kP q`&5P q`&5 P q`&5@P q`&5`P q`&6P q`&6 P q`&8wP q`&8zP q`&:P 	q`&:2P 	q`&;P 	q`&<zP 	q`&<{P 	q`&=`P q`'9P $0  cASCIZ\

8	COPYRIGHT (C) DIXGITAL EQUIPMENT CxORPORATION 1979, 
1986.
	ALL RIGHT
8S RESERVED.

\ RESERVED.

\<z 
x u
	IFNBI<A-B,<PR
	IFNB <C>,<IFG A-C,<PRIN8TX ?A HAS A VALUXE WHICH IS TOO HIGH>>
IS TOO HIy *"S
	C=A+*8B		
	B==B+1			

	B==B+1			\Y .X"uPURGE C$$BPURGE C$$-i /yD(9P 4P 4*2P 4*yP 4+P 4+P 4,}P 4=P 4I;P 4\Y (X"G
	$$CODE((x.EXBAS,.EXCTR,A,B)
.EXCTR,A,4h1P 4kPP 4kxP 4l}P 56 X!
IF1,<
	$$AB==C$D
	F$$B==<XX$G>B58 ! <XX$F>B11 ! XXX$E	
  >	;END OF IF1
>	;END O5TP 5)WP 5+VP 5\WP 5\YP 5h6P 5|SP 6(:P 6)HP 6)IP 6)JP 6)VP 69P 6:P 6=P 6=P 6N8P 71P LwP LP L)WP L*2P L+P L+P L+P L+7P LJ9P LKP LkP MUP MYP MvP MzP MP MPP MSP MWP MXP MSP MyP MPP MSP MWP MYP MtP M8YP M9P MXYP N;v }x/w
	T$$PS==~F$$A_-^D30		
	T~8$$SZ==<F$$A_-^D2~X4> & 77	
	T$$OF=~x=F$$A & 777777	
$AP& 777777	P \+P \HUP \IVP ]
}P ]UP ]P ]VP ]8]P ]9P ]9P ]9SP ]:0P ]:yP ];\P ]<qP ]<{P ]I;P ][YP ^+wP l /"yDEFINE B<A>DEFINE B<l )8"MA$MAX==.)XABASE + .ACTR - 1SE + .ACTR - t*2P t+P t:P tLPP tLVP tMPP tMVP t\pP t\vP t\yP t]p 9#M
	IFNB <9XB>,<C$$A==B>
>,<C$$A==B>
t]{ /x"
	DEFINE C$$A<B>		
E tkQP uiP uiP uk0P uk6P ukxP v+P v,pP v,vP v,yP vLP vLP vlPP vlVP vxqP vxzP v{\P *2P *zP +P =P [P h1P tP 8SP <SP <}P LwP XSP 2P (1P (SP )PP +xP ,HP ,IP ,IP ,JP ,}P =P =P XSP \}P )P )RP )WP )WP )XP )ZP )]P *2P *pP *qP *rP *sP *wP *yP +P +P .1P kP lzP \P 
}P <WP lXP |P 9P 9SP :qP :yP <SP <YP X` '";
	$$CODE('8.SUBAS,.SUCTR,A,B)
.SUCTR,A,V 8!/
	FB$ALL=X=FB$GET+FB$PUT+FBx$DEL+FB$UPD+FB$TRN

	
	$$ASSUME8(FB$SEQ,0)		;FILEX ORG MUST BE GTR xZERO
	$$ASSUME(RB$SEQ,0,0)		;RECO8RD ACCESS MUST STXART AT ZERO
	$$AxSSUME(XB$KEY,0,0)		;KEY XAB MUST B8E FIRST
	$$ASSUMXE(XB$STG,0,0)		;SxTRING DATA-TYPE SHOULD BE ZERO
$*2P $+P $;P $iP $kP $lqP %[yP %i<P ,\Y 'x"A
	$$CODE((.ERBAS,.ERCTR,A,B)
.ERCTR,A,4[R $8"5			
  IF2$X,<
	C$MAX==XX$MA$xX		
	JS$MIN==100%0
	JS$MAX==1000+%8XX$MAX
	OPDEF	RM%X$MIN [104B8+1000]%x	;MINIMUM JSYS  V&ALUE
	OPDEF	RM$M&8AX [104B8+1000+XX&X$MAX]
  >				
MAX]
  >				
4\Q x"		
    C$A==XX$MAX		
   8 DEFINE $%A(A)<X	
      IFE <RMSx$DJ+RMS$DY>,<						;a506
       I8FN TOP$10,<PUSHJ X17,RMS$10##+C$A>x	
       IFN TOP$20,<104B8+1000+C8$A>	
     >				X					;a506
     xIFN RMS$DY,<PUSHJ 17,@$$A##>		
 8    IFN RMS$DJ,<PXUSHJ 17,%$A##>		x
    >

    DEFINE $A(.BLK1,.E8RRAD,.BLK2),<
	IXFB <.BLK1>,<IF1,<xPRINTX %ARGBLK ADDRESS OMITTED ON 8A MACRO>>
	XMOVXEI	1, .BLK1
	IFIxDN <A><RENAME>,<					       
	IF8B <.BLK2>,<IF1,<PXRINTX %NEWFAB ADDxRESS OMITTED ON RENAME MACRO>>
	X8MOVEI 2, .BLK2>
X	IFDIF <A><RENAMxE>,<
	IFNB <.BLK 2>,<IF1,<PRINTX % 8MORE THAN 2 ARGS  XDETECTED IN A MA xCRO>>>
	$%A			
	IFE <RMS$DY+RMS!8$DJ>,<
		IFNB <.!XERRAD>,<JUMP 17,.!xERRAD>
		IFB <.E"RRAD>,<JUMP 16,.+"81>	>  
	IFN <RMS"X$DY+RMS$DJ>,< IFN"xB <.ERRAD>,<
		C#AIL 2,300000			  #8 
		 PUSHJ 17,.E#XRRAD 		>> 
	
  #x  >
  XX$MAX==XX$MAX+1		
X==XX5T 8!;			
	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 FyP F
hP F
hP F
iP F
iP F
jP F
jP F
kP F
kP 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 qx/
	SETZM	rA			
	MOVEI	2,Ar8			
	MOVEI	1,1(2rX)			
	HRLI	1,A	rx		
	BLT	1,B-1(2)		
T	1,B-1(2Ky p1A	
      IFE <RMS$DJ+RMS$DY0>,<						;a506
 P      IFN TOP$10,p<PUSHJ 17,RMS$10##+C$CLOSE>	
    0   IFN TOP$20,<10P4B8+1000+C$CLOSE>p	
     >									;a506
     IFN 0RMS$DY,<PUSHJ 17,P@$$CLOSE##>		
  p   IFN RMS$DJ,<PUSHJ 17,%$CLOSE##>		
    LOSE##>{W b06/	
      IbPFE <RMS$DJ+RMS$DYbp>,<						;a506
 c      IFN TOP$10,c0<PUSHJ 17,RMS$10#cP#+C$CONNECT>	
  cp     IFN TOP$20,<d104B8+1000+C$CONNd0ECT>	
     >				dP					;a506
     dpIFN RMS$DY,<PUSHJe 17,@$$CONNECT##>e0		
     IFN RMS$ePDJ,<PUSHJ 17,%$COepNNECT##>		
    NECT##>		
    )0 mp7g	
      IypFE <RMS$DJ+RMS$DYz>,<						;a506
 z0      IFN TOP$10,zP<PUSHJ 17,RMS$10#zp#+C$CREATE>	
   {    IFN TOP$20,<1{004B8+1000+C$CREAT{PE>	
     >						{p			;a506
|P  IF|N RMS$DY,<PUSHJ 1|07,@$$CREATE##>		
     IFN RMS$DJ,|p<PUSHJ 17,%$CREATE##>		
    EAT$XZ P8?	
      IpFE <RMS$DJ+RMS$DY>,<						;a506
 0      IFN TOP$10,P<PUSHJ 17,RMS$10#p#+C$DEBUG>	
       IFN TOP$20,<1004B8+1000+C$DEBUG>P	
     >								p	;a506
     IFN RMS$DY,<PUSHJ 17,0@$$DEBUG##>		
  P   IFN RMS$DJ,<PUpSHJ 17,%$DEBUG##>		
    EBUG##>$[ @p4!	
      IAFE <RMS$DJ+RMS$DYA0>,<						;a506
 AP      IFN TOP$10,Ap<PUSHJ 17,RMS$10#B#+C$DELETE>	
   B0    IFN TOP$20,<1BP04B8+1000+C$DELETBpE>	
     >						C			;a506
Cp  IFC0N RMS$DY,<PUSHJ 1CP7,@$$DELETE##>		
     IFN RMS$DJ,D<PUSHJ 17,%$DELETE##>		
LET%q n7
      In0FE <RMS$DJ+RMS$DYnP>,<						;a506
np      IFN TOP$10,o<PUSHJ 17,RMS$10#o0#+C$DISCONNECT>	
       IFN TOP$2op0,<104B8+1000+C$DpISCONNECT>	
pP p0 >									;a506
     IFN RMS$DY,pp<PUSHJ 17,@$$DISCqONNECT##>		
    q0 IFN RMS$DJ,<PUSHqPJ 17,%$DISCONNECT##>		
    NECT%x 1P<	
      I=0FE <RMS$DJ+RMS$DY=P>,<						;a506
 =p      IFN TOP$10,><PUSHJ 17,RMS$10#>0#+C$DISPLAY>	
  >P     IFN TOP$20,<>p104B8+1000+C$DISP?LAY>	
     >				?0					;a506
     ?PIFN RMS$DY,<PUSHJ?p 17,@$$DISPLAY##>@		
     IFN RMS$@0DJ,<PUSHJ 17,%$DI@PSPLAY##>		
    PLAY##>		
    -m APD'	
      IApFE <RMS$DJ+RMS$DYB>,<						;a506
 B0      IFN TOP$10,BP<PUSHJ 17,RMS$10#Bp#+C$ENTER>	
    C   IFN TOP$20,<10C04B8+1000+C$ENTER>CP	
     >								Cp	;a506
     IFN DRMS$DY,<PUSHJ 17,D0@$$ENTER##>		
  DP   IFN RMS$DJ,<PUDpSHJ 17,%$ENTER##>		
    NTER##>.(9 HP<_	
      IHpFE <RMS$DJ+RMS$DYI>,<						;a506
 I0      IFN TOP$10,IP<PUSHJ 17,RMS$10#Ip#+C$ERASE>	
    J   IFN TOP$20,<10J04B8+1000+C$ERASE>JP	
     >								Jp	;a506
     IFN KRMS$DY,<PUSHJ 17,K0@$$ERASE##>		
  KP   IFN RMS$DJ,<PUKpSHJ 17,%$ERASE##>		
 RASE##>/	
      ILpFE <RMS$DJ+RMS$DYM>,<						;a506
 M0      IFN TOP$10,MP<PUSHJ 17,RMS$10#Mp#+C$EXTEND>	
   N    IFN TOP$20,<1N004B8+1000+C$EXTENNPD>	
     >						Np			;a506
OP  IFON RMS$DY,<PUSHJ 1O07,@$$EXTEND##>		
     IFN RMS$DJ,Op<PUSHJ 17,%$EXTEND##>		
    TEN5R Kp4y	
      ILFE <RMS$DJ+RMS$DYL0>,<						;a506
 LP      IFN TOP$10,Lp<PUSHJ 17,RMS$10#M#+C$FIND>	
Mp  M0  IFN TOP$20,<104MPB8+1000+C$FIND>	
     >									;Na506
     IFN RMN0S$DY,<PUSHJ 17,@$NP$FIND##>		
     NpIFN RMS$DJ,<PUSHJO 17,%$FIND##>		
    FIND##>		
5M9 9s	
      I0FE <RMS$DJ+RMS$DYP>,<						;a506
 p      IFN TOP$10,<PUSHJ 17,RMS$10#0#+C$FLUSH>	
    P   IFN TOP$20,<10p4B8+1000+C$FLUSH>	
     >								0	;a506
     IFN PRMS$DY,<PUSHJ 17,p@$$FLUSH##>		
     IFN RMS$DJ,<PU0SHJ 17,%$FLUSH##>		
    LUSH##>6)2 SP=7	
      ISpFE <RMS$DJ+RMS$DYT>,<						;a506
 T0      IFN TOP$10,TP<PUSHJ 17,RMS$10#Tp#+C$FREE>	
UP  U  IFN TOP$20,<104U0B8+1000+C$FREE>	
     >									;Upa506
     IFN RMVS$DY,<PUSHJ 17,@$V0$FREE##>		
     VPIFN RMS$DJ,<PUSHJVp 17,%$FREE##>		
    FREE##>		
<] p2	
      I FE <RMS$DJ+RMS$DY 0>,<						;a506
  P      IFN TOP$10, p<PUSHJ 17,RMS$10#!#+C$GET>	
      !0 IFN TOP$20,<104B!P8+1000+C$GET>	
 !p    >									;a5"06
     IFN RMS$"0DY,<PUSHJ 17,@$$G"PET##>		
     IFN"p RMS$DJ,<PUSHJ 17#,%$GET##>		
    $GET##>		
    l\y &:M	
      I&0FE <RMS$DJ+RMS$DY&P>,<						;a506
 &p      IFN TOP$10,'<PUSHJ 17,RMS$10#'0#+C$MESSAGE>	
  'P     IFN TOP$20,<'p104B8+1000+C$MESS(AGE>	
     >				(0					;a506
     (PIFN RMS$DY,<PUSHJ(p 17,@$$MESSAGE##>)		
     IFN RMS$)0DJ,<PUSHJ 17,%$ME)PSSAGE##>		
    SAGE##>		
    u{2 1p;+	
      I2FE <RMS$DJ+RMS$DY20>,<						;a506
 2P      IFN TOP$10,2p<PUSHJ 17,RMS$10#3#+C$NOMESSAGE>	
30       IFN TOP$203P,<104B8+1000+C$NO3pMESSAGE>	
     >4									;a506
 40    IFN RMS$DY,<P4PUSHJ 17,@$$NOMESS4pAGE##>		
     IF5N RMS$DJ,<PUSHJ 1507,%$NOMESSAGE##>		
 SAGE##>	w
      IipFE <RMS$DJ+RMS$DYj>,<						;a506
 j0      IFN TOP$10,jP<PUSHJ 17,RMS$10#jp#+C$NXTVOL>	
   k    IFN TOP$20,<1k004B8+1000+C$NXTVOkPL>	
     >						kp			;a506
lP  IFlN RMS$DY,<PUSHJ 1l07,@$$NXTVOL##>		
     IFN RMS$DJ,lp<PUSHJ 17,%$NXTVOL##>		
    TVO~	7 x0i	
      IFE <RMS$DJ+RMS$DYX>,<						;a506
 8      IFN TOP$10,<PUSHJ 17,RMS$10#X#+C$OPEN>	
p  x  IFN TOP$20,<104B8+1000+C$OPEN>	
     >									;
a506
     IFN RM
0S$DY,<PUSHJ 17,@$
P$OPEN##>		
     
pIFN,RMS$DJ,<PUSHJ
    OPEN##>		
Y +PBw	
      I+pFE <RMS$DJ+RMS$DY,>,<						;a506
 ,0      IFN TOP$10,,P<PUSHJ 17,RMS$10#,p#+C$PARSE>	
    -   IFN TOP$20,<10-04B8+1000+C$PARSE>-P	
     >								-p	;a506
     IFN .RMS$DY,<PUSHJ 17,.0@$$PARSE##>		
  .P   IFN RMS$DJ,<PU.pSHJ 17,%$PARSE##>		
    ARSE##>] *p2q	
      I+FE <RMS$DJ+RMS$DY+0>,<						;a506
 +P      IFN TOP$10,+p<PUSHJ 17,RMS$10#,#+C$PUT>	
      ,0 IFN TOP$20,<104B,P8+1000+C$PUT>	
 ,p    >									;a5-06
     IFN RMS$-0DY,<PUSHJ 17,@$$P-PUT##>		
     IFN-p RMS$DJ,<PUSHJ 17.,%$PUT##>		
    $PUT##>		
    X2 
P@o	
      I
pFE <RMS$DJ+RMS$DY>,<						;a506
 0      IFN TOP$10,P<PUSHJ 17,RMS$10#p#+C$READ>	
     
  IFN TOP$20,<104
0B8+1000+C$READ>	
P
     >									;
pa506
S$DYIFNURM 17,@$
PIFN,MS$DJ,<PUSHJ
    READ##>		
[ P9	
      IpFE <RMS$DJ+RMS$DY>,<						;a506
 0      IFN TOP$10,P<PUSHJ 17,RMS$10#p#+C$RELEASE>	
       IFN TOP$20,<0104B8+1000+C$RELEPASE>	
     >				p					;a506
     IFN RMS$DY,<PUSHJ0 17,@$$RELEASE##>P		
     IFN RMS$pDJ,<PUSHJ 17,%$RELEASE##>		
    EASE##>		
    [7 WPEW	
      IWpFE <RMS$DJ+RMS$DYX>,<						;a506
 X0      IFN TOP$10,XP<PUSHJ 17,RMS$10#Xp#+C$REMOVE>	
   Y    IFN TOP$20,<1Y004B8+1000+C$REMOVYPE>	
     >						Yp			;a506
ZP  IFZN RMS$DY,<PUSHJ 1Z07,@$$REMOVE##>		
     IFN RMS$DJ,Zp<PUSHJ 17,%$REMOVE##>		
    MOV[P bPF/	
      IbpFE <RMS$DJ+RMS$DYc>,<						;a506
 c0      IFN TOP$10,cP<PUSHJ 17,RMS$10#cp#+C$RENAME>	
   d    IFN TOP$20,<1d004B8+1000+C$RENAMdPE>	
     >						dp			;a506
eP  IFeN RMS$DY,<PUSHJ 1e07,@$$RENAME##>		
     IFN RMS$DJ,ep<PUSHJ 17,%$RENAME##>		
    NAM]t tP??	
      ItpFE <RMS$DJ+RMS$DYu>,<						;a506
 u0      IFN TOP$10,uP<PUSHJ 17,RMS$10#up#+C$REWIND>	
   v    IFN TOP$20,<1v004B8+1000+C$REWINvPD>	
     >						vp			;a506
wP  IFwN RMS$DY,<PUSHJ 1w07,@$$REWIND##>		
     IFN RMS$DJ,wp<PUSHJ 17,%$REWIND##>		
    WINX9 6PCO	
      I6pFE <RMS$DJ+RMS$DY7>,<						;a506
 70      IFN TOP$10,7P<PUSHJ 17,RMS$10#7p#+C$SEARCH>	
   8    IFN TOP$20,<18004B8+1000+C$SEARC8PH>	
     >						8p			;a506
9P  IF9N RMS$DY,<PUSHJ 1907,@$$SEARCH##>		
     IFN RMS$DJ,9p<PUSHJ 17,%$SEARCH##>		
    ARC1 PAG	
      IpFE <RMS$DJ+RMS$DY>,<						;a506
 0      IFN TOP$10,P<PUSHJ 17,RMS$10#p#+C$SPACE>	
       IFN TOP$20,<1004B8+1000+C$SPACE>P	
     >								p	;a506
     IFN RMS$DY,<PUSHJ 17,0@$$SPACE##>		
  P   IFN RMS$DJ,<PUpSHJ 17,%$SPACE##>		
    PACE##>&-7 Vp5S	
      IWFE <RMS$DJ+RMS$DYW0>,<						;a506
 WP      IFN TOP$10,Wp<PUSHJ 17,RMS$10#X#+C$TRUNCATE>	
 X0      IFN TOP$20,XP<104B8+1000+C$TRUXpNCATE>	
     >		Y							;a506
   Y0  IFN RMS$DY,<PUSYPHJ 17,@$$TRUNCATEYp##>		
     IFN RZMS$DJ,<PUSHJ 17,%Z0$TRUNCATE##>		
    CATE##>		
 .	 5p3I	
      I6FE <RMS$DJ+RMS$DY60>,<						;a506
 6P      IFN TOP$10,6p<PUSHJ 17,RMS$10#7#+C$UPDATE>	
   70    IFN TOP$20,<17P04B8+1000+C$UPDAT7pE>	
     >						8			;a506
8p  IF80N RMS$DY,<PUSHJ 18P7,@$$UPDATE##>		
     IFN RMS$DJ,9<PUSHJ 17,%$UPDATE##>		
    DAT.K ^P>	
      I^pFE <RMS$DJ+RMS$DY_>,<						;a506
 _0      IFN TOP$10,_P<PUSHJ 17,RMS$10#_p#+C$UTLINT>	
   `    IFN TOP$20,<1`004B8+1000+C$UTLIN`PT>	
     >						`p			;a506
aP  IFaN RMS$DY,<PUSHJ 1a07,@$$UTLINT##>		
     IFN RMS$DJ,ap<PUSHJ 17,%$UTLINT##>		
    LIN<: P@	
      IpFE <RMS$DJ+RMS$DY>,<						;a506
 0      IFN TOP$10,P<PUSHJ 17,RMS$10#p#+C$WAIT>	
P    IFN TOP$20,<1040B8+1000+C$WAIT>	
     >									;pa506
     IFN RMS$DY,<PUSHJ 17,@$0$WAIT##>		
     PIFN RMS$DJ,<PUSHJp 17,%$WAIT##>		
    WAIT##>		
>*:  PB	
      I pFE <RMS$DJ+RMS$DY!>,<						;a506
 !0      IFN TOP$10,!P<PUSHJ 17,RMS$10#!p#+C$WRITE>	
    "   IFN TOP$20,<10"04B8+1000+C$WRITE>"P	
     >								"p	;a506
     IFN #RMS$DY,<PUSHJ 17,#0@$$WRITE##>		
  #P   IFN RMS$DJ,<PU#pSHJ 17,%$WRITE##>		
    RITE##>	e|r P1{
	IFB <Ap>,<IF1,<PRINTX %ARGBLK ADDRESS OMI0TTED ON CLOSE MACPRO>>
	XMOVEI	1, pA
	IFIDN <CLOSE><RENAME>,<					 0      
	IFB <C>P,<IF1,<PRINTX %NEpWFAB ADDRESS OMITTED ON RENAME MAC0RO>>
	XMOVEI 2, PC>
	IFDIF <CLOSpE><RENAME>,<
	IFNB <C>,<IF1,<PRI0NTX %MORE THAN 2 PARGS DETECTED IN pCLOSE MACRO>>>
	$%CLOSE			
	IFE 0<RMS$DY+RMS$DJ>,<P
		IFNB <B>,<JUpMP 17,B>
		IFB <B>,<JUMP 16,.+10>	>  
	IFN <RMS$PDY+RMS$DJ>,< IFNBp <B>,<
		CAIL 2,300000			   
		0 PUSHJ 17,B 		>> 
	
     		>>	}kR f06k
	IFB <AfP>,<IF1,<PRINTX %AfpRGBLK ADDRESS OMIgTTED ON CONNECT Mg0ACRO>>
	XMOVEI	1gP, A
	IFIDN <CONgpNECT><RENAME>,<		h			       
	IFB h0<C>,<IF1,<PRINTXhP %NEWFAB ADDRESS hpOMITTED ON RENAMEi MACRO>>
	XMOVEIi0 2, C>
	IFDIF <iPCONNECT><RENAME>,ip<
	IFNB <C>,<IFj1,<PRINTX %MORE Tj0HAN 2 ARGS DETECTjPED IN CONNECT MACjpRO>>>
	$%CONNECTk			
	IFE <RMS$DYk0+RMS$DJ>,<
		IFNkPB <B>,<JUMP 17,kpB>
		IFB <B>,<JlUMP 16,.+1>	>  
l0	IFN <RMS$DY+RMS$lPDJ>,< IFNB <B>,<lp
		CAIL 2,300000m			   
		 PUSHJ m017,B 		>> 
	
     		>> 
	
 	X: }08!
	IFB <A}P>,<IF1,<PRINTX %A}pRGBLK ADDRESS OMI~TTED ON CREATE MA~0CRO>>
	XMOVEI	1,~P A
	IFIDN <CREA~pTE><RENAME>,<					       
	IFB <0C>,<IF1,<PRINTX %PNEWFAB ADDRESS OMpITTED ON RENAME MACRO>>
	XMOVEI 20, C>
	IFDIF <CRPEATE><RENAME>,<
p	IFNB <C>,<IF1,<PRINTX %MORE THAN0 2 ARGS DETECTED PIN CREATE MACRO>>p>
	$%CREATE			
	IFE <RMS$DY+RMS$0DJ>,<
		IFNB <BP>,<JUMP 17,B>
	p	IFB <B>,<JUMP 16,.+1>	>  
	IFN 0<RMS$DY+RMS$DJ>,<P IFNB <B>,<
		CpAIL 2,300000			   
		 PUSHJ 17,B 		>> 
	
    	,-3 08y
	IFB <AP>,<IF1,<PRINTX %ApRGBLK ADDRESS OMI	TTED ON DEBUG MAC	0RO>>
	XMOVEI	1, 	PA
	IFIDN <DEBUG	p><RENAME>,<					 
      
	IFB <C>
0,<IF1,<PRINTX %NE
PWFAB ADDRESS OMIT
pTED ON RENAME MACRO>>
	XMOVEI 2, 0C>
	IFDIF <DEBUPG><RENAME>,<
	IFpNB <C>,<IF1,<PRI
NTX %MORE THAN 2 
0ARGS DETECTED IN 
PDEBUG MACRO>>>
	
p$%DEBUG			
	IFESDY+RMS$DJ>,<
		IFNB,<B>,<JU
		IFB,JUMP 16,.+1>	>  
	IFN <RMS$0DY+RMS$DJ>,< IFNBP <B>,<
		CAIL 2p,300000			   
		 PUSHJ 17,B 		>> 
	
     		>>	-I: DP4[
	IFB <ADp>,<IF1,<PRINTX %AERGBLK ADDRESS OMIE0TTED ON DELETE MAEPCRO>>
	XMOVEI	1,Ep A
	IFIDN <DELEFTE><RENAME>,<				F0	       
	IFB <FPC>,<IF1,<PRINTX %FpNEWFAB ADDRESS OMGITTED ON RENAME MG0ACRO>>
	XMOVEI 2GP, C>
	IFDIF <DEGpLETE><RENAME>,<
H	IFNB <C>,<IF1,<H0PRINTX %MORE THANHP 2 ARGS DETECTED HpIN DELETE MACRO>>I>
	$%DELETE			
I0	IFE <RMS$DY+RMS$IPDJ>,<
		IFNB <BIp>,<JUMP 17,B>
	J	IFB <B>,<JUMP 1J06,.+1>	>  
	IFN JP<RMS$DY+RMS$DJ>,<Jp IFNB <B>,<
		CKAIL 2,300000			  K0 
		 PUSHJ 17,B 		>> 
	
    	N8w r7K
	IFB <Ar0>,<IF1,<PRINTX %ArPRGBLK ADDRESS OMIrpTTED ON DISCONNECsT MACRO>>
	XMOVEs0I	1, A
	IFIDN <sPDISCONNECT><RENAMspE>,<					       
	IFB <C>,<IF1,<t0PRINTX %NEWFAB ADtPDRESS OMITTED ON tpRENAME MACRO>>
	uXMOVEI 2, C>
	Iu0FDIF <DISCONNECT>uP<RENAME>,<
	IFNBup <C>,<IF1,<PRINTvX %MORE THAN 2 ARv0GS DETECTED IN DIvPSCONNECT MACRO>>>vp
	$%DISCONNECT		w	
	IFE <RMS$DY+Rw0MS$DJ>,<
		IFNB wP<B>,<JUMP 17,B>wp
		IFB <B>,<JUMxP 16,.+1>	>  
	Ix0FN <RMS$DY+RMS$DJxP>,< IFNB <B>,<
xp		CAIL 2,300000		y	   
		 PUSHJ 17y0,B 		>> 
	
     		>> 
	
   	N< A<A
	IFB <AA0>,<IF1,<PRINTX %AAPRGBLK ADDRESS OMIApTTED ON DISPLAY MBACRO>>
	XMOVEI	1B0, A
	IFIDN <DISBPPLAY><RENAME>,<		Bp			       
	IFB C<C>,<IF1,<PRINTXC0 %NEWFAB ADDRESS CPOMITTED ON RENAMECp MACRO>>
	XMOVEID 2, C>
	IFDIF <D0DISPLAY><RENAME>,DP<
	IFNB <C>,<IFDp1,<PRINTX %MORE TEHAN 2 ARGS DETECTE0ED IN DISPLAY MACEPRO>>>
	$%DISPLAYEp			
	IFE <RMS$DYF+RMS$DJ>,<
		IFNF0B <B>,<JUMP 17,FPB>
		IFB <B>,<JFpUMP 16,.+1>	>  
G	IFN <RMS$DY+RMS$G0DJ>,< IFNB <B>,<GP
		CAIL 2,300000Gp			   
		 PUSHJ H17,B 		>> 
	
     		>> 
	
 	vI9 E0Da
	IFB <AEP>,<IF1,<PRINTX %AEpRGBLK ADDRESS OMIFTTED ON ENTER MACF0RO>>
	XMOVEI	1, FPA
	IFIDN <ENTERFp><RENAME>,<					 G      
	IFB <C>G0,<IF1,<PRINTX %NEGPWFAB ADDRESS OMITGpTED ON RENAME MACHRO>>
	XMOVEI 2, H0C>
	IFDIF <ENTEHPR><RENAME>,<
	IFHpNB <C>,<IF1,<PRIINTX %MORE THAN 2 I0ARGS DETECTED IN IPENTER MACRO>>>
	Ip$%ENTER			
	IFE J<RMS$DY+RMS$DJ>,<J0
		IFNB <B>,<JUJPMP 17,B>
		IFB Jp<B>,<JUMP 16,.+1K>	>  
	IFN <RMS$K0DY+RMS$DJ>,< IFNBKP <B>,<
		CAIL 2Kp,300000			   
		L PUSHJ 17,B 		>> 
	
     		>>	r L0=
	IFB <ALP>,<IF1,<PRINTX %ALpRGBLK ADDRESS OMIMTTED ON ERASE MACM0RO>>
	XMOVEI	1, MPA
	IFIDN <ERASEMp><RENAME>,<					 N      
	IFB <C>N0,<IF1,<PRINTX %NENPWFAB ADDRESS OMITNpTED ON RENAME MACORO>>
	XMOVEI 2, O0C>
	IFDIF <ERASOPE><RENAME>,<
	IFOpNB <C>,<IF1,<PRIPNTX %MORE THAN 2 P0ARGS DETECTED IN PPERASE MACRO>>>
	Pp$%ERASE			
	IFE Q<RMS$DY+RMS$DJ>,<Q0
		IFNB <B>,<JUQPMP 17,B>
		IFB Qp<B>,<JUMP 16,.+1R>	>  
	IFN <RMS$R0DY+RMS$DJ>,< IFNBRP <B>,<
		CAIL 2Rp,300000			   
		S PUSHJ 17,B 		>> 
	
     		>>	FI7 P0E9
	IFB <APP>,<IF1,<PRINTX %APpRGBLK ADDRESS OMIQTTED ON EXTEND MAQ0CRO>>
	XMOVEI	1,QP A
	IFIDN <EXTEQpND><RENAME>,<				R	       
	IFB <R0C>,<IF1,<PRINTX %RPNEWFAB ADDRESS OMRpITTED ON RENAME MSACRO>>
	XMOVEI 2S0, C>
	IFDIF <EXSPTEND><RENAME>,<
Sp	IFNB <C>,<IF1,<TPRINTX %MORE THANT0 2 ARGS DETECTED TPIN EXTEND MACRO>>Tp>
	$%EXTEND			
U	IFE <RMS$DY+RMS$U0DJ>,<
		IFNB <BUP>,<JUMP 17,B>
	Up	IFB <B>,<JUMP 1V6,.+1>	>  
	IFN V0<RMS$DY+RMS$DJ>,<VP IFNB <B>,<
		CVpAIL 2,300000			  W 
		 PUSHJ 17,B 		>> 
	
    	.Ht t/C
	$$ISOL(t8B)			
	IFE <T$$tXSZ-^D18>,<		
	utx  IFE T$$PS,<			
		HRRZ A,T$$OF+u8C
		T$$SZ==0		
	    >
	    IFEux <T$$PS-^D18>,<		v
		HLRZ A,T$$OFv8+C
		T$$SZ==0		vX
	    >
	>
	IFvxE <T$$SZ-^D36>,<	w	
		MOVE A,T$$Ow8F+C
		T$$SZ==0	wX	
	>
	IFN T$$SZwx,<			
		LDB A,[x<T$$PS>B5 ! <T$$Sx8Z>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ sX/[F$$A+B][F$$A+B]	Mi OP53
	IFB <AOp>,<IF1,<PRINTX %APRGBLK ADDRESS OMIP0TTED ON FIND MACRPPO>>
	XMOVEI	1, PpA
	IFIDN <FIND><QRENAME>,<					   Q0    
	IFB <C>,<QPIF1,<PRINTX %NEWFQpAB ADDRESS OMITTERD ON RENAME MACROR0>>
	XMOVEI 2, CRP>
	IFDIF <FIND><RpRENAME>,<
	IFNB S<C>,<IF1,<PRINTXS0 %MORE THAN 2 ARGSPS DETECTED IN FINSpD MACRO>>>
	$%FITND			
	IFE <RMS$T0DY+RMS$DJ>,<
		ITPFNB <B>,<JUMP 17Tp,B>
		IFB <B>,U<JUMP 16,.+1>	>  U0
	IFN <RMS$DY+RMUPS$DJ>,< IFNB <B>Up,<
		CAIL 2,3000V00			   
		 PUSHV0J 17,B 		>> 
	
     		>> 
	f\t p:-
	IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPTTED ON FLUSH MACpRO>>
	XMOVEI	1,  A
	IFIDN <FLUSH 0><RENAME>,<					  P      
	IFB <C> p,<IF1,<PRINTX %NE!WFAB ADDRESS OMIT!0TED ON RENAME MAC!PRO>>
	XMOVEI 2, !pC>
	IFDIF <FLUS"H><RENAME>,<
	IF"0NB <C>,<IF1,<PRI"PNTX %MORE THAN 2 "pARGS DETECTED IN #FLUSH MACRO>>>
	#0$%FLUSH			
	IFE #P<RMS$DY+RMS$DJ>,<#p
		IFNB <B>,<JU$MP 17,B>
		IFB $0<B>,<JUMP 16,.+1$P>	>  
	IFN <RMS$$pDY+RMS$DJ>,< IFNB% <B>,<
		CAIL 2%0,300000			   
		%P PUSHJ 17,B 		>> 
	
     		>>	Y  W0=q
	IFB <AWP>,<IF1,<PRINTX %AWpRGBLK ADDRESS OMIXTTED ON FREE MACRX0O>>
	XMOVEI	1, XPA
	IFIDN <FREE><XpRENAME>,<					   Y    
	IFB <C>,<Y0IF1,<PRINTX %NEWFYPAB ADDRESS OMITTEYpD ON RENAME MACROZ>>
	XMOVEI 2, CZ0>
	IFDIF <FREE><ZPRENAME>,<
	IFNB Zp<C>,<IF1,<PRINTX[ %MORE THAN 2 ARG[0S DETECTED IN FRE[PE MACRO>>>
	$%FR[pEE			
	IFE <RMS$\DY+RMS$DJ>,<
		I\0FNB <B>,<JUMP 17\P,B>
		IFB <B>,\p<JUMP 16,.+1>	>  ]
	IFN <RMS$DY+RM]0S$DJ>,< IFNB <B>]P,<
		CAIL 2,3000]p00			   
		 PUSH^J 17,B 		>> 
	
     		>> 
	.@ #P2S
	IFB <A#p>,<IF1,<PRINTX %A$RGBLK ADDRESS OMI$0TTED ON GET MACRO$P>>
	XMOVEI	1, A$p
	IFIDN <GET><RE%NAME>,<					     %0  
	IFB <C>,<IF%P1,<PRINTX %NEWFAB%p ADDRESS OMITTED &ON RENAME MACRO>>&0
	XMOVEI 2, C>
	IFDIF <GET><REN&pAME>,<
	IFNB <C'>,<IF1,<PRINTX %M'0ORE THAN 2 ARGS D'PETECTED IN GET MA'pCRO>>>
	$%GET			(
	IFE <RMS$DY+RM(0S$DJ>,<
		IFNB <(PB>,<JUMP 17,B>
		IFB <B>,<JUMP) 16,.+1>	>  
	IF)0N <RMS$DY+RMS$DJ>)P,< IFNB <B>,<
	)p	CAIL 2,300000			*   
		 PUSHJ 17,*0B 		>> 
	
     		>> 
	
    	&u n0G			
	PUSHnPJ 17,$$RMS##	
	.pREQUIRE SYS:RMSINI	
SHORD 	6.<p *;	
	IFB <A*0>,<IF1,<PRINTX %A*PRGBLK ADDRESS OMI*pTTED ON MESSAGE M+ACRO>>
	XMOVEI	1+0, A
	IFIDN <MES+PSAGE><RENAME>,<		+p			       
	IFB ,<C>,<IF1,<PRINTX,0 %NEWFAB ADDRESS ,POMITTED ON RENAME,p MACRO>>
	XMOVEI- 2, C>
	IFDIF <-0MESSAGE><RENAME>,-P<
	IFNB <C>,<IF-p1,<PRINTX %MORE T.HAN 2 ARGS DETECT.0ED IN MESSAGE MAC.PRO>>>
	$%MESSAGE.p			
	IFE <RMS$DY/+RMS$DJ>,<
		IFN/0B <B>,<JUMP 17,/PB>
		IFB <B>,<J/pUMP 16,.+1>	>  
0	IFN <RMS$DY+RMS$00DJ>,< IFNB <B>,<0P
		CAIL 2,3000000p			   
		 PUSHJ 117,B 		>> 
	
     		>> 
	
 	:}Y9 5p;g
	IFB <A6>,<IF1,<PRINTX %A60RGBLK ADDRESS OMI6PTTED ON NOMESSAGE6p MACRO>>
	XMOVEI7	1, A
	IFIDN <N70OMESSAGE><RENAME>7P,<					       
	7pIFB <C>,<IF1,<PR8INTX %NEWFAB ADDR80ESS OMITTED ON RE8PNAME MACRO>>
	XM8pOVEI 2, C>
	IFD9IF <NOMESSAGE><RE90NAME>,<
	IFNB <9PC>,<IF1,<PRINTX %9pMORE THAN 2 ARGS :DETECTED IN NOMES:0SAGE MACRO>>>
	$:P%NOMESSAGE			
	I:pFE <RMS$DY+RMS$DJ;>,<
		IFNB <B>,;0<JUMP 17,B>
		I;PFB <B>,<JUMP 16,;p.+1>	>  
	IFN <R<MS$DY+RMS$DJ>,< I<0FNB <B>,<
		CAI<PL 2,300000			   
		 PUSHJ 17,B 		>> 
	
     		;FMW m0?!
	IFB <AmP>,<IF1,<PRINTX %AmpRGBLK ADDRESS OMInTTED ON NXTVOL MAn0CRO>>
	XMOVEI	1,nP A
	IFIDN <NXTVnpOL><RENAME>,<				o	       
	IFB <o0C>,<IF1,<PRINTX %oPNEWFAB ADDRESS OMopITTED ON RENAME MpACRO>>
	XMOVEI 2p0, C>
	IFDIF <NXpPTVOL><RENAME>,<
pp	IFNB <C>,<IF1,<qPRINTX %MORE THANq0 2 ARGS DETECTED qPIN NXTVOL MACRO>>qp>
	$%NXTVOL			
r	IFE <RMS$DY+RMS$r0DJ>,<
		IFNB <BrP>,<JUMP 17,B>
	rp	IFB <B>,<JUMP 1s6,.+1>	>  
	IFN s0<RMS$DY+RMS$DJ>,<sP IFNB <B>,<
		CspAIL 2,300000			  t 
		 PUSHJ 17,B 		>> 
	
P1#	?[@ 
	IFBI<APRINTX %ARGBLK ADDRESS OMI0TTED ON OPEN MACRPO>>
	XMOVEI	1, pA
	IFIDN <OPEN><RENAME>,<					   0    
	IFB <C>,<PIF1,<PRINTX %NEWFpAB ADDRESS OMITTED ON RENAME MACRO0>>
	XMOVEI 2, CP>
	IFDIF <OPEN><pRENAME>,<
	IFNB <C>,<IF1,<PRINTX0 %MORE THAN 2 ARGPS DETECTED IN OPEpN MACRO>>>
	$%OPEN			
	IFE <RMS$0DY+RMS$DJ>,<
		IPFNB <B>,<JUMP 17p,B>
		IFB <B>,<JUMP 16,.+1>	>  0
	IFN <RMS$DY+RMPS$DJ>,< IFNB <B>p,<
		CAIL 2,300000			   
		 PUSH0J 17,B 		>> 
	
     		>> 
	B,r /0C1
	IFB <A/P>,<IF1,<PRINTX %A/pRGBLK ADDRESS OMI0TTED ON PARSE MAC00RO>>
	XMOVEI	1, 0PA
	IFIDN <PARSE0p><RENAME>,<					 1      
	IFB <C>10,<IF1,<PRINTX %NE1PWFAB ADDRESS OMIT1pTED ON RENAME MAC2RO>>
	XMOVEI 2, 20C>
	IFDIF <PARS2PE><RENAME>,<
	IF2pNB <C>,<IF1,<PRI3NTX %MORE THAN 2 30ARGS DETECTED IN 3PPARSE MACRO>>>
	3p$%PARSE			
	IFE 4<RMS$DY+RMS$DJ>,<40
		IFNB <B>,<JU4PMP 17,B>
		IFB 4p<B>,<JUMP 16,.+15>	>  
	IFN <RMS$50DY+RMS$DJ>,< IFNB5P <B>,<
		CAIL 25p,300000			   
		6 PUSHJ 17,B 		>> 
	
     		>>	C.@ .P3+
	IFB <A.p>,<IF1,<PRINTX %A/RGBLK ADDRESS OMI/0TTED ON PUT MACRO/P>>
	XMOVEI	1, A/p
	IFIDN <PUT><RE0NAME>,<					     00  
	IFB <C>,<IF0P1,<PRINTX %NEWFAB0p ADDRESS OMITTED 1ON RENAME MACRO>>10
	XMOVEI 2, C>
	IFDIF <PUT><REN1pAME>,<
	IFNB <C2>,<IF1,<PRINTX %M20ORE THAN 2 ARGS D2PETECTED IN PUT MA2pCRO>>>
	$%PUT			3
	IFE <RMS$DY+RM30S$DJ>,<
		IFNB <3PB>,<JUMP 17,B>
		IFB <B>,<JUMP4 16,.+1>	>  
	IF40N <RMS$DY+RMS$DJ>4P,< IFNB <B>,<
	4p	CAIL 2,300000			5   
		 PUSHJ 17,50B 		>> 
	
     		>> 
	
    	J, 0A)
	IFB <AP>,<IF1,<PRINTX %ApRGBLK ADDRESS OMITTED ON READ MACR0O>>
	XMOVEI	1, PA
	IFIDN <READ><pRENAME>,<					       
	IFB <C>,<0IF1,<PRINTX %NEWFPAB ADDRESS OMITTEpD ON RENAME MACRO>>
	XMOVEI 2, C0>
	IFDIF <READ><PRENAME>,<
	IFNB p<C>,<IF1,<PRINTX %MORE THAN 2 ARG0S DETECTED IN REAPD MACRO>>>
	$%REpAD			
	IFE <RMS$DY+RMS$DJ>,<
		I0FNB <B>,<JUMP 17P,B>
		IFB <B>,p<JUMP 16,.+1>	>  
	IFN <RMS$DY+RM0S$DJ>,< IFNB <B>P,<
		CAIL 2,3000p00			   
		 PUSHJ 17,B 		>> 
	
     		>> 
	J-I0 P9U
	IFB <Ap>,<IF1,<PRINTX %ARGBLK ADDRESS OMI0TTED ON RELEASE MPACRO>>
	XMOVEI	1p, A
	IFIDN <RELEASE><RENAME>,<		0			       
	IFB P<C>,<IF1,<PRINTXp %NEWFAB ADDRESS OMITTED ON RENAME0 MACRO>>
	XMOVEIP 2, C>
	IFDIF <pRELEASE><RENAME>,<
	IFNB <C>,<IF01,<PRINTX %MORE TPHAN 2 ARGS DETECTpED IN RELEASE MACRO>>>
	$%RELEASE0			
	IFE <RMS$DYP+RMS$DJ>,<
		IFNpB <B>,<JUMP 17,B>
		IFB <B>,<J0UMP 16,.+1>	>  
P	IFN <RMS$DY+RMS$pDJ>,< IFNB <B>,<
		CAIL 2,3000000			   
		 PUSHJ P17,B 		>> 
	
     		>> 
	
 	J-[{ [0F
	IFB <A[P>,<IF1,<PRINTX %A[pRGBLK ADDRESS OMI\TTED ON REMOVE MA\0CRO>>
	XMOVEI	1,\P A
	IFIDN <REMO\pVE><RENAME>,<				]	       
	IFB <]0C>,<IF1,<PRINTX %]PNEWFAB ADDRESS OM]pITTED ON RENAME M^ACRO>>
	XMOVEI 2^0, C>
	IFDIF <RE^PMOVE><RENAME>,<
^p	IFNB <C>,<IF1,<_PRINTX %MORE THAN_0 2 ARGS DETECTED _PIN REMOVE MACRO>>_p>
	$%REMOVE			
`	IFE <RMS$DY+RMS$`0DJ>,<
		IFNB <B`P>,<JUMP 17,B>
	`p	IFB <B>,<JUMP 1a6,.+1>	>  
	IFN a0<RMS$DY+RMS$DJ>,<aP IFNB <B>,<
		CapAIL 2,300000			  b 
		 PUSHJ 17,B 		>> 
	
    	J-h6 f0Fi
	IFB <AfP>,<IF1,<PRINTX %AfpRGBLK ADDRESS OMIgTTED ON RENAME MAg0CRO>>
	XMOVEI	1,gP A
	IFIDN <RENAgpME><RENAME>,<				h	       
	IFB <h0C>,<IF1,<PRINTX %hPNEWFAB ADDRESS OMhpITTED ON RENAME MiACRO>>
	XMOVEI 2i0, C>
	IFDIF <REiPNAME><RENAME>,<
ip	IFNB <C>,<IF1,<jPRINTX %MORE THANj0 2 ARGS DETECTED jPIN RENAME MACRO>>jp>
	$%RENAME			
k	IFE <RMS$DY+RMS$k0DJ>,<
		IFNB <BkP>,<JUMP 17,B>
	kp	IFB <B>,<JUMP 1l6,.+1>	>  
	IFN l0<RMS$DY+RMS$DJ>,<lP IFNB <B>,<
		ClpAIL 2,300000			  m 
		 PUSHJ 17,B 		>> 
	
    	J.M9 /POPJ	17,	J.z7 x0?y
	IFB <AxP>,<IF1,<PRINTX %AxpRGBLK ADDRESS OMIyTTED ON REWIND MAy0CRO>>
	XMOVEI	1,yP A
	IFIDN <REWIypND><RENAME>,<				z	       
	IFB <z0C>,<IF1,<PRINTX %zPNEWFAB ADDRESS OMzpITTED ON RENAME M{ACRO>>
	XMOVEI 2{0, C>
	IFDIF <RE{PWIND><RENAME>,<
{p	IFNB <C>,<IF1,<|PRINTX %MORE THAN|0 2 ARGS DETECTED |PIN REWIND MACRO>>|p>
	$%REWIND			
}	IFE <RMS$DY+RMS$}0DJ>,<
		IFNB <B}P>,<JUMP 17,B>
	}p	IFB <B>,<JUMP 1~6,.+1>	>  
	IFN ~0<RMS$DY+RMS$DJ>,<~P IFNB <B>,<
		C~pAIL 2,300000			   
		 PUSHJ 17,B 		>> 
	
    	Jn0 n0G			
	PUSHnPJ 17,$$RMS##	
	.pREQUIRE SYS:RMSINI	
SHORD 	N,Q :0D	
	IFB <A:P>,<IF1,<PRINTX %A:pRGBLK ADDRESS OMI;TTED ON SEARCH MA;0CRO>>
	XMOVEI	1,;P A
	IFIDN <SEAR;pCH><RENAME>,<				<	       
	IFB <<0C>,<IF1,<PRINTX %<PNEWFAB ADDRESS OM<pITTED ON RENAME M=ACRO>>
	XMOVEI 2=0, C>
	IFDIF <SE=PARCH><RENAME>,<
=p	IFNB <C>,<IF1,<>PRINTX %MORE THAN>0 2 ARGS DETECTED >PIN SEARCH MACRO>>>p>
	$%SEARCH			
?	IFE <RMS$DY+RMS$?0DJ>,<
		IFNB <B?P>,<JUMP 17,B>
	?p	IFB <B>,<JUMP 1@6,.+1>	>  
	IFN @0<RMS$DY+RMS$DJ>,<@P IFNB <B>,<
		C@pAIL 2,300000			  A 
		 PUSHJ 17,B 		>> 
	
    	Or 0B
	IFB <AP>,<IF1,<PRINTX %ApRGBLK ADDRESS OMITTED ON SPACE MAC0RO>>
	XMOVEI	1, PA
	IFIDN <SPACEp><RENAME>,<					       
	IFB <C>0,<IF1,<PRINTX %NEPWFAB ADDRESS OMITpTED ON RENAME MACRO>>
	XMOVEI 2, 0C>
	IFDIF <SPACPE><RENAME>,<
	IFpNB <C>,<IF1,<PRINTX %MORE THAN 2 0ARGS DETECTED IN PSPACE MACRO>>>
	p$%SPACE			
	IFE <RMS$DY+RMS$DJ>,<0
		IFNB <B>,<JUPMP 17,B>
		IFB p<B>,<JUMP 16,.+1>	>  
	IFN <RMS$0DY+RMS$DJ>,< IFNBP <B>,<
		CAIL 2p,300000			   
		  PUSHJ 17,B 		>> 
	
     		>>	O%|R xx/k
	$$ISOL(yB)			
	IFE <T$$y8SZ-^D18>,<		
	yxyX  IFE T$$PS,<			
		HRRM A,T$$OF+zC
		T$$SZ==0		
	    >
	    IFEzX <T$$PS-^D18>,<		zx
		HRLM A,T$$OF{+C
		T$$SZ==0		{8
	    >
	>
	IF{XE <T$$SZ-^D36>,<	{x	
		MOVEM A,T$$|OF+C
		T$$SZ==0|8		;INDIC INST GEN|X
	>
	IFN T$$SZ,|x<			
		DPB A,[<}T$$PS>B5 ! <T$$SZ}8>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q Zp6
	IFB <A[>,<IF1,<PRINTX %A[0RGBLK ADDRESS OMI[PTTED ON TRUNCATE [pMACRO>>
	XMOVEI	\1, A
	IFIDN <TR\0UNCATE><RENAME>,<\P					       
	IF\pB <C>,<IF1,<PRIN]TX %NEWFAB ADDRES]0S OMITTED ON RENA]PME MACRO>>
	XMOV]pEI 2, C>
	IFDIF^ <TRUNCATE><RENAM^0E>,<
	IFNB <C>,^P<IF1,<PRINTX %MOR^pE THAN 2 ARGS DET_ECTED IN TRUNCATE_0 MACRO>>>
	$%TRU_PNCATE			
	IFE <R_pMS$DY+RMS$DJ>,<
`		IFNB <B>,<JUMP`0 17,B>
		IFB <`PB>,<JUMP 16,.+1>	`p>  
	IFN <RMS$DYa+RMS$DJ>,< IFNB <a0B>,<
		CAIL 2,3aP00000			   
		PapUSHJ 17,B 		>> 
	
	WH		>>9P4
	IFB <A9p>,<IF1,<PRINTX %A:RGBLK ADDRESS OMI:0TTED ON UPDATE MA:PCRO>>
	XMOVEI	1,:p A
	IFIDN <UPDA;TE><RENAME>,<				;0	       
	IFB <;PC>,<IF1,<PRINTX %;pNEWFAB ADDRESS OM<ITTED ON RENAME M<0ACRO>>
	XMOVEI 2<P, C>
	IFDIF <UP<pDATE><RENAME>,<
=	IFNB <C>,<IF1,<=0PRINTX %MORE THAN=P 2 ARGS DETECTED =pIN UPDATE MACRO>>>>
	$%UPDATE			
>0	IFE <RMS$DY+RMS$>PDJ>,<
		IFNB <B>p>,<JUMP 17,B>
	?	IFB <B>,<JUMP 1?06,.+1>	>  
	IFN ?P<RMS$DY+RMS$DJ>,<?p IFNB <B>,<
		C@AIL 2,300000			  @0 
		 PUSHJ 17,B 		>> 
	
    	W%J7 b0>I
	IFB <AbP>,<IF1,<PRINTX %AbpRGBLK ADDRESS OMIcTTED ON UTLINT MAc0CRO>>
	XMOVEI	1,cP A
	IFIDN <UTLIcpNT><RENAME>,<				d	       
	IFB <d0C>,<IF1,<PRINTX %dPNEWFAB ADDRESS OMdpITTED ON RENAME MeACRO>>
	XMOVEI 2e0, C>
	IFDIF <UTePLINT><RENAME>,<
ep	IFNB <C>,<IF1,<fPRINTX %MORE THANf0 2 ARGS DETECTED fPIN UTLINT MACRO>>fp>
	$%UTLINT			
g	IFE <RMS$DY+RMS$g0DJ>,<
		IFNB <BgP>,<JUMP 17,B>
	gp	IFB <B>,<JUMP 1h6,.+1>	>  
	IFN h0<RMS$DY+RMS$DJ>,<hP IFNB <B>,<
		ChpAIL 2,300000			  i 
		 PUSHJ 17,B 		>> 
	
	^0@Q
	IFB <AP>,<IF1,<PRINTX %ApRGBLK ADDRESS OMITTED ON WAIT MACR0O>>
	XMOVEI	1, PA
	IFIDN <WAIT><pRENAME>,<					       
	IFB <C>,<0IF1,<PRINTX %NEWFPAB ADDRESS OMITTEpD ON RENAME MACRO>>
	XMOVEI 2, C0>
	IFDIF <WAIT><PRENAME>,<
	IFNB p<C>,<IF1,<PRINTX %MORE THAN 2 ARG0S DETECTED IN WAIPT MACRO>>>
	$%WApIT			
	IFE <RMS$DY+RMS$DJ>,<
		I0FNB <B>,<JUMP 17P,B>
		IFB <B>,p<JUMP 16,.+1>	>  	
	IFN <RMS$DY+RM	0S$DJ>,< IFNB <B>	P,<
		CAIL 2,3000	p00			   
		 PUSH
J 17,B 		>> 
	
     		>> 
	 $0BY
	IFB <A$P>,<IF1,<PRINTX %A$pRGBLK ADDRESS OMI%TTED ON WRITE MAC%0RO>>
	XMOVEI	1, %PA
	IFIDN <WRITE%p><RENAME>,<					 &      
	IFB <C>&0,<IF1,<PRINTX %NE&PWFAB ADDRESS OMIT&pTED ON RENAME MAC'RO>>
	XMOVEI 2, '0C>
	IFDIF <WRIT'PE><RENAME>,<
	IF'pNB <C>,<IF1,<PRI(NTX %MORE THAN 2 (0ARGS DETECTED IN (PWRITE MACRO>>>
	(p$%WRITE			
	IFE )<RMS$DY+RMS$DJ>,<)0
		IFNB <B>,<JU)PMP 17,B>
		IFB )p<B>,<JUMP 16,.+1*>	>  
	IFN <RMS$*0DY+RMS$DJ>,< IFNB*P <B>,<
		CAIL 2*p,300000			   
		+ PUSHJ 17,B 		>> 
	
     		>>: *x"_
	DEFINE +A$B(ARG)<
		IF+81,<PRINTX	%"A$B+X" RMS-11 ONLY, IG+xNORED BY RMS-20>
	>
YhRMS-20>,8"e
	IRP A,,X< ..BADF(F,A) >
.BADF(F,A)">
	IRP A,-8< ..BADF(R,A) >
.BADF(R,A)">
	IRP A,.< ..BADF(X,A) >
.BADF(X,A)(>P#=P 6D(9P# D=P O,(9P O,=P >}{woP