Trailing-Edge
-
PDP-10 Archives
-
BB-AE97C-BM
-
subsys/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,5 y@ P F KyP F {WP F )0P F$XZP F$[P F% qP F% xP F.(9P F5RP F5M9P F6)2P F<] P Fl\yP Fu{2P F~ 7P F] P F[P F&-7P F. P F.KP 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$;r@ # KH$;s@ # KH$=9@ # KH$H7@ # KH$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%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 # 2KH%Z7@ # KH%\W@ # KH%\Y@ # KH%i3@ # KH%k@ # KH%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&98@ # +KH&:=@ # +KH&=8@ # 1KH&LR@ # ,KH&LZ@ # ,KH&XS@ # -KH&Y@ # -KH&i9@ # .KH&y9@ # .KH'1@ # /KH'v@ # /K`%X<P #'L$2Q $ L$Q L$*2Q $H L$*yQ
L$*zQ L$*}Q $ L$+Q H L$+Q L$,}Q L$9Q L$;rQ $ L$= Q L$H7Q $$ L$I;Q $H L$IVQ H L$MQ $ L$YQ L$[Q L$h1Q H L$h1Q $H L$kQ H L$kPQ L$kxQ $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%\WQ L%\YQ H L%h6Q H L%kpQ $ L%kuQ $ L%nQ H L%|SQ L&2Q 6$ L& yQ $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&(1Q 6$ L&(:Q $H L&(SQ L&)Q L&)3Q $ L&)HQ $H L&)IQ L&)JQ L&)PQ L&)VQ 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&,}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&N8Q $H L&XSQ L&\}Q H L'1Q H L
IF1,<P%(RINTX %"F$ANB" RM%HS-11 ONLY, IGNORE D BY RMS-20>
L<` LH$d $$NEWVAL ( BKS,A)NEWVAL (LL` L$` $$NEWVAL ( BLS,A)NEWVAL (L>@ J$P $$NEWVAL ( BSZ,A)NEWVAL (L N M$h $$NEWVAL ( CTX,A)NEWVAL (L%h !"
IF1,<P!(RINTX %"F$DNA" RM!HS-11 ONLY, IGNORE D BY RMS-20>
L%l` ""
IF1,<P"(RINTX %"F$DNS" RM"HS-11 ONLY, IGNORE D BY RMS-20>
L4` F$0 $$NEWVAL ( FAC,A)NEWVAL (L5h H$@ $$NEWVAL ( FNA,A)NEWVAL (L5l` "
IF1,<P (RINTX %"F$FNS" RM HS-11 ONLY, IGNORE D BY RMS-20>
L5| G$8 $$NEWVAL ( FOP,A)NEWVAL (L6>@ MH$l $$NEWVAL ( FSZ,A)NEWVAL (LTk@ EH$, $$NEWVAL ( JFN,A)NEWVAL (LUk KH$\ $$NEWVAL ( JNL,A)NEWVAL (Ld: '"<
IF1,<P'(RINTX %"F$LCH" RM'HS-11 ONLY, IGNORE D BY RMS-20>
Ln+@ IH$L $$NEWVAL ( MRN,A)NEWVAL (Ln,` I$H $$NEWVAL ( MRS,A)NEWVAL (Lt $" $$NEWVAL ( NAM,A)NEWVAL (L~)` GH$< $$NEWVAL ( ORG,A)NEWVAL (L HH$D $$NEWVAL ( RAT,A)NEWVAL (Lk JH$T $$NEWVAL ( RFM,A)NEWVAL (LM@ #"
IF1,<P#(RINTX %"F$RTV" RM#HS-11 ONLY, IGNORE D BY RMS-20>
L
@ FH$4 $$NEWVAL ( SHR,A)NEWVAL (L' $H"$ $$NEWVAL ( TYP,A)NEWVAL (LD@ K$X $$NEWVAL ( XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ ;H$(
IFNB <;hA>,< ;RUN-TIME <INIT
$$MAPADD <((A,$$ADDR); ; WI<HLL REFERENCE FAB <hVIA $$ADDR
SYN= SF$$RT,$$SET
>=(
IFB <A>,=H<SYN SF$$CT,$$SET=h>
$$CURR (F,B>ID)
$$CURR (F,>(BLN)
$$CURR (F>H,STS)
$$CURR (>hF,STV)
$$CURR ?(F,IFI)
$$CURR?( (F,JFN)
$$CUR?HR (F,FAC)
$$CU?hRR (F,SHR)
$$C@URR (F,FOP)
$$@(CURR (F,ORG)
$@H$CURR (F,FNA)
@h$$CURR (F,RAT)
A $$CURR (F,MRS)
A( $$CURR (F,MRN)
$$CURR (F,BSZ)Ah
$$CURR (F,RFMB)
$$CURR (F,XAB(B)
$$CURR (F,JBHNL)
$$CURR (F,BhBLS)
$$CURR (FC,BKS)
$$CURR (C(F,DEV)
$$CURR CH(F,SDC)
$$CURRCh (F,CTX)
$$CURDR (F,FSZ) ;![AWN]D(
$$CURR (F,TYPDH) ;![AWN]
$$CUDhRR (F,NAM) ;![AWNE]
$$CURR (F,AL Q) ;![AWN]
ALMI &H%d
IFNDEF Mh$$ADDR,<
<N$$SET(BID)>_^D18 N(! <$$SET(BLN)>
NH <$$SET(STS)>^D1Nh8 ! <$$SET(STV)>
<$$SET(CTX)>
O( <$$SET(IFI)>_^DOH18 ! <$$SET(JFN)>Oh
<$$SET(FAC)>_P^D18 ! <$$SET(SHRP()>
<$$SET(FOP)PH>_^D18 ! <$$SET(OPhRG)>_^D14 ! <$$SEQT(BSZ)>_^D8 ! <$$Q(SET(BLS)>
<$$SQHET(FNA)>
<$$SEQhT(RAT)>_^D18 ! <$R$SET(MRS)>
<$$R(SET(MRN)>
<$$SRHET(FSZ)>_^D13 ! <Rh$$SET(BKS)>_^D5 !S <$$SET(RFM)> ;![S(AWN]
<$$SET(JNSHL)>_^D18 ! <$$SETSh(XAB)>
<$$SET(TDEV)>_^D18 ! <$$ST(ET(SDC)>
<$$SETHT(TYP)>_^D18 ! <$Th$SET(NAM)> ;![AWNU]
<$$SET(ALQ)>U( ;![AWN]
EXUHP 0,0
> ;ENUhD IFNB
IFDEF $$VADDR,<
$$SET(BV(ID)
$$SET(BLN)VH
$$SET(STS)
Vh $$SET(STV)
$$WSET(IFI)
$$SETW((JFN)
$$SET(FAWHC)
$$SET(SHR)
$$SET(FOP)
X$$SET(ORG)
$$SX(ET(FNA)
$$SET(XHRAT)
$$SET(MRSXh)
$$SET(MRN)
Y $$SET(BSZ)
$Y($SET(RFM)
$$SEYHT(XAB)
$$SET(JYhNL)
$$SET(BLS)Z
$$SET(BKS)
Z( $$SET(DEV)
$$ZHSET(SDC)
$$SETZh(CTX)
$$SET(FS[Z) ;![AWN]
$[($SET(NAM) ;![AW[HN]
$$SET(TYP) [h ;![AWN]
$$SE\T(ALQ) ;![AWN]
PURGE $$AD\HDR
>
>
MN@ 3(+ $$ZERO(A ,FA$LNG) ERO(AM$P M$ P @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%JwP M%LpP M%YP M%ZrP M%h6P M%j6P M%yXP M%}:P M&
WP M&)1P M&)6P M&8sP M&98P 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@ #'d N kH&\ $$NEWVAL (CTX,A)NEWVAL d-L` lH&d $$NEWVAL (ELS,A)NEWVAL d4@ e&( $$NEWVAL (FAB,A)NEWVAL d\)@ iH&L $$NEWVAL (KBF,A)NEWVAL d^)@ hH&D $$NEWVAL (KRF,A)NEWVAL d^>@ i&H $$NEWVAL (KSZ,A)NEWVAL df;@ k&X $$NEWVAL (LSN,A)NEWVAL dl)@ j&P $$NEWVAL (MBF,A)NEWVAL d jH&T $$NEWVAL (PAD,A)NEWVAL d` eH&, $$NEWVAL (RAC,A)NEWVAL d)@ g&8 $$NEWVAL (RBF,A)NEWVAL dh l&` $$NEWVAL (RFA,A)NEWVAL d@ H"@
IF1,<P'hRINTX %"R$RHB" RM(S-11 ONLY, IGNORE D BY RMS-20>
d| f&0 $$NEWVAL (ROP,A)NEWVAL d>@ gH&< $$NEWVAL (RSZ,A)NEWVAL d,)@ fH&4 $$NEWVAL (UBF,A)NEWVAL d.>@ h&@ $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ ]&$
IFNB <](A>,<
$$MAPADD ]H(A,$$ADDR); ; WI]hLL REFERENCE THE ^BLOCK VIA $$ADDR
SYN SR$$RT,$$S^HET
>
IFB^h <A>,<SYN SR$$CT_,$$SET>
$$CUR_(R (R,BID)
$$CU_HRR (R,BLN)
$$C_hURR (R,STS)
$$`CURR (R,STV)
$`($CURR (R,ISI)
`H$$CURR (R,FAB)
`h $$CURR (R,RAC)
a $$CURR (R,ROP)
$$CURR (R,UBF)aH
$$CURR (R,RBFah)
$$CURR (R,RSbZ)
$$CURR (R,Ub(SZ)
$$CURR (R,bHRFA)
$$CURR (Rbh,KRF)
$$CURR (cR,KSZ)
$$CURR c((R,KBF)
$$CURRcH (R,MBF)
$$CURchR (R,LSN)
$$CUdRR (R,BKT)
$$Cd(URR (R,PAD)
$$dHCURR (R,CTX)
URR (R,CTX)
eI m'D
IFNDEF m($$ADDR,<
<$$SEmHT(BID)>_^D18 ! <$mh$SET(BLN)>
<$$nSET(STS)>_^D18 ! n(<$$SET(STV)>
<nH$$SET(CTX)>
<$nh$SET(ISI)>_^D18 !o <$$SET(FAB)>
o(<$$SET(RAC)>_^D27oH ! <$$SET(MBF)>_^ohD18 ! <$$SET(ROP)p>
<$$SET(UBF)>p(
<$$SET(RBF)>
<$$SET(RSZ)>_^phD18 ! <$$SET(USZ)q>
<$$SET(RFA)>q(
<$$SET(KRF)>_qH^D27 ! <$$SET(KSZqh)>_^D18 ! <$$SET(rLSN)>
<$$SET(Kr(BF)>
<$$SET(BKrHT)>
<$$SET(PADrh)>_^D27
EXP 0,s0,0
> ;IFNDEs(F
IFDEF $$ADDR,sH<
$$SET(BID)
sh $$SET(BLN)
$t$SET(STS)
$$SEt(T(STV)
$$SET(ItHSI)
$$SET(FAB)th
$$SET(RAC)
u $$SET(ROP)
$$u(SET(UBF)
$$SETuH(RBF)
$$SET(RSuhZ)
$$SET(USZ)
$$SET(RFA)
v($$SET(KRF)
$$SvHET(KSZ)
$$SET(vhKBF)
$$SET(MBFw)
$$SET(LSN)
w( $$SET(BKT)
$wH$SET(PAD)
$$SEwhT(CTX)
PURGE $x$ADDR ;SO NEXT x(C/R DECIS CORRECTxH
> ;IFDEF
> ;IFDEF
eN@ 3h+ $$ZERO(A ,RA$LNG) ERO(Ae$[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&x0P e&xPP e&xTP e4%X<
e4%Z7 f$(` ( 2 A$B==1B C A$B==1Bf$H` h . A$B==^D C A$B==^Df&8` ( * A$B==C $D A$B==Cg Hz 6h#8 IFDEF C$$7A,<C$$A> IFNDEF C$$A,<$$FA>F g LZ 5H#2
IFN5hDEF C$$A,<IFN $$6FA,<C$$A==$$FA6(>>
STO$$C( A)
TO$$C(gH Hz 8h#H IFDEF C$$9A,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ 7H#B
IFN7hDEF C$$A,<IFN $$8RA,<C$$A==$$RA8(>>
STO$$C( A)
TO$$C(gRxA 4#(
4H 4(IFDEF C$$A,<
<HRREI 1,> ! C4h$$A
$STORE 5(1,A,$$ADDR)
>
R)
gT$M8@ gT% @ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz :h#X IFDEF C$$;A,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ 9H#R
IFN9hDEF C$$A,<IFN $$:XA,<C$$A==$$XA:(>>
STO$$C( A)
TO$$C(i? D(P $ i? DHP pD,A)NEWVAL (p>@
(P $$NEWVAL ( BKZ,A)NEWVAL (p$@ (X $$NEWVAL ( DFL,A)NEWVAL (p&L H(\ $$NEWVAL ( DTP,A)NEWVAL (p,M (H $$NEWVAL ( EDT,A)NEWVAL (p5I`
(` $$NEWVAL ( FLG,A)NEWVAL (p>, /("~
IF1,<P/HRINTX %"X$GRP" RM/hS-11 ONLY, IGNORE D BY RMS-20>
pD *("V
IF1,<P*HRINTX %"X$HAL" RM*hS-11 ONLY, IGNORE D BY RMS-20>
pL@
H(d $$NEWVAL ( IAN,A)NEWVAL (pLk
H(T $$NEWVAL ( IFL,A)NEWVAL (p]k H(t $$NEWVAL ( KNM,A)NEWVAL (pd@
IF1,<P)HRINTX %"X$MTH" RM)hS-11 ONLY, IGNORE D BY RMS-20>
pwH(D $$NEWVAL ( NXT,A)NEWVAL (p~{@ .("v
IF1,<P.HRINTX %"X$OWN" RM.hS-11 ONLY, IGNORE D BY RMS-20>
p|` )
$$NE(WARRVAL (PS0,A)
$$NEWARRVAL (PhS1,B)
$$NEWARRVAL (PS2,C)
($$NEWARRVAL (PS3,HD)
$$NEWARRVAhL (PS4,E)
$$NEWARRVAL (PS5,F)(
$$NEWARRVAL (HPS6,G)
$$NEWAhRRVAL (PS7,H)
VAL (PS7,H)
p)` +("^
IF1,<P+HRINTX %"X$PRG" RM+hS-11 ONLY, IGNORE D BY RMS-20>
p*@ ,("f
IF1,<P,HRINTX %"X$PRJ" RM,hS-11 ONLY, IGNORE D BY RMS-20>
pY@ (p $$NEWVAL ( REF,A)NEWVAL (p +@ 2(#
IF1,<P2HRINTX %"X$SBN" RM2hS-11 ONLY, IGNORE D BY RMS-20>
p @ ()(
$$NEHWARRVAL (SZ0,A)
$$NEWARRVAL (SZ1,B)
$$NEWAR(RVAL (SZ2,C)
H$$NEWARRVAL (SZ3,hD)
$$NEWARRVAL (SZ4,E)
$$N(EWARRVAL (SZ5,F)H
$$NEWARRVAL (hSZ6,G)
$$NEWARRVAL (SZ7,H)
VAL (SZ7,H)
p ` -("n
IF1,<P-HRINTX %"X$SYS" RM-hS-11 ONLY, IGNORE D BY RMS-20>
p5{ 1(#
IF1,<P1HRINTX %"X$VOL" RM1hS-11 ONLY, IGNORE D BY RMS-20>
p=I 0(#
IF1,<P0HRINTX %"X$WLD" RM0hS-11 ONLY, IGNORE D BY RMS-20>
pD. 3(#
IF1,<P3HRINTX %"X$XBY" RM3hS-11 ONLY, IGNORE D BY RMS-20>
pT\WP q%KSP q&>P q&>P q&>P q&>P q&> P q&N8P qH@ y(@
IFNB <y(B>,<
$$MAPADD yH(B,$$ADDR)
SyhYN SX$$RT,$$SET
z >
IFB <Bz(>,<SYN SX$$CT,$$SzHET>
Czh$$COD==XB$A
{ C$$BLN==XA$SXA {(
$${HCURR (X,BID)
${h$CURR (X,RS1)
|$$CURR (X,NXT)
|(
$$CURR|H (X,CDT)
$$CUR|hR (X,RDT)
$$CU}RR (X,EDT)
}(
$$CURR (X,}HRS2)
$$CURR (X}h,AID)
$$CURR (~X,BKZ)
$$CURR (X,IFL)~H
$$CURR (X,DFL~h)
$$CURR (X,DTP)
$$CURR (X,F(LG)
$$CURR (X,HIAN)
$$CURR (Xh,DAN)
$$CURR ( X,LAN)
$$CURR ((X,REF)
$$CURR H (X,KNM)
$$CUR hR (X,RX0)
$$CURR (X,RX1)
$$C(URR (X,RX2)
$$HCURR (X,RX3)
$h$CURR (X,RX4)
$$CURR (X,RX5)
( $$CURR (X,PS0)
H $$CURR (X,PS1)
$$CURR (X,PS2)
$$CURR (X,PS3()
$$CURR (X,PSH4)
$$CURR (X,PhS5)
$$CURR (X,PS6)
$$CURR (X(,PS7)
$$CURR (HX,SZ0)
$$CURR h(X,SZ1)
$$CURR (X,SZ2)
$$CUR(R (X,SZ3)
$$CUHRR (X,SZ4)
$$ChURR (X,SZ5)
$$CURR (X,SZ6)
$($CURR (X,SZ7)
H
$$CURRh (X,RS6)
$$CURR (X,NOK)
$$CU(RR (X,NOA)
$$CHURR (X,RS7)
$$hCURR (X,RS8)
$$CURR (X,RS9)
CURR (X,RS9)
qI H+
IFNDEF h$$ADDR,<
<$$SET(BID)>_^D18 ! <$($SET(BLN)>
<$$HSET(COD)>_^D18 ! h<$$SET(NXT)>
IFE <C$$COD-XB$DAT(>,<
<$$SET(CDHT)>
<$$SET(RDhT)>
<$$SET(EDT)>
>
IFE <(C$$COD-XB$ALL>,<
<$$SET(AID)>_h^D9 ! <$$SET(BKZ)>
EXP 0,0,0
( >
IFE <C$$COHD-XB$KEY>,<
<h$$SET(DTP)>_^D18 ! <$$SET(FLG)>
( <$$SET(IAN)>_^DH27 ! <$$SET(DAN)>h_^D18 ! <$$SET(LAN)>_^D9 ! <$$SET((REF)>
<$$SET(HIFL)>_^D18 ! <$$ShET(DFL)>
<$$S ET(KNM)>
EXP (0,0,0,0,0
<$$ HSET(PS0)>_^D18 ! h<$$SET(SZ0)>
<$$SET(PS1)>_^D18 ( ! <$$SET(SZ1)>
H <$$SET(PS2)>_^ hD18 ! <$$SET(SZ2) >
<$$SET(PS3) (>_^D18 ! <$$SET(S HZ3)>
<$$SET(P hS4)>_^D18 ! <$$SE T(SZ4)>
<$$SE (T(PS5)>_^D18 ! <$ H$SET(SZ5)>
<$ h$SET(PS6)>_^D18 ! <$$SET(SZ6)>
( <$$SET(PS7)>^D1 H8 ! <$$SET(SZ7)>
>
IFE <C$$C!OD-XB$SUM>,<
!(<$$SET(NOK)>_^D9 !H! <$$SET(NOA)>
!h EXP 0,0,0
>
>
IFDEF $$ADD"(R,<
$$MAPADD ("HXABADDR,$$ADDR); "h; WILL REFERENCE #THE BLOCK VIA $$A#(DDR
; STO#HRE COMMON HEADER #hFOR ALL XAB TYPES$
$$SET(BID)
$( $$SET(RS1)
$$$HSET(COD)
$$SET$h(NXT)
; S%TORE REST OF XAB %(DEPENDING ON IT'S%H TYPE
IFE <C$$%hCOD-XB$DAT>,<
&$$NEWVAL(BLN,XA$S&(XD)
$$SET(BL&HN)
$$SET(CDT)
$$SET(RDT)
'$$SET(EDT)
>
'(
IFE <C$$COD-X'HB$ALL>,<
$$NEW'hVAL(BLN,XA$SXA) (
$$SET(BLN)
(( $$SET(RS2)
$$(HSET(AID)
$$SET(h(BKZ)
>
I)FE <C$$COD-XB$KEY)(>,<
$$NEWVAL(B)HLN,XA$SXK)
$)h$SET(BLN)
$$SE*T(IFL)
$$SET(D*(FL)
$$SET(DTP)*H
$$SET(FLG)
*h $$SET(IAN)
$$+SET(DAN)
$$SET+((LAN)
$$SET(RE+HF)
$$SET(KNM)
$$SET(RX0)
,$$SET(RX1)
$$S,(ET(RX2)
$$SET(,HRX3)
$$SET(RX4,h)
$$SET(RX5)
-
$$SET(PS0)
-( $$SET(PS1)
$$-HSET(PS2)
$$SET-h(PS3)
$$SET(PS.4)
$$SET(PS5)
$$SET(PS6)
.H$$SET(PS7)
$.h$SET(SZ0)
$$SE/T(SZ1)
$$SET(S/(Z2)
$$SET(SZ3)/H
$$SET(SZ4)
/h $$SET(SZ5)
$$0SET(SZ6)
$$SET0((SZ7)
>
I0HFE <C$$COD-XB$SUM0h>,<
$$NEWVAL(B1LN,XA$SXS)
$1($SET(BLN)
$$SE1HT(RS6)
$$SET(N1hOK)
$$SET(NOA)2
$$SET(RS7)
2( $$SET(RS8)
$$2HSET(RS9)
>
2hPURGE $$ADDR
>
qN@ 4(+$ $$ZERO(A4H,%NAME(XA$SX,B)) AME(XA$SX,B))q$P q$ lP q$:P q$H:P q$M8P q$XQP q$kP q$k P q$yVP q%
tP q%JP q%LP q%9<P q%X<P q%j6P q&1P q&:<P q&=P q&=6P q&[JP 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 h ASCIZ\
COPYRIGHT (C) 198(4 BY DIGITAL EQUIHPMENT CORPORATION
\ORPORATION<z &
IFNB <(B>,<IFL A-B,<PRHINTX ?A HAS A VAhLUE WHICH IS TOO LOW>>
IFNB <C>(,<IFG A-C,<PRINHTX ?A HAS A VALUhE WHICH IS TOO HI GH>>
IS TOO HI Ky NP,
INpFN TOP$10,<PUSHJ O17,RMS$10##+C$CLOO0SE>
IFN TOPOP$20,<104B8+1000Op+C$CLOSE>
C$CLOSE>
y (!L
C=A+HB
B==B+1
B==B+1 {W rP/
IrpFN TOP$10,<PUSHJ s17,RMS$10##+C$CONs0NECT>
IFNsP TOP$20,<104B8+10sp00+C$CONNECT>
CONNECT>
)0 wp/u
I}PFN TOP$10,<PUSHJ }p17,RMS$10##+C$CRE~ATE>
IFN ~0TOP$20,<104B8+100~P0+C$CREATE>
$CREATE>
\Y h!n PURGE C$$ B PURGE C$$$XZ P0
IpFN TOP$10,<PUSHJ 17,RMS$10##+C$DEB0UG>
IFN TPOP$20,<104B8+1000p+C$DEBUG>
C$DEBUG>
$[ c.#
Ic0FN TOP$10,<PUSHJ cP17,RMS$10##+C$DELcpETE>
IFN dTOP$20,<104B8+100d00+C$DELETE>
$DELETE>
% q x/K
Ix0FN TOP$10,<PUSHJ xP17,RMS$10##+C$DISxpCONNECT>
yIFN TOP$20,<104B8y0+1000+C$DISCONNEC T>
CONNEC% x P1s
I 0FN TOP$10,<PUSHJ P17,RMS$10##+C$DIS pPLAY>
IFN TOP$20,<104B8+10 000+C$DISPLAY>
DISPLAY>
-i @ END .(9 "02
I"PFN TOP$10,<PUSHJ "p17,RMS$10##+C$ERA#SE>
IFN T#0OP$20,<104B8+1000#P+C$ERASE>
C$ERASE>
4P 4*2P 4*yP 4+P 4+P 4,}P 4= P 4I;P 4\Y h!@
$$CODE(.EXBAS,.EXCTR,A, B)
.EXCTR,A,4h1P 4kPP 4kxP 4l}P 56 h >
IF1,<
$$AB==C$D
( F$$B==<XX$G>B5H ! <XX$F>B11 ! XhX$E
> ;END O F IF1
> ;END O5TP 5R h0.K
IhPFN TOP$10,<PUSHJ hp17,RMS$10##+C$FINiD>
IFN TOi0P$20,<104B8+1000+ C$FIND>
0s +5)WP 5+VP 5M9
0FN,TOI10,<PUSHJU
IFN TOP$20,<104B8+10000+C$FLUSH>
C$FLUSH>
5\WP 5\YP 5h6P 5|SP 6(:P 6)2 'P2E
I'pFN TOP$10,<PUSHJ (17,RMS$10##+C$FRE(0E>
IFN TO(PP$20,<104B8+1000+ C$FREE>
+6)HP 6)IP 6)JP 6)VP 69P 6:P 6=P 6=P 6N8P 71P <] Sp-'
ITFN TOP$10,<PUSHJ T017,RMS$10##+C$GETTP>
IFN TOPTp$20,<104B8+1000+C $GET>
0+CN;v A,
T$$PS==A(F$$A_-^D30
TAH$$SZ==<F$$A_-^D2Ah4> & 77
T$$OF=B=F$$A & 777777
$A& 777777 DEFINE B< A> DEFINE B<l H!F A$MAX==.hABASE + .ACTR - 1SE + .ACTR - l\y 01
IPFN TOP$10,<PUSHJ p17,RMS$10##+C$MESSAGE>
IFN0 TOP$20,<104B8+10P00+C$MESSAGE>
MESSAGE>
t]p (("F
IFNB <(hB>,<C$$A==B>
>,<C$$A==B>
t]{ !x
DEFINE C$$A<B>
E u{2 p1I
IFN TOP$10,<PUSHJ 017,RMS$10##+C$NOMPESSAGE>
IpFN TOP$20,<104B8+1000+C$NOMESSAGE>
MESSAGE>~ 7 DH,
ID(FN TOP$10,<PUSHJ Ch17,RMS$10##+C$OPECHN>
IFN TOBHP$20,<104B8+1000+ C$OPEN>
+] Xp-O
IYFN TOP$10,<PUSHJ Y017,RMS$10##+C$PUTYP>
IFN TOPYp$20,<104B8+1000+C $PUT>
0+C*2P *zP +P = P [ p0I
IFN TOP$10,<PUSHJ 017,RMS$10##+C$RELPEASE>
IFNp TOP$20,<104B8+10 00+C$RELEASE>
RELEASE>
[P h1P tP 8SP <SP <}P LwP XSP 2P (1P (SP )PP +xP ,HP ,IP ,IP ,JP ,}P =P =P XSP \}P X` (!4
$$CODE(H.SUBAS,.SUCTR,A, B)
.SUCTR,A, V H `
FB$ALL=h=FB$GET+FB$PUT+FB $DEL+FB$UPD+FB$TR (N
$$ASSUME H(FB$SEQ,0) ;FILE h ORG MUST BE GTR
ZERO
$$ASSUME(R
(B$SEQ,0,0) ;RECO
HRD ACCESS MUST ST
hART AT ZERO
$$A SSUME(XB$KEY,0,0) ( ;KEY XAB MUST B HE FIRST
$$ASSUM hE(XB$STG,0,0) ;S
TRING DATA-TYPE S HOULD BE ZERO
&-7 m0.u
ImPFN TOP$10,<PUSHJ mp17,RMS$10##+C$TRUnNCATE>
IFn0N TOP$20,<104B8+1nP000+C$TRUNCATE>
,\RUNCATE>
$$CODE((.ERBAS,.ERCTR,A, B)
.ERCTR,A,. ]p-y
I^FN TOP$10,<PUSHJ ^017,RMS$10##+C$UPD^PATE>
IFN ^pTOP$20,<104B8+100_0+C$UPDATE>
$UPDATE>
.K ,P2o
I,pFN TOP$10,<PUSHJ -17,RMS$10##+C$UTL-0INT>
IFN -PTOP$20,<104B8+100-p0+C$UTLINT>
$UTLINT>
4[R H!.
IF2h,<
OPDEF RM$MIN [104B8+1000] ;MI(NIMUM JSYS VALUEH
OPDEF RM$MAX [h104B8+1000+XX$MAX ]
>
MAX4\Q !
C$(A==XX$MAX
H DEFINE $$A(A)<h
IFN TOP$10,<PUSHJ 17,RMS$(10##+C$A>
H IFN TOP$20,<104hB8+1000+C$A>
>
DEFINE ($A(.BLK1,.ERRAD,H.NLARG),<
IFB <h.BLK1>,<IF1,<PRINTX %ARGBLK ADDRES(S OMIITED ON A MHACRO>>
XMOVEI 1h, .BLK1
IFNB <.NLARG>,<IF1,<PRIN(TX %MORE THAN 2 AHRGS DETECTED IN hA MACRO>>
$$A
IFNB <.ERRAD(>,<JUMP 17,.ERRADH>
IFB <.ERRAD>,h<JUMP 16,.+1>
>
XX$MAX==X X$MAX+1
X==X5T
XX$M AX==0
XX$MD2P D*2P D*}P D+P D9P D;rP DH7P DIVP DMP DYP DkP E7P EVP E;VP EH7P EkpP EkuP EnP 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 T\W 5+0
SETZM 5(A
MOVEI 2,A5H
MOVEI 1,1(25h)
HRLI 1,A 6
BLT 1,B-1(2 )
T 1,B-1(2 e|r P0-
IFB <APP>,<IF1,<PRINTX %APpRGBLK ADDRESS OMIQITED ON CLOSE MACQ0RO>>
XMOVEI 1, QPA
IFNB <C>,<IQpF1,<PRINTX %MORE RTHAN 2 ARGS DETECR0TED IN CLOSE MACRRPO>>
$$CLOSE
IFNB <B>,<JUMPS 17,B>
IFB <BS0>,<JUMP 16,.+1>
}k 16,.+1>
IFB <AtP>,<IF1,<PRINTX %AtpRGBLK ADDRESS OMIuITED ON CONNECT Mu0ACRO>>
XMOVEI 1uP, A
IFNB <C>,up<IF1,<PRINTX %MORvE THAN 2 ARGS DETv0ECTED IN CONNECT vPMACRO>>
$$CONNEvpCT
IFNB <B>w,<JUMP 17,B>
Iw0FB <B>,<JUMP 16, .+1>
16, X: 0
IFB <A0>,<IF1,<PRINTX %APRGBLK ADDRESS OMIpITED ON CREATE MA CRO>>
XMOVEI 1, 0 A
IFNB <C>,< PIF1,<PRINTX %MORE p THAN 2 ARGS DETECTED IN CREATE MA0CRO>>
$$CREATE P
IFNB <B>,<JpUMP 17,B>
IFB <B>,<JUMP 16,.+1 >
16,.+1 ,-3 00;
IFB <AP>,<IF1,<PRINTX %ApRGBLK ADDRESS OMIITED ON DEBUG MAC0RO>>
XMOVEI 1, PA
IFNB <C>,<IpF1,<PRINTX %MORE THAN 2 ARGS DETEC0TED IN DEBUG MACRPO>>
$$DEBUG
IFNB <B>,<JUMP 17,B>
IFB <B0>,<JUMP 16,.+1>
-I 16,.+1>
IFB <Ae>,<IF1,<PRINTX %Ae0RGBLK ADDRESS OMIePITED ON DELETE MAepCRO>>
XMOVEI 1,f A
IFNB <C>,<f0IF1,<PRINTX %MOREfP THAN 2 ARGS DETEfpCTED IN DELETE MAgCRO>>
$$DELETE g0
IFNB <B>,<JgPUMP 17,B>
IFB gp<B>,<JUMP 16,.+1 >
16,.+1 N8w yp/i
IFB <Az>,<IF1,<PRINTX %Az0RGBLK ADDRESS OMIzPITED ON DISCONNECzpT MACRO>>
XMOVE{I 1, A
IFNB <{0C>,<IF1,<PRINTX %{PMORE THAN 2 ARGS {pDETECTED IN DISCO|NNECT MACRO>>
$|0$DISCONNECT
|PIFNB <B>,<JUMP 1|p7,B>
IFB <B>,}<JUMP 16,.+1>
16,.+1>
N< p2
IFB <A >,<IF1,<PRINTX %A 0RGBLK ADDRESS OMI PITED ON DISPLAY M pACRO>>
XMOVEI 1 , A
IFNB <C>, 0<IF1,<PRINTX %MOR PE THAN 2 ARGS DET pECTED IN DISPLAY !MACRO>>
$$DISPL!0AY
IFNB <B>!P,<JUMP 17,B>
I!pFB <B>,<JUMP 16, .+1>
16, r $29
IFB <A$0>,<IF1,<PRINTX %A$PRGBLK ADDRESS OMI$pITED ON ERASE MAC%RO>>
XMOVEI 1, %0A
IFNB <C>,<I%PF1,<PRINTX %MORE %pTHAN 2 ARGS DETEC&TED IN ERASE MACR&0O>>
$$ERASE
IFNB <B>,<JUMP&p 17,B>
IFB <B'>,<JUMP 16,.+1>
.H 16,.+1>
$$ISOL(7HB)
IFE <T$$7hSZ-^D18>,<
8(8 IFE T$$PS,<
HRRZ A,T$$OF+8HC
T$$SZ==0
>
IFE9 <T$$PS-^D18>,< 9(
HLRZ A,T$$OF9H+C
T$$SZ==0 9h
>
>
IF:E <T$$SZ-^D36>,< :(
MOVE A,T$$O:HF+C
T$$SZ==0 :h
>
IFN T$$SZ;,<
LDB A,[;(<T$$PS>B5 ! <T$$S;HZ>B11 ! <T$$OF+C >]
>
$$OF+C L[ 6h+6 [F$$A+B] [F$$A+B] Mi ip.g
IFB <Aj>,<IF1,<PRINTX %Aj0RGBLK ADDRESS OMIjPITED ON FIND MACRjpO>>
XMOVEI 1, kA
IFNB <C>,<IFk01,<PRINTX %MORE TkPHAN 2 ARGS DETECTkpED IN FIND MACRO>l>
$$FIND
Il0FNB <B>,<JUMP 17lP,B>
IFB <B>,<lpJUMP 16,.+1>
16,.+1>
f\t p1
IFB <A>,<IF1,<PRINTX %A0RGBLK ADDRESS OMIPITED ON FLUSH MACpRO>>
XMOVEI 1, A
IFNB <C>,<I0F1,<PRINTX %MORE PTHAN 2 ARGS DETECpTED IN FLUSH MACRO>>
$$FLUSH
IFNB <B>,<JUMPP 17,B>
IFB <Bp>,<JUMP 16,.+1>
Y 16,.+1>
IFB <A)0>,<IF1,<PRINTX %A)PRGBLK ADDRESS OMI)pITED ON FREE MACR*O>>
XMOVEI 1, *0A
IFNB <C>,<IF*P1,<PRINTX %MORE T*pHAN 2 ARGS DETECT+ED IN FREE MACRO>+0>
$$FREE
I+PFNB <B>,<JUMP 17+p,B>
IFB <B>,<,JUMP 16,.+1>
16,.+1>
.@ U0-C
IFB <AUP>,<IF1,<PRINTX %AUpRGBLK ADDRESS OMIVITED ON GET MACROV0>>
XMOVEI 1, AVP
IFNB <C>,<IF1Vp,<PRINTX %MORE THWAN 2 ARGS DETECTEW0D IN GET MACRO>>
$$GET
IFNBWp <B>,<JUMP 17,BX>
IFB <B>,<JUMX0P 16,.+1>
16,.+1>
&u 33
PUSH2PJ 17,$$RMS##
.30REQUIRE SYS:RMSIN I
)%BAD REC 6.<p 19
IFB <A0>,<IF1,<PRINTX %APRGBLK ADDRESS OMIpITED ON MESSAGE MACRO>>
XMOVEI 10, A
IFNB <C>,P<IF1,<PRINTX %MORpE THAN 2 ARGS DETECTED IN MESSAGE 0MACRO>>
$$MESSAPGE
IFNB <B>p,<JUMP 17,B>
IFB <B>,<JUMP 16, .+1>
16, :}Y9 P1g
IFB <Ap>,<IF1,<PRINTX %ARGBLK ADDRESS OMI0ITED ON NOMESSAGEP MACRO>>
XMOVEIp 1, A
IFNB <C>,<IF1,<PRINTX %M0ORE THAN 2 ARGS DPETECTED IN NOMESSpAGE MACRO>>
$$N OMESSAGE
IFN 0B <B>,<JUMP 17, PB>
IFB <B>,<JU pMP 16,.+1>
16,.+1>
?[@ C,q
IFB <AC(>,<IF1,<PRINTX %AKPRGBLK ADDRESS OMIKpITED ON OPEN MACRLO>>
XMOVEI 1, L0A
IFNB <C>,<IFLP1,<PRINTX %MORE TLpHAN 2 ARGS DETECTMED IN OPEN MACRO>M0>
$$OPEN
IMPFNB <B>,<JUMP 17Mp,B>
IFB <B>,<NJUMP 16,.+1>
16,.+1>
C.@ Z0-k
IFB <AZP>,<IF1,<PRINTX %AZpRGBLK ADDRESS OMI[ITED ON PUT MACRO[0>>
XMOVEI 1, A[P
IFNB <C>,<IF1[p,<PRINTX %MORE TH\AN 2 ARGS DETECTE\0D IN PUT MACRO>>
$$PUT
IFNB\p <B>,<JUMP 17,B]>
IFB <B>,<JUM]0P 16,.+1>
16,.+1>
J-I0 P0e
IFB <A p>,<IF1,<PRINTX %A
RGBLK ADDRESS OMI
0ITED ON RELEASE M
PACRO>>
XMOVEI 1
p, A
IFNB <C>, <IF1,<PRINTX %MOR 0E THAN 2 ARGS DET PECTED IN RELEASE pMACRO>>
$$RELEA
SE
IFNB <B>
0,<JUMP 17,B>
I
PFB <B>,<JUMP 16, .+1>
16, J.M9 +2 POPJ 17, Jn0 33
PUSH2PJ 17,$$RMS##
.30REQUIRE SYS:RMSIN I
)%BAD REC O%|R <,
$$ISOL(<(B)
IFE <T$$<HSZ-^D18>,<
=<h IFE T$$PS,<
HRRM A,T$$OF+=(C
T$$SZ==0
>
IFE=h <T$$PS-^D18>,< >
HRLM A,T$$OF>(+C
T$$SZ==0 >H
>
>
IF>hE <T$$SZ-^D36>,< ?
MOVEM A,T$$?(OF+C
T$$SZ==0?H ;INDIC INST GEN?h
>
IFN T$$SZ,@<
DPB A,[<@(T$$PS>B5 ! <T$$SZ@H>B11 ! <T$$OF+C> ]
>
$$OF+C> S[Q o/
IFB <Ao0>,<IF1,<PRINTX %AoPRGBLK ADDRESS OMIopITED ON TRUNCATE pMACRO>>
XMOVEI p01, A
IFNB <C>pP,<IF1,<PRINTX %MOppRE THAN 2 ARGS DEqTECTED IN TRUNCATq0E MACRO>>
$$TRUqPNCATE
IFNB <qpB>,<JUMP 17,B>
IFB <B>,<JUMP 16,.+1>
WH: _P.
IFB <A_p>,<IF1,<PRINTX %A`RGBLK ADDRESS OMI`0ITED ON UPDATE MA`PCRO>>
XMOVEI 1,`p A
IFNB <C>,<aIF1,<PRINTX %MOREa0 THAN 2 ARGS DETEaPCTED IN UPDATE MAapCRO>>
$$UPDATE b
IFNB <B>,<Jb0UMP 17,B>
IFB bP<B>,<JUMP 16,.+1 >
16,.+1 W%J7 .03
IFB <A.P>,<IF1,<PRINTX %A.pRGBLK ADDRESS OMI/ITED ON UTLINT MA/0CRO>>
XMOVEI 1,/P A
IFNB <C>,</pIF1,<PRINTX %MORE0 THAN 2 ARGS DETE00CTED IN UTLINT MA0PCRO>>
$$UTLINT 0p
IFNB <B>,<J1UMP 17,B>
IFB 10<B>,<JUMP 16,.+1 >
16,.+1 : !X
DEFINE (A$B(ARG)<
IFH1,<PRINTX %"A$Bh" RMS-11 ONLY, IGNORED BY RMS-20>
>
YhRMS-20>H!^
IRP A,h< ..BADF(F,A) >
.BADF(F,A)!>
IRP A, H< ..BADF(R,A) >
.BADF(R,A)!>
IRP A, (< ..BADF(X,A) >
.BADF(X,A)(>P # =P 2 D(9P # D=P O,(9P O,=P >}{woP