Google
 

Trailing-Edge - PDP-10 Archives - BB-H580E-SB_1985 - 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,<PRINTX	%"F$ALQ" RM(S-11 ONLY, IGNORED BY RMS-20>
	LhR
		IF1,<PRINTX	%"F$ANB" RM(S-11 ONLY, IGNORED BY RMS-20>
	L<` ?h~$$NEWVAL (BKS,A)NEWVAL (LL` ?(z$$NEWVAL (BLS,A)NEWVAL (L>@ =(j$$NEWVAL (BSZ,A)NEWVAL (LN @($$NEWVAL (CTX,A)NEWVAL (L%h  h2
		IF1,<PRINTX	%"F$DNA" RM(S-11 ONLY, IGNORED BY RMS-20>
	L%l` h:
		IF1,<PRINTX	%"F$DNS" RM(S-11 ONLY, IGNORED BY RMS-20>
	L4` 9(J$$NEWVAL (FAC,A)NEWVAL (L5h  ;(Z$$NEWVAL (FNA,A)NEWVAL (L5l` h*
		IF1,<PRINTX	%"F$FNS" RM(S-11 ONLY, IGNORED BY RMS-20>
	L5| :(R$$NEWVAL (FOP,A)NEWVAL (L6>@ hZ
		IF1,<PRINTX	%"F$FSZ" RM(S-11 ONLY, IGNORED BY RMS-20>
	LTk@ 8hF$$NEWVAL (JFN,A)NEWVAL (LUk >hv$$NEWVAL (JNL,A)NEWVAL (Ld: hb
		IF1,<PRINTX	%"F$LCH" RM(S-11 ONLY, IGNORED BY RMS-20>
	Ln+@ <hf$$NEWVAL (MRN,A)NEWVAL (Ln,` <(b$$NEWVAL (MRS,A)NEWVAL (L~)` :hV$$NEWVAL (ORG,A)NEWVAL (L ;h^$$NEWVAL (RAT,A)NEWVAL (Lk  =hn$$NEWVAL (RFM,A)NEWVAL (LM@ hB
		IF1,<PRINTX	%"F$RTV" RM(S-11 ONLY, IGNORED BY RMS-20>
	L
@ 9hN$$NEWVAL (SHR,A)NEWVAL (LD@ >(r$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ 0(B
	IFNB <0HA>,<			;RUN-TIME 0hINIT
		$$MAPADD 1(A,$$ADDR);	; WI1(LL REFERENCE FAB 1HVIA $$ADDR
		SYN1h SF$$RT,$$SET
	>2					
	IFB <A>,2(<SYN SF$$CT,$$SET2H>	
		$$CURR (F,B2hID)
		$$CURR (F,3BLN)
		$$CURR (F3(,STS)
		$$CURR (3HF,STV)
		$$CURR 3h(F,IFI)
		$$CURR4 (F,JFN)
		$$CUR4(R (F,FAC)
		$$CU4HRR (F,SHR)
		$$C4hURR (F,FOP)
		$$5CURR (F,ORG)
		$5($CURR (F,FNA)
		5H$$CURR (F,RAT)
	5h	$$CURR (F,MRS)
6		$$CURR (F,MRN)
		$$CURR (F,BSZ)6H
		$$CURR (F,RFM6h)
		$$CURR (F,XA7B)
		$$CURR (F,J7(NL)
		$$CURR (F,7HBLS)
		$$CURR (F7h,BKS)
		$$CURR (8F,DEV)
		$$CURR 8((F,SDC)
		$$CURR (F,CTX)
	CURRMI  @hf
	IFNDEF A$$ADDR,<				
		<A($$SET(BID)>_^D18 AH! <$$SET(BLN)>
	Ah	<$$SET(STS)>^D1B8 ! <$$SET(STV)>
		<$$SET(CTX)>
BH		<$$SET(IFI)>_^DBh18 ! <$$SET(JFN)>C
		<$$SET(FAC)>_C(^D18 ! <$$SET(SHRCH)>
		<$$SET(FOP)Ch>_^D18 ! <$$SET(ODRG)>_^D14 ! <$$SED(T(BSZ)>_^D8 ! <$$DHSET(BLS)>
		<$$SDhET(FNA)>
		<$$SEET(RAT)>_^D18 ! <$E($SET(MRS)>
		<$$EHSET(MRN)>
		<$$SEhET(BKS)>_^D5 ! <$F$SET(RFM)>
		<$$F(SET(JNL)>_^D18 ! FH<$$SET(XAB)>
		<Fh$$SET(DEV)>_^D18 G! <$$SET(SDC)>
	G(	EXP 0,0,0,0
	>	GH				;END IFNB
	IGhFDEF $$ADDR,<
		H$$SET(BID)
		$$SH(ET(BLN)
		$$SET(HHSTS)
		$$SET(STVHh)
		$$SET(IFI)
I		$$SET(JFN)
		$I($SET(FAC)
		$$SEIHT(SHR)
		$$SET(FIhOP)
		$$SET(ORG)J
		$$SET(FNA)
	J(	$$SET(RAT)
		$$JHSET(MRS)
		$$SETJh(MRN)
		$$SET(BSKZ)
		$$SET(RFM)
		$$SET(XAB)
		KH$$SET(JNL)
		$$SKhET(BLS)
		$$SET(LBKS)
		$$SET(DEVL()
		$$SET(SDC)
LH		$$SET(CTX)
		PLhURGE $$ADDR			
	>					
				
	MN@&"HP$$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 [h^ $$NEWVAL (CTX,A)NEWVAL d4@ U(* $$NEWVAL (FAB,A)NEWVAL d\)@ YhN $$NEWVAL (KBF,A)NEWVAL d^)@ XhF $$NEWVAL (KRF,A)NEWVAL d^>@ Y(J $$NEWVAL (KSZ,A)NEWVAL df;@ [(Z $$NEWVAL (LSN,A)NEWVAL dl)@ Z(R $$NEWVAL (MBF,A)NEWVAL d ZhV $$NEWVAL (PAD,A)NEWVAL d` Uh. $$NEWVAL (RAC,A)NEWVAL d)@ W(: $$NEWVAL (RBF,A)NEWVAL d@ (f
		IF1,<PHRINTX	%"R$RHB" RMhS-11 ONLY, IGNORED BY RMS-20>
	d| V(2 $$NEWVAL (ROP,A)NEWVAL d>@ Wh> $$NEWVAL (RSZ,A)NEWVAL d,)@ Vh6 $$NEWVAL (UBF,A)NEWVAL d.>@ X(B $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ M(&
	IFNB <MHA>,<
		$$MAPADD Mh(A,$$ADDR);	; WINLL REFERENCE THE N(BLOCK VIA $$ADDR
		SYN SR$$RT,$$SNhET
	>					
	IFBO <A>,<SYN SR$$CTO(,$$SET>	
		$$CUROHR (R,BID)
		$$CUOhRR (R,BLN)
		$$CPURR (R,STS)
		$$P(CURR (R,STV)
		$PH$CURR (R,ISI)
		Ph$$CURR (R,FAB)
	Q	$$CURR (R,RAC)
Q(		$$CURR (R,ROP)
		$$CURR (R,UBF)Qh
		$$CURR (R,RBFR)
		$$CURR (R,RSR(Z)
		$$CURR (R,URHSZ)
		$$CURR (R,RhRFA)
		$$CURR (RS,KRF)
		$$CURR (S(R,KSZ)
		$$CURR SH(R,KBF)
		$$CURRSh (R,MBF)
		$$CURTR (R,LSN)
		$$CUT(RR (R,BKT)
		$$CTHURR (R,PAD)
		$$ThCURR (R,CTX)
	 URR (R,CTX)
	 eI  \(>
	IFNDEF \H$$ADDR,<
		<$$SE\hT(BID)>_^D18 ! <$]$SET(BLN)>
		<$$](SET(STS)>_^D18 ! ]H<$$SET(STV)>
		<]h$$SET(CTX)>
		<$^$SET(ISI)>_^D18 !^( <$$SET(FAB)>
		^H<$$SET(RAC)>_^D27^h ! <$$SET(MBF)>_^_D18 ! <$$SET(ROP)_(>
		<$$SET(UBF)>_H
		<$$SET(RBF)>
		<$$SET(RSZ)>_^`D18 ! <$$SET(USZ)`(>
		<$$SET(RFA)>`H
		<$$SET(KRF)>_`h^D27 ! <$$SET(KSZa)>_^D18 ! <$$SET(a(LSN)>
		<$$SET(KaHBF)>
		<$$SET(BKahT)>
		<$$SET(PADb)>_^D27
		EXP 0,b(0,0
	>				;IFNDEbHF
	IFDEF $$ADDR,bh<
		$$SET(BID)
c		$$SET(BLN)
		$c($SET(STS)
		$$SEcHT(STV)
		$$SET(IchSI)
		$$SET(FAB)d
		$$SET(RAC)
	d(	$$SET(ROP)
		$$dHSET(UBF)
		$$SETdh(RBF)
		$$SET(RSeZ)
		$$SET(USZ)
		$$SET(RFA)
		eH$$SET(KRF)
		$$SehET(KSZ)
		$$SET(fKBF)
		$$SET(MBFf()
		$$SET(LSN)
fH		$$SET(BKT)
		$fh$SET(PAD)
		$$SEgT(CTX)
		PURGE $g($ADDR			;SO NEXT gHC/R DECIS CORRECTgh
	>					;IFDEF
	>					;IFDEF
eN@ # $$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$(` {X A$B==1BC  A$B==1Bf$H` zHT A$B==^DC  A$B==^Df&8` zP A$B==C$D  A$B==Cg Hz +H^IFDEF C$$+hA,<C$$A> IFNDEF C$$A,<$$FA>F g LZ *(X
	    IFN*HDEF C$$A,<IFN $$*hFA,<C$$A==$$FA+>>
	    STO$$C(A)			
	TO$$C(gH Hz -HnIFDEF C$$-hA,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ ,(h
	    IFN,HDEF C$$A,<IFN $$,hRA,<C$$A==$$RA->>
	    STO$$C(A)			
	TO$$C(gRxA (hN			
	)(  )IFDEF C$$A,<			
		<HRREI 1,> ! C)H$$A		
		$STORE	)h(1,A,$$ADDR)		
	    >
	R)		
gT$M8@ gT%@ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz /H~IFDEF C$$/hA,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ .(x
	    IFN.HDEF C$$A,<IFN $$.hXA,<C$$A==$$XA/>>
	    STO$$C(A)			
	TO$$C(i?D(P$i?DHPpD,A)NEWVAL (p>@ y(J$$NEWVAL (BKZ,A)NEWVAL (p$@ |(b$$NEWVAL (DAN,A)NEWVAL (p$k z(R$$NEWVAL (DFL,A)NEWVAL (p&L zhV$$NEWVAL (DTP,A)NEWVAL (p,M x(B$$NEWVAL (EDT,A)NEWVAL (p5I` {(Z$$NEWVAL (FLG,A)NEWVAL (p>, $$
		IF1,<P$(RINTX	%"X$GRP" RM$HS-11 ONLY, IGNORED BY RMS-20>
	pD |
		IF1,<P(RINTX	%"X$HAL" RMHS-11 ONLY, IGNORED BY RMS-20>
	pL@ {h^$$NEWVAL (IAN,A)NEWVAL (pLk yhN$$NEWVAL (IFL,A)NEWVAL (p]k  }hn$$NEWVAL (KNM,A)NEWVAL (pd@ |hf$$NEWVAL (LAN,A)NEWVAL (pnJ t
		IF1,<P(RINTX	%"X$MTH" RMHS-11 ONLY, IGNORED BY RMS-20>
	pwwh>$$NEWVAL (NXT,A)NEWVAL (p~{@ #
		IF1,<P#(RINTX	%"X$OWN" RM#HS-11 ONLY, IGNORED BY RMS-20>
	p|` ~(

		$$NE~HWARRVAL (PS0,A)
		$$NEWARRVAL (PS1,B)
		$$NEWAR(RVAL (PS2,C)
		H$$NEWARRVAL (PS3,hD)
		$$NEWARRVAL (PS4,E)
		$$N(EWARRVAL (PS5,F)H
		$$NEWARRVAL (hPS6,G)
		$$NEWARRVAL (PS7,H)
	VAL (PS7,H)
	p)`  
		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@ }(j$$NEWVAL (REF,A)NEWVAL (p+@ '<
		IF1,<P'(RINTX	%"X$SBN" RM'HS-11 ONLY, IGNORED BY RMS-20>
	p@ H"

		$$NEhWARRVAL (SZ0,A)
		$$NEWARRVAL (S(Z1,B)
		$$NEWARHRVAL (SZ2,C)
		h$$NEWARRVAL (SZ3,D)
		$$NEWARRVA(L (SZ4,E)
		$$NHEWARRVAL (SZ5,F)h
		$$NEWARRVAL (SZ6,G)
		$$NEWA(RRVAL (SZ7,H)
	VAL (SZ7,H)
	p` "
		IF1,<P"(RINTX	%"X$SYS" RM"HS-11 ONLY, IGNORED BY RMS-20>
	p5{ &4
		IF1,<P&(RINTX	%"X$VOL" RM&HS-11 ONLY, IGNORED BY RMS-20>
	p=I %,
		IF1,<P%(RINTX	%"X$WLD" RM%HS-11 ONLY, IGNORED BY RMS-20>
	pD.  (D
		IF1,<P((RINTX	%"X$XBY" RM(HS-11 ONLY, IGNORED BY RMS-20>
	pT\WP q%KSP 	q&>P q&>P q&>P 	q&>P q&>P q&N8P qH@ h(:
	IFNB <hHB>,<
		$$MAPADD hh(B,$$ADDR)	
		SiYN SX$$RT,$$SET
i(	>					
	IFB <BiH>,<SYN SX$$CT,$$SihET>	
						
		Cj$$COD==XB$A		
	j(	C$$BLN==XA$SXA	jH	
						

		$$jhCURR (X,BID)
		$k$CURR (X,RS1)
		k($$CURR (X,NXT)
kH
						
		$$CURRkh (X,CDT)
		$$CURlR (X,RDT)
		$$CUl(RR (X,EDT)

			lH			
		$$CURR (X,lhRS2)
		$$CURR (Xm,AID)
		$$CURR (m(X,BKZ)

						
		$$CURR (X,IFL)mh
		$$CURR (X,DFLn)
		$$CURR (X,DTn(P)
		$$CURR (X,FnHLG)
		$$CURR (X,nhIAN)
		$$CURR (Xo,DAN)
		$$CURR (o(X,LAN)
		$$CURR oH(X,REF)
		$$CURRoh (X,KNM)
		$$CURpR (X,RX0)
		$$CUp(RR (X,RX1)
		$$CpHURR (X,RX2)
		$$phCURR (X,RX3)
		$q$CURR (X,RX4)
		q($$CURR (X,RX5)
	qH	$$CURR (X,PS0)
qh		$$CURR (X,PS1)
		$$CURR (X,PS2)r(
		$$CURR (X,PS3rH)
		$$CURR (X,PSrh4)
		$$CURR (X,PsS5)
		$$CURR (X,s(PS6)
		$$CURR (XsH,PS7)
		$$CURR (shX,SZ0)
		$$CURR t(X,SZ1)
		$$CURRt( (X,SZ2)
		$$CURtHR (X,SZ3)
		$$CUthRR (X,SZ4)
		$$CuURR (X,SZ5)
		$$u(CURR (X,SZ6)
		$uH$CURR (X,SZ7)
	uh
						
		$$CURRv (X,RS6)
		$$CURv(R (X,NOK)
		$$CUvHRR (X,NOA)
		$$CvhURR (X,RS7)
		$$wCURR (X,RS8)
		$w($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)>_^D	h27 ! <$$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)>_^D18
H ! <$$SET(SZ1)>

h			<$$SET(PS2)>2^
			<$$SET(PS3)T(S
			<$$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-XhB$ALL>,<
		$$NEWVAL(BLN,XA$SXA)		(
		$$SET(BLN)
	H	$$SET(RS2)
		$$hSET(AID)
		$$SET(BKZ)
		>

		I(FE <C$$COD-XB$KEYH>,<
		$$NEWVAL(BhLN,XA$SXK)		
		$$SET(BLN)
		$$SE(T(IFL)
		$$SET(DHFL)
		$$SET(DTP)h
		$$SET(FLG)
		$$SET(IAN)
		$$(SET(DAN)
		$$SETH(LAN)
		$$SET(REhF)
		$$SET(KNM)
		$$SET(RX0)
		($$SET(RX1)
		$$SHET(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(SHZ2)
		$$SET(SZ3)h
		$$SET(SZ4)
		$$SET(SZ5)
		$$(SET(SZ6)
		$$SETH(SZ7)
		>

		IhFE <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 $$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 whL
	IFNB <xB>,<IFL A-B,<PRx(INTX ?A HAS A VAxHLUE WHICH IS TOO xhLOW>>
	IFNB <C>y,<IFG A-C,<PRINy(TX ?A HAS A VALUyHE WHICH IS TOO HIGH>>
IS TOO HIKy =Xw	
      I=xFN TOP$10,<PUSHJ >17,RMS$10##+C$CLO>8SE>	
      IFN T>XOP$20,<104B8+1000>x+C$CLOSE>	
    C$CLOSE>	
    y r
	C=A+(B		
	B==B+1			

	B==B+1			{W a	
      Ia8FN TOP$10,<PUSHJ aX17,RMS$10##+C$CONaxNECT>	
      IFNb TOP$20,<104B8+10b800+C$CONNECT>	
    CONNECT>	
 )0 f8i	
      IlFN TOP$10,<PUSHJ l817,RMS$10##+C$CRElXATE>	
      IFN lxTOP$20,<104B8+100m0+C$CREATE>	
    $CREATE>	
   \Y HPURGE C$$BPURGE C$$$XZ q	
      Iq8FN TOP$10,<PUSHJ qX17,RMS$10##+C$DEBqxUG>	
      IFN TrOP$20,<104B8+1000r8+C$DEBUG>	
    C$DEBUG>	
    $[ QX	
      IQxFN TOP$10,<PUSHJ R17,RMS$10##+C$DELR8ETE>	
      IFN RXTOP$20,<104B8+100Rx0+C$DELETE>	
    $DELETE>	
   %q fX?	
      IfxFN TOP$10,<PUSHJ g17,RMS$10##+C$DISg8CONNECT>	
      gXIFN TOP$20,<104B8gx+1000+C$DISCONNECT>	
    CONNEC%x  g	
      IxFN TOP$10,<PUSHJ 
17,RMS$10##+C$DIS
8PLAY>	
      IFN
X TOP$20,<104B8+10
x00+C$DISPLAY>	
    DISPLAY>	
 -i f END .(9 x!	
      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 
Hf
	$$CODE(
h.EXBAS,.EXCTR,A,B)
.EXCTR,A,4h1P 4kPP 4kxP 56 {Hd
{IF1,<
	$$AB==C$D
|	F$$B==<XX$G>B5|( ! <XX$F>B11 ! X|HX$E	
  >	;END OF IF1
>	;END O5TP 5R Vx?	
      IWFN TOP$10,<PUSHJ W817,RMS$10##+C$FINWXD>	
      IFN TOWxP$20,<104B8+1000+C$FIND>	
    +5)WP 5+VP 5M9 {Xg	
      I{xFN TOP$10,<PUSHJ |17,RMS$10##+C$FLU|8SH>	
      IFN T|XOP$20,<104B8+1000|x+C$FLUSH>	
    C$FLUSH>	
    5\WP 5\YP 5|SP 6(:P 6)2 !9	
      I8FN TOP$10,<PUSHJ X17,RMS$10##+C$FRExE>	
      IFN TOP$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 <] Bx	
      ICFN TOP$10,<PUSHJ C817,RMS$10##+C$GETCX>	
      IFN TOPCx$20,<104B8+1000+C$GET>	
    0+CN;v 0(

	T$$PS==0HF$$A_-^D30		
	T0h$$SZ==<F$$A_-^D214> & 77	
	T$$OF=1(=F$$A & 777777	
$A&777777	DEFINE B<A>DEFINEB<l
      IFN TOP$10,<PUSHJ 817,RMS$10##+C$MESXSAGE>	
      IFNx TOP$20,<104B8+1000+C$MESSAGE>	
    MESSAGE>	
 t]p l
	IFNB <HB>,<C$$A==B>
>,<C$$A==B>
t]{ h
	DEFINE C$$A<B>		
E u{2 8 =	
      IXFN TOP$10,<PUSHJ x17,RMS$10##+C$NOMESSAGE>	
      I8FN TOP$20,<104B8+X1000+C$NOMESSAGE>	
    MESSAGE>~	7 2H	
      I1hFN TOP$10,<PUSHJ 2(17,RMS$10##+C$OPE2hN>	
      IFN TO3P$20,<104B8+1000+C$OPEN>	
    +] GXE	
      IGxFN TOP$10,<PUSHJ H17,RMS$10##+C$PUTH8>	
      IFN TOPHX$20,<104B8+1000+C$PUT>	
    0+C*2P *zP +P =P [ v8=	
      IvXFN TOP$10,<PUSHJ vx17,RMS$10##+C$RELwEASE>	
      IFNw8 TOP$20,<104B8+10wX00+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` Z
	$$CODE((.SUBAS,.SUCTR,A,B)
.SUCTR,A,V }(
	FB$ALL=}H=FB$GET+FB$PUT+FB}h$DEL+FB$UPD+FB$TR~N

	
	$$ASSUME~((FB$SEQ,0)		;FILE~H ORG MUST BE GTR ~hZERO
	$$ASSUME(RB$SEQ,0,0)		;RECO(RD ACCESS MUST STHART AT ZERO
	$$AhSSUME(XB$KEY,0,0)		;KEY XAB MUST B(E FIRST
	$$ASSUMHE(XB$STG,0,0)		;ShTRING DATA-TYPE SHOULD BE ZERO
&-7 [xi	
      I\FN TOP$10,<PUSHJ \817,RMS$10##+C$TRU\XNCATE>	
   IF\xN TOP$20,<104B8+1]000+C$TRUNCATE>	
,\RUNCATE>	
	$$CODE(
.ERBAS,.ERCTR,A,B)
.ERCTR,A,.	 L8m	
      ILXFN TOP$10,<PUSHJ Lx17,RMS$10##+C$UPDMATE>	
      IFN M8TOP$20,<104B8+100MX0+C$UPDATE>	
    $UPDATE>	
   .K !c	
      I8FN TOP$10,<PUSHJ X17,RMS$10##+C$UTLxINT>	
      IFN TOP$20,<104B8+10080+C$UTLINT>	
    $UTLINT>	
   4[R 	(T			
  IF2	H,<
	OPDEF	RM$MIN	h [104B8+1000]	;MI
NIMUM JSYS  VALUE
(
	OPDEF	RM$MAX [
H104B8+1000+XX$MAX]
  >				
MAX4\Q hF		
    C$A==XX$MAX		
   ( DEFINE $$A(A)<H	
      IFN TOP$h10,<PUSHJ 17,RMS$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 (			
	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 $(*
	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 ?8
	IFB <A?X>,<IF1,<PRINTX %A?xRGBLK ADDRESS OMI@ITED ON CLOSE MAC@8RO>>
	MOVEI	1, @XA
	IFNB <C>,<IF@x1,<PRINTX %MORE TAHAN 2 ARGS DETECTA8ED IN CLOSE MACROAX>>
	$$CLOSE			
Ax	IFNB <B>,<JUMP B17,B>
	IFB <B>B8,<JUMP 16,.+1>	
     16,.+1>	
	}kR bx/
	IFB <Ac>,<IF1,<PRINTX %Ac8RGBLK ADDRESS OMIcXITED ON CONNECT McxACRO>>
	MOVEI	1,d A
	IFNB <C>,<d8IF1,<PRINTX %MOREdX THAN 2 ARGS DETEdxCTED IN CONNECT MeACRO>>
	$$CONNECe8T			
	IFNB <B>,eX<JUMP 17,B>
	IFexB <B>,<JUMP 16,.+1>	
     16,.	X: mX
	IFB <Amx>,<IF1,<PRINTX %AnRGBLK ADDRESS OMIn8ITED ON CREATE MAnXCRO>>
	MOVEI	1, nxA
	IFNB <C>,<IoF1,<PRINTX %MORE o8THAN 2 ARGS DETECoXTED IN CREATE MACoxRO>>
	$$CREATE		p	
	IFNB <B>,<JUp8MP 17,B>
	IFB <pXB>,<JUMP 16,.+1>	
     16,.+1>	,-3 rx/
	IFB <As>,<IF1,<PRINTX %As8RGBLK ADDRESS OMIsXITED ON DEBUG MACsxRO>>
	MOVEI	1, tA
	IFNB <C>,<IFt81,<PRINTX %MORE TtXHAN 2 ARGS DETECTtxED IN DEBUG MACROu>>
	$$DEBUG			
u8	IFNB <B>,<JUMP uX17,B>
	IFB <B>ux,<JUMP 16,.+1>	
     16,.+1>	
	-I: S83
	IFB <ASX>,<IF1,<PRINTX %ASxRGBLK ADDRESS OMITITED ON DELETE MAT8CRO>>
	MOVEI	1, TXA
	IFNB <C>,<ITxF1,<PRINTX %MORE UTHAN 2 ARGS DETECU8TED IN DELETE MACUXRO>>
	$$DELETE		Ux	
	IFNB <B>,<JUVMP 17,B>
	IFB <V8B>,<JUMP 16,.+1>	
     16,.+1>	N8w h8]
	IFB <AhX>,<IF1,<PRINTX %AhxRGBLK ADDRESS OMIiITED ON DISCONNECi8T MACRO>>
	MOVEIiX	1, A
	IFNB <Cix>,<IF1,<PRINTX %MjORE THAN 2 ARGS Dj8ETECTED IN DISCONjXNECT MACRO>>
	$$jxDISCONNECT			
	IkFNB <B>,<JUMP 17k8,B>
	IFB <B>,<kXJUMP 16,.+1>	
     16,.+1>	
8!	N< 
	IFBI<APRINTXO%AITED 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 X!-
	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 &HV
	$$ISOL(&hB)			
	IFE <T$$'SZ-^D18>,<		
	'H'(  IFE T$$PS,<			
		HRRZ A,T$$OF+'hC
		T$$SZ==0		
	    >
	    IFE(( <T$$PS-^D18>,<		(H
		HLRZ A,T$$OF(h+C
		T$$SZ==0		)
	    >
	>
	IF)(E <T$$SZ-^D36>,<	)H	
		MOVE A,T$$O)hF+C
		T$$SZ==0	*	
	>
	IFN T$$SZ*(,<			
		LDB A,[*H<T$$PS>B5 ! <T$$S*hZ>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ &0[F$$A+B][F$$A+B]	Mi X8[
	IFB <AXX>,<IF1,<PRINTX %AXxRGBLK ADDRESS OMIYITED ON FIND MACRY8O>>
	MOVEI	1, AYX
	IFNB <C>,<IF1Yx,<PRINTX %MORE THZAN 2 ARGS DETECTEZ8D IN FIND MACRO>>ZX
	$$FIND			
	IFZxNB <B>,<JUMP 17,[B>
	IFB <B>,<J[8UMP 16,.+1>	
     16,.+1>	
   	f\t }8 
	IFB <A}X>,<IF1,<PRINTX %A}xRGBLK ADDRESS OMI~ITED ON FLUSH MAC~8RO>>
	MOVEI	1, ~XA
	IFNB <C>,<IF~x1,<PRINTX %MORE THAN 2 ARGS DETECT8ED IN FLUSH MACROX>>
	$$FLUSH			
x	IFNB <B>,<JUMP 17,B>
	IFB <B>8,<JUMP 16,.+1>	
     16,.+1>	
	Y  X!U
	IFB <Ax>,<IF1,<PRINTX %ARGBLK ADDRESS OMI8ITED ON FREE MACRXO>>
	MOVEI	1, Ax
	IFNB <C>,<IF1,<PRINTX %MORE TH8AN 2 ARGS DETECTEXD IN FREE MACRO>>x
	$$FREE			
	IFNB <B>,<JUMP 17,8B>
	IFB <B>,<JXUMP 16,.+1>	
     16,.+1>	
   	.@ D89
	IFB <ADX>,<IF1,<PRINTX %ADxRGBLK ADDRESS OMIEITED ON GET MACROE8>>
	MOVEI	1, A
	IFNB <C>,<IF1,Ex<PRINTX %MORE THAFN 2 ARGS DETECTEDF8 IN GET MACRO>>
FX	$$GET			
	IFNB Fx<B>,<JUMP 17,B>G
	IFB <B>,<JUMP 16,.+1>	
    	&u  x"			
	PUSH!XJ 17,$$RMS##	
	."XREQUIRE SYS:RMSINI	
)%BAD REC	6.<p X -
	IFB <Ax>,<IF1,<PRINTX %ARGBLK ADDRESS OMI8ITED ON MESSAGE MXACRO>>
	MOVEI	1,x A
	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  [
	IFB <A8>,<IF1,<PRINTX %AXRGBLK ADDRESS OMIxITED ON NOMESSAGE	 MACRO>>
	MOVEI		81, A
	IFNB <C>	X,<IF1,<PRINTX %MO	xRE THAN 2 ARGS DE
TECTED IN NOMESSA
8GE MACRO>>
	$$NO
XMESSAGE			
	IFNB
x <B>,<JUMP 17,B>
	IFB <B>,<JUM8P 16,.+1>	
     16,.+1>	
    	?[@ 3Hi
	IFB <A3h>,<IF1,<PRINTX %A:XRGBLK ADDRESS OMI:xITED ON OPEN MACR;O>>
	MOVEI	1, A;8
	IFNB <C>,<IF1;X,<PRINTX %MORE TH;xAN 2 ARGS DETECTE<D IN OPEN MACRO>><8
	$$OPEN			
	IF<XNB <B>,<JUMP 17,<xB>
	IFB <B>,<J=UMP 16,.+1>	
     16,.+1>	
   	C.@ I_
	IFB <AI8>,<IF1,<PRINTX %AIXRGBLK ADDRESS OMIIxITED ON PUT MACROJ>>
	MOVEI	1, A
	IFNB <C>,<IF1,JX<PRINTX %MORE THAJxN 2 ARGS DETECTEDK IN PUT MACRO>>
K8	$$PUT			
	IFNB KX<B>,<JUMP 17,B>Kx
	IFB <B>,<JUMP 16,.+1>	
    	J-I0 xY
	IFB <Ax8>,<IF1,<PRINTX %AxXRGBLK ADDRESS OMIxxITED ON RELEASE MyACRO>>
	MOVEI	1,y8 A
	IFNB <C>,<yXIF1,<PRINTX %MOREyx THAN 2 ARGS DETEzCTED IN RELEASE Mz8ACRO>>
	$$RELEASzXE			
	IFNB <B>,zx<JUMP 17,B>
	IF{B <B>,<JUMP 16,.+1>	
     16,.	J.M9 ,POPJ	17,	Jn0  x"			
	PUSH!XJ 17,$$RMS##	
	."XREQUIRE SYS:RMSINI	
)%BAD REC	O%|R +(~
	$$ISOL(+HB)			
	IFE <T$$+hSZ-^D18>,<		
	,(,  IFE T$$PS,<			
		HRRM A,T$$OF+,HC
		T$$SZ==0		
	    >
	    IFE- <T$$PS-^D18>,<		-(
		HRLM A,T$$OF-H+C
		T$$SZ==0		-h
	    >
	>
	IF.E <T$$SZ-^D36>,<	.(	
		MOVEM A,T$$.HOF+C
		T$$SZ==0.h		;INDIC INST GEN/
	>
	IFN T$$SZ,/(<			
		DPB A,[</HT$$PS>B5 ! <T$$SZ/h>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q ]X
	IFB <A]x>,<IF1,<PRINTX %A^RGBLK ADDRESS OMI^8ITED ON TRUNCATE ^XMACRO>>
	MOVEI	1^x, A
	IFNB <C>,_<IF1,<PRINTX %MOR_8E THAN 2 ARGS DET_XECTED IN TRUNCATE_x MACRO>>
	$$TRUN`CATE			
	IFNB <`8B>,<JUMP 17,B>
`X	IFB <B>,<JUMP 16,.+1>	
     1	WH: N	
	IFB <AN8>,<IF1,<PRINTX %ANXRGBLK ADDRESS OMINxITED ON UPDATE MAOCRO>>
	MOVEI	1, O8A
	IFNB <C>,<IOXF1,<PRINTX %MORE OxTHAN 2 ARGS DETECPTED IN UPDATE MACP8RO>>
	$$UPDATE		PX	
	IFNB <B>,<JUPxMP 17,B>
	IFB <QB>,<JUMP 16,.+1>	
     16,.+1>	W%J7 x!
	IFB <A>,<IF1,<PRINTX %A8RGBLK ADDRESS OMIXITED ON UTLINT MAxCRO>>
	MOVEI	1, A
	IFNB <C>,<I8F1,<PRINTX %MORE XTHAN 2 ARGS DETECxTED IN UTLINT MACRO>>
	$$UTLINT		8	
	IFNB <B>,<JUXMP 17,B>
	IFB <xB>,<JUMP 16,.+1>	
     16,.+1>: h~
	DEFINE A$B(ARG)<
		IF(1,<PRINTX	%"A$BH" RMS-11 ONLY, IGhNORED BY RMS-20>
	>
YhRMS-20>(
	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