Google
 

Trailing-Edge - PDP-10 Archives - BB-D867E-BM - new-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#(S-11 ONLY, IGNORED BY RMS-20>
	L#h""
		IF1,<P$RINTX	%"F$ANB" RM$(S-11 ONLY, IGNORED BY RMS-20>
	L<` Ih$N$$NEWVAL (BKS,A)NEWVAL (LL` I($J$$NEWVAL (BLS,A)NEWVAL (L>@ G($:$$NEWVAL (BSZ,A)NEWVAL (LN J($R$$NEWVAL (CTX,A)NEWVAL (L%h  h"
		IF1,<P RINTX	%"F$DNA" RM (S-11 ONLY, IGNORED BY RMS-20>
	L%l`  h"

		IF1,<P!RINTX	%"F$DNS" RM!(S-11 ONLY, IGNORED BY RMS-20>
	L4` C($$$NEWVAL (FAC,A)NEWVAL (L5h  E($*$$NEWVAL (FNA,A)NEWVAL (L5l` h!z
		IF1,<PRINTX	%"F$FNS" RM(S-11 ONLY, IGNORED BY RMS-20>
	L5| D($"$$NEWVAL (FOP,A)NEWVAL (L6>@ $h"*
		IF1,<P%RINTX	%"F$FSZ" RM%(S-11 ONLY, IGNORED BY RMS-20>
	LTk@ Bh$$$NEWVAL (JFN,A)NEWVAL (LUk Hh$F$$NEWVAL (JNL,A)NEWVAL (Ld: %h"2
		IF1,<P&RINTX	%"F$LCH" RM&(S-11 ONLY, IGNORED BY RMS-20>
	Ln+@ Fh$6$$NEWVAL (MRN,A)NEWVAL (Ln,` F($2$$NEWVAL (MRS,A)NEWVAL (L~)` Dh$&$$NEWVAL (ORG,A)NEWVAL (L Eh$.$$NEWVAL (RAT,A)NEWVAL (Lk  Gh$>$$NEWVAL (RFM,A)NEWVAL (LM@ !h"
		IF1,<P"RINTX	%"F$RTV" RM"(S-11 ONLY, IGNORED BY RMS-20>
	L
@ Ch$$$NEWVAL (SHR,A)NEWVAL (LD@ H($B$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ :($
	IFNB <:HA>,<			;RUN-TIME :hINIT
		$$MAPADD ;(A,$$ADDR);	; WI;(LL REFERENCE FAB ;HVIA $$ADDR
		SYN;h SF$$RT,$$SET
	><					
	IFB <A>,<(<SYN SF$$CT,$$SET<H>	
		$$CURR (F,B<hID)
		$$CURR (F,=BLN)
		$$CURR (F=(,STS)
		$$CURR (=HF,STV)
		$$CURR =h(F,IFI)
		$$CURR> (F,JFN)
		$$CUR>(R (F,FAC)
		$$CU>HRR (F,SHR)
		$$C>hURR (F,FOP)
		$$?CURR (F,ORG)
		$?($CURR (F,FNA)
		?H$$CURR (F,RAT)
	?h	$$CURR (F,MRS)
@		$$CURR (F,MRN)
		$$CURR (F,BSZ)@H
		$$CURR (F,RFM@h)
		$$CURR (F,XAAB)
		$$CURR (F,JA(NL)
		$$CURR (F,AHBLS)
		$$CURR (FAh,BKS)
		$$CURR (BF,DEV)
		$$CURR B((F,SDC)
		$$CURR (F,CTX)
	CURRMI  Jh%6
	IFNDEF K$$ADDR,<				
		<K($$SET(BID)>_^D18 KH! <$$SET(BLN)>
	Kh	<$$SET(STS)>^D1L8 ! <$$SET(STV)>
		<$$SET(CTX)>
LH		<$$SET(IFI)>_^DLh18 ! <$$SET(JFN)>M
		<$$SET(FAC)>_M(^D18 ! <$$SET(SHRMH)>
		<$$SET(FOP)Mh>_^D18 ! <$$SET(ONRG)>_^D14 ! <$$SEN(T(BSZ)>_^D8 ! <$$NHSET(BLS)>
		<$$SNhET(FNA)>
		<$$SEOT(RAT)>_^D18 ! <$O($SET(MRS)>
		<$$OHSET(MRN)>
		<$$SOhET(BKS)>_^D5 ! <$P$SET(RFM)>
		<$$P(SET(JNL)>_^D18 ! PH<$$SET(XAB)>
		<Ph$$SET(DEV)>_^D18 Q! <$$SET(SDC)>
	Q(	EXP 0,0,0,0
	>	QH				;END IFNB
	IQhFDEF $$ADDR,<
		R$$SET(BID)
		$$SR(ET(BLN)
		$$SET(RHSTS)
		$$SET(STVRh)
		$$SET(IFI)
S		$$SET(JFN)
		$S($SET(FAC)
		$$SESHT(SHR)
		$$SET(FShOP)
		$$SET(ORG)T
		$$SET(FNA)
	T(	$$SET(RAT)
		$$THSET(MRS)
		$$SETTh(MRN)
		$$SET(BSUZ)
		$$SET(RFM)
		$$SET(XAB)
		UH$$SET(JNL)
		$$SUhET(BLS)
		$$SET(VBKS)
		$$SET(DEVV()
		$$SET(SDC)
VH		$$SET(CTX)
		PVhURGE $$ADDR			
	>					
				
	MN@&,H*dP$$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 eh&. $$NEWVAL (CTX,A)NEWVAL d4@ (%z $$NEWVAL (FAB,A)NEWVAL d\)@ ch& $$NEWVAL (KBF,A)NEWVAL d^)@ bh& $$NEWVAL (KRF,A)NEWVAL d^>@ c(& $$NEWVAL (KSZ,A)NEWVAL df;@ e(&* $$NEWVAL (LSN,A)NEWVAL dl)@ d(&" $$NEWVAL (MBF,A)NEWVAL d dh&& $$NEWVAL (PAD,A)NEWVAL d` h%~ $$NEWVAL (RAC,A)NEWVAL d)@ a(&
 $$NEWVAL (RBF,A)NEWVAL d@ ("6
		IF1,<P&HRINTX	%"R$RHB" RM&hS-11 ONLY, IGNORED BY RMS-20>
	d| `(& $$NEWVAL (ROP,A)NEWVAL d>@ ah& $$NEWVAL (RSZ,A)NEWVAL d,)@ `h& $$NEWVAL (UBF,A)NEWVAL d.>@ b(& $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ W(%v
	IFNB <WHA>,<
		$$MAPADD Wh(A,$$ADDR);	; WIXLL REFERENCE THE X(BLOCK VIA $$ADDR
		SYN SR$$RT,$$SXhET
	>					
	IFBY <A>,<SYN SR$$CTY(,$$SET>	
		$$CURYHR (R,BID)
		$$CUYhRR (R,BLN)
		$$CZURR (R,STS)
		$$Z(CURR (R,STV)
		$ZH$CURR (R,ISI)
		Zh$$CURR (R,FAB)
	[	$$CURR (R,RAC)
[(		$$CURR(R,ROP)$$NEWVAL (DFL,A)NEWVAL (p&L h(&$$NEWVAL (DTP,A)NEWVAL (p,M (($$NEWVAL (EDT,A)NEWVAL (p5I` ((*$$NEWVAL (FLG,A)NEWVAL (p>, ."t
		IF1,<P.(RINTX	%"X$GRP" RM.HS-11 ONLY, IGNORED BY RMS-20>
	pD )"L
		IF1,<P)(RINTX	%"X$HAL" RM)HS-11 ONLY, IGNORED BY RMS-20>
	pL@ h(.$$NEWVAL (IAN,A)NEWVAL (pLk h($$NEWVAL (IFL,A)NEWVAL (p]k  h(>$$NEWVAL (KNM,A)NEWVAL (pd@ h(6$$NEWVAL (LAN,A)NEWVAL (pnJ ("D
		IF1,<P((RINTX	%"X$MTH" RM(HS-11 ONLY, IGNORED BY RMS-20>
	pwh($$NEWVAL (NXT,A)NEWVAL (p~{@ -"l
		IF1,<P-(RINTX	%"X$OWN" RM-HS-11 ONLY, IGNORED BY RMS-20>
	p|` ((X

		$$NEHWARRVAL (PS0,A)
		$$NEWARRVAL (P	S1,B)
		$$NEWAR	(RVAL (PS2,C)
			H$$NEWARRVAL (PS3,	hD)
		$$NEWARRVA
L (PS4,E)
		$$N
(EWARRVAL (PS5,F)
H
		$$NEWARRVAL (
hPS6,G)
		$$NEWARRVAL (PS7,H)
	VAL (PS7,H)
	p)` *"T
		IF1,<P*(RINTX	%"X$PRG" RM*HS-11 ONLY, IGNORED BY RMS-20>
	p*@ +"\
		IF1,<P+(RINTX	%"X$PRJ" RM+HS-11 ONLY, IGNORED BY RMS-20>
	pY@ ((:$$NEWVAL (REF,A)NEWVAL (p+@ 1#

		IF1,<P1(RINTX	%"X$SBN" RM1HS-11 ONLY, IGNORED BY RMS-20>
	p@ H(r

		$$NEhWARRVAL (SZ0,A)

		$$NEWARRVAL (S
(Z1,B)
		$$NEWAR
HRVAL (SZ2,C)
		
h$$NEWARRVAL (SZ3,
		$$NEWARRVA
		$$NVAL (SZ5,F)
		$$NEWARRVAL (SZ6,G)
		$$NEWA(RRVAL (SZ7,H)
	VAL (SZ7,H)
	p` ,"d
		IF1,<P,(RINTX	%"X$SYS" RM,HS-11 ONLY, IGNORED BY RMS-20>
	p5{ 0#
		IF1,<P0(RINTX	%"X$VOL" RM0HS-11 ONLY, IGNORED BY RMS-20>
	p=I /"|
		IF1,<P/(RINTX	%"X$WLD" RM/HS-11 ONLY, IGNORED BY RMS-20>
	pD.  2#
		IF1,<P2(RINTX	%"X$XBY" RM2HS-11 ONLY, IGNORED BY RMS-20>
	pT\WP q%KSP 	q&>P q&>P q&>P 	q&>P q&>P q&N8P qH@ r((

	IFNB <rHB>,<
		$$MAPADD rh(B,$$ADDR)	
		SsYN SX$$RT,$$SET
s(	>					
	IFB <BsH>,<SYN SX$$CT,$$SshET>	
						
		Ct$$COD==XB$A		
	t(	C$$BLN==XA$SXA	tH	
						

		$$thCURR (X,BID)
		$u$CURR (X,RS1)
		u($$CURR (X,NXT)
uH
						
		$$CURRuh (X,CDT)
		$$CURvR (X,RDT)
		$$CUv(RR (X,EDT)

			vH			
		$$CURR (X,vhRS2)
		$$CURR (Xw,AID)
		$$CURR (w(X,BKZ)

						
		$$CURR (X,IFL)wh
		$$CURR (X,DFLx)
		$$CURR (X,DTx(P)
		$$CURR (X,FxHLG)
		$$CURR (X,xhIAN)
		$$CURR (Xy,DAN)
		$$CURR (y(X,LAN)
		$$CURR yH(X,REF)
		$$CURRyh (X,KNM)
		$$CURzR (X,RX0)
		$$CUz(RR (X,RX1)
		$$CzHURR (X,RX2)
		$$zhCURR (X,RX3)
		${$CURR (X,RX4)
		{($$CURR (X,RX5)
	{H	$$CURR (X,PS0)
{h		$$CURR (X,PS1)
		$$CURR (X,PS2)|(
		$$CURR (X,PS3|H)
		$$CURR (X,PS|h4)
		$$CURR (X,P}S5)
		$$CURR (X,}(PS6)
		$$CURR (X}H,PS7)
		$$CURR (}hX,SZ0)
		$$CURR ~(X,SZ1)
		$$CURR~( (X,SZ2)
		$$CUR~HR (X,SZ3)
		$$CU~hRR (X,SZ4)
		$$CURR (X,SZ5)
		$$(CURR (X,SZ6)
		$H$CURR (X,SZ7)
	h
						
		$$CURR (X,RS6)
		$$CUR(R (X,NOK)
		$$CUHRR (X,NOA)
		$$ChURR (X,RS7)
		$$CURR (X,RS8)
		$($CURR (X,RS9)
	CURR (X,RS9)
	qI  h*`
	IFNDEF $$ADDR,<
		<$$SE(T(BID)>_^D18 ! <$H$SET(BLN)>
		<$$hSET(COD)>_^D18 ! <$$SET(NXT)>
		I(FE <C$$COD-XB$DATH>,<
			<$$SET(CDhT)>
			<$$SET(RDT)>
			<$$SET(ED(T)>
		>
		IFE <HC$$COD-XB$ALL>,<
			<$$SET(AID)>_^D9 ! <$$SET(BKZ)(>
			EXP 0,0,0
H		>
		IFE <C$$COhD-XB$KEY>,<
			<$$SET(DTP)>_^D18 (! <$$SET(FLG)>
	H		<$$SET(IAN)>_^Dh27 ! <$$SET(DAN)>_^D18 ! <$$SET(LA(N)>_^D9 ! <$$SET(HREF)>
			<$$SET(hIFL)>_^D18 ! <$$SET(DFL)>
			<$$S(ET(KNM)>
			EXP H0,0,0,0,0
			<$$hSET(PS0)>_^D18 ! <$$SET(SZ0)>
			(<$$SET(PS1)>_^D18H ! <$$SET(SZ1)>
h			<$$SET(PS2)>_^D18 ! <$$SET(SZ2)(>
			<$$SET(PS3)H>_^D18 ! <$$SET(ShZ3)>
			<$$SET(PS4)>_^D18 ! <$$SE(T(SZ4)>
			<$$SEHT(PS5)>_^D18 ! <$h$SET(SZ5)>
			<$$SET(PS6)>_^D18 !( <$$SET(SZ6)>
		H	<$$SET(PS7)>^D1h8 ! <$$SET(SZ7)>
		>
		IFE <C$$C(OD-XB$SUM>,<
			H<$$SET(NOK)>_^D9 h! <$$SET(NOA)>
			EXP 0,0,0
		>
	>
	IFDEF $$ADDHR,<
		$$MAPADD (hXABADDR,$$ADDR);	; WILL REFERENCE (THE BLOCK VIA $$AHDDR
							; STOhRE COMMON HEADER FOR ALL XAB TYPES(
		$$SET(BID)
	H	$$SET(RS1)
		$$hSET(COD)
		$$SET(NXT)
							; S(TORE REST OF XAB HDEPENDING ON IT'Sh TYPE
		IFE <C$$COD-XB$DAT>,<
		($$NEWVAL(BLN,XA$SHXD)		
		$$SET(BLhN)
		$$SET(CDT)
		$$SET(RDT)
		 ($$SET(EDT)
		>
 H
		IFE <C$$COD-X hB$ALL>,<
		$$NEW!VAL(BLN,XA$SXA)		!(
		$$SET(BLN)
	!H	$$SET(RS2)
		$$!hSET(AID)
		$$SET"(BKZ)
		>

		I"(FE <C$$COD-XB$KEY"H>,<
		$$NEWVAL(B"hLN,XA$SXK)		
		$#$SET(BLN)
		$$SE#(T(IFL)
		$$SET(D#HFL)
		$$SET(DTP)#h
		$$SET(FLG)
	$	$$SET(IAN)
		$$$(SET(DAN)
		$$SET$H(LAN)
		$$SET(RE$hF)
		$$SET(KNM)
		$$SET(RX0)
		%($$SET(RX1)
		$$S%HET(RX2)
		$$SET(%hRX3)
		$$SET(RX4&)
		$$SET(RX5)
&(
		$$SET(PS0)
	&H	$$SET(PS1)
		$$&hSET(PS2)
		$$SET'(PS3)
		$$SET(PS'(4)
		$$SET(PS5)
		$$SET(PS6)
		'h$$SET(PS7)

		$($SET(SZ0)
		$$SE((T(SZ1)
		$$SET(S(HZ2)
		$$SET(SZ3)(h
		$$SET(SZ4)
	)	$$SET(SZ5)
		$$)(SET(SZ6)
		$$SET)H(SZ7)
		>

		I)hFE <C$$COD-XB$SUM*>,<
		$$NEWVAL(B*(LN,XA$SXS)		
		$*H$SET(BLN)
		$$SE*hT(RS6)
		$$SET(N+OK)
		$$SET(NOA)+(
		$$SET(RS7)
	+H	$$SET(RS8)
		$$+hSET(RS9)
		>
		,PURGE $$ADDR			
	>					
				
qN@ -H*n $$ZERO(A-h,%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 h 
	IFNB <B>,<IFL A-B,<PR(INTX ?A HAS A VAHLUE WHICH IS TOO hLOW>>
	IFNB <C>,<IFG A-C,<PRIN(TX ?A HAS A VALUHE WHICH IS TOO HIGH>>
IS TOO HIKy GX,G	
      IGxFN TOP$10,<PUSHJ H17,RMS$10##+C$CLOH8SE>	
      IFN THXOP$20,<104B8+1000Hx+C$CLOSE>	
    C$CLOSE>	
    y !B
	C=A+(B		
	B==B+1			

	B==B+1			{W k.c	
      Ik8FN TOP$10,<PUSHJ kX17,RMS$10##+C$CONkxNECT>	
      IFNl TOP$20,<104B8+10l800+C$CONNECT>	
    CONNECT>	
 )0 p8/9	
      IvFN TOP$10,<PUSHJ v817,RMS$10##+C$CREvXATE>	
      IFN vxTOP$20,<104B8+100w0+C$CREATE>	
    $CREATE>	
   \Y H!dPURGE C$$BPURGE C$$$XZ {/c	
      I{8FN TOP$10,<PUSHJ {X17,RMS$10##+C$DEB{xUG>	
      IFN T|OP$20,<104B8+1000|8+C$DEBUG>	
    C$DEBUG>	
    $[ [X-g	
      I[xFN TOP$10,<PUSHJ \17,RMS$10##+C$DEL\8ETE>	
      IFN \XTOP$20,<104B8+100\x0+C$DELETE>	
    $DELETE>	
   %q pX/	
      IpxFN TOP$10,<PUSHJ q17,RMS$10##+C$DISq8CONNECT>	
      qXIFN TOP$20,<104B8qx+1000+C$DISCONNECT>	
    CONNEC%x 17	
      IxFN TOP$10,<PUSHJ 17,RMS$10##+C$DIS8PLAY>	
      IFNX TOP$20,<104B8+10x00+C$DISPLAY>	
    DISPLAY>	
 -i  6 END .(9 x1a	
      IFN TOP$10,<PUSHJ 817,RMS$10##+C$ERAXSE>	
      IFN TxOP$20,<104B8+1000+C$ERASE>	
    C$ERASE>	
    4*2P 4*yP 4+P 4+P 4,}P 4=P 4I;P 4\Y H!6
	$$CODE(h.EXBAS,.EXCTR,A,B)
.EXCTR,A,4h1P 4kPP 4kxP 56 H 4
IF1,<
	$$AB==C$D
	F$$B==<XX$G>B5( ! <XX$F>B11 ! XHX$E	
  >	;END OF IF1
>	;END O5TP 5R `x.	
      IaFN TOP$10,<PUSHJ a817,RMS$10##+C$FINaXD>	
      IFN TOaxP$20,<104B8+1000+C$FIND>	
    +5)WP 5+VP 5M9 X07	
      IxFN TOP$10,<PUSHJ 17,RMS$10##+C$FLU8SH>	
      IFN TXOP$20,<104B8+1000x+C$FLUSH>	
    C$FLUSH>	
    5\WP 5\YP 5|SP 6(:P 6)2  2		
      I 8FN TOP$10,<PUSHJ  X17,RMS$10##+C$FRE xE>	
      IFN TO!P$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 <] Lx,o	
      IMFN TOP$10,<PUSHJ M817,RMS$10##+C$GETMX>	
      IFN TOPMx$20,<104B8+1000+C$GET>	
    0+CN;v :(+Z
	T$$PS==:HF$$A_-^D30		
	T:h$$SZ==<F$$A_-^D2;4> & 77	
	T$$OF=;(=F$$A & 777777	
$A& 777777	DEFINE B<A>DEFINE B<l (!<A$MAX==.HABASE + .ACTR - 1SE + .ACTR - l\y 
x0a	
      IFN TOP$10,<PUSHJ 817,RMS$10##+C$MESXSAGE>	
      IFNx TOP$20,<104B8+10
00+C$MESSAGE>	
    MESSAGE>	
 t]p '"<
	IFNB <'HB>,<C$$A==B>
>,<C$$A==B>
t]{ h!n
	DEFINE C$$A<B>		
Eu{2 81
      IXFN TOP$10,<PUSHJ x17,RMS$10##+C$NOMESSAGE>	
      I8FN TOP$20,<104B8+X1000+C$NOMESSAGE>	
    MESSAGE>~	7 <H+h	
      I;hFN TOP$10,<PUSHJ <(17,RMS$10##+C$OPE<hN>	
      IFN TO=P$20,<104B8+1000+C$OPEN>	
    +] QX-	
      IQxFN TOP$10,<PUSHJ R17,RMS$10##+C$PUTR8>	
      IFN TOPRX$20,<104B8+1000+C$PUT>	
0+C*2P *zP +P =P [ 80
      IXFN TOP$10,<PUSHJ x17,RMS$10##+C$RELEASE>	
      IFN8 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` !*
	$$CODE((.SUBAS,.SUCTR,A,B)
.SUCTR,A,V ( V
	FB$ALL=H=FB$GET+FB$PUT+FBh$DEL+FB$UPD+FB$TRN

	
	$$ASSUME((FB$SEQ,0)		;FILEH ORG MUST BE GTR hZERO
	$$ASSUME(R	B$SEQ,0,0)		;RECO	(RD ACCESS MUST ST	HART AT ZERO
	$$A	hSSUME(XB$KEY,0,0)
		;KEY XAB MUST B
(E FIRST
	$$ASSUM
HE(XB$STG,0,0)		;S
hTRING DATA-TYPE SHOULD BE ZERO
&-7 ex.9	
      IfFN TOP$10,<PUSHJ f817,RMS$10##+C$TRUfXNCATE>	
   IFfxN TOP$20,<104B8+1g000+C$TRUNCATE>	
,\RUNCATE>	
	$$CODE(.ERBAS,.ERCTR,A,B)
.ERCTR,A,.	 V8-=	
      IVXFN TOP$10,<PUSHJ Vx17,RMS$10##+C$UPDWATE>	
      IFN W8TOP$20,<104B8+100WX0+C$UPDATE>	
    $UPDATE>	
   .K %23	
      I%8FN TOP$10,<PUSHJ %X17,RMS$10##+C$UTL%xINT>	
      IFN &TOP$20,<104B8+100&80+C$UTLINT>	
    $UTLINT>	
   4[R (!$			
  IF2H,<
	OPDEF	RM$MINh [104B8+1000]	;MINIMUM JSYS  VALUE(
	OPDEF	RM$MAX [H104B8+1000+XX$MAX]
  >				
MAX4\Q 
h!		
A=C$$MAX		
(	DFINE $$A(A)<
h10,<PIFNJTOP$MS$10##+C$A>	
    (  IFN TOP$20,<104HB8+1000+C$A>	
 h   >
    DEFINE $A(.BLK1,.ERRAD,(.NLARG),<
	IFB <H.BLK1>,<IF1,<PRINhTX %ARGBLK ADDRESS OMIITED ON A M(ACRO>>
	MOVEI	1,H .BLK1
	IFNB <.NhLARG>,<IF1,<PRINTX %MORE THAN 2 AR(GS DETECTED IN AH MACRO>>
	$$A		h	
	IFNB <.ERRAD>,<JUMP 17,.ERRAD>(
	IFB <.ERRAD>,<HJUMP 16,.+1>	
  h  >
  XX$MAX==XX$MAX+1		
X==XX5T 
( b			
	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 .(*z
	SETZM	.HA			
	MOVEI	2,A.h			
	MOVEI	1,1(2/)			
	HRLI	1,A	/(		
	BLT	1,B-1(2)		
T	1,B-1(2	e|r I8,c
	IFB <AIX>,<IF1,<PRINTX %AIxRGBLK ADDRESS OMIJITED ON CLOSE MACJ8RO>>
	MOVEI	1, JXA
	IFNB <C>,<IFJx1,<PRINTX %MORE TKHAN 2 ARGS DETECTK8ED IN CLOSE MACROKX>>
	$$CLOSE			
Kx	IFNB <B>,<JUMP L17,B>
	IFB <B>L8,<JUMP 16,.+1>	
     16,.+1>	
	}kR lx.
	IFB <Am>,<IF1,<PRINTX %Am8RGBLK ADDRESS OMImXITED ON CONNECT MmxACRO>>
	MOVEI	1,n A
	IFNB <C>,<n8IF1,<PRINTX %MOREnX THAN 2 ARGS DETEnxCTED IN CONNECT MoACRO>>
	$$CONNECo8T			
	IFNB <B>,oX<JUMP 17,B>
	IFoxB <B>,<JUMP 16,.+1>	
     16,.	X: wX/U
	IFB <Awx>,<IF1,<PRINTX %AxRGBLK ADDRESS OMIx8ITED ON CREATE MAxXCRO>>
	MOVEI	1, xxA
	IFNB <C>,<IyF1,<PRINTX %MORE y8THAN 2 ARGS DETECyXTED IN CREATE MACyxRO>>
	$$CREATE		z	
	IFNB <B>,<JUz8MP 17,B>
	IFB <zXB>,<JUMP 16,.+1>	
     16,.+1>	,-3 |x/
	IFB <A}>,<IF1,<PRINTX %A}8RGBLK ADDRESS OMI}XITED ON DEBUG MAC}xRO>>
	MOVEI	1, ~A
	IFNB <C>,<IF~81,<PRINTX %MORE T~XHAN 2 ARGS DETECT~xED IN DEBUG MACRO>>
	$$DEBUG			
8	IFNB <B>,<JUMP X17,B>
	IFB <B>x,<JUMP 16,.+1>	
     16,.+1>	
	-I: ]8.
	IFB <A]X>,<IF1,<PRINTX %A]xRGBLK ADDRESS OMI^ITED ON DELETE MA^8CRO>>
	MOVEI	1, ^XA
	IFNB <C>,<I^xF1,<PRINTX %MORE _THAN 2 ARGS DETEC_8TED IN DELETE MAC_XRO>>
	$$DELETE		_x	
	IFNB <B>,<JU`MP 17,B>
	IFB <`8B>,<JUMP 16,.+1>	
     16,.+1>	N8w r8/-
	IFB <ArX>,<IF1,<PRINTX %ArxRGBLK ADDRESS OMIsITED ON DISCONNECs8T MACRO>>
	MOVEIsX	1, A
	IFNB <Csx>,<IF1,<PRINTX %MtORE THAN 2 ARGS Dt8ETECTED IN DISCONtXNECT MACRO>>
	$$txDISCONNECT			
	IuFNB <B>,<JUMP 17u8,B>
	IFB <B>,<uXJUMP 16,.+1>	
     16,.+1>	
  	N< 81S
	IFB <AX>,<IF1,<PRINTX %AxRGBLK ADDRESS OMIITED ON DISPLAY M8ACRO>>
	MOVEI	1,X A
	IFNB <C>,<xIF1,<PRINTX %MORE THAN 2 ARGS DETE8CTED IN DISPLAY MXACRO>>
	$$DISPLAxY			
	IFNB <B>,<JUMP 17,B>
	IF8B <B>,<JUMP 16,.+1>	
     16,.	r X1}
	IFB <Ax>,<IF1,<PRINTX %ARGBLK ADDRESS OMI8ITED ON ERASE MACXRO>>
	MOVEI	1, xA
	IFNB <C>,<IF1,<PRINTX %MORE T8HAN 2 ARGS DETECTXED IN ERASE MACROx>>
	$$ERASE			
	IFNB <B>,<JUMP 817,B>
	IFB <B>X,<JUMP 16,.+1>	
     16,.+1>	
	.Ht 0H+&
	$$ISOL(0hB)			
	IFE <T$$1SZ-^D18>,<		
	1H1(  IFE T$$PS,<			
		HRRZ A,T$$OF+1hC
		T$$SZ==0		
	    >
	    IFE2( <T$$PS-^D18>,<		2H
		HLRZ A,T$$OF2h+C
		T$$SZ==0		3
	    >
	>
	IF3(E <T$$SZ-^D36>,<	3H	
		MOVE A,T$$O3hF+C
		T$$SZ==0	4	
	>
	IFN T$$SZ4(,<			
		LDB A,[4H<T$$PS>B5 ! <T$$S4hZ>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ 0+[F$$A+B][F$$A+B]	Mi b8.+
	IFB <AbX>,<IF1,<PRINTX %AbxRGBLK ADDRESS OMIcITED ON FIND MACRc8O>>
	MOVEI	1, AcX
	IFNB <C>,<IF1cx,<PRINTX %MORE THdAN 2 ARGS DETECTEd8D IN FIND MACRO>>dX
	$$FIND			
	IFdxNB <B>,<JUMP 17,eB>
	IFB <B>,<Je8UMP 16,.+1>	
     16,.+1>	
   	f\t 80S
	IFB <AX>,<IF1,<PRINTX %AxRGBLK ADDRESS OMIITED ON FLUSH MAC8RO>>
	MOVEI	1, XA
	IFNB <C>,<IFx1,<PRINTX %MORE T	HAN 2 ARGS DETECT	8ED IN FLUSH MACRO	X>>
	$$FLUSH			
	x	IFNB <B>,<JUMP 
17,B>
	IFB <B>
8,<JUMP 16,.+1>	
     16,.+1>	
	Y  !X2%
	IFB <A!x>,<IF1,<PRINTX %A"RGBLK ADDRESS OMI"8ITED ON FREE MACR"XO>>
	MOVEI	1, A"x
	IFNB <C>,<IF1#,<PRINTX %MORE TH#8AN 2 ARGS DETECTE#XD IN FREE MACRO>>#x
	$$FREE			
	IF$NB <B>,<JUMP 17,$8B>
	IFB <B>,<J$XUMP 16,.+1>	
     16,.+1>	
   	.@ N8-	
	IFB <ANX>,<IF1,<PRINTX %ANxRGBLK ADDRESS OMIOITED ON GET MACROO8>>
	MOVEI	1, A
	IFNB <C>,<IF1,Ox<PRINTX %MORE THAPN 2 ARGS DETECTEDP8 IN GET MACRO>>
PX	$$GET			
	IFNB Px<B>,<JUMP 17,B>Q
	IFB <B>,<JUMP 16,.+1>	
    	&u *x2e			
	PUSH+XJ 17,$$RMS##	
	.,XREQUIRE SYS:RMSINI	
)%BAD REC	6.<p 
X0}
	IFB <A
x>,<IF1,<PRINTXO%A
	MOVEI	1,
	IFNB <C>,<IF1,<PRINTX %MORE8 THAN 2 ARGS DETEXCTED IN MESSAGE MxACRO>>
	$$MESSAGE			
	IFNB <B>,8<JUMP 17,B>
	IFXB <B>,<JUMP 16,.+1>	
     16,.	:}Y9 1+
	IFB <A8>,<IF1,<PRINTX %AXRGBLK ADDRESS OMIxITED ON NOMESSAGE MACRO>>
	MOVEI	81, A
	IFNB <C>X,<IF1,<PRINTX %MOxRE THAN 2 ARGS DETECTED IN NOMESSA8GE MACRO>>
	$$NOXMESSAGE			
	IFNBx <B>,<JUMP 17,B>
	IFB <B>,<JUM8P 16,.+1>	
     16,.+1>	
    	?[@ =H,9
	IFB <A=h>,<IF1,<PRINTX %ADXRGBLK ADDRESS OMIDxITED ON OPEN MACREO>>
	MOVEI	1, AE8
	IFNB <C>,<IF1EX,<PRINTX %MORE THExAN 2 ARGS DETECTEFD IN OPEN MACRO>>F8
	$$OPEN			
	IFFXNB <B>,<JUMP 17,FxB>
	IFB <B>,<JGUMP 16,.+1>	
     16,.+1>	
   	C.@ S-/
	IFB <AS8>,<IF1,<PRINTX %ASXRGBLK ADDRESS OMISxITED ON PUT MACROT>>
	MOVEI	1, A
	IFNB <C>,<IF1,TX<PRINTX %MORE THATxN 2 ARGS DETECTEDU IN PUT MACRO>>
U8	$$PUT			
	IFNB UX<B>,<JUMP 17,B>Ux
	IFB <B>,<JUMP 16,.+1>	
    	J-I0 0)
	IFB <A8>,<IF1,<PRINTX %AXRGBLK ADDRESS OMIxITED ON RELEASE MACRO>>
	MOVEI	1,8 A
	IFNB <C>,<XIF1,<PRINTX %MOREx THAN 2 ARGS DETECTED IN RELEASE M8ACRO>>
	$$RELEASXE			
	IFNB <B>,x<JUMP 17,B>
	IFB <B>,<JUMP 16,.+1>	
     16,.	J.M9 *|POPJ	17,	Jn0 *x2e			
	PUSH+XJ 17,$$RMS##	
	.,XREQUIRE SYS:RMSINI	
)%BAD REC	O%|R 5(+N
	$$ISOL(5HB)			
	IFE <T$$5hSZ-^D18>,<		
	6(6  IFE T$$PS,<			
		HRRM A,T$$OF+6HC
		T$$SZ==0		
	    >
	    IFE7 <T$$PS-^D18>,<		7(
		HRLM A,T$$OF7H+C
		T$$SZ==0		7h
	    >
	>
	IF8E <T$$SZ-^D36>,<	8(	
		MOVEM A,T$$8HOF+C
		T$$SZ==08h		;INDIC INST GEN9
	>
	IFN T$$SZ,9(<			
		DPB A,[<9HT$$PS>B5 ! <T$$SZ9h>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q gX.U
	IFB <Agx>,<IF1,<PRINTX %AhRGBLK ADDRESS OMIh8ITED ON TRUNCATE hXMACRO>>
	MOVEI	1hx, A
	IFNB <C>,i<IF1,<PRINTX %MORi8E THAN 2 ARGS DETiXECTED IN TRUNCATEix MACRO>>
	$$TRUNjCATE			
	IFNB <j8B>,<JUMP 17,B>
jX	IFB <B>,<JUMP 16,.+1>	
     1	WH: X-Y
	IFB <AX8>,<IF1,<PRINTX %AXXRGBLK ADDRESS OMIXxITED ON UPDATE MAYCRO>>
	MOVEI	1, Y8A
	IFNB <C>,<IYXF1,<PRINTX %MORE YxTHAN 2 ARGS DETECZTED IN UPDATE MACZ8RO>>
	$$UPDATE		ZX	
	IFNB <B>,<JUZxMP 17,B>
	IFB <[B>,<JUMP 16,.+1>	
     16,.+1>	W%J7 &x2O
	IFB <A'>,<IF1,<PRINTX %A'8RGBLK ADDRESS OMI'XITED ON UTLINT MA'xCRO>>
	MOVEI	1, (A
	IFNB <C>,<I(8F1,<PRINTX %MORE (XTHAN 2 ARGS DETEC(xTED IN UTLINT MAC)RO>>
	$$UTLINT		)8	
	IFNB <B>,<JU)XMP 17,B>
	IFB <)xB>,<JUMP 16,.+1>	
     16,.+1>: h!N
	DEFINE A$B(ARG)<
		IF(1,<PRINTX	%"A$BH" RMS-11 ONLY, IGhNORED BY RMS-20>
	>
YhRMS-20>(!T
	IRP A,H< ..BADF(F,A) >
.BADF(F,A)!>
	IRP A,(< ..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