Google
 

Trailing-Edge - PDP-10 Archives - BB-AE97C-BM - subsys/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,5y@P FKyP F{WP F)0P F$XZP F$[P F%qP F%xP F.(9P F5RP F5M9P F6)2P 	F<]P Fl\yP Fu{2P F~	7P F]P F[P F&-7P F.	P F.KP 	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$;r@#KH$;s@#KH$=9@#KH$H7@#KH$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%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#2KH%Z7@#KH%\W@#KH%\Y@#KH%i3@#KH%k@#KH%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&98@#+KH&:=@#+KH&=8@#1KH&LR@#,KH&LZ@#,KH&XS@#-KH&Y@#-KH&i9@#.KH&y9@#.KH'1@#/KH'v@#/K`%X<P#'L$2Q $L$Q L$*2Q $HL$*yQ 
 L$*zQ L$*}Q $L$+Q HL$+Q  L$,}Q L$9Q L$;rQ $L$=Q L$H7Q $$L$I;Q $HL$IVQ HL$MQ $L$YQ L$[Q L$h1Q HL$h1Q $HL$kQ HL$kPQ L$kxQ $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%\WQ L%\YQ HL%h6Q HL%kpQ $L%kuQ $L%nQ HL%|SQ 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&+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&,}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&N8Q $HL&XSQ L&\}Q HL'1Q HL
		IF1,<P%(RINTX	%"F$ANB" RM%HS-11 ONLY, IGNORED BY RMS-20>
	L<` LH$d$$NEWVAL (BKS,A)NEWVAL (LL` L$`$$NEWVAL (BLS,A)NEWVAL (L>@ J$P$$NEWVAL (BSZ,A)NEWVAL (LN M$h$$NEWVAL (CTX,A)NEWVAL (L%h  !"

		IF1,<P!(RINTX	%"F$DNA" RM!HS-11 ONLY, IGNORED BY RMS-20>
	L%l` ""
		IF1,<P"(RINTX	%"F$DNS" RM"HS-11 ONLY, IGNORED BY RMS-20>
	L4` F$0$$NEWVAL (FAC,A)NEWVAL (L5h  H$@$$NEWVAL (FNA,A)NEWVAL (L5l`  "
		IF1,<P (RINTX	%"F$FNS" RM HS-11 ONLY, IGNORED BY RMS-20>
	L5| G$8$$NEWVAL (FOP,A)NEWVAL (L6>@ MH$l$$NEWVAL (FSZ,A)NEWVAL (LTk@ EH$,$$NEWVAL (JFN,A)NEWVAL (LUk KH$\$$NEWVAL (JNL,A)NEWVAL (Ld: '"<
		IF1,<P'(RINTX	%"F$LCH" RM'HS-11 ONLY, IGNORED BY RMS-20>
	Ln+@ IH$L$$NEWVAL (MRN,A)NEWVAL (Ln,` I$H$$NEWVAL (MRS,A)NEWVAL (Lt  $" $$NEWVAL (NAM,A)NEWVAL (L~)` GH$<$$NEWVAL (ORG,A)NEWVAL (L HH$D$$NEWVAL (RAT,A)NEWVAL (Lk  JH$T$$NEWVAL (RFM,A)NEWVAL (LM@ #"
		IF1,<P#(RINTX	%"F$RTV" RM#HS-11 ONLY, IGNORED BY RMS-20>
	L
@ FH$4$$NEWVAL (SHR,A)NEWVAL (L' $H"$$$NEWVAL (TYP,A)NEWVAL (LD@ K$X$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ ;H$(
	IFNB <;hA>,<			;RUN-TIME <INIT
		$$MAPADD <((A,$$ADDR);	; WI<HLL REFERENCE FAB <hVIA $$ADDR
		SYN= SF$$RT,$$SET
	>=(					
	IFB <A>,=H<SYN SF$$CT,$$SET=h>	
		$$CURR (F,B>ID)
		$$CURR (F,>(BLN)
		$$CURR (F>H,STS)
		$$CURR (>hF,STV)
		$$CURR ?(F,IFI)
		$$CURR?( (F,JFN)
		$$CUR?HR (F,FAC)
		$$CU?hRR (F,SHR)
		$$C@URR (F,FOP)
		$$@(CURR (F,ORG)
		$@H$CURR (F,FNA)
		@h$$CURR (F,RAT)
	A	$$CURR (F,MRS)
A(		$$CURR (F,MRN)
		$$CURR (F,BSZ)Ah
		$$CURR (F,RFMB)
		$$CURR (F,XAB(B)
		$$CURR (F,JBHNL)
		$$CURR (F,BhBLS)
		$$CURR (FC,BKS)
		$$CURR (C(F,DEV)
		$$CURR CH(F,SDC)
		$$CURRCh (F,CTX)
		$$CURDR (F,FSZ)	;![AWN]D(
		$$CURR (F,TYPDH)	;![AWN]
		$$CUDhRR (F,NAM)	;![AWNE]
		$$CURR (F,ALQ)	;![AWN]
	ALMI  &H%d
	IFNDEF Mh$$ADDR,<				
		<N$$SET(BID)>_^D18 N(! <$$SET(BLN)>
	NH	<$$SET(STS)>^D1Nh8 ! <$$SET(STV)>
		<$$SET(CTX)>
O(		<$$SET(IFI)>_^DOH18 ! <$$SET(JFN)>Oh
		<$$SET(FAC)>_P^D18 ! <$$SET(SHRP()>
		<$$SET(FOP)PH>_^D18 ! <$$SET(OPhRG)>_^D14 ! <$$SEQT(BSZ)>_^D8 ! <$$Q(SET(BLS)>
		<$$SQHET(FNA)>
		<$$SEQhT(RAT)>_^D18 ! <$R$SET(MRS)>
		<$$R(SET(MRN)>
		<$$SRHET(FSZ)>_^D13 ! <Rh$$SET(BKS)>_^D5 !S <$$SET(RFM)> ;![S(AWN]
		<$$SET(JNSHL)>_^D18 ! <$$SETSh(XAB)>
		<$$SET(TDEV)>_^D18 ! <$$ST(ET(SDC)>
		<$$SETHT(TYP)>_^D18 ! <$Th$SET(NAM)>	;![AWNU]
		<$$SET(ALQ)>U(				;![AWN]
		EXUHP 0,0
	>					;ENUhD IFNB
	IFDEF $$VADDR,<
		$$SET(BV(ID)
		$$SET(BLN)VH
		$$SET(STS)
	Vh	$$SET(STV)
		$$WSET(IFI)
		$$SETW((JFN)
		$$SET(FAWHC)
		$$SET(SHR)
		$$SET(FOP)
		X$$SET(ORG)
		$$SX(ET(FNA)
		$$SET(XHRAT)
		$$SET(MRSXh)
		$$SET(MRN)
Y		$$SET(BSZ)
		$Y($SET(RFM)
		$$SEYHT(XAB)
		$$SET(JYhNL)
		$$SET(BLS)Z
		$$SET(BKS)
	Z(	$$SET(DEV)
		$$ZHSET(SDC)
		$$SETZh(CTX)
		$$SET(FS[Z)			;![AWN]
		$[($SET(NAM)			;![AW[HN]
		$$SET(TYP)	[h		;![AWN]
		$$SE\T(ALQ)			;![AWN]
		
		PURGE $$AD\HDR			
	>					
				
	>					
	MN@ 3(+ $$ZERO(A,FA$LNG) ERO(AM$P M$P @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%JwP M%LpP M%YP M%ZrP M%h6P M%j6P M%yXP  M%}:P M&
WP M&)1P M&)6P M&8sP  M&98P 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@#'dN kH&\ $$NEWVAL (CTX,A)NEWVAL d-L` lH&d $$NEWVAL (ELS,A)NEWVAL d4@ e&( $$NEWVAL (FAB,A)NEWVAL d\)@ iH&L $$NEWVAL (KBF,A)NEWVAL d^)@ hH&D $$NEWVAL (KRF,A)NEWVAL d^>@ i&H $$NEWVAL (KSZ,A)NEWVAL df;@ k&X $$NEWVAL (LSN,A)NEWVAL dl)@ j&P $$NEWVAL (MBF,A)NEWVAL d jH&T $$NEWVAL (PAD,A)NEWVAL d` eH&, $$NEWVAL (RAC,A)NEWVAL d)@ g&8 $$NEWVAL (RBF,A)NEWVAL dh  l&` $$NEWVAL (RFA,A)NEWVAL d@ H"@
		IF1,<P'hRINTX	%"R$RHB" RM(S-11 ONLY, IGNORED BY RMS-20>
	d| f&0 $$NEWVAL (ROP,A)NEWVAL d>@ gH&< $$NEWVAL (RSZ,A)NEWVAL d,)@ fH&4 $$NEWVAL (UBF,A)NEWVAL d.>@ h&@ $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ ]&$
	IFNB <](A>,<
		$$MAPADD ]H(A,$$ADDR);	; WI]hLL REFERENCE THE ^BLOCK VIA $$ADDR
		SYN SR$$RT,$$S^HET
	>					
	IFB^h <A>,<SYN SR$$CT_,$$SET>	
		$$CUR_(R (R,BID)
		$$CU_HRR (R,BLN)
		$$C_hURR (R,STS)
		$$`CURR (R,STV)
		$`($CURR (R,ISI)
		`H$$CURR (R,FAB)
	`h	$$CURR (R,RAC)
a		$$CURR (R,ROP)
		$$CURR (R,UBF)aH
		$$CURR (R,RBFah)
		$$CURR (R,RSbZ)
		$$CURR (R,Ub(SZ)
		$$CURR (R,bHRFA)
		$$CURR (Rbh,KRF)
		$$CURR (cR,KSZ)
		$$CURR c((R,KBF)
		$$CURRcH (R,MBF)
		$$CURchR (R,LSN)
		$$CUdRR (R,BKT)
		$$Cd(URR (R,PAD)
		$$dHCURR (R,CTX)
	 URR (R,CTX)
	 eI  m'D
	IFNDEF m($$ADDR,<
		<$$SEmHT(BID)>_^D18 ! <$mh$SET(BLN)>
		<$$nSET(STS)>_^D18 ! n(<$$SET(STV)>
		<nH$$SET(CTX)>
		<$nh$SET(ISI)>_^D18 !o <$$SET(FAB)>
		o(<$$SET(RAC)>_^D27oH ! <$$SET(MBF)>_^ohD18 ! <$$SET(ROP)p>
		<$$SET(UBF)>p(
		<$$SET(RBF)>
		<$$SET(RSZ)>_^phD18 ! <$$SET(USZ)q>
		<$$SET(RFA)>q(
		<$$SET(KRF)>_qH^D27 ! <$$SET(KSZqh)>_^D18 ! <$$SET(rLSN)>
		<$$SET(Kr(BF)>
		<$$SET(BKrHT)>
		<$$SET(PADrh)>_^D27
		EXP 0,s0,0
	>				;IFNDEs(F
	IFDEF $$ADDR,sH<
		$$SET(BID)
sh		$$SET(BLN)
		$t$SET(STS)
		$$SEt(T(STV)
		$$SET(ItHSI)
		$$SET(FAB)th
		$$SET(RAC)
	u	$$SET(ROP)
		$$u(SET(UBF)
		$$SETuH(RBF)
		$$SET(RSuhZ)
		$$SET(USZ)
		$$SET(RFA)
		v($$SET(KRF)
		$$SvHET(KSZ)
		$$SET(vhKBF)
		$$SET(MBFw)
		$$SET(LSN)
w(		$$SET(BKT)
		$wH$SET(PAD)
		$$SEwhT(CTX)
		PURGE $x$ADDR			;SO NEXT x(C/R DECIS CORRECTxH
	>					;IFDEF
	>					;IFDEF
eN@ 3h+ $$ZERO(A,RA$LNG) ERO(Ae$[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&x0P e&xPP e&xTP e4%X< 
e4%Z7 f$(` ( 2 A$B==1BC  A$B==1Bf$H` h . A$B==^DC  A$B==^Df&8` ( * A$B==C$D  A$B==Cg Hz 6h#8IFDEF C$$7A,<C$$A> IFNDEF C$$A,<$$FA>F g LZ 5H#2
	    IFN5hDEF C$$A,<IFN $$6FA,<C$$A==$$FA6(>>
	    STO$$C(A)			
	TO$$C(gH Hz 8h#HIFDEF C$$9A,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ 7H#B
	    IFN7hDEF C$$A,<IFN $$8RA,<C$$A==$$RA8(>>
	    STO$$C(A)			
	TO$$C(gRxA 4#(			
	4H  4(IFDEF C$$A,<			
		<HRREI 1,> ! C4h$$A		
		$STORE	5(1,A,$$ADDR)		
	    >
	R)		
gT$M8@ gT%@ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz :h#XIFDEF C$$;A,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ 9H#R
	    IFN9hDEF C$$A,<IFN $$:XA,<C$$A==$$XA:(>>
	    STO$$C(A)			
	TO$$C(i?D(P$i?DHPpD,A)NEWVAL (p>@ 
(P$$NEWVAL (BKZ,A)NEWVAL (p$@ (X$$NEWVAL (DFL,A)NEWVAL (p&L H(\$$NEWVAL (DTP,A)NEWVAL (p,M 	(H$$NEWVAL (EDT,A)NEWVAL (p5I` 
(`$$NEWVAL (FLG,A)NEWVAL (p>, /("~
		IF1,<P/HRINTX	%"X$GRP" RM/hS-11 ONLY, IGNORED BY RMS-20>
	pD *("V
		IF1,<P*HRINTX	%"X$HAL" RM*hS-11 ONLY, IGNORED BY RMS-20>
	pL@ 
H(d$$NEWVAL (IAN,A)NEWVAL (pLk 
H(T$$NEWVAL (IFL,A)NEWVAL (p]k H(t$$NEWVAL (KNM,A)NEWVAL (pd@ 
		IF1,<P)HRINTX	%"X$MTH" RM)hS-11 ONLY, IGNORED BY RMS-20>
	pwH(D$$NEWVAL (NXT,A)NEWVAL (p~{@ .("v
		IF1,<P.HRINTX	%"X$OWN" RM.hS-11 ONLY, IGNORED BY RMS-20>
	p|` )

		$$NE(WARRVAL (PS0,A)
		$$NEWARRVAL (PhS1,B)
		$$NEWARRVAL (PS2,C)
		($$NEWARRVAL (PS3,HD)
		$$NEWARRVAhL (PS4,E)
		$$NEWARRVAL (PS5,F)(
		$$NEWARRVAL (HPS6,G)
		$$NEWAhRRVAL (PS7,H)
	VAL (PS7,H)
	p)` +("^
		IF1,<P+HRINTX	%"X$PRG" RM+hS-11 ONLY, IGNORED BY RMS-20>
	p*@ ,("f
		IF1,<P,HRINTX	%"X$PRJ" RM,hS-11 ONLY, IGNORED BY RMS-20>
	pY@ (p$$NEWVAL (REF,A)NEWVAL (p+@ 2(#
		IF1,<P2HRINTX	%"X$SBN" RM2hS-11 ONLY, IGNORED BY RMS-20>
	p@ ()(

		$$NEHWARRVAL (SZ0,A)
		$$NEWARRVAL (SZ1,B)
		$$NEWAR(RVAL (SZ2,C)
		H$$NEWARRVAL (SZ3,hD)
		$$NEWARRVAL (SZ4,E)
		$$N(EWARRVAL (SZ5,F)H
		$$NEWARRVAL (hSZ6,G)
		$$NEWARRVAL (SZ7,H)
	VAL (SZ7,H)
	p` -("n
		IF1,<P-HRINTX	%"X$SYS" RM-hS-11 ONLY, IGNORED BY RMS-20>
	p5{ 1(#
		IF1,<P1HRINTX	%"X$VOL" RM1hS-11 ONLY, IGNORED BY RMS-20>
	p=I 0(#
		IF1,<P0HRINTX	%"X$WLD" RM0hS-11 ONLY, IGNORED BY RMS-20>
	pD.  3(#
		IF1,<P3HRINTX	%"X$XBY" RM3hS-11 ONLY, IGNORED BY RMS-20>
	pT\WP q%KSP 	q&>P q&>P q&>P 	q&>P q&>P q&N8P qH@ y(@
	IFNB <y(B>,<
		$$MAPADD yH(B,$$ADDR)	
		SyhYN SX$$RT,$$SET
z	>					
	IFB <Bz(>,<SYN SX$$CT,$$SzHET>	
						
		Czh$$COD==XB$A		
	{	C$$BLN==XA$SXA	{(	
						

		$${HCURR (X,BID)
		${h$CURR (X,RS1)
		|$$CURR (X,NXT)
|(
						
		$$CURR|H (X,CDT)
		$$CUR|hR (X,RDT)
		$$CU}RR (X,EDT)

			}(			
		$$CURR (X,}HRS2)
		$$CURR (X}h,AID)
		$$CURR (~X,BKZ)

						
		$$CURR (X,IFL)~H
		$$CURR (X,DFL~h)
		$$CURR (X,DTP)
		$$CURR (X,F(LG)
		$$CURR (X,HIAN)
		$$CURR (Xh,DAN)
		$$CURR (X,LAN)
		$$CURR ((X,REF)
		$$CURRH (X,KNM)
		$$CURhR (X,RX0)
		$$CURR (X,RX1)
		$$C(URR (X,RX2)
		$$HCURR (X,RX3)
		$h$CURR (X,RX4)
		$$CURR (X,RX5)
	(	$$CURR (X,PS0)
H		$$CURR (X,PS1)
		$$CURR (X,PS2)
		$$CURR (X,PS3()
		$$CURR (X,PSH4)
		$$CURR (X,PhS5)
		$$CURR (X,PS6)
		$$CURR (X(,PS7)
		$$CURR (HX,SZ0)
		$$CURR h(X,SZ1)
		$$CURR (X,SZ2)
		$$CUR(R (X,SZ3)
		$$CUHRR (X,SZ4)
		$$ChURR (X,SZ5)
		$$CURR (X,SZ6)
		$($CURR (X,SZ7)
	H
						
		$$CURRh (X,RS6)
		$$CURR (X,NOK)
		$$CU(RR (X,NOA)
		$$CHURR (X,RS7)
		$$hCURR (X,RS8)
		$$CURR (X,RS9)
	CURR (X,RS9)
	qI  H+
	IFNDEF h$$ADDR,<
		<$$SET(BID)>_^D18 ! <$($SET(BLN)>
		<$$HSET(COD)>_^D18 ! h<$$SET(NXT)>
		IFE <C$$COD-XB$DAT(>,<
			<$$SET(CDHT)>
			<$$SET(RDhT)>
			<$$SET(EDT)>
		>
		IFE <(C$$COD-XB$ALL>,<
			<$$SET(AID)>_h^D9 ! <$$SET(BKZ)>
			EXP 0,0,0
(		>
		IFE <C$$COHD-XB$KEY>,<
			<h$$SET(DTP)>_^D18 ! <$$SET(FLG)>
	(		<$$SET(IAN)>_^DH27 ! <$$SET(DAN)>h_^D18 ! <$$SET(LAN)>_^D9 ! <$$SET((REF)>
			<$$SET(HIFL)>_^D18 ! <$$ShET(DFL)>
			<$$SET(KNM)>
			EXP (0,0,0,0,0
			<$$HSET(PS0)>_^D18 ! h<$$SET(SZ0)>
			<$$SET(PS1)>_^D18( ! <$$SET(SZ1)>
H			<$$SET(PS2)>_^hD18 ! <$$SET(SZ2)>
			<$$SET(PS3)(>_^D18 ! <$$SET(SHZ3)>
			<$$SET(PhS4)>_^D18 ! <$$SET(SZ4)>
			<$$SE(T(PS5)>_^D18 ! <$H$SET(SZ5)>
			<$h$SET(PS6)>_^D18 !  <$$SET(SZ6)>
		 (	<$$SET(PS7)>^D1 H8 ! <$$SET(SZ7)>
		>
		IFE <C$$C!OD-XB$SUM>,<
			!(<$$SET(NOK)>_^D9 !H! <$$SET(NOA)>
	!h		EXP 0,0,0
		>
	>
	IFDEF $$ADD"(R,<
		$$MAPADD ("HXABADDR,$$ADDR);	"h; WILL REFERENCE #THE BLOCK VIA $$A#(DDR
							; STO#HRE COMMON HEADER #hFOR ALL XAB TYPES$
		$$SET(BID)
	$(	$$SET(RS1)
		$$$HSET(COD)
		$$SET$h(NXT)
							; S%TORE REST OF XAB %(DEPENDING ON IT'S%H TYPE
		IFE <C$$%hCOD-XB$DAT>,<
		&$$NEWVAL(BLN,XA$S&(XD)		
		$$SET(BL&HN)
		$$SET(CDT)
		$$SET(RDT)
		'$$SET(EDT)
		>
'(
		IFE <C$$COD-X'HB$ALL>,<
		$$NEW'hVAL(BLN,XA$SXA)		(
		$$SET(BLN)
	((	$$SET(RS2)
		$$(HSET(AID)
		$$SET(h(BKZ)
		>

		I)FE <C$$COD-XB$KEY)(>,<
		$$NEWVAL(B)HLN,XA$SXK)		
		$)h$SET(BLN)
		$$SE*T(IFL)
		$$SET(D*(FL)
		$$SET(DTP)*H
		$$SET(FLG)
	*h	$$SET(IAN)
		$$+SET(DAN)
		$$SET+((LAN)
		$$SET(RE+HF)
		$$SET(KNM)
		$$SET(RX0)
		,$$SET(RX1)
		$$S,(ET(RX2)
		$$SET(,HRX3)
		$$SET(RX4,h)
		$$SET(RX5)
-
		$$SET(PS0)
	-(	$$SET(PS1)
		$$-HSET(PS2)
		$$SET-h(PS3)
		$$SET(PS.4)
		$$SET(PS5)
		$$SET(PS6)
		.H$$SET(PS7)

		$.h$SET(SZ0)
		$$SE/T(SZ1)
		$$SET(S/(Z2)
		$$SET(SZ3)/H
		$$SET(SZ4)
	/h	$$SET(SZ5)
		$$0SET(SZ6)
		$$SET0((SZ7)
		>

		I0HFE <C$$COD-XB$SUM0h>,<
		$$NEWVAL(B1LN,XA$SXS)		
		$1($SET(BLN)
		$$SE1HT(RS6)
		$$SET(N1hOK)
		$$SET(NOA)2
		$$SET(RS7)
	2(	$$SET(RS8)
		$$2HSET(RS9)
		>
		2hPURGE $$ADDR			
	>					
				
qN@ 4(+$ $$ZERO(A4H,%NAME(XA$SX,B)) AME(XA$SX,B))q$P q$lP q$:P q$H:P q$M8P q$XQP q$kP q$k	P q$yVP q%
tP q%JP q%LP q%9<P q%X<P q%j6P q&1P q&:<P q&=P q&=6P q&[JP 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 h ASCIZ\

COPYRIGHT (C) 198(4 BY DIGITAL EQUIHPMENT CORPORATION

\ORPORATION<z  &
	IFNB <(B>,<IFL A-B,<PRHINTX ?A HAS A VAhLUE WHICH IS TOO LOW>>
	IFNB <C>(,<IFG A-C,<PRINHTX ?A HAS A VALUhE WHICH IS TOO HIGH>>
IS TOO HIKy NP,	
      INpFN TOP$10,<PUSHJ O17,RMS$10##+C$CLOO0SE>	
      IFN TOPOP$20,<104B8+1000Op+C$CLOSE>	
    C$CLOSE>	
    y (!L
	C=A+HB		
	B==B+1			

	B==B+1			{W rP/	
      IrpFN TOP$10,<PUSHJ s17,RMS$10##+C$CONs0NECT>	
      IFNsP TOP$20,<104B8+10sp00+C$CONNECT>	
    CONNECT>	
 )0 wp/u	
      I}PFN TOP$10,<PUSHJ }p17,RMS$10##+C$CRE~ATE>	
      IFN ~0TOP$20,<104B8+100~P0+C$CREATE>	
    $CREATE>	
   \Y h!nPURGE C$$BPURGE C$$$XZ P0	
      IpFN TOP$10,<PUSHJ 17,RMS$10##+C$DEB0UG>	
      IFN TPOP$20,<104B8+1000p+C$DEBUG>	
    C$DEBUG>	
    $[ c.#	
      Ic0FN TOP$10,<PUSHJ cP17,RMS$10##+C$DELcpETE>	
      IFN dTOP$20,<104B8+100d00+C$DELETE>	
    $DELETE>	
   %q x/K	
      Ix0FN TOP$10,<PUSHJ xP17,RMS$10##+C$DISxpCONNECT>	
      yIFN TOP$20,<104B8y0+1000+C$DISCONNECT>	
    CONNEC%x P1s	
      I0FN TOP$10,<PUSHJ P17,RMS$10##+C$DISpPLAY>	
      IFN TOP$20,<104B8+10000+C$DISPLAY>	
    DISPLAY>	
 -i  @ END .(9 "02	
      I"PFN TOP$10,<PUSHJ "p17,RMS$10##+C$ERA#SE>	
      IFN T#0OP$20,<104B8+1000#P+C$ERASE>	
    C$ERASE>	
    4P 4*2P 4*yP 4+P 4+P 4,}P 4=P 4I;P 4\Y h!@
	$$CODE(.EXBAS,.EXCTR,A,B)
.EXCTR,A,4h1P 4kPP 4kxP 4l}P 56 h >
IF1,<
	$$AB==C$D
(	F$$B==<XX$G>B5H ! <XX$F>B11 ! XhX$E	
  >	;END OF IF1
>	;END O5TP 5R h0.K	
      IhPFN TOP$10,<PUSHJ hp17,RMS$10##+C$FINiD>	
      IFN TOi0P$20,<104B8+1000+C$FIND>	
0s+5)WP 5+VP 5M9 
0FN,TOI10,<PUSHJU
      IFN TOP$20,<104B8+10000+C$FLUSH>	
    C$FLUSH>	
    5\WP 5\YP 5h6P 5|SP 6(:P 6)2 'P2E	
      I'pFN TOP$10,<PUSHJ (17,RMS$10##+C$FRE(0E>	
      IFN TO(PP$20,<104B8+1000+C$FREE>	
    +6)HP 6)IP 6)JP 6)VP 69P 6:P 6=P 6=P 6N8P 71P <] Sp-'	
      ITFN TOP$10,<PUSHJ T017,RMS$10##+C$GETTP>	
      IFN TOPTp$20,<104B8+1000+C$GET>	
    0+CN;v A,
	T$$PS==A(F$$A_-^D30		
	TAH$$SZ==<F$$A_-^D2Ah4> & 77	
	T$$OF=B=F$$A & 777777	
$A& 777777	DEFINE B<A>DEFINE B<l H!FA$MAX==.hABASE + .ACTR - 1SE + .ACTR - l\y 01	
      IPFN TOP$10,<PUSHJ p17,RMS$10##+C$MESSAGE>	
      IFN0 TOP$20,<104B8+10P00+C$MESSAGE>	
    MESSAGE>	
 t]p (("F
	IFNB <(hB>,<C$$A==B>
>,<C$$A==B>
t]{ !x
	DEFINE C$$A<B>		
E u{2 p1I	
      IFN TOP$10,<PUSHJ 017,RMS$10##+C$NOMPESSAGE>	
      IpFN TOP$20,<104B8+1000+C$NOMESSAGE>	
    MESSAGE>~	7 DH,	
      ID(FN TOP$10,<PUSHJ Ch17,RMS$10##+C$OPECHN>	
      IFN TOBHP$20,<104B8+1000+C$OPEN>	
    +] Xp-O	
      IYFN TOP$10,<PUSHJ Y017,RMS$10##+C$PUTYP>	
      IFN TOPYp$20,<104B8+1000+C$PUT>	
    0+C*2P *zP +P =P [ p0I	
      IFN TOP$10,<PUSHJ 017,RMS$10##+C$RELPEASE>	
      IFNp TOP$20,<104B8+10	00+C$RELEASE>	
    RELEASE>	
 [P h1P tP 8SP <SP <}P LwP XSP 2P (1P (SP )PP +xP ,HP ,IP ,IP ,JP ,}P =P =P XSP \}P X` (!4
	$$CODE(H.SUBAS,.SUCTR,A,B)
.SUCTR,A,V H `
	FB$ALL=h=FB$GET+FB$PUT+FB	$DEL+FB$UPD+FB$TR	(N

	
	$$ASSUME	H(FB$SEQ,0)		;FILE	h ORG MUST BE GTR 
ZERO
	$$ASSUME(R
(B$SEQ,0,0)		;RECO
HRD ACCESS MUST ST
hART AT ZERO
	$$ASSUME(XB$KEY,0,0)(		;KEY XAB MUST BHE FIRST
	$$ASSUMhE(XB$STG,0,0)		;S
TRING DATA-TYPE SHOULD BE ZERO
&-7 m0.u	
      ImPFN TOP$10,<PUSHJ mp17,RMS$10##+C$TRUnNCATE>	
   IFn0N TOP$20,<104B8+1nP000+C$TRUNCATE>	
,\RUNCATE>	
	$$CODE((.ERBAS,.ERCTR,A,B)
.ERCTR,A,.	 ]p-y	
      I^FN TOP$10,<PUSHJ ^017,RMS$10##+C$UPD^PATE>	
      IFN ^pTOP$20,<104B8+100_0+C$UPDATE>	
    $UPDATE>	
   .K ,P2o	
      I,pFN TOP$10,<PUSHJ -17,RMS$10##+C$UTL-0INT>	
      IFN -PTOP$20,<104B8+100-p0+C$UTLINT>	
    $UTLINT>	
   4[R H!.			
  IF2h,<
	OPDEF	RM$MIN [104B8+1000]	;MI(NIMUM JSYS  VALUEH
	OPDEF	RM$MAX [h104B8+1000+XX$MAX]
  >				
MAX4\Q ! 		
    C$(A==XX$MAX		
   H DEFINE $$A(A)<h	
      IFN TOP$10,<PUSHJ 17,RMS$(10##+C$A>	
    H  IFN TOP$20,<104hB8+1000+C$A>	
    >
    DEFINE ($A(.BLK1,.ERRAD,H.NLARG),<
	IFB <h.BLK1>,<IF1,<PRINTX %ARGBLK ADDRES(S OMIITED ON A MHACRO>>
	XMOVEI	1h, .BLK1
	IFNB <.NLARG>,<IF1,<PRIN(TX %MORE THAN 2 AHRGS DETECTED IN hA MACRO>>
	$$A			
	IFNB <.ERRAD(>,<JUMP 17,.ERRADH>
	IFB <.ERRAD>,h<JUMP 16,.+1>	
    >
  XX$MAX==XX$MAX+1		
X==X5T 
	XX$MAX==0		

	XX$MD2P D*2P D*}P D+P D9P D;rP DH7P DIVP DMP DYP DkP E7P EVP E;VP EH7P EkpP EkuP EnP 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 T\W 5+0
	SETZM	5(A			
	MOVEI	2,A5H			
	MOVEI	1,1(25h)			
	HRLI	1,A	6		
	BLT	1,B-1(2)		
T	1,B-1(2	e|r P0-
	IFB <APP>,<IF1,<PRINTX %APpRGBLK ADDRESS OMIQITED ON CLOSE MACQ0RO>>
	XMOVEI	1, QPA
	IFNB <C>,<IQpF1,<PRINTX %MORE RTHAN 2 ARGS DETECR0TED IN CLOSE MACRRPO>>
	$$CLOSE			
	IFNB <B>,<JUMPS 17,B>
	IFB <BS0>,<JUMP 16,.+1>	
	}k16,.+1>	
	IFB <AtP>,<IF1,<PRINTX %AtpRGBLK ADDRESS OMIuITED ON CONNECT Mu0ACRO>>
	XMOVEI	1uP, A
	IFNB <C>,up<IF1,<PRINTX %MORvE THAN 2 ARGS DETv0ECTED IN CONNECT vPMACRO>>
	$$CONNEvpCT			
	IFNB <B>w,<JUMP 17,B>
	Iw0FB <B>,<JUMP 16,.+1>	
     16,	X: 0
	IFB <A0>,<IF1,<PRINTX %APRGBLK ADDRESS OMIpITED ON CREATE MACRO>>
	XMOVEI	1,0 A
	IFNB <C>,<PIF1,<PRINTX %MOREp THAN 2 ARGS DETECTED IN CREATE MA0CRO>>
	$$CREATE	P		
	IFNB <B>,<JpUMP 17,B>
	IFB <B>,<JUMP 16,.+1>	
     16,.+1	,-3 00;
	IFB <AP>,<IF1,<PRINTX %ApRGBLK ADDRESS OMIITED ON DEBUG MAC0RO>>
	XMOVEI	1, PA
	IFNB <C>,<IpF1,<PRINTX %MORE THAN 2 ARGS DETEC0TED IN DEBUG MACRPO>>
	$$DEBUG			
	IFNB <B>,<JUMP 17,B>
	IFB <B0>,<JUMP 16,.+1>	
	-I16,.+1>	
	IFB <Ae>,<IF1,<PRINTX %Ae0RGBLK ADDRESS OMIePITED ON DELETE MAepCRO>>
	XMOVEI	1,f A
	IFNB <C>,<f0IF1,<PRINTX %MOREfP THAN 2 ARGS DETEfpCTED IN DELETE MAgCRO>>
	$$DELETE	g0		
	IFNB <B>,<JgPUMP 17,B>
	IFB gp<B>,<JUMP 16,.+1>	
     16,.+1	N8w yp/i
	IFB <Az>,<IF1,<PRINTX %Az0RGBLK ADDRESS OMIzPITED ON DISCONNECzpT MACRO>>
	XMOVE{I	1, A
	IFNB <{0C>,<IF1,<PRINTX %{PMORE THAN 2 ARGS {pDETECTED IN DISCO|NNECT MACRO>>
	$|0$DISCONNECT			
	|PIFNB <B>,<JUMP 1|p7,B>
	IFB <B>,}<JUMP 16,.+1>	
     16,.+1>	
 	N< p2
	IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPITED ON DISPLAY MpACRO>>
	XMOVEI	1 , A
	IFNB <C>, 0<IF1,<PRINTX %MOR PE THAN 2 ARGS DET pECTED IN DISPLAY !MACRO>>
	$$DISPL!0AY			
	IFNB <B>!P,<JUMP 17,B>
	I!pFB <B>,<JUMP 16,.+1>	
     16,	r $29
	IFB <A$0>,<IF1,<PRINTX %A$PRGBLK ADDRESS OMI$pITED ON ERASE MAC%RO>>
	XMOVEI	1, %0A
	IFNB <C>,<I%PF1,<PRINTX %MORE %pTHAN 2 ARGS DETEC&TED IN ERASE MACR&0O>>
	$$ERASE			
	IFNB <B>,<JUMP&p 17,B>
	IFB <B'>,<JUMP 16,.+1>	
	.H16,.+1>	
	$$ISOL(7HB)			
	IFE <T$$7hSZ-^D18>,<		
	8(8  IFE T$$PS,<			
		HRRZ A,T$$OF+8HC
		T$$SZ==0		
	    >
	    IFE9 <T$$PS-^D18>,<		9(
		HLRZ A,T$$OF9H+C
		T$$SZ==0		9h
	    >
	>
	IF:E <T$$SZ-^D36>,<	:(	
		MOVE A,T$$O:HF+C
		T$$SZ==0	:h	
	>
	IFN T$$SZ;,<			
		LDB A,[;(<T$$PS>B5 ! <T$$S;HZ>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ 6h+6[F$$A+B][F$$A+B]	Mi ip.g
	IFB <Aj>,<IF1,<PRINTX %Aj0RGBLK ADDRESS OMIjPITED ON FIND MACRjpO>>
	XMOVEI	1, kA
	IFNB <C>,<IFk01,<PRINTX %MORE TkPHAN 2 ARGS DETECTkpED IN FIND MACRO>l>
	$$FIND			
	Il0FNB <B>,<JUMP 17lP,B>
	IFB <B>,<lpJUMP 16,.+1>	
     16,.+1>	
  	f\t p1
	IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPITED ON FLUSH MACpRO>>
	XMOVEI	1, A
	IFNB <C>,<I0F1,<PRINTX %MORE PTHAN 2 ARGS DETECpTED IN FLUSH MACRO>>
	$$FLUSH			
	IFNB <B>,<JUMPP 17,B>
	IFB <Bp>,<JUMP 16,.+1>	
	Y16,.+1>	
	IFB <A)0>,<IF1,<PRINTX %A)PRGBLK ADDRESS OMI)pITED ON FREE MACR*O>>
	XMOVEI	1, *0A
	IFNB <C>,<IF*P1,<PRINTX %MORE T*pHAN 2 ARGS DETECT+ED IN FREE MACRO>+0>
	$$FREE			
	I+PFNB <B>,<JUMP 17+p,B>
	IFB <B>,<,JUMP 16,.+1>	
     16,.+1>	
  	.@ U0-C
	IFB <AUP>,<IF1,<PRINTX %AUpRGBLK ADDRESS OMIVITED ON GET MACROV0>>
	XMOVEI	1, AVP
	IFNB <C>,<IF1Vp,<PRINTX %MORE THWAN 2 ARGS DETECTEW0D IN GET MACRO>>
	$$GET			
	IFNBWp <B>,<JUMP 17,BX>
	IFB <B>,<JUMX0P 16,.+1>	
     16,.+1>	
    	&u 33			
	PUSH2PJ 17,$$RMS##	
	.30REQUIRE SYS:RMSINI	
)%BAD REC	6.<p 19
	IFB <A0>,<IF1,<PRINTX %APRGBLK ADDRESS OMIpITED ON MESSAGE MACRO>>
	XMOVEI	10, A
	IFNB <C>,P<IF1,<PRINTX %MORpE THAN 2 ARGS DETECTED IN MESSAGE 0MACRO>>
	$$MESSAPGE			
	IFNB <B>p,<JUMP 17,B>
	IFB <B>,<JUMP 16,.+1>	
     16,	:}Y9 P1g
	IFB <Ap>,<IF1,<PRINTX %ARGBLK ADDRESS OMI0ITED ON NOMESSAGEP MACRO>>
	XMOVEIp	1, A
	IFNB <C>,<IF1,<PRINTX %M0ORE THAN 2 ARGS DPETECTED IN NOMESSpAGE MACRO>>
	$$NOMESSAGE			
	IFN0B <B>,<JUMP 17,PB>
	IFB <B>,<JUpMP 16,.+1>	
     16,.+1>	
    	?[@ C,q
	IFB <AC(>,<IF1,<PRINTX %AKPRGBLK ADDRESS OMIKpITED ON OPEN MACRLO>>
	XMOVEI	1, L0A
	IFNB <C>,<IFLP1,<PRINTX %MORE TLpHAN 2 ARGS DETECTMED IN OPEN MACRO>M0>
	$$OPEN			
	IMPFNB <B>,<JUMP 17Mp,B>
	IFB <B>,<NJUMP 16,.+1>	
     16,.+1>	
  	C.@ Z0-k
	IFB <AZP>,<IF1,<PRINTX %AZpRGBLK ADDRESS OMI[ITED ON PUT MACRO[0>>
	XMOVEI	1, A[P
	IFNB <C>,<IF1[p,<PRINTX %MORE TH\AN 2 ARGS DETECTE\0D IN PUT MACRO>>
	$$PUT			
	IFNB\p <B>,<JUMP 17,B]>
	IFB <B>,<JUM]0P 16,.+1>	
     16,.+1>	
    	J-I0 	P0e
	IFB <A	p>,<IF1,<PRINTX %A
RGBLK ADDRESS OMI
0ITED ON RELEASE M
PACRO>>
	XMOVEI	1
p, A
	IFNB <C>,<IF1,<PRINTX %MOR0E THAN 2 ARGS DETPECTED IN RELEASE pMACRO>>
	$$RELEA
SE			
	IFNB <B>
0,<JUMP 17,B>
	I
PFB <B>,<JUMP 16,.+1>	
     16,	J.M9 +2POPJ	17,	Jn0 33			
	PUSH2PJ 17,$$RMS##	
	.30REQUIRE SYS:RMSINI	
)%BAD REC	O%|R <,
	$$ISOL(<(B)			
	IFE <T$$<HSZ-^D18>,<		
	=<h  IFE T$$PS,<			
		HRRM A,T$$OF+=(C
		T$$SZ==0		
	    >
	    IFE=h <T$$PS-^D18>,<		>
		HRLM A,T$$OF>(+C
		T$$SZ==0		>H
	    >
	>
	IF>hE <T$$SZ-^D36>,<	?	
		MOVEM A,T$$?(OF+C
		T$$SZ==0?H		;INDIC INST GEN?h
	>
	IFN T$$SZ,@<			
		DPB A,[<@(T$$PS>B5 ! <T$$SZ@H>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q o/
	IFB <Ao0>,<IF1,<PRINTX %AoPRGBLK ADDRESS OMIopITED ON TRUNCATE pMACRO>>
	XMOVEI	p01, A
	IFNB <C>pP,<IF1,<PRINTX %MOppRE THAN 2 ARGS DEqTECTED IN TRUNCATq0E MACRO>>
	$$TRUqPNCATE			
	IFNB <qpB>,<JUMP 17,B>
	IFB <B>,<JUMP 16,.+1>	
     	WH: _P.
	IFB <A_p>,<IF1,<PRINTX %A`RGBLK ADDRESS OMI`0ITED ON UPDATE MA`PCRO>>
	XMOVEI	1,`p A
	IFNB <C>,<aIF1,<PRINTX %MOREa0 THAN 2 ARGS DETEaPCTED IN UPDATE MAapCRO>>
	$$UPDATE	b		
	IFNB <B>,<Jb0UMP 17,B>
	IFB bP<B>,<JUMP 16,.+1>	
     16,.+1	W%J7 .03
	IFB <A.P>,<IF1,<PRINTX %A.pRGBLK ADDRESS OMI/ITED ON UTLINT MA/0CRO>>
	XMOVEI	1,/P A
	IFNB <C>,</pIF1,<PRINTX %MORE0 THAN 2 ARGS DETE00CTED IN UTLINT MA0PCRO>>
	$$UTLINT	0p		
	IFNB <B>,<J1UMP 17,B>
	IFB 10<B>,<JUMP 16,.+1>	
     16,.+1: !X
	DEFINE (A$B(ARG)<
		IFH1,<PRINTX	%"A$Bh" RMS-11 ONLY, IGNORED BY RMS-20>
	>
YhRMS-20>H!^
	IRP A,h< ..BADF(F,A) >
.BADF(F,A)!>
	IRP A,H< ..BADF(R,A) >
.BADF(R,A)!>
	IRP A,(< ..BADF(X,A) >
.BADF(X,A)(>P#=P 2D(9P# D=P O,(9P O,=P >}{woP