PDP-10 Archive: cobol-source/rmsint.unv from BB-Z759A-SM

Trailing-Edge - PDP-10 Archives - BB-Z759A-SM - cobol-source/rmsint.unv

There are 57 other files named rmsint.unv in the archive. Click here to see a list.

x
,5[@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$Hs@#1KH$I6@#	KH$I;@#	KH$IV@#
KH$K@#
KH$K2@#KH$L@#0KH$M@#KH$M8@#

KH$Y@#

KH$[s@#2KH$h1@#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#2KH%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&=8@#1KH&LR@#,KH&LZ@#,KH&XS@#-KH&Y@#-KH&i9@#.KH&y9@#.KH'1@#/KH'v@#/K`%X<P#'L$2Q $L$Q 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$[Q L$h1Q HL$h1Q $HL$kQ HL$kPQ L$kxQ $HL$l}Q L%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%h6Q 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 $HL&)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&:QQHL&:=QLHL&=Q $HL&=Q HL&>HQ HL&>HQ HL&>IQ HL&>IQ HL&>JQ HL&>JQ HL&>KQ HL&>KQ H	L&N8Q $HL&XSQ L&\}Q HL'1Q HL
		IF1,<P$RINTX	%"F$ANB" RM$(S-11 ONLY, IGNORED BY RMS-20>
	L<` K($Z$$NEWVAL (BKS,A)NEWVAL (LL` Jh$V$$NEWVAL (BLS,A)NEWVAL (L>@ Hh$F$$NEWVAL (BSZ,A)NEWVAL (LN Kh$^$$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` Dh$&$$NEWVAL (FAC,A)NEWVAL (L5h  Fh$6$$NEWVAL (FNA,A)NEWVAL (L5l` h!z
		IF1,<PRINTX	%"F$FNS" RM(S-11 ONLY, IGNORED BY RMS-20>
	L5| Eh$.$$NEWVAL (FOP,A)NEWVAL (L6>@ L($b$$NEWVAL (FSZ,A)NEWVAL (LTk@ D($"$$NEWVAL (JFN,A)NEWVAL (LUk J($R$$NEWVAL (JNL,A)NEWVAL (Ld: %h"2
		IF1,<P&RINTX	%"F$LCH" RM&(S-11 ONLY, IGNORED BY RMS-20>
	Ln+@ H($B$$NEWVAL (MRN,A)NEWVAL (Ln,` Gh$>$$NEWVAL (MRS,A)NEWVAL (Lt  "h"$$NEWVAL (NAM,A)NEWVAL (L~)` F($2$$NEWVAL (ORG,A)NEWVAL (L G($:$$NEWVAL (RAT,A)NEWVAL (Lk  I($J$$NEWVAL (RFM,A)NEWVAL (LM@ !h"
		IF1,<P"RINTX	%"F$RTV" RM"(S-11 ONLY, IGNORED BY RMS-20>
	L

@ E($*$$NEWVAL (SHR,A)NEWVAL (L' #("$$NEWVAL (TYP,A)NEWVAL (LD@ Ih$N$$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)
		$$CURRBH (F,CTX)
		$$CURBhR (F,FSZ)	;![AWN]C
		$$CURR (F,TYPC()	;![AWN]
		$$CUCHRR (F,NAM)	;![AWNCh]
		$$CURR (F,ALQ)	;![AWN]
	ALMI  %(%Z
	IFNDEF LH$$ADDR,<				
		<Lh$$SET(BID)>_^D18 M! <$$SET(BLN)>
	M(	<$$SET(STS)>^D1MH8 ! <$$SET(STV)>
		<$$SET(CTX)>
N		<$$SET(IFI)>_^DN(18 ! <$$SET(JFN)>NH
		<$$SET(FAC)>_Nh^D18 ! <$$SET(SHRO)>
		<$$SET(FOP)O(>_^D18 ! <$$SET(OOHRG)>_^D14 ! <$$SEOhT(BSZ)>_^D8 ! <$$PSET(BLS)>
		<$$SP(ET(FNA)>
		<$$SEPHT(RAT)>_^D18 ! <$Ph$SET(MRS)>
		<$$QSET(MRN)>
		<$$SQ(ET(FSZ)>_^D13 ! <QH$$SET(BKS)>_^D5 !Qh <$$SET(RFM)> ;![RAWN]
		<$$SET(JNR(L)>_^D18 ! <$$SETRH(XAB)>
		<$$SET(RhDEV)>_^D18 ! <$$SSET(SDC)>
		<$$SES(T(TYP)>_^D18 ! <$SH$SET(NAM)>	;![AWNSh]
		<$$SET(ALQ)>T				;![AWN]
		EXT(P 0,0
	>					;ENTHD IFNB
	IFDEF $$ThADDR,<
		$$SET(BUID)
		$$SET(BLN)U(
		$$SET(STS)
	UH	$$SET(STV)
		$$UhSET(IFI)
		$$SETV(JFN)
		$$SET(FAV(C)
		$$SET(SHR)
		$$SET(FOP)
		Vh$$SET(ORG)
		$$SWET(FNA)
		$$SET(W(RAT)
		$$SET(MRSWH)
		$$SET(MRN)
Wh		$$SET(BSZ)
		$X$SET(RFM)
		$$SEX(T(XAB)
		$$SET(JXHNL)
		$$SET(BLS)Xh
		$$SET(BKS)
	Y	$$SET(DEV)
		$$Y(SET(SDC)
		$$SETYH(CTX)
		$$SET(FSYhZ)			;![AWN]
		$Z$SET(NAM)			;![AWZ(N]
		$$SET(TYP)	ZH		;![AWN]
		$$SEZhT(ALQ)			;![AWN]
		
		PURGE $$AD[(DR			
	>					
				
	>					
	MN@ 2+ $$ZERO(A,FA$LNG) ERO(AM$P M$P @M$*7P M$+P M$,WP  M$8VP  M$8vP M$:3P M$<@P M$=P M$I6P M$I[P M$KP @M$LUP M$[1P M$j<P M$mP M$y:P M%P M%@P M%JwP M%LpP M%YP M%ZrP M%h6P M%j6P M%yXP  M%}:P M&

WP M&)1P M&)6P M&8sP  M&98P M&;:P$M&<P M&<2P M&=P M&=8P M&K8P M&LVP M&LWP M&YP M&\P M&h9P M&iQP M&x:P M$)6@# M$)Q@# M$*@#!M$*9@#!M$[S@#"M$[x@#"M%	@##M%S@##M%kp@#$M%kt@#$M%ky@#%M%ky@#%M%kz@#&M&	w@#&M&,}@#'M&[V@#'dN j(&R $$NEWVAL (CTX,A)NEWVAL d-L` k(&Z $$NEWVAL (ELS,A)NEWVAL d4@ ch& $$NEWVAL (FAB,A)NEWVAL d\)@ h(&B $$NEWVAL (KBF,A)NEWVAL d^)@ g(&: $$NEWVAL (KRF,A)NEWVAL d^>@ gh&> $$NEWVAL (KSZ,A)NEWVAL df;@ ih&N $$NEWVAL (LSN,A)NEWVAL dl)@ hh&F $$NEWVAL (MBF,A)NEWVAL d i(&J $$NEWVAL (PAD,A)NEWVAL d` d(&" $$NEWVAL (RAC,A)NEWVAL d)@ eh&. $$NEWVAL (RBF,A)NEWVAL dh  jh&V $$NEWVAL (RFA,A)NEWVAL d@ ("6
		IF1,<P&HRINTX	%"R$RHB" RM&hS-11 ONLY, IGNORED BY RMS-20>
	d| dh&& $$NEWVAL (ROP,A)NEWVAL d>@ f(&2 $$NEWVAL (RSZ,A)NEWVAL d,)@ e(&* $$NEWVAL (UBF,A)NEWVAL d.>@ fh&6 $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ [h&
	IFNB <\A>,<
		$$MAPADD \((A,$$ADDR);	; WI\HLL REFERENCE THE \hBLOCK VIA $$ADDR
		SYN SR$$RT,$$S](ET
	>					
	IFB]H <A>,<SYN SR$$CT]h,$$SET>	
		$$CUR^R (R,BID)
		$$CU^(RR (R,BLN)
		$$C^HURR (R,STS)
		$$^hCURR (R,STV)
		$_$CURR (R,ISI)
		_($$CURR (R,FAB)
	_H	$$CURR (R,RAC)
`h		$$CURR (R,ROP)
		$$CURR (R,UBF)`(
		$$CURR (R,RBF`H)
		$$CURR (R,RS`hZ)
		$$CURR (R,UaSZ)
		$$CURR (R,a(RFA)
		$$CURR (RaH,KRF)
		$$CURR (ahR,KSZ)
		$$CURR b(R,KBF)
		$$CURRb( (R,MBF)
		$$CURbHR (R,LSN)
		$$CUbhRR (R,BKT)
		$$CcURR (R,PAD)
		$$c(CURR (R,CTX)
	 URR (R,CTX)
	 eI  kh':
	IFNDEF l$$ADDR,<
		<$$SEl(T(BID)>_^D18 ! <$lH$SET(BLN)>
		<$$lhSET(STS)>_^D18 ! m<$$SET(STV)>
		<m($$SET(CTX)>
		<$mH$SET(ISI)>_^D18 !mh <$$SET(FAB)>
		n<$$SET(RAC)>_^D27n( ! <$$SET(MBF)>_^nHD18 ! <$$SET(ROP)nh>
		<$$SET(UBF)>o
		<$$SET(RBF)>
		<$$SET(RSZ)>_^oHD18 ! <$$SET(USZ)oh>
		<$$SET(RFA)>p
		<$$SET(KRF)>_p(^D27 ! <$$SET(KSZpH)>_^D18 ! <$$SET(phLSN)>
		<$$SET(KqBF)>
		<$$SET(BKq(T)>
		<$$SET(PADqH)>_^D27
		EXP 0,qh0,0
	>				;IFNDErF
	IFDEF $$ADDR,r(<
		$$SET(BID)
rH		$$SET(BLN)
		$rh$SET(STS)
		$$SEsT(STV)
		$$SET(Is(SI)
		$$SET(FAB)sH
		$$SET(RAC)
	sh	$$SET(ROP)
		$$tSET(UBF)
		$$SETt((RBF)
		$$SET(RStHZ)
		$$SET(USZ)
		$$SET(RFA)
		u$$SET(KRF)
		$$Su(ET(KSZ)
		$$SET(uHKBF)
		$$SET(MBFuh)
		$$SET(LSN)
v		$$SET(BKT)
		$v($SET(PAD)
		$$SEvHT(CTX)
		PURGE $vh$ADDR			;SO NEXT wC/R DECIS CORRECTw(
	>					;IFDEF
	>					;IFDEF
eN@ 2H+ $$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&x0P e&xPP e&xTP e4%X< 
e4%Z7 f$(`  ( A$B==1BC  A$B==1Bf$H` H $ A$B==^DC  A$B==^Df&8`    A$B==C$D  A$B==Cg Hz 5H#.IFDEF C$$5hA,<C$$A> IFNDEF C$$A,<$$FA>F g LZ 4(#(
	    IFN4HDEF C$$A,<IFN $$4hFA,<C$$A==$$FA5>>
	    STO$$C(A)			
	TO$$C(gH Hz 7H#>IFDEF C$$7hA,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ 6(#8
	    IFN6HDEF C$$A,<IFN $$6hRA,<C$$A==$$RA7>>
	    STO$$C(A)			
	TO$$C(gRxA 2h#			
	3(  3IFDEF C$$A,<			
		<HRREI 1,> ! C3H$$A		
		$STORE	3h(1,A,$$ADDR)		
	    >
	R)		
gT$M8@ gT%@ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz 9H#NIFDEF C$$9hA,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ 8(#H
	    IFN8HDEF C$$A,<IFN $$8hXA,<C$$A==$$XA9>>
	    STO$$C(A)			
	TO$$C(i?D(P$i?DHPpD,A)NEWVAL (p>@ h(F$$NEWVAL (BKZ,A)NEWVAL (p$@ h(^$$NEWVAL (DAN,A)NEWVAL (p$k 	h(N$$NEWVAL (DFL,A)NEWVAL (p&L 
((R$$NEWVAL (DTP,A)NEWVAL (p,M h(>$$NEWVAL (EDT,A)NEWVAL (p5I` 
h(V$$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@N((Z$$NEWVALE(IAN,A)NEWVAL (pLk 	((J$$NEWVAL (IFL,A)NEWVAL (p]k

((b$$NEWVAL (LAN,A)NEWVAL (pnJ ("D
		IF1,<P((RINTX	%"X$MTH" RM(HS-11 ONLY, IGNORED BY RMS-20>
	pw((:$$NEWVAL (NXT,A)NEWVAL (p~{@ -"l
		IF1,<P-(RINTX	%"X$OWN" RM-HS-11 ONLY, IGNORED BY RMS-20>
	p|` 

		$$NEWARRVAL (PS0,A)
		$$NEWARRVAL (PHS1,B)
		$$NEWARhRVAL (PS2,C)
		$$NEWARRVAL (PS3,(D)
		$$NEWARRVAHL (PS4,E)
		$$NhEWARRVAL (PS5,F)
		$$NEWARRVAL ((PS6,G)
		$$NEWAHRRVAL (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@

h(f$$NEWVAL (REF,A)NEWVAL (p+@ 1#


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

		$$NE(WARRVAL (SZ0,A)
		$$NEWARRVAL (ShZ1,B)
		$$NEWARRVAL (SZ2,C)
		($$NEWARRVAL (SZ3,HD)
		$$NEWARRVAhL (SZ4,E)
		$$NEWARRVAL (SZ5,F)(
		$$NEWARRVAL (HSZ6,G)
		$$NEWAhRRVAL (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@ wh(6
	IFNB <xB>,<
		$$MAPADD x((B,$$ADDR)	
		SxHYN SX$$RT,$$SET
xh	>					
	IFB <By>,<SYN SX$$CT,$$Sy(ET>	
						
		CyH$$COD==XB$A		
	yh	C$$BLN==XA$SXA	z	
						

		$$z(CURR (X,BID)
		$zH$CURR (X,RS1)
		zh$$CURR (X,NXT)
{
						
		$$CURR{( (X,CDT)
		$$CUR{HR (X,RDT)
		$$CU{hRR (X,EDT)

			|			
		$$CURR (X,|(RS2)
		$$CURR (X|H,AID)
		$$CURR (|hX,BKZ)

						
		$$CURR (X,IFL)}(
		$$CURR (X,DFL}H)
		$$CURR (X,DT}hP)
		$$CURR (X,F~LG)
		$$CURR (X,~(IAN)
		$$CURR (X~H,DAN)
		$$CURR (~hX,LAN)
		$$CURR (X,REF)
		$$CURR( (X,KNM)
		$$CURHR (X,RX0)
		$$CUhRR (X,RX1)
		$$CURR (X,RX2)
		$$(CURR (X,RX3)
		$H$CURR (X,RX4)
		h$$CURR (X,RX5)
		$$CURR (X,PS0)
(		$$CURR (X,PS1)
		$$CURR (X,PS2)h
		$$CURR (X,PS3)
		$$CURR (X,PS(4)
		$$CURR (X,PHS5)
		$$CURR (X,hPS6)
		$$CURR (X,PS7)
		$$CURR ((X,SZ0)
		$$CURR H(X,SZ1)
		$$CURRh (X,SZ2)
		$$CURR (X,SZ3)
		$$CU(RR (X,SZ4)
		$$CHURR (X,SZ5)
		$$hCURR (X,SZ6)
		$$CURR (X,SZ7)
	(
						
		$$CURRH (X,RS6)
		$$CURhR (X,NOK)
		$$CURR (X,NOA)
		$$C(URR (X,RS7)
		$$HCURR (X,RS8)
		$h$CURR (X,RS9)
	CURR (X,RS9)
	qI  (+


	IFNDEF H$$ADDR,<
		<$$SEhT(BID)>_^D18 ! <$$SET(BLN)>
		<$$(SET(COD)>_^D18 ! H<$$SET(NXT)>
		IhFE <C$$COD-XB$DAT>,<
			<$$SET(CD(T)>
			<$$SET(RDHT)>
			<$$SET(EDhT)>
		>
		IFE <C$$COD-XB$ALL>,<
			<$$SET(AID)>_H^D9 ! <$$SET(BKZ)h>
			EXP 0,0,0
		>
		IFE <C$$CO(D-XB$KEY>,<
			<H$$SET(DTP)>_^D18 h! <$$SET(FLG)>
			<$$SET(IAN)>_^D(27 ! <$$SET(DAN)>H_^D18 ! <$$SET(LAhN)>_^D9 ! <$$SET(REF)>
			<$$SET((IFL)>_^D18 ! <$$SHET(DFL)>
			<$$ShET(KNM)>
			EXP 0,0,0,0,0
			<$$(SET(PS0)>_^D18 ! H<$$SET(SZ0)>
			h<$$SET(PS1)>_^D18 ! <$$SET(SZ1)>
(			<$$SET(PS2)>_^HD18 ! <$$SET(SZ2)h>
			<$$SET(PS3)>_^D18 ! <$$SET(S(Z3)>
			<$$SET(PHS4)>_^D18 ! <$$SEhT(SZ4)>
			<$$SET(PS5)>_^D18 ! <$($SET(SZ5)>
			<$H$SET(PS6)>_^D18 !h <$$SET(SZ6)>
			<$$SET(PS7)>^D1(8 ! <$$SET(SZ7)>
		>
		IFE <C$$ChOD-XB$SUM>,<
			 <$$SET(NOK)>_^D9  (! <$$SET(NOA)>
	 H		EXP 0,0,0
		>
	>
	IFDEF $$ADD!R,<
		$$MAPADD (!(XABADDR,$$ADDR);	!H; WILL REFERENCE !hTHE BLOCK VIA $$A"DDR
							; STO"(RE COMMON HEADER "HFOR ALL XAB TYPES"h
		$$SET(BID)
	#	$$SET(RS1)
		$$#(SET(COD)
		$$SET#H(NXT)
							; S#hTORE REST OF XAB $DEPENDING ON IT'S$( TYPE
		IFE <C$$$HCOD-XB$DAT>,<
		$h$$NEWVAL(BLN,XA$S%XD)		
		$$SET(BL%(N)
		$$SET(CDT)
		$$SET(RDT)
		%h$$SET(EDT)
		>
&
		IFE <C$$COD-X&(B$ALL>,<
		$$NEW&HVAL(BLN,XA$SXA)		&h
		$$SET(BLN)
	'	$$SET(RS2)
		$$'(SET(AID)
		$$SET'H(BKZ)
		>

		I'hFE <C$$COD-XB$KEY(>,<
		$$NEWVAL(B((LN,XA$SXK)		
		$(H$SET(BLN)
		$$SE(hT(IFL)
		$$SET(D)FL)
		$$SET(DTP))(
		$$SET(FLG)
	)H	$$SET(IAN)
		$$)hSET(DAN)
		$$SET*(LAN)
		$$SET(RE*(F)
		$$SET(KNM)
		$$SET(RX0)
		*h$$SET(RX1)
		$$S+ET(RX2)
		$$SET(+(RX3)
		$$SET(RX4+H)
		$$SET(RX5)
+h
		$$SET(PS0)
	,	$$SET(PS1)
		$$,(SET(PS2)
		$$SET,H(PS3)
		$$SET(PS,h4)
		$$SET(PS5)
		$$SET(PS6)
		-($$SET(PS7)

		$-H$SET(SZ0)
		$$SE-hT(SZ1)
		$$SET(S.Z2)
		$$SET(SZ3).(
		$$SET(SZ4)
	.H	$$SET(SZ5)
		$$.hSET(SZ6)
		$$SET/(SZ7)
		>

		I/(FE <C$$COD-XB$SUM/H>,<
		$$NEWVAL(B/hLN,XA$SXS)		
		$0$SET(BLN)
		$$SE0(T(RS6)
		$$SET(N0HOK)
		$$SET(NOA)0h
		$$SET(RS7)
	1	$$SET(RS8)
		$$1(SET(RS9)
		>
		1HPURGE $$ADDR			
	>					
				
qN@ 3+ $$ZERO(A3(,%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 M0,u	
      IMPFN TOP$10,<PUSHJ Mp17,RMS$10##+C$CLONSE>	
      IFN TN0OP$20,<104B8+1000NP+C$CLOSE>	
    C$CLOSE>	
    y !B
	C=A+(B		
	B==B+1			

	B==B+1			{W q0/	
      IqPFN TOP$10,<PUSHJ qp17,RMS$10##+C$CONrNECT>	
      IFNr0 TOP$20,<104B8+10rP00+C$CONNECT>	
    CONNECT>	
 )0 vP/k	
      I|0FN TOP$10,<PUSHJ |P17,RMS$10##+C$CRE|pATE>	
      IFN }TOP$20,<104B8+100}00+C$CREATE>	
    $CREATE>	
   \Y H!dPURGE C$$BPURGE C$$$XZ 00	
      IPFN TOP$10,<PUSHJ p17,RMS$10##+C$DEBUG>	
      IFN T0OP$20,<104B8+1000P+C$DEBUG>	
    C$DEBUG>	
    $[ ap.	
      IbFN TOP$10,<PUSHJ b017,RMS$10##+C$DELbPETE>	
      IFN bpTOP$20,<104B8+100c0+C$DELETE>	
    $DELETE>	
   %q vp/A	
      IwFN TOP$10,<PUSHJ w017,RMS$10##+C$DISwPCONNECT>	
      wpIFN TOP$20,<104B8x+1000+C$DISCONNECT>	
    CONNEC%x 01i	
      IFN TOP$10,<PUSHJ 017,RMS$10##+C$DISPPLAY>	
      IFNp TOP$20,<104B8+1000+C$DISPLAY>	
    DISPLAY>	
 -i  6 END .(9 !2	
      I!0FN TOP$10,<PUSHJ !P17,RMS$10##+C$ERA!pSE>	
      IFN T"OP$20,<104B8+1000"0+C$ERASE>	
    C$ERASE>	
    4P 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 4l}P 56 H 4
IF1,<
	$$AB==C$D
	F$$B==<XX$G>B5( ! <XX$F>B11 ! XHX$E	
  >	;END OF IF1
>	;END O5TP 5R g.A	
      Ig0FN TOP$10,<PUSHJ gP17,RMS$10##+C$FINgpD>	
      IFN TOhP$20,<104B8+1000+C$FIND>	
    +5)WP 5+VP 5M9 p0i	
      I

FN TOP$10,<PUSHJ

017,RMS$10##+C$FLU

PSH>	
      IFN T

pOP$20,<104B8+1000
    C$FLUSH>	
    5\WP 5\YP 5h6P 5|SP 6(:P 6)2 &02;	
      I&PFN TOP$10,<PUSHJ &p17,RMS$10##+C$FRE'E>	
      IFN TO'0P$20,<104B8+1000+C$FREE>	
    +6)HP 6)IP 6)JP 6)VP 69P 6:P 6=P 6=P 6N8P 71P <] RP-	
      IRpFN TOP$10,<PUSHJ S17,RMS$10##+C$GETS0>	
      IFN TOPSP$20,<104B8+1000+C$GET>	
    0+CN;v ?h,
	T$$PS==@F$$A_-^D30		
	T@($$SZ==<F$$A_-^D2@H4> & 77	
	T$$OF=@h=F$$A & 777777	
$A& 777777	DEFINE B<A>DEFINE B<l (!<A$MAX==.HABASE + .ACTR - 1SE + .ACTR - l\y 1	
      I0FN TOP$10,<PUSHJ P17,RMS$10##+C$MESpSAGE>	
      IFN TOP$20,<104B8+10000+C$MESSAGE>	
    MESSAGE>	
 t]p '"<
	IFNB <'HB>,<C$$A==B>
>,<C$$A==B>
t]{ h!n
	DEFINE C$$A<B>		
E u{2 P1?	
      IpFN TOP$10,<PUSHJ 17,RMS$10##+C$NOM0ESSAGE>	
      IPFN TOP$20,<104B8+p1000+C$NOMESSAGE>	
    MESSAGE>~	7 C(,	
      ICFN TOP$10,<PUSHJ BH17,RMS$10##+C$OPEB(N>	
      IFN TOAhP$20,<104B8+1000+C$OPEN>	
    +] WP-E	
      IWpFN TOP$10,<PUSHJ X17,RMS$10##+C$PUTX0>	
      IFN TOPXP$20,<104B8+1000+C$PUT>	
    0+C*2P *zP +P =P [ P0?	
      IpFN TOP$10,<PUSHJ 17,RMS$10##+C$REL0EASE>	
      IFNP TOP$20,<104B8+10p00+C$RELEASE>	
    RELEASE>	
 [P 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 l.k	
      Il0FN TOP$10,<PUSHJ lP17,RMS$10##+C$TRUlpNCATE>	
   IFmN TOP$20,<104B8+1m0000+C$TRUNCATE>	
,\RUNCATE>	
	$$CODE(.ERBAS,.ERCTR,A,B)
.ERCTR,A,.	 \P-o	
      I\pFN TOP$10,<PUSHJ ]17,RMS$10##+C$UPD]0ATE>	
      IFN ]PTOP$20,<104B8+100]p0+C$UPDATE>	
    $UPDATE>	
   .K +02e	
      I+PFN TOP$10,<PUSHJ +p17,RMS$10##+C$UTL,INT>	
      IFN ,0TOP$20,<104B8+100,P0+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>>
	XMOVEI	1H, .BLK1
	IFNB <.hNLARG>,<IF1,<PRINTX %MORE THAN 2 A(RGS DETECTED IN HA MACRO>>
	$$A	h		
	IFNB <.ERRAD>,<JUMP 17,.ERRAD(>
	IFB <.ERRAD>,H<JUMP 16,.+1>	
 h   >
  XX$MAX==XX$MAX+1		
X==X5T

( 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 3h+&
	SETZM	4A			
	MOVEI	2,A4(			
	MOVEI	1,1(24H)			
	HRLI	1,A	4h		
	BLT	1,B-1(2)		
T	1,B-1(2	e|r O-
	IFB <AO0>,<IF1,<PRINTX %AOPRGBLK ADDRESS OMIOpITED ON CLOSE MACPRO>>
	XMOVEI	1, P0A
	IFNB <C>,<IPPF1,<PRINTX %MORE PpTHAN 2 ARGS DETECQTED IN CLOSE MACRQ0O>>
	$$CLOSE			
	IFNB <B>,<JUMPQp 17,B>
	IFB <BR>,<JUMP 16,.+1>	
	}k16,.+1>	
	IFB <As0>,<IF1,<PRINTX %AsPRGBLK ADDRESS OMIspITED ON CONNECT MtACRO>>
	XMOVEI	1t0, A
	IFNB <C>,tP<IF1,<PRINTX %MORtpE THAN 2 ARGS DETuECTED IN CONNECT u0MACRO>>
	$$CONNEuPCT			
	IFNB <B>up,<JUMP 17,B>
	IvFB <B>,<JUMP 16,.+1>	
     16,	X: }p0
	IFB <A~>,<IF1,<PRINTX %A~0RGBLK ADDRESS OMI~PITED ON CREATE MA~pCRO>>
	XMOVEI	1, A
	IFNB <C>,<0IF1,<PRINTX %MOREP THAN 2 ARGS DETEpCTED IN CREATE MACRO>>
	$$CREATE	0		
	IFNB <B>,<JPUMP 17,B>
	IFB p<B>,<JUMP 16,.+1>	
     16,.+1	,-3 01
	IFB <A0>,<IF1,<PRINTX %APRGBLK ADDRESS OMIpITED ON DEBUG MACRO>>
	XMOVEI	1, 0A
	IFNB <C>,<IPF1,<PRINTX %MORE pTHAN 2 ARGS DETECTED IN DEBUG MACR0O>>
	$$DEBUG			
	IFNB <B>,<JUMPp 17,B>
	IFB <B>,<JUMP 16,.+1>	
	-I16,.+1>	
	IFB <Acp>,<IF1,<PRINTX %AdRGBLK ADDRESS OMId0ITED ON DELETE MAdPCRO>>
	XMOVEI	1,dp A
	IFNB <C>,<eIF1,<PRINTX %MOREe0 THAN 2 ARGS DETEePCTED IN DELETE MAepCRO>>
	$$DELETE	f		
	IFNB <B>,<Jf0UMP 17,B>
	IFB fP<B>,<JUMP 16,.+1>	
     16,.+1	N8w xP/_
	IFB <Axp>,<IF1,<PRINTX %AyRGBLK ADDRESS OMIy0ITED ON DISCONNECyPT MACRO>>
	XMOVEypI	1, A
	IFNB <zC>,<IF1,<PRINTX %z0MORE THAN 2 ARGS zPDETECTED IN DISCOzpNNECT MACRO>>
	${$DISCONNECT			
	{0IFNB <B>,<JUMP 1{P7,B>
	IFB <B>,{p<JUMP 16,.+1>	
     16,.+1>	
 	N< P2
	IFB <Ap>,<IF1,<PRINTX %ARGBLK ADDRESS OMI0ITED ON DISPLAY MPACRO>>
	XMOVEI	1p, A
	IFNB <C>,<IF1,<PRINTX %MOR0E THAN 2 ARGS DETPECTED IN DISPLAY pMACRO>>
	$$DISPL AY			
	IFNB <B> 0,<JUMP 17,B>
	I PFB <B>,<JUMP 16,.+1>	
     16,	r "p2/
	IFB <A#>,<IF1,<PRINTX %A#0RGBLK ADDRESS OMI#PITED ON ERASE MAC#pRO>>
	XMOVEI	1, $A
	IFNB <C>,<I$0F1,<PRINTX %MORE $PTHAN 2 ARGS DETEC$pTED IN ERASE MACR%O>>
	$$ERASE			
	IFNB <B>,<JUMP%P 17,B>
	IFB <B%p>,<JUMP 16,.+1>	
	.H16,.+1>	
	$$ISOL(6(B)			
	IFE <T$$6HSZ-^D18>,<		
	76h  IFE T$$PS,<			
		HRRZ A,T$$OF+7(C
		T$$SZ==0		
	    >
	    IFE7h <T$$PS-^D18>,<		8
		HLRZ A,T$$OF8(+C
		T$$SZ==0		8H
	    >
	>
	IF8hE <T$$SZ-^D36>,<	9	
		MOVE A,T$$O9(F+C
		T$$SZ==0	9H	
	>
	IFN T$$SZ9h,<			
		LDB A,[:<T$$PS>B5 ! <T$$S:(Z>B11 ! <T$$OF+C>]
	>
$$OF+C	L[ 5H+,[F$$A+B][F$$A+B]	Mi hP.]
	IFB <Ahp>,<IF1,<PRINTX %AiRGBLK ADDRESS OMIi0ITED ON FIND MACRiPO>>
	XMOVEI	1, ipA
	IFNB <C>,<IFj1,<PRINTX %MORE Tj0HAN 2 ARGS DETECTjPED IN FIND MACRO>jp>
	$$FIND			
	IkFNB <B>,<JUMP 17k0,B>
	IFB <B>,<kPJUMP 16,.+1>	
     16,.+1>	
P1	f\t 
	IFBI<APRINTX %ARGBLK ADDRESS OMI0ITED ON FLUSH MACPRO>>
	XMOVEI	1, pA
	IFNB <C>,<IF1,<PRINTX %MORE 0THAN 2 ARGS DETECPTED IN FLUSH MACRpO>>
	$$FLUSH			
	IFNB <B>,<JUMP0 17,B>
	IFB <BP>,<JUMP 16,.+1>	
	Y16,.+1>	
	IFB <A(>,<IF1,<PRINTX %A(0RGBLK ADDRESS OMI(PITED ON FREE MACR(pO>>
	XMOVEI	1, )A
	IFNB <C>,<IF)01,<PRINTX %MORE T)PHAN 2 ARGS DETECT)pED IN FREE MACRO>*>
	$$FREE			
	I*0FNB <B>,<JUMP 17*P,B>
	IFB <B>,<*pJUMP 16,.+1>	
     16,.+1>	
  	.@ T-9
	IFB <AT0>,<IF1,<PRINTX %ATPRGBLK ADDRESS OMITpITED ON GET MACROU>>
	XMOVEI	1, AU0
	IFNB <C>,<IF1UP,<PRINTX %MORE THUpAN 2 ARGS DETECTEVD IN GET MACRO>>
	$$GET			
	IFNBVP <B>,<JUMP 17,BVp>
	IFB <B>,<JUMWP 16,.+1>	
     16,.+1>	
    	&u 1p3			
	PUSH10J 17,$$RMS##	
	.2REQUIRE SYS:RMSINI	
)%BAD REC	6.<p p1/
	IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPITED ON MESSAGE MpACRO>>
	XMOVEI	1, A
	IFNB <C>,0<IF1,<PRINTX %MORPE THAN 2 ARGS DETpECTED IN MESSAGE MACRO>>
	$$MESSA0GE			
	IFNB <B>P,<JUMP 17,B>
	IpFB <B>,<JUMP 16,.+1>	
     16,	:}Y9 01]
	IFB <AP>,<IF1,<PRINTX %ApRGBLK ADDRESS OMIITED ON NOMESSAGE0 MACRO>>
	XMOVEIP	1, A
	IFNB <Cp>,<IF1,<PRINTX %MORE THAN 2 ARGS D0ETECTED IN NOMESSPAGE MACRO>>
	$$NpOMESSAGE			
	IFNB <B>,<JUMP 17,0B>
	IFB <B>,<JUPMP 16,.+1>	
     16,.+1>	
    	?[@ A(,g
	IFB <AB>,<IF1,<PRINTX %AJ0RGBLK ADDRESS OMIJPITED ON OPEN MACRJpO>>
	XMOVEI	1, KA
	IFNB <C>,<IFK01,<PRINTX %MORE TKPHAN 2 ARGS DETECTKpED IN OPEN MACRO>L>
	$$OPEN			
	IL0FNB <B>,<JUMP 17LP,B>
	IFB <B>,<LpJUMP 16,.+1>	
     16,.+1>	
  	C.@ Y-a
	IFB <AY0>,<IF1,<PRINTX %AYPRGBLK ADDRESS OMIYpITED ON PUT MACROZ>>
	XMOVEI	1, AZ0
	IFNB <C>,<IF1ZP,<PRINTX %MORE THZpAN 2 ARGS DETECTE[D IN PUT MACRO>>
	$$PUT			
	IFNB[P <B>,<JUMP 17,B[p>
	IFB <B>,<JUM\P 16,.+1>	
     16,.+1>	
    	J-I0 00[
	IFB <AP>,<IF1,<PRINTX %ApRGBLK ADDRESS OMI	ITED ON RELEASE M	0ACRO>>
	XMOVEI	1	P, A
	IFNB <C>,	p<IF1,<PRINTX %MOR
E THAN 2 ARGS DET
0ECTED IN RELEASE 
PMACRO>>
	$$RELEA
pSE			
	IFNB <B>,<JUMP 17,B>
	I0FB <B>,<JUMP 16,.+1>	
     16,	J.M9 +(POPJ	17,	Jn0 1p3			
	PUSH10J 17,$$RMS##	
	.2REQUIRE SYS:RMSINI	
)%BAD REC	O%|R :h+z
	$$ISOL(;B)			
	IFE <T$$;(SZ-^D18>,<		
	;h;H  IFE T$$PS,<			
		HRRM A,T$$OF+<C
		T$$SZ==0		
	    >
	    IFE<H <T$$PS-^D18>,<		<h
		HRLM A,T$$OF=+C
		T$$SZ==0		=(
	    >
	>
	IF=HE <T$$SZ-^D36>,<	=h	
		MOVEM A,T$$>OF+C
		T$$SZ==0>(		;INDIC INST GEN>H
	>
	IFN T$$SZ,>h<			
		DPB A,[<?T$$PS>B5 ! <T$$SZ?(>B11 ! <T$$OF+C>]
	>
$$OF+C>	S[Q mp/
	IFB <An>,<IF1,<PRINTX %An0RGBLK ADDRESS OMInPITED ON TRUNCATE npMACRO>>
	XMOVEI	o1, A
	IFNB <C>o0,<IF1,<PRINTX %MOoPRE THAN 2 ARGS DEopTECTED IN TRUNCATpE MACRO>>
	$$TRUp0NCATE			
	IFNB <pPB>,<JUMP 17,B>
	IFB <B>,<JUMP 16,.+1>	
     	WH: ^0.
	IFB <A^P>,<IF1,<PRINTX %A^pRGBLK ADDRESS OMI_ITED ON UPDATE MA_0CRO>>
	XMOVEI	1,_P A
	IFNB <C>,<_pIF1,<PRINTX %MORE` THAN 2 ARGS DETE`0CTED IN UPDATE MA`PCRO>>
	$$UPDATE	`p		
	IFNB <B>,<JaUMP 17,B>
	IFB a0<B>,<JUMP 16,.+1>	
     16,.+1	W%J7 -3
	IFB <A-0>,<IF1,<PRINTX %A-PRGBLK ADDRESS OMI-pITED ON UTLINT MA.CRO>>
	XMOVEI	1,.0 A
	IFNB <C>,<.PIF1,<PRINTX %MORE.p THAN 2 ARGS DETE/CTED IN UTLINT MA/0CRO>>
	$$UTLINT	/P		
	IFNB <B>,<J/pUMP 17,B>
	IFB 0<B>,<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 2D(9P# D=P O,(9P O,=P >}{woP