Trailing-Edge
-
PDP-10 Archives
-
BB-JF18A-BM
-
subsys/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,Qh@PE,%KuPF KyPF {WPF )0PF$XZPF$[PF% 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 $HL$2Q $L$Q L$)Q L$)RQ L$)WQ HL$)WQ .L$)XQ 6$L$)YQ HL$)ZQ 0
L$)]Q (
L$*2Q $HL$*pQ HL$*qQ $HL$*rP L$*sQ $L$*wQ HL$*yQ 0 L$*zQ L$*}Q $L$+Q $HL$+Q HL$+Q 6$L$+Q L$+7Q B
L$,}Q L$.1Q HL$8(Q L$8)Q L$88Q L$9Q L$:Q HL$;Q HL$;rQ $L$= Q L$H7Q $$L$HUQ $$L$I;Q $HL$IVQ HL$J9Q HL$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 $HL$\yQ HL$h1Q HL$h1Q $HL$iQ $HL$j6Q 6$L$kQ HL$kQ HL$kQ HL$kPQ L$kQQ L$kxQ $HL$lqQ $HL$lzQ $HL$l}Q L%\Q L%
}Q B
L%7Q 6$L%UQ 6$L%YQ HL%vQ HL%zQ L%Q lL%Q $HL%PQ 6$L%SQ HL%TQ $HL%VQ $HL%WQ (L%XQ $HL%SQ HL%yQ $HL% PQ $HL% SQ HL% WQ L% YQ HL% tQ $$L% tQ $HL%)WQ HL%+VQ $HL%8SQ L%8YQ L%8]Q 0L%9Q $L%9Q $HL%9Q 6L%9SQ $HL%:0Q $L%:yQ HL%;VQ L%;\Q HL%<SQ 6$L%<WQ $$L%<qQ $HL%<{Q HL%<}Q $$L%H7Q $L%I;Q $L%LwQ HL%XSQ $$L%XYQ $L%[YQ HL%[yQ $HL%\WQ L%\YQ HL%h6Q HL%iQ L%iQ $$L%i<Q HL%k0Q L%k6Q $L%kpQ $L%kuQ $L%kxQ $HL%lXQ L%nQ HL%|Q L%|SQ L%|zQ $$L&2Q 6$L& yQ $HL&
hQ $HL&
hQ $HL&
iQ $HL&
iQ $HL&
jQ $HL&
jQ $HL&
kQ $HL&
kQ $H L&(1Q 6$L&(:Q $HL&(SQ L&)Q L&)3Q $L&)HQ $HL&)IQ L&)JQ L&)PQ L&)VQ L&+Q HL&+wQ $HL&+xQ HL&,HQ lL&,IQ L&,IQ L&,JQ L&,hQ .4L&,iQ $HL&,iQ L&,jQ L&,jQ L&,kQ $HL&,kQ L&,lQ L&,lQ L&,pQ L&,qQ $HL&,vQ $HL&,yQ HL&,{Q HL&,}Q $HL&.Q 00L&.Q L&. Q L&. Q L&.
Q L&.
QL&9Q$HL&9QQHL&9QL$HL&9SQ HL&:Q HL&:=Q HL&:qQ $HL&:yQ 6$L&<SQ L&<YQ L&=Q $HL&=Q HL&>HQ HL&>HQ HL&>IQ HL&>IQ HL&>JQ HL&>JQ HL&>KQ HL&>KQ H L&>SQ L&LQ L&LQ $$L&N8Q $HL&XSQ L&\wQ $$L&\{Q $L&\}Q HL&i9Q $L&lPQ L&lVQ 6$L&xqQ L&xzQ HL&{\Q $HL'1Q HL
IF1,<P6RINTX %"F$ANB" RM68S-11 ONLY, IGNORED BY RMS-20>
L<` a8& $$NEWVAL (BKS,A)NEWVAL (LL` `x&$$NEWVAL (BLS,A)NEWVAL (L>@ ^x%w$$NEWVAL (BSZ,A)NEWVAL (L N ax&$$NEWVAL (CTX,A)NEWVAL (L%h 1x#
IF1,<P2RINTX %"F$DNA" RM28S-11 ONLY, IGNORED BY RMS-20>
L%l` 2x#
IF1,<P3RINTX %"F$DNS" RM38S-11 ONLY, IGNORED BY RMS-20>
L4` Zx%W$$NEWVAL (FAC,A)NEWVAL (L5h \x%g$$NEWVAL (FNA,A)NEWVAL (L5l` 0x#
IF1,<P1RINTX %"F$FNS" RM18S-11 ONLY, IGNORED BY RMS-20>
L5| [x%_$$NEWVAL (FOP,A)NEWVAL (L6>@ b8&$$NEWVAL (FSZ,A)NEWVAL (LTk@ Z8%S$$NEWVAL (JFN,A)NEWVAL (LUk `8&$$NEWVAL (JNL,A)NEWVAL (Ld: 7x#C
IF1,<P8RINTX %"F$LCH" RM88S-11 ONLY, IGNORED BY RMS-20>
Ln+@ ^8%s$$NEWVAL (MRN,A)NEWVAL (Ln,` ]x%o$$NEWVAL (MRS,A)NEWVAL (Lt 4x#'$$NEWVAL (NAM,A)NEWVAL (L~)` \8%c$$NEWVAL (ORG,A)NEWVAL (L ]8%k$$NEWVAL (RAT,A)NEWVAL (Lk _8%{$$NEWVAL (RFM,A)NEWVAL (LM@ 3x##
IF1,<P4RINTX %"F$RTV" RM48S-11 ONLY, IGNORED BY RMS-20>
L
@ [8%[$$NEWVAL (SHR,A)NEWVAL (L' 58#+$$NEWVAL (TYP,A)NEWVAL (LD@ _x%$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ P8%O
IFNB <PXA>,< ;RUN-TIME PxINIT
$$MAPADD Q(A,$$ADDR); ; WIQ8LL REFERENCE FAB QXVIA $$ADDR
SYNQx SF$$RT,$$SET
>R
IFB <A>,R8<SYN SF$$CT,$$SETRX>
$$CURR (F,BRxID)
$$CURR (F,SBLN)
$$CURR (FS8,STS)
$$CURR (SXF,STV)
$$CURR Sx(F,IFI)
$$CURRT (F,JFN)
$$CURT8R (F,FAC)
$$CUTXRR (F,SHR)
$$CTxURR (F,FOP)
$$UCURR (F,ORG)
$U8$CURR (F,FNA)
UX$$CURR (F,RAT)
Ux $$CURR (F,MRS)
V $$CURR (F,MRN)
$$CURR (F,BSZ)VX
$$CURR (F,RFMVx)
$$CURR (F,XAWB)
$$CURR (F,JW8NL)
$$CURR (F,WXBLS)
$$CURR (FWx,BKS)
$$CURR (XF,DEV)
$$CURR X8(F,SDC)
$$CURRXX (F,CTX)
$$CURXxR (F,FSZ) ;![AWN]Y
$$CURR (F,TYPY8) ;![AWN]
$$CUYXRR (F,NAM) ;![AWNYx]
$$CURR (F,ALQ) ;![AWN]
ALMI 78'
IFNDEF bX$$ADDR,<
<bx$$SET(BID)>_^D18 c! <$$SET(BLN)>
c8 <$$SET(STS)>^D1cX8 ! <$$SET(STV)>
<$$SET(CTX)>
d <$$SET(IFI)>_^Dd818 ! <$$SET(JFN)>dX
<$$SET(FAC)>_dx^D18 ! <$$SET(SHRe)>
<$$SET(FOP)e8>_^D18 ! <$$SET(OeXRG)>_^D14 ! <$$SEexT(BSZ)>_^D8 ! <$$fSET(BLS)>
<$$Sf8ET(FNA)>
<$$SEfXT(RAT)>_^D18 ! <$fx$SET(MRS)>
<$$gSET(MRN)>
<$$Sg8ET(FSZ)>_^D13 ! <gX$$SET(BKS)>_^D5 !gx <$$SET(RFM)> ;![hAWN]
<$$SET(JNh8L)>_^D18 ! <$$SEThX(XAB)>
<$$SET(hxDEV)>_^D18 ! <$$SiET(SDC)>
<$$SEi8T(TYP)>_^D18 ! <$iX$SET(NAM)> ;![AWNix]
<$$SET(ALQ)>j ;![AWN]
EXj8P 0,0
> ;ENjXD IFNB
IFDEF $$jxADDR,<
$$SET(BkID)
$$SET(BLN)k8
$$SET(STS)
kX $$SET(STV)
$$kxSET(IFI)
$$SETl(JFN)
$$SET(FAl8C)
$$SET(SHR)
$$SET(FOP)
lx$$SET(ORG)
$$SmET(FNA)
$$SET(m8RAT)
$$SET(MRSmX)
$$SET(MRN)
mx $$SET(BSZ)
$n$SET(RFM)
$$SEn8T(XAB)
$$SET(JnXNL)
$$SET(BLS)nx
$$SET(BKS)
o $$SET(DEV)
$$o8SET(SDC)
$$SEToX(CTX)
$$SET(FSoxZ) ;![AWN]
$p$SET(NAM) ;![AWp8N]
$$SET(TYP) pX ;![AWN]
$$SEpxT(ALQ) ;![AWN]
PURGE $$ADq8DR
>
>
MN@ o.y $$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 Q8- $$NEWVAL (ESA,A)NEWVAL \.<` Qx- $$NEWVAL (ESS,A)NEWVAL \u| Rx- $$NEWVAL (NOP,A)NEWVAL \I@ R8- $$NEWVAL (RLF,A)NEWVAL \8 S8- $$NEWVAL (RSA,A)NEWVAL \<` Sx- $$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@ HX-
IFNB <HxA>,<
$$MAPADD I(A,$$ADDR); ; WII8LL REFERENCE THE IXBLOCK VIA $$ADDR
SYN SN$$RT,$$SJET
>
IFBJ8 <A>,<SYN SN$$CTJX,$$SET>
$$CURJxR (N,BID)
$$CUKRR (N,BLN)
$$CK8URR (N,ESA)
$$KXCURR (N,ESS)
$Kx$CURR (N,ESL)
L$$CURR (N,RLF)
L8 $$CURR (N,NOP)
LX $$CURR (N,RSA)
$$CURR (N,RSL)M
$$CURR (N,RSSM8)
$$CURR (N,FNMXB)
$$CURR (N,WMxCC)
$$CURR (N,NCHA)
$$CURR (NN8,NDL)
$$CURR (NXN,DVL)
$$CURR Nx(N,NML)
$$CURRO (N,TPL)
$$CURO8R (N,VRL)
$$CUOXRR (N,NDA)
$$COxURR (N,DVA)
$$PCURR (N,DRA)
$P8$CURR (N,NMA)
PX$$CURR (N,TPA)
Px $$CURR (N,VRA)
URR (N,VRA)
]hI T8.
IFNDEF TX$$ADDR,<
<$$SETxT(BID)>_^D18 ! <$U$SET(BLN)>
<$$U8SET(ESA)>
<$$SUXET(ESL)>_^D18 ! <Ux$$SET(ESS)>
<$V$SET(NOP)>_^D18 !V8 <$$SET(RLF)>
VX<$$SET(RSA)>
<Vx$$SET(RSL)>_^D18 W! <$$SET(RSS)>
W8 <$$SET(FNB)>
WX<$$SET(WCC)>
<Wx$$SET(DVL)>_^D27 X! <$$SET(NDL)>_^DX818 ! <$$SET(CHA)>XX
<$$SET(VRL)>_Xx^D27 ! <$$SET(TPLY)>_^D18 ! <$$SET(Y8NML)>_^D9 ! <$$SEYXT(DRL)>
<$$SETYx(NDA)>
<$$SET(ZDVA)>
<$$SET(DZ8RA)>
<$$SET(NMZXA)>
<$$SET(TPAZx)>
<$$SET(VRA)[>
> ;IFNDEF
IFDEF $$ADDR,<
$$SET(BID)
[x$$SET(BLN)
$$S\ET(ESA)
$$SET(\8ESL)
$$SET(ESS\X)
$$SET(NOP)
\x $$SET(RLF)
$]$SET(RSA)
$$SE]8T(RSL)
$$SET(R]XSS)
$$SET(FNB)]x
$$SET(WCC)
^ $$SET(DVL)
$$^8SET(NDL)
$$SET^X(CHA)
$$SET(VR^xL)
$$SET(TPL)
$$SET(NML)
_8$$SET(DRL)
$$S_XET(NDA)
$$SET(_xDVA)
$$SET(DRA`)
$$SET(NMA)
`8 $$SET(TPA)
$`X$SET(VRA)
PU`xRGE $$ADDR ;SO aNEXT C/R DECIS COa8RRECT
> ;IFDEF
> ;IF]hN@ px/ $$ZERO(A,NA$LNG) ERO(Ad N 8( $$NEWVAL (CTX,A)NEWVAL d-L` 8( $$NEWVAL (ELS,A)NEWVAL d4@ yx'O $$NEWVAL (FAB,A)NEWVAL d\)@ ~8's $$NEWVAL (KBF,A)NEWVAL d^)@ }8'k $$NEWVAL (KRF,A)NEWVAL d^>@ }x'o $$NEWVAL (KSZ,A)NEWVAL df;@ x' $$NEWVAL (LSN,A)NEWVAL dl)@ ~x'w $$NEWVAL (MBF,A)NEWVAL d 8'{ $$NEWVAL (PAD,A)NEWVAL d` z8'S $$NEWVAL (RAC,A)NEWVAL d)@ {x'_ $$NEWVAL (RBF,A)NEWVAL dh x( $$NEWVAL (RFA,A)NEWVAL d@ 08#G
IF1,<P8XRINTX %"R$RHB" RM8xS-11 ONLY, IGNORED BY RMS-20>
d| zx'W $$NEWVAL (ROP,A)NEWVAL d>@ |8'c $$NEWVAL (RSZ,A)NEWVAL d,)@ {8'[ $$NEWVAL (UBF,A)NEWVAL d.>@ |x'g $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ qx'K
IFNB <rA>,<
$$MAPADD r8(A,$$ADDR); ; WIrXLL REFERENCE THE rxBLOCK VIA $$ADDR
SYN SR$$RT,$$Ss8ET
>
IFBsX <A>,<SYN SR$$CTsx,$$SET>
$$CURtR (R,BID)
$$CUt8RR (R,BLN)
$$CtXURR (R,STS)
$$txCURR (R,STV)
$u$CURR (R,ISI)
u8$$CURR (R,FAB)
uX $$CURR (R,RAC)
ux $$CURR (R,ROP)
$$CURR (R,UBF)v8
$$CURR (R,RBFvX)
$$CURR (R,RSvxZ)
$$CURR (R,UwSZ)
$$CURR (R,w8RFA)
$$CURR (RwX,KRF)
$$CURR (wxR,KSZ)
$$CURR x(R,KBF)
$$CURRx8 (R,MBF)
$$CURxXR (R,LSN)
$$CUxxRR (R,BKT)
$$CyURR (R,PAD)
$$y8CURR (R,CTX)
URR (R,CTX)
eI x(k
IFNDEF $$ADDR,<
<$$SE8T(BID)>_^D18 ! <$X$SET(BLN)>
<$$xSET(STS)>_^D18 ! <$$SET(STV)>
<8$$SET(CTX)>
<$X$SET(ISI)>_^D18 !x <$$SET(FAB)>
<$$SET(RAC)>_^D278 ! <$$SET(MBF)>_^XD18 ! <$$SET(ROP)x>
<$$SET(UBF)>
<$$SET(RBF)>
<$$SET(RSZ)>_^XD18 ! <$$SET(USZ)x>
<$$SET(RFA)>
<$$SET(KRF)>_8^D27 ! <$$SET(KSZX)>_^D18 ! <$$SET(xLSN)>
<$$SET(KBF)>
<$$SET(BK8T)>
<$$SET(PADX)>_^D27
EXP 0,x0,0
> ;IFNDEF
IFDEF $$ADDR,8<
$$SET(BID)
X $$SET(BLN)
$x$SET(STS)
$$SE T(STV)
$$SET(I 8SI)
$$SET(FAB) X
$$SET(RAC)
x $$SET(ROP)
$$
SET(UBF)
$$SET
8(RBF)
$$SET(RS
XZ)
$$SET(USZ)
x
$$SET(RFA)
$$SET(KRF)
$$S 8ET(KSZ)
$$SET( XKBF)
$$SET(MBF x)
$$SET(LSN)
$$SET(BKT)
$
8$SET(PAD)
$$SE
XT(CTX)
PURGE $
x$ADDR ;SOONEXTT
> ;IFDEF
> ;IFDEF
eN@ oX.} $$ZERO(A,RA$LNG) ERO(Ae$)ZP e$+P e$[sP e$iP e%9<P e%9rP @e%9zP e%KpP e%KqP e%j6P e%lXP e&2P e&(4P e&)PP e&98P e&LPP e&x0P e&xPP e&xTP e4%X< e4%Z7 e7IP e7I P eL$[sP eL%KSP eL%KuP eL&9P eL&98P eL&=1P eL&LWP @eL&N8P eL&\P f$(` ! A$B==1BC A$B==1Bf$H` X } A$B==^DC A$B==^Df&8` y A$B==C$D A$B==Cg Hz GX$?IFDEF C$$GxA,<C$$A> IFNDEF C$$A,<$$FA>F g LZ F8$9
IFNFXDEF C$$A,<IFN $$FxFA,<C$$A==$$FAG>>
STO$$C(A)
TO$$C(g8 Hz MX$oIFDEF C$$MxA,<C$$A> IFNDEF C$$A,<$$NA>F g8 LZ L8$i
IFNLXDEF C$$A,<IFN $$LxNA,<C$$A==$$NAM>>
STO$$C(A)
TO$$C(gH Hz IX$OIFDEF C$$IxA,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ H8$I
IFNHXDEF C$$A,<IFN $$HxRA,<C$$A==$$RAI>>
STO$$C(A)
TO$$C(gP Hz OX$IFDEF C$$OxA,<C$$A> IFNDEF C$$A,<$$TA>F gP LZ N8$y
IFNNXDEF C$$A,<IFN $$NxTA,<C$$A==$$TAO>>
STO$$C(A)
TO$$C(gRxA Dx$/
E8 EIFDEF C$$A,<
<HRREI 1,> ! CEX$$A
$STORE Ex(1,A,$$ADDR)
>
R)
gT$M8@ gT% @ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz KX$_IFDEF C$$KxA,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ J8$Y
IFNJXDEF C$$A,<IFN $$JxXA,<C$$A==$$XAK>>
STO$$C(A)
TO$$C(h H f8.3 $$NEWVAL (CLA,A)NEWVAL h4M fx.7 $$NEWVAL (FDT,A)NEWVAL h5K@ g8.; $$NEWVAL (FLN,A)NEWVAL h68` gx.? $$NEWVAL (FSC,A)NEWVAL hm|@ hx.G $$NEWVAL (MOR,A)NEWVAL ht^ h8.C $$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 igH@ ax./
IFNB <bA>,<
$$MAPADD b8(A,$$ADDR); ; WIbXLL REFERENCE THE bxBLOCK VIA $$ADDR
SYN ST$$RT,$$Sc8ET
>
IFBcX <A>,<SYN ST$$CTcx,$$SET>
$$CURdR (T,BID)
$$CUd8RR (T,BLN)
$$CdXURR (T,CLA)
$$dxCURR (T,FDT)
$e$CURR (T,FLN)
e8$$CURR (T,FSC)
eX $$CURR (T,NEX)
ex $$CURR (T,MOR)
gURR (T,MOR)
IFNDEF iX$$ADDR,<
<$$SEixT(BID)>_^D18 ! <$j$SET(BLN)>
<$$j8SET(FDT)>_^D18 ! jX<$$SET(CLA)>
<jx$$SET(FLN)>_^D18 k! <$$SET(FDT)>
k8 <$$SET(MOR)>^D1kX8 ! <$$SET(NEX)>
> ;IFNDEF
lIFDEF $$ADDR,<
l8 $$SET(BID)
$$lXSET(BLN)
$$SETlx(FDT)
$$SET(CLmA)
$$SET(FLN)
$$SET(FDT)
mX$$SET(MOR)
$$SmxET(NEX)
PURGE n$$ADDR ;SO NEXTn8 C/R DECIS CORRECnXT
> ;IFDEF
> ;IFDEFE$$ZERO(A,TY$LNG)WERO(Ap x)$$NEWVAL (BKZ,A)NEWVAL (p$@ "x*$$NEWVAL (DAN,A)NEWVAL (p$k x*$$NEWVAL (DFL,A)NEWVAL (p&L !8* $$NEWVAL (DTP,A)NEWVAL (p,M x)w$$NEWVAL (EDT,A)NEWVAL (p5I` !x*$$NEWVAL (FLG,A)NEWVAL (p>, @$
IF1,<P@8RINTX %"X$GRP" RM@XS-11 ONLY, IGNORED BY RMS-20>
pD ;#]
IF1,<P;8RINTX %"X$HAL" RM;XS-11 ONLY, IGNORED BY RMS-20>
pL@ "8*$$NEWVAL (IAN,A)NEWVAL (pLk 8*$$NEWVAL (IFL,A)NEWVAL (p]k $8*#$$NEWVAL (KNM,A)NEWVAL (pd@ #8*$$NEWVAL (LAN,A)NEWVAL (pnJ :#U
IF1,<P:8RINTX %"X$MTH" RM:XS-11 ONLY, IGNORED BY RMS-20>
pw 8)s$$NEWVAL (NXT,A)NEWVAL (p~{@ ?#}
IF1,<P?8RINTX %"X$OWN" RM?XS-11 ONLY, IGNORED BY RMS-20>
p|` $x*=
$$NE%WARRVAL (PS0,A)
$$NEWARRVAL (P%XS1,B)
$$NEWAR%xRVAL (PS2,C)
&$$NEWARRVAL (PS3,&8D)
$$NEWARRVA&XL (PS4,E)
$$N&xEWARRVAL (PS5,F)'
$$NEWARRVAL ('8PS6,G)
$$NEWA'XRRVAL (PS7,H)
VAL (PS7,H)
p)` <#e
IF1,<P<8RINTX %"X$PRG" RM<XS-11 ONLY, IGNORED BY RMS-20>
p*@ =#m
IF1,<P=8RINTX %"X$PRJ" RM=XS-11 ONLY, IGNORED BY RMS-20>
pY@ #x* $$NEWVAL (REF,A)NEWVAL (p +@ C$
IF1,<PC8RINTX %"X$SBN" RMCXS-11 ONLY, IGNORED BY RMS-20>
p @ (*W
$$NE(8WARRVAL (SZ0,A)
$$NEWARRVAL (S(xZ1,B)
$$NEWAR)RVAL (SZ2,C)
)8$$NEWARRVAL (SZ3,)XD)
$$NEWARRVA)xL (SZ4,E)
$$N*EWARRVAL (SZ5,F)*8
$$NEWARRVAL (*XSZ6,G)
$$NEWA*xRRVAL (SZ7,H)
VAL (SZ7,H)
p ` >#u
IF1,<P>8RINTX %"X$SYS" RM>XS-11 ONLY, IGNORED BY RMS-20>
p5{ B$
IF1,<PB8RINTX %"X$VOL" RMBXS-11 ONLY, IGNORED BY RMS-20>
p=I A$
IF1,<PA8RINTX %"X$WLD" RMAXS-11 ONLY, IGNORED BY RMS-20>
pD. D$%
IF1,<PD8RINTX %"X$XBY" RMDXS-11 ONLY, IGNORED 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&-
Poq&.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 8(B,$$ADDR)
SXYN SX$$RT,$$SET
x >
IFB <B>,<SYN SX$$CT,$$S8ET>
CX$$COD==XB$A
x X$$BLN==XA$SXA
$$CU8RR (X,BLN)
$$CURR (X,BID)x
$$CURR (X,RS1)
$$CURR (X,NX8T)
$X$CURR (X,CDT)
x$$CURR (X,RDT)
$$CURR (X,EDT)
8
$$CURXR (X,RS2)
$$CUxRR (X,AID)
$$CURR (X,BKZ)
8
$$CURR (XX,IFL)
$$CURR (xX,DFL)
$$CURR (X,DTP)
$$CURR8 (X,FLG)
$$CURXR (X,IAN)
$$CUxRR (X,DAN)
$$CURR (X,LAN)
$$8CURR (X,REF)
$X$CURR (X,KNM)
x$$CURR (X,RX0)
$$CURR (X,RX1)
8 $$CURR (X,RX2)
$$CURR (X,RX3)x
$$CURR (X,RX4)
$$CURR (X,RX85)
$$CURR (X,PXS0)
$$CURR (X,xPS1)
$$CURR (X,PS2)
$$CURR (8X,PS3)
$$CURR X(X,PS4)
$$CURRx (X,PS5)
$$CURR (X,PS6)
$$CU8RR (X,PS7)
$$CXURR (X,SZ0)
$$xCURR (X,SZ1)
$$CURR (X,SZ2)
8$$CURR (X,SZ3)
X $$CURR (X,SZ4)
x $$CURR (X,SZ5)
$$CURR (X,SZ6)8
$$CURR (X,SZ7X)
$x$CURR (X,RS6)
$$CURR (X,NOK)
8 $$CURR (X,NOA)
X $$CURR (X,RS7)
$$CURR (X,RS8)
$$CURR (X,RS9 8)
X ;ONLY THE NXT F xIELD IS SETTABLE
S SETTABLE,A
$$NEW+XVAL(BLN,X$$BLN) +x
IFNDEF $$ADDR,,<
<$$SET(BI,8D)>_^D18 ! <$$SET,X(BLN)>
<$$SET(,xCOD)>_^D18 ! <$$S-ET(NXT)>
IFE <-8C$$COD-XB$DAT>,<
<$$SET(CDT)>
<$$SET(RDT)>
<$$SET(EDT)>
>
IFE <C$$C.XOD-XB$ALL>,<
.x<$$SET(AID)>_^D9 /! <$$SET(BKZ)>
/8 EXP 0,0,0
>
IFE <C$$COD-XB/x$KEY>,<
<$$SE0T(DTP)>_^D18 ! <$08$SET(FLG)>
<$0X$SET(IAN)>_^D27 !0x <$$SET(DAN)>_^D118 ! <$$SET(LAN)>_18^D9 ! <$$SET(REF)1X>
<$$SET(IFL)1x>_^D18 ! <$$SET(D2FL)>
<$$SET(K28NM)>
EXP 0,0,2X0,0,0
<$$SET(2xPS0)>_^D18 ! <$$S3ET(SZ0)>
<$$S38ET(PS1)>_^D18 ! <3X$$SET(SZ1)>
<3x$$SET(PS2)>_^D18 4! <$$SET(SZ2)>
48 <$$SET(PS3)>_^D4X18 ! <$$SET(SZ3)>4x
<$$SET(PS4)>5_^D18 ! <$$SET(SZ584)>
<$$SET(PS5X5)>_^D18 ! <$$SET5x(SZ5)>
<$$SET6(PS6)>_^D18 ! <$$68SET(SZ6)>
<$$6XSET(PS7)>_^D18 ! 6x<$$SET(SZ7)>
>7
IFE <C$$COD-X78B$SUM>,<
<$$S7XET(NOK)>_^D9 ! <$7x$SET(NOA)>
EX8P 0,0,0
>
88 IFE <C$$COD-XB$C8XFG>,<
EXP 0,08x,0,0,0,0
>
9 >
IFDEF $$ADDR98,<
;9X STORE COMMON HEA9xDER FOR ALL XAB T:YPES
$$SET(BID:8)
$$SET(RS1)
:X $$SET(COD)
$:x$SET(NXT)
; ;STORE REST OF XAB;8 DEPENDING ON IT';XS TYPE
IFE <C$;x$COD-XB$DAT>,<
< $$SET(BLN)
$$<8SET(CDT)
$$SET<X(RDT)
$$SET(ED<xT)
>
IFE =<C$$COD-XB$ALL>,<=8
$$SET(BLN)
=X $$SET(RS2)
$$=xSET(AID)
$$SET>(BKZ)
>
I>8FE <C$$COD-XB$KEY>X>,<
$$SET(BLN)>x
$$SET(IFL)
? $$SET(DFL)
$$?8SET(DTP)
$$SET?X(FLG)
$$SET(IA?xN)
$$SET(DAN)
$$SET(LAN)
@8$$SET(REF)
$$S@XET(KNM)
$$SET(@xRX0)
$$SET(RX1A)
$$SET(RX2)
A8 $$SET(RX3)
$AX$SET(RX4)
$$SEAxT(RX5)
$$SETB(PS0)
$$SET(PSB81)
$$SET(PS2)
$$SET(PS3)
Bx$$SET(PS4)
$$SCET(PS5)
$$SET(C8PS6)
$$SET(PS7CX)
$$SET(SZ0)Cx
$$SET(SZ1)
D $$SET(SZ2)
$$D8SET(SZ3)
$$SETDX(SZ4)
$$SET(SZDx5)
$$SET(SZ6)
$$SET(SZ7)
E8>
IFE <C$$COEXD-XB$SUM>,<
$$ExSET(BLN)
$$SETF(RS6)
$$SET(NOF8K)
$$SET(NOA)
$$SET(RS7)
Fx$$SET(RS8)
$$SGET(RS9)
>
IG8FE <C$$COD-XB$CFGGX>,<
$$SET(BLN)Gx
>
PURGE $$HADDR
>
> p/ $$ZERO(Ap8,%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&
WP(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`$4P q`$6P 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`&4P 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`&5P q`&5 P q`&5@P q`&5`P q`&6P q`&6 P q`&8wP q`&8zP q`&:P q`&:2P q`&;P q`&<zP q`&<{P q`&=`P q`'9P $0 cASCIZ\
8 COPYRIGHT (C) DI XGITAL EQUIPMENT C xORPORATION 1979,
1986.
ALL RIGHT
8S RESERVED.
\ RESERVED.
\<z
x u
IFNBI<A-B,<PR
IFNB <C>,<IFG A-C,<PRIN8TX ?A HAS A VALUXE WHICH IS TOO HIGH>>
IS TOO HI y *"S
C=A+*8B
B==B+1
B==B+1 \Y .X"uPURGE C$$BPURGE C$$-i /yD(9P 4P 4*2P 4*yP 4+P 4+P 4,}P 4= P 4I;P 4\Y (X"G
$$CODE((x.EXBAS,.EXCTR,A,B)
.EXCTR,A,4h1P 4kPP 4kxP 4l}P 56 X!
IF1,<
$$AB==C$D
F$$B==<XX$G>B58 ! <XX$F>B11 ! XXX$E
> ;END OF IF1
> ;END O5TP 5)WP 5+VP 5\WP 5\YP 5h6P 5|SP 6(:P 6)HP 6)IP 6)JP 6)VP 69P 6:P 6=P 6=P 6N8P 71P LwP LP L)WP L*2P L+P L+P L+P L+7P LJ9P LKP LkP MUP MYP MvP MzP MP MPP MSP MWP MXP MSP MyP M PP M SP M WP M YP M tP M8YP M9P MXYP N;v }x/w
T$$PS==~F$$A_-^D30
T~8$$SZ==<F$$A_-^D2~X4> & 77
T$$OF=~x=F$$A & 777777
$AP& 777777 P \+P \HUP \IVP ]
}P ]UP ]P ]VP ]8]P ]9P ]9P ]9SP ]:0P ]:yP ];\P ]<qP ]<{P ]I;P ][YP ^+wP l /"yDEFINE B<A>DEFINE B<l )8"MA$MAX==.)XABASE + .ACTR - 1SE + .ACTR - t*2P t+P t:P tLPP tLVP tMPP tMVP t\pP t\vP t\yP t]p 9#M
IFNB <9XB>,<C$$A==B>
>,<C$$A==B>
t]{ /x"
DEFINE C$$A<B>
E tkQP uiP uiP uk0P uk6P ukxP v+P v,pP v,vP v,yP vLP vLP vlPP vlVP vxqP vxzP v{\P *2P *zP +P = P [P h1P tP 8SP <SP <}P LwP XSP 2P (1P (SP )PP +xP ,HP ,IP ,IP ,JP ,}P =P =P XSP \}P )P )RP )WP )WP )XP )ZP )]P *2P *pP *qP *rP *sP *wP *yP +P +P .1P kP lzP \P
}P <WP lXP |P 9P 9SP :qP :yP <SP <YP X` '";
$$CODE('8.SUBAS,.SUCTR,A,B)
.SUCTR,A, V 8!/
FB$ALL=X=FB$GET+FB$PUT+FBx$DEL+FB$UPD+FB$TRN
$$ASSUME8(FB$SEQ,0) ;FILEX ORG MUST BE GTR xZERO
$$ASSUME(RB$SEQ,0,0) ;RECO8RD ACCESS MUST STXART AT ZERO
$$AxSSUME(XB$KEY,0,0) ;KEY XAB MUST B8E FIRST
$$ASSUMXE(XB$STG,0,0) ;SxTRING DATA-TYPE SHOULD BE ZERO
$*2P $+P $;P $iP $kP $lqP %[yP %i<P ,\Y 'x"A
$$CODE((.ERBAS,.ERCTR,A,B)
.ERCTR,A,4[R $8"5
IF2$X,<
C$MAX==XX$MA$xX
JS$MIN==100%0
JS$MAX==1000+%8XX$MAX
OPDEF RM%X$MIN [104B8+1000]%x ;MINIMUM JSYS V&ALUE
OPDEF RM$M&8AX [104B8+1000+XX&X$MAX]
>
MAX]
>
4\Q x"
C$A==XX$MAX
8 DEFINE $%A(A)<X
IFE <RMSx$DJ+RMS$DY>,< ;a506
I8FN TOP$10,<PUSHJ X17,RMS$10##+C$A>x
IFN TOP$20,<104B8+1000+C8$A>
> X ;a506
xIFN RMS$DY,<PUSHJ 17,@$$A##>
8 IFN RMS$DJ,<PXUSHJ 17,%$A##> x
>
DE FINE $A(.BLK1,.E 8RRAD,.BLK2),<
I XFB <.BLK1>,<IF1,< xPRINTX %ARGBLK AD DRESS OMITTED ON 8A MACRO>>
XMOV XEI 1, .BLK1
IFI xDN <A><RENAME>,<
IF 8B <.BLK2>,<IF1,<P XRINTX %NEWFAB ADD xRESS OMITTED ON R ENAME MACRO>>
X 8MOVEI 2, .BLK2>
X IFDIF <A><RENAM xE>,<
IFNB <.BLK 2>,<IF1,<PRINTX % 8MORE THAN 2 ARGS XDETECTED IN A MA xCRO>>>
$%A
IFE <RMS$DY+RMS!8$DJ>,<
IFNB <.!XERRAD>,<JUMP 17,.!xERRAD>
IFB <.E"RRAD>,<JUMP 16,.+"81> >
IFN <RMS"X$DY+RMS$DJ>,< IFN"xB <.ERRAD>,<
C#AIL 2,300000 #8
PUSHJ 17,.E#XRRAD >>
#x >
XX$MAX==XX$MAX+1
X==XX5T 8!;
XX$MAX==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
hP F
hP F
iP F
iP F
jP F
jP F
kP F
kP F)P F)3P F,hP F,iP F,iP F,jP F,jP F,kP F,kP F,lP F,lP F.P F.P F. P F. P F.
P F.
P F:=P F>HP F>HP F>IP F>IP F>JP F>JP F>KP F>KP F\wP F\{P Fi9P T\W qx/
SETZM rA
MOVEI 2,Ar8
MOVEI 1,1(2rX)
HRLI 1,A rx
BLT 1,B-1(2)
T 1,B-1(2 Ky p1A
IFE <RMS$DJ+RMS$DY0>,< ;a506
P IFN TOP$10,p<PUSHJ 17,RMS$10##+C$CLOSE>
0 IFN TOP$20,<10P4B8+1000+C$CLOSE>p
> ;a506
IFN 0RMS$DY,<PUSHJ 17,P@$$CLOSE##>
p IFN RMS$DJ,<PUSHJ 17,%$CLOSE##>
LOSE##> {W b06/
IbPFE <RMS$DJ+RMS$DYbp>,< ;a506
c IFN TOP$10,c0<PUSHJ 17,RMS$10#cP#+C$CONNECT>
cp IFN TOP$20,<d104B8+1000+C$CONNd0ECT>
> dP ;a506
dpIFN RMS$DY,<PUSHJe 17,@$$CONNECT##>e0
IFN RMS$ePDJ,<PUSHJ 17,%$COepNNECT##>
NECT##>
)0 mp7g
IypFE <RMS$DJ+RMS$DYz>,< ;a506
z0 IFN TOP$10,zP<PUSHJ 17,RMS$10#zp#+C$CREATE>
{ IFN TOP$20,<1{004B8+1000+C$CREAT{PE>
> {p ;a506
|P IF|N RMS$DY,<PUSHJ 1|07,@$$CREATE##>
IFN RMS$DJ,|p<PUSHJ 17,%$CREATE##>
EAT$XZ P8?
IpFE <RMS$DJ+RMS$DY>,< ;a506
0 IFN TOP$10,P<PUSHJ 17,RMS$10#p#+C$DEBUG>
IFN TOP$20,<1004B8+1000+C$DEBUG>P
> p ;a506
IFN RMS$DY,<PUSHJ 17,0@$$DEBUG##>
P IFN RMS$DJ,<PUpSHJ 17,%$DEBUG##>
EBUG##>$[ @p4!
IAFE <RMS$DJ+RMS$DYA0>,< ;a506
AP IFN TOP$10,Ap<PUSHJ 17,RMS$10#B#+C$DELETE>
B0 IFN TOP$20,<1BP04B8+1000+C$DELETBpE>
> C ;a506
Cp IFC0N RMS$DY,<PUSHJ 1CP7,@$$DELETE##>
IFN RMS$DJ,D<PUSHJ 17,%$DELETE##>
LET% q n7
In0FE <RMS$DJ+RMS$DYnP>,< ;a506
np IFN TOP$10,o<PUSHJ 17,RMS$10#o0#+C$DISCONNECT>
IFN TOP$2op0,<104B8+1000+C$DpISCONNECT>
pP p0 > ;a506
IFN RMS$DY,pp<PUSHJ 17,@$$DISCqONNECT##>
q0 IFN RMS$DJ,<PUSHqPJ 17,%$DISCONNECT##>
NECT% x 1P<
I=0FE <RMS$DJ+RMS$DY=P>,< ;a506
=p IFN TOP$10,><PUSHJ 17,RMS$10#>0#+C$DISPLAY>
>P IFN TOP$20,<>p104B8+1000+C$DISP?LAY>
> ?0 ;a506
?PIFN RMS$DY,<PUSHJ?p 17,@$$DISPLAY##>@
IFN RMS$@0DJ,<PUSHJ 17,%$DI@PSPLAY##>
PLAY##>
-m APD'
IApFE <RMS$DJ+RMS$DYB>,< ;a506
B0 IFN TOP$10,BP<PUSHJ 17,RMS$10#Bp#+C$ENTER>
C IFN TOP$20,<10C04B8+1000+C$ENTER>CP
> Cp ;a506
IFN DRMS$DY,<PUSHJ 17,D0@$$ENTER##>
DP IFN RMS$DJ,<PUDpSHJ 17,%$ENTER##>
NTER##>.(9 HP<_
IHpFE <RMS$DJ+RMS$DYI>,< ;a506
I0 IFN TOP$10,IP<PUSHJ 17,RMS$10#Ip#+C$ERASE>
J IFN TOP$20,<10J04B8+1000+C$ERASE>JP
> Jp ;a506
IFN KRMS$DY,<PUSHJ 17,K0@$$ERASE##>
KP IFN RMS$DJ,<PUKpSHJ 17,%$ERASE##>
RASE##>/
ILpFE <RMS$DJ+RMS$DYM>,< ;a506
M0 IFN TOP$10,MP<PUSHJ 17,RMS$10#Mp#+C$EXTEND>
N IFN TOP$20,<1N004B8+1000+C$EXTENNPD>
> Np ;a506
OP IFON RMS$DY,<PUSHJ 1O07,@$$EXTEND##>
IFN RMS$DJ,Op<PUSHJ 17,%$EXTEND##>
TEN5R Kp4y
ILFE <RMS$DJ+RMS$DYL0>,< ;a506
LP IFN TOP$10,Lp<PUSHJ 17,RMS$10#M#+C$FIND>
Mp M0 IFN TOP$20,<104MPB8+1000+C$FIND>
> ;Na506
IFN RMN0S$DY,<PUSHJ 17,@$NP$FIND##>
NpIFN RMS$DJ,<PUSHJO 17,%$FIND##>
FIND##>
5M9 9s
I0FE <RMS$DJ+RMS$DYP>,< ;a506
p IFN TOP$10, <PUSHJ 17,RMS$10# 0#+C$FLUSH>
P IFN TOP$20,<10 p4B8+1000+C$FLUSH>
> 0 ;a506
IFN PRMS$DY,<PUSHJ 17, p@$$FLUSH##>
IFN RMS$DJ,<PU 0SHJ 17,%$FLUSH##>
LUSH##>6)2 SP=7
ISpFE <RMS$DJ+RMS$DYT>,< ;a506
T0 IFN TOP$10,TP<PUSHJ 17,RMS$10#Tp#+C$FREE>
UP U IFN TOP$20,<104U0B8+1000+C$FREE>
> ;Upa506
IFN RMVS$DY,<PUSHJ 17,@$V0$FREE##>
VPIFN RMS$DJ,<PUSHJVp 17,%$FREE##>
FREE##>
<] p2
I FE <RMS$DJ+RMS$DY 0>,< ;a506
P IFN TOP$10, p<PUSHJ 17,RMS$10#!#+C$GET>
!0 IFN TOP$20,<104B!P8+1000+C$GET>
!p > ;a5"06
IFN RMS$"0DY,<PUSHJ 17,@$$G"PET##>
IFN"p RMS$DJ,<PUSHJ 17#,%$GET##>
$GET##>
l\y &:M
I&0FE <RMS$DJ+RMS$DY&P>,< ;a506
&p IFN TOP$10,'<PUSHJ 17,RMS$10#'0#+C$MESSAGE>
'P IFN TOP$20,<'p104B8+1000+C$MESS(AGE>
> (0 ;a506
(PIFN RMS$DY,<PUSHJ(p 17,@$$MESSAGE##>)
IFN RMS$)0DJ,<PUSHJ 17,%$ME)PSSAGE##>
SAGE##>
u{2 1p;+
I2FE <RMS$DJ+RMS$DY20>,< ;a506
2P IFN TOP$10,2p<PUSHJ 17,RMS$10#3#+C$NOMESSAGE>
30 IFN TOP$203P,<104B8+1000+C$NO3pMESSAGE>
>4 ;a506
40 IFN RMS$DY,<P4PUSHJ 17,@$$NOMESS4pAGE##>
IF5N RMS$DJ,<PUSHJ 1507,%$NOMESSAGE##>
SAGE##> w
IipFE <RMS$DJ+RMS$DYj>,< ;a506
j0 IFN TOP$10,jP<PUSHJ 17,RMS$10#jp#+C$NXTVOL>
k IFN TOP$20,<1k004B8+1000+C$NXTVOkPL>
> kp ;a506
lP IFlN RMS$DY,<PUSHJ 1l07,@$$NXTVOL##>
IFN RMS$DJ,lp<PUSHJ 17,%$NXTVOL##>
TVO~ 7 x0i
IFE <RMS$DJ+RMS$DYX>,< ;a506
8 IFN TOP$10,<PUSHJ 17,RMS$10#X#+C$OPEN>
p x IFN TOP$20,<104B8+1000+C$OPEN>
> ;
a506
IFN RM
0S$DY,<PUSHJ 17,@$
P$OPEN##>
pIFN,RMS$DJ,<PUSHJ
OPEN##>
Y +PBw
I+pFE <RMS$DJ+RMS$DY,>,< ;a506
,0 IFN TOP$10,,P<PUSHJ 17,RMS$10#,p#+C$PARSE>
- IFN TOP$20,<10-04B8+1000+C$PARSE>-P
> -p ;a506
IFN .RMS$DY,<PUSHJ 17,.0@$$PARSE##>
.P IFN RMS$DJ,<PU.pSHJ 17,%$PARSE##>
ARSE##>] *p2q
I+FE <RMS$DJ+RMS$DY+0>,< ;a506
+P IFN TOP$10,+p<PUSHJ 17,RMS$10#,#+C$PUT>
,0 IFN TOP$20,<104B,P8+1000+C$PUT>
,p > ;a5-06
IFN RMS$-0DY,<PUSHJ 17,@$$P-PUT##>
IFN-p RMS$DJ,<PUSHJ 17.,%$PUT##>
$PUT##>
X2
P@o
I
pFE <RMS$DJ+RMS$DY >,< ;a506
0 IFN TOP$10, P<PUSHJ 17,RMS$10# p#+C$READ>
IFN TOP$20,<104
0B8+1000+C$READ>
P
> ;
pa506
S$DYIFNURM 17,@$
PIFN,MS$DJ,<PUSHJ
READ##>
[ P9
IpFE <RMS$DJ+RMS$DY>,< ;a506
0 IFN TOP$10,P<PUSHJ 17,RMS$10#p#+C$RELEASE>
IFN TOP$20,<0104B8+1000+C$RELEPASE>
> p ;a506
IFN RMS$DY,<PUSHJ0 17,@$$RELEASE##>P
IFN RMS$pDJ,<PUSHJ 17,%$RELEASE##>
EASE##>
[7 WPEW
IWpFE <RMS$DJ+RMS$DYX>,< ;a506
X0 IFN TOP$10,XP<PUSHJ 17,RMS$10#Xp#+C$REMOVE>
Y IFN TOP$20,<1Y004B8+1000+C$REMOVYPE>
> Yp ;a506
ZP IFZN RMS$DY,<PUSHJ 1Z07,@$$REMOVE##>
IFN RMS$DJ,Zp<PUSHJ 17,%$REMOVE##>
MOV[P bPF/
IbpFE <RMS$DJ+RMS$DYc>,< ;a506
c0 IFN TOP$10,cP<PUSHJ 17,RMS$10#cp#+C$RENAME>
d IFN TOP$20,<1d004B8+1000+C$RENAMdPE>
> dp ;a506
eP IFeN RMS$DY,<PUSHJ 1e07,@$$RENAME##>
IFN RMS$DJ,ep<PUSHJ 17,%$RENAME##>
NAM]t tP??
ItpFE <RMS$DJ+RMS$DYu>,< ;a506
u0 IFN TOP$10,uP<PUSHJ 17,RMS$10#up#+C$REWIND>
v IFN TOP$20,<1v004B8+1000+C$REWINvPD>
> vp ;a506
wP IFwN RMS$DY,<PUSHJ 1w07,@$$REWIND##>
IFN RMS$DJ,wp<PUSHJ 17,%$REWIND##>
WIN X9 6PCO
I6pFE <RMS$DJ+RMS$DY7>,< ;a506
70 IFN TOP$10,7P<PUSHJ 17,RMS$10#7p#+C$SEARCH>
8 IFN TOP$20,<18004B8+1000+C$SEARC8PH>
> 8p ;a506
9P IF9N RMS$DY,<PUSHJ 1907,@$$SEARCH##>
IFN RMS$DJ,9p<PUSHJ 17,%$SEARCH##>
ARC 1 PAG
IpFE <RMS$DJ+RMS$DY>,< ;a506
0 IFN TOP$10,P<PUSHJ 17,RMS$10#p#+C$SPACE>
IFN TOP$20,<1004B8+1000+C$SPACE>P
> p ;a506
IFN RMS$DY,<PUSHJ 17,0@$$SPACE##>
P IFN RMS$DJ,<PUpSHJ 17,%$SPACE##>
PACE##>&-7 Vp5S
IWFE <RMS$DJ+RMS$DYW0>,< ;a506
WP IFN TOP$10,Wp<PUSHJ 17,RMS$10#X#+C$TRUNCATE>
X0 IFN TOP$20,XP<104B8+1000+C$TRUXpNCATE>
> Y ;a506
Y0 IFN RMS$DY,<PUSYPHJ 17,@$$TRUNCATEYp##>
IFN RZMS$DJ,<PUSHJ 17,%Z0$TRUNCATE##>
CATE##>
. 5p3I
I6FE <RMS$DJ+RMS$DY60>,< ;a506
6P IFN TOP$10,6p<PUSHJ 17,RMS$10#7#+C$UPDATE>
70 IFN TOP$20,<17P04B8+1000+C$UPDAT7pE>
> 8 ;a506
8p IF80N RMS$DY,<PUSHJ 18P7,@$$UPDATE##>
IFN RMS$DJ,9<PUSHJ 17,%$UPDATE##>
DAT.K ^P>
I^pFE <RMS$DJ+RMS$DY_>,< ;a506
_0 IFN TOP$10,_P<PUSHJ 17,RMS$10#_p#+C$UTLINT>
` IFN TOP$20,<1`004B8+1000+C$UTLIN`PT>
> `p ;a506
aP IFaN RMS$DY,<PUSHJ 1a07,@$$UTLINT##>
IFN RMS$DJ,ap<PUSHJ 17,%$UTLINT##>
LIN<: P@
IpFE <RMS$DJ+RMS$DY>,< ;a506
0 IFN TOP$10,P<PUSHJ 17,RMS$10#p#+C$WAIT>
P IFN TOP$20,<1040B8+1000+C$WAIT>
> ;pa506
IFN RMS$DY,<PUSHJ 17,@$0$WAIT##>
PIFN RMS$DJ,<PUSHJp 17,%$WAIT##>
WAIT##>
>*: PB
I pFE <RMS$DJ+RMS$DY!>,< ;a506
!0 IFN TOP$10,!P<PUSHJ 17,RMS$10#!p#+C$WRITE>
" IFN TOP$20,<10"04B8+1000+C$WRITE>"P
> "p ;a506
IFN #RMS$DY,<PUSHJ 17,#0@$$WRITE##>
#P IFN RMS$DJ,<PU#pSHJ 17,%$WRITE##>
RITE##> e|r P1{
IFB <Ap>,<IF1,<PRINTX %ARGBLK ADDRESS OMI0TTED ON CLOSE MACPRO>>
XMOVEI 1, pA
IFIDN <CLOSE><RENAME>,< 0
IFB <C>P,<IF1,<PRINTX %NEpWFAB ADDRESS OMITTED ON RENAME MAC0RO>>
XMOVEI 2, PC>
IFDIF <CLOSpE><RENAME>,<
IF NB <C>,<IF1,<PRI 0NTX %MORE THAN 2 PARGS DETECTED IN pCLOSE MACRO>>>
$%CLOSE
IFE 0<RMS$DY+RMS$DJ>,< P
IFNB <B>,<JU pMP 17,B>
IFB <B>,<JUMP 16,.+1 0> >
IFN <RMS$ PDY+RMS$DJ>,< IFNB p <B>,<
CAIL 2 ,300000
0 PUSHJ 17,B >>
>> }kR f06k
IFB <AfP>,<IF1,<PRINTX %AfpRGBLK ADDRESS OMIgTTED ON CONNECT Mg0ACRO>>
XMOVEI 1gP, A
IFIDN <CONgpNECT><RENAME>,< h
IFB h0<C>,<IF1,<PRINTXhP %NEWFAB ADDRESS hpOMITTED ON RENAMEi MACRO>>
XMOVEIi0 2, C>
IFDIF <iPCONNECT><RENAME>,ip<
IFNB <C>,<IFj1,<PRINTX %MORE Tj0HAN 2 ARGS DETECTjPED IN CONNECT MACjpRO>>>
$%CONNECTk
IFE <RMS$DYk0+RMS$DJ>,<
IFNkPB <B>,<JUMP 17,kpB>
IFB <B>,<JlUMP 16,.+1> >
l0 IFN <RMS$DY+RMS$lPDJ>,< IFNB <B>,<lp
CAIL 2,300000m
PUSHJ m017,B >>
>>
X: }08!
IFB <A}P>,<IF1,<PRINTX %A}pRGBLK ADDRESS OMI~TTED ON CREATE MA~0CRO>>
XMOVEI 1,~P A
IFIDN <CREA~pTE><RENAME>,<
IFB <0C>,<IF1,<PRINTX %PNEWFAB ADDRESS OMpITTED ON RENAME MACRO>>
XMOVEI 20, C>
IFDIF <CRPEATE><RENAME>,<
p IFNB <C>,<IF1,<PRINTX %MORE THAN0 2 ARGS DETECTED PIN CREATE MACRO>>p>
$%CREATE
IFE <RMS$DY+RMS$0DJ>,<
IFNB <BP>,<JUMP 17,B>
p IFB <B>,<JUMP 16,.+1> >
IFN 0<RMS$DY+RMS$DJ>,<P IFNB <B>,<
CpAIL 2,300000
PUSHJ 17,B >>
,-3 08y
IFB <AP>,<IF1,<PRINTX %ApRGBLK ADDRESS OMI TTED ON DEBUG MAC 0RO>>
XMOVEI 1, PA
IFIDN <DEBUG p><RENAME>,<
IFB <C>
0,<IF1,<PRINTX %NE
PWFAB ADDRESS OMIT
pTED ON RENAME MAC RO>>
XMOVEI 2, 0C>
IFDIF <DEBU PG><RENAME>,<
IF pNB <C>,<IF1,<PRI
NTX %MORE THAN 2
0ARGS DETECTED IN
PDEBUG MACRO>>>
p$%DEBUG
IFESDY+RMS$DJ>,<
IFNB,<B>,<JU
IFB,JUMP 16,.+1> >
IFN <RMS$0DY+RMS$DJ>,< IFNBP <B>,<
CAIL 2p,300000
PUSHJ 17,B >>
>> -I: DP4[
IFB <ADp>,<IF1,<PRINTX %AERGBLK ADDRESS OMIE0TTED ON DELETE MAEPCRO>>
XMOVEI 1,Ep A
IFIDN <DELEFTE><RENAME>,< F0
IFB <FPC>,<IF1,<PRINTX %FpNEWFAB ADDRESS OMGITTED ON RENAME MG0ACRO>>
XMOVEI 2GP, C>
IFDIF <DEGpLETE><RENAME>,<
H IFNB <C>,<IF1,<H0PRINTX %MORE THANHP 2 ARGS DETECTED HpIN DELETE MACRO>>I>
$%DELETE
I0 IFE <RMS$DY+RMS$IPDJ>,<
IFNB <BIp>,<JUMP 17,B>
J IFB <B>,<JUMP 1J06,.+1> >
IFN JP<RMS$DY+RMS$DJ>,<Jp IFNB <B>,<
CKAIL 2,300000 K0
PUSHJ 17,B >>
N8w r7K
IFB <Ar0>,<IF1,<PRINTX %ArPRGBLK ADDRESS OMIrpTTED ON DISCONNECsT MACRO>>
XMOVEs0I 1, A
IFIDN <sPDISCONNECT><RENAMspE>,<
IFB <C>,<IF1,<t0PRINTX %NEWFAB ADtPDRESS OMITTED ON tpRENAME MACRO>>
uXMOVEI 2, C>
Iu0FDIF <DISCONNECT>uP<RENAME>,<
IFNBup <C>,<IF1,<PRINTvX %MORE THAN 2 ARv0GS DETECTED IN DIvPSCONNECT MACRO>>>vp
$%DISCONNECT w
IFE <RMS$DY+Rw0MS$DJ>,<
IFNB wP<B>,<JUMP 17,B>wp
IFB <B>,<JUMxP 16,.+1> >
Ix0FN <RMS$DY+RMS$DJxP>,< IFNB <B>,<
xp CAIL 2,300000 y
PUSHJ 17y0,B >>
>>
N< A<A
IFB <AA0>,<IF1,<PRINTX %AAPRGBLK ADDRESS OMIApTTED ON DISPLAY MBACRO>>
XMOVEI 1B0, A
IFIDN <DISBPPLAY><RENAME>,< Bp
IFB C<C>,<IF1,<PRINTXC0 %NEWFAB ADDRESS CPOMITTED ON RENAMECp MACRO>>
XMOVEID 2, C>
IFDIF <D0DISPLAY><RENAME>,DP<
IFNB <C>,<IFDp1,<PRINTX %MORE TEHAN 2 ARGS DETECTE0ED IN DISPLAY MACEPRO>>>
$%DISPLAYEp
IFE <RMS$DYF+RMS$DJ>,<
IFNF0B <B>,<JUMP 17,FPB>
IFB <B>,<JFpUMP 16,.+1> >
G IFN <RMS$DY+RMS$G0DJ>,< IFNB <B>,<GP
CAIL 2,300000Gp
PUSHJ H17,B >>
>>
vI9 E0Da
IFB <AEP>,<IF1,<PRINTX %AEpRGBLK ADDRESS OMIFTTED ON ENTER MACF0RO>>
XMOVEI 1, FPA
IFIDN <ENTERFp><RENAME>,< G
IFB <C>G0,<IF1,<PRINTX %NEGPWFAB ADDRESS OMITGpTED ON RENAME MACHRO>>
XMOVEI 2, H0C>
IFDIF <ENTEHPR><RENAME>,<
IFHpNB <C>,<IF1,<PRIINTX %MORE THAN 2 I0ARGS DETECTED IN IPENTER MACRO>>>
Ip$%ENTER
IFE J<RMS$DY+RMS$DJ>,<J0
IFNB <B>,<JUJPMP 17,B>
IFB Jp<B>,<JUMP 16,.+1K> >
IFN <RMS$K0DY+RMS$DJ>,< IFNBKP <B>,<
CAIL 2Kp,300000
L PUSHJ 17,B >>
>> r L0=
IFB <ALP>,<IF1,<PRINTX %ALpRGBLK ADDRESS OMIMTTED ON ERASE MACM0RO>>
XMOVEI 1, MPA
IFIDN <ERASEMp><RENAME>,< N
IFB <C>N0,<IF1,<PRINTX %NENPWFAB ADDRESS OMITNpTED ON RENAME MACORO>>
XMOVEI 2, O0C>
IFDIF <ERASOPE><RENAME>,<
IFOpNB <C>,<IF1,<PRIPNTX %MORE THAN 2 P0ARGS DETECTED IN PPERASE MACRO>>>
Pp$%ERASE
IFE Q<RMS$DY+RMS$DJ>,<Q0
IFNB <B>,<JUQPMP 17,B>
IFB Qp<B>,<JUMP 16,.+1R> >
IFN <RMS$R0DY+RMS$DJ>,< IFNBRP <B>,<
CAIL 2Rp,300000
S PUSHJ 17,B >>
>> FI7 P0E9
IFB <APP>,<IF1,<PRINTX %APpRGBLK ADDRESS OMIQTTED ON EXTEND MAQ0CRO>>
XMOVEI 1,QP A
IFIDN <EXTEQpND><RENAME>,< R
IFB <R0C>,<IF1,<PRINTX %RPNEWFAB ADDRESS OMRpITTED ON RENAME MSACRO>>
XMOVEI 2S0, C>
IFDIF <EXSPTEND><RENAME>,<
Sp IFNB <C>,<IF1,<TPRINTX %MORE THANT0 2 ARGS DETECTED TPIN EXTEND MACRO>>Tp>
$%EXTEND
U IFE <RMS$DY+RMS$U0DJ>,<
IFNB <BUP>,<JUMP 17,B>
Up IFB <B>,<JUMP 1V6,.+1> >
IFN V0<RMS$DY+RMS$DJ>,<VP IFNB <B>,<
CVpAIL 2,300000 W
PUSHJ 17,B >>
.Ht t/C
$$ISOL(t8B)
IFE <T$$tXSZ-^D18>,<
utx IFE T$$PS,<
HRRZ A,T$$OF+u8C
T$$SZ==0
>
IFEux <T$$PS-^D18>,< v
HLRZ A,T$$OFv8+C
T$$SZ==0 vX
>
>
IFvxE <T$$SZ-^D36>,< w
MOVE A,T$$Ow8F+C
T$$SZ==0 wX
>
IFN T$$SZwx,<
LDB A,[x<T$$PS>B5 ! <T$$Sx8Z>B11 ! <T$$OF+C>]
>
$$OF+C L[ sX/ [F$$A+B][F$$A+B] Mi OP53
IFB <AOp>,<IF1,<PRINTX %APRGBLK ADDRESS OMIP0TTED ON FIND MACRPPO>>
XMOVEI 1, PpA
IFIDN <FIND><QRENAME>,< Q0
IFB <C>,<QPIF1,<PRINTX %NEWFQpAB ADDRESS OMITTERD ON RENAME MACROR0>>
XMOVEI 2, CRP>
IFDIF <FIND><RpRENAME>,<
IFNB S<C>,<IF1,<PRINTXS0 %MORE THAN 2 ARGSPS DETECTED IN FINSpD MACRO>>>
$%FITND
IFE <RMS$T0DY+RMS$DJ>,<
ITPFNB <B>,<JUMP 17Tp,B>
IFB <B>,U<JUMP 16,.+1> > U0
IFN <RMS$DY+RMUPS$DJ>,< IFNB <B>Up,<
CAIL 2,3000V00
PUSHV0J 17,B >>
>>
f\t p:-
IFB <A >,<IF1,<PRINTX %A 0RGBLK ADDRESS OMI PTTED ON FLUSH MAC pRO>>
XMOVEI 1, A
IFIDN <FLUSH 0><RENAME>,< P
IFB <C> p,<IF1,<PRINTX %NE!WFAB ADDRESS OMIT!0TED ON RENAME MAC!PRO>>
XMOVEI 2, !pC>
IFDIF <FLUS"H><RENAME>,<
IF"0NB <C>,<IF1,<PRI"PNTX %MORE THAN 2 "pARGS DETECTED IN #FLUSH MACRO>>>
#0$%FLUSH
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 >>
>> Y W0=q
IFB <AWP>,<IF1,<PRINTX %AWpRGBLK ADDRESS OMIXTTED ON FREE MACRX0O>>
XMOVEI 1, XPA
IFIDN <FREE><XpRENAME>,< Y
IFB <C>,<Y0IF1,<PRINTX %NEWFYPAB ADDRESS OMITTEYpD ON RENAME MACROZ>>
XMOVEI 2, CZ0>
IFDIF <FREE><ZPRENAME>,<
IFNB Zp<C>,<IF1,<PRINTX[ %MORE THAN 2 ARG[0S DETECTED IN FRE[PE MACRO>>>
$%FR[pEE
IFE <RMS$\DY+RMS$DJ>,<
I\0FNB <B>,<JUMP 17\P,B>
IFB <B>,\p<JUMP 16,.+1> > ]
IFN <RMS$DY+RM]0S$DJ>,< IFNB <B>]P,<
CAIL 2,3000]p00
PUSH^J 17,B >>
>>
.@ #P2S
IFB <A#p>,<IF1,<PRINTX %A$RGBLK ADDRESS OMI$0TTED ON GET MACRO$P>>
XMOVEI 1, A$p
IFIDN <GET><RE%NAME>,< %0
IFB <C>,<IF%P1,<PRINTX %NEWFAB%p ADDRESS OMITTED &ON RENAME MACRO>>&0
XMOVEI 2, C>
IFDIF <GET><REN&pAME>,<
IFNB <C'>,<IF1,<PRINTX %M'0ORE THAN 2 ARGS D'PETECTED IN GET MA'pCRO>>>
$%GET (
IFE <RMS$DY+RM(0S$DJ>,<
IFNB <(PB>,<JUMP 17,B>
IFB <B>,<JUMP) 16,.+1> >
IF)0N <RMS$DY+RMS$DJ>)P,< IFNB <B>,<
)p CAIL 2,300000 *
PUSHJ 17,*0B >>
>>
&u n0G
PUSHnPJ 17,$$RMS##
.pREQUIRE SYS:RMSINI
SHORD 6.<p *;
IFB <A*0>,<IF1,<PRINTX %A*PRGBLK ADDRESS OMI*pTTED ON MESSAGE M+ACRO>>
XMOVEI 1+0, A
IFIDN <MES+PSAGE><RENAME>,< +p
IFB ,<C>,<IF1,<PRINTX,0 %NEWFAB ADDRESS ,POMITTED ON RENAME,p MACRO>>
XMOVEI- 2, C>
IFDIF <-0MESSAGE><RENAME>,-P<
IFNB <C>,<IF-p1,<PRINTX %MORE T.HAN 2 ARGS DETECT.0ED IN MESSAGE MAC.PRO>>>
$%MESSAGE.p
IFE <RMS$DY/+RMS$DJ>,<
IFN/0B <B>,<JUMP 17,/PB>
IFB <B>,<J/pUMP 16,.+1> >
0 IFN <RMS$DY+RMS$00DJ>,< IFNB <B>,<0P
CAIL 2,3000000p
PUSHJ 117,B >>
>>
:}Y9 5p;g
IFB <A6>,<IF1,<PRINTX %A60RGBLK ADDRESS OMI6PTTED ON NOMESSAGE6p MACRO>>
XMOVEI7 1, A
IFIDN <N70OMESSAGE><RENAME>7P,<
7pIFB <C>,<IF1,<PR8INTX %NEWFAB ADDR80ESS OMITTED ON RE8PNAME MACRO>>
XM8pOVEI 2, C>
IFD9IF <NOMESSAGE><RE90NAME>,<
IFNB <9PC>,<IF1,<PRINTX %9pMORE THAN 2 ARGS :DETECTED IN NOMES:0SAGE MACRO>>>
$:P%NOMESSAGE
I:pFE <RMS$DY+RMS$DJ;>,<
IFNB <B>,;0<JUMP 17,B>
I;PFB <B>,<JUMP 16,;p.+1> >
IFN <R<MS$DY+RMS$DJ>,< I<0FNB <B>,<
CAI<PL 2,300000
PUSHJ 17,B >>
;FMW m0?!
IFB <AmP>,<IF1,<PRINTX %AmpRGBLK ADDRESS OMInTTED ON NXTVOL MAn0CRO>>
XMOVEI 1,nP A
IFIDN <NXTVnpOL><RENAME>,< o
IFB <o0C>,<IF1,<PRINTX %oPNEWFAB ADDRESS OMopITTED ON RENAME MpACRO>>
XMOVEI 2p0, C>
IFDIF <NXpPTVOL><RENAME>,<
pp IFNB <C>,<IF1,<qPRINTX %MORE THANq0 2 ARGS DETECTED qPIN NXTVOL MACRO>>qp>
$%NXTVOL
r IFE <RMS$DY+RMS$r0DJ>,<
IFNB <BrP>,<JUMP 17,B>
rp IFB <B>,<JUMP 1s6,.+1> >
IFN s0<RMS$DY+RMS$DJ>,<sP IFNB <B>,<
CspAIL 2,300000 t
PUSHJ 17,B >>
P1# ?[@
IFBI<APRINTX %ARGBLK ADDRESS OMI0TTED ON OPEN MACRPO>>
XMOVEI 1, pA
IFIDN <OPEN><RENAME>,< 0
IFB <C>,<PIF1,<PRINTX %NEWFpAB ADDRESS OMITTED ON RENAME MACRO0>>
XMOVEI 2, CP>
IFDIF <OPEN><pRENAME>,<
IFNB <C>,<IF1,<PRINTX0 %MORE THAN 2 ARGPS DETECTED IN OPEpN MACRO>>>
$%OPEN
IFE <RMS$0DY+RMS$DJ>,<
IPFNB <B>,<JUMP 17p,B>
IFB <B>,<JUMP 16,.+1> > 0
IFN <RMS$DY+RMPS$DJ>,< IFNB <B>p,<
CAIL 2,300000
PUSH0J 17,B >>
>>
B,r /0C1
IFB <A/P>,<IF1,<PRINTX %A/pRGBLK ADDRESS OMI0TTED ON PARSE MAC00RO>>
XMOVEI 1, 0PA
IFIDN <PARSE0p><RENAME>,< 1
IFB <C>10,<IF1,<PRINTX %NE1PWFAB ADDRESS OMIT1pTED ON RENAME MAC2RO>>
XMOVEI 2, 20C>
IFDIF <PARS2PE><RENAME>,<
IF2pNB <C>,<IF1,<PRI3NTX %MORE THAN 2 30ARGS DETECTED IN 3PPARSE MACRO>>>
3p$%PARSE
IFE 4<RMS$DY+RMS$DJ>,<40
IFNB <B>,<JU4PMP 17,B>
IFB 4p<B>,<JUMP 16,.+15> >
IFN <RMS$50DY+RMS$DJ>,< IFNB5P <B>,<
CAIL 25p,300000
6 PUSHJ 17,B >>
>> C.@ .P3+
IFB <A.p>,<IF1,<PRINTX %A/RGBLK ADDRESS OMI/0TTED ON PUT MACRO/P>>
XMOVEI 1, A/p
IFIDN <PUT><RE0NAME>,< 00
IFB <C>,<IF0P1,<PRINTX %NEWFAB0p ADDRESS OMITTED 1ON RENAME MACRO>>10
XMOVEI 2, C>
IFDIF <PUT><REN1pAME>,<
IFNB <C2>,<IF1,<PRINTX %M20ORE THAN 2 ARGS D2PETECTED IN PUT MA2pCRO>>>
$%PUT 3
IFE <RMS$DY+RM30S$DJ>,<
IFNB <3PB>,<JUMP 17,B>
IFB <B>,<JUMP4 16,.+1> >
IF40N <RMS$DY+RMS$DJ>4P,< IFNB <B>,<
4p CAIL 2,300000 5
PUSHJ 17,50B >>
>>
J, 0A)
IFB <AP>,<IF1,<PRINTX %ApRGBLK ADDRESS OMITTED ON READ MACR0O>>
XMOVEI 1, PA
IFIDN <READ><pRENAME>,<
IFB <C>,<0IF1,<PRINTX %NEWFPAB ADDRESS OMITTEpD ON RENAME MACRO>>
XMOVEI 2, C0>
IFDIF <READ><PRENAME>,<
IFNB p<C>,<IF1,<PRINTX %MORE THAN 2 ARG0S DETECTED IN REAPD MACRO>>>
$%REpAD
IFE <RMS$DY+RMS$DJ>,<
I0FNB <B>,<JUMP 17P,B>
IFB <B>,p<JUMP 16,.+1> >
IFN <RMS$DY+RM0S$DJ>,< IFNB <B>P,<
CAIL 2,3000p00
PUSHJ 17,B >>
>>
J-I0 P9U
IFB <Ap>,<IF1,<PRINTX %ARGBLK ADDRESS OMI0TTED ON RELEASE MPACRO>>
XMOVEI 1p, A
IFIDN <RELEASE><RENAME>,< 0
IFB P<C>,<IF1,<PRINTXp %NEWFAB ADDRESS OMITTED ON RENAME0 MACRO>>
XMOVEIP 2, C>
IFDIF <pRELEASE><RENAME>,<
IFNB <C>,<IF01,<PRINTX %MORE TPHAN 2 ARGS DETECTpED IN RELEASE MACRO>>>
$%RELEASE0
IFE <RMS$DYP+RMS$DJ>,<
IFNpB <B>,<JUMP 17,B>
IFB <B>,<J0UMP 16,.+1> >
P IFN <RMS$DY+RMS$pDJ>,< IFNB <B>,<
CAIL 2,3000000
PUSHJ P17,B >>
>>
J-[{ [0F
IFB <A[P>,<IF1,<PRINTX %A[pRGBLK ADDRESS OMI\TTED ON REMOVE MA\0CRO>>
XMOVEI 1,\P A
IFIDN <REMO\pVE><RENAME>,< ]
IFB <]0C>,<IF1,<PRINTX %]PNEWFAB ADDRESS OM]pITTED ON RENAME M^ACRO>>
XMOVEI 2^0, C>
IFDIF <RE^PMOVE><RENAME>,<
^p IFNB <C>,<IF1,<_PRINTX %MORE THAN_0 2 ARGS DETECTED _PIN REMOVE MACRO>>_p>
$%REMOVE
` IFE <RMS$DY+RMS$`0DJ>,<
IFNB <B`P>,<JUMP 17,B>
`p IFB <B>,<JUMP 1a6,.+1> >
IFN a0<RMS$DY+RMS$DJ>,<aP IFNB <B>,<
CapAIL 2,300000 b
PUSHJ 17,B >>
J-h6 f0Fi
IFB <AfP>,<IF1,<PRINTX %AfpRGBLK ADDRESS OMIgTTED ON RENAME MAg0CRO>>
XMOVEI 1,gP A
IFIDN <RENAgpME><RENAME>,< h
IFB <h0C>,<IF1,<PRINTX %hPNEWFAB ADDRESS OMhpITTED ON RENAME MiACRO>>
XMOVEI 2i0, C>
IFDIF <REiPNAME><RENAME>,<
ip IFNB <C>,<IF1,<jPRINTX %MORE THANj0 2 ARGS DETECTED jPIN RENAME MACRO>>jp>
$%RENAME
k IFE <RMS$DY+RMS$k0DJ>,<
IFNB <BkP>,<JUMP 17,B>
kp IFB <B>,<JUMP 1l6,.+1> >
IFN l0<RMS$DY+RMS$DJ>,<lP IFNB <B>,<
ClpAIL 2,300000 m
PUSHJ 17,B >>
J.M9 /POPJ 17, J.z7 x0?y
IFB <AxP>,<IF1,<PRINTX %AxpRGBLK ADDRESS OMIyTTED ON REWIND MAy0CRO>>
XMOVEI 1,yP A
IFIDN <REWIypND><RENAME>,< z
IFB <z0C>,<IF1,<PRINTX %zPNEWFAB ADDRESS OMzpITTED ON RENAME M{ACRO>>
XMOVEI 2{0, C>
IFDIF <RE{PWIND><RENAME>,<
{p IFNB <C>,<IF1,<|PRINTX %MORE THAN|0 2 ARGS DETECTED |PIN REWIND MACRO>>|p>
$%REWIND
} IFE <RMS$DY+RMS$}0DJ>,<
IFNB <B}P>,<JUMP 17,B>
}p IFB <B>,<JUMP 1~6,.+1> >
IFN ~0<RMS$DY+RMS$DJ>,<~P IFNB <B>,<
C~pAIL 2,300000
PUSHJ 17,B >>
Jn0 n0G
PUSHnPJ 17,$$RMS##
.pREQUIRE SYS:RMSINI
SHORD N, Q :0D
IFB <A:P>,<IF1,<PRINTX %A:pRGBLK ADDRESS OMI;TTED ON SEARCH MA;0CRO>>
XMOVEI 1,;P A
IFIDN <SEAR;pCH><RENAME>,< <
IFB <<0C>,<IF1,<PRINTX %<PNEWFAB ADDRESS OM<pITTED ON RENAME M=ACRO>>
XMOVEI 2=0, C>
IFDIF <SE=PARCH><RENAME>,<
=p IFNB <C>,<IF1,<>PRINTX %MORE THAN>0 2 ARGS DETECTED >PIN SEARCH MACRO>>>p>
$%SEARCH
? IFE <RMS$DY+RMS$?0DJ>,<
IFNB <B?P>,<JUMP 17,B>
?p IFB <B>,<JUMP 1@6,.+1> >
IFN @0<RMS$DY+RMS$DJ>,<@P IFNB <B>,<
C@pAIL 2,300000 A
PUSHJ 17,B >>
Or 0B
IFB <AP>,<IF1,<PRINTX %ApRGBLK ADDRESS OMITTED ON SPACE MAC0RO>>
XMOVEI 1, PA
IFIDN <SPACEp><RENAME>,<
IFB <C>0,<IF1,<PRINTX %NEPWFAB ADDRESS OMITpTED ON RENAME MAC RO>>
XMOVEI 2, 0C>
IFDIF <SPAC PE><RENAME>,<
IF pNB <C>,<IF1,<PRI NTX %MORE THAN 2 0ARGS DETECTED IN PSPACE MACRO>>>
p$%SPACE
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 >>
>> O%|R xx/k
$$ISOL(yB)
IFE <T$$y8SZ-^D18>,<
yxyX IFE T$$PS,<
HRRM A,T$$OF+zC
T$$SZ==0
>
IFEzX <T$$PS-^D18>,< zx
HRLM A,T$$OF{+C
T$$SZ==0 {8
>
>
IF{XE <T$$SZ-^D36>,< {x
MOVEM A,T$$|OF+C
T$$SZ==0|8 ;INDIC INST GEN|X
>
IFN T$$SZ,|x<
DPB A,[<}T$$PS>B5 ! <T$$SZ}8>B11 ! <T$$OF+C>]
>
$$OF+C> S[Q Zp6
IFB <A[>,<IF1,<PRINTX %A[0RGBLK ADDRESS OMI[PTTED ON TRUNCATE [pMACRO>>
XMOVEI \1, A
IFIDN <TR\0UNCATE><RENAME>,<\P
IF\pB <C>,<IF1,<PRIN]TX %NEWFAB ADDRES]0S OMITTED ON RENA]PME MACRO>>
XMOV]pEI 2, C>
IFDIF^ <TRUNCATE><RENAM^0E>,<
IFNB <C>,^P<IF1,<PRINTX %MOR^pE THAN 2 ARGS DET_ECTED IN TRUNCATE_0 MACRO>>>
$%TRU_PNCATE
IFE <R_pMS$DY+RMS$DJ>,<
` IFNB <B>,<JUMP`0 17,B>
IFB <`PB>,<JUMP 16,.+1> `p>
IFN <RMS$DYa+RMS$DJ>,< IFNB <a0B>,<
CAIL 2,3aP00000
PapUSHJ 17,B >>
WH >>9P4
IFB <A9p>,<IF1,<PRINTX %A:RGBLK ADDRESS OMI:0TTED ON UPDATE MA:PCRO>>
XMOVEI 1,:p A
IFIDN <UPDA;TE><RENAME>,< ;0
IFB <;PC>,<IF1,<PRINTX %;pNEWFAB ADDRESS OM<ITTED ON RENAME M<0ACRO>>
XMOVEI 2<P, C>
IFDIF <UP<pDATE><RENAME>,<
= IFNB <C>,<IF1,<=0PRINTX %MORE THAN=P 2 ARGS DETECTED =pIN UPDATE MACRO>>>>
$%UPDATE
>0 IFE <RMS$DY+RMS$>PDJ>,<
IFNB <B>p>,<JUMP 17,B>
? IFB <B>,<JUMP 1?06,.+1> >
IFN ?P<RMS$DY+RMS$DJ>,<?p IFNB <B>,<
C@AIL 2,300000 @0
PUSHJ 17,B >>
W%J7 b0>I
IFB <AbP>,<IF1,<PRINTX %AbpRGBLK ADDRESS OMIcTTED ON UTLINT MAc0CRO>>
XMOVEI 1,cP A
IFIDN <UTLIcpNT><RENAME>,< d
IFB <d0C>,<IF1,<PRINTX %dPNEWFAB ADDRESS OMdpITTED ON RENAME MeACRO>>
XMOVEI 2e0, C>
IFDIF <UTePLINT><RENAME>,<
ep IFNB <C>,<IF1,<fPRINTX %MORE THANf0 2 ARGS DETECTED fPIN UTLINT MACRO>>fp>
$%UTLINT
g IFE <RMS$DY+RMS$g0DJ>,<
IFNB <BgP>,<JUMP 17,B>
gp IFB <B>,<JUMP 1h6,.+1> >
IFN h0<RMS$DY+RMS$DJ>,<hP IFNB <B>,<
ChpAIL 2,300000 i
PUSHJ 17,B >>
^0@Q
IFB <AP>,<IF1,<PRINTX %ApRGBLK ADDRESS OMITTED ON WAIT MACR0O>>
XMOVEI 1, PA
IFIDN <WAIT><pRENAME>,<
IFB <C>,<0IF1,<PRINTX %NEWFPAB ADDRESS OMITTEpD ON RENAME MACRO>>
XMOVEI 2, C0>
IFDIF <WAIT><PRENAME>,<
IFNB p<C>,<IF1,<PRINTX %MORE THAN 2 ARG0S DETECTED IN WAIPT MACRO>>>
$%WApIT
IFE <RMS$DY+RMS$DJ>,<
I0FNB <B>,<JUMP 17P,B>
IFB <B>,p<JUMP 16,.+1> >
IFN <RMS$DY+RM 0S$DJ>,< IFNB <B> P,<
CAIL 2,3000 p00
PUSH
J 17,B >>
>>
$0BY
IFB <A$P>,<IF1,<PRINTX %A$pRGBLK ADDRESS OMI%TTED ON WRITE MAC%0RO>>
XMOVEI 1, %PA
IFIDN <WRITE%p><RENAME>,< &
IFB <C>&0,<IF1,<PRINTX %NE&PWFAB ADDRESS OMIT&pTED ON RENAME MAC'RO>>
XMOVEI 2, '0C>
IFDIF <WRIT'PE><RENAME>,<
IF'pNB <C>,<IF1,<PRI(NTX %MORE THAN 2 (0ARGS DETECTED IN (PWRITE MACRO>>>
(p$%WRITE
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 >>
>> : *x"_
DEFINE +A$B(ARG)<
IF+81,<PRINTX %"A$B+X" RMS-11 ONLY, IG+xNORED BY RMS-20>
>
YhRMS-20>,8"e
IRP A,,X< ..BADF(F,A) >
.BADF(F,A)">
IRP A,-8< ..BADF(R,A) >
.BADF(R,A)">
IRP A,.< ..BADF(X,A) >
.BADF(X,A)(>P# =P 6 D(9P# D=P O,(9P O,=P >}{woP