Google
 

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - cobol/source/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!8RINTX	%"F$ALQ" RM!XS-11 ONLY, IGNORED BY RMS-20>
	L""
		IF1,<P"8RINTX	%"F$ANB" RM"XS-11 ONLY, IGNORED BY RMS-20>
	L<` H$A$$NEWVAL (BKS,A)NEWVAL (LL` GX$=$$NEWVAL (BLS,A)NEWVAL (L>@ EX$-$$NEWVAL (BSZ,A)NEWVAL (LN HX$E$$NEWVAL (CTX,A)NEWVAL (L%h  !u
		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`VAX$FAC,A)NEWVAL (L5h  CX$$$NEWVAL (FNA,A)NEWVAL (L5l` !m
		IF1,<P8RINTX	%"F$FNS" RMXS-11 ONLY, IGNORED BY RMS-20>
	L5| BX$$$NEWVAL (FOP,A)NEWVAL (L6>@ #"
		IF1,<P#8RINTX	%"F$FSZ" RM#XS-11 ONLY, IGNORED BY RMS-20>
	LTk@ A$	$$NEWVAL (JFN,A)NEWVAL (LUk G$9$$NEWVAL (JNL,A)NEWVAL (Ld: $"%
		IF1,<P$8RINTX	%"F$LCH" RM$XS-11 ONLY, IGNORED BY RMS-20>
	Ln+@ E$)$$NEWVAL (MRN,A)NEWVAL (Ln,` DX$%$$NEWVAL (MRS,A)NEWVAL (L~)` C$$$NEWVAL (ORG,A)NEWVAL (L D$!$$NEWVAL (RAT,A)NEWVAL (Lk  F$1$$NEWVAL (RFM,A)NEWVAL (LM@  "
		IF1,<P 8RINTX	%"F$RTV" RM XS-11 ONLY, IGNORED BY RMS-20>
	L
@ B$$$NEWVAL (SHR,A)NEWVAL (LD@ FX$5$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ 8X$
	IFNB <8xA>,<			;RUN-TIME 9INIT
		$$MAPADD 98(A,$$ADDR);	; WI9XLL REFERENCE FAB 9xVIA $$ADDR
		SYN: SF$$RT,$$SET
	>:8					
	IFB <A>,:X<SYN SF$$CT,$$SET:x>	
		$$CURR (F,B;ID)
		$$CURR (F,;8BLN)
		$$CURR (F;X,STS)
		$$CURR (;xF,STV)
		$$CURR <(F,IFI)
		$$CURR<8 (F,JFN)
		$$CUR<XR (F,FAC)
		$$CU<xRR (F,SHR)
		$$C=URR (F,FOP)
		$$=8CURR (F,ORG)
		$=X$CURR (F,FNA)
		=x$$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  I%)
	IFNDEF I8$$ADDR,<				
		<IX$$SET(BID)>_^D18 Ix! <$$SET(BLN)>
	J	<$$SET(STS)>^D1J88 ! <$$SET(STV)>
		<$$SET(CTX)>
Jx		<$$SET(IFI)>_^DK18 ! <$$SET(JFN)>K8
		<$$SET(FAC)>_KX^D18 ! <$$SET(SHRKx)>
		<$$SET(FOP)L>_^D18 ! <$$SET(OL8RG)>_^D14 ! <$$SELXT(BSZ)>_^D8 ! <$$LxSET(BLS)>
		<$$SMET(FNA)>
		<$$SEM8T(RAT)>_^D18 ! <$MX$SET(MRS)>
		<$$MxSET(MRN)>
		<$$SNET(BKS)>_^D5 ! <$N8$SET(RFM)>
		<$$NXSET(JNL)>_^D18 ! Nx<$$SET(XAB)>
		<O$$SET(DEV)>_^D18 O8! <$$SET(SDC)>
	OX	EXP 0,0,0,0
	>	Ox				;END IFNB
	IPFDEF $$ADDR,<
		P8$$SET(BID)
		$$SPXET(BLN)
		$$SET(PxSTS)
		$$SET(STVQ)
		$$SET(IFI)
Q8		$$SET(JFN)
		$QX$SET(FAC)
		$$SEQxT(SHR)
		$$SET(FROP)
		$$SET(ORG)R8
		$$SET(FNA)
	RX	$$SET(RAT)
		$$RxSET(MRS)
		$$SETS(MRN)
		$$SET(BSS8Z)
		$$SET(RFM)
		$$SET(XAB)
		Sx$$SET(JNL)
		$$STET(BLS)
		$$SET(T8BKS)
		$$SET(DEVTX)
		$$SET(SDC)
Tx		$$SET(CTX)
		PUURGE $$ADDR			
	>					
				
	MN@&*x*WP$$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@#'dNLd&!$$NEWVAL (CTX,A)NEWVAL d4@ ]X%m $$NEWVAL (FAB,A)NEWVAL d\)@ b& $$NEWVAL (KBF,A)NEWVAL d^)@ a&	 $$NEWVAL (KRF,A)NEWVAL d^>@ aX&
		IF1,<P$xRINTX	%"R$RHB" RM%S-11 ONLY, IGNORED BY RMS-20>
	d| ^X%u $$NEWVAL (ROP,A)NEWVAL d>@ `& $$NEWVAL (RSZ,A)NEWVAL d,)@ _%y $$NEWVAL (UBF,A)NEWVAL d.>@ `X& $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ UX%i
	IFNB <UxA>,<
		$$MAPADD V(A,$$ADDR);	; WIV8LL REFERENCE THE VXBLOCK VIA $$ADDR
		SYN SR$$RT,$$SWET
	>					
	IFBW8 <A>,<SYN SR$$CTWX,$$SET>	
		$$CURWxR (R,BID)
		$$CUXRR (R,BLN)
		$$CX8URR (R,STS)
		$$XXCURR (R,STV)
		$Xx$CURR (R,ISI)
		Y$$CURR (R,FAB)
	Y8	$$CURR (R,RAC)
YX		$$CURR(R,ROP)$$NEWVAL (DFL,A)NEWVAL (p&L ($$NEWVAL (DTP,A)NEWVAL (p,M X($$NEWVAL (EDT,A)NEWVAL (p5I` X($$NEWVAL (FLG,A)NEWVAL (p>, ,8"g
		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 ($$NEWVAL (IFL,A)NEWVAL (p]k  (1$$NEWVAL (KNM,A)NEWVAL (pd@ ()$$NEWVAL (LAN,A)NEWVAL (pnJ &8"7
		IF1,<P&XRINTX	%"X$MTH" RM&xS-11 ONLY, IGNORED BY RMS-20>
	pw($$NEWVAL (NXT,A)NEWVAL (p~{@ +8"
		IF1,<P+XRINTX	%"X$OWN" RM+xS-11 ONLY, IGNORED BY RMS-20>
	p|` X(K

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

		$$NE
WARRVAL (SZ0,A)
8
		$$NEWARRVAL (S
XZ1,B)
		$$NEWAR
xRVAL (SZ2,C)
		$$NEWARRVAL (SZ3,8D)
		$$NEWARRVAXL (SZ4,E)
		$$NxEWARRVAL (SZ5,F)

		$$NEWARRVAL (
8SZ6,G)
		$$NEWA
XRRVAL (SZ7,H)
	VAL (SZ7,H)
	p` *8"W
		IF1,<P*XRINTX	%"X$SYS" RM*xS-11 ONLY, IGNORED BY RMS-20>
	p5{ .8"w
		IF1,<P.XRINTX	%"X$VOL" RM.xS-11 ONLY, IGNORED BY RMS-20>
	p=I -8"o
		IF1,<P-XRINTX	%"X$WLD" RM-xS-11 ONLY, IGNORED BY RMS-20>
	pD.  08#
		IF1,<P0XRINTX	%"X$XBY" RM0xS-11 ONLY, IGNORED BY RMS-20>
	pT\WP q%KSP 	q&>P q&>P q&>P 	q&>P q&>P q&N8P qH@ pX'}
	IFNB <pxB>,<
		$$MAPADD q(B,$$ADDR)	
		Sq8YN SX$$RT,$$SET
qX	>					
	IFB <Bqx>,<SYN SX$$CT,$$SrET>	
						
		Cr8$$COD==XB$A		
	rX	C$$BLN==XA$SXA	rx	
						

		$$sCURR (X,BID)
		$s8$CURR (X,RS1)
		sX$$CURR (X,NXT)
sx
						
		$$CURRt (X,CDT)
		$$CURt8R (X,RDT)
		$$CUtXRR (X,EDT)

			tx			
		$$CURR (X,uRS2)
		$$CURR (Xu8,AID)
		$$CURR (uXX,BKZ)

						
		$$CURR (X,IFL)v
		$$CURR (X,DFLv8)
		$$CURR (X,DTvXP)
		$$CURR (X,FvxLG)
		$$CURR (X,wIAN)
		$$CURR (Xw8,DAN)
		$$CURR (wXX,LAN)
		$$CURR wx(X,REF)
		$$CURRx (X,KNM)
		$$CURx8R (X,RX0)
		$$CUxXRR (X,RX1)
		$$CxxURR (X,RX2)
		$$yCURR (X,RX3)
		$y8$CURR (X,RX4)
		yX$$CURR (X,RX5)
	yx	$$CURR (X,PS0)
z		$$CURR (X,PS1)
		$$CURR (X,PS2)zX
		$$CURR (X,PS3zx)
		$$CURR (X,PS{4)
		$$CURR (X,P{8S5)
		$$CURR (X,{XPS6)
		$$CURR (X{x,PS7)
		$$CURR (|X,SZ0)
		$$CURR |8(X,SZ1)
		$$CURR|X (X,SZ2)
		$$CUR|xR (X,SZ3)
		$$CU}RR (X,SZ4)
		$$C}8URR (X,SZ5)
		$$}XCURR (X,SZ6)
		$}x$CURR (X,SZ7)
	~
						
		$$CURR~8 (X,RS6)
		$$CUR~XR (X,NOK)
		$$CU~xRR (X,NOA)
		$$CURR (X,RS7)
		$$8CURR (X,RS8)
		$X$CURR (X,RS9)
	CURR (X,RS9)
	qI 
	IFNDEF,
		<$$SEN^D18 ! <$
		<$$SET(COD)>_^D18 ! 8<$$SET(NXT)>
		IXFE <C$$COD-XB$DATx>,<
			<$$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$$COD-XB$KEY>,<
			<8$$SET(DTP)>_^D18 X! <$$SET(FLG)>
	x		<$$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)
		$$SET 8(BKZ)
		>

		I XFE <C$$COD-XB$KEY x>,<
		$$NEWVAL(B!LN,XA$SXK)		
		$!8$SET(BLN)
		$$SE!XT(IFL)
		$$SET(D!xFL)
		$$SET(DTP)"
		$$SET(FLG)
	"8	$$SET(IAN)
		$$"XSET(DAN)
		$$SET"x(LAN)
		$$SET(RE#F)
		$$SET(KNM)
		$$SET(RX0)
		#X$$SET(RX1)
		$$S#xET(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@ +x*a $$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  
	IFNB <8B>,<IFL A-B,<PRXINTX ?A HAS A VAxLUE WHICH IS TOO LOW>>
	IFNB <C>8,<IFG A-C,<PRINXTX ?A HAS A VALUxE WHICH IS TOO HIGH>>
IS TOO HIKy F,:	
      IF(FN TOP$10,<PUSHJ FH17,RMS$10##+C$CLOFhSE>	
      IFN TGOP$20,<104B8+1000G(+C$CLOSE>	
    C$CLOSE>	
    y 8!5
	C=A+XB		
	B==B+1			

	B==B+1			{W iH.V	
      IihFN TOP$10,<PUSHJ j17,RMS$10##+C$CONj(NECT>	
      IFNjH TOP$20,<104B8+10jh00+C$CONNECT>	
    CONNECT>	
 )0 nh/,	
      ItHFN TOP$10,<PUSHJ th17,RMS$10##+C$CREuATE>	
      IFN u(TOP$20,<104B8+100uH0+C$CREATE>	
    $CREATE>	
   \Y x!WPURGE C$$BPURGE C$$$XZ yH/V	
      IyhFN TOP$10,<PUSHJ z17,RMS$10##+C$DEBz(UG>	
      IFN TzHOP$20,<104B8+1000zh+C$DEBUG>	
    C$DEBUG>	
    $[ Z-Z	
      IZ(FN TOP$10,<PUSHJ ZH17,RMS$10##+C$DELZhETE>	
      IFN [TOP$20,<104B8+100[(0+C$DELETE>	
    $DELETE>	
   %q o/	
      Io(FN TOP$10,<PUSHJ oH17,RMS$10##+C$DISohCONNECT>	
      pIFN TOP$20,<104B8p(+1000+C$DISCONNECT>	
    CONNEC%x H1*	
      I(FN TOP$10,<PUSHJ H17,RMS$10##+C$DIShPLAY>	
      IFN TOP$20,<104B8+10(00+C$DISPLAY>	
    DISPLAY>	
 -i  ) END .(9 (1T	
      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 _(.	
      I_HFN TOP$10,<PUSHJ _h17,RMS$10##+C$FIN`D>	
      IFN TO`(P$20,<104B8+1000+C$FIND>	
    +5)WP 5+VP 5M9 0*	
      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 H1|	
      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 <] K(,b	
      IKHFN TOP$10,<PUSHJ Kh17,RMS$10##+C$GETL>	
      IFN TOPL($20,<104B8+1000+C$GET>	
    0+CN;v 8X+M
	T$$PS==8xF$$A_-^D30		
	T9$$SZ==<F$$A_-^D2984> & 77	
	T$$OF=9X=F$$A & 777777	
$A& 777777	DEFINE B<A>DEFINE B<l X!/A$MAX==.xABASE + .ACTR - 1SE + .ACTR - l\y 	(0T	
      I	HFN TOP$10,<PUSHJ 	h17,RMS$10##+C$MES
SAGE>	
      IFN
( TOP$20,<104B8+10
H00+C$MESSAGE>	
    MESSAGE>	
 t]p %8"/
	IFNB <%xB>,<C$$A==B>
>,<C$$A==B>
t]{ !a
	DEFINE C$$A<B>		
E u{2 h1	
      IFN TOP$10,<PUSHJ (17,RMS$10##+C$NOMHESSAGE>	
      IhFN TOP$20,<104B8+1000+C$NOMESSAGE>	
    MESSAGE>~	7 :x+[	
      I:FN TOP$10,<PUSHJ :X17,RMS$10##+C$OPE;N>	
      IFN TO;8P$20,<104B8+1000+C$OPEN>	
    +] P-	
      IP(FN TOP$10,<PUSHJ PH17,RMS$10##+C$PUTPh>	
      IFN TOPQ$20,<104B8+1000+C$PUT>	
    0+C*2P *zP +P =P [ ~h0	
      IFN TOP$10,<PUSHJ (17,RMS$10##+C$RELHEASE>	
      IFNh TOP$20,<104B8+1000+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 I
	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)		;S	TRING DATA-TYPE SHOULD BE ZERO
&-7 d(.,	
      IdHFN TOP$10,<PUSHJ dh17,RMS$10##+C$TRUeNCATE>	
   IFe(N TOP$20,<104B8+1eH000+C$TRUNCATE>	
,\RUNCATE>	
	$$CODE(8.ERBAS,.ERCTR,A,B)
.ERCTR,A,.	 Th-0	
      IUFN TOP$10,<PUSHJ U(17,RMS$10##+C$UPDUHATE>	
      IFN UhTOP$20,<104B8+100V0+C$UPDATE>	
    $UPDATE>	
   .K #H2&	
      I#hFN TOP$10,<PUSHJ $17,RMS$10##+C$UTL$(INT>	
      IFN $HTOP$20,<104B8+100$h0+C$UTLINT>	
    $UTLINT>	
   4[R X!			
  IF2x,<
	OPDEF	RM$MIN [104B8+1000]	;MI8NIMUM JSYS  VALUEX
	OPDEF	RM$MAX [x104B8+1000+XX$MAX]
  >				
MAX4\Q !			
    C$8A==XX$MAX		
   X DEFINE $$A(A)<x	
      IFN TOP$
10,<PUSHJ 17,RMS$
810##+C$A>	
    
X  IFN TOP$20,<104
xB8+1000+C$A>	
  >
8$ADEFINE,ERRAD,
	IFBK<,<IF1,<PRINTX %ARGBLK ADDRES8S OMIITED ON A MXACRO>>
	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 
X U			
	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 ,X*m
	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 Gh,V
	IFB <AH>,<IF1,<PRINTX %AH(RGBLK ADDRESS OMIHHITED ON CLOSE MACHhRO>>
	MOVEI	1, IA
	IFNB <C>,<IFI(1,<PRINTX %MORE TIHHAN 2 ARGS DETECTIhED IN CLOSE MACROJ>>
	$$CLOSE			
J(	IFNB <B>,<JUMP JH17,B>
	IFB <B>Jh,<JUMP 16,.+1>	
     16,.+1>	
	}kR k(.r
	IFB <AkH>,<IF1,<PRINTX %AkhRGBLK ADDRESS OMIlITED ON CONNECT Ml(ACRO>>
	MOVEI	1,lH A
	IFNB <C>,<lhIF1,<PRINTX %MOREm THAN 2 ARGS DETEm(CTED IN CONNECT MmHACRO>>
	$$CONNECmhT			
	IFNB <B>,n<JUMP 17,B>
	IFn(B <B>,<JUMP 16,.+1>	
     16,.	X: v/H
	IFB <Av(>,<IF1,<PRINTX %AvHRGBLK ADDRESS OMIvhITED ON CREATE MAwCRO>>
	MOVEI	1, w(A
	IFNB <C>,<IwHF1,<PRINTX %MORE whTHAN 2 ARGS DETECxTED IN CREATE MACx(RO>>
	$$CREATE		xH	
	IFNB <B>,<JUxhMP 17,B>
	IFB <yB>,<JUMP 16,.+1>	
     16,.+1>	,-3 {(/r
	IFB <A{H>,<IF1,<PRINTX %A{hRGBLK ADDRESS OMI|ITED ON DEBUG MAC|(RO>>
	MOVEI	1, |HA
	IFNB <C>,<IF|h1,<PRINTX %MORE T}HAN 2 ARGS DETECT}(ED IN DEBUG MACRO}H>>
	$$DEBUG			
}h	IFNB <B>,<JUMP ~17,B>
	IFB <B>~(,<JUMP 16,.+1>	
     16,.+1>	
	-I: [h-v
	IFB <A\>,<IF1,<PRINTX %A\(RGBLK ADDRESS OMI\HITED ON DELETE MA\hCRO>>
	MOVEI	1, ]A
	IFNB <C>,<I](F1,<PRINTX %MORE ]HTHAN 2 ARGS DETEC]hTED IN DELETE MAC^RO>>
	$$DELETE		^(	
	IFNB <B>,<JU^HMP 17,B>
	IFB <^hB>,<JUMP 16,.+1>	
     16,.+1>	N8w ph/ 
	IFB <Aq>,<IF1,<PRINTX %Aq(RGBLK ADDRESS OMIqHITED ON DISCONNECqhT MACRO>>
	MOVEIr	1, A
	IFNB <Cr(>,<IF1,<PRINTX %MrHORE THAN 2 ARGS DrhETECTED IN DISCONsNECT MACRO>>
	$$s(DISCONNECT			
	IsHFNB <B>,<JUMP 17sh,B>
	IFB <B>,<tJUMP 16,.+1>	
     16,.+1>	
  	N< h1F
	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 1p
	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 .x+
	$$ISOL(/B)			
	IFE <T$$/8SZ-^D18>,<		
	/x/X  IFE T$$PS,<			
		HRRZ A,T$$OF+0C
		T$$SZ==0		
	    >
	    IFE0X <T$$PS-^D18>,<		0x
		HLRZ A,T$$OF1+C
		T$$SZ==0		18
	    >
	>
	IF1XE <T$$SZ-^D36>,<	1x	
		MOVE A,T$$O2F+C
		T$$SZ==0	28	
	>
	IFN T$$SZ2X,<			
		LDB A,[2x<T$$PS>B5 ! <T$$S3Z>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ .8*s[F$$A+B][F$$A+B]	Mi `h.
	IFB <Aa>,<IF1,<PRINTX %Aa(RGBLK ADDRESS OMIaHITED ON FIND MACRahO>>
	MOVEI	1, Ab
	IFNB <C>,<IF1b(,<PRINTX %MORE THbHAN 2 ARGS DETECTEbhD IN FIND MACRO>>c
	$$FIND			
	IFc(NB <B>,<JUMP 17,cHB>
	IFB <B>,<JchUMP 16,.+1>	
     16,.+1>	
   	f\t h0F
	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   2
	IFB <A (>,<IF1,<PRINTX %A HRGBLK ADDRESS OMI hITED ON FREE MACR!O>>
	MOVEI	1, A!(
	IFNB <C>,<IF1!H,<PRINTX %MORE TH!hAN 2 ARGS DETECTE"D IN FREE MACRO>>"(
	$$FREE			
	IF"HNB <B>,<JUMP 17,"hB>
	IFB <B>,<J#UMP 16,.+1>	
     16,.+1>	
   	.@ Lh,|
	IFB <AM>,<IF1,<PRINTX %AM(RGBLK ADDRESS OMIMHITED ON GET MACROMh>>
	MOVEI	1, A
	IFNB <C>,<IF1,N(<PRINTX %MORE THANHN 2 ARGS DETECTEDNh IN GET MACRO>>
O	$$GET			
	IFNB O(<B>,<JUMP 17,B>OH
	IFB <B>,<JUMP 16,.+1>	
    	&u )(2X			
	PUSH*J 17,$$RMS##	
	.+REQUIRE SYS:RMSINI	
)%BAD REC	6.<p 0p
	IFB <A(>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIhITED ON MESSAGE M
ACRO>>
	MOVEI	1,
( A
	IFNB <C>,<
HIF1,<PRINTX %MORE
hCTHANI2 ARGSADETE
	$$MESSAG
	IFNBP<B>,>
	IFB <B>,<JUMP 16,.+1>	
     16,.	:}Y9 H1
	IFB <Ah>,<IF1,<PRINTX %ARGBLK ADDRESS OMI(ITED ON NOMESSAGEH MACRO>>
	MOVEI	h1, A
	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>	
    	?[@ ;x,,
	IFB <A<>,<IF1,<PRINTX %ACRGBLK ADDRESS OMIC(ITED ON OPEN MACRCHO>>
	MOVEI	1, ACh
	IFNB <C>,<IF1D,<PRINTX %MORE THD(AN 2 ARGS DETECTEDHD IN OPEN MACRO>>Dh
	$$OPEN			
	IFENB <B>,<JUMP 17,E(B>
	IFB <B>,<JEHUMP 16,.+1>	
     16,.+1>	
   	C.@ QH-"
	IFB <AQh>,<IF1,<PRINTX %ARRGBLK ADDRESS OMIR(ITED ON PUT MACRORH>>
	MOVEI	1, A
	IFNB <C>,<IF1,S<PRINTX %MORE THAS(N 2 ARGS DETECTEDSH IN PUT MACRO>>
Sh	$$PUT			
	IFNB T<B>,<JUMP 17,B>T(
	IFB <B>,<JUMP 16,.+1>	
    	J-I0 H0
	IFB <Ah>,<IF1,<PRINTX %ARGBLK ADDRESS OMI(ITED ON RELEASE MHACRO>>
	MOVEI	1,h A
	IFNB <C>,<IF1,<PRINTX %MORE( THAN 2 ARGS DETEHCTED IN RELEASE MhACRO>>
	$$RELEASE			
	IFNB <B>,(<JUMP 17,B>
	IFHB <B>,<JUMP 16,.+1>	
     16,.	J.M9 *oPOPJ	17,	Jn0 )(2X			
	PUSH*J 17,$$RMS##	
	.+REQUIRE SYS:RMSINI	
)%BAD REC	O%|R 3X+A
	$$ISOL(3xB)			
	IFE <T$$4SZ-^D18>,<		
	4X48  IFE T$$PS,<			
		HRRM A,T$$OF+4xC
		T$$SZ==0		
	    >
	    IFE58 <T$$PS-^D18>,<		5X
		HRLM A,T$$OF5x+C
		T$$SZ==0		6
	    >
	>
	IF68E <T$$SZ-^D36>,<	6X	
		MOVEM A,T$$6xOF+C
		T$$SZ==07		;INDIC INST GEN78
	>
	IFN T$$SZ,7X<			
		DPB A,[<7xT$$PS>B5 ! <T$$SZ8>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q f.H
	IFB <Af(>,<IF1,<PRINTX %AfHRGBLK ADDRESS OMIfhITED ON TRUNCATE gMACRO>>
	MOVEI	1g(, A
	IFNB <C>,gH<IF1,<PRINTX %MORghE THAN 2 ARGS DEThECTED IN TRUNCATEh( MACRO>>
	$$TRUNhHCATE			
	IFNB <hhB>,<JUMP 17,B>
i	IFB <B>,<JUMP 16,.+1>	
     1	WH: VH-L
	IFB <AVh>,<IF1,<PRINTX %AWRGBLK ADDRESS OMIW(ITED ON UPDATE MAWHCRO>>
	MOVEI	1, WhA
	IFNB <C>,<IXF1,<PRINTX %MORE X(THAN 2 ARGS DETECXHTED IN UPDATE MACXhRO>>
	$$UPDATE		Y	
	IFNB <B>,<JUY(MP 17,B>
	IFB <YHB>,<JUMP 16,.+1>	
     16,.+1>	W%J7 %(2B
	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>: !A
	DEFINE 8A$B(ARG)<
		IFX1,<PRINTX	%"A$Bx" RMS-11 ONLY, IGNORED BY RMS-20>
	>
YhRMS-20>X!G
	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