Google
 
Trailing-Edge - PDP-10 Archives - BB-L665B-BM - binary/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,:I@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!pRINTX	%"F$ALQ" RM"S-11 ONLY, IGNORED BY RMS-20>
	L"P"
		IF1,<P"pRINTX	%"F$ANB" RM#S-11 ONLY, IGNORED BY RMS-20>
	L<` HP$E$$NEWVAL (BKS,A)NEWVAL (LL` H$A$$NEWVAL (BLS,A)NEWVAL (L>@ F$1$$NEWVAL (BSZ,A)NEWVAL (LN I$I$$NEWVAL (CTX,A)NEWVAL (L%h  P!y
		IF1,<PpRINTX	%"F$DNA" RMS-11 ONLY, IGNORED BY RMS-20>
	L%l` P"
		IF1,<PpRINTX	%"F$DNS" RM S-11 ONLY, IGNORED BY RMS-20>
	L4` B$$$NEWVAL (FAC,A)NEWVAL (L5h  D$!$$NEWVAL (FNA,A)NEWVAL (L5l` P!q
		IF1,<PpRINTX	%"F$FNS" RMS-11 ONLY, IGNORED BY RMS-20>
	L5| C$$$NEWVAL (FOP,A)NEWVAL (L6>@ #P"!
		IF1,<P#pRINTX	%"F$FSZ" RM$S-11 ONLY, IGNORED BY RMS-20>
	LTk@VAP$JFN,A)NEWVAL (LUk GP$=$$NEWVAL (JNL,A)NEWVAL (Ld: $P")
		IF1,<P$pRINTX	%"F$LCH" RM%S-11 ONLY, IGNORED BY RMS-20>
	Ln+@ EP$-$$NEWVAL (MRN,A)NEWVAL (Ln,` E$)$$NEWVAL (MRS,A)NEWVAL (L~)` CP$$$NEWVAL (ORG,A)NEWVAL (L DP$%$$NEWVAL (RAT,A)NEWVAL (Lk  FP$5$$NEWVAL (RFM,A)NEWVAL (LM@  P"	
		IF1,<P pRINTX	%"F$RTV" RM!S-11 ONLY, IGNORED BY RMS-20>
	L

@ BP$$$NEWVAL (SHR,A)NEWVAL (LD@ G$9$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ 9$	
	IFNB <90A>,<			;RUN-TIME 9PINIT
		$$MAPADD 9p(A,$$ADDR);	; WI:LL REFERENCE FAB :0VIA $$ADDR
		SYN:P SF$$RT,$$SET
	>:p					
	IFB <A>,;<SYN SF$$CT,$$SET;0>	
		$$CURR (F,B;PID)
		$$CURR (F,;pBLN)
		$$CURR (F<,STS)
		$$CURR (<0F,STV)
		$$CURR <P(F,IFI)
		$$CURR<p (F,JFN)
		$$CUR=R (F,FAC)
		$$CU=0RR (F,SHR)
		$$C=PURR (F,FOP)
		$$=pCURR (F,ORG)
		$>$CURR (F,FNA)
		>0$$CURR (F,RAT)
	>P	$$CURR (F,MRS)
>p		$$CURR (F,MRN)
		$$CURR (F,BSZ)?0
		$$CURR (F,RFM?P)
		$$CURR (F,XA?pB)
		$$CURR (F,J@NL)
		$$CURR (F,@0BLS)
		$$CURR (F@P,BKS)
		$$CURR (@pF,DEV)
		$$CURR A(F,SDC)
		$$CURR (F,CTX)
	CURRMI  IP%-
	IFNDEF Ip$$ADDR,<				
		<J$$SET(BID)>_^D18 J0! <$$SET(BLN)>
	JP	<$$SET(STS)>^D1Jp8 ! <$$SET(STV)>
		<$$SET(CTX)>
K0		<$$SET(IFI)>_^DKP18 ! <$$SET(JFN)>Kp
		<$$SET(FAC)>_L^D18 ! <$$SET(SHRL0)>
		<$$SET(FOP)LP>_^D18 ! <$$SET(OLpRG)>_^D14 ! <$$SEMT(BSZ)>_^D8 ! <$$M0SET(BLS)>
		<$$SMPET(FNA)>
		<$$SEMpT(RAT)>_^D18 ! <$N$SET(MRS)>
		<$$N0SET(MRN)>
		<$$SNPET(BKS)>_^D5 ! <$Np$SET(RFM)>
		<$$OSET(JNL)>_^D18 ! O0<$$SET(XAB)>
		<OP$$SET(DEV)>_^D18 Op! <$$SET(SDC)>
	P	EXP 0,0,0,0
	>	P0				;END IFNB
	IPPFDEF $$ADDR,<
		Pp$$SET(BID)
		$$SQET(BLN)
		$$SET(Q0STS)
		$$SET(STVQP)
		$$SET(IFI)
Qp		$$SET(JFN)
		$R$SET(FAC)
		$$SER0T(SHR)
		$$SET(FRPOP)
		$$SET(ORG)Rp
		$$SET(FNA)
	S	$$SET(RAT)
		$$S0SET(MRS)
		$$SETSP(MRN)
		$$SET(BSSpZ)
		$$SET(RFM)
		$$SET(XAB)
		T0$$SET(JNL)
		$$STPET(BLS)
		$$SET(TpBKS)
		$$SET(DEVU)
		$$SET(SDC)
U0		$$SET(CTX)
		PUPURGE $$ADDR			
	>					
				
	MN@&+0*[P$$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@#'dNLdP&%`$$NEWVAL (CTX,A)NEWVAL)d4@L^%q$$NEWVAL (FAB,A)NEWVAL d\)@ bP& $$NEWVAL (KBF,A)NEWVAL d^)@ aP&
		IF1,<P%0RINTX	%"R$RHB" RM%PS-11 ONLY, IGNORED BY RMS-20>
	d| _%y $$NEWVAL (ROP,A)NEWVAL d>@ `P& $$NEWVAL (RSZ,A)NEWVAL d,)@ _P%} $$NEWVAL (UBF,A)NEWVAL d.>@ a&	 $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ V%m
	IFNB <V0A>,<
		$$MAPADD VP(A,$$ADDR);	; WIVpLL REFERENCE THE WBLOCK VIA $$ADDR
		SYN SR$$RT,$$SWPET
	>					
	IFBWp <A>,<SYN SR$$CTX,$$SET>	
		$$CURX0R (R,BID)
		$$CUXPRR (R,BLN)
		$$CXpURR (R,STS)
		$$YCURR (R,STV)
		$Y0$CURR (R,ISI)
		YP$$CURR (R,FAB)
	Yp	$$CURR (R,RAC)
Z		$$CURR(R,ROP)$$NEWVAL (DFL,A)NEWVAL (p&L P($$NEWVAL (DTP,A)NEWVAL (p,M (	$$NEWVAL (EDT,A)NEWVAL (p5I` (!$$NEWVAL (FLG,A)NEWVAL (p>, ,p"k
		IF1,<P-RINTX	%"X$GRP" RM-0S-11 ONLY, IGNORED BY RMS-20>
	pD 'p"C
		IF1,<P(RINTX	%"X$HAL" RM(0S-11 ONLY, IGNORED BY RMS-20>
	pL@ P(%$$NEWVAL (IAN,A)NEWVAL (pLk P($$NEWVAL (IFL,A)NEWVAL (p]k  P(5$$NEWVAL (KNM,A)NEWVAL (pd@ P(-$$NEWVAL (LAN,A)NEWVAL (pnJ &p";
		IF1,<P'RINTX	%"X$MTH" RM'0S-11 ONLY, IGNORED BY RMS-20>
	pwP($$NEWVAL (NXT,A)NEWVAL (p~{@ +p"c
		IF1,<P,RINTX	%"X$OWN" RM,0S-11 ONLY, IGNORED BY RMS-20>
	p|` (O

		$$NE0WARRVAL (PS0,A)
		$$NEWARRVAL (PpS1,B)
		$$NEWARRVAL (PS2,C)
		0$$NEWARRVAL (PS3,PD)
		$$NEWARRVApL (PS4,E)
		$$N	EWARRVAL (PS5,F)	0
		$$NEWARRVAL (	PPS6,G)
		$$NEWA	pRRVAL (PS7,H)
	VAL (PS7,H)
	p)` (p"K
		IF1,<P)RINTX	%"X$PRG" RM)0S-11 ONLY, IGNORED BY RMS-20>
	p*@ )p"S
		IF1,<P*RINTX	%"X$PRJ" RM*0S-11 ONLY, IGNORED BY RMS-20>
	pY@ (1$$NEWVAL (REF,A)NEWVAL (p+@ /p#
		IF1,<P0RINTX	%"X$SBN" RM00S-11 ONLY, IGNORED BY RMS-20>
	p@ 
0(i

		$$NE
PWARRVAL (SZ0,A)
p
		$$NEWARRVAL (SZ1,B)
		$$NEWAR0RVAL (SZ2,C)
		P$$NEWARRVAL (SZ3,pD)
		$$NEWARRVA

L (SZ4,E)
		$$N

0EWARRVAL (SZ5,F)

P
		$$NEWARRVAL (

pSZ6,G)
		$$NEWAZ7,H)
	VAL (SZ7,H)
	p` *p"[
		IF1,<P+RINTX	%"X$SYS" RM+0S-11 ONLY, IGNORED BY RMS-20>
	p5{ .p"{
		IF1,<P/RINTX	%"X$VOL" RM/0S-11 ONLY, IGNORED BY RMS-20>
	p=I -p"s
		IF1,<P.RINTX	%"X$WLD" RM.0S-11 ONLY, IGNORED BY RMS-20>
	pD.  0p#
		IF1,<P1RINTX	%"X$XBY" RM10S-11 ONLY, IGNORED BY RMS-20>
	pT\WP q%KSP 	q&>P q&>P q&>P 	q&>P q&>P q&N8P qH@ q(
	IFNB <q0B>,<
		$$MAPADD qP(B,$$ADDR)	
		SqpYN SX$$RT,$$SET
r	>					
	IFB <Br0>,<SYN SX$$CT,$$SrPET>	
						
		Crp$$COD==XB$A		
	s	C$$BLN==XA$SXA	s0	
						

		$$sPCURR (X,BID)
		$sp$CURR (X,RS1)
		t$$CURR (X,NXT)
t0
						
		$$CURRtP (X,CDT)
		$$CURtpR (X,RDT)
		$$CUuRR (X,EDT)

			u0			
		$$CURR (X,uPRS2)
		$$CURR (Xup,AID)
		$$CURR (vX,BKZ)

						
		$$CURR (X,IFL)vP
		$$CURR (X,DFLvp)
		$$CURR (X,DTwP)
		$$CURR (X,Fw0LG)
		$$CURR (X,wPIAN)
		$$CURR (Xwp,DAN)
		$$CURR (xX,LAN)
		$$CURR x0(X,REF)
		$$CURRxP (X,KNM)
		$$CURxpR (X,RX0)
		$$CUyRR (X,RX1)
		$$Cy0URR (X,RX2)
		$$yPCURR (X,RX3)
		$yp$CURR (X,RX4)
		z$$CURR (X,RX5)
	z0	$$CURR (X,PS0)
zP		$$CURR (X,PS1)
		$$CURR (X,PS2){
		$$CURR (X,PS3{0)
		$$CURR (X,PS{P4)
		$$CURR (X,P{pS5)
		$$CURR (X,|PS6)
		$$CURR (X|0,PS7)
		$$CURR (|PX,SZ0)
		$$CURR |p(X,SZ1)
		$$CURR} (X,SZ2)
		$$CUR}0R (X,SZ3)
		$$CU}PRR (X,SZ4)
		$$C}pURR (X,SZ5)
		$$~CURR (X,SZ6)
		$~0$CURR (X,SZ7)
	~P
						
		$$CURR~p (X,RS6)
		$$CURR (X,NOK)
		$$CU0RR (X,NOA)
		$$CPURR (X,RS7)
		$$pCURR (X,RS8)
		$$CURR (X,RS9)
	CURR (X,RS9)
	qI 
	IFNDEF,
		<$$SET(BID)>_^D18 ! <$0$SET(BLN)>
		<$$PSET(COD)>_^D18 ! p<$$SET(NXT)>
		IFE <C$$COD-XB$DAT0>,<
			<$$SET(CDPT)>
			<$$SET(RDpT)>
			<$$SET(EDT)>
		>
		IFE <0C$$COD-XB$ALL>,<
			<$$SET(AID)>_p^D9 ! <$$SET(BKZ)>
			EXP 0,0,0
0		>
		IFE <C$$COPD-XB$KEY>,<
			<p$$SET(DTP)>_^D18 ! <$$SET(FLG)>
	0		<$$SET(IAN)>_^DP27 ! <$$SET(DAN)>p_^D18 ! <$$SET(LAN)>_^D9 ! <$$SET(0REF)>
			<$$SET(PIFL)>_^D18 ! <$$SpET(DFL)>
			<$$SET(KNM)>
			EXP 00,0,0,0,0
			<$$PSET(PS0)>_^D18 ! p<$$SET(SZ0)>
			<$$SET(PS1)>_^D180 ! <$$SET(SZ1)>
P			<$$SET(PS2)>_^pD18 ! <$$SET(SZ2)>
			<$$SET(PS3)0>_^D18 ! <$$SET(SPZ3)>
			<$$SET(PpS4)>_^D18 ! <$$SET(SZ4)>
			<$$SE0T(PS5)>_^D18 ! <$P$SET(SZ5)>
			<$p$SET(PS6)>_^D18 ! <$$SET(SZ6)>
		0	<$$SET(PS7)>^D1P8 ! <$$SET(SZ7)>
		>
		IFE <C$$COD-XB$SUM>,<
			0<$$SET(NOK)>_^D9 P! <$$SET(NOA)>
	p		EXP 0,0,0
		>
	>
	IFDEF $$ADD0R,<
		$$MAPADD (PXABADDR,$$ADDR);	p; WILL REFERENCE THE BLOCK VIA $$A0DDR
							; STOPRE COMMON HEADER pFOR ALL XAB TYPES
		$$SET(BID)
	0	$$SET(RS1)
		$$PSET(COD)
		$$SETp(NXT)
							; STORE REST OF XAB 0DEPENDING ON IT'SP TYPE
		IFE <C$$pCOD-XB$DAT>,<
		$$NEWVAL(BLN,XA$S0XD)		
		$$SET(BLPN)
		$$SET(CDT)
		$$SET(RDT)
		$$SET(EDT)
		>
0
		IFE <C$$COD-XPB$ALL>,<
		$$NEWpVAL(BLN,XA$SXA)		 
		$$SET(BLN)
	 0	$$SET(RS2)
		$$ PSET(AID)
		$$SET p(BKZ)
		>

		I!FE <C$$COD-XB$KEY!0>,<
		$$NEWVAL(B!PLN,XA$SXK)		
		$!p$SET(BLN)
		$$SE"T(IFL)
		$$SET(D"0FL)
		$$SET(DTP)"P
		$$SET(FLG)
	"p	$$SET(IAN)
		$$#SET(DAN)
		$$SET#0(LAN)
		$$SET(RE#PF)
		$$SET(KNM)
		$$SET(RX0)
		$$$SET(RX1)
		$$S$0ET(RX2)
		$$SET($PRX3)
		$$SET(RX4$p)
		$$SET(RX5)
%
		$$SET(PS0)
	%0	$$SET(PS1)
		$$%PSET(PS2)
		$$SET%p(PS3)
		$$SET(PS&4)
		$$SET(PS5)
		$$SET(PS6)
		&P$$SET(PS7)

		$&p$SET(SZ0)
		$$SE'T(SZ1)
		$$SET(S'0Z2)
		$$SET(SZ3)'P
		$$SET(SZ4)
	'p	$$SET(SZ5)
		$$(SET(SZ6)
		$$SET(0(SZ7)
		>

		I(PFE <C$$COD-XB$SUM(p>,<
		$$NEWVAL(B)LN,XA$SXS)		
		$)0$SET(BLN)
		$$SE)PT(RS6)
		$$SET(N)pOK)
		$$SET(NOA)*
		$$SET(RS7)
	*0	$$SET(RS8)
		$$*PSET(RS9)
		>
		*pPURGE $$ADDR			
	>					
				
qN@ ,0*e $$ZERO(A,P,%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 P 
	IFNB <pB>,<IFL A-B,<PRINTX ?A HAS A VA0LUE WHICH IS TOO PLOW>>
	IFNB <C>p,<IFG A-C,<PRINTX ?A HAS A VALU0E WHICH IS TOO HIGH>>
IS TOO HIKy F@,>	
      IF`FN TOP$10,<PUSHJ G17,RMS$10##+C$CLOG SE>	
      IFN TG@OP$20,<104B8+1000G`+C$CLOSE>	
    C$CLOSE>	
    y p!9
	C=A+B		
	B==B+1			

	B==B+1			{W j.Z	
      Ij FN TOP$10,<PUSHJ j@17,RMS$10##+C$CONj`NECT>	
      IFNk TOP$20,<104B8+10k 00+C$CONNECT>	
    CONNECT>	
 )0 o /0	
      IuFN TOP$10,<PUSHJ u 17,RMS$10##+C$CREu@ATE>	
      IFN u`TOP$20,<104B8+100v0+C$CREATE>	
    $CREATE>	
   \Y 0![PURGE C$$BPURGE C$$$XZ z/Z	
      Iz FN TOP$10,<PUSHJ z@17,RMS$10##+C$DEBz`UG>	
      IFN T{OP$20,<104B8+1000{ +C$DEBUG>	
    C$DEBUG>	
    $[ Z@-^	
      IZ`FN TOP$10,<PUSHJ [17,RMS$10##+C$DEL[ ETE>	
      IFN [@TOP$20,<104B8+100[`0+C$DELETE>	
    $DELETE>	
   %q o@/	
      Io`FN TOP$10,<PUSHJ p17,RMS$10##+C$DISp CONNECT>	
      p@IFN TOP$20,<104B8p`+1000+C$DISCONNECT>	
    CONNEC%x 1.	
      I`FN TOP$10,<PUSHJ 17,RMS$10##+C$DIS PLAY>	
      IFN@ TOP$20,<104B8+10`00+C$DISPLAY>	
    DISPLAY>	
 -i  - END .(9 `1X	
      IFN TOP$10,<PUSHJ  17,RMS$10##+C$ERA@SE>	
      IFN T`OP$20,<104B8+1000+C$ERASE>	
    C$ERASE>	
    4*2P 4*yP 4+P 4+P 4,}P 4=P 4I;P 4\Y 0!-
	$$CODE(P.EXBAS,.EXCTR,A,B)
.EXCTR,A,4h1P 4kPP 4kxP 56 0 +
IF1,<
	$$AB==C$D
p	F$$B==<XX$G>B5 ! <XX$F>B11 ! X0X$E	
  >	;END OF IF1
>	;END O5TP 5R _`.	
      I`FN TOP$10,<PUSHJ ` 17,RMS$10##+C$FIN`@D>	
      IFN TO``P$20,<104B8+1000+C$FIND>	
    +5)WP 5+VP 5M9 @0.	
      I`FN TOP$10,<PUSHJ 17,RMS$10##+C$FLU SH>	
      IFN T@OP$20,<104B8+1000`+C$FLUSH>	
    C$FLUSH>	
    5\WP 5\YP 5|SP 6(:P 6)2 2	
      I FN TOP$10,<PUSHJ @17,RMS$10##+C$FRE`E>	
      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 <] K`,f	
      ILFN TOP$10,<PUSHJ L 17,RMS$10##+C$GETL@>	
      IFN TOPL`$20,<104B8+1000+C$GET>	
    0+CN;v 9+Q
	T$$PS==90F$$A_-^D30		
	T9P$$SZ==<F$$A_-^D29p4> & 77	
	T$$OF=:=F$$A & 777777	
$A& 777777	DEFINE B<A>DEFINE B<l !3A$MAX==.0ABASE + .ACTR - 1SE + .ACTR - l\y 	`0X	
      I
FN TOP$10,<PUSHJ 
 17,RMS$10##+C$MES
@SAGE>	
      IFN
` TOP$20,<104B8+1000+C$MESSAGE>	
    MESSAGE>	
 t]p %p"3
	IFNB <&0B>,<C$$A==B>
>,<C$$A==B>
t]{ P!e
	DEFINE C$$A<B>		
E u{2  1	
      I@FN TOP$10,<PUSHJ `17,RMS$10##+C$NOMESSAGE>	
      I FN TOP$20,<104B8+@1000+C$NOMESSAGE>	
    MESSAGE>~	7 ;0+_	
      I:PFN TOP$10,<PUSHJ ;17,RMS$10##+C$OPE;PN>	
      IFN TO;pP$20,<104B8+1000+C$OPEN>	
    +] P@-

	
      IP`FN TOP$10,<PUSHJ Q17,RMS$10##+C$PUTQ >	
      IFN TOPQ@$20,<104B8+1000+C$PUT>	
    0+C*2P *zP +P =P [  0	
      I@FN TOP$10,<PUSHJ `17,RMS$10##+C$RELEASE>	
      IFN  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` p!!
	$$CODE(.SUBAS,.SUCTR,A,B)
.SUCTR,A,V  M
	FB$ALL=0=FB$GET+FB$PUT+FBP$DEL+FB$UPD+FB$TRpN

	
	$$ASSUME(FB$SEQ,0)		;FILE0 ORG MUST BE GTR PZERO
	$$ASSUME(RpB$SEQ,0,0)		;RECORD ACCESS MUST ST0ART AT ZERO
	$$APSSUME(XB$KEY,0,0)p		;KEY XAB MUST B	E FIRST
	$$ASSUM	0E(XB$STG,0,0)		;S	PTRING DATA-TYPE SHOULD BE ZERO
&-7 d`.0	
      IeFN TOP$10,<PUSHJ e 17,RMS$10##+C$TRUe@NCATE>	
   IFe`N TOP$20,<104B8+1f000+C$TRUNCATE>	
,\RUNCATE>	
	$$CODE(p.ERBAS,.ERCTR,A,B)
.ERCTR,A,.	 U -4	
      IU@FN TOP$10,<PUSHJ U`17,RMS$10##+C$UPDVATE>	
      IFN V TOP$20,<104B8+100V@0+C$UPDATE>	
    $UPDATE>	
   .K $2*	
      I$ FN TOP$10,<PUSHJ $@17,RMS$10##+C$UTL$`INT>	
      IFN %TOP$20,<104B8+100% 0+C$UTLINT>	
    $UTLINT>	
   4[R !			
  IF20,<
	OPDEF	RM$MINP [104B8+1000]	;MIpNIMUM JSYS  VALUE
	OPDEF	RM$MAX [0104B8+1000+XX$MAX]
  >				
MAX4\Q P!
    C$pA==XX$MAX		
   

 DEFINE $$A(A)<

0	
      IFN TOP$

P10,<PUSHJ 17,RMS$

p10##+C$A>	
B8IN0TOP$20,<104
P  >
p$ADEFINE,ERRAD,.NLARG),<
	IFB <0.BLK1>,<IF1,<PRINPTX %ARGBLK ADDRESpS OMIITED ON A MACRO>>
	MOVEI	1,0 .BLK1
	IFNB <.NPLARG>,<IF1,<PRINTpX %MORE THAN 2 ARGS DETECTED IN A0 MACRO>>
	$$A		P	
	IFNB <.ERRAD>p,<JUMP 17,.ERRAD>
	IFB <.ERRAD>,<0JUMP 16,.+1>	
  P  >
  XX$MAX==XX$MAX+1		
X==XX5T  Y			
	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 -*q
	SETZM	-0A			
	MOVEI	2,A-P			
	MOVEI	1,1(2-p)			
	HRLI	1,A	.		
	BLT	1,B-1(2)		
T	1,B-1(2	e|r H ,Z
	IFB <AH@>,<IF1,<PRINTX %AH`RGBLK ADDRESS OMIIITED ON CLOSE MACI RO>>
	MOVEI	1, I@A
	IFNB <C>,<IFI`1,<PRINTX %MORE TJHAN 2 ARGS DETECTJ ED IN CLOSE MACROJ@>>
	$$CLOSE			
J`	IFNB <B>,<JUMP K17,B>
	IFB <B>K ,<JUMP 16,.+1>	
     16,.+1>	
	}kR k`.v
	IFB <Al>,<IF1,<PRINTX %Al RGBLK ADDRESS OMIl@ITED ON CONNECT Ml`ACRO>>
	MOVEI	1,m A
	IFNB <C>,<m IF1,<PRINTX %MOREm@ THAN 2 ARGS DETEm`CTED IN CONNECT MnACRO>>
	$$CONNECn T			
	IFNB <B>,n@<JUMP 17,B>
	IFn`B <B>,<JUMP 16,.+1>	
     16,.	X: v@/L
	IFB <Av`>,<IF1,<PRINTX %AwRGBLK ADDRESS OMIw ITED ON CREATE MAw@CRO>>
	MOVEI	1, w`A
	IFNB <C>,<IxF1,<PRINTX %MORE x THAN 2 ARGS DETECx@TED IN CREATE MACx`RO>>
	$$CREATE		y	
	IFNB <B>,<JUy MP 17,B>
	IFB <y@B>,<JUMP 16,.+1>	
     16,.+1>	,-3 {`/v
	IFB <A|>,<IF1,<PRINTX %A| RGBLK ADDRESS OMI|@ITED ON DEBUG MAC|`RO>>
	MOVEI	1, }A
	IFNB <C>,<IF} 1,<PRINTX %MORE T}@HAN 2 ARGS DETECT}`ED IN DEBUG MACRO~>>
	$$DEBUG			
~ 	IFNB <B>,<JUMP ~@17,B>
	IFB <B>~`,<JUMP 16,.+1>	
     16,.+1>	
	-I: \ -z
	IFB <A\@>,<IF1,<PRINTX %A\`RGBLK ADDRESS OMI]ITED ON DELETE MA] CRO>>
	MOVEI	1, ]@A
	IFNB <C>,<I]`F1,<PRINTX %MORE ^THAN 2 ARGS DETEC^ TED IN DELETE MAC^@RO>>
	$$DELETE		^`	
	IFNB <B>,<JU_MP 17,B>
	IFB <_ B>,<JUMP 16,.+1>	
     16,.+1>	N8w q /$
	IFB <Aq@>,<IF1,<PRINTX %Aq`RGBLK ADDRESS OMIrITED ON DISCONNECr T MACRO>>
	MOVEIr@	1, A
	IFNB <Cr`>,<IF1,<PRINTX %MsORE THAN 2 ARGS Ds ETECTED IN DISCONs@NECT MACRO>>
	$$s`DISCONNECT			
	ItFNB <B>,<JUMP 17t ,B>
	IFB <B>,<t@JUMP 16,.+1>	
     16,.+1>	
  	N<  1J
	IFB <A@>,<IF1,<PRINTX %A`RGBLK ADDRESS OMIITED ON DISPLAY M ACRO>>
	MOVEI	1,@ A
	IFNB <C>,<`IF1,<PRINTX %MORE THAN 2 ARGS DETE CTED IN DISPLAY M@ACRO>>
	$$DISPLA`Y			
	IFNB <B>,<JUMP 17,B>
	IF B <B>,<JUMP 16,.+1>	
     16,.	r @1t
	IFB <A`>,<IF1,<PRINTX %ARGBLK ADDRESS OMI ITED ON ERASE MAC@RO>>
	MOVEI	1, `A
	IFNB <C>,<IF1,<PRINTX %MORE T HAN 2 ARGS DETECT@ED IN ERASE MACRO`>>
	$$ERASE			
	IFNB <B>,<JUMP  17,B>
	IFB <B>@,<JUMP 16,.+1>	
     16,.+1>	
	.Ht /0+
	$$ISOL(/PB)			
	IFE <T$$/pSZ-^D18>,<		
	000  IFE T$$PS,<			
		HRRZ A,T$$OF+0PC
		T$$SZ==0		
	    >
	    IFE1 <T$$PS-^D18>,<		10
		HLRZ A,T$$OF1P+C
		T$$SZ==0		1p
	    >
	>
	IF2E <T$$SZ-^D36>,<	20	
		MOVE A,T$$O2PF+C
		T$$SZ==0	2p	
	>
	IFN T$$SZ3,<			
		LDB A,[30<T$$PS>B5 ! <T$$S3PZ>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ .p*w[F$$A+B][F$$A+B]	Mi a ."
	IFB <Aa@>,<IF1,<PRINTX %Aa`RGBLK ADDRESS OMIbITED ON FIND MACRb O>>
	MOVEI	1, Ab@
	IFNB <C>,<IF1b`,<PRINTX %MORE THcAN 2 ARGS DETECTEc D IN FIND MACRO>>c@
	$$FIND			
	IFc`NB <B>,<JUMP 17,dB>
	IFB <B>,<Jd UMP 16,.+1>	
     16,.+1>	
   	f\t  0J
	IFB <A@>,<IF1,<PRINTX %A`RGBLK ADDRESS OMIITED ON FLUSH MAC RO>>
	MOVEI	1, @A
	IFNB <C>,<IF`1,<PRINTX %MORE THAN 2 ARGS DETECT ED IN FLUSH MACRO@>>
	$$FLUSH			
`	IFNB <B>,<JUMP 	17,B>
	IFB <B>	 ,<JUMP 16,.+1>	
     16,.+1>	
	Y   @2
	IFB <A `>,<IF1,<PRINTX %A!RGBLK ADDRESS OMI! ITED ON FREE MACR!@O>>
	MOVEI	1, A!`
	IFNB <C>,<IF1",<PRINTX %MORE TH" AN 2 ARGS DETECTE"@D IN FREE MACRO>>"`
	$$FREE			
	IF#NB <B>,<JUMP 17,# B>
	IFB <B>,<J#@UMP 16,.+1>	
     16,.+1>	
   	.@ M -
	IFB <AM@>,<IF1,<PRINTX %AM`RGBLK ADDRESS OMINITED ON GET MACRON >>
	MOVEI	1, A
	IFNB <C>,<IF1,N`<PRINTX %MORE THAON 2 ARGS DETECTEDO  IN GET MACRO>>
O@	$$GET			
	IFNB O`<B>,<JUMP 17,B>P
	IFB <B>,<JUMP 16,.+1>	
    	&u )`2\			
	PUSH*@J 17,$$RMS##	
	.+@REQUIRE SYS:RMSINI	
)%BAD REC	6.<p @0t
	IFB <A`>,<IF1,<PRINTX %A

RGBLK ADDRESS OMI

 ITED ON MESSAGE M

@ACRO>>
	MOVEI	1,

` A
	IFNB<<C>,<%MORE
	$$MESSAGE			
	IFNB <B>, <JUMP 17,B>
	IF@B <B>,<JUMP 16,.+1>	
     16,.	:}Y9 1"
	IFB <A >,<IF1,<PRINTX %A@RGBLK ADDRESS OMI`ITED ON NOMESSAGE MACRO>>
	MOVEI	 1, A
	IFNB <C>@,<IF1,<PRINTX %MO`RE THAN 2 ARGS DETECTED IN NOMESSA GE MACRO>>
	$$NO@MESSAGE			
	IFNB` <B>,<JUMP 17,B>
	IFB <B>,<JUM P 16,.+1>	
     16,.+1>	
    	?[@ <0,0
	IFB <A<P>,<IF1,<PRINTX %AC@RGBLK ADDRESS OMIC`ITED ON OPEN MACRDO>>
	MOVEI	1, AD 
	IFNB <C>,<IF1D@,<PRINTX %MORE THD`AN 2 ARGS DETECTEED IN OPEN MACRO>>E 
	$$OPEN			
	IFE@NB <B>,<JUMP 17,E`B>
	IFB <B>,<JFUMP 16,.+1>	
     16,.+1>	
   	C.@ R-&
	IFB <AR >,<IF1,<PRINTX %AR@RGBLK ADDRESS OMIR`ITED ON PUT MACROS>>
	MOVEI	1, A
	IFNB <C>,<IF1,S@<PRINTX %MORE THAS`N 2 ARGS DETECTEDT IN PUT MACRO>>
T 	$$PUT			
	IFNB T@<B>,<JUMP 17,B>T`
	IFB <B>,<JUMP 16,.+1>	
    	J-I0 0 
	IFB <A >,<IF1,<PRINTX %A@RGBLK ADDRESS OMI`ITED ON RELEASE MACRO>>
	MOVEI	1,  A
	IFNB <C>,<@IF1,<PRINTX %MORE` THAN 2 ARGS DETECTED IN RELEASE M ACRO>>
	$$RELEAS@E			
	IFNB <B>,`<JUMP 17,B>
	IFB <B>,<JUMP 16,.+1>	
     16,.	J.M9 *sPOPJ	17,	Jn0 )`2\			
	PUSH*@J 17,$$RMS##	
	.+@REQUIRE SYS:RMSINI	
)%BAD REC	O%|R 4+E
	$$ISOL(40B)			
	IFE <T$$4PSZ-^D18>,<		
	54p  IFE T$$PS,<			
		HRRM A,T$$OF+50C
		T$$SZ==0		
	    >
	    IFE5p <T$$PS-^D18>,<		6
		HRLM A,T$$OF60+C
		T$$SZ==0		6P
	    >
	>
	IF6pE <T$$SZ-^D36>,<	7	
		MOVEM A,T$$70OF+C
		T$$SZ==07P		;INDIC INST GEN7p
	>
	IFN T$$SZ,8<			
		DPB A,[<80T$$PS>B5 ! <T$$SZ8P>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q [email protected]
	IFB <Af`>,<IF1,<PRINTX %AgRGBLK ADDRESS OMIg ITED ON TRUNCATE g@MACRO>>
	MOVEI	1g`, A
	IFNB <C>,h<IF1,<PRINTX %MORh E THAN 2 ARGS DETh@ECTED IN TRUNCATEh` MACRO>>
	$$TRUNiCATE			
	IFNB <i B>,<JUMP 17,B>
i@	IFB <B>,<JUMP 16,.+1>	
     1	WH: W-P
	IFB <AW >,<IF1,<PRINTX %AW@RGBLK ADDRESS OMIW`ITED ON UPDATE MAXCRO>>
	MOVEI	1, X A
	IFNB <C>,<IX@F1,<PRINTX %MORE X`THAN 2 ARGS DETECYTED IN UPDATE MACY RO>>
	$$UPDATE		Y@	
	IFNB <B>,<JUY`MP 17,B>
	IFB <ZB>,<JUMP 16,.+1>	
     16,.+1>	W%J7 %`2F
	IFB <A&>,<IF1,<PRINTX %A& RGBLK ADDRESS OMI&@ITED ON UTLINT MA&`CRO>>
	MOVEI	1, 'A
	IFNB <C>,<I' F1,<PRINTX %MORE '@THAN 2 ARGS DETEC'`TED IN UTLINT MAC(RO>>
	$$UTLINT		( 	
	IFNB <B>,<JU(@MP 17,B>
	IFB <(`B>,<JUMP 16,.+1>	
     16,.+1>: P!E
	DEFINE pA$B(ARG)<
		IF1,<PRINTX	%"A$B0" RMS-11 ONLY, IGPNORED BY RMS-20>
	>
YhRMS-20>!K
	IRP A,0< ..BADF(F,A) >
.BADF(F,A)!>
	IRP A,< ..BADF(R,A) >
.BADF(R,A)!>
	IRP A,p< ..BADF(X,A) >
.BADF(X,A)(>P#=P 0D(9P# D=P O,(9P O,=P >}{woP