Google
 
Trailing-Edge - PDP-10 Archives - bb-jr93k-bb - 10,7/rms10/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,UI@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,<P8RINTX	%"F$ALQ" RMXS-11 ONLY, IGNORED BY RMS-20>
	Lu
		IF1,<P8RINTX	%"F$ANB" RMXS-11 ONLY, IGNORED BY RMS-20>
	L<`VD!$$NEWVALA(BKS,A)NEWVAL(LL`VCX$$NEWVALA(BLS,A)NEWVAL(L>@ AX
		IF1,<P8RINTX	%"F$DNA" RMXS-11 ONLY, IGNORED BY RMS-20>
	L%l` ]
		IF1,<P8RINTX	%"F$DNS" RMXS-11 ONLY, IGNORED BY RMS-20>
	L4` =Xm$$NEWVAL (FAC,A)NEWVAL (L5h  ?X}$$NEWVAL (FNA,A)NEWVAL (L5l` M
		IF1,<P8RINTX	%"F$FNS" RMXS-11 ONLY, IGNORED BY RMS-20>
	L5| >Xu$$NEWVAL (FOP,A)NEWVAL (L6>@ }
		IF1,<P8RINTX	%"F$FSZ" RMXS-11 ONLY, IGNORED BY RMS-20>
	LTk@ =i$$NEWVAL (JFN,A)NEWVAL (LUk C$$NEWVAL (JNL,A)NEWVAL (Ld:  
		IF1,<P 8RINTX	%"F$LCH" RM XS-11 ONLY, IGNORED BY RMS-20>
	Ln+@ A	$$NEWVAL (MRN,A)NEWVAL (Ln,` @X$$NEWVAL (MRS,A)NEWVAL (L~)` ?y$$NEWVAL (ORG,A)NEWVAL (L @$$NEWVAL (RAT,A)NEWVAL (Lk  B$$NEWVAL (RFM,A)NEWVAL (LM@ e
		IF1,<P8RINTX	%"F$RTV" RMXS-11 ONLY, IGNORED BY RMS-20>
	L

@ >q$$NEWVAL (SHR,A)NEWVAL (LD@ BX$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ 4Xe
	IFNB <4xA>,<			;RUN-TIME 5INIT
		$$MAPADD 58(A,$$ADDR);	; WI5XLL REFERENCE FAB 5xVIA $$ADDR
		SYN6 SF$$RT,$$SET
	>68					
	IFB <A>,6X<SYN SF$$CT,$$SET6x>	
		$$CURR (F,B7ID)
		$$CURR (F,78BLN)
		$$CURR (F7X,STS)
		$$CURR (7xF,STV)
		$$CURR 8(F,IFI)
		$$CURR88 (F,JFN)
		$$CUR8XR (F,FAC)
		$$CU8xRR (F,SHR)
		$$C9URR (F,FOP)
		$$98CURR (F,ORG)
		$9X$CURR (F,FNA)
		9x$$CURR (F,RAT)
	:	$$CURR (F,MRS)
:8		$$CURR (F,MRN)
		$$CURR (F,BSZ):x
		$$CURR (F,RFM;)
		$$CURR (F,XA;8B)
		$$CURR (F,J;XNL)
		$$CURR (F,;xBLS)
		$$CURR (F<,BKS)
		$$CURR (<8F,DEV)
		$$CURR <X(F,SDC)
		$$CURR (F,CTX)
	CURRMI  E	
	IFNDEF E8$$ADDR,<				
		<EX$$SET(BID)>_^D18 Ex! <$$SET(BLN)>
	F	<$$SET(STS)>^D1F88 ! <$$SET(STV)>
		<$$SET(CTX)>
Fx		<$$SET(IFI)>_^DG18 ! <$$SET(JFN)>G8
		<$$SET(FAC)>_GX^D18 ! <$$SET(SHRGx)>
		<$$SET(FOP)H>_^D18 ! <$$SET(OH8RG)>_^D14 ! <$$SEHXT(BSZ)>_^D8 ! <$$HxSET(BLS)>
		<$$SIET(FNA)>
		<$$SEI8T(RAT)>_^D18 ! <$IX$SET(MRS)>
		<$$IxSET(MRN)>
		<$$SJET(BKS)>_^D5 ! <$J8$SET(RFM)>
		<$$JXSET(JNL)>_^D18 ! Jx<$$SET(XAB)>
		<K$$SET(DEV)>_^D18 K8! <$$SET(SDC)>
	KX	EXP 0,0,0,0
	>	Kx				;END IFNB
	ILFDEF $$ADDR,<
		L8$$SET(BID)
		$$SLXET(BLN)
		$$SET(LxSTS)
		$$SET(STVM)
		$$SET(IFI)
M8		$$SET(JFN)
		$MX$SET(FAC)
		$$SEMxT(SHR)
		$$SET(FNOP)
		$$SET(ORG)N8
		$$SET(FNA)
	NX	$$SET(RAT)
		$$NxSET(MRS)
		$$SETO(MRN)
		$$SET(BSO8Z)
		$$SET(RFM)
		$$SET(XAB)
		Ox$$SET(JNL)
		$$SPET(BLS)
		$$SET(P8BKS)
		$$SET(DEVPX)
		$$SET(SDC)
Px		$$SET(CTX)
		PQURGE $$ADDR			
	>					
				
	MN@&&x7P$$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 ` $$NEWVAL (CTX,A)NEWVAL d4@ YXM $$NEWVAL (FAB,A)NEWVAL d\)@ ^q $$NEWVAL (KBF,A)NEWVAL d^)@ ]i $$NEWVAL (KRF,A)NEWVAL d^>@ ]Xm $$NEWVAL (KSZ,A)NEWVAL df;@ X} $$NEWVAL (LSN,A)NEWVAL dl)@ ^Xu $$NEWVAL (MBF,A)NEWVAL d y $$NEWVAL (PAD,A)NEWVAL d` ZQ $$NEWVAL (RAC,A)NEWVAL d)@ [X] $$NEWVAL (RBF,A)NEWVAL d@ X	
		IF1,<P xRINTX	%"R$RHB" RM!S-11 ONLY, IGNORED BY RMS-20>
	d| ZXU $$NEWVAL (ROP,A)NEWVAL d>@ \a $$NEWVAL (RSZ,A)NEWVAL d,)@ [Y $$NEWVAL (UBF,A)NEWVAL d.>@ \Xe $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ QXI
	IFNB <QxA>,<
		$$MAPADD R(A,$$ADDR);	; WIR8LL REFERENCE THE RXBLOCK VIA $$ADDR
		SYN SR$$RT,$$SSET
	>					
	IFBS8 <A>,<SYN SR$$CTSX,$$SET>	
		$$CURSxR (R,BID)
		$$CUTRR (R,BLN)
		$$CT8URR (R,STS)
		$$TXCURR (R,STV)
		$Tx$CURR (R,ISI)
		U$$CURR (R,FAB)
	U8	$$CURR (R,RAC)
UX		$$CURR (R,ROP)
		$$CURR (R,UBF)V
		$$CURR (R,RBFV8)
		$$CURR (R,RSVXZ)
		$$CURR (R,UVxSZ)
		$$CURR (R,WRFA)
		$$CURR (RW8,KRF)
		$$CURR (WXR,KSZ)
		$$CURR Wx(R,KBF)
		$$CURRX (R,MBF)
		$$CURX8R (R,LSN)
		$$CUXXRR (R,BKT)
		$$CXxURR (R,PAD)
		$$YCURR (R,CTX)
	 URR (R,CTX)
	 eI  `Xa
	IFNDEF `x$$ADDR,<
		<$$SEaT(BID)>_^D18 ! <$a8$SET(BLN)>
		<$$aXSET(STS)>_^D18 ! ax<$$SET(STV)>
		<b$$SET(CTX)>
		<$b8$SET(ISI)>_^D18 !bX <$$SET(FAB)>
		bx<$$SET(RAC)>_^D27c ! <$$SET(MBF)>_^c8D18 ! <$$SET(ROP)cX>
		<$$SET(UBF)>cx
		<$$SET(RBF)>
		<$$SET(RSZ)>_^d8D18 ! <$$SET(USZ)dX>
		<$$SET(RFA)>dx
		<$$SET(KRF)>_e^D27 ! <$$SET(KSZe8)>_^D18 ! <$$SET(eXLSN)>
		<$$SET(KexBF)>
		<$$SET(BKfT)>
		<$$SET(PADf8)>_^D27
		EXP 0,fX0,0
	>				;IFNDEfxF
	IFDEF $$ADDR,g<
		$$SET(BID)
g8		$$SET(BLN)
		$gX$SET(STS)
		$$SEgxT(STV)
		$$SET(IhSI)
		$$SET(FAB)h8
		$$SET(RAC)
	hX	$$SET(ROP)
		$$hxSET(UBF)
		$$SETi(RBF)
		$$SET(RSi8Z)
		$$SET(USZ)
		$$SET(RFA)
		ix$$SET(KRF)
		$$SjET(KSZ)
		$$SET(j8KBF)
		$$SET(MBFjX)
		$$SET(LSN)
jx		$$SET(BKT)
		$k$SET(PAD)
		$$SEk8T(CTX)
		PURGE $kX$ADDR			;SO NEXT kxC/R DECIS CORRECTl
	>					;IFDEF
	>					;IFDEF
eN@ '8; $$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&xTP e4%X< 
e4%Z7 f$(` 8{ A$B==1BC  A$B==1Bf$H` ~xw A$B==^DC  A$B==^Df&8` ~8s A$B==C$D  A$B==Cg Hz /xIFDEF C$$0A,<C$$A> IFNDEF C$$A,<$$FA>F g LZ .X{
	    IFN.xDEF C$$A,<IFN $$/FA,<C$$A==$$FA/8>>
	    STO$$C(A)			
	TO$$C(gH Hz 1xIFDEF C$$2A,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ 0X
	    IFN0xDEF C$$A,<IFN $$1RA,<C$$A==$$RA18>>
	    STO$$C(A)			
	TO$$C(gRxA -q			
	-X  -8IFDEF C$$A,<			
		<HRREI 1,> ! C-x$$A		
		$STORE	.(1,A,$$ADDR)		
	    >
	R)		
gT$M8@ gT%@ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz 3x!IFDEF C$$4A,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ 2X
	    IFN2xDEF C$$A,<IFN $$3XA,<C$$A==$$XA38>>
	    STO$$C(A)			
	TO$$C(i?D(P$i?DHPpD,A)NEWVAL (p>@ }Xm$$NEWVAL (BKZ,A)NEWVAL (p$@ X$$NEWVAL (DAN,A)NEWVAL (p$k ~Xu$$NEWVAL (DFL,A)NEWVAL (p&L y$$NEWVAL (DTP,A)NEWVAL (p,M |Xe$$NEWVAL (EDT,A)NEWVAL (p5I` X}$$NEWVAL (FLG,A)NEWVAL (p>, (8G
		IF1,<P(XRINTX	%"X$GRP" RM(xS-11 ONLY, IGNORED BY RMS-20>
	pD #8
		IF1,<P#XRINTX	%"X$HAL" RM#xS-11 ONLY, IGNORED BY RMS-20>
	pL@ $$NEWVAL (IAN,A)NEWVAL (pLk ~q$$NEWVAL (IFL,A)NEWVAL (p]k  $$NEWVAL (KNM,A)NEWVAL (pd@ 	$$NEWVAL (LAN,A)NEWVAL (pnJ "8
		IF1,<P"XRINTX	%"X$MTH" RM"xS-11 ONLY, IGNORED BY RMS-20>
	pw|a$$NEWVAL (NXT,A)NEWVAL (p~{@ '8?
		IF1,<P'XRINTX	%"X$OWN" RM'xS-11 ONLY, IGNORED BY RMS-20>
	p|` X+

		$$NExWARRVAL (PS0,A)
		$$NEWARRVAL (P8S1,B)
		$$NEWARXRVAL (PS2,C)
		x$$NEWARRVAL (PS3,D)
		$$NEWARRVA8L (PS4,E)
		$$NXEWARRVAL (PS5,F)x
		$$NEWARRVAL (PS6,G)
		$$NEWA8RRVAL (PS7,H)
	VAL (PS7,H)
	p)` $8'
		IF1,<P$XRINTX	%"X$PRG" RM$xS-11 ONLY, IGNORED BY RMS-20>
	p*@ %8/
		IF1,<P%XRINTX	%"X$PRJ" RM%xS-11 ONLY, IGNORED BY RMS-20>
	pY@VXREF,A)NEWVAL (p+@ +8
		IF1,<P+XRINTX	%"X$SBN" RM+xS-11 ONLY, IGNORED BY RMS-20>
	p@ xE

		$$NEWARRVAL (SZ0,A)
		$$NEWARRVAL (SXZ1,B)
		$$NEWARxRVAL (SZ2,C)
		$$NEWARRVAL (SZ3,8D)
		$$NEWARRVAXL (SZ4,E)
		$$NxEWARRVAL (SZ5,F)
		$$NEWARRVAL (8SZ6,G)
		$$NEWAXRRVAL (SZ7,H)
	VAL (SZ7,H)
	p` &87
		IF1,<P&XRINTX	%"X$SYS" RM&xS-11 ONLY, IGNORED BY RMS-20>
	p5{ *8W
		IF1,<P*XRINTX	%"X$VOL" RM*xS-11 ONLY, IGNORED BY RMS-20>
	p=I )8O
		IF1,<P)XRINTX	%"X$WLD" RM)xS-11 ONLY, IGNORED BY RMS-20>
	pD.  ,8g
		IF1,<P,XRINTX	%"X$XBY" RM,xS-11 ONLY, IGNORED BY RMS-20>
	pT\WP q%KSP 	q&>P q&>P q&>P 	q&>P q&>P q&N8P qH@ lX]
	IFNB <lxB>,<
		$$MAPADD m(B,$$ADDR)	
		Sm8YN SX$$RT,$$SET
mX	>					
	IFB <Bmx>,<SYN SX$$CT,$$SnET>	
						
		Cn8$$COD==XB$A		
	nX	C$$BLN==XA$SXA	nx	
						

		$$oCURR (X,BID)
		$o8$CURR (X,RS1)
		oX$$CURR (X,NXT)
ox
						
		$$CURRp (X,CDT)
		$$CURp8R (X,RDT)
		$$CUpXRR (X,EDT)

			px			
		$$CURR (X,qRS2)
		$$CURR (Xq8,AID)
		$$CURR (qXX,BKZ)

						
		$$CURR (X,IFL)r
		$$CURR (X,DFLr8)
		$$CURR (X,DTrXP)
		$$CURR (X,FrxLG)
		$$CURR (X,sIAN)
		$$CURR (Xs8,DAN)
		$$CURR (sXX,LAN)
		$$CURR sx(X,REF)
		$$CURRt (X,KNM)
		$$CURt8R (X,RX0)
		$$CUtXRR (X,RX1)
		$$CtxURR (X,RX2)
		$$uCURR (X,RX3)
		$u8$CURR (X,RX4)
		uX$$CURR (X,RX5)
	ux	$$CURR (X,PS0)
v		$$CURR (X,PS1)
		$$CURR (X,PS2)vX
		$$CURR (X,PS3vx)
		$$CURR (X,PSw4)
		$$CURR (X,Pw8S5)
		$$CURR (X,wXPS6)
		$$CURR (Xwx,PS7)
		$$CURR (xX,SZ0)
		$$CURR x8(X,SZ1)
		$$CURRxX (X,SZ2)
		$$CURxxR (X,SZ3)
		$$CUyRR (X,SZ4)
		$$Cy8URR (X,SZ5)
		$$yXCURR (X,SZ6)
		$yx$CURR (X,SZ7)
	z
						
		$$CURRz8 (X,RS6)
		$$CURzXR (X,NOK)
		$$CUzxRR (X,NOA)
		$$C{URR (X,RS7)
		$${8CURR (X,RS8)
		${X$CURR (X,RS9)
	CURR (X,RS9)
	qI  	3
	IFNDEF 	8$$ADDR,<
		<$$SE	XT(BID)>_^D18 ! <$	x$SET(BLN)>
		<$$
SET(COD)>_^D18 ! 
8<$$SET(NXT)>
		I
XFE <C$$COD-XB$DAT
x>,<
			<$$SET(CDT)>
			<$$SET(RD8T)>
			<$$SET(EDXT)>
		>
		IFE <xC$$COD-XB$ALL>,<


			<$$SET(AID)>_

8^D9 ! <$$SET(BKZ)

X>
			EXP 0,0,0


x		>
		IFE$<C$$CO
			<T(DTP)>G^D18 
		<$$SET(IAN)>^D27 ! <$$SET(DAN)>8^D18 ! <$$SET(LAXN)>^D9 ! <$$SET(xREF)>
			<$$SET(IFL)>_^D18 ! <$$S8ET(DFL)>
			<$$SXET(KNM)>
			EXP x0,0,0,0,0
			<$$SET(PS0)>_^D18 ! 8<$$SET(SZ0)>
			X<$$SET(PS1)>_^D18x ! <$$SET(SZ1)>
			<$$SET(PS2)>_^8D18 ! <$$SET(SZ2)X>
			<$$SET(PS3)x>_^D18 ! <$$SET(SZ3)>
			<$$SET(P8S4)>_^D18 ! <$$SEXT(SZ4)>
			<$$SExT(PS5)>_^D18 ! <$$SET(SZ5)>
			<$8$SET(PS6)>_^D18 !X <$$SET(SZ6)>
		x	<$$SET(PS7)>^D18 ! <$$SET(SZ7)>
		>
		IFE <C$$CXOD-XB$SUM>,<
			x<$$SET(NOK)>_^D9 ! <$$SET(NOA)>
	8		EXP 0,0,0
		>
	>
	IFDEF $$ADDxR,<
		$$MAPADD (XABADDR,$$ADDR);	8; WILL REFERENCE XTHE BLOCK VIA $$AxDDR
							; STORE COMMON HEADER 8FOR ALL XAB TYPESX
		$$SET(BID)
	x	$$SET(RS1)
		$$SET(COD)
		$$SET8(NXT)
							; SXTORE REST OF XAB xDEPENDING ON IT'S TYPE
		IFE <C$$8COD-XB$DAT>,<
		X$$NEWVAL(BLN,XA$SxXD)		
		$$SET(BLN)
		$$SET(CDT)
		$$SET(RDT)
		X$$SET(EDT)
		>
x
		IFE <C$$COD-XB$ALL>,<
		$$NEW8VAL(BLN,XA$SXA)		X
		$$SET(BLN)
	x	$$SET(RS2)
		$$SET(AID)
		$$SET8(BKZ)
		>

		IXFE <C$$COD-XB$KEYx>,<
		$$NEWVAL(BLN,XA$SXK)		
		$8$SET(BLN)
		$$SEXT(IFL)
		$$SET(DxFL)
		$$SET(DTP)
		$$SET(FLG)
	8	$$SET(IAN)
		$$XSET(DAN)
		$$SETx(LAN)
		$$SET(REF)
		$$SET(KNM)
		$$SET(RX0)
		X$$SET(RX1)
		$$SxET(RX2)
		$$SET( RX3)
		$$SET(RX4 8)
		$$SET(RX5)
 X
		$$SET(PS0)
	 x	$$SET(PS1)
		$$!SET(PS2)
		$$SET!8(PS3)
		$$SET(PS!X4)
		$$SET(PS5)
		$$SET(PS6)
		"$$SET(PS7)

		$"8$SET(SZ0)
		$$SE"XT(SZ1)
		$$SET(S"xZ2)
		$$SET(SZ3)#
		$$SET(SZ4)
	#8	$$SET(SZ5)
		$$#XSET(SZ6)
		$$SET#x(SZ7)
		>

		I$FE <C$$COD-XB$SUM$8>,<
		$$NEWVAL(B$XLN,XA$SXS)		
		$$x$SET(BLN)
		$$SE%T(RS6)
		$$SET(N%8OK)
		$$SET(NOA)%X
		$$SET(RS7)
	%x	$$SET(RS8)
		$$&SET(RS9)
		>
		&8PURGE $$ADDR			
	>					
				
qN@ 'xA $$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 <z |o
	IFNB <|8B>,<IFL A-B,<PR|XINTX ?A HAS A VA|xLUE WHICH IS TOO }LOW>>
	IFNB <C>}8,<IFG A-C,<PRIN}XTX ?A HAS A VALU}xE WHICH IS TOO HIGH>>
IS TOO HIKy B	
      IB(FN TOP$10,<PUSHJ BH17,RMS$10##+C$CLOBhSE>	
      IFN TCOP$20,<104B8+1000C(+C$CLOSE>	
    C$CLOSE>	
    y 8
	C=A+XB		
	B==B+1			

	B==B+1			{W eH6	
      IehFN TOP$10,<PUSHJ f17,RMS$10##+C$CONf(NECT>	
      IFNfH TOP$20,<104B8+10fh00+C$CONNECT>	
    CONNECT>	
 )0 jh

	
      IpHFN TOP$10,<PUSHJ ph17,RMS$10##+C$CREqATE>	
      IFN q(TOP$20,<104B8+100qH0+C$CREATE>	
    $CREATE>	
   \Y x7PURGE C$$BPURGE C$$$XZ uH6	
      IuhFN TOP$10,<PUSHJ v17,RMS$10##+C$DEBv(UG>	
      IFN TvHOP$20,<104B8+1000vh+C$DEBUG>	
    C$DEBUG>	
    $[ V:	
      IV(FN TOP$10,<PUSHJ VH17,RMS$10##+C$DELVhETE>	
      IFN WTOP$20,<104B8+100W(0+C$DELETE>	
    $DELETE>	
   %q kb	
      Ik(FN TOP$10,<PUSHJ kH17,RMS$10##+C$DISkhCONNECT>	
      lIFN TOP$20,<104B8l(+1000+C$DISCONNECT>	
    CONNEC%x 
H!
	
      I(FN TOP$10,<PUSHJ H17,RMS$10##+C$DIShPLAY>	
      IFN TOP$20,<104B8+10(00+C$DISPLAY>	
    DISPLAY>	
 -i 	 END .(9 (!4	
      IHFN TOP$10,<PUSHJ h17,RMS$10##+C$ERASE>	
      IFN T(OP$20,<104B8+1000H+C$ERASE>	
    C$ERASE>	
    4*2P 4*yP 4+P 4+P 4,}P 4=P 4I;P 4\Y x	
	$$CODE(.EXBAS,.EXCTR,A,B)
.EXCTR,A,4h1P 4kPP 4kxP 56 x
IF1,<
	$$AB==C$D
8	F$$B==<XX$G>B5X ! <XX$F>B11 ! XxX$E	
  >	;END OF IF1
>	;END O5TP 5R [(b	
      I[HFN TOP$10,<PUSHJ [h17,RMS$10##+C$FIN\D>	
      IFN TO\(P$20,<104B8+1000+C$FIND>	
    +5)WP 5+VP 5M9  
	
      I(FN TOP$10,<PUSHJ H17,RMS$10##+C$FLUhSH>	
      IFN TOP$20,<104B8+1000(+C$FLUSH>	
    C$FLUSH>	
    5\WP 5\YP 5|SP 6(:P 6)2 H!\	
      IhFN TOP$10,<PUSHJ 17,RMS$10##+C$FRE(E>	
      IFN TOHP$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 <] G(B	
      IGHFN TOP$10,<PUSHJ Gh17,RMS$10##+C$GETH>	
      IFN TOPH($20,<104B8+1000+C$GET>	
    0+CN;v 4X-
	T$$PS==4xF$$A_-^D30		
	T5$$SZ==<F$$A_-^D2584> & 77	
	T$$OF=5X=F$$A & 777777	
$A& 777777	DEFINE B<A>DEFINE B<l XA$MAX==.xABASE + .ACTR - 1SE + .ACTR - l\y ( 4	
      IHFN TOP$10,<PUSHJ h17,RMS$10##+C$MESSAGE>	
      IFN( TOP$20,<104B8+10H00+C$MESSAGE>	
    MESSAGE>	
 t]p !8
	IFNB <!xB>,<C$$A==B>
>,<C$$A==B>
t]{ A
	DEFINE C$$A<B>		
E u{2 
h `	
      IFN TOP$10,<PUSHJ (17,RMS$10##+C$NOMHESSAGE>	
      IhFN TOP$20,<104B8+

1000+C$NOMESSAGE>	
    MESSAGE>~	7 6x;	
      I6FN TOP$10,<PUSHJ 6X17,RMS$10##+C$OPE7N>	
      IFN TO78P$20,<104B8+1000+C$OPEN>	
    +] Lh	
      IL(FN TOP$10,<PUSHJ LH17,RMS$10##+C$PUTLh>	
      IFN TOPM$20,<104B8+1000+C$PUT>	
    0+C*2P *zP +P =P [ zh`	
      I{FN TOP$10,<PUSHJ {(17,RMS$10##+C$REL{HEASE>	
      IFN{h TOP$20,<104B8+10|00+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` 8}
	$$CODE(X.SUBAS,.SUCTR,A,B)
.SUCTR,A,V X)
	FB$ALL=x=FB$GET+FB$PUT+FB$DEL+FB$UPD+FB$TR8N

	
	$$ASSUMEX(FB$SEQ,0)		;FILEx ORG MUST BE GTR ZERO
	$$ASSUME(R8B$SEQ,0,0)		;RECOXRD ACCESS MUST STxART AT ZERO
	$$ASSUME(XB$KEY,0,0)8		;KEY XAB MUST BXE FIRST
	$$ASSUMxE(XB$STG,0,0)		;STRING DATA-TYPE SHOULD BE ZERO
&-7 `(

	
      I`HFN TOP$10,<PUSHJ `h17,RMS$10##+C$TRUaNCATE>	
   IFa(N TOP$20,<104B8+1aH000+C$TRUNCATE>	
,\RUNCATE>	
	$$CODE(8.ERBAS,.ERCTR,A,B)
.ERCTR,A,.	 Ph	
      IQFN TOP$10,<PUSHJ Q(17,RMS$10##+C$UPDQHATE>	
      IFN QhTOP$20,<104B8+100R0+C$UPDATE>	
    $UPDATE>	
   .K H"	
      IhFN TOP$10,<PUSHJ  17,RMS$10##+C$UTL (INT>	
      IFN  HTOP$20,<104B8+100 h0+C$UTLINT>	
    $UTLINT>	
Xw4[R	
x,IF2
	OPDEF	RM$MIN [104B8+1000]	;MI8NIMUM JSYS  VALUEX
	OPDEF	RM$MAX [x104B8+1000+XX$MAX]
  >				
MAX4\Q i		
    C$8A==XX$MAX		
   X DEFINE $$A(A)<x	
      IFN TOP$10,<PUSHJ 17,RMS$810##+C$A>	
    X  IFN TOP$20,<104xB8+1000+C$A>	
 	   >
    DEFINE 	8$A(.BLK1,.ERRAD,	X.NLARG),<
	IFB <	x.BLK1>,<IF1,<PRIN
TX %ARGBLK ADDRES
8S OMIITED ON A M
XACRO>>
	MOVEI	1,
x .BLK1
	IFNB <.NLARG>,<IF1,<PRINT8X %MORE THAN 2 ARXGS DETECTED IN Ax MACRO>>
	$$A		

	
	IFNB <.ERRAD>

8,<JUMP 17,.ERRAD>

X
	IFB <.ERRAD>,<

xJUMP 16,.+1>	
 >
  XX$MAX==XX$MAX+1		
X==XX5T X5			
	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 (XM
	SETZM	(xA			
	MOVEI	2,A)			
	MOVEI	1,1(2)8)			
	HRLI	1,A	)X		
	BLT	1,B-1(2)		
T	1,B-1(2	e|r Ch6
	IFB <AD>,<IF1,<PRINTX %AD(RGBLK ADDRESS OMIDHITED ON CLOSE MACDhRO>>
	MOVEI	1, EA
	IFNB <C>,<IFE(1,<PRINTX %MORE TEHHAN 2 ARGS DETECTEhED IN CLOSE MACROF>>
	$$CLOSE			
F(	IFNB <B>,<JUMP FH17,B>
	IFB <B>Fh,<JUMP 16,.+1>	
     16,.+1>	
	}kR g(R
	IFB <AgH>,<IF1,<PRINTX %AghRGBLK ADDRESS OMIhITED ON CONNECT Mh(ACRO>>
	MOVEI	1,hH A
	IFNB <C>,<hhIF1,<PRINTX %MOREi THAN 2 ARGS DETEi(CTED IN CONNECT MiHACRO>>
	$$CONNECihT			
	IFNB <B>,j<JUMP 17,B>
	IFj(B <B>,<JUMP 16,.+1>	
     16,.	X: r(
	IFB <Ar(>,<IF1,<PRINTX %ArHRGBLK ADDRESS OMIrhITED ON CREATE MAsCRO>>
	MOVEI	1, s(A
	IFNB <C>,<IsHF1,<PRINTX %MORE shTHAN 2 ARGS DETECtTED IN CREATE MACt(RO>>
	$$CREATE		tH	
	IFNB <B>,<JUthMP 17,B>
	IFB <uB>,<JUMP 16,.+1>	
     16,.+1>	,-3 w(R
	IFB <AwH>,<IF1,<PRINTX %AwhRGBLK ADDRESS OMIxITED ON DEBUG MACx(RO>>
	MOVEI	1, xHA
	IFNB <C>,<IFxh1,<PRINTX %MORE TyHAN 2 ARGS DETECTy(ED IN DEBUG MACROyH>>
	$$DEBUG			
yh	IFNB <B>,<JUMP z17,B>
	IFB <B>z(,<JUMP 16,.+1>	
     16,.+1>	
	-I: WhV
	IFB <AX>,<IF1,<PRINTX %AX(RGBLK ADDRESS OMIXHITED ON DELETE MAXhCRO>>
	MOVEI	1, YA
	IFNB <C>,<IY(F1,<PRINTX %MORE YHTHAN 2 ARGS DETECYhTED IN DELETE MACZRO>>
	$$DELETE		Z(	
	IFNB <B>,<JUZHMP 17,B>
	IFB <ZhB>,<JUMP 16,.+1>	
     16,.+1>	N8w lh
	IFB <Am>,<IF1,<PRINTX %Am(RGBLK ADDRESS OMImHITED ON DISCONNECmhT MACRO>>
	MOVEIn	1, A
	IFNB <Cn(>,<IF1,<PRINTX %MnHORE THAN 2 ARGS DnhETECTED IN DISCONoNECT MACRO>>
	$$o(DISCONNECT			
	IoHFNB <B>,<JUMP 17oh,B>
	IFB <B>,<pJUMP 16,.+1>	
     16,.+1>	
  	N< h!&
	IFB <A>,<IF1,<PRINTX %A(RGBLK ADDRESS OMIHITED ON DISPLAY MhACRO>>
	MOVEI	1, A
	IFNB <C>,<(IF1,<PRINTX %MOREH THAN 2 ARGS DETEhCTED IN DISPLAY MACRO>>
	$$DISPLA(Y			
	IFNB <B>,H<JUMP 17,B>
	IFhB <B>,<JUMP 16,.+1>	
     16,.	r !P
	IFB <A(>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIhITED ON ERASE MACRO>>
	MOVEI	1, (A
	IFNB <C>,<IFH1,<PRINTX %MORE ThHAN 2 ARGS DETECTED IN ERASE MACRO(>>
	$$ERASE			
H	IFNB <B>,<JUMP h17,B>
	IFB <B>,<JUMP 16,.+1>	
     16,.+1>	
	.Ht *xy
	$$ISOL(+B)			
	IFE <T$$+8SZ-^D18>,<		
	+x+X  IFE T$$PS,<			
		HRRZ A,T$$OF+,C
		T$$SZ==0		
	    >
	    IFE,X <T$$PS-^D18>,<		,x
		HLRZ A,T$$OF-+C
		T$$SZ==0		-8
	    >
	>
	IF-XE <T$$SZ-^D36>,<	-x	
		MOVE A,T$$O.F+C
		T$$SZ==0	.8	
	>
	IFN T$$SZ.X,<			
		LDB A,[.x<T$$PS>B5 ! <T$$S/Z>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ *8S[F$$A+B][F$$A+B]	Mi \h~
	IFB <A]>,<IF1,<PRINTX %A](RGBLK ADDRESS OMI]HITED ON FIND MACR]hO>>
	MOVEI	1, A^
	IFNB <C>,<IF1^(,<PRINTX %MORE TH^HAN 2 ARGS DETECTE^hD IN FIND MACRO>>_
	$$FIND			
	IF_(NB <B>,<JUMP 17,_HB>
	IFB <B>,<J_hUMP 16,.+1>	
     16,.+1>	
   	f\t h &
	IFB <A>,<IF1,<PRINTX %A(RGBLK ADDRESS OMIHITED ON FLUSH MAChRO>>
	MOVEI	1, A
	IFNB <C>,<IF(1,<PRINTX %MORE THHAN 2 ARGS DETECThED IN FLUSH MACRO>>
	$$FLUSH			
(	IFNB <B>,<JUMP H17,B>
	IFB <B>h,<JUMP 16,.+1>	
     16,.+1>	
	Y  !x
	IFB <A(>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIhITED ON FREE MACRO>>
	MOVEI	1, A(
	IFNB <C>,<IF1H,<PRINTX %MORE THhAN 2 ARGS DETECTED IN FREE MACRO>>(
	$$FREE			
	IFHNB <B>,<JUMP 17,hB>
	IFB <B>,<JUMP 16,.+1>	
     16,.+1>	
   	.@ Hh\
	IFB <AI>,<IF1,<PRINTX %AI(RGBLK ADDRESS OMIIHITED ON GET MACROIh>>
	MOVEI	1, A
	IFNB <C>,<IF1,J(<PRINTX %MORE THAJHN 2 ARGS DETECTEDJh IN GET MACRO>>
K	$$GET			
	IFNB K(<B>,<JUMP 17,B>KH
	IFB <B>,<JUMP 16,.+1>	
    	&u %("8			
	PUSH&J 17,$$RMS##	
	.'REQUIRE SYS:RMSINI	
)%BAD REC	6.<p  P
	IFB <A(>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIhITED ON MESSAGE MACRO>>
	MOVEI	1,( A
	IFNB <C>,<HIF1,<PRINTX %MOREh THAN 2 ARGS DETE	CTED IN MESSAGE M	(ACRO>>
	$$MESSAG	HE			
	IFNB <B>,	h<JUMP 17,B>
	IF
B <B>,<JUMP 16,.+1>	
     16,.	:}Y9 

H ~
	IFB <A

h>,<IF1,<PRINTXO%A
	MOVEI	
	IFNB <C>,<IF1,<PRINTX %MO(RE THAN 2 ARGS DEHTECTED IN NOMESSAhGE MACRO>>
	$$NOMESSAGE			
	IFNB( <B>,<JUMP 17,BH>
	IFB <B>,<JUMhP 16,.+1>	
     16,.+1>	
    	?[@ 7x


	IFB <A8>,<IF1,<PRINTX %A?RGBLK ADDRESS OMI?(ITED ON OPEN MACR?HO>>
	MOVEI	1, A?h
	IFNB <C>,<IF1@,<PRINTX %MORE TH@(AN 2 ARGS DETECTE@HD IN OPEN MACRO>>@h
	$$OPEN			
	IFANB <B>,<JUMP 17,A(B>
	IFB <B>,<JAHUMP 16,.+1>	
     16,.+1>	
   	C.@ MH
	IFB <AMh>,<IF1,<PRINTX %ANRGBLK ADDRESS OMIN(ITED ON PUT MACRONH>>
	MOVEI	1, A
	IFNB <C>,<IF1,O<PRINTX %MORE THAO(N 2 ARGS DETECTEDOH IN PUT MACRO>>
Oh	$$PUT			
	IFNB P<B>,<JUMP 17,B>P(
	IFB <B>,<JUMP 16,.+1>	
    	J-I0 |H|
	IFB <A|h>,<IF1,<PRINTX %A}RGBLK ADDRESS OMI}(ITED ON RELEASE M}HACRO>>
	MOVEI	1,}h A
	IFNB <C>,<~IF1,<PRINTX %MORE~( THAN 2 ARGS DETE~HCTED IN RELEASE M~hACRO>>
	$$RELEASE			
	IFNB <B>,(<JUMP 17,B>
	IFHB <B>,<JUMP 16,.+1>	
     16,.	J.M9 OPOPJ	17,	Jn0 %("8			
	PUSH&J 17,$$RMS##	
	.'REQUIRE SYS:RMSINI	
)%BAD REC	O%|R /X!
	$$ISOL(/xB)			
	IFE <T$$0SZ-^D18>,<		
	0X08  IFE T$$PS,<			
		HRRM A,T$$OF+0xC
		T$$SZ==0		
	    >
	    IFE18 <T$$PS-^D18>,<		1X
		HRLM A,T$$OF1x+C
		T$$SZ==0		2
	    >
	>
	IF28E <T$$SZ-^D36>,<	2X	
		MOVEM A,T$$2xOF+C
		T$$SZ==03		;INDIC INST GEN38
	>
	IFN T$$SZ,3X<			
		DPB A,[<3xT$$PS>B5 ! <T$$SZ4>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q b(
	IFB <Ab(>,<IF1,<PRINTX %AbHRGBLK ADDRESS OMIbhITED ON TRUNCATE cMACRO>>
	MOVEI	1c(, A
	IFNB <C>,cH<IF1,<PRINTX %MORchE THAN 2 ARGS DETdECTED IN TRUNCATEd( MACRO>>
	$$TRUNdHCATE			
	IFNB <dhB>,<JUMP 17,B>
e	IFB <B>,<JUMP 16,.+1>	
     1	WH: RH,
	IFB <ARh>,<IF1,<PRINTX %ASRGBLK ADDRESS OMIS(ITED ON UPDATE MASHCRO>>
	MOVEI	1, ShA
	IFNB <C>,<ITF1,<PRINTX %MORE T(THAN 2 ARGS DETECTHTED IN UPDATE MACThRO>>
	$$UPDATE		U	
	IFNB <B>,<JUU(MP 17,B>
	IFB <UHB>,<JUMP 16,.+1>	
     16,.+1>	W%J7 !(""
	IFB <A!H>,<IF1,<PRINTX %A!hRGBLK ADDRESS OMI"ITED ON UTLINT MA"(CRO>>
	MOVEI	1, "HA
	IFNB <C>,<I"hF1,<PRINTX %MORE #THAN 2 ARGS DETEC#(TED IN UTLINT MAC#HRO>>
	$$UTLINT		#h	
	IFNB <B>,<JU$MP 17,B>
	IFB <$(B>,<JUMP 16,.+1>	
     16,.+1>: !
	DEFINE 8A$B(ARG)<
		IFX1,<PRINTX	%"A$Bx" RMS-11 ONLY, IGNORED BY RMS-20>
	>
YhRMS-20>X'
	IRP A,x< ..BADF(F,A) >
.BADF(F,A)>
	IRP A,X< ..BADF(R,A) >
.BADF(R,A)>
	IRP A,8< ..BADF(X,A) >
.BADF(X,A)(>P#=P 0D(9P# D=P O,(9P O,=P >}{woP