Trailing-Edge
-
PDP-10 Archives
-
bb-kl11l-bm_tops20_v7_0_tsu03_2_of_3
-
t20sub/rmsinj.unv
There are 32 other files named rmsinj.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,<P8@RINTX %"F$ANB" RM8`S-11 ONLY, IGNORE D BY RMS-20>
L<` c`& $$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,<P4@RINTX %"F$DNA" RM4`S-11 ONLY, IGNORE D BY RMS-20>
L%l` 5 #.
IF1,<P5@RINTX %"F$DNS" RM5`S-11 ONLY, IGNORE D BY RMS-20>
L4` ] %j $$NEWVAL ( FAC,A)NEWVAL (L5h _ %z $$NEWVAL ( FNA,A)NEWVAL (L5l` 3 #
IF1,<P3@RINTX %"F$FNS" RM3`S-11 ONLY, IGNORE D BY RMS-20>
L5| ^ %r $$NEWVAL ( FOP,A)NEWVAL (L6>@ d`&& $$NEWVAL ( FSZ,A)NEWVAL (LTk@ \`%f $$NEWVAL ( JFN,A)NEWVAL (LUk b`& $$NEWVAL ( JNL,A)NEWVAL (Ld: : #V
IF1,<P:@RINTX %"F$LCH" RM:`S-11 ONLY, IGNORE D BY RMS-20>
Ln+@ ``& $$NEWVAL ( MRN,A)NEWVAL (Ln,` ` & $$NEWVAL ( MRS,A)NEWVAL (Lt 7 #: $$NEWVAL ( NAM,A)NEWVAL (L~)` ^`%v $$NEWVAL ( ORG,A)NEWVAL (L _`%~ $$NEWVAL ( RAT,A)NEWVAL (Lk a`& $$NEWVAL ( RFM,A)NEWVAL (LM@ 6 #6
IF1,<P6@RINTX %"F$RTV" RM6`S-11 ONLY, IGNORE D BY RMS-20>
L
@ ]`%n $$NEWVAL ( SHR,A)NEWVAL (L' 7`#> $$NEWVAL ( TYP,A)NEWVAL (LD@ b & $$NEWVAL ( XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ R`%b
IFNB <S A>,< ;RUN-TIME S INIT
$$MAPADD S@(A,$$ADDR); ; WIS`LL REFERENCE FAB T VIA $$ADDR
SYNT SF$$RT,$$SET
>T@
IFB <A>,T`<SYN SF$$CT,$$SETU >
$$CURR (F,BU ID)
$$CURR (F,U@BLN)
$$CURR (FU`,STS)
$$CURR (V F,STV)
$$CURR V (F,IFI)
$$CURRV@ (F,JFN)
$$CURV`R (F,FAC)
$$CUW RR (F,SHR)
$$CW URR (F,FOP)
$$W@CURR (F,ORG)
$W`$CURR (F,FNA)
X $$CURR (F,RAT)
X $$CURR (F,MRS)
X@ $$CURR (F,MRN)
$$CURR (F,BSZ)Y
$$CURR (F,RFMY )
$$CURR (F,XAY@B)
$$CURR (F,JY`NL)
$$CURR (F,Z BLS)
$$CURR (FZ ,BKS)
$$CURR (Z@F,DEV)
$$CURR Z`(F,SDC)
$$CURR[ (F,CTX)
$$CUR[ R (F,FSZ) ;![AWN][@
$$CURR (F,TYP[`) ;![AWN]
$$CU\ RR (F,NAM) ;![AWN\ ]
$$CURR (F,AL Q) ;![AWN]
ALMI 9`'
IFNDEF e $$ADDR,<
<e $$SET(BID)>_^D18 e@! <$$SET(BLN)>
e` <$$SET(STS)>^D1f 8 ! <$$SET(STV)>
<$$SET(CTX)>
f@ <$$SET(IFI)>_^Df`18 ! <$$SET(JFN)>g
<$$SET(FAC)>_g ^D18 ! <$$SET(SHRg@)>
<$$SET(FOP)g`>_^D18 ! <$$SET(Oh RG)>_^D14 ! <$$SEh T(BSZ)>_^D8 ! <$$h@SET(BLS)>
<$$Sh`ET(FNA)>
<$$SEi T(RAT)>_^D18 ! <$i $SET(MRS)>
<$$i@SET(MRN)>
<$$Si`ET(FSZ)>_^D13 ! <j $$SET(BKS)>_^D5 !j <$$SET(RFM)> ;![j@AWN]
<$$SET(JNj`L)>_^D18 ! <$$SETk (XAB)>
<$$SET(k DEV)>_^D18 ! <$$Sk@ET(SDC)>
<$$SEk`T(TYP)>_^D18 ! <$l $SET(NAM)> ;![AWNl ]
<$$SET(ALQ)>l@ ;![AWN]
EXl`P 0,0
> ;ENm D IFNB
IFDEF $$m ADDR,<
$$SET(Bm@ID)
$$SET(BLN)m`
$$SET(STS)
n $$SET(STV)
$$n SET(IFI)
$$SETn@(JFN)
$$SET(FAn`C)
$$SET(SHR)
$$SET(FOP)
o $$SET(ORG)
$$So@ET(FNA)
$$SET(o`RAT)
$$SET(MRSp )
$$SET(MRN)
p $$SET(BSZ)
$p@$SET(RFM)
$$SEp`T(XAB)
$$SET(Jq NL)
$$SET(BLS)q
$$SET(BKS)
q@ $$SET(DEV)
$$q`SET(SDC)
$$SETr (CTX)
$$SET(FSr Z) ;![AWN]
$r@$SET(NAM) ;![AWr`N]
$$SET(TYP) s ;![AWN]
$$SEs T(ALQ) ;![AWN]
PURGE $$ADs`DR
>
>
MN@ w@/< $$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 Y`-N $$NEWVAL (ESA,A)NEWVAL \.<` Z -R $$NEWVAL (ESS,A)NEWVAL \u| [ -Z $$NEWVAL (NOP,A)NEWVAL \I@ Z`-V $$NEWVAL (RLF,A)NEWVAL \8 [`-^ $$NEWVAL (RSA,A)NEWVAL \<` \ -b $$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@ Q -J
IFNB <Q A>,<
$$MAPADD Q@(A,$$ADDR); ; WIQ`LL REFERENCE THE R BLOCK VIA $$ADDR
SYN SN$$RT,$$SR@ET
>
IFBR` <A>,<SYN SN$$CTS ,$$SET>
$$CURS R (N,BID)
$$CUS@RR (N,BLN)
$$CS`URR (N,ESA)
$$T CURR (N,ESS)
$T $CURR (N,ESL)
T@$$CURR (N,RLF)
T` $$CURR (N,NOP)
U $$CURR (N,RSA)
$$CURR (N,RSL)U@
$$CURR (N,RSSU`)
$$CURR (N,FNV B)
$$CURR (N,WV CC)
$$CURR (N,V@CHA)
$$CURR (NV`,NDL)
$$CURR (W N,DVL)
$$CURR W (N,NML)
$$CURRW@ (N,TPL)
$$CURW`R (N,VRL)
$$CUX RR (N,NDA)
$$CX URR (N,DVA)
$$X@CURR (N,DRA)
$X`$CURR (N,NMA)
Y $$CURR (N,TPA)
Y $$CURR (N,VRA)
URR (N,VRA)
]hI \`.N
IFNDEF ] $$ADDR,<
<$$SE] T(BID)>_^D18 ! <$]@$SET(BLN)>
<$$]`SET(ESA)>
<$$S^ ET(ESL)>_^D18 ! <^ $$SET(ESS)>
<$^@$SET(NOP)>_^D18 !^` <$$SET(RLF)>
_ <$$SET(RSA)>
<_ $$SET(RSL)>_^D18 _@! <$$SET(RSS)>
_` <$$SET(FNB)>
` <$$SET(WCC)>
<` $$SET(DVL)>_^D27 `@! <$$SET(NDL)>_^D``18 ! <$$SET(CHA)>a
<$$SET(VRL)>_a ^D27 ! <$$SET(TPLa@)>_^D18 ! <$$SET(a`NML)>_^D9 ! <$$SEb T(DRL)>
<$$SETb (NDA)>
<$$SET(b@DVA)>
<$$SET(Db`RA)>
<$$SET(NMc A)>
<$$SET(TPAc )>
<$$SET(VRA)c@>
> ;IFNDEF
IFDEF $$ADDR,<
$$SET(BID)
d $$SET(BLN)
$$Sd@ET(ESA)
$$SET(d`ESL)
$$SET(ESSe )
$$SET(NOP)
e $$SET(RLF)
$e@$SET(RSA)
$$SEe`T(RSL)
$$SET(Rf SS)
$$SET(FNB)f
$$SET(WCC)
f@ $$SET(DVL)
$$f`SET(NDL)
$$SETg (CHA)
$$SET(VRg L)
$$SET(TPL)
$$SET(NML)
g`$$SET(DRL)
$$Sh ET(NDA)
$$SET(h DVA)
$$SET(DRAh@)
$$SET(NMA)
h` $$SET(TPA)
$i $SET(VRA)
PUi RGE $$ADDR ;SO i@NEXT C/R DECIS COi`RRECT
> ;IF DEF
> ;IF]hN@ y /J $$ZERO(A ,NA$LNG) ERO(Ad N `( $$NEWVAL (CTX,A)NEWVAL d-L` `( $$NEWVAL (ELS,A)NEWVAL d4@ | 'b $$NEWVAL (FAB,A)NEWVAL d\)@ `( $$NEWVAL (KBF,A)NEWVAL d^)@ `'~ $$NEWVAL (KRF,A)NEWVAL d^>@ ( $$NEWVAL (KSZ,A)NEWVAL df;@ ( $$NEWVAL (LSN,A)NEWVAL dl)@ (
$$NEWVAL (MBF,A)NEWVAL d `( $$NEWVAL (PAD,A)NEWVAL d` |`'f $$NEWVAL (RAC,A)NEWVAL d)@ ~ 'r $$NEWVAL (RBF,A)NEWVAL dh ( $$NEWVAL (RFA,A)NEWVAL d@ 2`#Z
IF1,<P; RINTX %"R$RHB" RM; S-11 ONLY, IGNORE D BY RMS-20>
d| } 'j $$NEWVAL (ROP,A)NEWVAL d>@ ~`'v $$NEWVAL (RSZ,A)NEWVAL d,)@ }`'n $$NEWVAL (UBF,A)NEWVAL d.>@ 'z $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ t '^
IFNB <t@A>,<
$$MAPADD t`(A,$$ADDR); ; WIu LL REFERENCE THE u BLOCK VIA $$ADDR
SYN SR$$RT,$$Su`ET
>
IFBv <A>,<SYN SR$$CTv ,$$SET>
$$CURv@R (R,BID)
$$CUv`RR (R,BLN)
$$Cw URR (R,STS)
$$w CURR (R,STV)
$w@$CURR (R,ISI)
w`$$CURR (R,FAB)
x $$CURR (R,RAC)
x@ $$CURR (R,ROP)
$$CURR (R,UBF)x`
$$CURR (R,RBFy )
$$CURR (R,RSy Z)
$$CURR (R,Uy@SZ)
$$CURR (R,y`RFA)
$$CURR (Rz ,KRF)
$$CURR (z R,KSZ)
$$CURR z@(R,KBF)
$$CURRz` (R,MBF)
$$CUR{ R (R,LSN)
$$CU{ RR (R,BKT)
$$C{@URR (R,PAD)
$${`CURR (R,CTX)
URR (R,CTX)
eI (~
IFNDEF @$$ADDR,<
<$$SE`T(BID)>_^D18 ! <$ $SET(BLN)>
<$$ SET(STS)>_^D18 ! @<$$SET(STV)>
<`$$SET(CTX)>
<$ $SET(ISI)>_^D18 ! <$$SET(FAB)>
@<$$SET(RAC)>_^D27` ! <$$SET(MBF)>_^ D18 ! <$$SET(ROP) >
<$$SET(UBF)>@
<$$SET(RBF)>
<$$SET(RSZ)>_^ D18 ! <$$SET(USZ) >
<$$SET(RFA)>@
<$$SET(KRF)>_`^D27 ! <$$SET(KSZ )>_^D18 ! <$$SET( LSN)>
<$$SET(K @BF)>
<$$SET(BK `T)>
<$$SET(PAD
)>_^D27
EXP 0,
0,0
> ;IFNDE
@F
IFDEF $$ADDR,
`<
$$SET(BID)
$$SET(BLN)
$ $SET(STS)
$$SE @T(STV)
$$SET(I `SI)
$$SET(FAB)
$$SET(RAC)
$$SET(ROP)
$$
@SET(UBF)
$$SET
`(RBF)
$$SET(RS
$$SET(USZ)
$$SET(RFA)
SET(KRF)
$$SZ)
$$SET( KBF)
$$SET(MBF )
$$SET(LSN)
@ $$SET(BKT)
$`$SET(PAD)
$$SE T(CTX)
PURGE $ $ADDR ;SO NEXT @C/R DECIS CORRECT`
> ;IFDEF
> ;IFDEF
eN@ x /@ $$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 e7IQ e7I P f$(` @! A$B==1B C A$B==1Bf$H` ! A$B==^D C A$B==^Df&8` @!
A$B==C $D A$B==Cg Hz J $R IFDEF C$$J A,<C$$A> IFNDEF C$$A,<$$FA>F g LZ H`$L
IFNI DEF C$$A,<IFN $$I FA,<C$$A==$$FAI@>>
STO$$C( A)
TO$$C(g8 Hz P % IFDEF C$$P A,<C$$A> IFNDEF C$$A,<$$NA>F g8 LZ N`$|
IFNO DEF C$$A,<IFN $$O NA,<C$$A==$$NAO@>>
STO$$C( A)
TO$$C(gH Hz L $b IFDEF C$$L A,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ J`$\
IFNK DEF C$$A,<IFN $$K RA,<C$$A==$$RAK@>>
STO$$C( A)
TO$$C(gP Hz R % IFDEF C$$R A,<C$$A> IFNDEF C$$A,<$$TA>F gP LZ P`%
IFNQ DEF C$$A,<IFN $$Q TA,<C$$A==$$TAQ@>>
STO$$C( A)
TO$$C(gRxA G $B
G` G@IFDEF C$$A,<
<HRREI 1,> ! CH $$A
$STORE H (1,A,$$ADDR)
>
R)
gT$M8@ gT% @ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz N $r IFDEF C$$N A,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ L`$l
IFNM DEF C$$A,<IFN $$M XA,<C$$A==$$XAM@>>
STO$$C( A)
TO$$C(h H n`.v $$NEWVAL (CLA,A)NEWVAL h4M o .z $$NEWVAL (FDT,A)NEWVAL h5K@ o`.~ $$NEWVAL (FLN,A)NEWVAL h68` p / $$NEWVAL (FSC,A)NEWVAL hm|@ q /
$$NEWVAL (MOR,A)NEWVAL ht^ p`/ $$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 .r
IFNB <j@A>,<
$$MAPADD j`(A,$$ADDR); ; WIk LL REFERENCE THE k BLOCK VIA $$ADDR
SYN ST$$RT,$$Sk`ET
>
IFBl <A>,<SYN ST$$CTl ,$$SET>
$$CURl@R (T,BID)
$$CUl`RR (T,BLN)
$$Cm URR (T,CLA)
$$m CURR (T,FDT)
$m@$CURR (T,FLN)
m`$$CURR (T,FSC)
n $$CURR (T,NEX)
n $$CURR (T,MOR)
gURR (T,MOR)
IFNDEF r $$ADDR,<
<$$SEr T(BID)>_^D18 ! <$r@$SET(BLN)>
<$$r`SET(FDT)>_^D18 ! s <$$SET(CLA)>
<s $$SET(FLN)>_^D18 s@! <$$SET(FDT)>
s` <$$SET(MOR)>^D1t 8 ! <$$SET(NEX)>
> ;IFNDEF
t@IFDEF $$ADDR,<
t` $$SET(BID)
$$u SET(BLN)
$$SETu (FDT)
$$SET(CLu@A)
$$SET(FLN)
$$SET(FDT)
v $$SET(MOR)
$$Sv ET(NEX)
PURGE v@$$ADDR ;SO NEXTv` C/R DECIS CORRECw T
> ;IFDEF
> ;IFDEF E$$ZERO(A ,TY$LNG)WERO(Ap %@*, $$NEWVAL ( BKZ,A)NEWVAL (p$@ (@*D $$NEWVAL ( DAN,A)NEWVAL (p$k &@*4 $$NEWVAL ( DFL,A)NEWVAL (p&L ' *8 $$NEWVAL ( DTP,A)NEWVAL (p,M "@* $$NEWVAL ( EDT,A)NEWVAL (p5I` '@*< $$NEWVAL ( FLG,A)NEWVAL (p>, B@$
IF1,<PB`RINTX %"X$GRP" RMC S-11 ONLY, IGNORE D BY RMS-20>
pD =@#p
IF1,<P=`RINTX %"X$HAL" RM> S-11 ONLY, IGNORE D BY RMS-20>
pL@ ( *@ $$NEWVAL ( IAN,A)NEWVAL (pLk & *0 $$NEWVAL ( IFL,A)NEWVAL (p]k * *P $$NEWVAL ( KNM,A)NEWVAL (pd@ ) *H $$NEWVAL ( LAN,A)NEWVAL (pnJ <@#h
IF1,<P<`RINTX %"X$MTH" RM= S-11 ONLY, IGNORE D BY RMS-20>
pw" * $$NEWVAL ( NXT,A)NEWVAL (p~{@ A@$
IF1,<PA`RINTX %"X$OWN" RMB S-11 ONLY, IGNORE D BY RMS-20>
p|@ $ * $$NEWVAL ( PGR,A)NEWVAL (p|` *@*j
$$NE*`WARRVAL (PS0,A)
$$NEWARRVAL (P+ S1,B)
$$NEWAR+@RVAL (PS2,C)
+`$$NEWARRVAL (PS3,, D)
$$NEWARRVA, L (PS4,E)
$$N,@EWARRVAL (PS5,F),`
$$NEWARRVAL (- PS6,G)
$$NEWA- RRVAL (PS7,H)
VAL (PS7,H)
p}` #@* $$NEWVAL ( POW,A)NEWVAL (p)` >@#x
IF1,<P>`RINTX %"X$PRG" RM? S-11 ONLY, IGNORE D BY RMS-20>
p*@ ?@$
IF1,<P?`RINTX %"X$PRJ" RM@ S-11 ONLY, IGNORE D BY RMS-20>
p> # * $$NEWVAL ( PSY,A)NEWVAL (p{ $@*$ $$NEWVAL ( PWL,A)NEWVAL (pY@ )@*L $$NEWVAL ( REF,A)NEWVAL (p +@ E@$0
IF1,<PE`RINTX %"X$SBN" RMF S-11 ONLY, IGNORE D BY RMS-20>
p @ -`+
$$NE. WARRVAL (SZ0,A)
$$NEWARRVAL (S.@Z1,B)
$$NEWAR.`RVAL (SZ2,C)
/ $$NEWARRVAL (SZ3,/ D)
$$NEWARRVA/@L (SZ4,E)
$$N/`EWARRVAL (SZ5,F)0
$$NEWARRVAL (0 SZ6,G)
$$NEWA0@RRVAL (SZ7,H)
VAL (SZ7,H)
p ` @@$
IF1,<P@`RINTX %"X$SYS" RMA S-11 ONLY, IGNORE D BY RMS-20>
p5{ D@$(
IF1,<PD`RINTX %"X$VOL" RME S-11 ONLY, IGNORE D BY RMS-20>
p=I C@$
IF1,<PC`RINTX %"X$WLD" RMD S-11 ONLY, IGNORE D BY RMS-20>
pD. F@$8
IF1,<PF`RINTX %"X$XBY" RMG S-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 <@B>,<
$$MAPADD `(B,$$ADDR)
S YN SX$$RT,$$SET
>
IFB <B@>,<SYN SX$$CT,$$S`ET>
C $$COD==XB$A
X$$BLN==XA$SXA @
$$CU`RR (X,BLN)
$$CURR (X,BID)
$$CURR (X,RS1@)
$$CURR (X,NX`T)
$ $CURR (X,CDT)
$$CURR (X,RDT)
@ $$CURR (X,EDT)
`
$$CUR R (X,PSY)
$$CU RR (X,POW)
$$C@URR (X,PGR)
$$`CURR (X,PWL)
$$CURR ( X,RS2)
$$CURR @(X,AID)
$$CURR` (X,BKZ)
$$CURR (X,IF L)
$$CURR (X,D@FL)
$$CURR (X,`DTP)
$$CURR (X ,FLG)
$$CURR ( X,IAN)
$$CURR @(X,DAN)
$$CURR` (X,LAN)
$$CUR R (X,REF)
$$CU RR (X,KNM)
$$C@URR (X,RX0)
$$`CURR (X,RX1)
$ $CURR (X,RX2)
$$CURR (X,RX3)
@ $$CURR (X,RX4)
` $$CURR (X,RX5)
$$CURR (X,PS0)
$$CURR (X,PS1@)
$$CURR (X,PS`2)
$$CURR (X,P S3)
$$CURR (X, PS4)
$$CURR (X @,PS5)
$$CURR ( `X,PS6)
$$CURR (X,PS7)
$$CURR (X,SZ0)
$$CUR @R (X,SZ1)
$$CU `RR (X,SZ2)
$$C URR (X,SZ3)
$$ CURR (X,SZ4)
$ @$CURR (X,SZ5)
`$$CURR (X,SZ6)
$$CURR (X,SZ7)
$$CU @RR (X,RS6)
$$C `URR (X,NOK)
$$ CURR (X,NOA)
$ $CURR (X,RS7)
@$$CURR (X,RS8)
` $$CURR (X,RS9)
!
;! ONLY THE NXT FIEL!@D IS SETTABLE
S SETTABLE
qI 1 -
$$NEW1 VAL(BLN,X$$BLN) 1@
IFNDEF $$ADDR1`,<
<$$SET(BI2 D)>_^D18 ! <$$SET2 (BLN)>
<$$SET(2@COD)>_^D18 ! <$$S2`ET(NXT)>
IFE <3 C$$COD-XB$DAT>,<
<$$SET(CDT)>
<$$SET(RDT)>
<$$SET(EDT)>
>
IFE <C$$C4 OD-XB$PRO>,<
4@<$$SET(PSY)>
4`<$$SET(POW)>
5 <$$SET(PGR)>
5 <$$SET(PWL)>
>5@
IFE <C$$COD-X5`B$ALL>,<
<$$S6 ET(AID)>_^D9 ! <$6 $SET(BKZ)>
EX6@P 0,0,0
>
I6`FE <C$$COD-XB$KEY7 >,<
<$$SET(DT7 P)>_^D18 ! <$$SET7@(FLG)>
<$$SET7`(IAN)>_^D27 ! <$$8 SET(DAN)>_^D18 ! 8 <$$SET(LAN)>_^D9 8@! <$$SET(REF)>
8` <$$SET(IFL)>_^D9 18 ! <$$SET(DFL)>9
<$$SET(KNM)>9@
EXP 0,0,0,0,9`0
<$$SET(PS0): >_^D18 ! <$$SET(S: Z0)>
<$$SET(P:@S1)>_^D18 ! <$$SE:`T(SZ1)>
<$$SE; T(PS2)>_^D18 ! <$; $SET(SZ2)>
<$;@$SET(PS3)>_^D18 !;` <$$SET(SZ3)>
< <$$SET(PS4)>^D1< 8 ! <$$SET(SZ4)>
<$$SET(PS5)>_<`^D18 ! <$$SET(SZ5= )>
<$$SET(PS6= )>_^D18 ! <$$SET(=@SZ6)>
<$$SET(=`PS7)>_^D18 ! <$$S> ET(SZ7)>
>
> IFE <C$$COD-XB$SU>@M>,<
<$$SET(N>`OK)>_^D9 ! <$$SET? (NOA)>
EXP 0,? 0,0
>
IFE?@ <C$$COD-XB$CFG>,?`<
EXP 0,0,0,0@ ,0,0
>
>
@ IFDEF $$ADDR,<
@@
; STO@`RE COMMON HEADER A FOR ALL XAB TYPESA
$$SET(BID)
A@ $$SET(RS1)
$$A`SET(COD)
$$SETB (NXT)
; STORB E REST OF XAB DEPB@ENDING ON IT'S TYB`PE
IFE <C$$CODC -XB$DAT>,<
$$SC ET(BLN)
$$SET(C@CDT)
$$SET(RDTC`)
$$SET(EDT)
D >
IFE <C$$D COD-XB$PRO>,<
D@$$SET(BLN)
$$SD`ET(PSY)
$$SET(E POW)
$$SET(PGRE )
$$SET(PWL)
E@ >
IFE <C$$E`COD-XB$ALL>,<
F $$SET(BLN)
$$SF ET(RS2)
$$SET(F@AID)
$$SET(BKZF`)
>
IFE <G C$$COD-XB$KEY>,<
$$SET(BLN)
G@$$SET(IFL)
$$SG`ET(DFL)
$$SET(H DTP)
$$SET(FLGH )
$$SET(IAN)
H@ $$SET(DAN)
$H`$SET(LAN)
$$SEI T(REF)
$$SET(KI NM)
$$SET(RX0)I@
$$SET(RX1)
I` $$SET(RX2)
$$J SET(RX3)
$$SETJ (RX4)
$$SET(RXJ@5)
$$SET(PS0J`)
$$SET(PS1)
K $$SET(PS2)
$K $SET(PS3)
$$SEK@T(PS4)
$$SET(PK`S5)
$$SET(PS6)L
$$SET(PS7)
L
$$SET(SZ0)
L@$$SET(SZ1)
$$SL`ET(SZ2)
$$SET(M SZ3)
$$SET(SZ4M )
$$SET(SZ5)
M@ $$SET(SZ6)
$M`$SET(SZ7)
>
N
IFE <C$$COD-XBN $SUM>,<
$$SET(N@BLN)
$$SET(RS6N`)
$$SET(NOK)
O $$SET(NOA)
$O $SET(RS7)
$$SEO@T(RS8)
$$SET(RO`S9)
>
IFE <P C$$COD-XB$CFG>,<
$$SET(BLN)
P@>
PURGE $$ADDR
>
qN@ x@/F $$ZERO(Ax`,%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
COPYRIGHT (C) DI GITAL EQUIPMENT C ORPORATION 1979, @1986.
ALL RIGHT`S RESERVED.
\ RESERVED.
\<z !
IFNB <@B>,<IFL A-B,<PR`INTX ?A HAS A VA LUE WHICH IS TOO LOW>>
IFNB <C>@,<IFG A-C,<PRIN`TX ?A HAS A VALU E WHICH IS TOO HI GH>>
IS TOO HI y ,@"f
C=A+,`B
B==B+1
B==B+1 \Y 1 # PURGE C$$ B PURGE C$$-i !" END 4P 4*2P 4*yP 4+P 4+P 4,}P 4= P 4I;P 4\Y + "Z
$$CODE(+ .EXBAS,.EXCTR,A, B)
.EXCTR,A,4h1P 4kPP 4kxP 4l}P 56 !
IF1,<
$$AB==C$D
@ F$$B==<XX$G>B5` ! <XX$F>B11 ! X X$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 0:
T$$PS==@F$$A_-^D30
T`$$SZ==<F$$A_-^D2 4> & 77
T$$OF= =F$$A & 777777
$A& 777777
DEFINE B< A> DEFINE B<l +`"` A$MAX==., ABASE + .ACTR - 1SE + .ACTR - t*2P t+P t:P tLPP tLVP tMPP tMVP t\pP t\vP t\yP t]p ;@#`
IFNB << B>,<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` )@"N
$$CODE()`.SUBAS,.SUCTR,A, B)
.SUCTR,A, V `!B
FB$ALL= =FB$GET+FB$PUT+FB $DEL+FB$UPD+FB$TR@N
$$ASSUME`(FB$SEQ,0) ;FILE ORG MUST BE GTR ZERO
$$ASSUME(R@B$SEQ,0,0) ;RECO`RD ACCESS MUST ST ART AT ZERO
$$A SSUME(XB$KEY,0,0)@ ;KEY XAB MUST B`E FIRST
$$ASSUM E(XB$STG,0,0) ;S TRING DATA-TYPE S HOULD BE ZERO
$*2P $+P $;P $iP $kP $lqP %[yP %i<P ,\Y * "T
$$CODE(*@.ERBAS,.ERCTR,A, B)
.ERCTR,A,4[R &`"H
IF2' ,<
C$MAX==XX$MA' X
JS$MIN==100'@0
JS$MAX==1000+'`XX$MAX
OPDEF RM( $MIN [104B8+1000]( ;MINIMUM JSYS V(@ALUE
OPDEF RM$M(`AX [104B8+1000+XX) $MAX]
>
MAX]
>
4\Q "2
C$@A==XX$MAX
` DEFINE $%A(A)<
IFE <RMS $DJ+RMS$DY>,< @ ;a506
I`FN TOP$10,<PUSHJ 17,RMS$10##+C$A>
IFN TOP @$20,<104B8+1000+C `$A>
> ;a506
IFN RMS$DY,<PUSHJ @ 17,@$$A##>
` IFN RMS$DJ,<P USHJ 17,%$A##>
>
DE @FINE $A(.BLK1,.E `RRAD,.BLK2),<
I FB <.BLK1>,<IF1,< PRINTX %ARGBLK AD @DRESS OMITTED ON `A MACRO>>
XMOV EI 1, .BLK1
IFI DN <A><RENAME>,< @
IF `B <.BLK2>,<IF1,<P! RINTX %NEWFAB ADD! RESS OMITTED ON R!@ENAME MACRO>>
X!`MOVEI 2, .BLK2>
" IFDIF <A><RENAM" E>,<
IFNB <.BLK"@2>,<IF1,<PRINTX %"`MORE THAN 2 ARGS # DETECTED IN A MA# CRO>>>
$%A
IFE <RMS$DY+RMS#`$DJ>,<
IFNB <.$ ERRAD>,<JUMP 17,.$ ERRAD>
IFB <.E$@RRAD>,<JUMP 16,.+$`1> >
IFN <RMS% $DY+RMS$DJ>,< IFN% B <.ERRAD>,<
C%@AIL 2,300000 %`
PUSHJ 17,.E& RRAD >>
& >
XX$MAX==XX $MAX+1
X==XX5T `!N
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 /Z
SETZM z@A
MOVEI 2,Az`
MOVEI 1,1(2{ )
HRLI 1,A {
BLT 1,B-1(2 )
T 1,B-1(2 Ky 82
I XFE <RMS$DJ+RMS$DY x>,< ;a506
IFN TOP$10, 8<PUSHJ 17,RMS$10# X#+C$CLOSE>
x IFN TOP$20,<10 4B8+1000+C$CLOSE> 8
> X ;a506
IFN xRMS$DY,<PUSHJ 17, @$$CLOSE##>
8 IFN RMS$DJ,<PU XSHJ 17,%$CLOSE##>
LOSE##> {W jx6s
IkFE <RMS$DJ+RMS$DYk8>,< ;a506
kX IFN TOP$10,kx<PUSHJ 17,RMS$10#l#+C$CONNECT>
l8 IFN TOP$20,<lX104B8+1000+C$CONNlxECT>
> m ;a506
m8IFN RMS$DY,<PUSHJmX 17,@$$CONNECT##>mx
IFN RMS$nDJ,<PUSHJ 17,%$COn8NNECT##>
NECT##>
)0 v88+
I8FE <RMS$DJ+RMS$DYX>,< ;a506
x IFN TOP$10,<PUSHJ 17,RMS$10#8#+C$CREATE>
X IFN TOP$20,<1x04B8+1000+C$CREATE>
> 8 ;a506
IFXN RMS$DY,<PUSHJ 1x7,@$$CREATE##>
IFN RMS$DJ,8<PUSHJ 17,%$CREAT E##>
9 EAT$XZ
8FE<<RI$DJ+RMS$DY
x IFN TOP$10,<PUSHJ 17,RMS$10#8#+C$DEBUG>
X IFN TOP$20,<10x4B8+1000+C$DEBUG>
> 8 ;a506
IFN XRMS$DY,<PUSHJ 17,x@$$DEBUG##>
IFN RMS$DJ,<PU8SHJ 17,%$DEBUG##>
EBUG##>$[ I84e
IIXFE <RMS$DJ+RMS$DYIx>,< ;a506
J IFN TOP$10,J8<PUSHJ 17,RMS$10#JX#+C$DELETE>
Jx IFN TOP$20,<1K04B8+1000+C$DELETK8E>
> KX ;a506
L8 IFKxN RMS$DY,<PUSHJ 1L7,@$$DELETE##>
IFN RMS$DJ,LX<PUSHJ 17,%$DELET E##>
LET% q vX7Q
IvxFE <RMS$DJ+RMS$DYw>,< ;a506
w8 IFN TOP$10,wX<PUSHJ 17,RMS$10#wx#+C$DISCONNECT>
IFN TOP$2x80,<104B8+1000+C$DxXISCONNECT>
y xx > ;a506
IFN RMS$DY,y8<PUSHJ 17,@$$DISCyXONNECT##>
yx IFN RMS$DJ,<PUSHzJ 17,%$DISCONNECT ##>
NECT% x :<I
IExFE <RMS$DJ+RMS$DYF>,< ;a506
F8 IFN TOP$10,FX<PUSHJ 17,RMS$10#Fx#+C$DISPLAY>
G IFN TOP$20,<G8104B8+1000+C$DISPGXLAY>
> Gx ;a506
HIFN RMS$DY,<PUSHJH8 17,@$$DISPLAY##>HX
IFN RMS$HxDJ,<PUSHJ 17,%$DIISPLAY##>
PLAY##>
-m JDk
IJ8FE <RMS$DJ+RMS$DYJX>,< ;a506
Jx IFN TOP$10,K<PUSHJ 17,RMS$10#K8#+C$ENTER>
KX IFN TOP$20,<10Kx4B8+1000+C$ENTER>L
> L8 ;a506
IFN LXRMS$DY,<PUSHJ 17,Lx@$$ENTER##>
M IFN RMS$DJ,<PUM8SHJ 17,%$ENTER##>
NTER##>.(9 Q=#
IQ8FE <RMS$DJ+RMS$DYQX>,< ;a506
Qx IFN TOP$10,R<PUSHJ 17,RMS$10#R8#+C$ERASE>
RX IFN TOP$20,<10Rx4B8+1000+C$ERASE>S
> S8 ;a506
IFN SXRMS$DY,<PUSHJ 17,Sx@$$ERASE##>
T IFN RMS$DJ,<PUT8SHJ 17,%$ERASE##>
RASE##>/
IU8FE <RMS$DJ+RMS$DYUX>,< ;a506
Ux IFN TOP$10,V<PUSHJ 17,RMS$10#V8#+C$EXTEND>
VX IFN TOP$20,<1Vx04B8+1000+C$EXTENWD>
> W8 ;a506
X IFWXN RMS$DY,<PUSHJ 1Wx7,@$$EXTEND##>
IFN RMS$DJ,X8<PUSHJ 17,%$EXTEN D##>
TEN5R T85=
ITXFE <RMS$DJ+RMS$DYTx>,< ;a506
U IFN TOP$10,U8<PUSHJ 17,RMS$10#UX#+C$FIND>
V8 Ux IFN TOP$20,<104VB8+1000+C$FIND>
> ;VXa506
IFN RMVxS$DY,<PUSHJ 17,@$W$FIND##>
W8IFN RMS$DJ,<PUSHJWX 17,%$FIND##>
FIND##>
5M9 #X:7
I#xFE <RMS$DJ+RMS$DY$>,< ;a506
$8 IFN TOP$10,$X<PUSHJ 17,RMS$10#$x#+C$FLUSH>
% IFN TOP$20,<10%84B8+1000+C$FLUSH>%X
> %x ;a506
IFN &RMS$DY,<PUSHJ 17,&8@$$FLUSH##>
&X IFN RMS$DJ,<PU&xSHJ 17,%$FLUSH##>
LUSH##>6)2 \={
I\8FE <RMS$DJ+RMS$DY\X>,< ;a506
\x IFN TOP$10,]<PUSHJ 17,RMS$10#]8#+C$FREE>
^ ]X IFN TOP$20,<104]xB8+1000+C$FREE>
> ;^8a506
IFN RM^XS$DY,<PUSHJ 17,@$^x$FREE##>
_IFN RMS$DJ,<PUSHJ_8 17,%$FREE##>
FREE##>
<] (82]
I(XFE <RMS$DJ+RMS$DY(x>,< ;a506
) IFN TOP$10,)8<PUSHJ 17,RMS$10#)X#+C$GET>
)x IFN TOP$20,<104B*8+1000+C$GET>
*8 > ;a5*X06
IFN RMS$*xDY,<PUSHJ 17,@$$G+ET##>
IFN+8 RMS$DJ,<PUSHJ 17+X,%$GET##>
$GET##>
l\y .X;
I.xFE <RMS$DJ+RMS$DY/>,< ;a506
/8 IFN TOP$10,/X<PUSHJ 17,RMS$10#/x#+C$MESSAGE>
0 IFN TOP$20,<08104B8+1000+C$MESS0XAGE>
> 0x ;a506
1IFN RMS$DY,<PUSHJ18 17,@$$MESSAGE##>1X
IFN RMS$1xDJ,<PUSHJ 17,%$ME2SSAGE##>
SAGE##>
u{2 :8;o
I:XFE <RMS$DJ+RMS$DY:x>,< ;a506
; IFN TOP$10,;8<PUSHJ 17,RMS$10#;X#+C$NOMESSAGE>
;x IFN TOP$20<,<104B8+1000+C$NO<8MESSAGE>
><X ;a506
<x IFN RMS$DY,<P=USHJ 17,@$$NOMESS=8AGE##>
IF=XN RMS$DJ,<PUSHJ 1=x7,%$NOMESSAGE##>
SAGE##> w
Ir8FE <RMS$DJ+RMS$DYrX>,< ;a506
rx IFN TOP$10,s<PUSHJ 17,RMS$10#s8#+C$NXTVOL>
sX IFN TOP$20,<1sx04B8+1000+C$NXTVOtL>
> t8 ;a506
u IFtXN RMS$DY,<PUSHJ 1tx7,@$$NXTVOL##>
IFN RMS$DJ,u8<PUSHJ 17,%$NXTVO L##>
TVO~ 7 1-
I @FE <RMS$DJ+RMS$DY >,< ;a506
` IFN TOP$10,`<PUSHJ 17,RMS$10# #+C$OPEN>
8 IFN TOP$20,<104@B8+1000+C$OPEN>
> ;Xa506
IFN RMxS$DY,<PUSHJ 17,@$$OPEN##>
8IFN RMS$DJ,<PUSHJX 17,%$OPEN##>
OPEN##>
Y 4C;
I48FE <RMS$DJ+RMS$DY4X>,< ;a506
4x IFN TOP$10,5<PUSHJ 17,RMS$10#58#+C$PARSE>
5X IFN TOP$20,<105x4B8+1000+C$PARSE>6
> 68 ;a506
IFN 6XRMS$DY,<PUSHJ 17,6x@$$PARSE##>
7 IFN RMS$DJ,<PU78SHJ 17,%$PARSE##>
ARSE##>] 3835
I3XFE <RMS$DJ+RMS$DY3x>,< ;a506
4 IFN TOP$10,48<PUSHJ 17,RMS$10#4X#+C$PUT>
4x IFN TOP$20,<104B58+1000+C$PUT>
58 > ;a55X06
IFN RMS$5xDY,<PUSHJ 17,@$$P6UT##>
IFN68 RMS$DJ,<PUSHJ 176X,%$PUT##>
$PUT##>
X2 A3
I8FE <RMS$DJ+RMS$DYX>,< ;a506
x IFN TOP$10,<PUSHJ 17,RMS$10#8#+C$READ>
X IFN TOP$20,<104xB8+1000+C$READ>
> ;8a506
IFN RMXS$DY,<PUSHJ 17,@$x$READ##>
IFN RMS$DJ,<PUSHJ8 17,%$READ##>
READ##>
[ 9]
I8FE <RMS$DJ+RMS$DYX>,< ;a506
x IFN TOP$10,<PUSHJ 17,RMS$10#8#+C$RELEASE>
X IFN TOP$20,<x104B8+1000+C$RELEASE>
> 8 ;a506
XIFN RMS$DY,<PUSHJx 17,@$$RELEASE##>
IFN RMS$8DJ,<PUSHJ 17,%$REXLEASE##>
EASE##>
[7 `F
I`8FE <RMS$DJ+RMS$DY`X>,< ;a506
`x IFN TOP$10,a<PUSHJ 17,RMS$10#a8#+C$REMOVE>
aX IFN TOP$20,<1ax04B8+1000+C$REMOVbE>
> b8 ;a506
c IFbXN RMS$DY,<PUSHJ 1bx7,@$$REMOVE##>
IFN RMS$DJ,c8<PUSHJ 17,%$REMOV E##>
MOV[P kFs
Ik8FE <RMS$DJ+RMS$DYkX>,< ;a506
kx IFN TOP$10,l<PUSHJ 17,RMS$10#l8#+C$RENAME>
lX IFN TOP$20,<1lx04B8+1000+C$RENAMmE>
> m8 ;a506
n IFmXN RMS$DY,<PUSHJ 1mx7,@$$RENAME##>
IFN RMS$DJ,n8<PUSHJ 17,%$RENAM E##>
NAM]t }@
I}8FE <RMS$DJ+RMS$DY}X>,< ;a506
}x IFN TOP$10,~<PUSHJ 17,RMS$10#~8#+C$REWIND>
~X IFN TOP$20,<1~x04B8+1000+C$REWIND>
> 8 ;a506
IFXN RMS$DY,<PUSHJ 1x7,@$$REWIND##>
IFN RMS$DJ, 8<PUSHJ 17,%$REWIN D##>
WIN X9 ?D
I?8FE <RMS$DJ+RMS$DY?X>,< ;a506
?x IFN TOP$10,@<PUSHJ 17,RMS$10#@8#+C$SEARCH>
@X IFN TOP$20,<1@x04B8+1000+C$SEARCAH>
> A8 ;a506
B IFAXN RMS$DY,<PUSHJ 1Ax7,@$$SEARCH##>
IFN RMS$DJ,B8<PUSHJ 17,%$SEARC H##>
ARC 1 B
I 8FE <RMS$DJ+RMS$DY X>,< ;a506
x IFN TOP$10, <PUSHJ 17,RMS$10# 8#+C$SPACE>
X IFN TOP$20,<10 x4B8+1000+C$SPACE>
> 8 ;a506
IFN XRMS$DY,<PUSHJ 17, x@$$SPACE##>
! IFN RMS$DJ,<PU!8SHJ 17,%$SPACE##>
PACE##>&-7 _86
I_XFE <RMS$DJ+RMS$DY_x>,< ;a506
` IFN TOP$10,`8<PUSHJ 17,RMS$10#`X#+C$TRUNCATE>
`x IFN TOP$20,a<104B8+1000+C$TRUa8NCATE>
> aX ;a506
ax IFN RMS$DY,<PUSbHJ 17,@$$TRUNCATEb8##>
IFN RbXMS$DJ,<PUSHJ 17,%bx$TRUNCATE##>
CATE##>
. >84
I>XFE <RMS$DJ+RMS$DY>x>,< ;a506
? IFN TOP$10,?8<PUSHJ 17,RMS$10#?X#+C$UPDATE>
?x IFN TOP$20,<1@04B8+1000+C$UPDAT@8E>
> @X ;a506
A8 IF@xN RMS$DY,<PUSHJ 1A7,@$$UPDATE##>
IFN RMS$DJ,AX<PUSHJ 17,%$UPDAT E##>
DAT.K g>S
Ig8FE <RMS$DJ+RMS$DYgX>,< ;a506
gx IFN TOP$10,h<PUSHJ 17,RMS$10#h8#+C$UTLINT>
hX IFN TOP$20,<1hx04B8+1000+C$UTLINiT>
> i8 ;a506
j IFiXN RMS$DY,<PUSHJ 1ix7,@$$UTLINT##>
IFN RMS$DJ,j8<PUSHJ 17,%$UTLIN T##>
LIN<: @[
I8FE <RMS$DJ+RMS$DYX>,< ;a506
x IFN TOP$10, <PUSHJ 17,RMS$10# 8#+C$WAIT>
X IFN TOP$20,<104 xB8+1000+C$WAIT>
> ;
8a506
IFN RM
XS$DY,<PUSHJ 17,@$
x$WAIT##>
IFN RMS$DJ,<PUSHJ 8 17,%$WAIT##>
WAIT##>
>*: )Bc
I)8FE <RMS$DJ+RMS$DY)X>,< ;a506
)x IFN TOP$10,*<PUSHJ 17,RMS$10#*8#+C$WRITE>
*X IFN TOP$20,<10*x4B8+1000+C$WRITE>+
> +8 ;a506
IFN +XRMS$DY,<PUSHJ 17,+x@$$WRITE##>
, IFN RMS$DJ,<PU,8SHJ 17,%$WRITE##>
RITE##> e|r !2?
IFB <A!8>,<IF1,<PRINTX %A!XRGBLK ADDRESS OMI!xTTED ON CLOSE MAC"RO>>
XMOVEI 1, "8A
IFIDN <CLOSE"X><RENAME>,< "x
IFB <C>#,<IF1,<PRINTX %NE#8WFAB ADDRESS OMIT#XTED ON RENAME MAC#xRO>>
XMOVEI 2, $C>
IFDIF <CLOS$8E><RENAME>,<
IF$XNB <C>,<IF1,<PRI$xNTX %MORE THAN 2 %ARGS DETECTED IN %8CLOSE MACRO>>>
%X$%CLOSE
IFE %x<RMS$DY+RMS$DJ>,<&
IFNB <B>,<JU&8MP 17,B>
IFB &X<B>,<JUMP 16,.+1&x> >
IFN <RMS$'DY+RMS$DJ>,< IFNB'8 <B>,<
CAIL 2'X,300000
'x PUSHJ 17,B >>
>> }kR nx7/
IFB <Ao>,<IF1,<PRINTX %Ao8RGBLK ADDRESS OMIoXTTED ON CONNECT MoxACRO>>
XMOVEI 1p, A
IFIDN <CONp8NECT><RENAME>,< pX
IFB px<C>,<IF1,<PRINTXq %NEWFAB ADDRESS q8OMITTED ON RENAMEqX MACRO>>
XMOVEIqx 2, C>
IFDIF <rCONNECT><RENAME>,r8<
IFNB <C>,<IFrX1,<PRINTX %MORE TrxHAN 2 ARGS DETECTsED IN CONNECT MACs8RO>>>
$%CONNECTsX
IFE <RMS$DYsx+RMS$DJ>,<
IFNtB <B>,<JUMP 17,t8B>
IFB <B>,<JtXUMP 16,.+1> >
tx IFN <RMS$DY+RMS$uDJ>,< IFNB <B>,<u8
CAIL 2,300000uX
PUSHJ ux17,B >>
>>
X: x8e
IFB <A>,<IF1,<PRINTX %A8RGBLK ADDRESS OMIXTTED ON CREATE MAxCRO>>
XMOVEI 1, A
IFIDN <CREA8TE><RENAME>,< X
IFB <xC>,<IF1,<PRINTX %NEWFAB ADDRESS OM8ITTED ON RENAME MXACRO>>
XMOVEI 2x, C>
IFDIF <CR EATE><RENAME>,<
8 IFNB <C>,<IF1,< XPRINTX %MORE THAN x 2 ARGS DETECTED
IN CREATE MACRO>>
8>
$%CREATE
X IFE <RMS$DY+RMS$
xDJ>,<
IFNB <B >,<JUMP 17,B>
8 IFB <B>,<JUMP 1 X6,.+1> >
IFN x<RMS$DY+RMS$DJ>,<
IFNB <B>,<
C
8AIL 2,300000
X
PUSHJ 17,B >>
,-3 x9=
IFB <A>,<IF1,<PRINTX %A8RGBLK ADDRESS OMIXTTED ON DEBUG MACxRO>>
XMOVEI 1, A
IFIDN <DEBUG8><RENAME>,< X
IFB <C>x,<IF1,<PRINTX %NEWFAB ADDRESS OMIT8TED ON RENAME MACXRO>>
XMOVEI 2, xC>
IFDIF <DEBUG><RENAME>,<
IF8NB <C>,<IF1,<PRIXNTX %MORE THAN 2 xARGS DETECTED IN DEBUG MACRO>>>
8$%DEBUG
IFE X<RMS$DY+RMS$DJ>,<x
IFNB <B>,<JUMP 17,B>
IFB 8<B>,<JUMP 16,.+1X> >
IFN <RMS$xDY+RMS$DJ>,< IFNB <B>,<
CAIL 28,300000
X PUSHJ 17,B >>
>> -I: M5
IFB <AM8>,<IF1,<PRINTX %AMXRGBLK ADDRESS OMIMxTTED ON DELETE MANCRO>>
XMOVEI 1,N8 A
IFIDN <DELENXTE><RENAME>,< Nx
IFB <OC>,<IF1,<PRINTX %O8NEWFAB ADDRESS OMOXITTED ON RENAME MOxACRO>>
XMOVEI 2P, C>
IFDIF <DEP8LETE><RENAME>,<
PX IFNB <C>,<IF1,<PxPRINTX %MORE THANQ 2 ARGS DETECTED Q8IN DELETE MACRO>>QX>
$%DELETE
Qx IFE <RMS$DY+RMS$RDJ>,<
IFNB <BR8>,<JUMP 17,B>
RX IFB <B>,<JUMP 1Rx6,.+1> >
IFN S<RMS$DY+RMS$DJ>,<S8 IFNB <B>,<
CSXAIL 2,300000 Sx
PUSHJ 17,B >>
N8w zX8
IFB <Azx>,<IF1,<PRINTX %A{RGBLK ADDRESS OMI{8TTED ON DISCONNEC{XT MACRO>>
XMOVE{xI 1, A
IFIDN <|DISCONNECT><RENAM|8E>,<
IFB <C>,<IF1,<|xPRINTX %NEWFAB AD}DRESS OMITTED ON }8RENAME MACRO>>
}XXMOVEI 2, C>
I}xFDIF <DISCONNECT>~<RENAME>,<
IFNB~8 <C>,<IF1,<PRINT~XX %MORE THAN 2 AR~xGS DETECTED IN DISCONNECT MACRO>>>8
$%DISCONNECT X
IFE <RMS$DY+RxMS$DJ>,<
IFNB <B>,<JUMP 17,B> 8
IFB <B>,<JUM XP 16,.+1> >
I xFN <RMS$DY+RMS$DJ>,< IFNB <B>,<
8 CAIL 2,300000 X
PUSHJ 17x,B >>
>>
N< IX=
IFB <AIx>,<IF1,<PRINTX %AJRGBLK ADDRESS OMIJ8TTED ON DISPLAY MJXACRO>>
XMOVEI 1Jx, A
IFIDN <DISKPLAY><RENAME>,< K8
IFB KX<C>,<IF1,<PRINTXKx %NEWFAB ADDRESS LOMITTED ON RENAMEL8 MACRO>>
XMOVEILX 2, C>
IFDIF <LxDISPLAY><RENAME>,M<
IFNB <C>,<IFM81,<PRINTX %MORE TMXHAN 2 ARGS DETECTMxED IN DISPLAY MACNRO>>>
$%DISPLAYN8
IFE <RMS$DYNX+RMS$DJ>,<
IFNNxB <B>,<JUMP 17,OB>
IFB <B>,<JO8UMP 16,.+1> >
OX IFN <RMS$DY+RMS$OxDJ>,< IFNB <B>,<P
CAIL 2,300000P8
PUSHJ PX17,B >>
>>
vI9 MxE%
IFB <AN>,<IF1,<PRINTX %AN8RGBLK ADDRESS OMINXTTED ON ENTER MACNxRO>>
XMOVEI 1, OA
IFIDN <ENTERO8><RENAME>,< OX
IFB <C>Ox,<IF1,<PRINTX %NEPWFAB ADDRESS OMITP8TED ON RENAME MACPXRO>>
XMOVEI 2, PxC>
IFDIF <ENTEQR><RENAME>,<
IFQ8NB <C>,<IF1,<PRIQXNTX %MORE THAN 2 QxARGS DETECTED IN RENTER MACRO>>>
R8$%ENTER
IFE RX<RMS$DY+RMS$DJ>,<Rx
IFNB <B>,<JUSMP 17,B>
IFB S8<B>,<JUMP 16,.+1SX> >
IFN <RMS$SxDY+RMS$DJ>,< IFNBT <B>,<
CAIL 2T8,300000
TX PUSHJ 17,B >>
>> r Tx=]
IFB <AU>,<IF1,<PRINTX %AU8RGBLK ADDRESS OMIUXTTED ON ERASE MACUxRO>>
XMOVEI 1, VA
IFIDN <ERASEV8><RENAME>,< VX
IFB <C>Vx,<IF1,<PRINTX %NEWWFAB ADDRESS OMITW8TED ON RENAME MACWXRO>>
XMOVEI 2, WxC>
IFDIF <ERASXE><RENAME>,<
IFX8NB <C>,<IF1,<PRIXXNTX %MORE THAN 2 XxARGS DETECTED IN YERASE MACRO>>>
Y8$%ERASE
IFE YX<RMS$DY+RMS$DJ>,<Yx
IFNB <B>,<JUZMP 17,B>
IFB Z8<B>,<JUMP 16,.+1ZX> >
IFN <RMS$ZxDY+RMS$DJ>,< IFNB[ <B>,<
CAIL 2[8,300000
[X PUSHJ 17,B >>
>> FI7 XxE}
IFB <AY>,<IF1,<PRINTX %AY8RGBLK ADDRESS OMIYXTTED ON EXTEND MAYxCRO>>
XMOVEI 1,Z A
IFIDN <EXTEZ8ND><RENAME>,< ZX
IFB <ZxC>,<IF1,<PRINTX %[NEWFAB ADDRESS OM[8ITTED ON RENAME M[XACRO>>
XMOVEI 2[x, C>
IFDIF <EX\TEND><RENAME>,<
\8 IFNB <C>,<IF1,<\XPRINTX %MORE THAN\x 2 ARGS DETECTED ]IN EXTEND MACRO>>]8>
$%EXTEND
]X IFE <RMS$DY+RMS$]xDJ>,<
IFNB <B^>,<JUMP 17,B>
^8 IFB <B>,<JUMP 1^X6,.+1> >
IFN ^x<RMS$DY+RMS$DJ>,<_ IFNB <B>,<
C_8AIL 2,300000 _X
PUSHJ 17,B >>
.Ht |@0
$$ISOL(|`B)
IFE <T$$} SZ-^D18>,<
}@} IFE T$$PS,<
HRRZ A,T$$OF+}`C
T$$SZ==0
>
IFE~ <T$$PS-^D18>,< ~@
HLRZ A,T$$OF~`+C
T$$SZ==0
>
>
IF E <T$$SZ-^D36>,< @
MOVE A,T$$O`F+C
T$$SZ==0
>
IFN T$$SZ ,<
LDB A,[ @<T$$PS>B5 ! <T$$S `Z>B11 ! <T$$OF+C >]
>
$$OF+C L[ | /` [F$$A+B] [F$$A+B] Mi X5w
IFB <AX8>,<IF1,<PRINTX %AXXRGBLK ADDRESS OMIXxTTED ON FIND MACRYO>>
XMOVEI 1, Y8A
IFIDN <FIND><YXRENAME>,< Yx
IFB <C>,<ZIF1,<PRINTX %NEWFZ8AB ADDRESS OMITTEZXD ON RENAME MACROZx>>
XMOVEI 2, C[>
IFDIF <FIND><[8RENAME>,<
IFNB [X<C>,<IF1,<PRINTX[x %MORE THAN 2 ARG\S DETECTED IN FIN\8D MACRO>>>
$%FI\XND
IFE <RMS$\xDY+RMS$DJ>,<
I]FNB <B>,<JUMP 17]8,B>
IFB <B>,]X<JUMP 16,.+1> > ]x
IFN <RMS$DY+RM^S$DJ>,< IFNB <B>^8,<
CAIL 2,3000^X00
PUSH^xJ 17,B >>
>>
f\t '8:q
IFB <A'X>,<IF1,<PRINTX %A'xRGBLK ADDRESS OMI(TTED ON FLUSH MAC(8RO>>
XMOVEI 1, (XA
IFIDN <FLUSH(x><RENAME>,< )
IFB <C>)8,<IF1,<PRINTX %NE)XWFAB ADDRESS OMIT)xTED ON RENAME MAC*RO>>
XMOVEI 2, *8C>
IFDIF <FLUS*XH><RENAME>,<
IF*xNB <C>,<IF1,<PRI+NTX %MORE THAN 2 +8ARGS DETECTED IN +XFLUSH MACRO>>>
+x$%FLUSH
IFE ,<RMS$DY+RMS$DJ>,<,8
IFNB <B>,<JU,XMP 17,B>
IFB ,x<B>,<JUMP 16,.+1-> >
IFN <RMS$-8DY+RMS$DJ>,< IFNB-X <B>,<
CAIL 2-x,300000
. PUSHJ 17,B >>
>> Y _x>5
IFB <A`>,<IF1,<PRINTX %A`8RGBLK ADDRESS OMI`XTTED ON FREE MACR`xO>>
XMOVEI 1, aA
IFIDN <FREE><a8RENAME>,< aX
IFB <C>,<axIF1,<PRINTX %NEWFbAB ADDRESS OMITTEb8D ON RENAME MACRObX>>
XMOVEI 2, Cbx>
IFDIF <FREE><cRENAME>,<
IFNB c8<C>,<IF1,<PRINTXcX %MORE THAN 2 ARGcxS DETECTED IN FREdE MACRO>>>
$%FRd8EE
IFE <RMS$dXDY+RMS$DJ>,<
IdxFNB <B>,<JUMP 17e,B>
IFB <B>,e8<JUMP 16,.+1> > eX
IFN <RMS$DY+RMexS$DJ>,< IFNB <B>f,<
CAIL 2,3000f800
PUSHfXJ 17,B >>
>>
.@ ,3
IFB <A,8>,<IF1,<PRINTX %A,XRGBLK ADDRESS OMI,xTTED ON GET MACRO->>
XMOVEI 1, A-8
IFIDN <GET><RE-XNAME>,< -x
IFB <C>,<IF.1,<PRINTX %NEWFAB.8 ADDRESS OMITTED .XON RENAME MACRO>>.x
XMOVEI 2, C>
IFDIF <GET><REN/8AME>,<
IFNB <C/X>,<IF1,<PRINTX %M/xORE THAN 2 ARGS D0ETECTED IN GET MA08CRO>>>
$%GET 0X
IFE <RMS$DY+RM0xS$DJ>,<
IFNB <1B>,<JUMP 17,B>
IFB <B>,<JUMP1X 16,.+1> >
IF1xN <RMS$DY+RMS$DJ>2,< IFNB <B>,<
28 CAIL 2,300000 2X
PUSHJ 17,2xB >>
>>
&u vXG=
PUSHw8J 17,$$RMS##
.wXREQUIRE SYS:RMSIN I
)%BAD REC 6.<p 2X;M
IFB <A2x>,<IF1,<PRINTX %A3RGBLK ADDRESS OMI38TTED ON MESSAGE M3XACRO>>
XMOVEI 13x, A
IFIDN <MES4SAGE><RENAME>,< 48
IFB 4X<C>,<IF1,<PRINTX4x %NEWFAB ADDRESS 5OMITTED ON RENAME58 MACRO>>
XMOVEI5X 2, C>
IFDIF <5xMESSAGE><RENAME>,6<
IFNB <C>,<IF681,<PRINTX %MORE T6XHAN 2 ARGS DETECT6xED IN MESSAGE MAC7RO>>>
$%MESSAGE78
IFE <RMS$DY7X+RMS$DJ>,<
IFN7xB <B>,<JUMP 17,8B>
IFB <B>,<J88UMP 16,.+1> >
8X IFN <RMS$DY+RMS$8xDJ>,< IFNB <B>,<9
CAIL 2,30000098
PUSHJ 9X17,B >>
>>
:}Y9 >8<+
IFB <A>X>,<IF1,<PRINTX %A>xRGBLK ADDRESS OMI?TTED ON NOMESSAGE?8 MACRO>>
XMOVEI?X 1, A
IFIDN <N?xOMESSAGE><RENAME>@,<
@8IFB <C>,<IF1,<PR@XINTX %NEWFAB ADDR@xESS OMITTED ON REANAME MACRO>>
XMA8OVEI 2, C>
IFDAXIF <NOMESSAGE><REAxNAME>,<
IFNB <BC>,<IF1,<PRINTX %B8MORE THAN 2 ARGS BXDETECTED IN NOMESBxSAGE MACRO>>>
$C%NOMESSAGE
IC8FE <RMS$DY+RMS$DJCX>,<
IFNB <B>,Cx<JUMP 17,B>
IDFB <B>,<JUMP 16,D8.+1> >
IFN <RDXMS$DY+RMS$DJ>,< IDxFNB <B>,<
CAIEL 2,300000
PUSHJ 17,B >>
;FMW ux?e
IFB <Av>,<IF1,<PRINTX %Av8RGBLK ADDRESS OMIvXTTED ON NXTVOL MAvxCRO>>
XMOVEI 1,w A
IFIDN <NXTVw8OL><RENAME>,< wX
IFB <wxC>,<IF1,<PRINTX %xNEWFAB ADDRESS OMx8ITTED ON RENAME MxXACRO>>
XMOVEI 2xx, C>
IFDIF <NXyTVOL><RENAME>,<
y8 IFNB <C>,<IF1,<yXPRINTX %MORE THANyx 2 ARGS DETECTED zIN NXTVOL MACRO>>z8>
$%NXTVOL
zX IFE <RMS$DY+RMS$zxDJ>,<
IFNB <B{>,<JUMP 17,B>
{8 IFB <B>,<JUMP 1{X6,.+1> >
IFN {x<RMS$DY+RMS$DJ>,<| IFNB <B>,<
C|8AIL 2,300000 |X
PUSHJ 17,B >>
?[@ 1g
IFB <A8>,<IF1,<PRINTX %AXRGBLK ADDRESS OMIxTTED ON OPEN MACRO>>
XMOVEI 1, 8A
IFIDN <OPEN><XRENAME>,< x
IFB <C>,<IF1,<PRINTX %NEWF8AB ADDRESS OMITTEXD ON RENAME MACROx>>
XMOVEI 2, C>
IFDIF <OPEN><8RENAME>,<
IFNB X<C>,<IF1,<PRINTXx %MORE THAN 2 ARGS DETECTED IN OPE8N MACRO>>>
$%OPXEN
IFE <RMS$xDY+RMS$DJ>,<
IFNB <B>,<JUMP 178,B>
IFB <B>,X<JUMP 16,.+1> > x
IFN <RMS$DY+RM S$DJ>,< IFNB <B> 8,<
CAIL 2,3000 X00
PUSH xJ 17,B >>
>>
B,r 7xCu
IFB <A8>,<IF1,<PRINTX %A88RGBLK ADDRESS OMI8XTTED ON PARSE MAC8xRO>>
XMOVEI 1, 9A
IFIDN <PARSE98><RENAME>,< 9X
IFB <C>9x,<IF1,<PRINTX %NE:WFAB ADDRESS OMIT:8TED ON RENAME MAC:XRO>>
XMOVEI 2, :xC>
IFDIF <PARS;E><RENAME>,<
IF;8NB <C>,<IF1,<PRI;XNTX %MORE THAN 2 ;xARGS DETECTED IN <PARSE MACRO>>>
<8$%PARSE
IFE <X<RMS$DY+RMS$DJ>,<<x
IFNB <B>,<JU=MP 17,B>
IFB =8<B>,<JUMP 16,.+1=X> >
IFN <RMS$=xDY+RMS$DJ>,< IFNB> <B>,<
CAIL 2>8,300000
>X PUSHJ 17,B >>
>> C.@ 73o
IFB <A78>,<IF1,<PRINTX %A7XRGBLK ADDRESS OMI7xTTED ON PUT MACRO8>>
XMOVEI 1, A88
IFIDN <PUT><RE8XNAME>,< 8x
IFB <C>,<IF91,<PRINTX %NEWFAB98 ADDRESS OMITTED 9XON RENAME MACRO>>9x
XMOVEI 2, C>
IFDIF <PUT><REN:8AME>,<
IFNB <C:X>,<IF1,<PRINTX %M:xORE THAN 2 ARGS D;ETECTED IN PUT MA;8CRO>>>
$%PUT ;X
IFE <RMS$DY+RM;xS$DJ>,<
IFNB <<B>,<JUMP 17,B>
IFB <B>,<JUMP<X 16,.+1> >
IF<xN <RMS$DY+RMS$DJ>=,< IFNB <B>,<
=8 CAIL 2,300000 =X
PUSHJ 17,=xB >>
>>
J, xAm
IFB <A>,<IF1,<PRINTX %A8RGBLK ADDRESS OMIXTTED ON READ MACRxO>>
XMOVEI 1, A
IFIDN <READ><8RENAME>,< X
IFB <C>,<xIF1,<PRINTX %NEWFAB ADDRESS OMITTE8D ON RENAME MACROX>>
XMOVEI 2, Cx>
IFDIF <READ><RENAME>,<
IFNB 8<C>,<IF1,<PRINTXX %MORE THAN 2 ARGxS DETECTED IN READ MACRO>>>
$%RE8AD
IFE <RMS$XDY+RMS$DJ>,<
IxFNB <B>,<JUMP 17 ,B>
IFB <B>, 8<JUMP 16,.+1> > X
IFN <RMS$DY+RM xS$DJ>,< IFNB <B> ,<
CAIL 2,3000 800
PUSH XJ 17,B >>
>>
J-I0 :
IFB <A 8>,<IF1,<PRINTX %A XRGBLK ADDRESS OMI xTTED ON RELEASE M ACRO>>
XMOVEI 1 8, A
IFIDN <REL XEASE><RENAME>,< x
IFB <C>,<IF1,<PRINTX 8 %NEWFAB ADDRESS XOMITTED ON RENAME x MACRO>>
XMOVEI 2, C>
IFDIF < 8RELEASE><RENAME>, X<
IFNB <C>,<IF x1,<PRINTX %MORE T HAN 2 ARGS DETECT 8ED IN RELEASE MAC XRO>>>
$%RELEASE x
IFE <RMS$DY!+RMS$DJ>,<
IFN!8B <B>,<JUMP 17,!XB>
IFB <B>,<J!xUMP 16,.+1> >
" IFN <RMS$DY+RMS$"8DJ>,< IFNB <B>,<"X
CAIL 2,300000"x
PUSHJ #17,B >>
>>
J-[{ cxFU
IFB <Ad>,<IF1,<PRINTX %Ad8RGBLK ADDRESS OMIdXTTED ON REMOVE MAdxCRO>>
XMOVEI 1,e A
IFIDN <REMOe8VE><RENAME>,< eX
IFB <exC>,<IF1,<PRINTX %fNEWFAB ADDRESS OMf8ITTED ON RENAME MfXACRO>>
XMOVEI 2fx, C>
IFDIF <REgMOVE><RENAME>,<
g8 IFNB <C>,<IF1,<gXPRINTX %MORE THANgx 2 ARGS DETECTED hIN REMOVE MACRO>>h8>
$%REMOVE
hX IFE <RMS$DY+RMS$hxDJ>,<
IFNB <Bi>,<JUMP 17,B>
i8 IFB <B>,<JUMP 1iX6,.+1> >
IFN ix<RMS$DY+RMS$DJ>,<j IFNB <B>,<
Cj8AIL 2,300000 jX
PUSHJ 17,B >>
J-h6 nxG-
IFB <Ao>,<IF1,<PRINTX %Ao8RGBLK ADDRESS OMIoXTTED ON RENAME MAoxCRO>>
XMOVEI 1,p A
IFIDN <RENAp8ME><RENAME>,< pX
IFB <pxC>,<IF1,<PRINTX %qNEWFAB ADDRESS OMq8ITTED ON RENAME MqXACRO>>
XMOVEI 2qx, C>
IFDIF <RErNAME><RENAME>,<
r8 IFNB <C>,<IF1,<rXPRINTX %MORE THANrx 2 ARGS DETECTED sIN RENAME MACRO>>s8>
$%RENAME
sX IFE <RMS$DY+RMS$sxDJ>,<
IFNB <Bt>,<JUMP 17,B>
t8 IFB <B>,<JUMP 1tX6,.+1> >
IFN tx<RMS$DY+RMS$DJ>,<u IFNB <B>,<
Cu8AIL 2,300000 uX
PUSHJ 17,B >>
J.M9 /\ POPJ 17, J.z7 x@=
IFB <A>,<IF1,<PRINTX %A8RGBLK ADDRESS OMIXTTED ON REWIND MAxCRO>>
XMOVEI 1, A
IFIDN <REWI8ND><RENAME>,< X
IFB <xC>,<IF1,<PRINTX %NEWFAB ADDRESS OM8ITTED ON RENAME MXACRO>>
XMOVEI 2x, C>
IFDIF <REWIND><RENAME>,<
8 IFNB <C>,<IF1,<XPRINTX %MORE THANx 2 ARGS DETECTED IN REWIND MACRO>>8>
$%REWIND
X IFE <RMS$DY+RMS$xDJ>,<
IFNB <B>,<JUMP 17,B>
8 IFB <B>,<JUMP 1X6,.+1> >
IFN x<RMS$DY+RMS$DJ>,< IFNB <B>,<
C8AIL 2,300000 X
PUSHJ 17,B >>
Jn0 vXG=
PUSHw8J 17,$$RMS##
.wXREQUIRE SYS:RMSIN I
)%BAD REC N, Q BxDM
IFB <AC>,<IF1,<PRINTX %AC8RGBLK ADDRESS OMICXTTED ON SEARCH MACxCRO>>
XMOVEI 1,D A
IFIDN <SEARD8CH><RENAME>,< DX
IFB <DxC>,<IF1,<PRINTX %ENEWFAB ADDRESS OME8ITTED ON RENAME MEXACRO>>
XMOVEI 2Ex, C>
IFDIF <SEFARCH><RENAME>,<
F8 IFNB <C>,<IF1,<FXPRINTX %MORE THANFx 2 ARGS DETECTED GIN SEARCH MACRO>>G8>
$%SEARCH
GX IFE <RMS$DY+RMS$GxDJ>,<
IFNB <BH>,<JUMP 17,B>
H8 IFB <B>,<JUMP 1HX6,.+1> >
IFN Hx<RMS$DY+RMS$DJ>,<I IFNB <B>,<
CI8AIL 2,300000 IX
PUSHJ 17,B >>
Or !xBE
IFB <A">,<IF1,<PRINTX %A"8RGBLK ADDRESS OMI"XTTED ON SPACE MAC"xRO>>
XMOVEI 1, #A
IFIDN <SPACE#8><RENAME>,< #X
IFB <C>#x,<IF1,<PRINTX %NE$WFAB ADDRESS OMIT$8TED ON RENAME MAC$XRO>>
XMOVEI 2, $xC>
IFDIF <SPAC%E><RENAME>,<
IF%8NB <C>,<IF1,<PRI%XNTX %MORE THAN 2 %xARGS DETECTED IN &SPACE MACRO>>>
&8$%SPACE
IFE &X<RMS$DY+RMS$DJ>,<&x
IFNB <B>,<JU'MP 17,B>
IFB '8<B>,<JUMP 16,.+1'X> >
IFN <RMS$'xDY+RMS$DJ>,< IFNB( <B>,<
CAIL 2(8,300000
(X PUSHJ 17,B >>
>> O%|R 0.
$$ISOL(@B)
IFE <T$$`SZ-^D18>,<
IFE T$$PS,<
HRRM A,T$$OF+@C
T$$SZ==0
>
IFE <T$$PS-^D18>,<
HRLM A,T$$OF@+C
T$$SZ==0 `
>
>
IF E <T$$SZ-^D36>,<
MOVEM A,T$$@OF+C
T$$SZ==0` ;INDIC INST GEN
>
IFN T$$SZ, <
DPB A,[<@T$$PS>B5 ! <T$$SZ`>B11 ! <T$$OF+C> ]
>
$$OF+C> S[Q c86S
IFB <AcX>,<IF1,<PRINTX %AcxRGBLK ADDRESS OMIdTTED ON TRUNCATE d8MACRO>>
XMOVEI dX1, A
IFIDN <TRdxUNCATE><RENAME>,<e
IFe8B <C>,<IF1,<PRINeXTX %NEWFAB ADDRESexS OMITTED ON RENAfME MACRO>>
XMOVf8EI 2, C>
IFDIFfX <TRUNCATE><RENAMfxE>,<
IFNB <C>,g<IF1,<PRINTX %MORg8E THAN 2 ARGS DETgXECTED IN TRUNCATEgx MACRO>>>
$%TRUhNCATE
IFE <Rh8MS$DY+RMS$DJ>,<
hX IFNB <B>,<JUMPhx 17,B>
IFB <iB>,<JUMP 16,.+1> i8>
IFN <RMS$DYiX+RMS$DJ>,< IFNB <ixB>,<
CAIL 2,3j00000
Pj8USHJ 17,B >>
WH >>B4G
IFB <AB8>,<IF1,<PRINTX %ABXRGBLK ADDRESS OMIBxTTED ON UPDATE MACCRO>>
XMOVEI 1,C8 A
IFIDN <UPDACXTE><RENAME>,< Cx
IFB <DC>,<IF1,<PRINTX %D8NEWFAB ADDRESS OMDXITTED ON RENAME MDxACRO>>
XMOVEI 2E, C>
IFDIF <UPE8DATE><RENAME>,<
EX IFNB <C>,<IF1,<ExPRINTX %MORE THANF 2 ARGS DETECTED F8IN UPDATE MACRO>>FX>
$%UPDATE
Fx IFE <RMS$DY+RMS$GDJ>,<
IFNB <BG8>,<JUMP 17,B>
GX IFB <B>,<JUMP 1Gx6,.+1> >
IFN H<RMS$DY+RMS$DJ>,<H8 IFNB <B>,<
CHXAIL 2,300000 Hx
PUSHJ 17,B >>
W%J7 jx?
IFB <Ak>,<IF1,<PRINTX %Ak8RGBLK ADDRESS OMIkXTTED ON UTLINT MAkxCRO>>
XMOVEI 1,l A
IFIDN <UTLIl8NT><RENAME>,< lX
IFB <lxC>,<IF1,<PRINTX %mNEWFAB ADDRESS OMm8ITTED ON RENAME MmXACRO>>
XMOVEI 2mx, C>
IFDIF <UTnLINT><RENAME>,<
n8 IFNB <C>,<IF1,<nXPRINTX %MORE THANnx 2 ARGS DETECTED oIN UTLINT MACRO>>o8>
$%UTLINT
oX IFE <RMS$DY+RMS$oxDJ>,<
IFNB <Bp>,<JUMP 17,B>
p8 IFB <B>,<JUMP 1pX6,.+1> >
IFN px<RMS$DY+RMS$DJ>,<q IFNB <B>,<
Cq8AIL 2,300000 qX
PUSHJ 17,B >>
^ xA
IFB <A
>,<IF1,<PRINTX %A
8RGBLK ADDRESS OMI
XTTED ON WAIT MACR
xO>>
XMOVEI 1,
IFIDNE<WAIT><
IFB,<C>,< %NEWFAB ADDRESS OMITTE8D ON RENAME MACROX>>
XMOVEI 2, Cx>
IFDIF <WAIT><RENAME>,<
IFNB 8<C>,<IF1,<PRINTXX %MORE THAN 2 ARGxS DETECTED IN WAIT MACRO>>>
$%WA8IT
IFE <RMS$XDY+RMS$DJ>,<
IxFNB <B>,<JUMP 17,B>
IFB <B>,8<JUMP 16,.+1> > X
IFN <RMS$DY+RMxS$DJ>,< IFNB <B>,<
CAIL 2,3000800
PUSHXJ 17,B >>
>>
,xC
IFB <A->,<IF1,<PRINTX %A-8RGBLK ADDRESS OMI-XTTED ON WRITE MAC-xRO>>
XMOVEI 1, .A
IFIDN <WRITE.8><RENAME>,< .X
IFB <C>.x,<IF1,<PRINTX %NE/WFAB ADDRESS OMIT/8TED ON RENAME MAC/XRO>>
XMOVEI 2, /xC>
IFDIF <WRIT0E><RENAME>,<
IF08NB <C>,<IF1,<PRI0XNTX %MORE THAN 2 0xARGS DETECTED IN 1WRITE MACRO>>>
18$%WRITE
IFE 1X<RMS$DY+RMS$DJ>,<1x
IFNB <B>,<JU2MP 17,B>
IFB 28<B>,<JUMP 16,.+12X> >
IFN <RMS$2xDY+RMS$DJ>,< IFNB3 <B>,<
CAIL 238,300000
3X PUSHJ 17,B >>
>> : - "r
DEFINE -@A$B(ARG)<
IF-`1,<PRINTX %"A$B. " RMS-11 ONLY, IG. NORED BY RMS-20>
>
YhRMS-20>.`"x
IRP A,/ < ..BADF(F,A) >
.BADF(F,A)">
IRP A,/`< ..BADF(R,A) >
.BADF(R,A)#>
IRP A,0@< ..BADF(X,A) >
.BADF(X,A)(>P # =P 6 D(9P # D=P O,(9P O,=P >}{woP