Trailing-Edge
-
PDP-10 Archives
-
CFS_TSU04_19910205_1of1
-
update/cblsrc/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,5 [@ P F KyP 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 $H L$*yQ
L$*zQ L$*}Q $ L$+Q H L$+Q L$,}Q L$9Q L$;rQ $ L$= Q L$H7Q $$ L$I;Q $H L$IVQ H L$MQ $ L$YQ L$[Q L$h1Q H L$h1Q $H L$kQ H L$kPQ L$kxQ $H L$l}Q L%7Q 6$ L%TQ $H L%VQ $H L% tQ $H L%)WQ H L%+VQ $H L%8SQ L%;VQ L%<SQ 6$ L%<}Q $$ L%H7Q $ L%LwQ H L%XSQ $$ L%\WQ L%\YQ H L%h6Q H L%kpQ $ L%kuQ $ L%nQ H L%|SQ L&2Q 6$ L& yQ $H L&
hQ $H L&
hQ $H L&
iQ $H L&
iQ $H L&
jQ $H L&
jQ $H L&
kQ $H L&
kQ $H L&(1Q 6$ L&(:Q $H L&(SQ L&)Q L&)3Q $ L&)HQ $H L&)IQ L&)JQ L&)PQ L&)VQ L&+xQ H L&,HQ l L&,IQ L&,IQ L&,JQ L&,hQ .4 L&,iQ $H L&,iQ L&,jQ L&,jQ L&,kQ $H L&,kQ L&,lQ L&,lQ L&,}Q $H L&.Q 00 L&.Q L&. Q L&. Q L&.
Q L&.
Q L&9Q $ H L&:Q Q H L&:=Q L H L&=Q $H L&=Q H L&>HQ H L&>HQ H L&>IQ H L&>IQ H L&>JQ H L&>JQ H L&>KQ H L&>KQ H L&N8Q $H L&XSQ L&\}Q H L'1Q H L
IF1,<P$RINTX %"F$ANB" RM$(S-11 ONLY, IGNORE D BY RMS-20>
L<` K($Z $$NEWVAL ( BKS,A)NEWVAL (LL` Jh$V $$NEWVAL ( BLS,A)NEWVAL (L>@ Hh$F $$NEWVAL ( BSZ,A)NEWVAL (L N Kh$^ $$NEWVAL ( CTX,A)NEWVAL (L%h h"
IF1,<P RINTX %"F$DNA" RM (S-11 ONLY, IGNORE D BY RMS-20>
L%l` h"
IF1,<P!RINTX %"F$DNS" RM!(S-11 ONLY, IGNORE D BY RMS-20>
L4` Dh$& $$NEWVAL ( FAC,A)NEWVAL (L5h Fh$6 $$NEWVAL ( FNA,A)NEWVAL (L5l` h!z
IF1,<P RINTX %"F$FNS" RM (S-11 ONLY, IGNORE D 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, IGNORE D 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, IGNORE D 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,AL Q) ;![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@ #'d N 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, IGNORE D 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==1B C A$B==1Bf$H` H $ A$B==^D C 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#N IFDEF 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? DHP pD,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, IGNORE D BY RMS-20>
pD )"L
IF1,<P)(RINTX %"X$HAL" RM)HS-11 ONLY, IGNORE D 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, IGNORE D BY RMS-20>
pw((: $$NEWVAL ( NXT,A)NEWVAL (p~{@ -"l
IF1,<P-(RINTX %"X$OWN" RM-HS-11 ONLY, IGNORE D 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, IGNORE D BY RMS-20>
p*@ +"\
IF1,<P+(RINTX %"X$PRJ" RM+HS-11 ONLY, IGNORE D BY RMS-20>
pY@
h(f $$NEWVAL ( REF,A)NEWVAL (p +@ 1#
IF1,<P1(RINTX %"X$SBN" RM1HS-11 ONLY, IGNORE D 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, IGNORE D BY RMS-20>
p5{ 0#
IF1,<P0(RINTX %"X$VOL" RM0HS-11 ONLY, IGNORE D BY RMS-20>
p=I /"|
IF1,<P/(RINTX %"X$WLD" RM/HS-11 ONLY, IGNORE D BY RMS-20>
pD. 2#
IF1,<P2(RINTX %"X$XBY" RM2HS-11 ONLY, IGNORE D 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)
$$C URR (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(P HS4)>_^D18 ! <$$SE hT(SZ4)>
<$$SE T(PS5)>_^D18 ! <$ ($SET(SZ5)>
<$ H$SET(PS6)>_^D18 ! h <$$SET(SZ6)>
<$$SET(PS7)>^D1 (8 ! <$$SET(SZ7)>
>
IFE <C$$C hOD-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`$4 P q`$6 P 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`&
{P 5 q`&4)P 5 q`&4)P 5 q`&4IP 5 q`&4KP 6 P 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 HI GH>>
IS TOO HI Ky 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!d PURGE C$$ B PURGE 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$DISCONNEC T>
CONNEC% x 01i
I FN TOP$10,<PUSHJ 017,RMS$10##+C$DIS PPLAY>
IFN p TOP$20,<104B8+10 00+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 O F 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 S HOULD 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==X X$MAX+1
X==X5T
( b
XX$M AX==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 F yP 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>
}k 16,.+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 MA CRO>>
$$CREATE 0
IFNB <B>,<J PUMP 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>
-I 16,.+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 <A p>,<IF1,<PRINTX %A RGBLK ADDRESS OMI 0ITED ON DISPLAY M PACRO>>
XMOVEI 1 p, A
IFNB <C>, <IF1,<PRINTX %MOR 0E THAN 2 ARGS DET PECTED 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>
.H 16,.+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>
Y 16,.+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:RMSIN I
)%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>
I 0FB <B>,<JUMP 16, .+1>
16, J.M9 +( POPJ 17, Jn0 1p3
PUSH10J 17,$$RMS##
.2REQUIRE SYS:RMSIN I
)%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 2 D(9P # D=P O,(9P O,=P >}{woP