Google
 

Trailing-Edge - PDP-10 Archives - BB-R775B-BM - subsys/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,5I@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$I6@#	KH$I;@#	KH$IV@#
KH$K@#
KH$K2@#KH$M@#KH$M8@#
KH$Y@#
KH$[s@#KH$i<@#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#0KH%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&LR@#,KH&LZ@#,KH&XS@#-KH&Y@#-KH&i9@#.KH&y9@#.KH'1@#/KH'v@#/K`%X<P#'L$2Q $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$h1Q HL$h1Q $HL$kQ HL$kPQ L$kxQ $HL%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%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 \L&)HQ L&)IQ L&)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&:Q HL&:=Q HL&=Q $HL&=Q HL&>HQ HL&>HQ HL&>IQ HL&>IQ HL&>JQ HL&>JQ HL&>KQ HL&>KQ H	L&XSQ L&\}Q HL'1Q HL
		IF1,<P$(RINTX	%"F$ALQ" RM$HS-11 ONLY, IGNORED BY RMS-20>
	L%",
		IF1,<P%(RINTX	%"F$ANB" RM%HS-11 ONLY, IGNORED BY RMS-20>
	L<` K$X$$NEWVAL (BKS,A)NEWVAL (LL` JH$T$$NEWVAL (BLS,A)NEWVAL (L>@ HH$D$$NEWVAL (BSZ,A)NEWVAL (LN KH$\$$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` DH$$$$NEWVAL (FAC,A)NEWVAL (L5h  FH$4$$NEWVAL (FNA,A)NEWVAL (L5l`  "
		IF1,<P (RINTX	%"F$FNS" RM HS-11 ONLY, IGNORED BY RMS-20>
	L5| EH$,$$NEWVAL (FOP,A)NEWVAL (L6>@ &"4
		IF1,<P&(RINTX	%"F$FSZ" RM&HS-11 ONLY, IGNORED BY RMS-20>
	LTk@ D$ $$NEWVAL (JFN,A)NEWVAL (LUk J$P$$NEWVAL (JNL,A)NEWVAL (Ld: '"<
		IF1,<P'(RINTX	%"F$LCH" RM'HS-11 ONLY, IGNORED BY RMS-20>
	Ln+@ H$@$$NEWVAL (MRN,A)NEWVAL (Ln,` GH$<$$NEWVAL (MRS,A)NEWVAL (L~)` F$0$$NEWVAL (ORG,A)NEWVAL (L G$8$$NEWVAL (RAT,A)NEWVAL (Lk  I$H$$NEWVAL (RFM,A)NEWVAL (LM@ #"
		IF1,<P#(RINTX	%"F$RTV" RM#HS-11 ONLY, IGNORED BY RMS-20>
	L
@ E$($$NEWVAL (SHR,A)NEWVAL (LD@ IH$L$$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)
		$$CURR (F,CTX)
	CURRMI  L%@
	IFNDEF L($$ADDR,<				
		<LH$$SET(BID)>_^D18 Lh! <$$SET(BLN)>
	M	<$$SET(STS)>^D1M(8 ! <$$SET(STV)>
		<$$SET(CTX)>
Mh		<$$SET(IFI)>_^DN18 ! <$$SET(JFN)>N(
		<$$SET(FAC)>_NH^D18 ! <$$SET(SHRNh)>
		<$$SET(FOP)O>_^D18 ! <$$SET(OO(RG)>_^D14 ! <$$SEOHT(BSZ)>_^D8 ! <$$OhSET(BLS)>
		<$$SPET(FNA)>
		<$$SEP(T(RAT)>_^D18 ! <$PH$SET(MRS)>
		<$$PhSET(MRN)>
		<$$SQET(BKS)>_^D5 ! <$Q($SET(RFM)>
		<$$QHSET(JNL)>_^D18 ! Qh<$$SET(XAB)>
		<R$$SET(DEV)>_^D18 R(! <$$SET(SDC)>
	RH	EXP 0,0,0,0
	>	Rh				;END IFNB
	ISFDEF $$ADDR,<
		S($$SET(BID)
		$$SSHET(BLN)
		$$SET(ShSTS)
		$$SET(STVT)
		$$SET(IFI)
T(		$$SET(JFN)
		$TH$SET(FAC)
		$$SEThT(SHR)
		$$SET(FUOP)
		$$SET(ORG)U(
		$$SET(FNA)
	UH	$$SET(RAT)
		$$UhSET(MRS)
		$$SETV(MRN)
		$$SET(BSV(Z)
		$$SET(RFM)
		$$SET(XAB)
		Vh$$SET(JNL)
		$$SWET(BLS)
		$$SET(W(BKS)
		$$SET(DEVWH)
		$$SET(SDC)
Wh		$$SET(CTX)
		PXURGE $$ADDR			
	>					
				
	MN@&-h*nP$$ZERO(A,FA$LNG)ERO(AM$P&M$+P&M$8vP&M$:3P&M$I6P&M$I[P&M$LUP$M$j<P$M$y:P$M%P$M%@P$M%LpP$M%YP%M%j6P%M%}:P%M&$M%kt@#$M%ky@#%M%ky@#%M%kz@#&M&	w@#&M&,}@#'M&[V@#'dN g&8 $$NEWVAL (CTX,A)NEWVAL d4@ `H& $$NEWVAL (FAB,A)NEWVAL d\)@ e&( $$NEWVAL (KBF,A)NEWVAL d^)@ d&  $$NEWVAL (KRF,A)NEWVAL d^>@ dH&$ $$NEWVAL (KSZ,A)NEWVAL df;@ fH&4 $$NEWVAL (LSN,A)NEWVAL dl)@ eH&, $$NEWVAL (MBF,A)NEWVAL d f&0 $$NEWVAL (PAD,A)NEWVAL d` a& $$NEWVAL (RAC,A)NEWVAL d)@ bH& $$NEWVAL (RBF,A)NEWVAL d@ H"@
		IF1,<P'hRINTX	%"R$RHB" RM(S-11 ONLY, IGNORED BY RMS-20>
	d| aH&
 $$NEWVAL (ROP,A)NEWVAL d>@ c& $$NEWVAL (RSZ,A)NEWVAL d,)@ b& $$NEWVAL (UBF,A)NEWVAL d.>@ cH& $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ XH&
	IFNB <XhA>,<
		$$MAPADD Y(A,$$ADDR);	; WIY(LL REFERENCE THE YHBLOCK VIA $$ADDR
		SYN SR$$RT,$$SZET
	>					
	IFBZ( <A>,<SYN SR$$CTZH,$$SET>	
		$$CURZhR (R,BID)
		$$CU[RR (R,BLN)
		$$C[(URR (R,STS)
		$$[HCURR (R,STV)
		$[h$CURR (R,ISI)
		\$$CURR (R,FAB)
	\(	$$CURR (R,RAC)
\H		$$CURR(R,ROP)$$NEWVAL (DFL,A)NEWVAL (p&L (0$$NEWVAL (DTP,A)NEWVAL (p,M H($$NEWVAL (EDT,A)NEWVAL (p5I` H(4$$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@ (8$$NEWVAL (IAN,A)NEWVAL (pLk (($$NEWVAL (IFL,A)NEWVAL (p]k  	(H$$NEWVAL (KNM,A)NEWVAL (pd@ (@$$NEWVAL (LAN,A)NEWVAL (pnJ )("N
		IF1,<P)HRINTX	%"X$MTH" RM)hS-11 ONLY, IGNORED BY RMS-20>
	pw($$NEWVAL (NXT,A)NEWVAL (p~{@ .("v
		IF1,<P.HRINTX	%"X$OWN" RM.hS-11 ONLY, IGNORED BY RMS-20>
	p|` 	H(b

		$$NE	hWARRVAL (PS0,A)

		$$NEWARRVAL (P
(S1,B)
		$$NEWAR
HRVAL (PS2,C)
		
h$$NEWARRVAL (PS3,D)
		$$NEWARRVA(L (PS4,E)
		$$NHEWARRVAL (PS5,F)h
		$$NEWARRVAL (
PS6,G)
		$$NEWA
(RRVAL (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@ H(D$$NEWVAL (REF,A)NEWVAL (p+@ 2(#
		IF1,<P2HRINTX	%"X$SBN" RM2hS-11 ONLY, IGNORED BY RMS-20>
	p@ 
h(|

		$$NEL (SZ0,A)
		$$NEWARRVAL (S
		$$NEWAR,C)
		$$NEWARRVAL (SZ3,(D)
		$$NEWARRVAHL (SZ4,E)
		$$NhEWARRVAL (SZ5,F)
		$$NEWARRVAL ((SZ6,G)
		$$NEWAHRRVAL (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@ sH(
	IFNB <shB>,<
		$$MAPADD t(B,$$ADDR)	
		St(YN SX$$RT,$$SET
tH	>					
	IFB <Bth>,<SYN SX$$CT,$$SuET>	
						
		Cu($$COD==XB$A		
	uH	C$$BLN==XA$SXA	uh	
						

		$$vCURR (X,BID)
		$v($CURR (X,RS1)
		vH$$CURR (X,NXT)
vh
						
		$$CURRw (X,CDT)
		$$CURw(R (X,RDT)
		$$CUwHRR (X,EDT)

			wh			
		$$CURR (X,xRS2)
		$$CURR (Xx(,AID)
		$$CURR (xHX,BKZ)

						
		$$CURR (X,IFL)y
		$$CURR (X,DFLy()
		$$CURR (X,DTyHP)
		$$CURR (X,FyhLG)
		$$CURR (X,zIAN)
		$$CURR (Xz(,DAN)
		$$CURR (zHX,LAN)
		$$CURR zh(X,REF)
		$$CURR{ (X,KNM)
		$$CUR{(R (X,RX0)
		$$CU{HRR (X,RX1)
		$$C{hURR (X,RX2)
		$$|CURR (X,RX3)
		$|($CURR (X,RX4)
		|H$$CURR (X,RX5)
	|h	$$CURR (X,PS0)
}		$$CURR (X,PS1)
		$$CURR (X,PS2)}H
		$$CURR (X,PS3}h)
		$$CURR (X,PS~4)
		$$CURR (X,P~(S5)
		$$CURR (X,~HPS6)
		$$CURR (X~h,PS7)
		$$CURR (X,SZ0)
		$$CURR ((X,SZ1)
		$$CURRH (X,SZ2)
		$$CURhR (X,SZ3)
		$$CURR (X,SZ4)
		$$C(URR (X,SZ5)
		$$HCURR (X,SZ6)
		$h$CURR (X,SZ7)
	
						
		$$CURR( (X,RS6)
		$$CURHR (X,NOK)
		$$CUhRR (X,NOA)
		$$CURR (X,RS7)
		$$(CURR (X,RS8)
		$H$CURR (X,RS9)
	CURR (X,RS9)
	qI  *j
	IFNDEF ($$ADDR,<
		<$$SEHT(BID)>_^D18 ! <$h$SET(BLN)>
		<$$SET(COD)>_^D18 ! (<$$SET(NXT)>
		IHFE <C$$COD-XB$DATh>,<
			<$$SET(CDT)>
			<$$SET(RD(T)>
			<$$SET(EDHT)>
		>
		IFE <hC$$COD-XB$ALL>,<
			<$$SET(AID)>_(^D9 ! <$$SET(BKZ)H>
			EXP 0,0,0
h		>
		IFE <C$$COD-XB$KEY>,<
			<($$SET(DTP)>_^D18 H! <$$SET(FLG)>
	h		<$$SET(IAN)>_^D27 ! <$$SET(DAN)>(_^D18 ! <$$SET(LAHN)>_^D9 ! <$$SET(hREF)>
			<$$SET(IFL)>_^D18 ! <$$S(ET(DFL)>
			<$$SHET(KNM)>
			EXP h0,0,0,0,0
			<$$SET(PS0)>_^D18 ! (<$$SET(SZ0)>
			H<$$SET(PS1)>_^D18h ! <$$SET(SZ1)>
			<$$SET(PS2)>_^(D18 ! <$$SET(SZ2)H>
			<$$SET(PS3)h>_^D18 ! <$$SET(SZ3)>
			<$$SET(P(S4)>_^D18 ! <$$SEHT(SZ4)>
			<$$SEhT(PS5)>_^D18 ! <$$SET(SZ5)>
			<$($SET(PS6)>_^D18 !H <$$SET(SZ6)>
		h	<$$SET(PS7)>^D18 ! <$$SET(SZ7)>
		>
		IFE <C$$CHOD-XB$SUM>,<
			h<$$SET(NOK)>_^D9 ! <$$SET(NOA)>
	(		EXP 0,0,0
		>
	>
	IFDEF $$ADDhR,<
		$$MAPADD (XABADDR,$$ADDR);	(; WILL REFERENCE HTHE BLOCK VIA $$AhDDR
							; STORE COMMON HEADER (FOR ALL XAB TYPESH
		$$SET(BID)
	h	$$SET(RS1)
		$$SET(COD)
		$$SET((NXT)
							; SHTORE REST OF XAB hDEPENDING ON IT'S  TYPE
		IFE <C$$ (COD-XB$DAT>,<
		 H$$NEWVAL(BLN,XA$S hXD)		
		$$SET(BL!N)
		$$SET(CDT)
		$$SET(RDT)
		!H$$SET(EDT)
		>
!h
		IFE <C$$COD-X"B$ALL>,<
		$$NEW"(VAL(BLN,XA$SXA)		"H
		$$SET(BLN)
	"h	$$SET(RS2)
		$$#SET(AID)
		$$SET#((BKZ)
		>

		I#HFE <C$$COD-XB$KEY#h>,<
		$$NEWVAL(B$LN,XA$SXK)		
		$$($SET(BLN)
		$$SE$HT(IFL)
		$$SET(D$hFL)
		$$SET(DTP)%
		$$SET(FLG)
	%(	$$SET(IAN)
		$$%HSET(DAN)
		$$SET%h(LAN)
		$$SET(RE&F)
		$$SET(KNM)
		$$SET(RX0)
		&H$$SET(RX1)
		$$S&hET(RX2)
		$$SET('RX3)
		$$SET(RX4'()
		$$SET(RX5)
'H
		$$SET(PS0)
	'h	$$SET(PS1)
		$$(SET(PS2)
		$$SET(((PS3)
		$$SET(PS(H4)
		$$SET(PS5)
		$$SET(PS6)
		)$$SET(PS7)

		$)($SET(SZ0)
		$$SE)HT(SZ1)
		$$SET(S)hZ2)
		$$SET(SZ3)*
		$$SET(SZ4)
	*(	$$SET(SZ5)
		$$*HSET(SZ6)
		$$SET*h(SZ7)
		>

		I+FE <C$$COD-XB$SUM+(>,<
		$$NEWVAL(B+HLN,XA$SXS)		
		$+h$SET(BLN)
		$$SE,T(RS6)
		$$SET(N,(OK)
		$$SET(NOA),H
		$$SET(RS7)
	,h	$$SET(RS8)
		$$-SET(RS9)
		>
		-(PURGE $$ADDR			
	>					
				
qN@ .h*x $$ZERO(A/,%NAME(XA$SX,B)) AME(XA$SX,B))q$P q$:P q$H:P q$M8P q$XQP q%
tP q%9<P q%X<P q%j6P q&:<P q&=P q&=6P 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`&IP q`&IP q`&JP 
q`&KP q`&hP q`& P q`&P q`& P q`&wP 	q`&zP q`&
2P 	q`&P 	q`&P q`&
@P q`&
zP 	q`&
{P5q`&4)P5q`&4)P5q`&4IP5q`&4KP6P 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(3 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 Hx,Q	
      IIFN TOP$10,<PUSHJ I817,RMS$10##+C$CLOIXSE>	
      IFN TIxOP$20,<104B8+1000J+C$CLOSE>	
    C$CLOSE>	
    y (!L
	C=A+HB		
	B==B+1			

	B==B+1			{W l8.m	
      IlXFN TOP$10,<PUSHJ lx17,RMS$10##+C$CONmNECT>	
      IFNm8 TOP$20,<104B8+10mX00+C$CONNECT>	
    CONNECT>	
 )0 qX/C	
      Iw8FN TOP$10,<PUSHJ wX17,RMS$10##+C$CREwxATE>	
      IFN xTOP$20,<104B8+100x80+C$CREATE>	
    $CREATE>	
   \Y h!nPURGE C$$BPURGE C$$$XZ |8/m	
      I|XFN TOP$10,<PUSHJ |x17,RMS$10##+C$DEB}UG>	
      IFN T}8OP$20,<104B8+1000}X+C$DEBUG>	
    C$DEBUG>	
    $[ \x-q	
      I]FN TOP$10,<PUSHJ ]817,RMS$10##+C$DEL]XETE>	
      IFN ]xTOP$20,<104B8+100^0+C$DELETE>	
    $DELETE>	
   %q qx/	
      IrFN TOP$10,<PUSHJ r817,RMS$10##+C$DISrXCONNECT>	
      rxIFN TOP$20,<104B8s+1000+C$DISCONNECT>	
    CONNEC%x 81A	
      IFN TOP$10,<PUSHJ 817,RMS$10##+C$DISXPLAY>	
      IFNx TOP$20,<104B8+1000+C$DISPLAY>	
    DISPLAY>	
 -i  @ END .(9 1k	
      I8FN TOP$10,<PUSHJ X17,RMS$10##+C$ERAxSE>	
      IFN TOP$20,<104B8+10008+C$ERASE>	
    C$ERASE>	
    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 56 h >
IF1,<
	$$AB==C$D
(	F$$B==<XX$G>B5H ! <XX$F>B11 ! XhX$E	
  >	;END OF IF1
>	;END O5TP 5R b.	
      Ib8FN TOP$10,<PUSHJ bX17,RMS$10##+C$FINbxD>	
      IFN TOcP$20,<104B8+1000+C$FIND>	
    +5)WP 5+VP 5M9 x0A	
      IFN TOP$10,<PUSHJ 817,RMS$10##+C$FLUXSH>	
      IFN TxOP$20,<104B8+1000+C$FLUSH>	
    C$FLUSH>	
    5\WP 5\YP 5|SP 6(:P 6)2 !82	
      I!XFN TOP$10,<PUSHJ !x17,RMS$10##+C$FRE"E>	
      IFN TO"8P$20,<104B8+1000+C$FREE>	
    +6)HP 6)HP 6)IP 6)IP 6)JP 6)VP 69P 6:P 6=P 6=P 71P <] N,y	
      IN8FN TOP$10,<PUSHJ NX17,RMS$10##+C$GETNx>	
      IFN TOPO$20,<104B8+1000+C$GET>	
    0+CN;v ;H+d
	T$$PS==;hF$$A_-^D30		
	T<$$SZ==<F$$A_-^D2<(4> & 77	
	T$$OF=<H=F$$A & 777777	
$A& 777777	DEFINE B<A>DEFINE B<l H!FA$MAX==.hABASE + .ACTR - 1SE + .ACTR - l\y 
0k	
      I
8FN TOP$10,<PUSHJ 
X17,RMS$10##+C$MES
xSAGE>	
0TOP$IFN104B8+10
    MESSAGE>	
 t]p (("F
	IFNB <(hB>,<C$$A==B>
>,<C$$A==B>
t]{ !x
	DEFINE C$$A<B>		
E u{2 X1	
      IxFN TOP$10,<PUSHJ 17,RMS$10##+C$NOM8ESSAGE>	
      IXFN TOP$20,<104B8+x1000+C$NOMESSAGE>	
    MESSAGE>~	7 =h+r	
      I=FN TOP$10,<PUSHJ =H17,RMS$10##+C$OPE>N>	
      IFN TO>(P$20,<104B8+1000+C$OPEN>	
    +] Rx-	
      ISFN TOP$10,<PUSHJ S817,RMS$10##+C$PUTSX>	
      IFN TOPSx$20,<104B8+1000+C$PUT>	
    0+C*2P *zP +P =P [ X0	
      IxFN TOP$10,<PUSHJ 17,RMS$10##+C$REL8EASE>	
      IFNX TOP$20,<104B8+10x00+C$RELEASE>	
    RELEASE>	
 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 g.C	
      Ig8FN TOP$10,<PUSHJ gX17,RMS$10##+C$TRUgxNCATE>	
   IFhN TOP$20,<104B8+1h8000+C$TRUNCATE>	
,\RUNCATE>	
	$$CODE((.ERBAS,.ERCTR,A,B)
.ERCTR,A,.	 WX-G	
      IWxFN TOP$10,<PUSHJ X17,RMS$10##+C$UPDX8ATE>	
      IFN XXTOP$20,<104B8+100Xx0+C$UPDATE>	
    $UPDATE>	
   .K &82=	
      I&XFN TOP$10,<PUSHJ &x17,RMS$10##+C$UTL'INT>	
      IFN '8TOP$20,<104B8+100'X0+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>>
	MOVEI	1,h .BLK1
	IFNB <.NLARG>,<IF1,<PRINT(X %MORE THAN 2 ARHGS DETECTED IN Ah MACRO>>
	$$A			
	IFNB <.ERRAD>(,<JUMP 17,.ERRAD>H
	IFB <.ERRAD>,<hJUMP 16,.+1>	
    >
  XX$MAX==XX$MAX+1		
X==XX5T 
	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 /H+
	SETZM	/hA			
	MOVEI	2,A0			
	MOVEI	1,1(20()			
	HRLI	1,A	0H		
	BLT	1,B-1(2)		
T	1,B-1(2	e|r JX,m
	IFB <AJx>,<IF1,<PRINTX %AKRGBLK ADDRESS OMIK8ITED ON CLOSE MACKXRO>>
	MOVEI	1, KxA
	IFNB <C>,<IFL1,<PRINTX %MORE TL8HAN 2 ARGS DETECTLXED IN CLOSE MACROLx>>
	$$CLOSE			
M	IFNB <B>,<JUMP M817,B>
	IFB <B>MX,<JUMP 16,.+1>	
     16,.+1>	
	}kR n/	
	IFB <An8>,<IF1,<PRINTX %AnXRGBLK ADDRESS OMInxITED ON CONNECT MoACRO>>
	MOVEI	1,o8 A
	IFNB <C>,<oXIF1,<PRINTX %MOREox THAN 2 ARGS DETEpCTED IN CONNECT Mp8ACRO>>
	$$CONNECpXT			
	IFNB <B>,px<JUMP 17,B>
	IFqB <B>,<JUMP 16,.+1>	
     16,.	X: xx/_
	IFB <Ay>,<IF1,<PRINTX %Ay8RGBLK ADDRESS OMIyXITED ON CREATE MAyxCRO>>
	MOVEI	1, zA
	IFNB <C>,<Iz8F1,<PRINTX %MORE zXTHAN 2 ARGS DETECzxTED IN CREATE MAC{RO>>
	$$CREATE		{8	
	IFNB <B>,<JU{XMP 17,B>
	IFB <{xB>,<JUMP 16,.+1>	
     16,.+1>	,-3 ~0	
	IFB <A~8>,<IF1,<PRINTX %A~XRGBLK ADDRESS OMI~xITED ON DEBUG MACRO>>
	MOVEI	1, 8A
	IFNB <C>,<IFX1,<PRINTX %MORE TxHAN 2 ARGS DETECTED IN DEBUG MACRO8>>
	$$DEBUG			
X	IFNB <B>,<JUMP x17,B>
	IFB <B>,<JUMP 16,.+1>	
     16,.+1>	
	-I: ^X.
	IFB <A^x>,<IF1,<PRINTX %A_RGBLK ADDRESS OMI_8ITED ON DELETE MA_XCRO>>
	MOVEI	1, _xA
	IFNB <C>,<I`F1,<PRINTX %MORE `8THAN 2 ARGS DETEC`XTED IN DELETE MAC`xRO>>
	$$DELETE		a	
	IFNB <B>,<JUa8MP 17,B>
	IFB <aXB>,<JUMP 16,.+1>	
     16,.+1>	N8w sX/7
	IFB <Asx>,<IF1,<PRINTX %AtRGBLK ADDRESS OMIt8ITED ON DISCONNECtXT MACRO>>
	MOVEItx	1, A
	IFNB <Cu>,<IF1,<PRINTX %Mu8ORE THAN 2 ARGS DuXETECTED IN DISCONuxNECT MACRO>>
	$$vDISCONNECT			
	Iv8FNB <B>,<JUMP 17vX,B>
	IFB <B>,<vxJUMP 16,.+1>	
     16,.+1>	
  	N< X1]
	IFB <Ax>,<IF1,<PRINTX %ARGBLK ADDRESS OMI8ITED ON DISPLAY MXACRO>>
	MOVEI	1,x A
	IFNB <C>,<IF1,<PRINTX %MORE8 THAN 2 ARGS DETEXCTED IN DISPLAY MxACRO>>
	$$DISPLAY			
	IFNB <B>,8<JUMP 17,B>
	IFXB <B>,<JUMP 16,.+1>	
     16,.	r x2
	IFB <A>,<IF1,<PRINTX %A8RGBLK ADDRESS OMIXITED ON ERASE MACxRO>>
	MOVEI	1, A
	IFNB <C>,<IF81,<PRINTX %MORE TXHAN 2 ARGS DETECTxED IN ERASE MACRO >>
	$$ERASE			
 8	IFNB <B>,<JUMP  X17,B>
	IFB <B> x,<JUMP 16,.+1>	
     16,.+1>	
	.Ht 1h+0
	$$ISOL(2B)			
	IFE <T$$2(SZ-^D18>,<		
	2h2H  IFE T$$PS,<			
		HRRZ A,T$$OF+3C
		T$$SZ==0		
	    >
	    IFE3H <T$$PS-^D18>,<		3h
		HLRZ A,T$$OF4+C
		T$$SZ==0		4(
	    >
	>
	IF4HE <T$$SZ-^D36>,<	4h	
		MOVE A,T$$O5F+C
		T$$SZ==0	5(	
	>
	IFN T$$SZ5H,<			
		LDB A,[5h<T$$PS>B5 ! <T$$S6Z>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ 1(+
[F$$A+B][F$$A+B]	Mi cX.5
	IFB <Acx>,<IF1,<PRINTX %AdRGBLK ADDRESS OMId8ITED ON FIND MACRdXO>>
	MOVEI	1, Adx
	IFNB <C>,<IF1e,<PRINTX %MORE THe8AN 2 ARGS DETECTEeXD IN FIND MACRO>>ex
	$$FIND			
	IFfNB <B>,<JUMP 17,f8B>
	IFB <B>,<JfXUMP 16,.+1>	
     16,.+1>	
   	f\t X0]
	IFB <Ax>,<IF1,<PRINTX %A	RGBLK ADDRESS OMI	8ITED ON FLUSH MAC	XRO>>
	MOVEI	1, 	xA
	IFNB <C>,<IF
1,<PRINTX %MORE T
8HAN 2 ARGS DETECT
XED IN FLUSH MACRO
x>>
	$$FLUSH			
	IFNB <B>,<JUMP 817,B>
	IFB <B>X,<JUMP 16,.+1>	
     16,.+1>	
	Y  "x2/
	IFB <A#>,<IF1,<PRINTX %A#8RGBLK ADDRESS OMI#XITED ON FREE MACR#xO>>
	MOVEI	1, A$
	IFNB <C>,<IF1$8,<PRINTX %MORE TH$XAN 2 ARGS DETECTE$xD IN FREE MACRO>>%
	$$FREE			
	IF%8NB <B>,<JUMP 17,%XB>
	IFB <B>,<J%xUMP 16,.+1>	
     16,.+1>	
   	.@ OX-
	IFB <AOx>,<IF1,<PRINTX %APRGBLK ADDRESS OMIP8ITED ON GET MACROPX>>
	MOVEI	1, A
	IFNB <C>,<IF1,Q<PRINTX %MORE THAQ8N 2 ARGS DETECTEDQX IN GET MACRO>>
Qx	$$GET			
	IFNB R<B>,<JUMP 17,B>R8
	IFB <B>,<JUMP 16,.+1>	
    	&u ,2o			
	PUSH,xJ 17,$$RMS##	
	.-xREQUIRE SYS:RMSINI	
)%BAD REC	6.<p 
	IFB <A>,<IF1,<PRINTX %A8RGBLK ADDRESS OMIXITED ON MESSAGE MxACRO>>
	MOVEI	1, A
	IFNB <C>,<8IF1,<PRINTX %MOREX THAN 2 ARGS DETExCTED IN MESSAGE MACRO>>
	$$MESSAG8E			
	IFNB <B>,X<JUMP 17,B>
	IFxB <B>,<JUMP 16,.+1>	
     16,.	:}Y9 815
	IFB <AX>,<IF1,<PRINTX %AxRGBLK ADDRESS OMIITED ON NOMESSAGE8 MACRO>>
	MOVEI	X1, A
	IFNB <C>x,<IF1,<PRINTX %MORE THAN 2 ARGS DE8TECTED IN NOMESSAXGE MACRO>>
	$$NOxMESSAGE			
	IFNB <B>,<JUMP 17,B8>
	IFB <B>,<JUMXP 16,.+1>	
     16,.+1>	
    	?[@ >h,C
	IFB <A?>,<IF1,<PRINTX %AExRGBLK ADDRESS OMIFITED ON OPEN MACRF8O>>
	MOVEI	1, AFX
	IFNB <C>,<IF1Fx,<PRINTX %MORE THGAN 2 ARGS DETECTEG8D IN OPEN MACRO>>GX
	$$OPEN			
	IFGxNB <B>,<JUMP 17,HB>
	IFB <B>,<JH8UMP 16,.+1>	
     16,.+1>	
   	C.@ T8-9
	IFB <ATX>,<IF1,<PRINTX %ATxRGBLK ADDRESS OMIUITED ON PUT MACROU8>>
	MOVEI	1, A
	IFNB <C>,<IF1,Ux<PRINTX %MORE THAVN 2 ARGS DETECTEDV8 IN PUT MACRO>>
VX	$$PUT			
	IFNB Vx<B>,<JUMP 17,B>W
	IFB <B>,<JUMP 16,.+1>	
    	J-I0 803
	IFB <AX>,<IF1,<PRINTX %AxRGBLK ADDRESS OMIITED ON RELEASE M8ACRO>>
	MOVEI	1,X A
	IFNB <C>,<xIF1,<PRINTX %MORE THAN 2 ARGS DETE8CTED IN RELEASE MXACRO>>
	$$RELEASxE			
	IFNB <B>,<JUMP 17,B>
	IF8B <B>,<JUMP 16,.+1>	
     16,.	J.M9 +POPJ	17,	Jn0 ,2o			
	PUSH,xJ 17,$$RMS##	
	.-xREQUIRE SYS:RMSINI	
)%BAD REC	O%|R 6H+X
	$$ISOL(6hB)			
	IFE <T$$7SZ-^D18>,<		
	7H7(  IFE T$$PS,<			
		HRRM A,T$$OF+7hC
		T$$SZ==0		
	    >
	    IFE8( <T$$PS-^D18>,<		8H
		HRLM A,T$$OF8h+C
		T$$SZ==0		9
	    >
	>
	IF9(E <T$$SZ-^D36>,<	9H	
		MOVEM A,T$$9hOF+C
		T$$SZ==0:		;INDIC INST GEN:(
	>
	IFN T$$SZ,:H<			
		DPB A,[<:hT$$PS>B5 ! <T$$SZ;>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q hx._
	IFB <Ai>,<IF1,<PRINTX %Ai8RGBLK ADDRESS OMIiXITED ON TRUNCATE ixMACRO>>
	MOVEI	1j, A
	IFNB <C>,j8<IF1,<PRINTX %MORjXE THAN 2 ARGS DETjxECTED IN TRUNCATEk MACRO>>
	$$TRUNk8CATE			
	IFNB <kXB>,<JUMP 17,B>
kx	IFB <B>,<JUMP 16,.+1>	
     1	WH: Y8-c
	IFB <AYX>,<IF1,<PRINTX %AYxRGBLK ADDRESS OMIZITED ON UPDATE MAZ8CRO>>
	MOVEI	1, ZXA
	IFNB <C>,<IZxF1,<PRINTX %MORE [THAN 2 ARGS DETEC[8TED IN UPDATE MAC[XRO>>
	$$UPDATE		[x	
	IFNB <B>,<JU\MP 17,B>
	IFB <\8B>,<JUMP 16,.+1>	
     16,.+1>	W%J7 (2Y
	IFB <A(8>,<IF1,<PRINTX %A(XRGBLK ADDRESS OMI(xITED ON UTLINT MA)CRO>>
	MOVEI	1, )8A
	IFNB <C>,<I)XF1,<PRINTX %MORE )xTHAN 2 ARGS DETEC*TED IN UTLINT MAC*8RO>>
	$$UTLINT		*X	
	IFNB <B>,<JU*xMP 17,B>
	IFB <+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 0D(9P# D=P O,(9P O,=P >}{woP