Trailing-Edge
-
PDP-10 Archives
-
BB-KL11L-BM_1990
-
t20sub/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,S @ P 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$2Q $ L$Q L$)YQ H L$*2Q $H L$*yQ
L$*zQ L$*}Q $ L$+Q H L$+Q L$,}Q L$8(Q L$8)Q L$88Q L$9Q L$:Q H L$;Q H L$;rQ $ L$= Q L$H7Q $$ L$I;Q $H L$IVQ H 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$kPQ L$kQQ L$kxQ $H L$lqQ $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%[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%nQ H 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&+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&,vQ $H L&,yQ H 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&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,<P88RINTX %"F$ANB" RM8XS-11 ONLY, IGNORE D BY RMS-20>
L<` cX& $$NEWVAL ( BKS,A)NEWVAL (LL` c& $$NEWVAL ( BLS,A)NEWVAL (L>@ a& $$NEWVAL ( BSZ,A)NEWVAL (L N d&! $$NEWVAL ( CTX,A)NEWVAL (L%h 4#%
IF1,<P48RINTX %"F$DNA" RM4XS-11 ONLY, IGNORE D BY RMS-20>
L%l` 5#-
IF1,<P58RINTX %"F$DNS" RM5XS-11 ONLY, IGNORE D BY RMS-20>
L4` ]%i $$NEWVAL ( FAC,A)NEWVAL (L5h _%y $$NEWVAL ( FNA,A)NEWVAL (L5l` 3#
IF1,<P38RINTX %"F$FNS" RM3XS-11 ONLY, IGNORE D BY RMS-20>
L5| ^%q $$NEWVAL ( FOP,A)NEWVAL (L6>@ dX&% $$NEWVAL ( FSZ,A)NEWVAL (LTk@ \X%e $$NEWVAL ( JFN,A)NEWVAL (LUk bX& $$NEWVAL ( JNL,A)NEWVAL (Ld: :#U
IF1,<P:8RINTX %"F$LCH" RM:XS-11 ONLY, IGNORE D BY RMS-20>
Ln+@ V `X& $$NEWVALA( MRN,A)NEWVAL (Ln,` `& $$NEWVAL ( MRS,A)NEWVAL (Lt 7#9 $$NEWVAL ( NAM,A)NEWVAL (L~)` ^X%u $$NEWVAL ( ORG,A)NEWVAL (L X%} $$NEWVAL ( RAT,A)NEWVAL (Lk aX&
IF1,<P68RINTX %"F$RTV" RM6XS-11 ONLY, IGNORE D BY RMS-20>
L
@ ]X%m $$NEWVAL ( SHR,A)NEWVAL (L' 7X#= $$NEWVAL ( TYP,A)NEWVAL (LD@ b& $$NEWVAL ( XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ RX%a
IFNB <RxA>,< ;RUN-TIME SINIT
$$MAPADD S8(A,$$ADDR); ; WISXLL REFERENCE FAB SxVIA $$ADDR
SYNT SF$$RT,$$SET
>T8
IFB <A>,TX<SYN SF$$CT,$$SETTx>
$$CURR (F,BUID)
$$CURR (F,U8BLN)
$$CURR (FUX,STS)
$$CURR (UxF,STV)
$$CURR V(F,IFI)
$$CURRV8 (F,JFN)
$$CURVXR (F,FAC)
$$CUVxRR (F,SHR)
$$CWURR (F,FOP)
$$W8CURR (F,ORG)
$WX$CURR (F,FNA)
Wx$$CURR (F,RAT)
X $$CURR (F,MRS)
X8 $$CURR (F,MRN)
$$CURR (F,BSZ)Xx
$$CURR (F,RFMY)
$$CURR (F,XAY8B)
$$CURR (F,JYXNL)
$$CURR (F,YxBLS)
$$CURR (FZ,BKS)
$$CURR (Z8F,DEV)
$$CURR ZX(F,SDC)
$$CURRZx (F,CTX)
$$CUR[R (F,FSZ) ;![AWN][8
$$CURR (F,TYP[X) ;![AWN]
$$CU[xRR (F,NAM) ;![AWN\]
$$CURR (F,AL Q) ;![AWN]
ALMI 9X'
IFNDEF dx$$ADDR,<
<e$$SET(BID)>_^D18 e8! <$$SET(BLN)>
eX <$$SET(STS)>^D1ex8 ! <$$SET(STV)>
<$$SET(CTX)>
f8 <$$SET(IFI)>_^DfX18 ! <$$SET(JFN)>fx
<$$SET(FAC)>_g^D18 ! <$$SET(SHRg8)>
<$$SET(FOP)gX>_^D18 ! <$$SET(OgxRG)>_^D14 ! <$$SEhT(BSZ)>_^D8 ! <$$h8SET(BLS)>
<$$ShXET(FNA)>
<$$SEhxT(RAT)>_^D18 ! <$i$SET(MRS)>
<$$i8SET(MRN)>
<$$SiXET(FSZ)>_^D13 ! <ix$$SET(BKS)>_^D5 !j <$$SET(RFM)> ;![j8AWN]
<$$SET(JNjXL)>_^D18 ! <$$SETjx(XAB)>
<$$SET(kDEV)>_^D18 ! <$$Sk8ET(SDC)>
<$$SEkXT(TYP)>_^D18 ! <$kx$SET(NAM)> ;![AWNl]
<$$SET(ALQ)>l8 ;![AWN]
EXlXP 0,0
> ;ENlxD IFNB
IFDEF $$mADDR,<
$$SET(Bm8ID)
$$SET(BLN)mX
$$SET(STS)
mx $$SET(STV)
$$nSET(IFI)
$$SETn8(JFN)
$$SET(FAnXC)
$$SET(SHR)
$$SET(FOP)
o$$SET(ORG)
$$So8ET(FNA)
$$SET(oXRAT)
$$SET(MRSox)
$$SET(MRN)
p $$SET(BSZ)
$p8$SET(RFM)
$$SEpXT(XAB)
$$SET(JpxNL)
$$SET(BLS)q
$$SET(BKS)
q8 $$SET(DEV)
$$qXSET(SDC)
$$SETqx(CTX)
$$SET(FSrZ) ;![AWN]
$r8$SET(NAM) ;![AWrXN]
$$SET(TYP) rx ;![AWN]
$$SEsT(ALQ) ;![AWN]
PURGE $$ADsXDR
>
>
MN@ w8/; $$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@ #'UL%X<P UL%Z7P \.8 YX-M $$NEWVAL (ESA,A)NEWVAL \.<` Z-Q $$NEWVAL (ESS,A)NEWVAL \u| [-Y $$NEWVAL (NOP,A)NEWVAL \I@ ZX-U $$NEWVAL (RLF,A)NEWVAL \8 [X-] $$NEWVAL (RSA,A)NEWVAL \<` \-a $$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@ Px-I
IFNB <QA>,<
$$MAPADD Q8(A,$$ADDR); ; WIQXLL REFERENCE THE QxBLOCK VIA $$ADDR
SYN SN$$RT,$$SR8ET
>
IFBRX <A>,<SYN SN$$CTRx,$$SET>
$$CURSR (N,BID)
$$CUS8RR (N,BLN)
$$CSXURR (N,ESA)
$$SxCURR (N,ESS)
$T$CURR (N,ESL)
T8$$CURR (N,RLF)
TX $$CURR (N,NOP)
Tx $$CURR (N,RSA)
$$CURR (N,RSL)U8
$$CURR (N,RSSUX)
$$CURR (N,FNUxB)
$$CURR (N,WVCC)
$$CURR (N,V8CHA)
$$CURR (NVX,NDL)
$$CURR (VxN,DVL)
$$CURR W(N,NML)
$$CURRW8 (N,TPL)
$$CURWXR (N,VRL)
$$CUWxRR (N,NDA)
$$CXURR (N,DVA)
$$X8CURR (N,DRA)
$XX$CURR (N,NMA)
Xx$$CURR (N,TPA)
Y $$CURR (N,VRA)
URR (N,VRA)
]hI \X.M
IFNDEF \x$$ADDR,<
<$$SE]T(BID)>_^D18 ! <$]8$SET(BLN)>
<$$]XSET(ESA)>
<$$S]xET(ESL)>_^D18 ! <^$$SET(ESS)>
<$^8$SET(NOP)>_^D18 !^X <$$SET(RLF)>
^x<$$SET(RSA)>
<_$$SET(RSL)>_^D18 _8! <$$SET(RSS)>
_X <$$SET(FNB)>
_x<$$SET(WCC)>
<`$$SET(DVL)>_^D27 `8! <$$SET(NDL)>_^D`X18 ! <$$SET(CHA)>`x
<$$SET(VRL)>_a^D27 ! <$$SET(TPLa8)>_^D18 ! <$$SET(aXNML)>_^D9 ! <$$SEaxT(DRL)>
<$$SETb(NDA)>
<$$SET(b8DVA)>
<$$SET(DbXRA)>
<$$SET(NMbxA)>
<$$SET(TPAc)>
<$$SET(VRA)c8>
> ;IFNDEF
IFDEF $$ADDR,<
$$SET(BID)
d$$SET(BLN)
$$Sd8ET(ESA)
$$SET(dXESL)
$$SET(ESSdx)
$$SET(NOP)
e $$SET(RLF)
$e8$SET(RSA)
$$SEeXT(RSL)
$$SET(RexSS)
$$SET(FNB)f
$$SET(WCC)
f8 $$SET(DVL)
$$fXSET(NDL)
$$SETfx(CHA)
$$SET(VRgL)
$$SET(TPL)
$$SET(NML)
gX$$SET(DRL)
$$SgxET(NDA)
$$SET(hDVA)
$$SET(DRAh8)
$$SET(NMA)
hX $$SET(TPA)
$hx$SET(VRA)
PUiRGE $$ADDR ;SO i8NEXT C/R DECIS COiXRRECT
> ;IF DEF
> ;IF]hN@ P y/I A$$ZERO(A ,NA$LNG)ERO(Ad N R X( A$$NEWVAL (CTX,A)NEWVALVd-L` R X( A$$NEWVAL (ELS,A)NEWVALVd4@ R |'a A$$NEWVAL (FAB,A)NEWVAL d\)@ X( $$NEWVAL (KBF,A)NEWVAL d^)@ X'} $$NEWVAL (KRF,A)NEWVAL d^>@ ( $$NEWVAL (KSZ,A)NEWVAL df;@ ( $$NEWVAL (LSN,A)NEWVAL dl)@ ( $$NEWVAL (MBF,A)NEWVAL d X(
IF1,<P:xRINTX %"R$RHB" RM;S-11 ONLY, IGNORE D BY RMS-20>
d| }'i $$NEWVAL (ROP,A)NEWVAL d>@ ~X'u $$NEWVAL (RSZ,A)NEWVAL d,)@ }X'm $$NEWVAL (UBF,A)NEWVAL d.>@ 'y $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ t']
IFNB <t8A>,<
$$MAPADD tX(A,$$ADDR); ; WItxLL REFERENCE THE uBLOCK VIA $$ADDR
SYN SR$$RT,$$SuXET
>
IFBux <A>,<SYN SR$$CTv,$$SET>
$$CURv8R (R,BID)
$$CUvXRR (R,BLN)
$$CvxURR (R,STS)
$$wCURR (R,STV)
$w8$CURR (R,ISI)
wX$$CURR (R,FAB)
wx $$CURR (R,RAC)
x $$CURR (R,ROP)
$$CURR (R,UBF)xX
$$CURR (R,RBFxx)
$$CURR (R,RSyZ)
$$CURR (R,Uy8SZ)
$$CURR (R,yXRFA)
$$CURR (Ryx,KRF)
$$CURR (zR,KSZ)
$$CURR z8(R,KBF)
$$CURRzX (R,MBF)
$$CURzxR (R,LSN)
$$CU{RR (R,BKT)
$$C{8URR (R,PAD)
$${XCURR (R,CTX)
URR (R,CTX)
eI (}
IFNDEF 8$$ADDR,<
<$$SEXT(BID)>_^D18 ! <$x$SET(BLN)>
<$$SET(STS)>_^D18 ! 8<$$SET(STV)>
<X$$SET(CTX)>
<$x$SET(ISI)>_^D18 ! <$$SET(FAB)>
8<$$SET(RAC)>_^D27X ! <$$SET(MBF)>_^xD18 ! <$$SET(ROP)>
<$$SET(UBF)>8
<$$SET(RBF)>
<$$SET(RSZ)>_^xD18 ! <$$SET(USZ)>
<$$SET(RFA)>8
<$$SET(KRF)>_X^D27 ! <$$SET(KSZx)>_^D18 ! <$$SET( LSN)>
<$$SET(K 8BF)>
<$$SET(BK XT)>
<$$SET(PAD x)>_^D27
EXP 0,
0,0
> ;IFNDE
8F
IFDEF $$ADDR,
X<
$$SET(BID)
x $$SET(BLN)
$ $SET(STS)
$$SE 8T(STV)
$$SET(I XSI)
$$SET(FAB) x
$$SET(RAC)
$$SET(ROP)
$$
8SET(UBF)
$$SET
X(RBF)
$$SET(RS
xZ)
$$SET(USZ)
$$SET(RFA)
SET(KRF)
$$SZ)
$$SET(
$$SET(MBF)
$$SET(LSN)
8 $$SET(BKT)
$X$SET(PAD)
$$SExT(CTX)
PURGE $$ADDR ;SO NEXT 8C/R DECIS CORRECTX
> ;IFDEF
> ;IFDEF
eN@ wx/? $$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 f$(` 8! A$B==1B C A$B==1Bf$H` x! A$B==^D C A$B==^Df&8` 8! A$B==C $D A$B==Cg Hz Ix$Q IFDEF C$$JA,<C$$A> IFNDEF C$$A,<$$FA>F g LZ HX$K
IFNHxDEF C$$A,<IFN $$IFA,<C$$A==$$FAI8>>
STO$$C( A)
TO$$C(g8 Hz Ox% IFDEF C$$PA,<C$$A> IFNDEF C$$A,<$$NA>F g8 LZ NX${
IFNNxDEF C$$A,<IFN $$ONA,<C$$A==$$NAO8>>
STO$$C( A)
TO$$C(gH Hz Kx$a IFDEF C$$LA,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ JX$[
IFNJxDEF C$$A,<IFN $$KRA,<C$$A==$$RAK8>>
STO$$C( A)
TO$$C(gP Hz Qx% IFDEF C$$RA,<C$$A> IFNDEF C$$A,<$$TA>F gP LZ PX%
IFNPxDEF C$$A,<IFN $$QTA,<C$$A==$$TAQ8>>
STO$$C( A)
TO$$C(gRxA G$A
GX G8IFDEF C$$A,<
<HRREI 1,> ! CGx$$A
$STORE H(1,A,$$ADDR)
>
R)
gT$M8@ gT% @ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz Mx$q IFDEF C$$NA,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ LX$k
IFNLxDEF C$$A,<IFN $$MXA,<C$$A==$$XAM8>>
STO$$C( A)
TO$$C(h H nX.u $$NEWVAL (CLA,A)NEWVAL h4M o.y $$NEWVAL (FDT,A)NEWVAL h5K@ oX.} $$NEWVAL (FLN,A)NEWVAL h68` p/ $$NEWVAL (FSC,A)NEWVAL hm|@ q/ $$NEWVAL (MOR,A)NEWVAL ht^ pX/ $$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@ j.q
IFNB <j8A>,<
$$MAPADD jX(A,$$ADDR); ; WIjxLL REFERENCE THE kBLOCK VIA $$ADDR
SYN ST$$RT,$$SkXET
>
IFBkx <A>,<SYN ST$$CTl,$$SET>
$$CURl8R (T,BID)
$$CUlXRR (T,BLN)
$$ClxURR (T,CLA)
$$mCURR (T,FDT)
$m8$CURR (T,FLN)
mX$$CURR (T,FSC)
mx $$CURR (T,NEX)
n $$CURR (T,MOR)
gURR (T,MOR)
IFNDEF qx$$ADDR,<
<$$SErT(BID)>_^D18 ! <$r8$SET(BLN)>
<$$rXSET(FDT)>_^D18 ! rx<$$SET(CLA)>
<s$$SET(FLN)>_^D18 s8! <$$SET(FDT)>
sX <$$SET(MOR)>^D1sx8 ! <$$SET(NEX)>
> ;IFNDEF
t8IFDEF $$ADDR,<
tX $$SET(BID)
$$txSET(BLN)
$$SETu(FDT)
$$SET(CLu8A)
$$SET(FLN)
$$SET(FDT)
ux$$SET(MOR)
$$SvET(NEX)
PURGE v8$$ADDR ;SO NEXTvX C/R DECIS CORRECvxT
> ;IFDEF
> ;IFDEF E$$ZERO(A ,TY$LNG)WERO(Ap %8*+ $$NEWVAL ( BKZ,A)NEWVAL (p$@ (8*C $$NEWVAL ( DAN,A)NEWVAL (p$k &8*3 $$NEWVAL ( DFL,A)NEWVAL (p&L &x*7 $$NEWVAL ( DTP,A)NEWVAL (p,M "8* $$NEWVAL ( EDT,A)NEWVAL (p5I` '8*; $$NEWVAL ( FLG,A)NEWVAL (p>, B8$
IF1,<PBXRINTX %"X$GRP" RMBxS-11 ONLY, IGNORE D BY RMS-20>
pD =8#o
IF1,<P=XRINTX %"X$HAL" RM=xS-11 ONLY, IGNORE D BY RMS-20>
pL@ 'x*? $$NEWVAL ( IAN,A)NEWVAL (pLk %x*/ $$NEWVAL ( IFL,A)NEWVAL (p]k )x*O $$NEWVAL ( KNM,A)NEWVAL (pd@ (x*G $$NEWVAL ( LAN,A)NEWVAL (pnJ <8#g
IF1,<P<XRINTX %"X$MTH" RM<xS-11 ONLY, IGNORE D BY RMS-20>
pw!x* $$NEWVAL ( NXT,A)NEWVAL (p~{@ A8$
IF1,<PAXRINTX %"X$OWN" RMAxS-11 ONLY, IGNORE D BY RMS-20>
p|@ #x* $$NEWVAL ( PGR,A)NEWVAL (p|` *8*i
$$NE*XWARRVAL (PS0,A)
$$NEWARRVAL (P+S1,B)
$$NEWAR+8RVAL (PS2,C)
+X$$NEWARRVAL (PS3,+xD)
$$NEWARRVA,L (PS4,E)
$$N,8EWARRVAL (PS5,F),X
$$NEWARRVAL (,xPS6,G)
$$NEWA-RRVAL (PS7,H)
VAL (PS7,H)
p}` #8* $$NEWVAL ( POW,A)NEWVAL (p)` >8#w
IF1,<P>XRINTX %"X$PRG" RM>xS-11 ONLY, IGNORE D BY RMS-20>
p*@ ?8#
IF1,<P?XRINTX %"X$PRJ" RM?xS-11 ONLY, IGNORE D BY RMS-20>
p> "x* $$NEWVAL ( PSY,A)NEWVAL (p{ $8*# $$NEWVAL ( PWL,A)NEWVAL (pY@ )8*K $$NEWVAL ( REF,A)NEWVAL (p +@ E8$/
IF1,<PEXRINTX %"X$SBN" RMExS-11 ONLY, IGNORE D BY RMS-20>
p @ -X+
$$NE-xWARRVAL (SZ0,A)
$$NEWARRVAL (S.8Z1,B)
$$NEWAR.XRVAL (SZ2,C)
.x$$NEWARRVAL (SZ3,/D)
$$NEWARRVA/8L (SZ4,E)
$$N/XEWARRVAL (SZ5,F)/x
$$NEWARRVAL (0SZ6,G)
$$NEWA08RRVAL (SZ7,H)
VAL (SZ7,H)
p ` @8$
IF1,<P@XRINTX %"X$SYS" RM@xS-11 ONLY, IGNORE D BY RMS-20>
p5{ D8$'
IF1,<PDXRINTX %"X$VOL" RMDxS-11 ONLY, IGNORE D BY RMS-20>
p=I C8$
IF1,<PCXRINTX %"X$WLD" RMCxS-11 ONLY, IGNORE D BY RMS-20>
pD. F8$7
IF1,<PFXRINTX %"X$XBY" RMFxS-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@ *
IFNB <8B>,<
$$MAPADD X(B,$$ADDR)
SxYN SX$$RT,$$SET
>
IFB <B8>,<SYN SX$$CT,$$SXET>
Cx$$COD==XB$A
X$$BLN==XA$SXA 8
$$CUXRR (X,BLN)
$$CURR (X,BID)
$$CURR (X,RS18)
$$CURR (X,NXXT)
$x$CURR (X,CDT)
$$CURR (X,RDT)
8 $$CURR (X,EDT)
X
$$CURxR (X,PSY)
$$CURR (X,POW)
$$C8URR (X,PGR)
$$XCURR (X,PWL)
x
$$CURR (X,RS2)
$$CURR 8(X,AID)
$$CURRX (X,BKZ)
x
$$CURR (X,IFL)
$$CURR (X,D8FL)
$$CURR (X,XDTP)
$$CURR (Xx,FLG)
$$CURR (X,IAN)
$$CURR 8(X,DAN)
$$CURRX (X,LAN)
$$CURxR (X,REF)
$$CURR (X,KNM)
$$C8URR (X,RX0)
$$XCURR (X,RX1)
$x$CURR (X,RX2)
$$CURR (X,RX3)
8 $$CURR (X,RX4)
X $$CURR (X,RX5)
$$CURR (X,PS0)
$$CURR (X,PS18)
$$CURR (X,PSX2)
$$CURR (X,PxS3)
$$CURR (X, PS4)
$$CURR (X 8,PS5)
$$CURR ( XX,PS6)
$$CURR x(X,PS7)
$$CURR (X,SZ0)
$$CUR 8R (X,SZ1)
$$CU XRR (X,SZ2)
$$C xURR (X,SZ3)
$$ CURR (X,SZ4)
$ 8$CURR (X,SZ5)
X$$CURR (X,SZ6)
x $$CURR (X,SZ7)
$$CU 8RR (X,RS6)
$$C XURR (X,NOK)
$$ xCURR (X,NOA)
$ $CURR (X,RS7)
8$$CURR (X,RS8)
X $$CURR (X,RS9)
x
;!ONLY THE NXT FIEL!8D IS SETTABLE
S SETTABLE
qI 0x-
$$NEW1VAL(BLN,X$$BLN) 18
IFNDEF $$ADDR1X,<
<$$SET(BI1xD)>_^D18 ! <$$SET2(BLN)>
<$$SET(28COD)>_^D18 ! <$$S2XET(NXT)>
IFE <2xC$$COD-XB$DAT>,<
<$$SET(CDT)>
<$$SET(RDT)>
<$$SET(EDT)>
>
IFE <C$$C4OD-XB$PRO>,<
48<$$SET(PSY)>
4X<$$SET(POW)>
4x<$$SET(PGR)>
5<$$SET(PWL)>
>58
IFE <C$$COD-X5XB$ALL>,<
<$$S5xET(AID)>_^D9 ! <$6$SET(BKZ)>
EX68P 0,0,0
>
I6XFE <C$$COD-XB$KEY6x>,<
<$$SET(DT7P)>_^D18 ! <$$SET78(FLG)>
<$$SET7X(IAN)>_^D27 ! <$$7xSET(DAN)>_^D18 ! 8<$$SET(LAN)>_^D9 88! <$$SET(REF)>
8X <$$SET(IFL)>_^D8x18 ! <$$SET(DFL)>9
<$$SET(KNM)>98
EXP 0,0,0,0,9X0
<$$SET(PS0)9x>_^D18 ! <$$SET(S:Z0)>
<$$SET(P:8S1)>_^D18 ! <$$SE:XT(SZ1)>
<$$SE:xT(PS2)>_^D18 ! <$;$SET(SZ2)>
<$;8$SET(PS3)>_^D18 !;X <$$SET(SZ3)>
;x <$$SET(PS4)>^D1<8 ! <$$SET(SZ4)>
<$$SET(PS5)>_<X^D18 ! <$$SET(SZ5<x)>
<$$SET(PS6=)>_^D18 ! <$$SET(=8SZ6)>
<$$SET(=XPS7)>_^D18 ! <$$S=xET(SZ7)>
>
>IFE <C$$COD-XB$SU>8M>,<
<$$SET(N>XOK)>_^D9 ! <$$SET>x(NOA)>
EXP 0,?0,0
>
IFE?8 <C$$COD-XB$CFG>,?X<
EXP 0,0,0,0?x,0,0
>
>
@ IFDEF $$ADDR,<
@8
; STO@XRE COMMON HEADER @xFOR ALL XAB TYPESA
$$SET(BID)
A8 $$SET(RS1)
$$AXSET(COD)
$$SETAx(NXT)
; STORBE REST OF XAB DEPB8ENDING ON IT'S TYBXPE
IFE <C$$CODBx-XB$DAT>,<
$$SCET(BLN)
$$SET(C8CDT)
$$SET(RDTCX)
$$SET(EDT)
Cx >
IFE <C$$DCOD-XB$PRO>,<
D8$$SET(BLN)
$$SDXET(PSY)
$$SET(DxPOW)
$$SET(PGRE)
$$SET(PWL)
E8 >
IFE <C$$EXCOD-XB$ALL>,<
Ex$$SET(BLN)
$$SFET(RS2)
$$SET(F8AID)
$$SET(BKZFX)
>
IFE <FxC$$COD-XB$KEY>,<
$$SET(BLN)
G8$$SET(IFL)
$$SGXET(DFL)
$$SET(GxDTP)
$$SET(FLGH)
$$SET(IAN)
H8 $$SET(DAN)
$HX$SET(LAN)
$$SEHxT(REF)
$$SET(KINM)
$$SET(RX0)I8
$$SET(RX1)
IX $$SET(RX2)
$$IxSET(RX3)
$$SETJ(RX4)
$$SET(RXJ85)
$$SET(PS0JX)
$$SET(PS1)
Jx $$SET(PS2)
$K$SET(PS3)
$$SEK8T(PS4)
$$SET(PKXS5)
$$SET(PS6)Kx
$$SET(PS7)
L
$$SET(SZ0)
L8$$SET(SZ1)
$$SLXET(SZ2)
$$SET(LxSZ3)
$$SET(SZ4M)
$$SET(SZ5)
M8 $$SET(SZ6)
$MX$SET(SZ7)
>
Mx
IFE <C$$COD-XBN$SUM>,<
$$SET(N8BLN)
$$SET(RS6NX)
$$SET(NOK)
Nx $$SET(NOA)
$O$SET(RS7)
$$SEO8T(RS8)
$$SET(ROXS9)
>
IFE <OxC$$COD-XB$CFG>,<
$$SET(BLN)
P8>
PURGE $$ADDR
>
qN@ x8/E $$ZERO(AxX,%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
COPYRIGHTP(C)TDIORPORATION 1979, 81986.
ALL RIGHTXS RESERVED.
\ RESERVED.
\<z !
IFNB <8B>,<IFL A-B,<PRXINTX ?A HAS A VAxLUE WHICH IS TOO LOW>>
IFNB <C>8,<IFG A-C,<PRINXTX ?A HAS A VALUxE WHICH IS TOO HI GH>>
IS TOO HI y ,8"e
C=A+,XB
B==B+1
B==B+1 \Y 0x# PURGE C$$ B PURGE C$$-i !! END 4P 4*2P 4*yP 4+P 4+P 4,}P 4= P 4I;P 4\Y *x"Y
$$CODE(+.EXBAS,.EXCTR,A, B)
.EXCTR,A,4h1P 4kPP 4kxP 4l}P 56 x!
IF1,<
$$AB==C$D
8 F$$B==<XX$G>B5X ! <XX$F>B11 ! XxX$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 N;v 09
T$$PS==8F$$A_-^D30
TX$$SZ==<F$$A_-^D2x4> & 77
T$$OF==F$$A & 777777
$A& 777777 DEFINE B< A> DEFINE B<l +X" A$MAX==.+xABASE + .ACTR - 1SE + .ACTR - t*2P t+P t:P tLPP tLVP tMPP tMVP t\pP t\vP t\yP t]p ;8#
IFNB <;xB>,<C$$A==B>
>,<C$$A==B>
t]{ 2#
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 X` )8"M
$$CODE()X.SUBAS,.SUCTR,A, B)
.SUCTR,A, V X!A
FB$ALL=x=FB$GET+FB$PUT+FB$DEL+FB$UPD+FB$TR8N
$$ASSUMEX(FB$SEQ,0) ;FILEx ORG MUST BE GTR ZERO
$$ASSUME(R8B$SEQ,0,0) ;RECOXRD ACCESS MUST STxART AT ZERO
$$ASSUME(XB$KEY,0,0)8 ;KEY XAB MUST BXE FIRST
$$ASSUMxE(XB$STG,0,0) ;STRING DATA-TYPE S HOULD BE ZERO
$*2P $+P $;P $iP $kP $lqP %[yP %i<P ,\Y *"S
$$CODE(*8.ERBAS,.ERCTR,A, B)
.ERCTR,A,4[R &X"G
IF2&x,<
C$MAX==XX$MA'X
JS$MIN==100'80
JS$MAX==1000+'XXX$MAX
OPDEF RM'x$MIN [104B8+1000]( ;MINIMUM JSYS V(8ALUE
OPDEF RM$M(XAX [104B8+1000+XX(x$MAX]
>
MAX]
>
4\Q "1
C$8A==XX$MAX
X DEFINE $%A(A)<x
IFE <RMS$DJ+RMS$DY>,< 8 ;a506
IXFN TOP$10,<PUSHJ x17,RMS$10##+C$A>
IFN TOP 8$20,<104B8+1000+C X$A>
> x ;a506
IFN RMS$DY,<PUSHJ 8 17,@$$A##>
X IFN RMS$DJ,<P xUSHJ 17,%$A##>
>
DE 8FINE $A(.BLK1,.E XRRAD,.BLK2),<
I xFB <.BLK1>,<IF1,< PRINTX %ARGBLK AD 8DRESS OMITTED ON XA MACRO>>
XMOV xEI 1, .BLK1
IFI DN <A><RENAME>,< 8
IF XB <.BLK2>,<IF1,<P xRINTX %NEWFAB ADD!RESS OMITTED ON R!8ENAME MACRO>>
X!XMOVEI 2, .BLK2>
!x IFDIF <A><RENAM"E>,<
IFNB <.BLK"82>,<IF1,<PRINTX %"XMORE THAN 2 ARGS "xDETECTED IN A MA#CRO>>>
$%A
IFE <RMS$DY+RMS#X$DJ>,<
IFNB <.#xERRAD>,<JUMP 17,.$ERRAD>
IFB <.E$8RRAD>,<JUMP 16,.+$X1> >
IFN <RMS$x$DY+RMS$DJ>,< IFN%B <.ERRAD>,<
C%8AIL 2,300000 %X
PUSHJ 17,.E%xRRAD >>
& >
XX$MAX==XX $MAX+1
X==XX5T X!M
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 z/Y
SETZM z8A
MOVEI 2,AzX
MOVEI 1,1(2zx)
HRLI 1,A {
BLT 1,B-1(2 )
T 1,B-1(2 Ky 02
I PFE <RMS$DJ+RMS$DY p>,< ;a506
IFN TOP$10, 0<PUSHJ 17,RMS$10# P#+C$CLOSE>
p IFN TOP$20,<10 4B8+1000+C$CLOSE> 0
> P ;a506
IFN pRMS$DY,<PUSHJ 17, @$$CLOSE##>
0 IFN RMS$DJ,<PU PSHJ 17,%$CLOSE##>
LOSE##> {W jp6s
IkFE <RMS$DJ+RMS$DYk0>,< ;a506
kP IFN TOP$10,kp<PUSHJ 17,RMS$10#l#+C$CONNECT>
l0 IFN TOP$20,<lP104B8+1000+C$CONNlpECT>
> m ;a506
m0IFN RMS$DY,<PUSHJmP 17,@$$CONNECT##>mp
IFN RMS$nDJ,<PUSHJ 17,%$COn0NNECT##>
NECT##>
)0 v08+
I0FE <RMS$DJ+RMS$DYP>,< ;a506
p IFN TOP$10,<PUSHJ 17,RMS$10#0#+C$CREATE>
P IFN TOP$20,<1p04B8+1000+C$CREATE>
> 0 ;a506
IFPN RMS$DY,<PUSHJ 1p7,@$$CREATE##>
IFN RMS$DJ,0<PUSHJ 17,%$CREAT E##>
9 EAT$XZ
0FE<<RI$DJ+RMS$DY
p IFN TOP$10,<PUSHJ 17,RMS$10#0#+C$DEBUG>
P IFN TOP$20,<10p4B8+1000+C$DEBUG>
> 0 ;a506
IFN PRMS$DY,<PUSHJ 17,p@$$DEBUG##>
IFN RMS$DJ,<PU0SHJ 17,%$DEBUG##>
EBUG##>$[ I04e
IIPFE <RMS$DJ+RMS$DYIp>,< ;a506
J IFN TOP$10,J0<PUSHJ 17,RMS$10#JP#+C$DELETE>
Jp IFN TOP$20,<1K04B8+1000+C$DELETK0E>
> KP ;a506
L0 IFKpN RMS$DY,<PUSHJ 1L7,@$$DELETE##>
IFN RMS$DJ,LP<PUSHJ 17,%$DELET E##>
LET% q vP7Q
IvpFE <RMS$DJ+RMS$DYw>,< ;a506
w0 IFN TOP$10,wP<PUSHJ 17,RMS$10#wp#+C$DISCONNECT>
IFN TOP$2x00,<104B8+1000+C$DxPISCONNECT>
y xp > ;a506
IFN RMS$DY,y0<PUSHJ 17,@$$DISCyPONNECT##>
yp IFN RMS$DJ,<PUSHzJ 17,%$DISCONNECT ##>
NECT% x :<I
IEpFE <RMS$DJ+RMS$DYF>,< ;a506
F0 IFN TOP$10,FP<PUSHJ 17,RMS$10#Fp#+C$DISPLAY>
G IFN TOP$20,<G0104B8+1000+C$DISPGPLAY>
> Gp ;a506
HIFN RMS$DY,<PUSHJH0 17,@$$DISPLAY##>HP
IFN RMS$HpDJ,<PUSHJ 17,%$DIISPLAY##>
PLAY##>
-m JDk
IJ0FE <RMS$DJ+RMS$DYJP>,< ;a506
Jp IFN TOP$10,K<PUSHJ 17,RMS$10#K0#+C$ENTER>
KP IFN TOP$20,<10Kp4B8+1000+C$ENTER>L
> L0 ;a506
IFN LPRMS$DY,<PUSHJ 17,Lp@$$ENTER##>
M IFN RMS$DJ,<PUM0SHJ 17,%$ENTER##>
NTER##>.(9 Q=#
IQ0FE <RMS$DJ+RMS$DYQP>,< ;a506
Qp IFN TOP$10,R<PUSHJ 17,RMS$10#R0#+C$ERASE>
RP IFN TOP$20,<10Rp4B8+1000+C$ERASE>S
> S0 ;a506
IFN SPRMS$DY,<PUSHJ 17,Sp@$$ERASE##>
T IFN RMS$DJ,<PUT0SHJ 17,%$ERASE##>
RASE##>/
IU0FE <RMS$DJ+RMS$DYUP>,< ;a506
Up IFN TOP$10,V<PUSHJ 17,RMS$10#V0#+C$EXTEND>
VP IFN TOP$20,<1Vp04B8+1000+C$EXTENWD>
> W0 ;a506
X IFWPN RMS$DY,<PUSHJ 1Wp7,@$$EXTEND##>
IFN RMS$DJ,X0<PUSHJ 17,%$EXTEN D##>
TEN5R T05=
ITPFE <RMS$DJ+RMS$DYTp>,< ;a506
U IFN TOP$10,U0<PUSHJ 17,RMS$10#UP#+C$FIND>
V0 Up IFN TOP$20,<104VB8+1000+C$FIND>
> ;VPa506
IFN RMVpS$DY,<PUSHJ 17,@$W$FIND##>
W0IFN RMS$DJ,<PUSHJWP 17,%$FIND##>
FIND##>
5M9 #P:7
I#pFE <RMS$DJ+RMS$DY$>,< ;a506
$0 IFN TOP$10,$P<PUSHJ 17,RMS$10#$p#+C$FLUSH>
% IFN TOP$20,<10%04B8+1000+C$FLUSH>%P
> %p ;a506
IFN &RMS$DY,<PUSHJ 17,&0@$$FLUSH##>
&P IFN RMS$DJ,<PU&pSHJ 17,%$FLUSH##>
LUSH##>6)2 \={
I\0FE <RMS$DJ+RMS$DY\P>,< ;a506
\p IFN TOP$10,]<PUSHJ 17,RMS$10#]0#+C$FREE>
^ ]P IFN TOP$20,<104]pB8+1000+C$FREE>
> ;^0a506
IFN RM^PS$DY,<PUSHJ 17,@$^p$FREE##>
_IFN RMS$DJ,<PUSHJ_0 17,%$FREE##>
FREE##>
<] (02]
I(PFE <RMS$DJ+RMS$DY(p>,< ;a506
) IFN TOP$10,)0<PUSHJ 17,RMS$10#)P#+C$GET>
)p IFN TOP$20,<104B*8+1000+C$GET>
*0 > ;a5*P06
IFN RMS$*pDY,<PUSHJ 17,@$$G+ET##>
IFN+0 RMS$DJ,<PUSHJ 17+P,%$GET##>
$GET##>
l\y .P;
I.pFE <RMS$DJ+RMS$DY/>,< ;a506
/0 IFN TOP$10,/P<PUSHJ 17,RMS$10#/p#+C$MESSAGE>
0 IFN TOP$20,<00104B8+1000+C$MESS0PAGE>
> 0p ;a506
1IFN RMS$DY,<PUSHJ10 17,@$$MESSAGE##>1P
IFN RMS$1pDJ,<PUSHJ 17,%$ME2SSAGE##>
SAGE##>
u{2 :0;o
I:PFE <RMS$DJ+RMS$DY:p>,< ;a506
; IFN TOP$10,;0<PUSHJ 17,RMS$10#;P#+C$NOMESSAGE>
;p IFN TOP$20<,<104B8+1000+C$NO<0MESSAGE>
><P ;a506
<p IFN RMS$DY,<P=USHJ 17,@$$NOMESS=0AGE##>
IF=PN RMS$DJ,<PUSHJ 1=p7,%$NOMESSAGE##>
SAGE##> w
Ir0FE <RMS$DJ+RMS$DYrP>,< ;a506
rp IFN TOP$10,s<PUSHJ 17,RMS$10#s0#+C$NXTVOL>
sP IFN TOP$20,<1sp04B8+1000+C$NXTVOtL>
> t0 ;a506
u IFtPN RMS$DY,<PUSHJ 1tp7,@$$NXTVOL##>
IFN RMS$DJ,u0<PUSHJ 17,%$NXTVO L##>
TVO~ 7 1-
I 8FE <RMS$DJ+RMS$DYx>,< ;a506
X IFN TOP$10,X<PUSHJ 17,RMS$10#x#+C$OPEN>
0 IFN TOP$20,<1048B8+1000+C$OPEN>
> ;Pa506
IFN RMpS$DY,<PUSHJ 17,@$$OPEN##>
0IFN RMS$DJ,<PUSHJP 17,%$OPEN##>
OPEN##>
Y 4C;
I40FE <RMS$DJ+RMS$DY4P>,< ;a506
4p IFN TOP$10,5<PUSHJ 17,RMS$10#50#+C$PARSE>
5P IFN TOP$20,<105p4B8+1000+C$PARSE>6
> 60 ;a506
IFN 6PRMS$DY,<PUSHJ 17,6p@$$PARSE##>
7 IFN RMS$DJ,<PU70SHJ 17,%$PARSE##>
ARSE##>] 3035
I3PFE <RMS$DJ+RMS$DY3p>,< ;a506
4 IFN TOP$10,40<PUSHJ 17,RMS$10#4P#+C$PUT>
4p IFN TOP$20,<104B58+1000+C$PUT>
50 > ;a55P06
IFN RMS$5pDY,<PUSHJ 17,@$$P6UT##>
IFN60 RMS$DJ,<PUSHJ 176P,%$PUT##>
$PUT##>
X2 A3
I0FE <RMS$DJ+RMS$DYP>,< ;a506
p IFN TOP$10,<PUSHJ 17,RMS$10#0#+C$READ>
P IFN TOP$20,<104pB8+1000+C$READ>
> ;0a506
IFN RMPS$DY,<PUSHJ 17,@$p$READ##>
IFN RMS$DJ,<PUSHJ0 17,%$READ##>
READ##>
[ 9]
I0FE <RMS$DJ+RMS$DYP>,< ;a506
p IFN TOP$10,<PUSHJ 17,RMS$10#0#+C$RELEASE>
P IFN TOP$20,<p104B8+1000+C$RELEASE>
> 0 ;a506
PIFN RMS$DY,<PUSHJp 17,@$$RELEASE##>
IFN RMS$0DJ,<PUSHJ 17,%$REPLEASE##>
EASE##>
[7 `F
I`0FE <RMS$DJ+RMS$DY`P>,< ;a506
`p IFN TOP$10,a<PUSHJ 17,RMS$10#a0#+C$REMOVE>
aP IFN TOP$20,<1ap04B8+1000+C$REMOVbE>
> b0 ;a506
c IFbPN RMS$DY,<PUSHJ 1bp7,@$$REMOVE##>
IFN RMS$DJ,c0<PUSHJ 17,%$REMOV E##>
MOV[P kFs
Ik0FE <RMS$DJ+RMS$DYkP>,< ;a506
kp IFN TOP$10,l<PUSHJ 17,RMS$10#l0#+C$RENAME>
lP IFN TOP$20,<1lp04B8+1000+C$RENAMmE>
> m0 ;a506
n IFmPN RMS$DY,<PUSHJ 1mp7,@$$RENAME##>
IFN RMS$DJ,n0<PUSHJ 17,%$RENAM E##>
NAM]t }@
I}0FE <RMS$DJ+RMS$DY}P>,< ;a506
}p IFN TOP$10,~<PUSHJ 17,RMS$10#~0#+C$REWIND>
~P IFN TOP$20,<1~p04B8+1000+C$REWIND>
> 0 ;a506
IFPN RMS$DY,<PUSHJ 1p7,@$$REWIND##>
IFN RMS$DJ, 0<PUSHJ 17,%$REWIN D##>
WIN X9 ?D
I?0FE <RMS$DJ+RMS$DY?P>,< ;a506
?p IFN TOP$10,@<PUSHJ 17,RMS$10#@0#+C$SEARCH>
@P IFN TOP$20,<1@p04B8+1000+C$SEARCAH>
> A0 ;a506
B IFAPN RMS$DY,<PUSHJ 1Ap7,@$$SEARCH##>
IFN RMS$DJ,B0<PUSHJ 17,%$SEARC H##>
ARC 1 B
I 0FE <RMS$DJ+RMS$DY P>,< ;a506
p IFN TOP$10, <PUSHJ 17,RMS$10# 0#+C$SPACE>
P IFN TOP$20,<10 p4B8+1000+C$SPACE>
> 0 ;a506
IFN PRMS$DY,<PUSHJ 17, p@$$SPACE##>
! IFN RMS$DJ,<PU!0SHJ 17,%$SPACE##>
PACE##>&-7 _06
I_PFE <RMS$DJ+RMS$DY_p>,< ;a506
` IFN TOP$10,`0<PUSHJ 17,RMS$10#`P#+C$TRUNCATE>
`p IFN TOP$20,a<104B8+1000+C$TRUa0NCATE>
> aP ;a506
ap IFN RMS$DY,<PUSbHJ 17,@$$TRUNCATEb0##>
IFN RbPMS$DJ,<PUSHJ 17,%bp$TRUNCATE##>
CATE##>
. >04
I>PFE <RMS$DJ+RMS$DY>p>,< ;a506
? IFN TOP$10,?0<PUSHJ 17,RMS$10#?P#+C$UPDATE>
?p IFN TOP$20,<1@04B8+1000+C$UPDAT@0E>
> @P ;a506
A0 IF@pN RMS$DY,<PUSHJ 1A7,@$$UPDATE##>
IFN RMS$DJ,AP<PUSHJ 17,%$UPDAT E##>
DAT.K g>S
Ig0FE <RMS$DJ+RMS$DYgP>,< ;a506
gp IFN TOP$10,h<PUSHJ 17,RMS$10#h0#+C$UTLINT>
hP IFN TOP$20,<1hp04B8+1000+C$UTLINiT>
> i0 ;a506
j IFiPN RMS$DY,<PUSHJ 1ip7,@$$UTLINT##>
IFN RMS$DJ,j0<PUSHJ 17,%$UTLIN T##>
LIN<: @[
I0FE <RMS$DJ+RMS$DYP>,< ;a506
p IFN TOP$10, <PUSHJ 17,RMS$10# 0#+C$WAIT>
P IFN TOP$20,<104 pB8+1000+C$WAIT>
> ;
0a506
IFN RM
PS$DY,<PUSHJ 17,@$
p$WAIT##>
IFN RMS$DJ,<PUSHJ 0 17,%$WAIT##>
WAIT##>
>*: )Bc
I)0FE <RMS$DJ+RMS$DY)P>,< ;a506
)p IFN TOP$10,*<PUSHJ 17,RMS$10#*0#+C$WRITE>
*P IFN TOP$20,<10*p4B8+1000+C$WRITE>+
> +0 ;a506
IFN +PRMS$DY,<PUSHJ 17,+p@$$WRITE##>
, IFN RMS$DJ,<PU,0SHJ 17,%$WRITE##>
RITE##> e|r !2?
IFB <A!0>,<IF1,<PRINTX %A!PRGBLK ADDRESS OMI!pTTED ON CLOSE MAC"RO>>
XMOVEI 1, "0A
IFIDN <CLOSE"P><RENAME>,< "p
IFB <C>#,<IF1,<PRINTX %NE#0WFAB ADDRESS OMIT#PTED ON RENAME MAC#pRO>>
XMOVEI 2, $C>
IFDIF <CLOS$0E><RENAME>,<
IF$PNB <C>,<IF1,<PRI$pNTX %MORE THAN 2 %ARGS DETECTED IN %0CLOSE MACRO>>>
%P$%CLOSE
IFE %p<RMS$DY+RMS$DJ>,<&
IFNB <B>,<JU&0MP 17,B>
IFB &P<B>,<JUMP 16,.+1&p> >
IFN <RMS$'DY+RMS$DJ>,< IFNB'0 <B>,<
CAIL 2'P,300000
'p PUSHJ 17,B >>
>> }kR np7/
IFB <Ao>,<IF1,<PRINTX %Ao0RGBLK ADDRESS OMIoPTTED ON CONNECT MopACRO>>
XMOVEI 1p, A
IFIDN <CONp0NECT><RENAME>,< pP
IFB pp<C>,<IF1,<PRINTXq %NEWFAB ADDRESS q0OMITTED ON RENAMEqP MACRO>>
XMOVEIqp 2, C>
IFDIF <rCONNECT><RENAME>,r0<
IFNB <C>,<IFrP1,<PRINTX %MORE TrpHAN 2 ARGS DETECTsED IN CONNECT MACs0RO>>>
$%CONNECTsP
IFE <RMS$DYsp+RMS$DJ>,<
IFNtB <B>,<JUMP 17,t0B>
IFB <B>,<JtPUMP 16,.+1> >
tp IFN <RMS$DY+RMS$uDJ>,< IFNB <B>,<u0
CAIL 2,300000uP
PUSHJ up17,B >>
>>
X: p8e
IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPTTED ON CREATE MApCRO>>
XMOVEI 1, A
IFIDN <CREA0TE><RENAME>,< P
IFB <pC>,<IF1,<PRINTX %NEWFAB ADDRESS OM0ITTED ON RENAME MPACRO>>
XMOVEI 2p, C>
IFDIF <CR EATE><RENAME>,<
0 IFNB <C>,<IF1,< PPRINTX %MORE THAN p 2 ARGS DETECTED
IN CREATE MACRO>>
0>
$%CREATE
P IFE <RMS$DY+RMS$
pDJ>,<
IFNB <B >,<JUMP 17,B>
0 IFB <B>,<JUMP 1 P6,.+1> >
IFN p<RMS$DY+RMS$DJ>,<
IFNB <B>,<
C
0AIL 2,300000
P
PUSHJ 17,B >>
,-3 p9=
IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPTTED ON DEBUG MACpRO>>
XMOVEI 1, A
IFIDN <DEBUG0><RENAME>,< P
IFB <C>p,<IF1,<PRINTX %NEWFAB ADDRESS OMIT0TED ON RENAME MACPRO>>
XMOVEI 2, pC>
IFDIF <DEBUG><RENAME>,<
IF0NB <C>,<IF1,<PRIPNTX %MORE THAN 2 pARGS DETECTED IN DEBUG MACRO>>>
0$%DEBUG
IFE P<RMS$DY+RMS$DJ>,<p
IFNB <B>,<JUMP 17,B>
IFB 0<B>,<JUMP 16,.+1P> >
IFN <RMS$pDY+RMS$DJ>,< IFNB <B>,<
CAIL 20,300000
P PUSHJ 17,B >>
>> -I: M5
IFB <AM0>,<IF1,<PRINTX %AMPRGBLK ADDRESS OMIMpTTED ON DELETE MANCRO>>
XMOVEI 1,N0 A
IFIDN <DELENPTE><RENAME>,< Np
IFB <OC>,<IF1,<PRINTX %O0NEWFAB ADDRESS OMOPITTED ON RENAME MOpACRO>>
XMOVEI 2P, C>
IFDIF <DEP0LETE><RENAME>,<
PP IFNB <C>,<IF1,<PpPRINTX %MORE THANQ 2 ARGS DETECTED Q0IN DELETE MACRO>>QP>
$%DELETE
Qp IFE <RMS$DY+RMS$RDJ>,<
IFNB <BR0>,<JUMP 17,B>
RP IFB <B>,<JUMP 1Rp6,.+1> >
IFN S<RMS$DY+RMS$DJ>,<S0 IFNB <B>,<
CSPAIL 2,300000 Sp
PUSHJ 17,B >>
N8w zP8
IFB <Azp>,<IF1,<PRINTX %A{RGBLK ADDRESS OMI{0TTED ON DISCONNEC{PT MACRO>>
XMOVE{pI 1, A
IFIDN <|DISCONNECT><RENAM|0E>,<
IFB <C>,<IF1,<|pPRINTX %NEWFAB AD}DRESS OMITTED ON }0RENAME MACRO>>
}PXMOVEI 2, C>
I}pFDIF <DISCONNECT>~<RENAME>,<
IFNB~0 <C>,<IF1,<PRINT~PX %MORE THAN 2 AR~pGS DETECTED IN DISCONNECT MACRO>>>0
$%DISCONNECT P
IFE <RMS$DY+RpMS$DJ>,<
IFNB <B>,<JUMP 17,B> 0
IFB <B>,<JUM PP 16,.+1> >
I pFN <RMS$DY+RMS$DJ>,< IFNB <B>,<
0 CAIL 2,300000 P
PUSHJ 17p,B >>
>>
N< IP=
IFB <AIp>,<IF1,<PRINTX %AJRGBLK ADDRESS OMIJ0TTED ON DISPLAY MJPACRO>>
XMOVEI 1Jp, A
IFIDN <DISKPLAY><RENAME>,< K0
IFB KP<C>,<IF1,<PRINTXKp %NEWFAB ADDRESS LOMITTED ON RENAMEL0 MACRO>>
XMOVEILP 2, C>
IFDIF <LpDISPLAY><RENAME>,M<
IFNB <C>,<IFM01,<PRINTX %MORE TMPHAN 2 ARGS DETECTMpED IN DISPLAY MACNRO>>>
$%DISPLAYN0
IFE <RMS$DYNP+RMS$DJ>,<
IFNNpB <B>,<JUMP 17,OB>
IFB <B>,<JO0UMP 16,.+1> >
OP IFN <RMS$DY+RMS$OpDJ>,< IFNB <B>,<P
CAIL 2,300000P0
PUSHJ PP17,B >>
>>
vI9 MpE%
IFB <AN>,<IF1,<PRINTX %AN0RGBLK ADDRESS OMINPTTED ON ENTER MACNpRO>>
XMOVEI 1, OA
IFIDN <ENTERO0><RENAME>,< OP
IFB <C>Op,<IF1,<PRINTX %NEPWFAB ADDRESS OMITP0TED ON RENAME MACPPRO>>
XMOVEI 2, PpC>
IFDIF <ENTEQR><RENAME>,<
IFQ0NB <C>,<IF1,<PRIQPNTX %MORE THAN 2 QpARGS DETECTED IN RENTER MACRO>>>
R0$%ENTER
IFE RP<RMS$DY+RMS$DJ>,<Rp
IFNB <B>,<JUSMP 17,B>
IFB S0<B>,<JUMP 16,.+1SP> >
IFN <RMS$SpDY+RMS$DJ>,< IFNBT <B>,<
CAIL 2T0,300000
TP PUSHJ 17,B >>
>> r Tp=]
IFB <AU>,<IF1,<PRINTX %AU0RGBLK ADDRESS OMIUPTTED ON ERASE MACUpRO>>
XMOVEI 1, VA
IFIDN <ERASEV0><RENAME>,< VP
IFB <C>Vp,<IF1,<PRINTX %NEWWFAB ADDRESS OMITW0TED ON RENAME MACWPRO>>
XMOVEI 2, WpC>
IFDIF <ERASXE><RENAME>,<
IFX0NB <C>,<IF1,<PRIXPNTX %MORE THAN 2 XpARGS DETECTED IN YERASE MACRO>>>
Y0$%ERASE
IFE YP<RMS$DY+RMS$DJ>,<Yp
IFNB <B>,<JUZMP 17,B>
IFB Z0<B>,<JUMP 16,.+1ZP> >
IFN <RMS$ZpDY+RMS$DJ>,< IFNB[ <B>,<
CAIL 2[0,300000
[P PUSHJ 17,B >>
>> FI7 XpE}
IFB <AY>,<IF1,<PRINTX %AY0RGBLK ADDRESS OMIYPTTED ON EXTEND MAYpCRO>>
XMOVEI 1,Z A
IFIDN <EXTEZ0ND><RENAME>,< ZP
IFB <ZpC>,<IF1,<PRINTX %[NEWFAB ADDRESS OM[0ITTED ON RENAME M[PACRO>>
XMOVEI 2[p, C>
IFDIF <EX\TEND><RENAME>,<
\0 IFNB <C>,<IF1,<\PPRINTX %MORE THAN\p 2 ARGS DETECTED ]IN EXTEND MACRO>>]0>
$%EXTEND
]P IFE <RMS$DY+RMS$]pDJ>,<
IFNB <B^>,<JUMP 17,B>
^0 IFB <B>,<JUMP 1^P6,.+1> >
IFN ^p<RMS$DY+RMS$DJ>,<_ IFNB <B>,<
C_0AIL 2,300000 _P
PUSHJ 17,B >>
.Ht |80
$$ISOL(|XB)
IFE <T$$|xSZ-^D18>,<
}8} IFE T$$PS,<
HRRZ A,T$$OF+}XC
T$$SZ==0
>
IFE~ <T$$PS-^D18>,< ~8
HLRZ A,T$$OF~X+C
T$$SZ==0 ~x
>
>
IFE <T$$SZ-^D36>,< 8
MOVE A,T$$OXF+C
T$$SZ==0 x
>
IFN T$$SZ ,<
LDB A,[ 8<T$$PS>B5 ! <T$$S XZ>B11 ! <T$$OF+C >]
>
$$OF+C L[ {x/_ [F$$A+B] [F$$A+B] Mi X5w
IFB <AX0>,<IF1,<PRINTX %AXPRGBLK ADDRESS OMIXpTTED ON FIND MACRYO>>
XMOVEI 1, Y0A
IFIDN <FIND><YPRENAME>,< Yp
IFB <C>,<ZIF1,<PRINTX %NEWFZ0AB ADDRESS OMITTEZPD ON RENAME MACROZp>>
XMOVEI 2, C[>
IFDIF <FIND><[0RENAME>,<
IFNB [P<C>,<IF1,<PRINTX[p %MORE THAN 2 ARG\S DETECTED IN FIN\0D MACRO>>>
$%FI\PND
IFE <RMS$\pDY+RMS$DJ>,<
I]FNB <B>,<JUMP 17]0,B>
IFB <B>,]P<JUMP 16,.+1> > ]p
IFN <RMS$DY+RM^S$DJ>,< IFNB <B>^0,<
CAIL 2,3000^P00
PUSH^pJ 17,B >>
>>
f\t '0:q
IFB <A'P>,<IF1,<PRINTX %A'pRGBLK ADDRESS OMI(TTED ON FLUSH MAC(0RO>>
XMOVEI 1, (PA
IFIDN <FLUSH(p><RENAME>,< )
IFB <C>)0,<IF1,<PRINTX %NE)PWFAB ADDRESS OMIT)pTED ON RENAME MAC*RO>>
XMOVEI 2, *0C>
IFDIF <FLUS*PH><RENAME>,<
IF*pNB <C>,<IF1,<PRI+NTX %MORE THAN 2 +0ARGS DETECTED IN +PFLUSH MACRO>>>
+p$%FLUSH
IFE ,<RMS$DY+RMS$DJ>,<,0
IFNB <B>,<JU,PMP 17,B>
IFB ,p<B>,<JUMP 16,.+1-> >
IFN <RMS$-0DY+RMS$DJ>,< IFNB-P <B>,<
CAIL 2-p,300000
. PUSHJ 17,B >>
>> Y _p>5
IFB <A`>,<IF1,<PRINTX %A`0RGBLK ADDRESS OMI`PTTED ON FREE MACR`pO>>
XMOVEI 1, aA
IFIDN <FREE><a0RENAME>,< aP
IFB <C>,<apIF1,<PRINTX %NEWFbAB ADDRESS OMITTEb0D ON RENAME MACRObP>>
XMOVEI 2, Cbp>
IFDIF <FREE><cRENAME>,<
IFNB c0<C>,<IF1,<PRINTXcP %MORE THAN 2 ARGcpS DETECTED IN FREdE MACRO>>>
$%FRd0EE
IFE <RMS$dPDY+RMS$DJ>,<
IdpFNB <B>,<JUMP 17e,B>
IFB <B>,e0<JUMP 16,.+1> > eP
IFN <RMS$DY+RMepS$DJ>,< IFNB <B>f,<
CAIL 2,3000f000
PUSHfPJ 17,B >>
>>
.@ ,3
IFB <A,0>,<IF1,<PRINTX %A,PRGBLK ADDRESS OMI,pTTED ON GET MACRO->>
XMOVEI 1, A-0
IFIDN <GET><RE-PNAME>,< -p
IFB <C>,<IF.1,<PRINTX %NEWFAB.0 ADDRESS OMITTED .PON RENAME MACRO>>.p
XMOVEI 2, C>
IFDIF <GET><REN/0AME>,<
IFNB <C/P>,<IF1,<PRINTX %M/pORE THAN 2 ARGS D0ETECTED IN GET MA00CRO>>>
$%GET 0P
IFE <RMS$DY+RM0pS$DJ>,<
IFNB <1B>,<JUMP 17,B>
IFB <B>,<JUMP1P 16,.+1> >
IF1pN <RMS$DY+RMS$DJ>2,< IFNB <B>,<
20 CAIL 2,300000 2P
PUSHJ 17,2pB >>
>>
&u vPG=
PUSHw0J 17,$$RMS##
.wPREQUIRE SYS:RMSIN I
)%BAD REC 6.<p 2P;M
IFB <A2p>,<IF1,<PRINTX %A3RGBLK ADDRESS OMI30TTED ON MESSAGE M3PACRO>>
XMOVEI 13p, A
IFIDN <MES4SAGE><RENAME>,< 40
IFB 4P<C>,<IF1,<PRINTX4p %NEWFAB ADDRESS 5OMITTED ON RENAME50 MACRO>>
XMOVEI5P 2, C>
IFDIF <5pMESSAGE><RENAME>,6<
IFNB <C>,<IF601,<PRINTX %MORE T6PHAN 2 ARGS DETECT6pED IN MESSAGE MAC7RO>>>
$%MESSAGE70
IFE <RMS$DY7P+RMS$DJ>,<
IFN7pB <B>,<JUMP 17,8B>
IFB <B>,<J80UMP 16,.+1> >
8P IFN <RMS$DY+RMS$8pDJ>,< IFNB <B>,<9
CAIL 2,30000090
PUSHJ 9P17,B >>
>>
:}Y9 >0<+
IFB <A>P>,<IF1,<PRINTX %A>pRGBLK ADDRESS OMI?TTED ON NOMESSAGE?0 MACRO>>
XMOVEI?P 1, A
IFIDN <N?pOMESSAGE><RENAME>@,<
@0IFB <C>,<IF1,<PR@PINTX %NEWFAB ADDR@pESS OMITTED ON REANAME MACRO>>
XMA0OVEI 2, C>
IFDAPIF <NOMESSAGE><REApNAME>,<
IFNB <BC>,<IF1,<PRINTX %B0MORE THAN 2 ARGS BPDETECTED IN NOMESBpSAGE MACRO>>>
$C%NOMESSAGE
IC0FE <RMS$DY+RMS$DJCP>,<
IFNB <B>,Cp<JUMP 17,B>
IDFB <B>,<JUMP 16,D0.+1> >
IFN <RDPMS$DY+RMS$DJ>,< IDpFNB <B>,<
CAIEL 2,300000
PUSHJ 17,B >>
;FMW up?e
IFB <Av>,<IF1,<PRINTX %Av0RGBLK ADDRESS OMIvPTTED ON NXTVOL MAvpCRO>>
XMOVEI 1,w A
IFIDN <NXTVw0OL><RENAME>,< wP
IFB <wpC>,<IF1,<PRINTX %xNEWFAB ADDRESS OMx0ITTED ON RENAME MxPACRO>>
XMOVEI 2xp, C>
IFDIF <NXyTVOL><RENAME>,<
y0 IFNB <C>,<IF1,<yPPRINTX %MORE THANyp 2 ARGS DETECTED zIN NXTVOL MACRO>>z0>
$%NXTVOL
zP IFE <RMS$DY+RMS$zpDJ>,<
IFNB <B{>,<JUMP 17,B>
{0 IFB <B>,<JUMP 1{P6,.+1> >
IFN {p<RMS$DY+RMS$DJ>,<| IFNB <B>,<
C|0AIL 2,300000 |P
PUSHJ 17,B >>
?[@ 1g
IFB <A0>,<IF1,<PRINTX %APRGBLK ADDRESS OMIpTTED ON OPEN MACRO>>
XMOVEI 1, 0A
IFIDN <OPEN><PRENAME>,< p
IFB <C>,<IF1,<PRINTX %NEWF0AB ADDRESS OMITTEPD ON RENAME MACROp>>
XMOVEI 2, C>
IFDIF <OPEN><0RENAME>,<
IFNB P<C>,<IF1,<PRINTXp %MORE THAN 2 ARGS DETECTED IN OPE0N MACRO>>>
$%OPPEN
IFE <RMS$pDY+RMS$DJ>,<
IFNB <B>,<JUMP 170,B>
IFB <B>,P<JUMP 16,.+1> > p
IFN <RMS$DY+RM S$DJ>,< IFNB <B> 0,<
CAIL 2,3000 P00
PUSH pJ 17,B >>
>>
B,r 7pCu
IFB <A8>,<IF1,<PRINTX %A80RGBLK ADDRESS OMI8PTTED ON PARSE MAC8pRO>>
XMOVEI 1, 9A
IFIDN <PARSE90><RENAME>,< 9P
IFB <C>9p,<IF1,<PRINTX %NE:WFAB ADDRESS OMIT:0TED ON RENAME MAC:PRO>>
XMOVEI 2, :pC>
IFDIF <PARS;E><RENAME>,<
IF;0NB <C>,<IF1,<PRI;PNTX %MORE THAN 2 ;pARGS DETECTED IN <PARSE MACRO>>>
<0$%PARSE
IFE <P<RMS$DY+RMS$DJ>,<<p
IFNB <B>,<JU=MP 17,B>
IFB =0<B>,<JUMP 16,.+1=P> >
IFN <RMS$=pDY+RMS$DJ>,< IFNB> <B>,<
CAIL 2>0,300000
>P PUSHJ 17,B >>
>> C.@ 73o
IFB <A70>,<IF1,<PRINTX %A7PRGBLK ADDRESS OMI7pTTED ON PUT MACRO8>>
XMOVEI 1, A80
IFIDN <PUT><RE8PNAME>,< 8p
IFB <C>,<IF91,<PRINTX %NEWFAB90 ADDRESS OMITTED 9PON RENAME MACRO>>9p
XMOVEI 2, C>
IFDIF <PUT><REN:0AME>,<
IFNB <C:P>,<IF1,<PRINTX %M:pORE THAN 2 ARGS D;ETECTED IN PUT MA;0CRO>>>
$%PUT ;P
IFE <RMS$DY+RM;pS$DJ>,<
IFNB <<B>,<JUMP 17,B>
IFB <B>,<JUMP<P 16,.+1> >
IF<pN <RMS$DY+RMS$DJ>=,< IFNB <B>,<
=0 CAIL 2,300000 =P
PUSHJ 17,=pB >>
>>
J, pAm
IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPTTED ON READ MACRpO>>
XMOVEI 1, A
IFIDN <READ><0RENAME>,< P
IFB <C>,<pIF1,<PRINTX %NEWFAB ADDRESS OMITTE0D ON RENAME MACROP>>
XMOVEI 2, Cp>
IFDIF <READ><RENAME>,<
IFNB 0<C>,<IF1,<PRINTXP %MORE THAN 2 ARGpS DETECTED IN READ MACRO>>>
$%RE0AD
IFE <RMS$PDY+RMS$DJ>,<
IpFNB <B>,<JUMP 17 ,B>
IFB <B>, 0<JUMP 16,.+1> > P
IFN <RMS$DY+RM pS$DJ>,< IFNB <B> ,<
CAIL 2,3000 000
PUSH PJ 17,B >>
>>
J-I0 :
IFB <A 0>,<IF1,<PRINTX %A PRGBLK ADDRESS OMI pTTED ON RELEASE M ACRO>>
XMOVEI 1 0, A
IFIDN <REL PEASE><RENAME>,< p
IFB <C>,<IF1,<PRINTX 0 %NEWFAB ADDRESS POMITTED ON RENAME p MACRO>>
XMOVEI 2, C>
IFDIF < 0RELEASE><RENAME>, P<
IFNB <C>,<IF p1,<PRINTX %MORE T HAN 2 ARGS DETECT 0ED IN RELEASE MAC PRO>>>
$%RELEASE p
IFE <RMS$DY!+RMS$DJ>,<
IFN!0B <B>,<JUMP 17,!PB>
IFB <B>,<J!pUMP 16,.+1> >
" IFN <RMS$DY+RMS$"0DJ>,< IFNB <B>,<"P
CAIL 2,300000"p
PUSHJ #17,B >>
>>
J-[{ cpFU
IFB <Ad>,<IF1,<PRINTX %Ad0RGBLK ADDRESS OMIdPTTED ON REMOVE MAdpCRO>>
XMOVEI 1,e A
IFIDN <REMOe0VE><RENAME>,< eP
IFB <epC>,<IF1,<PRINTX %fNEWFAB ADDRESS OMf0ITTED ON RENAME MfPACRO>>
XMOVEI 2fp, C>
IFDIF <REgMOVE><RENAME>,<
g0 IFNB <C>,<IF1,<gPPRINTX %MORE THANgp 2 ARGS DETECTED hIN REMOVE MACRO>>h0>
$%REMOVE
hP IFE <RMS$DY+RMS$hpDJ>,<
IFNB <Bi>,<JUMP 17,B>
i0 IFB <B>,<JUMP 1iP6,.+1> >
IFN ip<RMS$DY+RMS$DJ>,<j IFNB <B>,<
Cj0AIL 2,300000 jP
PUSHJ 17,B >>
J-h6 npG-
IFB <Ao>,<IF1,<PRINTX %Ao0RGBLK ADDRESS OMIoPTTED ON RENAME MAopCRO>>
XMOVEI 1,p A
IFIDN <RENAp0ME><RENAME>,< pP
IFB <ppC>,<IF1,<PRINTX %qNEWFAB ADDRESS OMq0ITTED ON RENAME MqPACRO>>
XMOVEI 2qp, C>
IFDIF <RErNAME><RENAME>,<
r0 IFNB <C>,<IF1,<rPPRINTX %MORE THANrp 2 ARGS DETECTED sIN RENAME MACRO>>s0>
$%RENAME
sP IFE <RMS$DY+RMS$spDJ>,<
IFNB <Bt>,<JUMP 17,B>
t0 IFB <B>,<JUMP 1tP6,.+1> >
IFN tp<RMS$DY+RMS$DJ>,<u IFNB <B>,<
Cu0AIL 2,300000 uP
PUSHJ 17,B >>
J.M9 /[ POPJ 17, J.z7 p@=
IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPTTED ON REWIND MApCRO>>
XMOVEI 1, A
IFIDN <REWI0ND><RENAME>,< P
IFB <pC>,<IF1,<PRINTX %NEWFAB ADDRESS OM0ITTED ON RENAME MPACRO>>
XMOVEI 2p, C>
IFDIF <REWIND><RENAME>,<
0 IFNB <C>,<IF1,<PPRINTX %MORE THANp 2 ARGS DETECTED IN REWIND MACRO>>0>
$%REWIND
P IFE <RMS$DY+RMS$pDJ>,<
IFNB <B>,<JUMP 17,B>
0 IFB <B>,<JUMP 1P6,.+1> >
IFN p<RMS$DY+RMS$DJ>,< IFNB <B>,<
C0AIL 2,300000 P
PUSHJ 17,B >>
Jn0 vPG=
PUSHw0J 17,$$RMS##
.wPREQUIRE SYS:RMSIN I
)%BAD REC N, Q BpDM
IFB <AC>,<IF1,<PRINTX %AC0RGBLK ADDRESS OMICPTTED ON SEARCH MACpCRO>>
XMOVEI 1,D A
IFIDN <SEARD0CH><RENAME>,< DP
IFB <DpC>,<IF1,<PRINTX %ENEWFAB ADDRESS OME0ITTED ON RENAME MEPACRO>>
XMOVEI 2Ep, C>
IFDIF <SEFARCH><RENAME>,<
F0 IFNB <C>,<IF1,<FPPRINTX %MORE THANFp 2 ARGS DETECTED GIN SEARCH MACRO>>G0>
$%SEARCH
GP IFE <RMS$DY+RMS$GpDJ>,<
IFNB <BH>,<JUMP 17,B>
H0 IFB <B>,<JUMP 1HP6,.+1> >
IFN Hp<RMS$DY+RMS$DJ>,<I IFNB <B>,<
CI0AIL 2,300000 IP
PUSHJ 17,B >>
Or !pBE
IFB <A">,<IF1,<PRINTX %A"0RGBLK ADDRESS OMI"PTTED ON SPACE MAC"pRO>>
XMOVEI 1, #A
IFIDN <SPACE#0><RENAME>,< #P
IFB <C>#p,<IF1,<PRINTX %NE$WFAB ADDRESS OMIT$0TED ON RENAME MAC$PRO>>
XMOVEI 2, $pC>
IFDIF <SPAC%E><RENAME>,<
IF%0NB <C>,<IF1,<PRI%PNTX %MORE THAN 2 %pARGS DETECTED IN &SPACE MACRO>>>
&0$%SPACE
IFE &P<RMS$DY+RMS$DJ>,<&p
IFNB <B>,<JU'MP 17,B>
IFB '0<B>,<JUMP 16,.+1'P> >
IFN <RMS$'pDY+RMS$DJ>,< IFNB( <B>,<
CAIL 2(0,300000
(P PUSHJ 17,B >>
>> O%|R 0-
$$ISOL(8B)
IFE <T$$XSZ-^D18>,<
x IFE T$$PS,<
HRRM A,T$$OF+8C
T$$SZ==0
>
IFEx <T$$PS-^D18>,<
HRLM A,T$$OF8+C
T$$SZ==0 X
>
>
IFxE <T$$SZ-^D36>,<
MOVEM A,T$$8OF+C
T$$SZ==0X ;INDIC INST GENx
>
IFN T$$SZ,<
DPB A,[<8T$$PS>B5 ! <T$$SZX>B11 ! <T$$OF+C> ]
>
$$OF+C> S[Q c06S
IFB <AcP>,<IF1,<PRINTX %AcpRGBLK ADDRESS OMIdTTED ON TRUNCATE d0MACRO>>
XMOVEI dP1, A
IFIDN <TRdpUNCATE><RENAME>,<e
IFe0B <C>,<IF1,<PRINePTX %NEWFAB ADDRESepS OMITTED ON RENAfME MACRO>>
XMOVf0EI 2, C>
IFDIFfP <TRUNCATE><RENAMfpE>,<
IFNB <C>,g<IF1,<PRINTX %MORg0E THAN 2 ARGS DETgPECTED IN TRUNCATEgp MACRO>>>
$%TRUhNCATE
IFE <Rh0MS$DY+RMS$DJ>,<
hP IFNB <B>,<JUMPhp 17,B>
IFB <iB>,<JUMP 16,.+1> i0>
IFN <RMS$DYiP+RMS$DJ>,< IFNB <ipB>,<
CAIL 2,3j00000
Pj0USHJ 17,B >>
WH >>B4G
IFB <AB0>,<IF1,<PRINTX %ABPRGBLK ADDRESS OMIBpTTED ON UPDATE MACCRO>>
XMOVEI 1,C0 A
IFIDN <UPDACPTE><RENAME>,< Cp
IFB <DC>,<IF1,<PRINTX %D0NEWFAB ADDRESS OMDPITTED ON RENAME MDpACRO>>
XMOVEI 2E, C>
IFDIF <UPE0DATE><RENAME>,<
EP IFNB <C>,<IF1,<EpPRINTX %MORE THANF 2 ARGS DETECTED F0IN UPDATE MACRO>>FP>
$%UPDATE
Fp IFE <RMS$DY+RMS$GDJ>,<
IFNB <BG0>,<JUMP 17,B>
GP IFB <B>,<JUMP 1Gp6,.+1> >
IFN H<RMS$DY+RMS$DJ>,<H0 IFNB <B>,<
CHPAIL 2,300000 Hp
PUSHJ 17,B >>
W%J7 jp?
IFB <Ak>,<IF1,<PRINTX %Ak0RGBLK ADDRESS OMIkPTTED ON UTLINT MAkpCRO>>
XMOVEI 1,l A
IFIDN <UTLIl0NT><RENAME>,< lP
IFB <lpC>,<IF1,<PRINTX %mNEWFAB ADDRESS OMm0ITTED ON RENAME MmPACRO>>
XMOVEI 2mp, C>
IFDIF <UTnLINT><RENAME>,<
n0 IFNB <C>,<IF1,<nPPRINTX %MORE THANnp 2 ARGS DETECTED oIN UTLINT MACRO>>o0>
$%UTLINT
oP IFE <RMS$DY+RMS$opDJ>,<
IFNB <Bp>,<JUMP 17,B>
p0 IFB <B>,<JUMP 1pP6,.+1> >
IFN pp<RMS$DY+RMS$DJ>,<q IFNB <B>,<
Cq0AIL 2,300000 qP
PUSHJ 17,B >>
^ pA
IFB <A
>,<IF1,<PRINTX %A
0RGBLK ADDRESS OMI
PTTED ON WAIT MACR
pO>>
XMOVEI 1,
IFIDNE<WAIT><
IFB,<C>,< %NEWFAB ADDRESS OMITTE0D ON RENAME MACROP>>
XMOVEI 2, Cp>
IFDIF <WAIT><RENAME>,<
IFNB 0<C>,<IF1,<PRINTXP %MORE THAN 2 ARGpS DETECTED IN WAIT MACRO>>>
$%WA0IT
IFE <RMS$PDY+RMS$DJ>,<
IpFNB <B>,<JUMP 17,B>
IFB <B>,0<JUMP 16,.+1> > P
IFN <RMS$DY+RMpS$DJ>,< IFNB <B>,<
CAIL 2,3000000
PUSHPJ 17,B >>
>>
,pC
IFB <A->,<IF1,<PRINTX %A-0RGBLK ADDRESS OMI-PTTED ON WRITE MAC-pRO>>
XMOVEI 1, .A
IFIDN <WRITE.0><RENAME>,< .P
IFB <C>.p,<IF1,<PRINTX %NE/WFAB ADDRESS OMIT/0TED ON RENAME MAC/PRO>>
XMOVEI 2, /pC>
IFDIF <WRIT0E><RENAME>,<
IF00NB <C>,<IF1,<PRI0PNTX %MORE THAN 2 0pARGS DETECTED IN 1WRITE MACRO>>>
10$%WRITE
IFE 1P<RMS$DY+RMS$DJ>,<1p
IFNB <B>,<JU2MP 17,B>
IFB 20<B>,<JUMP 16,.+12P> >
IFN <RMS$2pDY+RMS$DJ>,< IFNB3 <B>,<
CAIL 230,300000
3P PUSHJ 17,B >>
>> : -"q
DEFINE -8A$B(ARG)<
IF-X1,<PRINTX %"A$B-x" RMS-11 ONLY, IG.NORED BY RMS-20>
>
YhRMS-20>.X"w
IRP A,.x< ..BADF(F,A) >
.BADF(F,A)">
IRP A,/X< ..BADF(R,A) >
.BADF(R,A)#>
IRP A,08< ..BADF(X,A) >
.BADF(X,A)(>P # =P 6 D(9P # D=P O,(9P O,=P >}{woP