Trailing-Edge
-
PDP-10 Archives
-
bb-4157j-bm_fortran20_v11_16mt9
-
fortran-system/rmsinj.unv
There are 32 other files named rmsinj.unv in the archive. Click here to see a list.
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,<P60RINTX %"F$ANB" RM6PS-11 ONLY, IGNORE D BY RMS-20>
L<` V aP& BKS,A)NEWVAL (LL` a& $$NEWVAL ( BLS,A)NEWVAL (L>@ %y $$NEWVAL ( BSZ,A)NEWVAL (L N b& $$NEWVAL ( CTX,A)NEWVAL (L%h 2#
IF1,<P20RINTX %"F$DNA" RM2PS-11 ONLY, IGNORE D BY RMS-20>
L%l` 3#
IF1,<P30RINTX %"F$DNS" RM3PS-11 ONLY, IGNORE D BY RMS-20>
L4` [%Y $$NEWVAL ( FAC,A)NEWVAL (L5h ]%i $$NEWVAL ( FNA,A)NEWVAL (L5l` 1#
IF1,<P10RINTX %"F$FNS" RM1PS-11 ONLY, IGNORE D BY RMS-20>
L5| \%a $$NEWVAL ( FOP,A)NEWVAL (L6>@ bP& $$NEWVAL ( FSZ,A)NEWVAL (LTk@ ZP%U $$NEWVAL ( JFN,A)NEWVAL (LUk `P& $$NEWVAL ( JNL,A)NEWVAL (Ld: 8#E
IF1,<P80RINTX %"F$LCH" RM8PS-11 ONLY, IGNORE D BY RMS-20>
Ln+@ ^P%u $$NEWVAL ( MRN,A)NEWVAL (Ln,` ^%q $$NEWVAL ( MRS,A)NEWVAL (Lt 5#) $$NEWVAL ( NAM,A)NEWVAL (L~)` \P%e $$NEWVAL ( ORG,A)NEWVAL (L ]P%m $$NEWVAL ( RAT,A)NEWVAL (Lk _P%} $$NEWVAL ( RFM,A)NEWVAL (LM@ 4#%
IF1,<P40RINTX %"F$RTV" RM4PS-11 ONLY, IGNORE D BY RMS-20>
L
@ [P%] $$NEWVAL ( SHR,A)NEWVAL (L' 5P#- $$NEWVAL ( TYP,A)NEWVAL (LD@ `& $$NEWVAL ( XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ PP%Q
IFNB <PpA>,< ;RUN-TIME QINIT
$$MAPADD Q0(A,$$ADDR); ; WIQPLL REFERENCE FAB QpVIA $$ADDR
SYNR SF$$RT,$$SET
>R0
IFB <A>,RP<SYN SF$$CT,$$SETRp>
$$CURR (F,BSID)
$$CURR (F,S0BLN)
$$CURR (FSP,STS)
$$CURR (SpF,STV)
$$CURR T(F,IFI)
$$CURRT0 (F,JFN)
$$CURTPR (F,FAC)
$$CUTpRR (F,SHR)
$$CUURR (F,FOP)
$$U0CURR (F,ORG)
$UP$CURR (F,FNA)
Up$$CURR (F,RAT)
V $$CURR (F,MRS)
V0 $$CURR (F,MRN)
$$CURR (F,BSZ)Vp
$$CURR (F,RFMW)
$$CURR (F,XAW0B)
$$CURR (F,JWPNL)
$$CURR (F,WpBLS)
$$CURR (FX,BKS)
$$CURR (X0F,DEV)
$$CURR XP(F,SDC)
$$CURRXp (F,CTX)
$$CURYR (F,FSZ) ;![AWN]Y0
$$CURR (F,TYPYP) ;![AWN]
$$CUYpRR (F,NAM) ;![AWNZ]
$$CURR (F,AL Q) ;![AWN]
ALMI 7P'
IFNDEF bp$$ADDR,<
<c$$SET(BID)>_^D18 c0! <$$SET(BLN)>
cP <$$SET(STS)>^D1cp8 ! <$$SET(STV)>
<$$SET(CTX)>
d0 <$$SET(IFI)>_^DdP18 ! <$$SET(JFN)>dp
<$$SET(FAC)>_e^D18 ! <$$SET(SHRe0)>
<$$SET(FOP)eP>_^D18 ! <$$SET(OepRG)>_^D14 ! <$$SEfT(BSZ)>_^D8 ! <$$f0SET(BLS)>
<$$SfPET(FNA)>
<$$SEfpT(RAT)>_^D18 ! <$g$SET(MRS)>
<$$g0SET(MRN)>
<$$SgPET(FSZ)>_^D13 ! <gp$$SET(BKS)>_^D5 !h <$$SET(RFM)> ;![h0AWN]
<$$SET(JNhPL)>_^D18 ! <$$SEThp(XAB)>
<$$SET(iDEV)>_^D18 ! <$$Si0ET(SDC)>
<$$SEiPT(TYP)>_^D18 ! <$ip$SET(NAM)> ;![AWNj]
<$$SET(ALQ)>j0 ;![AWN]
EXjPP 0,0
> ;ENjpD IFNB
IFDEF $$kADDR,<
$$SET(Bk0ID)
$$SET(BLN)kP
$$SET(STS)
kp $$SET(STV)
$$lSET(IFI)
$$SETl0(JFN)
$$SET(FAlPC)
$$SET(SHR)
$$SET(FOP)
m$$SET(ORG)
$$Sm0ET(FNA)
$$SET(mPRAT)
$$SET(MRSmp)
$$SET(MRN)
n $$SET(BSZ)
$n0$SET(RFM)
$$SEnPT(XAB)
$$SET(JnpNL)
$$SET(BLS)o
$$SET(BKS)
o0 $$SET(DEV)
$$oPSET(SDC)
$$SETop(CTX)
$$SET(FSpZ) ;![AWN]
$p0$SET(NAM) ;![AWpPN]
$$SET(TYP) pp ;![AWN]
$$SEqT(ALQ) ;![AWN]
PURGE $$ADqPDR
>
>
MN@ u0/+ $$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 WP-= $$NEWVAL (ESA,A)NEWVAL \.<` X-A $$NEWVAL (ESS,A)NEWVAL \u| Y-I $$NEWVAL (NOP,A)NEWVAL \I@ XP-E $$NEWVAL (RLF,A)NEWVAL \8 YP-M $$NEWVAL (RSA,A)NEWVAL \<` Z-Q $$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@ Np-9
IFNB <OA>,<
$$MAPADD O0(A,$$ADDR); ; WIOPLL REFERENCE THE OpBLOCK VIA $$ADDR
SYN SN$$RT,$$SP0ET
>
IFBPP <A>,<SYN SN$$CTPp,$$SET>
$$CURQR (N,BID)
$$CUQ0RR (N,BLN)
$$CQPURR (N,ESA)
$$QpCURR (N,ESS)
$R$CURR (N,ESL)
R0$$CURR (N,RLF)
RP $$CURR (N,NOP)
Rp $$CURR (N,RSA)
$$CURR (N,RSL)S0
$$CURR (N,RSSSP)
$$CURR (N,FNSpB)
$$CURR (N,WTCC)
$$CURR (N,T0CHA)
$$CURR (NTP,NDL)
$$CURR (TpN,DVL)
$$CURR U(N,NML)
$$CURRU0 (N,TPL)
$$CURUPR (N,VRL)
$$CUUpRR (N,NDA)
$$CVURR (N,DVA)
$$V0CURR (N,DRA)
$VP$CURR (N,NMA)
Vp$$CURR (N,TPA)
W $$CURR (N,VRA)
URR (N,VRA)
]hI ZP.=
IFNDEF Zp$$ADDR,<
<$$SE[T(BID)>_^D18 ! <$[0$SET(BLN)>
<$$[PSET(ESA)>
<$$S[pET(ESL)>_^D18 ! <\$$SET(ESS)>
<$\0$SET(NOP)>_^D18 !\P <$$SET(RLF)>
\p<$$SET(RSA)>
<]$$SET(RSL)>_^D18 ]0! <$$SET(RSS)>
]P <$$SET(FNB)>
]p<$$SET(WCC)>
<^$$SET(DVL)>_^D27 ^0! <$$SET(NDL)>_^D^P18 ! <$$SET(CHA)>^p
<$$SET(VRL)>__^D27 ! <$$SET(TPL_0)>_^D18 ! <$$SET(_PNML)>_^D9 ! <$$SE_pT(DRL)>
<$$SET`(NDA)>
<$$SET(`0DVA)>
<$$SET(D`PRA)>
<$$SET(NM`pA)>
<$$SET(TPAa)>
<$$SET(VRA)a0>
> ;IFNDEF
IFDEF $$ADDR,<
$$SET(BID)
b$$SET(BLN)
$$Sb0ET(ESA)
$$SET(bPESL)
$$SET(ESSbp)
$$SET(NOP)
c $$SET(RLF)
$c0$SET(RSA)
$$SEcPT(RSL)
$$SET(RcpSS)
$$SET(FNB)d
$$SET(WCC)
d0 $$SET(DVL)
$$dPSET(NDL)
$$SETdp(CHA)
$$SET(VReL)
$$SET(TPL)
$$SET(NML)
eP$$SET(DRL)
$$SepET(NDA)
$$SET(fDVA)
$$SET(DRAf0)
$$SET(NMA)
fP $$SET(TPA)
$fp$SET(VRA)
PUgRGE $$ADDR ;SO g0NEXT C/R DECIS COgPRRECT
> ;IF DEF
> ;IF]hN@ E w/9 A$$ZERO(A ,NA$LNG)ERO(Ad N F P( A$$NEWVAL (CTX,A)NEWVALVd-L` K P(NEWVAL d^)@ }P'm $$NEWVAL (KRF,A)NEWVAL d^>@ ~'q $$NEWVAL (KSZ,A)NEWVAL df;@ ( $$NEWVAL (LSN,A)NEWVAL dl)@ 'y $$NEWVAL (MBF,A)NEWVAL d P'} $$NEWVAL (PAD,A)NEWVAL d` zP'U $$NEWVAL (RAC,A)NEWVAL d)@ |'a $$NEWVAL (RBF,A)NEWVAL dh ( $$NEWVAL (RFA,A)NEWVAL d@ 0P#I
IF1,<P8pRINTX %"R$RHB" RM9S-11 ONLY, IGNORE D BY RMS-20>
d| {'Y $$NEWVAL (ROP,A)NEWVAL d>@ |P'e $$NEWVAL (RSZ,A)NEWVAL d,)@ {P'] $$NEWVAL (UBF,A)NEWVAL d.>@ }'i $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ r'M
IFNB <r0A>,<
$$MAPADD rP(A,$$ADDR); ; WIrpLL REFERENCE THE sBLOCK VIA $$ADDR
SYN SR$$RT,$$SsPET
>
IFBsp <A>,<SYN SR$$CTt,$$SET>
$$CURt0R (R,BID)
$$CUtPRR (R,BLN)
$$CtpURR (R,STS)
$$uCURR (R,STV)
$u0$CURR (R,ISI)
uP$$CURR (R,FAB)
up $$CURR (R,RAC)
v $$CURR (R,ROP)
$$CURR (R,UBF)vP
$$CURR (R,RBFvp)
$$CURR (R,RSwZ)
$$CURR (R,Uw0SZ)
$$CURR (R,wPRFA)
$$CURR (Rwp,KRF)
$$CURR (xR,KSZ)
$$CURR x0(R,KBF)
$$CURRxP (R,MBF)
$$CURxpR (R,LSN)
$$CUyRR (R,BKT)
$$Cy0URR (R,PAD)
$$yPCURR (R,CTX)
URR (R,CTX)
eI (m
IFNDEF 0$$ADDR,<
<$$SEPT(BID)>_^D18 ! <$p$SET(BLN)>
<$$SET(STS)>_^D18 ! 0<$$SET(STV)>
<P$$SET(CTX)>
<$p$SET(ISI)>_^D18 ! <$$SET(FAB)>
0<$$SET(RAC)>_^D27P ! <$$SET(MBF)>_^pD18 ! <$$SET(ROP)>
<$$SET(UBF)>0
<$$SET(RBF)>
<$$SET(RSZ)>_^pD18 ! <$$SET(USZ)>
<$$SET(RFA)>0
<$$SET(KRF)>_P^D27 ! <$$SET(KSZp)>_^D18 ! <$$SET(LSN)>
<$$SET(K0BF)>
<$$SET(BKPT)>
<$$SET(PADp)>_^D27
EXP 0,0,0
> ;IFNDE0F
IFDEF $$ADDR,P<
$$SET(BID)
p $$SET(BLN)
$ $SET(STS)
$$SE 0T(STV)
$$SET(I PSI)
$$SET(FAB) p
$$SET(RAC)
$$SET(ROP)
$$
0SET(UBF)
$$SET
P(RBF)
$$SET(RS
pZ)
$$SET(USZ)
$$SET(RFA)
0$$SET(KRF)
$$S PET(KSZ)
$$SET( pKBF)
$$SET(MBF
)
$$SET(LSN)
0 $$SET(BKT)
$
P$SET(PAD)
$$SE
pT(CTX)
PURGE $SOONEXTT
> ;IFDEF
> ;IFDEF
eN@ up// $$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 eL$[sP eL%KSP eL%KuP eL&9P eL&98P eL&=1P eL&LWP @eL&N8P eL&\P f$(` 0! A$B==1B C A$B==1Bf$H` p A$B==^D C A$B==^Df&8` 0 { A$B==C $D A$B==Cg Hz Gp$A IFDEF C$$HA,<C$$A> IFNDEF C$$A,<$$FA>F g LZ FP$;
IFNFpDEF C$$A,<IFN $$GFA,<C$$A==$$FAG0>>
STO$$C( A)
TO$$C(g8 Hz Mp$q IFDEF C$$NA,<C$$A> IFNDEF C$$A,<$$NA>F g8 LZ LP$k
IFNLpDEF C$$A,<IFN $$MNA,<C$$A==$$NAM0>>
STO$$C( A)
TO$$C(gH Hz Ip$Q IFDEF C$$JA,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ HP$K
IFNHpDEF C$$A,<IFN $$IRA,<C$$A==$$RAI0>>
STO$$C( A)
TO$$C(gP Hz Op% IFDEF C$$PA,<C$$A> IFNDEF C$$A,<$$TA>F gP LZ NP${
IFNNpDEF C$$A,<IFN $$OTA,<C$$A==$$TAO0>>
STO$$C( A)
TO$$C(gRxA E$1
EP E0IFDEF C$$A,<
<HRREI 1,> ! CEp$$A
$STORE F(1,A,$$ADDR)
>
R)
gT$M8@ gT% @ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz Kp$a IFDEF C$$LA,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ JP$[
IFNJpDEF C$$A,<IFN $$KXA,<C$$A==$$XAK0>>
STO$$C( A)
TO$$C(h H lP.e $$NEWVAL (CLA,A)NEWVAL h4M m.i $$NEWVAL (FDT,A)NEWVAL h5K@ mP.m $$NEWVAL (FLN,A)NEWVAL h68` n.q $$NEWVAL (FSC,A)NEWVAL hm|@ o.y $$NEWVAL (MOR,A)NEWVAL ht^ nP.u $$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.a
IFNB <h0A>,<
$$MAPADD hP(A,$$ADDR); ; WIhpLL REFERENCE THE iBLOCK VIA $$ADDR
SYN ST$$RT,$$SiPET
>
IFBip <A>,<SYN ST$$CTj,$$SET>
$$CURj0R (T,BID)
$$CUjPRR (T,BLN)
$$CjpURR (T,CLA)
$$kCURR (T,FDT)
$k0$CURR (T,FLN)
kP$$CURR (T,FSC)
kp $$CURR (T,NEX)
l $$CURR (T,MOR)
gURR (T,MOR)
IFNDEF op$$ADDR,<
<$$SEpT(BID)>_^D18 ! <$p0$SET(BLN)>
<$$pPSET(FDT)>_^D18 ! pp<$$SET(CLA)>
<q$$SET(FLN)>_^D18 q0! <$$SET(FDT)>
qP <$$SET(MOR)>^D1qp8 ! <$$SET(NEX)>
> ;IFNDEF
r0IFDEF $$ADDR,<
rP $$SET(BID)
$$rpSET(BLN)
$$SETs(FDT)
$$SET(CLs0A)
$$SET(FLN)
$$SET(FDT)
sp$$SET(MOR)
$$StET(NEX)
PURGE t0$$ADDR ;SO NEXTtP C/R DECIS CORRECtpT
> ;IFDEF
> ;IFDEF E$$ZERO(A ,TY$LNG)WERO(Ap #0* $$NEWVAL ( BKZ,A)NEWVAL (p$@ &0*3 $$NEWVAL ( DAN,A)NEWVAL (p$k $0*# $$NEWVAL ( DFL,A)NEWVAL (p&L $p*' $$NEWVAL ( DTP,A)NEWVAL (p,M 0* $$NEWVAL ( EDT,A)NEWVAL (p5I` %0*+ $$NEWVAL ( FLG,A)NEWVAL (p>, @0$
IF1,<P@PRINTX %"X$GRP" RM@pS-11 ONLY, IGNORE D BY RMS-20>
pD ;0#_
IF1,<P;PRINTX %"X$HAL" RM;pS-11 ONLY, IGNORE D BY RMS-20>
pL@ %p*/ $$NEWVAL ( IAN,A)NEWVAL (pLk #p* $$NEWVAL ( IFL,A)NEWVAL (p]k 'p*? $$NEWVAL ( KNM,A)NEWVAL (pd@ &p*7 $$NEWVAL ( LAN,A)NEWVAL (pnJ :0#W
IF1,<P:PRINTX %"X$MTH" RM:pS-11 ONLY, IGNORE D BY RMS-20>
pw p) $$NEWVAL ( NXT,A)NEWVAL (p~{@ ?0#
IF1,<P?PRINTX %"X$OWN" RM?pS-11 ONLY, IGNORE D BY RMS-20>
p|@ !p* $$NEWVAL ( PGR,A)NEWVAL (p|` (0*Y
$$NE(PWARRVAL (PS0,A)
$$NEWARRVAL (P)S1,B)
$$NEWAR)0RVAL (PS2,C)
)P$$NEWARRVAL (PS3,)pD)
$$NEWARRVA*L (PS4,E)
$$N*0EWARRVAL (PS5,F)*P
$$NEWARRVAL (*pPS6,G)
$$NEWA+RRVAL (PS7,H)
VAL (PS7,H)
p}` !0* $$NEWVAL ( POW,A)NEWVAL (p)` <0#g
IF1,<P<PRINTX %"X$PRG" RM<pS-11 ONLY, IGNORE D BY RMS-20>
p*@ =0#o
IF1,<P=PRINTX %"X$PRJ" RM=pS-11 ONLY, IGNORE D BY RMS-20>
p> p* $$NEWVAL ( PSY,A)NEWVAL (p{ "0* $$NEWVAL ( PWL,A)NEWVAL (pY@ '0*; $$NEWVAL ( REF,A)NEWVAL (p +@ C0$
IF1,<PCPRINTX %"X$SBN" RMCpS-11 ONLY, IGNORE D BY RMS-20>
p @ +P*s
$$NE+pWARRVAL (SZ0,A)
$$NEWARRVAL (S,0Z1,B)
$$NEWAR,PRVAL (SZ2,C)
,p$$NEWARRVAL (SZ3,-D)
$$NEWARRVA-0L (SZ4,E)
$$N-PEWARRVAL (SZ5,F)-p
$$NEWARRVAL (.SZ6,G)
$$NEWA.0RRVAL (SZ7,H)
VAL (SZ7,H)
p ` >0#w
IF1,<P>PRINTX %"X$SYS" RM>pS-11 ONLY, IGNORE D BY RMS-20>
p5{ B0$
IF1,<PBPRINTX %"X$VOL" RMBpS-11 ONLY, IGNORE D BY RMS-20>
p=I A0$
IF1,<PAPRINTX %"X$WLD" RMApS-11 ONLY, IGNORE D BY RMS-20>
pD. D0$'
IF1,<PDPRINTX %"X$XBY" RMDpS-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 <0B>,<
$$MAPADD P(B,$$ADDR)
SpYN SX$$RT,$$SET
>
IFB <B0>,<SYN SX$$CT,$$SPET>
Cp$$COD==XB$A
X$$BLN==XA$SXA 0
$$CUPRR (X,BLN)
$$CURR (X,BID)
$$CURR (X,RS10)
$$CURR (X,NXPT)
$p$CURR (X,CDT)
$$CURR (X,RDT)
0 $$CURR (X,EDT)
P
$$CURpR (X,PSY)
$$CURR (X,POW)
$$C0URR (X,PGR)
$$PCURR (X,PWL)
p
$$CURR (X,RS2)
$$CURR 0(X,AID)
$$CURRP (X,BKZ)
p
$$CURR (X,IFL)
$$CURR (X,D0FL)
$$CURR (X,PDTP)
$$CURR (Xp,FLG)
$$CURR (X,IAN)
$$CURR 0(X,DAN)
$$CURRP (X,LAN)
$$CURpR (X,REF)
$$CURR (X,KNM)
$$C0URR (X,RX0)
$$PCURR (X,RX1)
$p$CURR (X,RX2)
$$CURR (X,RX3)
0 $$CURR (X,RX4)
P $$CURR (X,RX5)
$$CURR (X,PS0)
$$CURR (X,PS10)
$$CURR (X,PSP2)
$$CURR (X,PpS3)
$$CURR (X,PS4)
$$CURR (X0,PS5)
$$CURR (PX,PS6)
$$CURR p(X,PS7)
$$CURR (X,SZ0)
$$CUR0R (X,SZ1)
$$CUPRR (X,SZ2)
$$CpURR (X,SZ3)
$$ CURR (X,SZ4)
$ 0$CURR (X,SZ5)
P$$CURR (X,SZ6)
p $$CURR (X,SZ7)
$$CU 0RR (X,RS6)
$$C PURR (X,NOK)
$$ pCURR (X,NOA)
$ $CURR (X,RS7)
0$$CURR (X,RS8)
P $$CURR (X,RS9)
p
; ONLY THE NXT FIEL 0D IS SETTABLE
S SETTABLE
qI .p,s
$$NEW/VAL(BLN,X$$BLN) /0
IFNDEF $$ADDR/P,<
<$$SET(BI/pD)>_^D18 ! <$$SET0(BLN)>
<$$SET(00COD)>_^D18 ! <$$S0PET(NXT)>
IFE <0pC$$COD-XB$DAT>,<
<$$SET(CDT)>
<$$SET(RDT)>
<$$SET(EDT)>
>
IFE <C$$C2OD-XB$PRO>,<
20<$$SET(PSY)>
2P<$$SET(POW)>
2p<$$SET(PGR)>
3<$$SET(PWL)>
>30
IFE <C$$COD-X3PB$ALL>,<
<$$S3pET(AID)>_^D9 ! <$4$SET(BKZ)>
EX40P 0,0,0
>
I4PFE <C$$COD-XB$KEY4p>,<
<$$SET(DT5P)>_^D18 ! <$$SET50(FLG)>
<$$SET5P(IAN)>_^D27 ! <$$5pSET(DAN)>_^D18 ! 6<$$SET(LAN)>_^D9 60! <$$SET(REF)>
6P <$$SET(IFL)>_^D6p18 ! <$$SET(DFL)>7
<$$SET(KNM)>70
EXP 0,0,0,0,7P0
<$$SET(PS0)7p>_^D18 ! <$$SET(S8Z0)>
<$$SET(P80S1)>_^D18 ! <$$SE8PT(SZ1)>
<$$SE8pT(PS2)>_^D18 ! <$9$SET(SZ2)>
<$90$SET(PS3)>_^D18 !9P <$$SET(SZ3)>
9p <$$SET(PS4)>^D1:8 ! <$$SET(SZ4)>
<$$SET(PS5)>_:P^D18 ! <$$SET(SZ5:p)>
<$$SET(PS6;)>_^D18 ! <$$SET(;0SZ6)>
<$$SET(;PPS7)>_^D18 ! <$$S;pET(SZ7)>
>
<IFE <C$$COD-XB$SU<0M>,<
<$$SET(N<POK)>_^D9 ! <$$SET<p(NOA)>
EXP 0,=0,0
>
IFE=0 <C$$COD-XB$CFG>,=P<
EXP 0,0,0,0=p,0,0
>
>
> IFDEF $$ADDR,<
>0
; STO>PRE COMMON HEADER >pFOR ALL XAB TYPES?
$$SET(BID)
?0 $$SET(RS1)
$$?PSET(COD)
$$SET?p(NXT)
; STOR@E REST OF XAB DEP@0ENDING ON IT'S TY@PPE
IFE <C$$COD@p-XB$DAT>,<
$$SAET(BLN)
$$SET(A0CDT)
$$SET(RDTAP)
$$SET(EDT)
Ap >
IFE <C$$BCOD-XB$PRO>,<
B0$$SET(BLN)
$$SBPET(PSY)
$$SET(BpPOW)
$$SET(PGRC)
$$SET(PWL)
C0 >
IFE <C$$CPCOD-XB$ALL>,<
Cp$$SET(BLN)
$$SDET(RS2)
$$SET(D0AID)
$$SET(BKZDP)
>
IFE <DpC$$COD-XB$KEY>,<
$$SET(BLN)
E0$$SET(IFL)
$$SEPET(DFL)
$$SET(EpDTP)
$$SET(FLGF)
$$SET(IAN)
F0 $$SET(DAN)
$FP$SET(LAN)
$$SEFpT(REF)
$$SET(KGNM)
$$SET(RX0)G0
$$SET(RX1)
GP $$SET(RX2)
$$GpSET(RX3)
$$SETH(RX4)
$$SET(RXH05)
$$SET(PS0HP)
$$SET(PS1)
Hp $$SET(PS2)
$I$SET(PS3)
$$SEI0T(PS4)
$$SET(PIPS5)
$$SET(PS6)Ip
$$SET(PS7)
J
$$SET(SZ0)
J0$$SET(SZ1)
$$SJPET(SZ2)
$$SET(JpSZ3)
$$SET(SZ4K)
$$SET(SZ5)
K0 $$SET(SZ6)
$KP$SET(SZ7)
>
Kp
IFE <C$$COD-XBL$SUM>,<
$$SET(L0BLN)
$$SET(RS6LP)
$$SET(NOK)
Lp $$SET(NOA)
$M$SET(RS7)
$$SEM0T(RS8)
$$SET(RMPS9)
>
IFE <MpC$$COD-XB$CFG>,<
$$SET(BLN)
N0>
PURGE $$ADDR
>
qN@ v0/5 $$ZERO(AvP,%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 qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq
IFNB <9pB>,<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` '0"=
$$CODE('P.SUBAS,.SUCTR,A, B)
.SUCTR,A, V P!1
FB$ALL=p=FB$GET+FB$PUT+FB$DEL+FB$UPD+FB$TR0N
$$ASSUMEP(FB$SEQ,0) ;FILEp ORG MUST BE GTR ZERO
$$ASSUME(R0B$SEQ,0,0) ;RECOPRD ACCESS MUST STpART AT ZERO
$$ASSUME(XB$KEY,0,0)0 ;KEY XAB MUST BPE FIRST
$$ASSUMpE(XB$STG,0,0) ;STRING DATA-TYPE S HOULD BE ZERO
$*2P $+P $;P $iP $kP $lqP %[yP %i<P ,\Y ("C
$$CODE((0.ERBAS,.ERCTR,A, B)
.ERCTR,A,4[R $P"7
IF2$p,<
C$MAX==XX$MA%X
JS$MIN==100%00
JS$MAX==1000+%PXX$MAX
OPDEF RM%p$MIN [104B8+1000]& ;MINIMUM JSYS V&0ALUE
OPDEF RM$M&PAX [104B8+1000+XX&p$MAX]
>
MAX]
>
4\Q "!
C$0A==XX$MAX
P DEFINE $%A(A)<p
IFE <RMS$DJ+RMS$DY>,< 0 ;a506
IPFN TOP$10,<PUSHJ p17,RMS$10##+C$A>
IFN TOP0$20,<104B8+1000+CP$A>
> p ;a506
IFN RMS$DY,<PUSHJ0 17,@$$A##>
P IFN RMS$DJ,<PpUSHJ 17,%$A##>
>
DE 0FINE $A(.BLK1,.E PRRAD,.BLK2),<
I pFB <.BLK1>,<IF1,< PRINTX %ARGBLK AD 0DRESS OMITTED ON PA MACRO>>
XMOV pEI 1, .BLK1
IFI DN <A><RENAME>,< 0
IF PB <.BLK2>,<IF1,<P pRINTX %NEWFAB ADD RESS OMITTED ON R 0ENAME MACRO>>
X PMOVEI 2, .BLK2>
p IFDIF <A><RENAM E>,<
IFNB <.BLK 02>,<IF1,<PRINTX % PMORE THAN 2 ARGS pDETECTED IN A MA!CRO>>>
$%A
IFE <RMS$DY+RMS!P$DJ>,<
IFNB <.!pERRAD>,<JUMP 17,."ERRAD>
IFB <.E"0RRAD>,<JUMP 16,.+"P1> >
IFN <RMS"p$DY+RMS$DJ>,< IFN#B <.ERRAD>,<
C#0AIL 2,300000 #P
PUSHJ 17,.E#pRRAD >>
$ >
XX$MAX==XX $MAX+1
X==XX5T P!=
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/I
SETZM x0A
MOVEI 2,AxP
MOVEI 1,1(2xp)
HRLI 1,A y
BLT 1,B-1(2 )
T 1,B-1(2 Ky (1t
IHFE <RMS$DJ+RMS$DYh>,< ;a506
IFN TOP$10, (<PUSHJ 17,RMS$10# H#+C$CLOSE>
h IFN TOP$20,<10 4B8+1000+C$CLOSE> (
> H ;a506
IFN hRMS$DY,<PUSHJ 17, @$$CLOSE##>
( IFN RMS$DJ,<PU HSHJ 17,%$CLOSE##>
LOSE##> {W hh6b
IiFE <RMS$DJ+RMS$DYi(>,< ;a506
iH IFN TOP$10,ih<PUSHJ 17,RMS$10#j#+C$CONNECT>
j( IFN TOP$20,<jH104B8+1000+C$CONNjhECT>
> k ;a506
k(IFN RMS$DY,<PUSHJkH 17,@$$CONNECT##>kh
IFN RMS$lDJ,<PUSHJ 17,%$COl(NNECT##>
NECT##>
)0 t(8
I (FE <RMS$DJ+RMS$DY H>,< ;a506
h IFN TOP$10,<PUSHJ 17,RMS$10#(#+C$CREATE>
H IFN TOP$20,<1h04B8+1000+C$CREATE>
> ( ;a506
IFHN RMS$DY,<PUSHJ 1h7,@$$CREATE##>
IFN RMS$DJ,(<PUSHJ 17,%$CREAT E##>
EAT$XZ 8r
I (FE <RMS$DJ+RMS$DY H>,< ;a506
h IFN TOP$10,
<PUSHJ 17,RMS$10#
(#+C$DEBUG>
H IFN TOP$20,<10
h4B8+1000+C$DEBUG>
( ;a5>
HRMS$IFN<USHJ 17,
IFN RMS$DJ,<PU(SHJ 17,%$DEBUG##>
EBUG##>$[ G(4T
IGHFE <RMS$DJ+RMS$DYGh>,< ;a506
H IFN TOP$10,H(<PUSHJ 17,RMS$10#HH#+C$DELETE>
Hh IFN TOP$20,<1I04B8+1000+C$DELETI(E>
> IH ;a506
J( IFIhN RMS$DY,<PUSHJ 1J7,@$$DELETE##>
IFN RMS$DJ,JH<PUSHJ 17,%$DELET E##>
LET% q tH7@
IthFE <RMS$DJ+RMS$DYu>,< ;a506
u( IFN TOP$10,uH<PUSHJ 17,RMS$10#uh#+C$DISCONNECT>
IFN TOP$2v(0,<104B8+1000+C$DvHISCONNECT>
w vh > ;a506
IFN RMS$DY,w(<PUSHJ 17,@$$DISCwHONNECT##>
wh IFN RMS$DJ,<PUSHxJ 17,%$DISCONNECT ##>
NECT% x 8<8
IChFE <RMS$DJ+RMS$DYD>,< ;a506
D( IFN TOP$10,DH<PUSHJ 17,RMS$10#Dh#+C$DISPLAY>
E IFN TOP$20,<E(104B8+1000+C$DISPEHLAY>
> Eh ;a506
FIFN RMS$DY,<PUSHJF( 17,@$$DISPLAY##>FH
IFN RMS$FhDJ,<PUSHJ 17,%$DIGSPLAY##>
PLAY##>
-m HDZ
IH(FE <RMS$DJ+RMS$DYHH>,< ;a506
Hh IFN TOP$10,I<PUSHJ 17,RMS$10#I(#+C$ENTER>
IH IFN TOP$20,<10Ih4B8+1000+C$ENTER>J
> J( ;a506
IFN JHRMS$DY,<PUSHJ 17,Jh@$$ENTER##>
K IFN RMS$DJ,<PUK(SHJ 17,%$ENTER##>
NTER##>.(9 O=
IO(FE <RMS$DJ+RMS$DYOH>,< ;a506
Oh IFN TOP$10,P<PUSHJ 17,RMS$10#P(#+C$ERASE>
PH IFN TOP$20,<10Ph4B8+1000+C$ERASE>Q
> Q( ;a506
IFN QHRMS$DY,<PUSHJ 17,Qh@$$ERASE##>
R IFN RMS$DJ,<PUR(SHJ 17,%$ERASE##>
RASE##>/
IS(FE <RMS$DJ+RMS$DYSH>,< ;a506
Sh IFN TOP$10,T<PUSHJ 17,RMS$10#T(#+C$EXTEND>
TH IFN TOP$20,<1Th04B8+1000+C$EXTENUD>
> U( ;a506
V IFUHN RMS$DY,<PUSHJ 1Uh7,@$$EXTEND##>
IFN RMS$DJ,V(<PUSHJ 17,%$EXTEN D##>
TEN5R R(5,
IRHFE <RMS$DJ+RMS$DYRh>,< ;a506
S IFN TOP$10,S(<PUSHJ 17,RMS$10#SH#+C$FIND>
T( Sh IFN TOP$20,<104TB8+1000+C$FIND>
> ;THa506
IFN RMThS$DY,<PUSHJ 17,@$U$FIND##>
U(IFN RMS$DJ,<PUSHJUH 17,%$FIND##>
FIND##>
5M9 !H:&
I!hFE <RMS$DJ+RMS$DY">,< ;a506
"( IFN TOP$10,"H<PUSHJ 17,RMS$10#"h#+C$FLUSH>
# IFN TOP$20,<10#(4B8+1000+C$FLUSH>#H
> #h ;a506
IFN $RMS$DY,<PUSHJ 17,$(@$$FLUSH##>
$H IFN RMS$DJ,<PU$hSHJ 17,%$FLUSH##>
LUSH##>6)2 Z=j
IZ(FE <RMS$DJ+RMS$DYZH>,< ;a506
Zh IFN TOP$10,[<PUSHJ 17,RMS$10#[(#+C$FREE>
\ [H IFN TOP$20,<104[hB8+1000+C$FREE>
> ;\(a506
IFN RM\HS$DY,<PUSHJ 17,@$\h$FREE##>
]IFN RMS$DJ,<PUSHJ]( 17,%$FREE##>
FREE##>
<] &(2L
I&HFE <RMS$DJ+RMS$DY&h>,< ;a506
' IFN TOP$10,'(<PUSHJ 17,RMS$10#'H#+C$GET>
'h IFN TOP$20,<104B(8+1000+C$GET>
(( > ;a5(H06
IFN RMS$(hDY,<PUSHJ 17,@$$G)ET##>
IFN)( RMS$DJ,<PUSHJ 17)H,%$GET##>
$GET##>
l\y ,H;
I,hFE <RMS$DJ+RMS$DY->,< ;a506
-( IFN TOP$10,-H<PUSHJ 17,RMS$10#-h#+C$MESSAGE>
. IFN TOP$20,<.(104B8+1000+C$MESS.HAGE>
> .h ;a506
/IFN RMS$DY,<PUSHJ/( 17,@$$MESSAGE##>/H
IFN RMS$/hDJ,<PUSHJ 17,%$ME0SSAGE##>
SAGE##>
u{2 8(;^
I8HFE <RMS$DJ+RMS$DY8h>,< ;a506
9 IFN TOP$10,9(<PUSHJ 17,RMS$10#9H#+C$NOMESSAGE>
9h IFN TOP$20:,<104B8+1000+C$NO:(MESSAGE>
>:H ;a506
:h IFN RMS$DY,<P;USHJ 17,@$$NOMESS;(AGE##>
IF;HN RMS$DJ,<PUSHJ 1;h7,%$NOMESSAGE##>
SAGE##> w
Ip(FE <RMS$DJ+RMS$DYpH>,< ;a506
ph IFN TOP$10,q<PUSHJ 17,RMS$10#q(#+C$NXTVOL>
qH IFN TOP$20,<1qh04B8+1000+C$NXTVOrL>
> r( ;a506
s IFrHN RMS$DY,<PUSHJ 1rh7,@$$NXTVOL##>
IFN RMS$DJ,s(<PUSHJ 17,%$NXTVO L##>
TVO~ 7 1
I0FE <RMS$DJ+RMS$DYp>,< ;a506
P IFN TOP$10,0<PUSHJ 17,RMS$10#p#+C$OPEN>
( IFN TOP$20,<1040B8+1000+C$OPEN>
> ;Ha506
IFN RMhS$DY,<PUSHJ 17,@$$OPEN##>
(IFN RMS$DJ,<PUSHJH 17,%$OPEN##>
OPEN##>
Y 2C*
I2(FE <RMS$DJ+RMS$DY2H>,< ;a506
2h IFN TOP$10,3<PUSHJ 17,RMS$10#3(#+C$PARSE>
3H IFN TOP$20,<103h4B8+1000+C$PARSE>4
> 4( ;a506
IFN 4HRMS$DY,<PUSHJ 17,4h@$$PARSE##>
5 IFN RMS$DJ,<PU5(SHJ 17,%$PARSE##>
ARSE##>] 1(3$
I1HFE <RMS$DJ+RMS$DY1h>,< ;a506
2 IFN TOP$10,2(<PUSHJ 17,RMS$10#2H#+C$PUT>
2h IFN TOP$20,<104B38+1000+C$PUT>
3( > ;a53H06
IFN RMS$3hDY,<PUSHJ 17,@$$P4UT##>
IFN4( RMS$DJ,<PUSHJ 174H,%$PUT##>
$PUT##>
X2 A"
I(FE <RMS$DJ+RMS$DYH>,< ;a506
h IFN TOP$10,<PUSHJ 17,RMS$10#(#+C$READ>
H IFN TOP$20,<104hB8+1000+C$READ>
> ;(a506
IFN RMHS$DY,<PUSHJ 17,@$h$READ##>
IFN RMS$DJ,<PUSHJ( 17,%$READ##>
READ##>
[ 9L
I(FE <RMS$DJ+RMS$DYH>,< ;a506
h IFN TOP$10,<PUSHJ 17,RMS$10#(#+C$RELEASE>
H IFN TOP$20,<h104B8+1000+C$RELEASE>
> ( ;a506
HIFN RMS$DY,<PUSHJh 17,@$$RELEASE##>
IFN RMS$(DJ,<PUSHJ 17,%$REHLEASE##>
EASE##>
[7 ^F
I^(FE <RMS$DJ+RMS$DY^H>,< ;a506
^h IFN TOP$10,_<PUSHJ 17,RMS$10#_(#+C$REMOVE>
_H IFN TOP$20,<1_h04B8+1000+C$REMOV`E>
> `( ;a506
a IF`HN RMS$DY,<PUSHJ 1`h7,@$$REMOVE##>
IFN RMS$DJ,a(<PUSHJ 17,%$REMOV E##>
MOV[P iFb
Ii(FE <RMS$DJ+RMS$DYiH>,< ;a506
ih IFN TOP$10,j<PUSHJ 17,RMS$10#j(#+C$RENAME>
jH IFN TOP$20,<1jh04B8+1000+C$RENAMkE>
> k( ;a506
l IFkHN RMS$DY,<PUSHJ 1kh7,@$$RENAME##>
IFN RMS$DJ,l(<PUSHJ 17,%$RENAM E##>
NAM]t {?r
I{(FE <RMS$DJ+RMS$DY{H>,< ;a506
{h IFN TOP$10,|<PUSHJ 17,RMS$10#|(#+C$REWIND>
|H IFN TOP$20,<1|h04B8+1000+C$REWIN}D>
> }( ;a506
~ IF}HN RMS$DY,<PUSHJ 1}h7,@$$REWIND##>
IFN RMS$DJ,~(<PUSHJ 17,%$REWIN D##>
WIN X9 =D
I=(FE <RMS$DJ+RMS$DY=H>,< ;a506
=h IFN TOP$10,><PUSHJ 17,RMS$10#>(#+C$SEARCH>
>H IFN TOP$20,<1>h04B8+1000+C$SEARC?H>
> ?( ;a506
@ IF?HN RMS$DY,<PUSHJ 1?h7,@$$SEARCH##>
IFN RMS$DJ,@(<PUSHJ 17,%$SEARC H##>
ARC 1 Az
I (FE <RMS$DJ+RMS$DY H>,< ;a506
h IFN TOP$10, <PUSHJ 17,RMS$10# (#+C$SPACE>
H IFN TOP$20,<10 h4B8+1000+C$SPACE>
> ( ;a506
IFN HRMS$DY,<PUSHJ 17, h@$$SPACE##>
IFN RMS$DJ,<PU (SHJ 17,%$SPACE##>
PACE##>&-7 ](6
I]HFE <RMS$DJ+RMS$DY]h>,< ;a506
^ IFN TOP$10,^(<PUSHJ 17,RMS$10#^H#+C$TRUNCATE>
^h IFN TOP$20,_<104B8+1000+C$TRU_(NCATE>
> _H ;a506
_h IFN RMS$DY,<PUS`HJ 17,@$$TRUNCATE`(##>
IFN R`HMS$DJ,<PUSHJ 17,%`h$TRUNCATE##>
CATE##>
. <(3|
I<HFE <RMS$DJ+RMS$DY<h>,< ;a506
= IFN TOP$10,=(<PUSHJ 17,RMS$10#=H#+C$UPDATE>
=h IFN TOP$20,<1>04B8+1000+C$UPDAT>(E>
> >H ;a506
?( IF>hN RMS$DY,<PUSHJ 1?7,@$$UPDATE##>
IFN RMS$DJ,?H<PUSHJ 17,%$UPDAT E##>
DAT.K e>B
Ie(FE <RMS$DJ+RMS$DYeH>,< ;a506
eh IFN TOP$10,f<PUSHJ 17,RMS$10#f(#+C$UTLINT>
fH IFN TOP$20,<1fh04B8+1000+C$UTLINgT>
> g( ;a506
h IFgHN RMS$DY,<PUSHJ 1gh7,@$$UTLINT##>
IFN RMS$DJ,h(<PUSHJ 17,%$UTLIN T##>
LIN<: @J
I(FE <RMS$DJ+RMS$DYH>,< ;a506
h IFN TOP$10,<PUSHJ 17,RMS$10#(#+C$WAIT>
H IFN TOP$20,<104hB8+1000+C$WAIT>
> ;(a506
IFN RMHS$DY,<PUSHJ 17,@$h$WAIT##>
IFN RMS$DJ,<PUSHJ ( 17,%$WAIT##>
WAIT##>
>*: 'BR
I'(FE <RMS$DJ+RMS$DY'H>,< ;a506
'h IFN TOP$10,(<PUSHJ 17,RMS$10#((#+C$WRITE>
(H IFN TOP$20,<10(h4B8+1000+C$WRITE>)
> )( ;a506
IFN )HRMS$DY,<PUSHJ 17,)h@$$WRITE##>
* IFN RMS$DJ,<PU*(SHJ 17,%$WRITE##>
RITE##> e|r 2.
IFB <A (>,<IF1,<PRINTX %A HRGBLK ADDRESS OMI hTTED ON CLOSE MAC RO>>
XMOVEI 1, (A
IFIDN <CLOSE H><RENAME>,< h
IFB <C>!,<IF1,<PRINTX %NE!(WFAB ADDRESS OMIT!HTED ON RENAME MAC!hRO>>
XMOVEI 2, "C>
IFDIF <CLOS"(E><RENAME>,<
IF"HNB <C>,<IF1,<PRI"hNTX %MORE THAN 2 #ARGS DETECTED IN #(CLOSE MACRO>>>
#H$%CLOSE
IFE #h<RMS$DY+RMS$DJ>,<$
IFNB <B>,<JU$(MP 17,B>
IFB $H<B>,<JUMP 16,.+1$h> >
IFN <RMS$%DY+RMS$DJ>,< IFNB%( <B>,<
CAIL 2%H,300000
%h PUSHJ 17,B >>
>> }kR lh7
IFB <Am>,<IF1,<PRINTX %Am(RGBLK ADDRESS OMImHTTED ON CONNECT MmhACRO>>
XMOVEI 1n, A
IFIDN <CONn(NECT><RENAME>,< nH
IFB nh<C>,<IF1,<PRINTXo %NEWFAB ADDRESS o(OMITTED ON RENAMEoH MACRO>>
XMOVEIoh 2, C>
IFDIF <pCONNECT><RENAME>,p(<
IFNB <C>,<IFpH1,<PRINTX %MORE TphHAN 2 ARGS DETECTqED IN CONNECT MACq(RO>>>
$%CONNECTqH
IFE <RMS$DYqh+RMS$DJ>,<
IFNrB <B>,<JUMP 17,r(B>
IFB <B>,<JrHUMP 16,.+1> >
rh IFN <RMS$DY+RMS$sDJ>,< IFNB <B>,<s(
CAIL 2,300000sH
PUSHJ sh17,B >>
>>
X: h8T
IFB <A>,<IF1,<PRINTX %A(RGBLK ADDRESS OMIHTTED ON CREATE MAhCRO>>
XMOVEI 1, A
IFIDN <CREA(TE><RENAME>,< H
IFB <hC>,<IF1,<PRINTX %NEWFAB ADDRESS OM(ITTED ON RENAME MHACRO>>
XMOVEI 2h, C>
IFDIF <CREATE><RENAME>,<
( IFNB <C>,<IF1,<HPRINTX %MORE THANh 2 ARGS DETECTED IN CREATE MACRO>>(>
$%CREATE
H IFE <RMS$DY+RMS$hDJ>,<
IFNB <B >,<JUMP 17,B>
( IFB <B>,<JUMP 1 H6,.+1> >
IFN h<RMS$DY+RMS$DJ>,<
IFNB <B>,<
C
(AIL 2,300000
H
PUSHJ 17,B >>
,-3 h9,
IFB <A>,<IF1,<PRINTX %A(RGBLK ADDRESS OMIHTTED ON DEBUG MAChRO>>
XMOVEI 1, A
IFIDN <DEBUG(><RENAME>,< H
IFB <C>h,<IF1,<PRINTX %NEWFAB ADDRESS OMIT(TED ON RENAME MACHRO>>
XMOVEI 2, hC>
IFDIF <DEBUG><RENAME>,<
IF(NB <C>,<IF1,<PRIHNTX %MORE THAN 2 hARGS DETECTED IN DEBUG MACRO>>>
($%DEBUG
IFE H<RMS$DY+RMS$DJ>,<h
IFNB <B>,<JUMP 17,B>
IFB (<B>,<JUMP 16,.+1H> >
IFN <RMS$hDY+RMS$DJ>,< IFNB <B>,<
CAIL 2(,300000
H PUSHJ 17,B >>
>> -I: K5
IFB <AK(>,<IF1,<PRINTX %AKHRGBLK ADDRESS OMIKhTTED ON DELETE MALCRO>>
XMOVEI 1,L( A
IFIDN <DELELHTE><RENAME>,< Lh
IFB <MC>,<IF1,<PRINTX %M(NEWFAB ADDRESS OMMHITTED ON RENAME MMhACRO>>
XMOVEI 2N, C>
IFDIF <DEN(LETE><RENAME>,<
NH IFNB <C>,<IF1,<NhPRINTX %MORE THANO 2 ARGS DETECTED O(IN DELETE MACRO>>OH>
$%DELETE
Oh IFE <RMS$DY+RMS$PDJ>,<
IFNB <BP(>,<JUMP 17,B>
PH IFB <B>,<JUMP 1Ph6,.+1> >
IFN Q<RMS$DY+RMS$DJ>,<Q( IFNB <B>,<
CQHAIL 2,300000 Qh
PUSHJ 17,B >>
N8w xH7~
IFB <Axh>,<IF1,<PRINTX %AyRGBLK ADDRESS OMIy(TTED ON DISCONNECyHT MACRO>>
XMOVEyhI 1, A
IFIDN <zDISCONNECT><RENAMz(E>,<
IFB <C>,<IF1,<zhPRINTX %NEWFAB AD{DRESS OMITTED ON {(RENAME MACRO>>
{HXMOVEI 2, C>
I{hFDIF <DISCONNECT>|<RENAME>,<
IFNB|( <C>,<IF1,<PRINT|HX %MORE THAN 2 AR|hGS DETECTED IN DI}SCONNECT MACRO>>>}(
$%DISCONNECT }H
IFE <RMS$DY+R}hMS$DJ>,<
IFNB ~<B>,<JUMP 17,B>~(
IFB <B>,<JUM~HP 16,.+1> >
I~hFN <RMS$DY+RMS$DJ>,< IFNB <B>,<
( CAIL 2,300000 H
PUSHJ 17h,B >>
>>
N< GH<t
IFB <AGh>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIH(TTED ON DISPLAY MHHACRO>>
XMOVEI 1Hh, A
IFIDN <DISIPLAY><RENAME>,< I(
IFB IH<C>,<IF1,<PRINTXIh %NEWFAB ADDRESS JOMITTED ON RENAMEJ( MACRO>>
XMOVEIJH 2, C>
IFDIF <JhDISPLAY><RENAME>,K<
IFNB <C>,<IFK(1,<PRINTX %MORE TKHHAN 2 ARGS DETECTKhED IN DISPLAY MACLRO>>>
$%DISPLAYL(
IFE <RMS$DYLH+RMS$DJ>,<
IFNLhB <B>,<JUMP 17,MB>
IFB <B>,<JM(UMP 16,.+1> >
MH IFN <RMS$DY+RMS$MhDJ>,< IFNB <B>,<N
CAIL 2,300000N(
PUSHJ NH17,B >>
>>
vI9 KhE
IFB <AL>,<IF1,<PRINTX %AL(RGBLK ADDRESS OMILHTTED ON ENTER MACLhRO>>
XMOVEI 1, MA
IFIDN <ENTERM(><RENAME>,< MH
IFB <C>Mh,<IF1,<PRINTX %NENWFAB ADDRESS OMITN(TED ON RENAME MACNHRO>>
XMOVEI 2, NhC>
IFDIF <ENTEOR><RENAME>,<
IFO(NB <C>,<IF1,<PRIOHNTX %MORE THAN 2 OhARGS DETECTED IN PENTER MACRO>>>
P($%ENTER
IFE PH<RMS$DY+RMS$DJ>,<Ph
IFNB <B>,<JUQMP 17,B>
IFB Q(<B>,<JUMP 16,.+1QH> >
IFN <RMS$QhDY+RMS$DJ>,< IFNBR <B>,<
CAIL 2R(,300000
RH PUSHJ 17,B >>
>> r Rh=L
IFB <AS>,<IF1,<PRINTX %AS(RGBLK ADDRESS OMISHTTED ON ERASE MACShRO>>
XMOVEI 1, TA
IFIDN <ERASET(><RENAME>,< TH
IFB <C>Th,<IF1,<PRINTX %NEUWFAB ADDRESS OMITU(TED ON RENAME MACUHRO>>
XMOVEI 2, UhC>
IFDIF <ERASVE><RENAME>,<
IFV(NB <C>,<IF1,<PRIVHNTX %MORE THAN 2 VhARGS DETECTED IN WERASE MACRO>>>
W($%ERASE
IFE WH<RMS$DY+RMS$DJ>,<Wh
IFNB <B>,<JUXMP 17,B>
IFB X(<B>,<JUMP 16,.+1XH> >
IFN <RMS$XhDY+RMS$DJ>,< IFNBY <B>,<
CAIL 2Y(,300000
YH PUSHJ 17,B >>
>> FI7 VhEl
IFB <AW>,<IF1,<PRINTX %AW(RGBLK ADDRESS OMIWHTTED ON EXTEND MAWhCRO>>
XMOVEI 1,X A
IFIDN <EXTEX(ND><RENAME>,< XH
IFB <XhC>,<IF1,<PRINTX %YNEWFAB ADDRESS OMY(ITTED ON RENAME MYHACRO>>
XMOVEI 2Yh, C>
IFDIF <EXZTEND><RENAME>,<
Z( IFNB <C>,<IF1,<ZHPRINTX %MORE THANZh 2 ARGS DETECTED [IN EXTEND MACRO>>[(>
$%EXTEND
[H IFE <RMS$DY+RMS$[hDJ>,<
IFNB <B\>,<JUMP 17,B>
\( IFB <B>,<JUMP 1\H6,.+1> >
IFN \h<RMS$DY+RMS$DJ>,<] IFNB <B>,<
C](AIL 2,300000 ]H
PUSHJ 17,B >>
.Ht z0/u
$$ISOL(zPB)
IFE <T$$zpSZ-^D18>,<
{0{ IFE T$$PS,<
HRRZ A,T$$OF+{PC
T$$SZ==0
>
IFE| <T$$PS-^D18>,< |0
HLRZ A,T$$OF|P+C
T$$SZ==0 |p
>
>
IF}E <T$$SZ-^D36>,< }0
MOVE A,T$$O}PF+C
T$$SZ==0 }p
>
IFN T$$SZ~,<
LDB A,[~0<T$$PS>B5 ! <T$$S~PZ>B11 ! <T$$OF+C >]
>
$$OF+C L[ yp/O [F$$A+B] [F$$A+B] Mi V5f
IFB <AV(>,<IF1,<PRINTX %AVHRGBLK ADDRESS OMIVhTTED ON FIND MACRWO>>
XMOVEI 1, W(A
IFIDN <FIND><WHRENAME>,< Wh
IFB <C>,<XIF1,<PRINTX %NEWFX(AB ADDRESS OMITTEXHD ON RENAME MACROXh>>
XMOVEI 2, CY>
IFDIF <FIND><Y(RENAME>,<
IFNB YH<C>,<IF1,<PRINTXYh %MORE THAN 2 ARGZS DETECTED IN FINZ(D MACRO>>>
$%FIZHND
IFE <RMS$ZhDY+RMS$DJ>,<
I[FNB <B>,<JUMP 17[(,B>
IFB <B>,[H<JUMP 16,.+1> > [h
IFN <RMS$DY+RM\S$DJ>,< IFNB <B>\(,<
CAIL 2,3000\H00
PUSH\hJ 17,B >>
>>
f\t %(:`
IFB <A%H>,<IF1,<PRINTX %A%hRGBLK ADDRESS OMI&TTED ON FLUSH MAC&(RO>>
XMOVEI 1, &HA
IFIDN <FLUSH&h><RENAME>,< '
IFB <C>'(,<IF1,<PRINTX %NE'HWFAB ADDRESS OMIT'hTED ON RENAME MAC(RO>>
XMOVEI 2, ((C>
IFDIF <FLUS(HH><RENAME>,<
IF(hNB <C>,<IF1,<PRI)NTX %MORE THAN 2 )(ARGS DETECTED IN )HFLUSH MACRO>>>
)h$%FLUSH
IFE *<RMS$DY+RMS$DJ>,<*(
IFNB <B>,<JU*HMP 17,B>
IFB *h<B>,<JUMP 16,.+1+> >
IFN <RMS$+(DY+RMS$DJ>,< IFNB+H <B>,<
CAIL 2+h,300000
, PUSHJ 17,B >>
>> Y ]h>$
IFB <A^>,<IF1,<PRINTX %A^(RGBLK ADDRESS OMI^HTTED ON FREE MACR^hO>>
XMOVEI 1, _A
IFIDN <FREE><_(RENAME>,< _H
IFB <C>,<_hIF1,<PRINTX %NEWF`AB ADDRESS OMITTE`(D ON RENAME MACRO`H>>
XMOVEI 2, C`h>
IFDIF <FREE><aRENAME>,<
IFNB a(<C>,<IF1,<PRINTXaH %MORE THAN 2 ARGahS DETECTED IN FREbE MACRO>>>
$%FRb(EE
IFE <RMS$bHDY+RMS$DJ>,<
IbhFNB <B>,<JUMP 17c,B>
IFB <B>,c(<JUMP 16,.+1> > cH
IFN <RMS$DY+RMchS$DJ>,< IFNB <B>d,<
CAIL 2,3000d(00
PUSHdHJ 17,B >>
>>
.@ *3
IFB <A*(>,<IF1,<PRINTX %A*HRGBLK ADDRESS OMI*hTTED ON GET MACRO+>>
XMOVEI 1, A+(
IFIDN <GET><RE+HNAME>,< +h
IFB <C>,<IF,1,<PRINTX %NEWFAB,( ADDRESS OMITTED ,HON RENAME MACRO>>,h
XMOVEI 2, C>
IFDIF <GET><REN-(AME>,<
IFNB <C-H>,<IF1,<PRINTX %M-hORE THAN 2 ARGS D.ETECTED IN GET MA.(CRO>>>
$%GET .H
IFE <RMS$DY+RM.hS$DJ>,<
IFNB </B>,<JUMP 17,B>
IFB <B>,<JUMP/H 16,.+1> >
IF/hN <RMS$DY+RMS$DJ>0,< IFNB <B>,<
0( CAIL 2,300000 0H
PUSHJ 17,0hB >>
>>
&u thG4
PUSHuJ 17,$$RMS##
.vHREQUIRE SYS:RMSIN I
SHORD 6.<p 0H;<
IFB <A0h>,<IF1,<PRINTX %A1RGBLK ADDRESS OMI1(TTED ON MESSAGE M1HACRO>>
XMOVEI 11h, A
IFIDN <MES2SAGE><RENAME>,< 2(
IFB 2H<C>,<IF1,<PRINTX2h %NEWFAB ADDRESS 3OMITTED ON RENAME3( MACRO>>
XMOVEI3H 2, C>
IFDIF <3hMESSAGE><RENAME>,4<
IFNB <C>,<IF4(1,<PRINTX %MORE T4HHAN 2 ARGS DETECT4hED IN MESSAGE MAC5RO>>>
$%MESSAGE5(
IFE <RMS$DY5H+RMS$DJ>,<
IFN5hB <B>,<JUMP 17,6B>
IFB <B>,<J6(UMP 16,.+1> >
6H IFN <RMS$DY+RMS$6hDJ>,< IFNB <B>,<7
CAIL 2,3000007(
PUSHJ 7H17,B >>
>>
:}Y9 <(<
IFB <A<H>,<IF1,<PRINTX %A<hRGBLK ADDRESS OMI=TTED ON NOMESSAGE=( MACRO>>
XMOVEI=H 1, A
IFIDN <N=hOMESSAGE><RENAME>>,<
>(IFB <C>,<IF1,<PR>HINTX %NEWFAB ADDR>hESS OMITTED ON RE?NAME MACRO>>
XM?(OVEI 2, C>
IFD?HIF <NOMESSAGE><RE?hNAME>,<
IFNB <@C>,<IF1,<PRINTX %@(MORE THAN 2 ARGS @HDETECTED IN NOMES@hSAGE MACRO>>>
$A%NOMESSAGE
IA(FE <RMS$DY+RMS$DJAH>,<
IFNB <B>,Ah<JUMP 17,B>
IBFB <B>,<JUMP 16,B(.+1> >
IFN <RBHMS$DY+RMS$DJ>,< IBhFNB <B>,<
CAICL 2,300000
PUSHJ 17,B >>
;FMW sh?T
IFB <At>,<IF1,<PRINTX %At(RGBLK ADDRESS OMItHTTED ON NXTVOL MAthCRO>>
XMOVEI 1,u A
IFIDN <NXTVu(OL><RENAME>,< uH
IFB <uhC>,<IF1,<PRINTX %vNEWFAB ADDRESS OMv(ITTED ON RENAME MvHACRO>>
XMOVEI 2vh, C>
IFDIF <NXwTVOL><RENAME>,<
w( IFNB <C>,<IF1,<wHPRINTX %MORE THANwh 2 ARGS DETECTED xIN NXTVOL MACRO>>x(>
$%NXTVOL
xH IFE <RMS$DY+RMS$xhDJ>,<
IFNB <By>,<JUMP 17,B>
y( IFB <B>,<JUMP 1yH6,.+1> >
IFN yh<RMS$DY+RMS$DJ>,<z IFNB <B>,<
Cz(AIL 2,300000 zH
PUSHJ 17,B >>
?[@ 1V
IFB <A(>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIhTTED ON OPEN MACRO>>
XMOVEI 1, (A
IFIDN <OPEN><HRENAME>,< h
IFB <C>,<IF1,<PRINTX %NEWF(AB ADDRESS OMITTEHD ON RENAME MACROh>>
XMOVEI 2, C>
IFDIF <OPEN><(RENAME>,<
IFNB H<C>,<IF1,<PRINTXh %MORE THAN 2 ARGS DETECTED IN OPE(N MACRO>>>
$%OPHEN
IFE <RMS$hDY+RMS$DJ>,<
IFNB <B>,<JUMP 17(,B>
IFB <B>,H<JUMP 16,.+1> > h
IFN <RMS$DY+RMS$DJ>,< IFNB <B>(,<
CAIL 2,3000H00
PUSHhJ 17,B >>
>>
B,r 5hCd
IFB <A6>,<IF1,<PRINTX %A6(RGBLK ADDRESS OMI6HTTED ON PARSE MAC6hRO>>
XMOVEI 1, 7A
IFIDN <PARSE7(><RENAME>,< 7H
IFB <C>7h,<IF1,<PRINTX %NE8WFAB ADDRESS OMIT8(TED ON RENAME MAC8HRO>>
XMOVEI 2, 8hC>
IFDIF <PARS9E><RENAME>,<
IF9(NB <C>,<IF1,<PRI9HNTX %MORE THAN 2 9hARGS DETECTED IN :PARSE MACRO>>>
:($%PARSE
IFE :H<RMS$DY+RMS$DJ>,<:h
IFNB <B>,<JU;MP 17,B>
IFB ;(<B>,<JUMP 16,.+1;H> >
IFN <RMS$;hDY+RMS$DJ>,< IFNB< <B>,<
CAIL 2<(,300000
<H PUSHJ 17,B >>
>> C.@ 53^
IFB <A5(>,<IF1,<PRINTX %A5HRGBLK ADDRESS OMI5hTTED ON PUT MACRO6>>
XMOVEI 1, A6(
IFIDN <PUT><RE6HNAME>,< 6h
IFB <C>,<IF71,<PRINTX %NEWFAB7( ADDRESS OMITTED 7HON RENAME MACRO>>7h
XMOVEI 2, C>
IFDIF <PUT><REN8(AME>,<
IFNB <C8H>,<IF1,<PRINTX %M8hORE THAN 2 ARGS D9ETECTED IN PUT MA9(CRO>>>
$%PUT 9H
IFE <RMS$DY+RM9hS$DJ>,<
IFNB <:B>,<JUMP 17,B>
IFB <B>,<JUMP:H 16,.+1> >
IF:hN <RMS$DY+RMS$DJ>;,< IFNB <B>,<
;( CAIL 2,300000 ;H
PUSHJ 17,;hB >>
>>
J, hA\
IFB <A>,<IF1,<PRINTX %A(RGBLK ADDRESS OMIHTTED ON READ MACRhO>>
XMOVEI 1, A
IFIDN <READ><(RENAME>,< H
IFB <C>,<hIF1,<PRINTX %NEWFAB ADDRESS OMITTE(D ON RENAME MACROH>>
XMOVEI 2, Ch>
IFDIF <READ><RENAME>,<
IFNB (<C>,<IF1,<PRINTXH %MORE THAN 2 ARGhS DETECTED IN READ MACRO>>>
$%RE(AD
IFE <RMS$HDY+RMS$DJ>,<
IhFNB <B>,<JUMP 17,B>
IFB <B>,(<JUMP 16,.+1> > H
IFN <RMS$DY+RMhS$DJ>,< IFNB <B>,<
CAIL 2,3000(00
PUSHHJ 17,B >>
>>
J-I0 :
IFB <A(>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIhTTED ON RELEASE MACRO>>
XMOVEI 1(, A
IFIDN <RELHEASE><RENAME>,< h
IFB <C>,<IF1,<PRINTX ( %NEWFAB ADDRESS HOMITTED ON RENAME h MACRO>>
XMOVEI 2, C>
IFDIF < (RELEASE><RENAME>, H<
IFNB <C>,<IF h1,<PRINTX %MORE T HAN 2 ARGS DETECT (ED IN RELEASE MAC HRO>>>
$%RELEASE h
IFE <RMS$DY +RMS$DJ>,<
IFN (B <B>,<JUMP 17, HB>
IFB <B>,<J hUMP 16,.+1> >
IFN <RMS$DY+RMS$ (DJ>,< IFNB <B>,< H
CAIL 2,300000 h
PUSHJ !17,B >>
>>
J-[{ ahFD
IFB <Ab>,<IF1,<PRINTX %Ab(RGBLK ADDRESS OMIbHTTED ON REMOVE MAbhCRO>>
XMOVEI 1,c A
IFIDN <REMOc(VE><RENAME>,< cH
IFB <chC>,<IF1,<PRINTX %dNEWFAB ADDRESS OMd(ITTED ON RENAME MdHACRO>>
XMOVEI 2dh, C>
IFDIF <REeMOVE><RENAME>,<
e( IFNB <C>,<IF1,<eHPRINTX %MORE THANeh 2 ARGS DETECTED fIN REMOVE MACRO>>f(>
$%REMOVE
fH IFE <RMS$DY+RMS$fhDJ>,<
IFNB <Bg>,<JUMP 17,B>
g( IFB <B>,<JUMP 1gH6,.+1> >
IFN gh<RMS$DY+RMS$DJ>,<h IFNB <B>,<
Ch(AIL 2,300000 hH
PUSHJ 17,B >>
J-h6 lhG
IFB <Am>,<IF1,<PRINTX %Am(RGBLK ADDRESS OMImHTTED ON RENAME MAmhCRO>>
XMOVEI 1,n A
IFIDN <RENAn(ME><RENAME>,< nH
IFB <nhC>,<IF1,<PRINTX %oNEWFAB ADDRESS OMo(ITTED ON RENAME MoHACRO>>
XMOVEI 2oh, C>
IFDIF <REpNAME><RENAME>,<
p( IFNB <C>,<IF1,<pHPRINTX %MORE THANph 2 ARGS DETECTED qIN RENAME MACRO>>q(>
$%RENAME
qH IFE <RMS$DY+RMS$qhDJ>,<
IFNB <Br>,<JUMP 17,B>
r( IFB <B>,<JUMP 1rH6,.+1> >
IFN rh<RMS$DY+RMS$DJ>,<s IFNB <B>,<
Cs(AIL 2,300000 sH
PUSHJ 17,B >>
J.M9 /K POPJ 17, J.z7 ~h@,
IFB <A>,<IF1,<PRINTX %A(RGBLK ADDRESS OMIHTTED ON REWIND MAhCRO>>
XMOVEI 1, A
IFIDN <REWI (ND><RENAME>,< H
IFB < hC>,<IF1,<PRINTX %NEWFAB ADDRESS OM(ITTED ON RENAME MHACRO>>
XMOVEI 2h, C>
IFDIF <REWIND><RENAME>,<
( IFNB <C>,<IF1,<HPRINTX %MORE THANh 2 ARGS DETECTED IN REWIND MACRO>>(>
$%REWIND
H IFE <RMS$DY+RMS$hDJ>,<
IFNB <B>,<JUMP 17,B>
( IFB <B>,<JUMP 1H6,.+1> >
IFN h<RMS$DY+RMS$DJ>,< IFNB <B>,<
C(AIL 2,300000 H
PUSHJ 17,B >>
Jn0 thG4
PUSHuJ 17,$$RMS##
.vHREQUIRE SYS:RMSIN I
SHORD N, Q @hD<
IFB <AA>,<IF1,<PRINTX %AA(RGBLK ADDRESS OMIAHTTED ON SEARCH MAAhCRO>>
XMOVEI 1,B A
IFIDN <SEARB(CH><RENAME>,< BH
IFB <BhC>,<IF1,<PRINTX %CNEWFAB ADDRESS OMC(ITTED ON RENAME MCHACRO>>
XMOVEI 2Ch, C>
IFDIF <SEDARCH><RENAME>,<
D( IFNB <C>,<IF1,<DHPRINTX %MORE THANDh 2 ARGS DETECTED EIN SEARCH MACRO>>E(>
$%SEARCH
EH IFE <RMS$DY+RMS$EhDJ>,<
IFNB <BF>,<JUMP 17,B>
F( IFB <B>,<JUMP 1FH6,.+1> >
IFN Fh<RMS$DY+RMS$DJ>,<G IFNB <B>,<
CG(AIL 2,300000 GH
PUSHJ 17,B >>
Or hB4
IFB <A >,<IF1,<PRINTX %A (RGBLK ADDRESS OMI HTTED ON SPACE MAC hRO>>
XMOVEI 1, !A
IFIDN <SPACE!(><RENAME>,< !H
IFB <C>!h,<IF1,<PRINTX %NE"WFAB ADDRESS OMIT"(TED ON RENAME MAC"HRO>>
XMOVEI 2, "hC>
IFDIF <SPAC#E><RENAME>,<
IF#(NB <C>,<IF1,<PRI#HNTX %MORE THAN 2 #hARGS DETECTED IN $SPACE MACRO>>>
$($%SPACE
IFE $H<RMS$DY+RMS$DJ>,<$h
IFNB <B>,<JU%MP 17,B>
IFB %(<B>,<JUMP 16,.+1%H> >
IFN <RMS$%hDY+RMS$DJ>,< IFNB& <B>,<
CAIL 2&(,300000
&H PUSHJ 17,B >>
>> O%|R 0
$$ISOL(0B)
IFE <T$$PSZ-^D18>,<
p IFE T$$PS,<
HRRM A,T$$OF+ 0C
T$$SZ==0
>
IFE p <T$$PS-^D18>,<
HRLM A,T$$OF0+C
T$$SZ==0 P
>
>
IFpE <T$$SZ-^D36>,<
MOVEM A,T$$0OF+C
T$$SZ==0P ;INDIC INST GENp
>
IFN T$$SZ,<
DPB A,[<0T$$PS>B5 ! <T$$SZP>B11 ! <T$$OF+C> ]
>
$$OF+C> S[Q a(6B
IFB <AaH>,<IF1,<PRINTX %AahRGBLK ADDRESS OMIbTTED ON TRUNCATE b(MACRO>>
XMOVEI bH1, A
IFIDN <TRbhUNCATE><RENAME>,<c
IFc(B <C>,<IF1,<PRINcHTX %NEWFAB ADDRESchS OMITTED ON RENAdME MACRO>>
XMOVd(EI 2, C>
IFDIFdH <TRUNCATE><RENAMdhE>,<
IFNB <C>,e<IF1,<PRINTX %MORe(E THAN 2 ARGS DETeHECTED IN TRUNCATEeh MACRO>>>
$%TRUfNCATE
IFE <Rf(MS$DY+RMS$DJ>,<
fH IFNB <B>,<JUMPfh 17,B>
IFB <gB>,<JUMP 16,.+1> g(>
IFN <RMS$DYgH+RMS$DJ>,< IFNB <ghB>,<
CAIL 2,3h00000
Ph(USHJ 17,B >>
WH >>@46
IFB <A@(>,<IF1,<PRINTX %A@HRGBLK ADDRESS OMI@hTTED ON UPDATE MAACRO>>
XMOVEI 1,A( A
IFIDN <UPDAAHTE><RENAME>,< Ah
IFB <BC>,<IF1,<PRINTX %B(NEWFAB ADDRESS OMBHITTED ON RENAME MBhACRO>>
XMOVEI 2C, C>
IFDIF <UPC(DATE><RENAME>,<
CH IFNB <C>,<IF1,<ChPRINTX %MORE THAND 2 ARGS DETECTED D(IN UPDATE MACRO>>DH>
$%UPDATE
Dh IFE <RMS$DY+RMS$EDJ>,<
IFNB <BE(>,<JUMP 17,B>
EH IFB <B>,<JUMP 1Eh6,.+1> >
IFN F<RMS$DY+RMS$DJ>,<F( IFNB <B>,<
CFHAIL 2,300000 Fh
PUSHJ 17,B >>
W%J7 hh>|
IFB <Ai>,<IF1,<PRINTX %Ai(RGBLK ADDRESS OMIiHTTED ON UTLINT MAihCRO>>
XMOVEI 1,j A
IFIDN <UTLIj(NT><RENAME>,< jH
IFB <jhC>,<IF1,<PRINTX %kNEWFAB ADDRESS OMk(ITTED ON RENAME MkHACRO>>
XMOVEI 2kh, C>
IFDIF <UTlLINT><RENAME>,<
l( IFNB <C>,<IF1,<lHPRINTX %MORE THANlh 2 ARGS DETECTED mIN UTLINT MACRO>>m(>
$%UTLINT
mH IFE <RMS$DY+RMS$mhDJ>,<
IFNB <Bn>,<JUMP 17,B>
n( IFB <B>,<JUMP 1nH6,.+1> >
IFN nh<RMS$DY+RMS$DJ>,<o IFNB <B>,<
Co(AIL 2,300000 oH
PUSHJ 17,B >>
^ hA
IFB <A
>,<IF1,<PRINTX %A
(RGBLK ADDRESS OMI
HTTED ON WAIT MACR
hO>>
XMOVEI 1, A
IFIDN <WAIT>< (RENAME>,< H
IFB <C>,< hIF1,<PRINTX %NEWF
AB ADDRESS OMITTE
(D ON RENAME MACRO
H>>
XMOVEI 2, C
h>
IFDIFE<WAIT><
IFNB,IF1,<PRINTXT MACRO>>>
$%WA(IT
IFE <RMS$HDY+RMS$DJ>,<
IhFNB <B>,<JUMP 17,B>
IFB <B>,(<JUMP 16,.+1> > H
IFN <RMS$DY+RMhS$DJ>,< IFNB <B>,<
CAIL 2,3000(00
PUSHHJ 17,B >>
>>
*hC
IFB <A+>,<IF1,<PRINTX %A+(RGBLK ADDRESS OMI+HTTED ON WRITE MAC+hRO>>
XMOVEI 1, ,A
IFIDN <WRITE,(><RENAME>,< ,H
IFB <C>,h,<IF1,<PRINTX %NE-WFAB ADDRESS OMIT-(TED ON RENAME MAC-HRO>>
XMOVEI 2, -hC>
IFDIF <WRIT.E><RENAME>,<
IF.(NB <C>,<IF1,<PRI.HNTX %MORE THAN 2 .hARGS DETECTED IN /WRITE MACRO>>>
/($%WRITE
IFE /H<RMS$DY+RMS$DJ>,</h
IFNB <B>,<JU0MP 17,B>
IFB 0(<B>,<JUMP 16,.+10H> >
IFN <RMS$0hDY+RMS$DJ>,< IFNB1 <B>,<
CAIL 21(,300000
1H PUSHJ 17,B >>
>> : +"a
DEFINE +0A$B(ARG)<
IF+P1,<PRINTX %"A$B+p" RMS-11 ONLY, IG,NORED BY RMS-20>
>
YhRMS-20>,P"g
IRP A,,p< ..BADF(F,A) >
.BADF(F,A)">
IRP A,-P< ..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