Trailing-Edge
-
PDP-10 Archives
-
bb-l014q-bm_tops20_v6_1_atpch17
-
autopatch/rmsint.x17
There are no other files named rmsint.x17 in the archive.
x
,S s@ P E,%KuP F KyP F {WP F )0P F$XZP F$[P F% qP F% xP F-mP F.(9P F/
F~ 7P F YP F[P F[7P F[PP F]tP
F X9P
F&-7P F. P F.KP F<:P F>*:P
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$;@ # 6KH$;r@ # KH$;s@ # KH$=9@ # KH$H7@ # KH$Hq@ # 4KH$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%1@ # 5KH%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 # 6KH%Z7@ # KH%\W@ # KH%\Y@ # KH%h6@ # 2KH%i3@ # KH%k@ # KH%k3@ # 3KH%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&-@ # 3KH&-@ # 4KH&98@ # +KH&:=@ # +KH&=8@ # 1KH&LR@ # ,KH&LZ@ # ,KH&N8@ # 5KH&XS@ # -KH&Y@ # -KH&i9@ # .KH&y9@ # .KH'1@ # /KH'v@ # /K`%X<P #'L$wQ $$ L$Q $H L$2Q $ L$Q L$)Q L$)RQ L$)WQ H L$)WQ . L$)XQ 6$ L$)YQ H L$)ZQ 0
L$)]Q (
L$*2Q $H L$*pQ H L$*qQ $H L$*rP L$*sQ $ L$*wQ H L$*yQ 0 L$*zQ L$*}Q $ L$+Q $H L$+Q H L$+Q 6$ L$+Q L$+7Q B
L$,}Q L$.1Q H L$8(Q L$8)Q L$88Q L$9Q L$:Q H L$;Q H L$;rQ $ L$= Q L$H7Q $$ L$HUQ $$ L$I;Q $H L$IVQ H L$J9Q H L$KQ L$LPQ L$LVQ $ L$L{Q 6$ L$MQ $ L$MPQ L$MVQ 6$ L$XwQ $ L$YQ L$[Q L$\pQ L$\vQ $H L$\yQ H L$h1Q H L$h1Q $H L$iQ $H L$j6Q 6$ L$kQ H L$kQ H L$kQ H L$kPQ L$kQQ L$kxQ $H L$lqQ $H L$lzQ $H L$l}Q L%\Q L%
}Q B
L%7Q 6$ L%UQ 6$ L%YQ H L%vQ H L%zQ L%Q l L%Q $H L%PQ 6$ L%SQ H L%TQ $H L%VQ $H L%WQ ( L%XQ $H L%SQ H L%yQ $H L% PQ $H L% SQ H L% WQ L% YQ H L% tQ $$ L% tQ $H L%)WQ H L%+VQ $H L%8SQ L%8YQ L%8]Q 0 L%9Q $ L%9Q $H L%9Q 6 L%9SQ $H L%:0Q $ L%:yQ H L%;VQ L%;\Q H L%<SQ 6$ L%<WQ $$ L%<qQ $H L%<{Q H L%<}Q $$ L%H7Q $ L%I;Q $ L%LwQ H L%XSQ $$ L%XYQ $ L%[YQ H L%[yQ $H L%\WQ L%\YQ H L%h6Q H L%iQ L%iQ $$ L%i<Q H L%k0Q L%k6Q $ L%kpQ $ L%kuQ $ L%kxQ $H L%lXQ L%nQ H L%|Q L%|SQ L%|zQ $$ L&2Q 6$ L& yQ $H L& yQ $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&
|Q $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&+Q H L&+wQ $H 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&,pQ L&,qQ $H L&,vQ $H L&,yQ H L&,{Q H L&,}Q $H L&.Q 00 L&.Q L&. Q L&. Q L&.
Q L&.
Q L&9Q $ H L&9Q Q H L&9Q L $H L&9SQ H L&:Q H L&:=Q H L&:qQ $H L&:yQ 6$ L&<SQ L&<YQ 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&>SQ L&LQ L&LQ $$ L&N8Q $H L&XSQ L&\wQ $$ L&\{Q $ L&\}Q H L&i9Q $ L&lPQ L&lVQ 6$ L&xqQ L&xzQ H L&{\Q $H L'1Q H L
IF1,<P6(RINTX %"F$ANB" RM6HS-11 ONLY, IGNORE D BY RMS-20>
L<` aH&
$$NEWVAL ( BKS,A)NEWVAL (LL` a& $$NEWVAL ( BLS,A)NEWVAL (L>@ _%x $$NEWVAL ( BSZ,A)NEWVAL (L N b& $$NEWVAL ( CTX,A)NEWVAL (L%h 2#
IF1,<P2(RINTX %"F$DNA" RM2HS-11 ONLY, IGNORE D BY RMS-20>
L%l` 3#
IF1,<P3(RINTX %"F$DNS" RM3HS-11 ONLY, IGNORE D BY RMS-20>
L4` [%X $$NEWVAL ( FAC,A)NEWVAL (L5h ]%h $$NEWVAL ( FNA,A)NEWVAL (L5l` 1#
IF1,<P1(RINTX %"F$FNS" RM1HS-11 ONLY, IGNORE D BY RMS-20>
L5| \%` $$NEWVAL ( FOP,A)NEWVAL (L6>@ bH& $$NEWVAL ( FSZ,A)NEWVAL (LTk@ ZH%T $$NEWVAL ( JFN,A)NEWVAL (LUk `H& $$NEWVAL ( JNL,A)NEWVAL (Ld: 8#D
IF1,<P8(RINTX %"F$LCH" RM8HS-11 ONLY, IGNORE D BY RMS-20>
Ln+@ ^H%t $$NEWVAL ( MRN,A)NEWVAL (Ln,` ^%p $$NEWVAL ( MRS,A)NEWVAL (Lt 5#( $$NEWVAL ( NAM,A)NEWVAL (L~)` \H%d $$NEWVAL ( ORG,A)NEWVAL (L ]H%l $$NEWVAL ( RAT,A)NEWVAL (Lk _H%| $$NEWVAL ( RFM,A)NEWVAL (LM@ 4#$
IF1,<P4(RINTX %"F$RTV" RM4HS-11 ONLY, IGNORE D BY RMS-20>
L
@ [H%\ $$NEWVAL ( SHR,A)NEWVAL (L' 5H#, $$NEWVAL ( TYP,A)NEWVAL (LD@ `& $$NEWVAL ( XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ PH%P
IFNB <PhA>,< ;RUN-TIME QINIT
$$MAPADD Q((A,$$ADDR); ; WIQHLL REFERENCE FAB QhVIA $$ADDR
SYNR SF$$RT,$$SET
>R(
IFB <A>,RH<SYN SF$$CT,$$SETRh>
$$CURR (F,BSID)
$$CURR (F,S(BLN)
$$CURR (FSH,STS)
$$CURR (ShF,STV)
$$CURR T(F,IFI)
$$CURRT( (F,JFN)
$$CURTHR (F,FAC)
$$CUThRR (F,SHR)
$$CUURR (F,FOP)
$$U(CURR (F,ORG)
$UH$CURR (F,FNA)
Uh$$CURR (F,RAT)
V $$CURR (F,MRS)
V( $$CURR (F,MRN)
$$CURR (F,BSZ)Vh
$$CURR (F,RFMW)
$$CURR (F,XAW(B)
$$CURR (F,JWHNL)
$$CURR (F,WhBLS)
$$CURR (FX,BKS)
$$CURR (X(F,DEV)
$$CURR XH(F,SDC)
$$CURRXh (F,CTX)
$$CURYR (F,FSZ) ;![AWN]Y(
$$CURR (F,TYPYH) ;![AWN]
$$CUYhRR (F,NAM) ;![AWNZ]
$$CURR (F,AL Q) ;![AWN]
ALMI 7H'
IFNDEF bh$$ADDR,<
<c$$SET(BID)>_^D18 c(! <$$SET(BLN)>
cH <$$SET(STS)>^D1ch8 ! <$$SET(STV)>
<$$SET(CTX)>
d( <$$SET(IFI)>_^DdH18 ! <$$SET(JFN)>dh
<$$SET(FAC)>_e^D18 ! <$$SET(SHRe()>
<$$SET(FOP)eH>_^D18 ! <$$SET(OehRG)>_^D14 ! <$$SEfT(BSZ)>_^D8 ! <$$f(SET(BLS)>
<$$SfHET(FNA)>
<$$SEfhT(RAT)>_^D18 ! <$g$SET(MRS)>
<$$g(SET(MRN)>
<$$SgHET(FSZ)>_^D13 ! <gh$$SET(BKS)>_^D5 !h <$$SET(RFM)> ;![h(AWN]
<$$SET(JNhHL)>_^D18 ! <$$SEThh(XAB)>
<$$SET(iDEV)>_^D18 ! <$$Si(ET(SDC)>
<$$SEiHT(TYP)>_^D18 ! <$ih$SET(NAM)> ;![AWNj]
<$$SET(ALQ)>j( ;![AWN]
EXjHP 0,0
> ;ENjhD IFNB
IFDEF $$kADDR,<
$$SET(Bk(ID)
$$SET(BLN)kH
$$SET(STS)
kh $$SET(STV)
$$lSET(IFI)
$$SETl((JFN)
$$SET(FAlHC)
$$SET(SHR)
$$SET(FOP)
m$$SET(ORG)
$$Sm(ET(FNA)
$$SET(mHRAT)
$$SET(MRSmh)
$$SET(MRN)
n $$SET(BSZ)
$n($SET(RFM)
$$SEnHT(XAB)
$$SET(JnhNL)
$$SET(BLS)o
$$SET(BKS)
o( $$SET(DEV)
$$oHSET(SDC)
$$SEToh(CTX)
$$SET(FSpZ) ;![AWN]
$p($SET(NAM) ;![AWpHN]
$$SET(TYP) ph ;![AWN]
$$SEqT(ALQ) ;![AWN]
PURGE $$ADqHDR
>
>
MN@ u(/* $$ZERO(A ,FA$LNG) ERO(AM$P M$ P @M$ VP 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%@P M%JwP M%LpP M%YP M%ZrP M%[ZP M%h6P M%i:P @M%j6P M%yP M%yXP M%}:P M&
WP M&)1P M&)6P M&+:P M&8sP M&8yP M&98P M&;P M&;:P $ 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@ #'ML$pP ML$+P ML$\YP ML%P ML%JsP ML%KSP ML%KuP ML%i;P ML%|P ML%|P ML&)7P ML&+:P @ML&N8P ML&YP UL%X<P UL%Z7P W$:P W$:P " W$M8P $ W%
tP ! W%KSP W%j<P W&N8P \.8 WH-< $$NEWVAL (ESA,A)NEWVAL \.<` X-@ $$NEWVAL (ESS,A)NEWVAL \u| Y-H $$NEWVAL (NOP,A)NEWVAL \I@ XH-D $$NEWVAL (RLF,A)NEWVAL \8 YH-L $$NEWVAL (RSA,A)NEWVAL \<` Z-P $$NEWVAL (RSS,A)NEWVAL ]$zP @]$9P ]$9P ]$9<P ]$;PP ]$I;P $ ]$J9P ! ]$YQ ]$YQ @ ]$[PQ ]$] Q ]$]RQ ]$^P ]${RP ]%[P ]%KSP ]%]6Q ]%^P ?]%^P ?]%h6P @ ]%jP ]%j6P ]%krP ]&
WP ]& 7Q ]&>7P ]&IYP ]&N8P ]&ZP ]&[P ]&[ZP " ]&i9P ]&{Q @ ]hH@ Nh-8
IFNB <OA>,<
$$MAPADD O((A,$$ADDR); ; WIOHLL REFERENCE THE OhBLOCK VIA $$ADDR
SYN SN$$RT,$$SP(ET
>
IFBPH <A>,<SYN SN$$CTPh,$$SET>
$$CURQR (N,BID)
$$CUQ(RR (N,BLN)
$$CQHURR (N,ESA)
$$QhCURR (N,ESS)
$R$CURR (N,ESL)
R($$CURR (N,RLF)
RH $$CURR (N,NOP)
Rh $$CURR (N,RSA)
$$CURR (N,RSL)S(
$$CURR (N,RSSSH)
$$CURR (N,FNShB)
$$CURR (N,WTCC)
$$CURR (N,T(CHA)
$$CURR (NTH,NDL)
$$CURR (ThN,DVL)
$$CURR U(N,NML)
$$CURRU( (N,TPL)
$$CURUHR (N,VRL)
$$CUUhRR (N,NDA)
$$CVURR (N,DVA)
$$V(CURR (N,DRA)
$VH$CURR (N,NMA)
Vh$$CURR (N,TPA)
W $$CURR (N,VRA)
URR (N,VRA)
]hI ZH.<
IFNDEF Zh$$ADDR,<
<$$SE[T(BID)>_^D18 ! <$[($SET(BLN)>
<$$[HSET(ESA)>
<$$S[hET(ESL)>_^D18 ! <\$$SET(ESS)>
<$\($SET(NOP)>_^D18 !\H <$$SET(RLF)>
\h<$$SET(RSA)>
<]$$SET(RSL)>_^D18 ](! <$$SET(RSS)>
]H <$$SET(FNB)>
]h<$$SET(WCC)>
<^$$SET(DVL)>_^D27 ^(! <$$SET(NDL)>_^D^H18 ! <$$SET(CHA)>^h
<$$SET(VRL)>__^D27 ! <$$SET(TPL_()>_^D18 ! <$$SET(_HNML)>_^D9 ! <$$SE_hT(DRL)>
<$$SET`(NDA)>
<$$SET(`(DVA)>
<$$SET(D`HRA)>
<$$SET(NM`hA)>
<$$SET(TPAa)>
<$$SET(VRA)a(>
> ;IFNDEF
IFDEF $$ADDR,<
$$SET(BID)
b$$SET(BLN)
$$Sb(ET(ESA)
$$SET(bHESL)
$$SET(ESSbh)
$$SET(NOP)
c $$SET(RLF)
$c($SET(RSA)
$$SEcHT(RSL)
$$SET(RchSS)
$$SET(FNB)d
$$SET(WCC)
d( $$SET(DVL)
$$dHSET(NDL)
$$SETdh(CHA)
$$SET(VReL)
$$SET(TPL)
$$SET(NML)
eH$$SET(DRL)
$$SehET(NDA)
$$SET(fDVA)
$$SET(DRAf()
$$SET(NMA)
fH $$SET(TPA)
$fh$SET(VRA)
PUgRGE $$ADDR ;SO g(NEXT C/R DECIS COgHRRECT
> ;IF DEF
> ;IF]hN@ w/8 $$ZERO(A ,NA$LNG) ERO(Ad N H( $$NEWVAL (CTX,A)NEWVAL d-L` H(
$$NEWVAL (ELS,A)NEWVAL d4@ z'P $$NEWVAL (FAB,A)NEWVAL d\)@ ~H't $$NEWVAL (KBF,A)NEWVAL d^)@ }H'l $$NEWVAL (KRF,A)NEWVAL d^>@ ~'p $$NEWVAL (KSZ,A)NEWVAL df;@ ( $$NEWVAL (LSN,A)NEWVAL dl)@ 'x $$NEWVAL (MBF,A)NEWVAL d H'| $$NEWVAL (PAD,A)NEWVAL d` zH'T $$NEWVAL (RAC,A)NEWVAL d)@ |'` $$NEWVAL (RBF,A)NEWVAL dh ( $$NEWVAL (RFA,A)NEWVAL d@ 0H#H
IF1,<P8hRINTX %"R$RHB" RM9S-11 ONLY, IGNORE D BY RMS-20>
d| {'X $$NEWVAL (ROP,A)NEWVAL d>@ |H'd $$NEWVAL (RSZ,A)NEWVAL d,)@ {H'\ $$NEWVAL (UBF,A)NEWVAL d.>@ }'h $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ r'L
IFNB <r(A>,<
$$MAPADD rH(A,$$ADDR); ; WIrhLL REFERENCE THE sBLOCK VIA $$ADDR
SYN SR$$RT,$$SsHET
>
IFBsh <A>,<SYN SR$$CTt,$$SET>
$$CURt(R (R,BID)
$$CUtHRR (R,BLN)
$$CthURR (R,STS)
$$uCURR (R,STV)
$u($CURR (R,ISI)
uH$$CURR (R,FAB)
uh $$CURR (R,RAC)
v $$CURR (R,ROP)
$$CURR (R,UBF)vH
$$CURR (R,RBFvh)
$$CURR (R,RSwZ)
$$CURR (R,Uw(SZ)
$$CURR (R,wHRFA)
$$CURR (Rwh,KRF)
$$CURR (xR,KSZ)
$$CURR x((R,KBF)
$$CURRxH (R,MBF)
$$CURxhR (R,LSN)
$$CUyRR (R,BKT)
$$Cy(URR (R,PAD)
$$yHCURR (R,CTX)
URR (R,CTX)
eI (l
IFNDEF ($$ADDR,<
<$$SEHT(BID)>_^D18 ! <$h$SET(BLN)>
<$$SET(STS)>_^D18 ! (<$$SET(STV)>
<H$$SET(CTX)>
<$h$SET(ISI)>_^D18 ! <$$SET(FAB)>
(<$$SET(RAC)>_^D27H ! <$$SET(MBF)>_^hD18 ! <$$SET(ROP)>
<$$SET(UBF)>(
<$$SET(RBF)>
<$$SET(RSZ)>_^hD18 ! <$$SET(USZ)>
<$$SET(RFA)>(
<$$SET(KRF)>_H^D27 ! <$$SET(KSZh)>_^D18 ! <$$SET(LSN)>
<$$SET(K(BF)>
<$$SET(BKHT)>
<$$SET(PADh)>_^D27
EXP 0,0,0
> ;IFNDE(F
IFDEF $$ADDR,H<
$$SET(BID)
h $$SET(BLN)
$ $SET(STS)
$$SE (T(STV)
$$SET(I HSI)
$$SET(FAB) h
$$SET(RAC)
$$SET(ROP)
$$
(SET(UBF)
$$SET
H(RBF)
$$SET(RS
hZ)
$$SET(USZ)
$$SET(RFA)
($$SET(KRF)
$$S HET(KSZ)
$$SET( hKBF)
$$SET(MBF
)
$$SET(LSN)
( $$SET(BKT)
$
H$SET(PAD)
$$SE
hT(CTX)
PURGE $SOONEXTT
> ;IFDEF
> ;IFDEF
eN@ uh/. $$ZERO(A ,RA$LNG) ERO(Ae$)ZP e$+P e$[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&LPP e&x0P e&xPP e&xTP e4%X< e4%Z7 e7IP e7I P eL$[sP eL%KSP eL%KuP eL&9P eL&98P eL&=1P eL&LWP @eL&N8P eL&\P f$(` (! A$B==1B C A$B==1Bf$H` h ~ A$B==^D C A$B==^Df&8` ( z A$B==C $D A$B==Cg Hz Gh$@ IFDEF C$$HA,<C$$A> IFNDEF C$$A,<$$FA>F g LZ FH$:
IFNFhDEF C$$A,<IFN $$GFA,<C$$A==$$FAG(>>
STO$$C( A)
TO$$C(g8 Hz Mh$p IFDEF C$$NA,<C$$A> IFNDEF C$$A,<$$NA>F g8 LZ LH$j
IFNLhDEF C$$A,<IFN $$MNA,<C$$A==$$NAM(>>
STO$$C( A)
TO$$C(gH Hz Ih$P IFDEF C$$JA,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ HH$J
IFNHhDEF C$$A,<IFN $$IRA,<C$$A==$$RAI(>>
STO$$C( A)
TO$$C(gP Hz Oh% IFDEF C$$PA,<C$$A> IFNDEF C$$A,<$$TA>F gP LZ NH$z
IFNNhDEF C$$A,<IFN $$OTA,<C$$A==$$TAO(>>
STO$$C( A)
TO$$C(gRxA E$0
EH E(IFDEF C$$A,<
<HRREI 1,> ! CEh$$A
$STORE F(1,A,$$ADDR)
>
R)
gT$M8@ gT% @ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz Kh$` IFDEF C$$LA,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ JH$Z
IFNJhDEF C$$A,<IFN $$KXA,<C$$A==$$XAK(>>
STO$$C( A)
TO$$C(h H lH.d $$NEWVAL (CLA,A)NEWVAL h4M m.h $$NEWVAL (FDT,A)NEWVAL h5K@ mH.l $$NEWVAL (FLN,A)NEWVAL h68` n.p $$NEWVAL (FSC,A)NEWVAL hm|@ o.x $$NEWVAL (MOR,A)NEWVAL ht^ nH.t $$NEWVAL (NEX,A)NEWVAL i? D(P i? DHP id$ qP id$.:P id$K
P id%0P id%KSP id%T(P id&N8P ig H@ h.`
IFNB <h(A>,<
$$MAPADD hH(A,$$ADDR); ; WIhhLL REFERENCE THE iBLOCK VIA $$ADDR
SYN ST$$RT,$$SiHET
>
IFBih <A>,<SYN ST$$CTj,$$SET>
$$CURj(R (T,BID)
$$CUjHRR (T,BLN)
$$CjhURR (T,CLA)
$$kCURR (T,FDT)
$k($CURR (T,FLN)
kH$$CURR (T,FSC)
kh $$CURR (T,NEX)
l $$CURR (T,MOR)
gURR (T,MOR)
IFNDEF oh$$ADDR,<
<$$SEpT(BID)>_^D18 ! <$p($SET(BLN)>
<$$pHSET(FDT)>_^D18 ! ph<$$SET(CLA)>
<q$$SET(FLN)>_^D18 q(! <$$SET(FDT)>
qH <$$SET(MOR)>^D1qh8 ! <$$SET(NEX)>
> ;IFNDEF
r(IFDEF $$ADDR,<
rH $$SET(BID)
$$rhSET(BLN)
$$SETs(FDT)
$$SET(CLs(A)
$$SET(FLN)
$$SET(FDT)
sh$$SET(MOR)
$$StET(NEX)
PURGE t($$ADDR ;SO NEXTtH C/R DECIS CORRECthT
> ;IFDEF
> ;IFDEF E$$ZERO(A ,TY$LNG)WERO(Ap #(* $$NEWVAL ( BKZ,A)NEWVAL (p$@ &(*2 $$NEWVAL ( DAN,A)NEWVAL (p$k $(*" $$NEWVAL ( DFL,A)NEWVAL (p&L $h*& $$NEWVAL ( DTP,A)NEWVAL (p,M (* $$NEWVAL ( EDT,A)NEWVAL (p5I` %(** $$NEWVAL ( FLG,A)NEWVAL (p>, @($
IF1,<P@HRINTX %"X$GRP" RM@hS-11 ONLY, IGNORE D BY RMS-20>
pD ;(#^
IF1,<P;HRINTX %"X$HAL" RM;hS-11 ONLY, IGNORE D 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 :(#V
IF1,<P:HRINTX %"X$MTH" RM:hS-11 ONLY, IGNORE D BY RMS-20>
pw h)~ $$NEWVAL ( NXT,A)NEWVAL (p~{@ ?(#~
IF1,<P?HRINTX %"X$OWN" RM?hS-11 ONLY, IGNORE D BY RMS-20>
p|@ !h* $$NEWVAL ( PGR,A)NEWVAL (p|` ((*X
$$NE(HWARRVAL (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)
$$NEWA+RRVAL (PS7,H)
VAL (PS7,H)
p}` !(*
$$NEWVAL ( POW,A)NEWVAL (p)` <(#f
IF1,<P<HRINTX %"X$PRG" RM<hS-11 ONLY, IGNORE D BY RMS-20>
p*@ =(#n
IF1,<P=HRINTX %"X$PRJ" RM=hS-11 ONLY, IGNORE D BY RMS-20>
p> h* $$NEWVAL ( PSY,A)NEWVAL (p{ "(* $$NEWVAL ( PWL,A)NEWVAL (pY@ '(*: $$NEWVAL ( REF,A)NEWVAL (p +@ C($
IF1,<PCHRINTX %"X$SBN" RMChS-11 ONLY, IGNORE D BY RMS-20>
p @ +H*r
$$NE+hWARRVAL (SZ0,A)
$$NEWARRVAL (S,(Z1,B)
$$NEWAR,HRVAL (SZ2,C)
,h$$NEWARRVAL (SZ3,-D)
$$NEWARRVA-(L (SZ4,E)
$$N-HEWARRVAL (SZ5,F)-h
$$NEWARRVAL (.SZ6,G)
$$NEWA.(RRVAL (SZ7,H)
VAL (SZ7,H)
p ` >(#v
IF1,<P>HRINTX %"X$SYS" RM>hS-11 ONLY, IGNORE D BY RMS-20>
p5{ B($
IF1,<PBHRINTX %"X$VOL" RMBhS-11 ONLY, IGNORE D BY RMS-20>
p=I A($
IF1,<PAHRINTX %"X$WLD" RMAhS-11 ONLY, IGNORE D BY RMS-20>
pD. D($&
IF1,<PDHRINTX %"X$XBY" RMDhS-11 ONLY, IGNORE D BY RMS-20>
pT\WP q$4(P q$d(P q$d(P q$dHP q$klP q$lZP q%9P q%KSP q%ksP q%|lP q& yP q&$(P q&$HP q&$iP q&,zP q&- P q&-
P q&.P q&.P q&.P q&.P q&90P q&>P q&>P q&>P q&>P q&>P q&> P q&D(P q&DHP q&N8P q&k9P qH@ )z
IFNB <(B>,<
$$MAPADD H(B,$$ADDR)
ShYN SX$$RT,$$SET
>
IFB <B(>,<SYN SX$$CT,$$SHET>
Ch$$COD==XB$A
X$$BLN==XA$SXA (
$$CUHRR (X,BLN)
$$CURR (X,BID)
$$CURR (X,RS1()
$$CURR (X,NXHT)
$h$CURR (X,CDT)
$$CURR (X,RDT)
( $$CURR (X,EDT)
H
$$CURhR (X,PSY)
$$CURR (X,POW)
$$C(URR (X,PGR)
$$HCURR (X,PWL)
h
$$CURR (X,RS2)
$$CURR ((X,AID)
$$CURRH (X,BKZ)
h
$$CURR (X,IFL)
$$CURR (X,D(FL)
$$CURR (X,HDTP)
$$CURR (Xh,FLG)
$$CURR (X,IAN)
$$CURR ((X,DAN)
$$CURRH (X,LAN)
$$CURhR (X,REF)
$$CURR (X,KNM)
$$C(URR (X,RX0)
$$HCURR (X,RX1)
$h$CURR (X,RX2)
$$CURR (X,RX3)
( $$CURR (X,RX4)
H $$CURR (X,RX5)
$$CURR (X,PS0)
$$CURR (X,PS1()
$$CURR (X,PSH2)
$$CURR (X,PhS3)
$$CURR (X,PS4)
$$CURR (X(,PS5)
$$CURR (HX,PS6)
$$CURR h(X,PS7)
$$CURR (X,SZ0)
$$CUR(R (X,SZ1)
$$CUHRR (X,SZ2)
$$ChURR (X,SZ3)
$$ CURR (X,SZ4)
$ ($CURR (X,SZ5)
H$$CURR (X,SZ6)
h $$CURR (X,SZ7)
$$CU (RR (X,RS6)
$$C HURR (X,NOK)
$$ hCURR (X,NOA)
$ $CURR (X,RS7)
($$CURR (X,RS8)
H $$CURR (X,RS9)
h
; ONLY THE NXT FIEL (D IS SETTABLE
S SETTABLE
qI .h,r
$$NEW/VAL(BLN,X$$BLN) /(
IFNDEF $$ADDR/H,<
<$$SET(BI/hD)>_^D18 ! <$$SET0(BLN)>
<$$SET(0(COD)>_^D18 ! <$$S0HET(NXT)>
IFE <0hC$$COD-XB$DAT>,<
<$$SET(CDT)>
<$$SET(RDT)>
<$$SET(EDT)>
>
IFE <C$$C2OD-XB$PRO>,<
2(<$$SET(PSY)>
2H<$$SET(POW)>
2h<$$SET(PGR)>
3<$$SET(PWL)>
>3(
IFE <C$$COD-X3HB$ALL>,<
<$$S3hET(AID)>_^D9 ! <$4$SET(BKZ)>
EX4(P 0,0,0
>
I4HFE <C$$COD-XB$KEY4h>,<
<$$SET(DT5P)>_^D18 ! <$$SET5((FLG)>
<$$SET5H(IAN)>_^D27 ! <$$5hSET(DAN)>_^D18 ! 6<$$SET(LAN)>_^D9 6(! <$$SET(REF)>
6H <$$SET(IFL)>_^D6h18 ! <$$SET(DFL)>7
<$$SET(KNM)>7(
EXP 0,0,0,0,7H0
<$$SET(PS0)7h>_^D18 ! <$$SET(S8Z0)>
<$$SET(P8(S1)>_^D18 ! <$$SE8HT(SZ1)>
<$$SE8hT(PS2)>_^D18 ! <$9$SET(SZ2)>
<$9($SET(PS3)>_^D18 !9H <$$SET(SZ3)>
9h <$$SET(PS4)>^D1:8 ! <$$SET(SZ4)>
<$$SET(PS5)>_:H^D18 ! <$$SET(SZ5:h)>
<$$SET(PS6;)>_^D18 ! <$$SET(;(SZ6)>
<$$SET(;HPS7)>_^D18 ! <$$S;hET(SZ7)>
>
<IFE <C$$COD-XB$SU<(M>,<
<$$SET(N<HOK)>_^D9 ! <$$SET<h(NOA)>
EXP 0,=0,0
>
IFE=( <C$$COD-XB$CFG>,=H<
EXP 0,0,0,0=h,0,0
>
>
> IFDEF $$ADDR,<
>(
; STO>HRE COMMON HEADER >hFOR ALL XAB TYPES?
$$SET(BID)
?( $$SET(RS1)
$$?HSET(COD)
$$SET?h(NXT)
; STOR@E REST OF XAB DEP@(ENDING ON IT'S TY@HPE
IFE <C$$COD@h-XB$DAT>,<
$$SAET(BLN)
$$SET(A(CDT)
$$SET(RDTAH)
$$SET(EDT)
Ah >
IFE <C$$BCOD-XB$PRO>,<
B($$SET(BLN)
$$SBHET(PSY)
$$SET(BhPOW)
$$SET(PGRC)
$$SET(PWL)
C( >
IFE <C$$CHCOD-XB$ALL>,<
Ch$$SET(BLN)
$$SDET(RS2)
$$SET(D(AID)
$$SET(BKZDH)
>
IFE <DhC$$COD-XB$KEY>,<
$$SET(BLN)
E($$SET(IFL)
$$SEHET(DFL)
$$SET(EhDTP)
$$SET(FLGF)
$$SET(IAN)
F( $$SET(DAN)
$FH$SET(LAN)
$$SEFhT(REF)
$$SET(KGNM)
$$SET(RX0)G(
$$SET(RX1)
GH $$SET(RX2)
$$GhSET(RX3)
$$SETH(RX4)
$$SET(RXH(5)
$$SET(PS0HH)
$$SET(PS1)
Hh $$SET(PS2)
$I$SET(PS3)
$$SEI(T(PS4)
$$SET(PIHS5)
$$SET(PS6)Ih
$$SET(PS7)
J
$$SET(SZ0)
J($$SET(SZ1)
$$SJHET(SZ2)
$$SET(JhSZ3)
$$SET(SZ4K)
$$SET(SZ5)
K( $$SET(SZ6)
$KH$SET(SZ7)
>
Kh
IFE <C$$COD-XBL$SUM>,<
$$SET(L(BLN)
$$SET(RS6LH)
$$SET(NOK)
Lh $$SET(NOA)
$M$SET(RS7)
$$SEM(T(RS8)
$$SET(RMHS9)
>
IFE <MhC$$COD-XB$CFG>,<
$$SET(BLN)
N(>
PURGE $$ADDR
>
qN@ v(/4 $$ZERO(AvH,%NAME(XA$SX,B)) AME(XA$SX,B))q$vP q$P q$P q$ P q$ lP q$(yP q$*:P q$+P q$+P q$8:P q$9P q$9SP q$:P q$:P
q$;8P q$;PP q$<P q$DwP q$H:P q$IYP q$J9P
q$J9P q$LWP q$MP q$iP q$kP q$k P q$lP q$lqP q$yVP q${`P q%
tP q%5P q%JP q%LP q%96P q%9<P q%X:P q%X<P q%YP q%h6P q%j6P q%}WP q&1P q&
RP q&
VP
WP q&(:P q&)P q&)1P q&)7P q&*P q&*rP q&+P q&,P q&,RP q&,SP q&-QP q&8PP q&93P q&:<P q&;6P
q&<0P q&<7P q&<:P q&=P q&=6P q&=pP q&[JP q&x9P q&{P q' P
q@&
PP q@&
QP q@&
RP q@&
RP q@&
VP q@&
YP q@&
ZP q@&
[P q@&
\P 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`&(P q`&(P q`&)P q`&)P q`&*P q`&*P q`&+P q`&+P q`&,P q`&,P q`&@P q`&HP
q`&HP
q`&IP q`&IP q`&JP
q`&JP
q`&KP q`&`P q`&hP q`&hP q`&iP q`&iP q`&jP q`&jP q`& P q`& P q`&@P q`&`P q`& P q`& P q`&wP q`&zP q`&
2P q`& P q`& P q`&
@P q`&
zP q`&
{P q`&4 P q`&4 P q`&4(P q`&4(P q`&4)P q`&4)P q`&4*P q`&4*P q`&4+P q`&4+P q`&4,P q`&4,P q`&4@P q`&4HP
q`&4HP
q`&4IP q`&4IP q`&4JP
q`&4JP
q`&4KP q`&4LP q`&4`P q`&4hP q`&4hP q`&4iP q`&4iP q`&4jP q`&4jP q`&4kP q`&5 P q`&5 P q`&5@P q`&5`P q`&6 P q`&6 P q`&8wP q`&8zP q`&: P q`&:2P q`&;P q`&<zP q`&<{P q`&=`P q`'9P $0 ( d ASCIZ\
H COPYRIGHT (C) DI hGITAL EQUIPMENT C
ORPORATION 1979,
(1986.
ALL RIGHT
HS RESERVED.
\ RESERVED.
\<z
IFNBI<A-B,<PRLOW>>
IFNB <C>(,<IFG A-C,<PRINHTX ?A HAS A VALUhE WHICH IS TOO HI GH>>
IS TOO HI y *("T
C=A+*HB
B==B+1
B==B+1 \Y .h"v PURGE C$$ B PURGE C$$-i 0* 4P 4*2P 4*yP 4+P 4+P 4,}P 4= P 4I;P 4\Y (h"H
$$CODE().EXBAS,.EXCTR,A, B)
.EXCTR,A,4h1P 4kPP 4kxP 4l}P 56 h!
IF1,<
$$AB==C$D
( F$$B==<XX$G>B5H ! <XX$F>B11 ! XhX$E
> ;END O F IF1
> ;END O5TP 5)WP 5+VP 5\WP 5\YP 5h6P 5|SP 6(:P 6)HP 6)IP 6)JP 6)VP 69P 6:P 6=P 6=P 6N8P 71P LwP LP L)WP L*2P L+P L+P L+P L+7P LJ9P LKP LkP MUP MYP MvP MzP MP MPP MSP MWP MXP MSP MyP M PP M SP M WP M YP M tP M8YP M9P MXYP N;v 0(
T$$PS==(F$$A_-^D30
TH$$SZ==<F$$A_-^D2h4> & 77
T$$OF==F$$A & 777777
$AP& 777777 P \+P \HUP \IVP ]
}P ]UP ]P ]VP ]8]P ]9P ]9P ]9SP ]:0P ]:yP ];\P ]<qP ]<{P ]I;P ][YP ^+wP l /("z DEFINE B< A> DEFINE B<l )H"N A$MAX==.)hABASE + .ACTR - 1SE + .ACTR - t*2P t+P t:P tLPP tLVP tMPP tMVP t\pP t\vP t\yP t]p 9(#N
IFNB <9hB>,<C$$A==B>
>,<C$$A==B>
t]{ 0#
DEFINE C$$A<B>
E tkQP uiP uiP uk0P uk6P ukxP v+P v,pP v,vP v,yP vLP vLP vlPP vlVP vxqP vxzP v{\P *2P *zP +P = P [P h1P tP 8SP <SP <}P LwP XSP 2P (1P (SP )PP +xP ,HP ,IP ,IP ,JP ,}P =P =P XSP \}P )P )RP )WP )WP )XP )ZP )]P *2P *pP *qP *rP *sP *wP *yP +P +P .1P kP lzP \P
}P <WP lXP |P 9P 9SP :qP :yP <SP <YP X` '("<
$$CODE('H.SUBAS,.SUCTR,A, B)
.SUCTR,A, V H!0
FB$ALL=h=FB$GET+FB$PUT+FB$DEL+FB$UPD+FB$TR(N
$$ASSUMEH(FB$SEQ,0) ;FILEh ORG MUST BE GTR ZERO
$$ASSUME(R(B$SEQ,0,0) ;RECOHRD ACCESS MUST SThART AT ZERO
$$ASSUME(XB$KEY,0,0)( ;KEY XAB MUST BHE FIRST
$$ASSUMhE(XB$STG,0,0) ;STRING DATA-TYPE S HOULD BE ZERO
$*2P $+P $;P $iP $kP $lqP %[yP %i<P ,\Y ("B
$$CODE(((.ERBAS,.ERCTR,A, B)
.ERCTR,A,4[R $H"6
IF2$h,<
C$MAX==XX$MA%X
JS$MIN==100%(0
JS$MAX==1000+%HXX$MAX
OPDEF RM%h$MIN [104B8+1000]& ;MINIMUM JSYS V&(ALUE
OPDEF RM$M&HAX [104B8+1000+XX&h$MAX]
>
MAX]
>
4\Q "
C$(A==XX$MAX
H DEFINE $%A(A)<h
IFE <RMS$DJ+RMS$DY>,< ( ;a506
IHFN TOP$10,<PUSHJ h17,RMS$10##+C$A>
IFN TOP($20,<104B8+1000+CH$A>
> h ;a506
IFN RMS$DY,<PUSHJ( 17,@$$A##>
H IFN RMS$DJ,<PhUSHJ 17,%$A##>
>
DE (FINE $A(.BLK1,.E HRRAD,.BLK2),<
I hFB <.BLK1>,<IF1,< PRINTX %ARGBLK AD (DRESS OMITTED ON HA MACRO>>
XMOV hEI 1, .BLK1
IFI DN <A><RENAME>,< (
IF HB <.BLK2>,<IF1,<P hRINTX %NEWFAB ADD RESS OMITTED ON R (ENAME MACRO>>
X HMOVEI 2, .BLK2>
h IFDIF <A><RENAM E>,<
IFNB <.BLK (2>,<IF1,<PRINTX % HMORE THAN 2 ARGS hDETECTED IN A MA!CRO>>>
$%A
IFE <RMS$DY+RMS!H$DJ>,<
IFNB <.!hERRAD>,<JUMP 17,."ERRAD>
IFB <.E"(RRAD>,<JUMP 16,.+"H1> >
IFN <RMS"h$DY+RMS$DJ>,< IFN#B <.ERRAD>,<
C#(AIL 2,300000 #H
PUSHJ 17,.E#hRRAD >>
$ >
XX$MAX==XX $MAX+1
X==XX5T H!<
XX$M AX==0
XX$MD2P D)YP D*2P D*}P D+P D8(P D8)P D88P D9P D;rP DH7P DIVP DL{P DMP DXwP DYP Dj6P DkP E7P EVP E;VP EH7P EkpP EkuP EnP E|zP F yP F yP F {P F
hP F
hP F
iP F
iP F
jP F
jP F
kP F
kP F
|P 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 F\wP F\{P Fi9P T\W x/H
SETZM x(A
MOVEI 2,AxH
MOVEI 1,1(2xh)
HRLI 1,A y
BLT 1,B-1(2 )
T 1,B-1(2 Ky 1t
I@FE <RMS$DJ+RMS$DY`>,< ;a506
IFN TOP$10, <PUSHJ 17,RMS$10# @#+C$CLOSE>
` IFN TOP$20,<10 4B8+1000+C$CLOSE>
> @ ;a506
IFN `RMS$DY,<PUSHJ 17, @$$CLOSE##>
IFN RMS$DJ,<PU @SHJ 17,%$CLOSE##>
LOSE##> {W h`6b
Ii FE <RMS$DJ+RMS$DYi >,< ;a506
i@ IFN TOP$10,i`<PUSHJ 17,RMS$10#j #+C$CONNECT>
j IFN TOP$20,<j@104B8+1000+C$CONNj`ECT>
> k ;a506
k IFN RMS$DY,<PUSHJk@ 17,@$$CONNECT##>k`
IFN RMS$l DJ,<PUSHJ 17,%$COl NNECT##>
NECT##>
)0 t 8
I FE <RMS$DJ+RMS$DY @>,< ;a506
` IFN TOP$10, <PUSHJ 17,RMS$10# #+C$CREATE>
@ IFN TOP$20,<1`04B8+1000+C$CREAT E>
> ;a506
IF@N RMS$DY,<PUSHJ 1`7,@$$CREATE##>
IFN RMS$DJ, <PUSHJ 17,%$CREAT E##>
EAT$XZ 8r
I FE <RMS$DJ+RMS$DY @>,< ;a506
` IFN TOP$10,
<PUSHJ 17,RMS$10#
#+C$DEBUG>
@ IFN TOP$20,<10
`4B8+1000+C$DEBUG>
;a5>
@RMS$IFN<USHJ 17,
IFN RMS$DJ,<PU SHJ 17,%$DEBUG##>
EBUG##>$[ G 4T
IG@FE <RMS$DJ+RMS$DYG`>,< ;a506
H IFN TOP$10,H <PUSHJ 17,RMS$10#H@#+C$DELETE>
H` IFN TOP$20,<1I 04B8+1000+C$DELETI E>
> I@ ;a506
J IFI`N RMS$DY,<PUSHJ 1J 7,@$$DELETE##>
IFN RMS$DJ,J@<PUSHJ 17,%$DELET E##>
LET% q t@7@
It`FE <RMS$DJ+RMS$DYu >,< ;a506
u IFN TOP$10,u@<PUSHJ 17,RMS$10#u`#+C$DISCONNECT>
IFN TOP$2v 0,<104B8+1000+C$Dv@ISCONNECT>
w v` > ;a506
IFN RMS$DY,w <PUSHJ 17,@$$DISCw@ONNECT##>
w` IFN RMS$DJ,<PUSHx J 17,%$DISCONNECT ##>
NECT% x 8 <8
IC`FE <RMS$DJ+RMS$DYD >,< ;a506
D IFN TOP$10,D@<PUSHJ 17,RMS$10#D`#+C$DISPLAY>
E IFN TOP$20,<E 104B8+1000+C$DISPE@LAY>
> E` ;a506
F IFN RMS$DY,<PUSHJF 17,@$$DISPLAY##>F@
IFN RMS$F`DJ,<PUSHJ 17,%$DIG SPLAY##>
PLAY##>
-m H DZ
IH FE <RMS$DJ+RMS$DYH@>,< ;a506
H` IFN TOP$10,I <PUSHJ 17,RMS$10#I #+C$ENTER>
I@ IFN TOP$20,<10I`4B8+1000+C$ENTER>J
> J ;a506
IFN J@RMS$DY,<PUSHJ 17,J`@$$ENTER##>
K IFN RMS$DJ,<PUK SHJ 17,%$ENTER##>
NTER##>.(9 O =
IO FE <RMS$DJ+RMS$DYO@>,< ;a506
O` IFN TOP$10,P <PUSHJ 17,RMS$10#P #+C$ERASE>
P@ IFN TOP$20,<10P`4B8+1000+C$ERASE>Q
> Q ;a506
IFN Q@RMS$DY,<PUSHJ 17,Q`@$$ERASE##>
R IFN RMS$DJ,<PUR SHJ 17,%$ERASE##>
RASE##>/
IS FE <RMS$DJ+RMS$DYS@>,< ;a506
S` IFN TOP$10,T <PUSHJ 17,RMS$10#T #+C$EXTEND>
T@ IFN TOP$20,<1T`04B8+1000+C$EXTENU D>
> U ;a506
V IFU@N RMS$DY,<PUSHJ 1U`7,@$$EXTEND##>
IFN RMS$DJ,V <PUSHJ 17,%$EXTEN D##>
TEN5R R 5,
IR@FE <RMS$DJ+RMS$DYR`>,< ;a506
S IFN TOP$10,S <PUSHJ 17,RMS$10#S@#+C$FIND>
T S` IFN TOP$20,<104T B8+1000+C$FIND>
> ;T@a506
IFN RMT`S$DY,<PUSHJ 17,@$U $FIND##>
U IFN RMS$DJ,<PUSHJU@ 17,%$FIND##>
FIND##>
5M9 !@:&
I!`FE <RMS$DJ+RMS$DY" >,< ;a506
" IFN TOP$10,"@<PUSHJ 17,RMS$10#"`#+C$FLUSH>
# IFN TOP$20,<10# 4B8+1000+C$FLUSH>#@
> #` ;a506
IFN $ RMS$DY,<PUSHJ 17,$ @$$FLUSH##>
$@ IFN RMS$DJ,<PU$`SHJ 17,%$FLUSH##>
LUSH##>6)2 Z =j
IZ FE <RMS$DJ+RMS$DYZ@>,< ;a506
Z` IFN TOP$10,[ <PUSHJ 17,RMS$10#[ #+C$FREE>
\ [@ IFN TOP$20,<104[`B8+1000+C$FREE>
> ;\ a506
IFN RM\@S$DY,<PUSHJ 17,@$\`$FREE##>
] IFN RMS$DJ,<PUSHJ] 17,%$FREE##>
FREE##>
<] & 2L
I&@FE <RMS$DJ+RMS$DY&`>,< ;a506
' IFN TOP$10,' <PUSHJ 17,RMS$10#'@#+C$GET>
'` IFN TOP$20,<104B( 8+1000+C$GET>
( > ;a5(@06
IFN RMS$(`DY,<PUSHJ 17,@$$G) ET##>
IFN) RMS$DJ,<PUSHJ 17)@,%$GET##>
$GET##>
l\y ,@;
I,`FE <RMS$DJ+RMS$DY- >,< ;a506
- IFN TOP$10,-@<PUSHJ 17,RMS$10#-`#+C$MESSAGE>
. IFN TOP$20,<. 104B8+1000+C$MESS.@AGE>
> .` ;a506
/ IFN RMS$DY,<PUSHJ/ 17,@$$MESSAGE##>/@
IFN RMS$/`DJ,<PUSHJ 17,%$ME0 SSAGE##>
SAGE##>
u{2 8 ;^
I8@FE <RMS$DJ+RMS$DY8`>,< ;a506
9 IFN TOP$10,9 <PUSHJ 17,RMS$10#9@#+C$NOMESSAGE>
9` IFN TOP$20: ,<104B8+1000+C$NO: MESSAGE>
>:@ ;a506
:` IFN RMS$DY,<P; USHJ 17,@$$NOMESS; AGE##>
IF;@N RMS$DJ,<PUSHJ 1;`7,%$NOMESSAGE##>
SAGE##> w
Ip FE <RMS$DJ+RMS$DYp@>,< ;a506
p` IFN TOP$10,q <PUSHJ 17,RMS$10#q #+C$NXTVOL>
q@ IFN TOP$20,<1q`04B8+1000+C$NXTVOr L>
> r ;a506
s IFr@N RMS$DY,<PUSHJ 1r`7,@$$NXTVOL##>
IFN RMS$DJ,s <PUSHJ 17,%$NXTVO L##>
TVO~ 7 1
I(FE <RMS$DJ+RMS$DYh>,< ;a506
H IFN TOP$10,(<PUSHJ 17,RMS$10#h#+C$OPEN>
IFN TOP$20,<104(B8+1000+C$OPEN>
> ;@a506
IFN RM`S$DY,<PUSHJ 17,@$ $OPEN##>
IFN RMS$DJ,<PUSHJ@ 17,%$OPEN##>
OPEN##>
Y 2 C*
I2 FE <RMS$DJ+RMS$DY2@>,< ;a506
2` IFN TOP$10,3 <PUSHJ 17,RMS$10#3 #+C$PARSE>
3@ IFN TOP$20,<103`4B8+1000+C$PARSE>4
> 4 ;a506
IFN 4@RMS$DY,<PUSHJ 17,4`@$$PARSE##>
5 IFN RMS$DJ,<PU5 SHJ 17,%$PARSE##>
ARSE##>] 1 3$
I1@FE <RMS$DJ+RMS$DY1`>,< ;a506
2 IFN TOP$10,2 <PUSHJ 17,RMS$10#2@#+C$PUT>
2` IFN TOP$20,<104B3 8+1000+C$PUT>
3 > ;a53@06
IFN RMS$3`DY,<PUSHJ 17,@$$P4 UT##>
IFN4 RMS$DJ,<PUSHJ 174@,%$PUT##>
$PUT##>
X2 A"
I FE <RMS$DJ+RMS$DY@>,< ;a506
` IFN TOP$10, <PUSHJ 17,RMS$10# #+C$READ>
@ IFN TOP$20,<104`B8+1000+C$READ>
> ; a506
IFN RM@S$DY,<PUSHJ 17,@$`$READ##>
IFN RMS$DJ,<PUSHJ 17,%$READ##>
READ##>
[ 9L
I FE <RMS$DJ+RMS$DY@>,< ;a506
` IFN TOP$10, <PUSHJ 17,RMS$10# #+C$RELEASE>
@ IFN TOP$20,<`104B8+1000+C$RELE ASE>
> ;a506
@IFN RMS$DY,<PUSHJ` 17,@$$RELEASE##>
IFN RMS$ DJ,<PUSHJ 17,%$RE@LEASE##>
EASE##>
[7 ^ F
I^ FE <RMS$DJ+RMS$DY^@>,< ;a506
^` IFN TOP$10,_ <PUSHJ 17,RMS$10#_ #+C$REMOVE>
_@ IFN TOP$20,<1_`04B8+1000+C$REMOV` E>
> ` ;a506
a IF`@N RMS$DY,<PUSHJ 1``7,@$$REMOVE##>
IFN RMS$DJ,a <PUSHJ 17,%$REMOV E##>
MOV[P i Fb
Ii FE <RMS$DJ+RMS$DYi@>,< ;a506
i` IFN TOP$10,j <PUSHJ 17,RMS$10#j #+C$RENAME>
j@ IFN TOP$20,<1j`04B8+1000+C$RENAMk E>
> k ;a506
l IFk@N RMS$DY,<PUSHJ 1k`7,@$$RENAME##>
IFN RMS$DJ,l <PUSHJ 17,%$RENAM E##>
NAM]t { ?r
I{ FE <RMS$DJ+RMS$DY{@>,< ;a506
{` IFN TOP$10,| <PUSHJ 17,RMS$10#| #+C$REWIND>
|@ IFN TOP$20,<1|`04B8+1000+C$REWIN} D>
> } ;a506
~ IF}@N RMS$DY,<PUSHJ 1}`7,@$$REWIND##>
IFN RMS$DJ,~ <PUSHJ 17,%$REWIN D##>
WIN X9 = D
I= FE <RMS$DJ+RMS$DY=@>,< ;a506
=` IFN TOP$10,> <PUSHJ 17,RMS$10#> #+C$SEARCH>
>@ IFN TOP$20,<1>`04B8+1000+C$SEARC? H>
> ? ;a506
@ IF?@N RMS$DY,<PUSHJ 1?`7,@$$SEARCH##>
IFN RMS$DJ,@ <PUSHJ 17,%$SEARC H##>
ARC 1 Az
I FE <RMS$DJ+RMS$DY @>,< ;a506
` IFN TOP$10, <PUSHJ 17,RMS$10# #+C$SPACE>
@ IFN TOP$20,<10 `4B8+1000+C$SPACE>
> ;a506
IFN @RMS$DY,<PUSHJ 17, `@$$SPACE##>
IFN RMS$DJ,<PU SHJ 17,%$SPACE##>
PACE##>&-7 ] 6
I]@FE <RMS$DJ+RMS$DY]`>,< ;a506
^ IFN TOP$10,^ <PUSHJ 17,RMS$10#^@#+C$TRUNCATE>
^` IFN TOP$20,_ <104B8+1000+C$TRU_ NCATE>
> _@ ;a506
_` IFN RMS$DY,<PUS` HJ 17,@$$TRUNCATE` ##>
IFN R`@MS$DJ,<PUSHJ 17,%``$TRUNCATE##>
CATE##>
. < 3|
I<@FE <RMS$DJ+RMS$DY<`>,< ;a506
= IFN TOP$10,= <PUSHJ 17,RMS$10#=@#+C$UPDATE>
=` IFN TOP$20,<1> 04B8+1000+C$UPDAT> E>
> >@ ;a506
? IF>`N RMS$DY,<PUSHJ 1? 7,@$$UPDATE##>
IFN RMS$DJ,?@<PUSHJ 17,%$UPDAT E##>
DAT.K e >B
Ie FE <RMS$DJ+RMS$DYe@>,< ;a506
e` IFN TOP$10,f <PUSHJ 17,RMS$10#f #+C$UTLINT>
f@ IFN TOP$20,<1f`04B8+1000+C$UTLINg T>
> g ;a506
h IFg@N RMS$DY,<PUSHJ 1g`7,@$$UTLINT##>
IFN RMS$DJ,h <PUSHJ 17,%$UTLIN T##>
LIN<: @J
I FE <RMS$DJ+RMS$DY@>,< ;a506
` IFN TOP$10, <PUSHJ 17,RMS$10# #+C$WAIT>
@ IFN TOP$20,<104`B8+1000+C$WAIT>
> ; a506
IFN RM@S$DY,<PUSHJ 17,@$`$WAIT##>
IFN RMS$DJ,<PUSHJ 17,%$WAIT##>
WAIT##>
>*: ' BR
I' FE <RMS$DJ+RMS$DY'@>,< ;a506
'` IFN TOP$10,( <PUSHJ 17,RMS$10#( #+C$WRITE>
(@ IFN TOP$20,<10(`4B8+1000+C$WRITE>)
> ) ;a506
IFN )@RMS$DY,<PUSHJ 17,)`@$$WRITE##>
* IFN RMS$DJ,<PU* SHJ 17,%$WRITE##>
RITE##> e|r 2.
IFB <A >,<IF1,<PRINTX %A @RGBLK ADDRESS OMI `TTED ON CLOSE MAC RO>>
XMOVEI 1, A
IFIDN <CLOSE @><RENAME>,< `
IFB <C>! ,<IF1,<PRINTX %NE! WFAB ADDRESS OMIT!@TED ON RENAME MAC!`RO>>
XMOVEI 2, " C>
IFDIF <CLOS" E><RENAME>,<
IF"@NB <C>,<IF1,<PRI"`NTX %MORE THAN 2 # ARGS DETECTED IN # CLOSE MACRO>>>
#@$%CLOSE
IFE #`<RMS$DY+RMS$DJ>,<$
IFNB <B>,<JU$ MP 17,B>
IFB $@<B>,<JUMP 16,.+1$`> >
IFN <RMS$% DY+RMS$DJ>,< IFNB% <B>,<
CAIL 2%@,300000
%` PUSHJ 17,B >>
>> }kR l`7
IFB <Am >,<IF1,<PRINTX %Am RGBLK ADDRESS OMIm@TTED ON CONNECT Mm`ACRO>>
XMOVEI 1n , A
IFIDN <CONn NECT><RENAME>,< n@
IFB n`<C>,<IF1,<PRINTXo %NEWFAB ADDRESS o OMITTED ON RENAMEo@ MACRO>>
XMOVEIo` 2, C>
IFDIF <p CONNECT><RENAME>,p <
IFNB <C>,<IFp@1,<PRINTX %MORE Tp`HAN 2 ARGS DETECTq ED IN CONNECT MACq RO>>>
$%CONNECTq@
IFE <RMS$DYq`+RMS$DJ>,<
IFNr B <B>,<JUMP 17,r B>
IFB <B>,<Jr@UMP 16,.+1> >
r` IFN <RMS$DY+RMS$s DJ>,< IFNB <B>,<s
CAIL 2,300000s@
PUSHJ s`17,B >>
>>
X: `8T
IFB <A >,<IF1,<PRINTX %A RGBLK ADDRESS OMI@TTED ON CREATE MA`CRO>>
XMOVEI 1, A
IFIDN <CREA TE><RENAME>,< @
IFB <`C>,<IF1,<PRINTX % NEWFAB ADDRESS OM ITTED ON RENAME M@ACRO>>
XMOVEI 2`, C>
IFDIF <CR EATE><RENAME>,<
IFNB <C>,<IF1,<@PRINTX %MORE THAN` 2 ARGS DETECTED IN CREATE MACRO>> >
$%CREATE
@ IFE <RMS$DY+RMS$`DJ>,<
IFNB <B >,<JUMP 17,B>
IFB <B>,<JUMP 1 @6,.+1> >
IFN `<RMS$DY+RMS$DJ>,<
IFNB <B>,<
C
AIL 2,300000
@
PUSHJ 17,B >>
,-3 `9,
IFB <A >,<IF1,<PRINTX %A RGBLK ADDRESS OMI@TTED ON DEBUG MAC`RO>>
XMOVEI 1, A
IFIDN <DEBUG ><RENAME>,< @
IFB <C>`,<IF1,<PRINTX %NE WFAB ADDRESS OMIT TED ON RENAME MAC@RO>>
XMOVEI 2, `C>
IFDIF <DEBU G><RENAME>,<
IF NB <C>,<IF1,<PRI@NTX %MORE THAN 2 `ARGS DETECTED IN DEBUG MACRO>>>
$%DEBUG
IFE @<RMS$DY+RMS$DJ>,<`
IFNB <B>,<JU MP 17,B>
IFB <B>,<JUMP 16,.+1@> >
IFN <RMS$`DY+RMS$DJ>,< IFNB <B>,<
CAIL 2 ,300000
@ PUSHJ 17,B >>
>> -I: K 5
IFB <AK >,<IF1,<PRINTX %AK@RGBLK ADDRESS OMIK`TTED ON DELETE MAL CRO>>
XMOVEI 1,L A
IFIDN <DELEL@TE><RENAME>,< L`
IFB <M C>,<IF1,<PRINTX %M NEWFAB ADDRESS OMM@ITTED ON RENAME MM`ACRO>>
XMOVEI 2N , C>
IFDIF <DEN LETE><RENAME>,<
N@ IFNB <C>,<IF1,<N`PRINTX %MORE THANO 2 ARGS DETECTED O IN DELETE MACRO>>O@>
$%DELETE
O` IFE <RMS$DY+RMS$P DJ>,<
IFNB <BP >,<JUMP 17,B>
P@ IFB <B>,<JUMP 1P`6,.+1> >
IFN Q <RMS$DY+RMS$DJ>,<Q IFNB <B>,<
CQ@AIL 2,300000 Q`
PUSHJ 17,B >>
N8w x@7~
IFB <Ax`>,<IF1,<PRINTX %Ay RGBLK ADDRESS OMIy TTED ON DISCONNECy@T MACRO>>
XMOVEy`I 1, A
IFIDN <z DISCONNECT><RENAMz E>,<
IFB <C>,<IF1,<z`PRINTX %NEWFAB AD{ DRESS OMITTED ON { RENAME MACRO>>
{@XMOVEI 2, C>
I{`FDIF <DISCONNECT>| <RENAME>,<
IFNB| <C>,<IF1,<PRINT|@X %MORE THAN 2 AR|`GS DETECTED IN DI} SCONNECT MACRO>>>}
$%DISCONNECT }@
IFE <RMS$DY+R}`MS$DJ>,<
IFNB ~ <B>,<JUMP 17,B>~
IFB <B>,<JUM~@P 16,.+1> >
I~`FN <RMS$DY+RMS$DJ >,< IFNB <B>,<
CAIL 2,300000 @
PUSHJ 17`,B >>
>>
N< G@<t
IFB <AG`>,<IF1,<PRINTX %AH RGBLK ADDRESS OMIH TTED ON DISPLAY MH@ACRO>>
XMOVEI 1H`, A
IFIDN <DISI PLAY><RENAME>,< I
IFB I@<C>,<IF1,<PRINTXI` %NEWFAB ADDRESS J OMITTED ON RENAMEJ MACRO>>
XMOVEIJ@ 2, C>
IFDIF <J`DISPLAY><RENAME>,K <
IFNB <C>,<IFK 1,<PRINTX %MORE TK@HAN 2 ARGS DETECTK`ED IN DISPLAY MACL RO>>>
$%DISPLAYL
IFE <RMS$DYL@+RMS$DJ>,<
IFNL`B <B>,<JUMP 17,M B>
IFB <B>,<JM UMP 16,.+1> >
M@ IFN <RMS$DY+RMS$M`DJ>,< IFNB <B>,<N
CAIL 2,300000N
PUSHJ N@17,B >>
>>
vI9 K`E
IFB <AL >,<IF1,<PRINTX %AL RGBLK ADDRESS OMIL@TTED ON ENTER MACL`RO>>
XMOVEI 1, M A
IFIDN <ENTERM ><RENAME>,< M@
IFB <C>M`,<IF1,<PRINTX %NEN WFAB ADDRESS OMITN TED ON RENAME MACN@RO>>
XMOVEI 2, N`C>
IFDIF <ENTEO R><RENAME>,<
IFO NB <C>,<IF1,<PRIO@NTX %MORE THAN 2 O`ARGS DETECTED IN P ENTER MACRO>>>
P $%ENTER
IFE P@<RMS$DY+RMS$DJ>,<P`
IFNB <B>,<JUQ MP 17,B>
IFB Q <B>,<JUMP 16,.+1Q@> >
IFN <RMS$Q`DY+RMS$DJ>,< IFNBR <B>,<
CAIL 2R ,300000
R@ PUSHJ 17,B >>
>> r R`=L
IFB <AS >,<IF1,<PRINTX %AS RGBLK ADDRESS OMIS@TTED ON ERASE MACS`RO>>
XMOVEI 1, T A
IFIDN <ERASET ><RENAME>,< T@
IFB <C>T`,<IF1,<PRINTX %NEU WFAB ADDRESS OMITU TED ON RENAME MACU@RO>>
XMOVEI 2, U`C>
IFDIF <ERASV E><RENAME>,<
IFV NB <C>,<IF1,<PRIV@NTX %MORE THAN 2 V`ARGS DETECTED IN W ERASE MACRO>>>
W $%ERASE
IFE W@<RMS$DY+RMS$DJ>,<W`
IFNB <B>,<JUX MP 17,B>
IFB X <B>,<JUMP 16,.+1X@> >
IFN <RMS$X`DY+RMS$DJ>,< IFNBY <B>,<
CAIL 2Y ,300000
Y@ PUSHJ 17,B >>
>> FI7 V`El
IFB <AW >,<IF1,<PRINTX %AW RGBLK ADDRESS OMIW@TTED ON EXTEND MAW`CRO>>
XMOVEI 1,X A
IFIDN <EXTEX ND><RENAME>,< X@
IFB <X`C>,<IF1,<PRINTX %Y NEWFAB ADDRESS OMY ITTED ON RENAME MY@ACRO>>
XMOVEI 2Y`, C>
IFDIF <EXZ TEND><RENAME>,<
Z IFNB <C>,<IF1,<Z@PRINTX %MORE THANZ` 2 ARGS DETECTED [ IN EXTEND MACRO>>[ >
$%EXTEND
[@ IFE <RMS$DY+RMS$[`DJ>,<
IFNB <B\ >,<JUMP 17,B>
\ IFB <B>,<JUMP 1\@6,.+1> >
IFN \`<RMS$DY+RMS$DJ>,<] IFNB <B>,<
C] AIL 2,300000 ]@
PUSHJ 17,B >>
.Ht z(/t
$$ISOL(zHB)
IFE <T$$zhSZ-^D18>,<
{({ IFE T$$PS,<
HRRZ A,T$$OF+{HC
T$$SZ==0
>
IFE| <T$$PS-^D18>,< |(
HLRZ A,T$$OF|H+C
T$$SZ==0 |h
>
>
IF}E <T$$SZ-^D36>,< }(
MOVE A,T$$O}HF+C
T$$SZ==0 }h
>
IFN T$$SZ~,<
LDB A,[~(<T$$PS>B5 ! <T$$S~HZ>B11 ! <T$$OF+C >]
>
$$OF+C L[ yh/N [F$$A+B] [F$$A+B] Mi V 5f
IFB <AV >,<IF1,<PRINTX %AV@RGBLK ADDRESS OMIV`TTED ON FIND MACRW O>>
XMOVEI 1, W A
IFIDN <FIND><W@RENAME>,< W`
IFB <C>,<X IF1,<PRINTX %NEWFX AB ADDRESS OMITTEX@D ON RENAME MACROX`>>
XMOVEI 2, CY >
IFDIF <FIND><Y RENAME>,<
IFNB Y@<C>,<IF1,<PRINTXY` %MORE THAN 2 ARGZ S DETECTED IN FINZ D MACRO>>>
$%FIZ@ND
IFE <RMS$Z`DY+RMS$DJ>,<
I[ FNB <B>,<JUMP 17[ ,B>
IFB <B>,[@<JUMP 16,.+1> > [`
IFN <RMS$DY+RM\ S$DJ>,< IFNB <B>\ ,<
CAIL 2,3000\@00
PUSH\`J 17,B >>
>>
f\t % :`
IFB <A%@>,<IF1,<PRINTX %A%`RGBLK ADDRESS OMI& TTED ON FLUSH MAC& RO>>
XMOVEI 1, &@A
IFIDN <FLUSH&`><RENAME>,< '
IFB <C>' ,<IF1,<PRINTX %NE'@WFAB ADDRESS OMIT'`TED ON RENAME MAC( RO>>
XMOVEI 2, ( C>
IFDIF <FLUS(@H><RENAME>,<
IF(`NB <C>,<IF1,<PRI) NTX %MORE THAN 2 ) ARGS DETECTED IN )@FLUSH MACRO>>>
)`$%FLUSH
IFE * <RMS$DY+RMS$DJ>,<*
IFNB <B>,<JU*@MP 17,B>
IFB *`<B>,<JUMP 16,.+1+ > >
IFN <RMS$+ DY+RMS$DJ>,< IFNB+@ <B>,<
CAIL 2+`,300000
, PUSHJ 17,B >>
>> Y ]`>$
IFB <A^ >,<IF1,<PRINTX %A^ RGBLK ADDRESS OMI^@TTED ON FREE MACR^`O>>
XMOVEI 1, _ A
IFIDN <FREE><_ RENAME>,< _@
IFB <C>,<_`IF1,<PRINTX %NEWF` AB ADDRESS OMITTE` D ON RENAME MACRO`@>>
XMOVEI 2, C``>
IFDIF <FREE><a RENAME>,<
IFNB a <C>,<IF1,<PRINTXa@ %MORE THAN 2 ARGa`S DETECTED IN FREb E MACRO>>>
$%FRb EE
IFE <RMS$b@DY+RMS$DJ>,<
Ib`FNB <B>,<JUMP 17c ,B>
IFB <B>,c <JUMP 16,.+1> > c@
IFN <RMS$DY+RMc`S$DJ>,< IFNB <B>d ,<
CAIL 2,3000d 00
PUSHd@J 17,B >>
>>
.@ * 3
IFB <A* >,<IF1,<PRINTX %A*@RGBLK ADDRESS OMI*`TTED ON GET MACRO+ >>
XMOVEI 1, A+
IFIDN <GET><RE+@NAME>,< +`
IFB <C>,<IF, 1,<PRINTX %NEWFAB, ADDRESS OMITTED ,@ON RENAME MACRO>>,`
XMOVEI 2, C>
IFDIF <GET><REN- AME>,<
IFNB <C-@>,<IF1,<PRINTX %M-`ORE THAN 2 ARGS D. ETECTED IN GET MA. CRO>>>
$%GET .@
IFE <RMS$DY+RM.`S$DJ>,<
IFNB </ B>,<JUMP 17,B>
IFB <B>,<JUMP/@ 16,.+1> >
IF/`N <RMS$DY+RMS$DJ>0 ,< IFNB <B>,<
0 CAIL 2,300000 0@
PUSHJ 17,0`B >>
>>
&u t`G4
PUSHu J 17,$$RMS##
.v@REQUIRE SYS:RMSIN I
SHORD 6.<p 0@;<
IFB <A0`>,<IF1,<PRINTX %A1 RGBLK ADDRESS OMI1 TTED ON MESSAGE M1@ACRO>>
XMOVEI 11`, A
IFIDN <MES2 SAGE><RENAME>,< 2
IFB 2@<C>,<IF1,<PRINTX2` %NEWFAB ADDRESS 3 OMITTED ON RENAME3 MACRO>>
XMOVEI3@ 2, C>
IFDIF <3`MESSAGE><RENAME>,4 <
IFNB <C>,<IF4 1,<PRINTX %MORE T4@HAN 2 ARGS DETECT4`ED IN MESSAGE MAC5 RO>>>
$%MESSAGE5
IFE <RMS$DY5@+RMS$DJ>,<
IFN5`B <B>,<JUMP 17,6 B>
IFB <B>,<J6 UMP 16,.+1> >
6@ IFN <RMS$DY+RMS$6`DJ>,< IFNB <B>,<7
CAIL 2,3000007
PUSHJ 7@17,B >>
>>
:}Y9 < <
IFB <A<@>,<IF1,<PRINTX %A<`RGBLK ADDRESS OMI= TTED ON NOMESSAGE= MACRO>>
XMOVEI=@ 1, A
IFIDN <N=`OMESSAGE><RENAME>> ,<
> IFB <C>,<IF1,<PR>@INTX %NEWFAB ADDR>`ESS OMITTED ON RE? NAME MACRO>>
XM? OVEI 2, C>
IFD?@IF <NOMESSAGE><RE?`NAME>,<
IFNB <@ C>,<IF1,<PRINTX %@ MORE THAN 2 ARGS @@DETECTED IN NOMES@`SAGE MACRO>>>
$A %NOMESSAGE
IA FE <RMS$DY+RMS$DJA@>,<
IFNB <B>,A`<JUMP 17,B>
IB FB <B>,<JUMP 16,B .+1> >
IFN <RB@MS$DY+RMS$DJ>,< IB`FNB <B>,<
CAIC L 2,300000
PUSHJ 17,B >>
;FMW s`?T
IFB <At >,<IF1,<PRINTX %At RGBLK ADDRESS OMIt@TTED ON NXTVOL MAt`CRO>>
XMOVEI 1,u A
IFIDN <NXTVu OL><RENAME>,< u@
IFB <u`C>,<IF1,<PRINTX %v NEWFAB ADDRESS OMv ITTED ON RENAME Mv@ACRO>>
XMOVEI 2v`, C>
IFDIF <NXw TVOL><RENAME>,<
w IFNB <C>,<IF1,<w@PRINTX %MORE THANw` 2 ARGS DETECTED x IN NXTVOL MACRO>>x >
$%NXTVOL
x@ IFE <RMS$DY+RMS$x`DJ>,<
IFNB <By >,<JUMP 17,B>
y IFB <B>,<JUMP 1y@6,.+1> >
IFN y`<RMS$DY+RMS$DJ>,<z IFNB <B>,<
Cz AIL 2,300000 z@
PUSHJ 17,B >>
?[@ 1V
IFB <A >,<IF1,<PRINTX %A@RGBLK ADDRESS OMI`TTED ON OPEN MACR O>>
XMOVEI 1, A
IFIDN <OPEN><@RENAME>,< `
IFB <C>,< IF1,<PRINTX %NEWF AB ADDRESS OMITTE@D ON RENAME MACRO`>>
XMOVEI 2, C >
IFDIF <OPEN>< RENAME>,<
IFNB @<C>,<IF1,<PRINTX` %MORE THAN 2 ARG S DETECTED IN OPE N MACRO>>>
$%OP@EN
IFE <RMS$`DY+RMS$DJ>,<
I FNB <B>,<JUMP 17 ,B>
IFB <B>,@<JUMP 16,.+1> > `
IFN <RMS$DY+RM S$DJ>,< IFNB <B> ,<
CAIL 2,3000@00
PUSH`J 17,B >>
>>
B,r 5`Cd
IFB <A6 >,<IF1,<PRINTX %A6 RGBLK ADDRESS OMI6@TTED ON PARSE MAC6`RO>>
XMOVEI 1, 7 A
IFIDN <PARSE7 ><RENAME>,< 7@
IFB <C>7`,<IF1,<PRINTX %NE8 WFAB ADDRESS OMIT8 TED ON RENAME MAC8@RO>>
XMOVEI 2, 8`C>
IFDIF <PARS9 E><RENAME>,<
IF9 NB <C>,<IF1,<PRI9@NTX %MORE THAN 2 9`ARGS DETECTED IN : PARSE MACRO>>>
: $%PARSE
IFE :@<RMS$DY+RMS$DJ>,<:`
IFNB <B>,<JU; MP 17,B>
IFB ; <B>,<JUMP 16,.+1;@> >
IFN <RMS$;`DY+RMS$DJ>,< IFNB< <B>,<
CAIL 2< ,300000
<@ PUSHJ 17,B >>
>> C.@ 5 3^
IFB <A5 >,<IF1,<PRINTX %A5@RGBLK ADDRESS OMI5`TTED ON PUT MACRO6 >>
XMOVEI 1, A6
IFIDN <PUT><RE6@NAME>,< 6`
IFB <C>,<IF7 1,<PRINTX %NEWFAB7 ADDRESS OMITTED 7@ON RENAME MACRO>>7`
XMOVEI 2, C>
IFDIF <PUT><REN8 AME>,<
IFNB <C8@>,<IF1,<PRINTX %M8`ORE THAN 2 ARGS D9 ETECTED IN PUT MA9 CRO>>>
$%PUT 9@
IFE <RMS$DY+RM9`S$DJ>,<
IFNB <: B>,<JUMP 17,B>
IFB <B>,<JUMP:@ 16,.+1> >
IF:`N <RMS$DY+RMS$DJ>; ,< IFNB <B>,<
; CAIL 2,300000 ;@
PUSHJ 17,;`B >>
>>
J, `A\
IFB <A >,<IF1,<PRINTX %A RGBLK ADDRESS OMI@TTED ON READ MACR`O>>
XMOVEI 1, A
IFIDN <READ>< RENAME>,< @
IFB <C>,<`IF1,<PRINTX %NEWF AB ADDRESS OMITTE D ON RENAME MACRO@>>
XMOVEI 2, C`>
IFDIF <READ>< RENAME>,<
IFNB <C>,<IF1,<PRINTX@ %MORE THAN 2 ARG`S DETECTED IN REA D MACRO>>>
$%RE AD
IFE <RMS$@DY+RMS$DJ>,<
I`FNB <B>,<JUMP 17 ,B>
IFB <B>, <JUMP 16,.+1> > @
IFN <RMS$DY+RM`S$DJ>,< IFNB <B> ,<
CAIL 2,3000 00
PUSH@J 17,B >>
>>
J-I0 :
IFB <A >,<IF1,<PRINTX %A@RGBLK ADDRESS OMI`TTED ON RELEASE M ACRO>>
XMOVEI 1 , A
IFIDN <REL@EASE><RENAME>,< `
IFB <C>,<IF1,<PRINTX %NEWFAB ADDRESS @OMITTED ON RENAME ` MACRO>>
XMOVEI 2, C>
IFDIF < RELEASE><RENAME>, @<
IFNB <C>,<IF `1,<PRINTX %MORE T HAN 2 ARGS DETECT ED IN RELEASE MAC @RO>>>
$%RELEASE `
IFE <RMS$DY +RMS$DJ>,<
IFN B <B>,<JUMP 17, @B>
IFB <B>,<J `UMP 16,.+1> >
IFN <RMS$DY+RMS$ DJ>,< IFNB <B>,< @
CAIL 2,300000 `
PUSHJ ! 17,B >>
>>
J-[{ a`FD
IFB <Ab >,<IF1,<PRINTX %Ab RGBLK ADDRESS OMIb@TTED ON REMOVE MAb`CRO>>
XMOVEI 1,c A
IFIDN <REMOc VE><RENAME>,< c@
IFB <c`C>,<IF1,<PRINTX %d NEWFAB ADDRESS OMd ITTED ON RENAME Md@ACRO>>
XMOVEI 2d`, C>
IFDIF <REe MOVE><RENAME>,<
e IFNB <C>,<IF1,<e@PRINTX %MORE THANe` 2 ARGS DETECTED f IN REMOVE MACRO>>f >
$%REMOVE
f@ IFE <RMS$DY+RMS$f`DJ>,<
IFNB <Bg >,<JUMP 17,B>
g IFB <B>,<JUMP 1g@6,.+1> >
IFN g`<RMS$DY+RMS$DJ>,<h IFNB <B>,<
Ch AIL 2,300000 h@
PUSHJ 17,B >>
J-h6 l`G
IFB <Am >,<IF1,<PRINTX %Am RGBLK ADDRESS OMIm@TTED ON RENAME MAm`CRO>>
XMOVEI 1,n A
IFIDN <RENAn ME><RENAME>,< n@
IFB <n`C>,<IF1,<PRINTX %o NEWFAB ADDRESS OMo ITTED ON RENAME Mo@ACRO>>
XMOVEI 2o`, C>
IFDIF <REp NAME><RENAME>,<
p IFNB <C>,<IF1,<p@PRINTX %MORE THANp` 2 ARGS DETECTED q IN RENAME MACRO>>q >
$%RENAME
q@ IFE <RMS$DY+RMS$q`DJ>,<
IFNB <Br >,<JUMP 17,B>
r IFB <B>,<JUMP 1r@6,.+1> >
IFN r`<RMS$DY+RMS$DJ>,<s IFNB <B>,<
Cs AIL 2,300000 s@
PUSHJ 17,B >>
J.M9 /J POPJ 17, J.z7 ~`@,
IFB <A >,<IF1,<PRINTX %A RGBLK ADDRESS OMI@TTED ON REWIND MA`CRO>>
XMOVEI 1, A
IFIDN <REWI ND><RENAME>,< @
IFB < `C>,<IF1,<PRINTX % NEWFAB ADDRESS OM ITTED ON RENAME M@ACRO>>
XMOVEI 2`, C>
IFDIF <RE WIND><RENAME>,<
IFNB <C>,<IF1,<@PRINTX %MORE THAN` 2 ARGS DETECTED IN REWIND MACRO>> >
$%REWIND
@ IFE <RMS$DY+RMS$`DJ>,<
IFNB <B >,<JUMP 17,B>
IFB <B>,<JUMP 1@6,.+1> >
IFN `<RMS$DY+RMS$DJ>,< IFNB <B>,<
C AIL 2,300000 @
PUSHJ 17,B >>
Jn0 t`G4
PUSHu J 17,$$RMS##
.v@REQUIRE SYS:RMSIN I
SHORD N, Q @`D<
IFB <AA >,<IF1,<PRINTX %AA RGBLK ADDRESS OMIA@TTED ON SEARCH MAA`CRO>>
XMOVEI 1,B A
IFIDN <SEARB CH><RENAME>,< B@
IFB <B`C>,<IF1,<PRINTX %C NEWFAB ADDRESS OMC ITTED ON RENAME MC@ACRO>>
XMOVEI 2C`, C>
IFDIF <SED ARCH><RENAME>,<
D IFNB <C>,<IF1,<D@PRINTX %MORE THAND` 2 ARGS DETECTED E IN SEARCH MACRO>>E >
$%SEARCH
E@ IFE <RMS$DY+RMS$E`DJ>,<
IFNB <BF >,<JUMP 17,B>
F IFB <B>,<JUMP 1F@6,.+1> >
IFN F`<RMS$DY+RMS$DJ>,<G IFNB <B>,<
CG AIL 2,300000 G@
PUSHJ 17,B >>
Or `B4
IFB <A >,<IF1,<PRINTX %A RGBLK ADDRESS OMI @TTED ON SPACE MAC `RO>>
XMOVEI 1, ! A
IFIDN <SPACE! ><RENAME>,< !@
IFB <C>!`,<IF1,<PRINTX %NE" WFAB ADDRESS OMIT" TED ON RENAME MAC"@RO>>
XMOVEI 2, "`C>
IFDIF <SPAC# E><RENAME>,<
IF# NB <C>,<IF1,<PRI#@NTX %MORE THAN 2 #`ARGS DETECTED IN $ SPACE MACRO>>>
$ $%SPACE
IFE $@<RMS$DY+RMS$DJ>,<$`
IFNB <B>,<JU% MP 17,B>
IFB % <B>,<JUMP 16,.+1%@> >
IFN <RMS$%`DY+RMS$DJ>,< IFNB& <B>,<
CAIL 2& ,300000
&@ PUSHJ 17,B >>
>> O%|R 0
$$ISOL((B)
IFE <T$$HSZ-^D18>,<
h IFE T$$PS,<
HRRM A,T$$OF+ (C
T$$SZ==0
>
IFE h <T$$PS-^D18>,<
HRLM A,T$$OF(+C
T$$SZ==0 H
>
>
IFhE <T$$SZ-^D36>,<
MOVEM A,T$$(OF+C
T$$SZ==0H ;INDIC INST GENh
>
IFN T$$SZ,<
DPB A,[<(T$$PS>B5 ! <T$$SZH>B11 ! <T$$OF+C> ]
>
$$OF+C> S[Q a 6B
IFB <Aa@>,<IF1,<PRINTX %Aa`RGBLK ADDRESS OMIb TTED ON TRUNCATE b MACRO>>
XMOVEI b@1, A
IFIDN <TRb`UNCATE><RENAME>,<c
IFc B <C>,<IF1,<PRINc@TX %NEWFAB ADDRESc`S OMITTED ON RENAd ME MACRO>>
XMOVd EI 2, C>
IFDIFd@ <TRUNCATE><RENAMd`E>,<
IFNB <C>,e <IF1,<PRINTX %MORe E THAN 2 ARGS DETe@ECTED IN TRUNCATEe` MACRO>>>
$%TRUf NCATE
IFE <Rf MS$DY+RMS$DJ>,<
f@ IFNB <B>,<JUMPf` 17,B>
IFB <g B>,<JUMP 16,.+1> g >
IFN <RMS$DYg@+RMS$DJ>,< IFNB <g`B>,<
CAIL 2,3h 00000
Ph USHJ 17,B >>
WH >>@ 46
IFB <A@ >,<IF1,<PRINTX %A@@RGBLK ADDRESS OMI@`TTED ON UPDATE MAA CRO>>
XMOVEI 1,A A
IFIDN <UPDAA@TE><RENAME>,< A`
IFB <B C>,<IF1,<PRINTX %B NEWFAB ADDRESS OMB@ITTED ON RENAME MB`ACRO>>
XMOVEI 2C , C>
IFDIF <UPC DATE><RENAME>,<
C@ IFNB <C>,<IF1,<C`PRINTX %MORE THAND 2 ARGS DETECTED D IN UPDATE MACRO>>D@>
$%UPDATE
D` IFE <RMS$DY+RMS$E DJ>,<
IFNB <BE >,<JUMP 17,B>
E@ IFB <B>,<JUMP 1E`6,.+1> >
IFN F <RMS$DY+RMS$DJ>,<F IFNB <B>,<
CF@AIL 2,300000 F`
PUSHJ 17,B >>
W%J7 h`>|
IFB <Ai >,<IF1,<PRINTX %Ai RGBLK ADDRESS OMIi@TTED ON UTLINT MAi`CRO>>
XMOVEI 1,j A
IFIDN <UTLIj NT><RENAME>,< j@
IFB <j`C>,<IF1,<PRINTX %k NEWFAB ADDRESS OMk ITTED ON RENAME Mk@ACRO>>
XMOVEI 2k`, C>
IFDIF <UTl LINT><RENAME>,<
l IFNB <C>,<IF1,<l@PRINTX %MORE THANl` 2 ARGS DETECTED m IN UTLINT MACRO>>m >
$%UTLINT
m@ IFE <RMS$DY+RMS$m`DJ>,<
IFNB <Bn >,<JUMP 17,B>
n IFB <B>,<JUMP 1n@6,.+1> >
IFN n`<RMS$DY+RMS$DJ>,<o IFNB <B>,<
Co AIL 2,300000 o@
PUSHJ 17,B >>
^ `A
IFB <A
>,<IF1,<PRINTX %A
RGBLK ADDRESS OMI
@TTED ON WAIT MACR
`O>>
XMOVEI 1, A
IFIDN <WAIT>< RENAME>,< @
IFB <C>,< `IF1,<PRINTX %NEWF
AB ADDRESS OMITTE
D ON RENAME MACRO
@>>
XMOVEI 2, C
`>
IFDIFE<WAIT><
IFNB,IF1,<PRINTX T MACRO>>>
$%WA IT
IFE <RMS$@DY+RMS$DJ>,<
I`FNB <B>,<JUMP 17 ,B>
IFB <B>, <JUMP 16,.+1> > @
IFN <RMS$DY+RM`S$DJ>,< IFNB <B> ,<
CAIL 2,3000 00
PUSH@J 17,B >>
>>
*`C
IFB <A+ >,<IF1,<PRINTX %A+ RGBLK ADDRESS OMI+@TTED ON WRITE MAC+`RO>>
XMOVEI 1, , A
IFIDN <WRITE, ><RENAME>,< ,@
IFB <C>,`,<IF1,<PRINTX %NE- WFAB ADDRESS OMIT- TED ON RENAME MAC-@RO>>
XMOVEI 2, -`C>
IFDIF <WRIT. E><RENAME>,<
IF. NB <C>,<IF1,<PRI.@NTX %MORE THAN 2 .`ARGS DETECTED IN / WRITE MACRO>>>
/ $%WRITE
IFE /@<RMS$DY+RMS$DJ>,</`
IFNB <B>,<JU0 MP 17,B>
IFB 0 <B>,<JUMP 16,.+10@> >
IFN <RMS$0`DY+RMS$DJ>,< IFNB1 <B>,<
CAIL 21 ,300000
1@ PUSHJ 17,B >>
>> : +"`
DEFINE +(A$B(ARG)<
IF+H1,<PRINTX %"A$B+h" RMS-11 ONLY, IG,NORED BY RMS-20>
>
YhRMS-20>,H"f
IRP A,,h< ..BADF(F,A) >
.BADF(F,A)">
IRP A,-H< ..BADF(R,A) >
.BADF(R,A)">
IRP A,.(< ..BADF(X,A) >
.BADF(X,A)(>P # =P 6 D(9P # D=P O,(9P O,=P >}{woP