Trailing-Edge
-
PDP-10 Archives
-
BB-H137E-BM
-
new-subsys/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,Q 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.XRINTX %"F$ANB" RM.xS-11 ONLY, IGNORE D BY RMS-20>
L<` Ux%/ $$NEWVAL ( BKS,A)NEWVAL (LL` U8%+ $$NEWVAL ( BLS,A)NEWVAL (L>@ S8% $$NEWVAL ( BSZ,A)NEWVAL (L N V8%3 $$NEWVAL ( CTX,A)NEWVAL (L%h *8"W
IF1,<P*XRINTX %"F$DNA" RM*xS-11 ONLY, IGNORE D BY RMS-20>
L%l` +8"_
IF1,<P+XRINTX %"F$DNS" RM+xS-11 ONLY, IGNORE D BY RMS-20>
L4` O8${ $$NEWVAL ( FAC,A)NEWVAL (L5h Q8% $$NEWVAL ( FNA,A)NEWVAL (L5l` )8"O
IF1,<P)XRINTX %"F$FNS" RM)xS-11 ONLY, IGNORE D BY RMS-20>
L5| P8% $$NEWVAL ( FOP,A)NEWVAL (L6>@ Vx%7 $$NEWVAL ( FSZ,A)NEWVAL (LTk@ Nx$w $$NEWVAL ( JFN,A)NEWVAL (LUk Tx%' $$NEWVAL ( JNL,A)NEWVAL (Ld: 08#
IF1,<P0XRINTX %"F$LCH" RM0xS-11 ONLY, IGNORE D BY RMS-20>
Ln+@ Rx% $$NEWVAL ( MRN,A)NEWVAL (Ln,` R8% $$NEWVAL ( MRS,A)NEWVAL (Lt -8"k $$NEWVAL ( NAM,A)NEWVAL (L~)` Px% $$NEWVAL ( ORG,A)NEWVAL (L Qx% $$NEWVAL ( RAT,A)NEWVAL (Lk Sx% $$NEWVAL ( RFM,A)NEWVAL (LM@ ,8"g
IF1,<P,XRINTX %"F$RTV" RM,xS-11 ONLY, IGNORE D BY RMS-20>
L
@ Ox$ $$NEWVAL ( SHR,A)NEWVAL (L' -x"o $$NEWVAL ( TYP,A)NEWVAL (LD@ T8%# $$NEWVAL ( XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ Dx$s
IFNB <EA>,< ;RUN-TIME E8INIT
$$MAPADD EX(A,$$ADDR); ; WIExLL REFERENCE FAB FVIA $$ADDR
SYNF8 SF$$RT,$$SET
>FX
IFB <A>,Fx<SYN SF$$CT,$$SETG>
$$CURR (F,BG8ID)
$$CURR (F,GXBLN)
$$CURR (FGx,STS)
$$CURR (HF,STV)
$$CURR H8(F,IFI)
$$CURRHX (F,JFN)
$$CURHxR (F,FAC)
$$CUIRR (F,SHR)
$$CI8URR (F,FOP)
$$IXCURR (F,ORG)
$Ix$CURR (F,FNA)
J$$CURR (F,RAT)
J8 $$CURR (F,MRS)
JX $$CURR (F,MRN)
$$CURR (F,BSZ)K
$$CURR (F,RFMK8)
$$CURR (F,XAKXB)
$$CURR (F,JKxNL)
$$CURR (F,LBLS)
$$CURR (FL8,BKS)
$$CURR (LXF,DEV)
$$CURR Lx(F,SDC)
$$CURRM (F,CTX)
$$CURM8R (F,FSZ) ;![AWN]MX
$$CURR (F,TYPMx) ;![AWN]
$$CUNRR (F,NAM) ;![AWNN8]
$$CURR (F,AL Q) ;![AWN]
ALMI /x&/
IFNDEF W$$ADDR,<
<W8$$SET(BID)>_^D18 WX! <$$SET(BLN)>
Wx <$$SET(STS)>^D1X8 ! <$$SET(STV)>
<$$SET(CTX)>
XX <$$SET(IFI)>_^DXx18 ! <$$SET(JFN)>Y
<$$SET(FAC)>_Y8^D18 ! <$$SET(SHRYX)>
<$$SET(FOP)Yx>_^D18 ! <$$SET(OZRG)>_^D14 ! <$$SEZ8T(BSZ)>_^D8 ! <$$ZXSET(BLS)>
<$$SZxET(FNA)>
<$$SE[T(RAT)>_^D18 ! <$[8$SET(MRS)>
<$$[XSET(MRN)>
<$$S[xET(FSZ)>_^D13 ! <\$$SET(BKS)>_^D5 !\8 <$$SET(RFM)> ;![\XAWN]
<$$SET(JN\xL)>_^D18 ! <$$SET](XAB)>
<$$SET(]8DEV)>_^D18 ! <$$S]XET(SDC)>
<$$SE]xT(TYP)>_^D18 ! <$^$SET(NAM)> ;![AWN^8]
<$$SET(ALQ)>^X ;![AWN]
EX^xP 0,0
> ;EN_D IFNB
IFDEF $$_8ADDR,<
$$SET(B_XID)
$$SET(BLN)_x
$$SET(STS)
` $$SET(STV)
$$`8SET(IFI)
$$SET`X(JFN)
$$SET(FA`xC)
$$SET(SHR)
$$SET(FOP)
a8$$SET(ORG)
$$SaXET(FNA)
$$SET(axRAT)
$$SET(MRSb)
$$SET(MRN)
b8 $$SET(BSZ)
$bX$SET(RFM)
$$SEbxT(XAB)
$$SET(JcNL)
$$SET(BLS)c8
$$SET(BKS)
cX $$SET(DEV)
$$cxSET(SDC)
$$SETd(CTX)
$$SET(FSd8Z) ;![AWN]
$dX$SET(NAM) ;![AWdxN]
$$SET(TYP) e ;![AWN]
$$SEe8T(ALQ) ;![AWN]
PURGE $$ADexDR
>
>
MN@ <X+e $$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 tx'' $$NEWVAL (CTX,A)NEWVAL d-L` ux'/ $$NEWVAL (ELS,A)NEWVAL d4@ n8&s $$NEWVAL (FAB,A)NEWVAL d\)@ rx' $$NEWVAL (KBF,A)NEWVAL d^)@ qx' $$NEWVAL (KRF,A)NEWVAL d^>@ r8' $$NEWVAL (KSZ,A)NEWVAL df;@ t8'# $$NEWVAL (LSN,A)NEWVAL dl)@ s8' $$NEWVAL (MBF,A)NEWVAL d sx' $$NEWVAL (PAD,A)NEWVAL d` nx&w $$NEWVAL (RAC,A)NEWVAL d)@ p8' $$NEWVAL (RBF,A)NEWVAL dh u8'+ $$NEWVAL (RFA,A)NEWVAL d@ (x#
IF1,<P1RINTX %"R$RHB" RM18S-11 ONLY, IGNORE D BY RMS-20>
d| o8&{ $$NEWVAL (ROP,A)NEWVAL d>@ px' $$NEWVAL (RSZ,A)NEWVAL d,)@ ox& $$NEWVAL (UBF,A)NEWVAL d.>@ q8' $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ f8&o
IFNB <fXA>,<
$$MAPADD fx(A,$$ADDR); ; WIgLL REFERENCE THE g8BLOCK VIA $$ADDR
SYN SR$$RT,$$SgxET
>
IFBh <A>,<SYN SR$$CTh8,$$SET>
$$CURhXR (R,BID)
$$CUhxRR (R,BLN)
$$CiURR (R,STS)
$$i8CURR (R,STV)
$iX$CURR (R,ISI)
ix$$CURR (R,FAB)
j $$CURR (R,RAC)
j8 $$CURR (R,ROP)
$$CURR (R,UBF)jx
$$CURR (R,RBFk)
$$CURR (R,RSk8Z)
$$CURR (R,UkXSZ)
$$CURR (R,kxRFA)
$$CURR (Rl,KRF)
$$CURR (l8R,KSZ)
$$CURR lX(R,KBF)
$$CURRlx (R,MBF)
$$CURmR (R,LSN)
$$CUm8RR (R,BKT)
$$CmXURR (R,PAD)
$$mxCURR (R,CTX)
URR (R,CTX)
eI v8(
IFNDEF vX$$ADDR,<
<$$SEvxT(BID)>_^D18 ! <$w$SET(BLN)>
<$$w8SET(STS)>_^D18 ! wX<$$SET(STV)>
<wx$$SET(CTX)>
<$x$SET(ISI)>_^D18 !x8 <$$SET(FAB)>
xX<$$SET(RAC)>_^D27xx ! <$$SET(MBF)>_^yD18 ! <$$SET(ROP)y8>
<$$SET(UBF)>yX
<$$SET(RBF)>
<$$SET(RSZ)>_^zD18 ! <$$SET(USZ)z8>
<$$SET(RFA)>zX
<$$SET(KRF)>_zx^D27 ! <$$SET(KSZ{)>_^D18 ! <$$SET({8LSN)>
<$$SET(K{XBF)>
<$$SET(BK{xT)>
<$$SET(PAD|)>_^D27
EXP 0,|80,0
> ;IFNDE|XF
IFDEF $$ADDR,|x<
$$SET(BID)
} $$SET(BLN)
$}8$SET(STS)
$$SE}XT(STV)
$$SET(I}xSI)
$$SET(FAB)~
$$SET(RAC)
~8 $$SET(ROP)
$$~XSET(UBF)
$$SET~x(RBF)
$$SET(RSZ)
$$SET(USZ)
$$SET(RFA)
X$$SET(KRF)
$$SxET(KSZ)
$$SET( KBF)
$$SET(MBF 8)
$$SET(LSN)
X $$SET(BKT)
$ x$SET(PAD)
$$SET(CTX)
PURGE $8$ADDR ;SO NEXT XC/R DECIS CORRECTx
> ;IFDEF
> ;IFDEF
eN@ =+i $$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$(` X } A$B==1B C A$B==1Bf$H` y A$B==^D C A$B==^Df&8` X u A$B==C $D A$B==Cg Hz @$ IFDEF C$$@8A,<C$$A> IFNDEF C$$A,<$$FA>F g LZ >x#}
IFN?DEF C$$A,<IFN $$?8FA,<C$$A==$$FA?X>>
STO$$C( A)
TO$$C(gH Hz B$ IFDEF C$$B8A,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ @x$
IFNADEF C$$A,<IFN $$A8RA,<C$$A==$$RAAX>>
STO$$C( A)
TO$$C(gRxA =8#s
=x =XIFDEF C$$A,<
<HRREI 1,> ! C>$$A
$STORE >8(1,A,$$ADDR)
>
R)
gT$M8@ gT% @ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz D$# IFDEF C$$D8A,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ Bx$
IFNCDEF C$$A,<IFN $$C8XA,<C$$A==$$XACX>>
STO$$C( A)
TO$$C(i? D(P $ i? DHP pD,A)NEWVAL (p>@ 8) $$NEWVAL ( BKZ,A)NEWVAL (p$@ 8)3 $$NEWVAL ( DAN,A)NEWVAL (p$k 8)# $$NEWVAL ( DFL,A)NEWVAL (p&L x)' $$NEWVAL ( DTP,A)NEWVAL (p,M 8) $$NEWVAL ( EDT,A)NEWVAL (p5I` 8)+ $$NEWVAL ( FLG,A)NEWVAL (p>, 8X#I
IF1,<P8xRINTX %"X$GRP" RM9S-11 ONLY, IGNORE D BY RMS-20>
pD 3X#!
IF1,<P3xRINTX %"X$HAL" RM4S-11 ONLY, IGNORE D BY RMS-20>
pL@ x)/ $$NEWVAL ( IAN,A)NEWVAL (pLk x) $$NEWVAL ( IFL,A)NEWVAL (p]k x)? $$NEWVAL ( KNM,A)NEWVAL (pd@ x)7 $$NEWVAL ( LAN,A)NEWVAL (pnJ 2X#
IF1,<P2xRINTX %"X$MTH" RM3S-11 ONLY, IGNORE D BY RMS-20>
pwx) $$NEWVAL ( NXT,A)NEWVAL (p~{@ 7X#A
IF1,<P7xRINTX %"X$OWN" RM8S-11 ONLY, IGNORE D BY RMS-20>
p|` 8)Y
$$NEXWARRVAL (PS0,A)
$$NEWARRVAL (PS1,B)
$$NEWAR8RVAL (PS2,C)
X$$NEWARRVAL (PS3,xD)
$$NEWARRVAL (PS4,E)
$$N8EWARRVAL (PS5,F)X
$$NEWARRVAL (xPS6,G)
$$NEWARRVAL (PS7,H)
VAL (PS7,H)
p)` 4X#)
IF1,<P4xRINTX %"X$PRG" RM5S-11 ONLY, IGNORE D BY RMS-20>
p*@ 5X#1
IF1,<P5xRINTX %"X$PRJ" RM6S-11 ONLY, IGNORE D BY RMS-20>
pY@ 8); $$NEWVAL ( REF,A)NEWVAL (p +@ ;X#a
IF1,<P;xRINTX %"X$SBN" RM<S-11 ONLY, IGNORE D BY RMS-20>
p @ X)s
$$NExWARRVAL (SZ0,A)
$$NEWARRVAL (S 8Z1,B)
$$NEWAR XRVAL (SZ2,C)
x$$NEWARRVAL (SZ3, D)
$$NEWARRVA 8L (SZ4,E)
$$N XEWARRVAL (SZ5,F) x
$$NEWARRVAL ( SZ6,G)
$$NEWA 8RRVAL (SZ7,H)
VAL (SZ7,H)
p ` 6X#9
IF1,<P6xRINTX %"X$SYS" RM7S-11 ONLY, IGNORE D BY RMS-20>
p5{ :X#Y
IF1,<P:xRINTX %"X$VOL" RM;S-11 ONLY, IGNORE D BY RMS-20>
p=I 9X#Q
IF1,<P9xRINTX %"X$WLD" RM:S-11 ONLY, IGNORE D BY RMS-20>
pD. <X#i
IF1,<P<xRINTX %"X$XBY" RM=S-11 ONLY, IGNORE D BY RMS-20>
pT\WP q%KSP q&>P q&>P q&>P q&>P q&> P q&N8P qH@ 8)
IFNB <XB>,<
$$MAPADD x(B,$$ADDR)
SYN SX$$RT,$$SET
8 >
IFB <BX>,<SYN SX$$CT,$$SxET>
C$$COD==XB$A
8 C$$BLN==XA$SXA X
$$xCURR (X,BID)
$$CURR (X,RS1)
8$$CURR (X,NXT)
X
$$CURRx (X,CDT)
$$CURR (X,RDT)
$$CU8RR (X,EDT)
X
$$CURR (X,xRS2)
$$CURR (X,AID)
$$CURR (8X,BKZ)
$$CURR (X,IFL)x
$$CURR (X,DFL)
$$CURR (X,DT8P)
$$CURR (X,FXLG)
$$CURR (X,xIAN)
$$CURR (X ,DAN)
$$CURR ( 8X,LAN)
$$CURR X(X,REF)
$$CURR x (X,KNM)
$$CUR
R (X,RX0)
$$CU
8RR (X,RX1)
$$C
XURR (X,RX2)
$$
xCURR (X,RX3)
$ $CURR (X,RX4)
8$$CURR (X,RX5)
X $$CURR (X,PS0)
x $$CURR (X,PS1)
$$CURR (X,PS2)
8
$$CURR (X,PS3
X)
$$CURR (X,PS
x4)
$$CURR (X,P
$$CURR (X,
$$CURR (X
$$CURR (
$$CURR (X,SZ1)
$$CURR8 (X,SZ2)
$$CURXR (X,SZ3)
$$CUxRR (X,SZ4)
$$CURR (X,SZ5)
$$8CURR (X,SZ6)
$X$CURR (X,SZ7)
x
$$CURR (X,RS6)
$$CUR8R (X,NOK)
$$CUXRR (X,NOA)
$$CxURR (X,RS7)
$$CURR (X,RS8)
$8$CURR (X,RS9)
CURR (X,RS9)
qI x+a
IFNDEF $$ADDR,<
<$$SE 8T(BID)>_^D18 ! <$ X$SET(BLN)>
<$$ xSET(COD)>_^D18 ! <$$SET(NXT)>
I 8FE <C$$COD-XB$DAT X>,<
<$$SET(CD xT)>
<$$SET(RD!T)>
<$$SET(ED!8T)>
>
IFE <!XC$$COD-XB$ALL>,<
<$$SET(AID)>_"^D9 ! <$$SET(BKZ)"8>
EXP 0,0,0
"X >
IFE <C$$CO"xD-XB$KEY>,<
<#$$SET(DTP)>_^D18 #8! <$$SET(FLG)>
#X <$$SET(IAN)>_^D#x27 ! <$$SET(DAN)>$_^D18 ! <$$SET(LA$8N)>_^D9 ! <$$SET($XREF)>
<$$SET($xIFL)>_^D18 ! <$$S%ET(DFL)>
<$$S%8ET(KNM)>
EXP %X0,0,0,0,0
<$$%xSET(PS0)>_^D18 ! &<$$SET(SZ0)>
&8<$$SET(PS1)>_^D18&X ! <$$SET(SZ1)>
&x <$$SET(PS2)>_^'D18 ! <$$SET(SZ2)'8>
<$$SET(PS3)'X>_^D18 ! <$$SET(S'xZ3)>
<$$SET(P(S4)>_^D18 ! <$$SE(8T(SZ4)>
<$$SE(XT(PS5)>_^D18 ! <$(x$SET(SZ5)>
<$)$SET(PS6)>_^D18 !)8 <$$SET(SZ6)>
)X <$$SET(PS7)>^D1)x8 ! <$$SET(SZ7)>
>
IFE <C$$C*8OD-XB$SUM>,<
*X<$$SET(NOK)>_^D9 *x! <$$SET(NOA)>
+ EXP 0,0,0
>
>
IFDEF $$ADD+XR,<
$$MAPADD (+xXABADDR,$$ADDR); ,; WILL REFERENCE ,8THE BLOCK VIA $$A,XDDR
; STO,xRE COMMON HEADER -FOR ALL XAB TYPES-8
$$SET(BID)
-X $$SET(RS1)
$$-xSET(COD)
$$SET.(NXT)
; S.8TORE REST OF XAB .XDEPENDING ON IT'S.x TYPE
IFE <C$$/COD-XB$DAT>,<
/8$$NEWVAL(BLN,XA$S/XXD)
$$SET(BL/xN)
$$SET(CDT)
$$SET(RDT)
08$$SET(EDT)
>
0X
IFE <C$$COD-X0xB$ALL>,<
$$NEW1VAL(BLN,XA$SXA) 18
$$SET(BLN)
1X $$SET(RS2)
$$1xSET(AID)
$$SET2(BKZ)
>
I28FE <C$$COD-XB$KEY2X>,<
$$NEWVAL(B2xLN,XA$SXK)
$3$SET(BLN)
$$SE38T(IFL)
$$SET(D3XFL)
$$SET(DTP)3x
$$SET(FLG)
4 $$SET(IAN)
$$48SET(DAN)
$$SET4X(LAN)
$$SET(RE4xF)
$$SET(KNM)
$$SET(RX0)
58$$SET(RX1)
$$S5XET(RX2)
$$SET(5xRX3)
$$SET(RX46)
$$SET(RX5)
68
$$SET(PS0)
6X $$SET(PS1)
$$6xSET(PS2)
$$SET7(PS3)
$$SET(PS784)
$$SET(PS5)
$$SET(PS6)
7x$$SET(PS7)
$8$SET(SZ0)
$$SE88T(SZ1)
$$SET(S8XZ2)
$$SET(SZ3)8x
$$SET(SZ4)
9 $$SET(SZ5)
$$98SET(SZ6)
$$SET9X(SZ7)
>
I9xFE <C$$COD-XB$SUM:>,<
$$NEWVAL(B:8LN,XA$SXS)
$:X$SET(BLN)
$$SE:xT(RS6)
$$SET(N;OK)
$$SET(NOA);8
$$SET(RS7)
;X $$SET(RS8)
$$;xSET(RS9)
>
<PURGE $$ADDR
>
qN@ =X+o $$ZERO(A=x,%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 ASCIZ\
8COPYRIGHT (C) 198 X4 BY DIGITAL EQUI xPMENT CORPORATION
\ORPORATION<z
8 q
IFNB <
XB>,<IFL A-B,<PR
xINTXW?AHHAS AOVA
IFNBG<C>C,<PRINE WHICH IS TOO HI GH>>
IS TOO HI Ky X -J
IX FN TOP$10,<PUSHJ X@17,RMS$10##+C$CLOX`SE>
IFN TY OP$20,<104B8+1000Y +C$CLOSE>
C$CLOSE>
y "X"
C=A+"xB
B==B+1
B==B+1 {W | /j
I| FN TOP$10,<PUSHJ |@17,RMS$10##+C$CON|`NECT>
IFN} TOP$20,<104B8+10} 00+C$CONNECT>
CONNECT>
)0 0@
I FN TOP$10,<PUSHJ 17,RMS$10##+C$CRE@ATE>
IFN `TOP$20,<104B8+100 0+C$CREATE>
$CREATE>
\Y '"9 PURGE C$$ B PURGE C$$$XZ
0j
I
FN TOP$10,<PUSHJ
@17,RMS$10##+C$DEB
`UG>
OP$20IFN0T8+1000
C$DEBUG>
$[ l@.n
Il`FN TOP$10,<PUSHJ m 17,RMS$10##+C$DELm ETE>
IFN m@TOP$20,<104B8+100m`0+C$DELETE>
$DELETE>
% q @0
I`FN TOP$10,<PUSHJ 17,RMS$10##+C$DIS CONNECT>
@IFN TOP$20,<104B8`+1000+C$DISCONNEC T>
CONNEC% x ! 2>
I&`FN TOP$10,<PUSHJ ' 17,RMS$10##+C$DIS' PLAY>
IFN'@ TOP$20,<104B8+10'`00+C$DISPLAY>
DISPLAY>
-i ! END .(9 +`2h
I, FN TOP$10,<PUSHJ , 17,RMS$10##+C$ERA,@SE>
IFN T,`OP$20,<104B8+1000- +C$ERASE>
C$ERASE>
4P 4*2P 4*yP 4+P 4+P 4,}P 4= P 4I;P 4\Y !"
$$CODE(!8.EXBAS,.EXCTR,A, B)
.EXCTR,A,4h1P 4kPP 4kxP 4l}P 56 !
IF1,<
$$AB==C$D
X F$$B==<XX$G>B5x ! <XX$F>B11 ! XX$E
> ;END O F IF1
> ;END O5TP 5R q`/
Ir FN TOP$10,<PUSHJ r 17,RMS$10##+C$FINr@D>
IFN TOr`P$20,<104B8+1000+ C$FIND>
+5)WP 5+VP 5M9 @1>
I`FN TOP$10,<PUSHJ 17,RMS$10##+C$FLU SH>
IFN T@OP$20,<104B8+1000`+C$FLUSH>
C$FLUSH>
5\WP 5\YP 5h6P 5|SP 6(:P 6)2 1 3
I1 FN TOP$10,<PUSHJ 1@17,RMS$10##+C$FRE1`E>
IFN TO2 P$20,<104B8+1000+ C$FREE>
+6)HP 6)IP 6)JP 6)VP 69P 6:P 6=P 6=P 6N8P 71P <] ] -r
I]@FN TOP$10,<PUSHJ ]`17,RMS$10##+C$GET^ >
IFN TOP^ $20,<104B8+1000+C $GET>
0+CN;v J8,[
T$$PS==JXF$$A_-^D30
TJx$$SZ==<F$$A_-^D2K4> & 77
T$$OF=K8=F$$A & 777777
$A& 777777 DEFINE B< A> DEFINE B<l !x" A$MAX==."ABASE + .ACTR - 1SE + .ACTR - l\y `1h
I FN TOP$10,<PUSHJ 17,RMS$10##+C$MES @SAGE>
IFN ` TOP$20,<104B8+10 00+C$MESSAGE>
MESSAGE>
t]p 1X#
IFNB <2B>,<C$$A==B>
>,<C$$A==B>
t]{ (8"C
DEFINE C$$A<B>
E u{2 ! 2
I!@FN TOP$10,<PUSHJ !`17,RMS$10##+C$NOM" ESSAGE>
I" FN TOP$20,<104B8+"@1000+C$NOMESSAGE>
MESSAGE>~ 7 Mx,_
IMXFN TOP$10,<PUSHJ M17,RMS$10##+C$OPELxN>
IFN TOKxP$20,<104B8+1000+ C$OPEN>
+] b .
Ib@FN TOP$10,<PUSHJ b`17,RMS$10##+C$PUTc >
IFN TOPc $20,<104B8+1000+C $PUT>
0+C*2P *zP +P = P [ 1
I@FN TOP$10,<PUSHJ `17,RMS$10##+C$REL EASE>
IFN 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` X!
$$CODE( x.SUBAS,.SUCTR,A, B)
.SUCTR,A, V x!+
FB$ALL==FB$GET+FB$PUT+FB8$DEL+FB$UPD+FB$TRXN
$$ASSUMEx(FB$SEQ,0) ;FILE ORG MUST BE GTR 8ZERO
$$ASSUME(RXB$SEQ,0,0) ;RECOxRD ACCESS MUST START AT ZERO
$$A8SSUME(XB$KEY,0,0)X ;KEY XAB MUST BxE FIRST
$$ASSUME(XB$STG,0,0) ;S8TRING DATA-TYPE S HOULD BE ZERO
&-7 v`/@
Iw FN TOP$10,<PUSHJ w 17,RMS$10##+C$TRUw@NCATE>
IFw`N TOP$20,<104B8+1x 000+C$TRUNCATE>
,\RUNCATE>
$$CODE( X.ERBAS,.ERCTR,A, B)
.ERCTR,A,. g .D
Ig@FN TOP$10,<PUSHJ g`17,RMS$10##+C$UPDh ATE>
IFN h TOP$20,<104B8+100h@0+C$UPDATE>
$UPDATE>
.K 6 3:
I6 FN TOP$10,<PUSHJ 6@17,RMS$10##+C$UTL6`INT>
IFN 7 TOP$20,<104B8+1007 0+C$UTLINT>
$UTLINT>
4[R x!y
IF2 ,<
OPDEF RM$MIN 8 [104B8+1000] ;MI XNIMUM JSYS VALUE x
OPDEF RM$MAX [ 104B8+1000+XX$MAX ]
>
MAX4\Q 8!k
C$XA==XX$MAX
x DEFINE $$A(A)<
IFN TOP$810,<PUSHJ 17,RMS$X10##+C$A>
x IFN TOP$20,<104B8+1000+C$A>
8 >
DEFINE X$A(.BLK1,.ERRAD,x.NLARG),<
IFB <.BLK1>,<IF1,<PRIN8TX %ARGBLK ADDRESXS OMIITED ON A MxACRO>>
XMOVEI 1, .BLK1
IFNB <.8NLARG>,<IF1,<PRINXTX %MORE THAN 2 AxRGS DETECTED IN A MACRO>>
$$A 8
IFNB <.ERRAD X>,<JUMP 17,.ERRAD x>
IFB <.ERRAD>, <JUMP 16,.+1>
8 >
XX$MAX==X X$MAX+1
X==X5T x!7
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 >8+{
SETZM >XA
MOVEI 2,A>x
MOVEI 1,1(2?)
HRLI 1,A ?8
BLT 1,B-1(2 )
T 1,B-1(2 e|r Y`-f
IFB <AZ >,<IF1,<PRINTX %AZ RGBLK ADDRESS OMIZ@ITED ON CLOSE MACZ`RO>>
XMOVEI 1, [ A
IFNB <C>,<I[ F1,<PRINTX %MORE [@THAN 2 ARGS DETEC[`TED IN CLOSE MACR\ O>>
$$CLOSE
IFNB <B>,<JUMP\@ 17,B>
IFB <B\`>,<JUMP 16,.+1>
}k 16,.+1>
IFB <A~ >,<IF1,<PRINTX %A~ RGBLK ADDRESS OMI~@ITED ON CONNECT M~`ACRO>>
XMOVEI 1 , A
IFNB <C>, <IF1,<PRINTX %MOR@E THAN 2 ARGS DET`ECTED IN CONNECT MACRO>>
$$CONNE CT
IFNB <B> @,<JUMP 17,B>
I `FB <B>,<JUMP 16, .+1>
16, X: @0\
IFB <A`>,<IF1,<PRINTX %A RGBLK ADDRESS OMI ITED ON CREATE MA @CRO>>
XMOVEI 1, ` A
IFNB <C>,<
IF1,<PRINTX %MORE
THAN 2 ARGS DETE
@CTED IN CREATE MA
`CRO>>
$$CREATE
IFNB <B>,<J UMP 17,B>
IFB @<B>,<JUMP 16,.+1 >
`1 16,.+1 ,-3
IFB <A >,<IF1,<PRINTX %A RGBLK ADDRESS OMI@ITED ON DEBUG MAC`RO>>
XMOVEI 1, A
IFNB <C>,<I F1,<PRINTX %MORE @THAN 2 ARGS DETEC`TED IN DEBUG MACR O>>
$$DEBUG
IFNB <B>,<JUMP@ 17,B>
IFB <B`>,<JUMP 16,.+1>
-I 16,.+1>
IFB <An@>,<IF1,<PRINTX %An`RGBLK ADDRESS OMIo ITED ON DELETE MAo CRO>>
XMOVEI 1,o@ A
IFNB <C>,<o`IF1,<PRINTX %MOREp THAN 2 ARGS DETEp CTED IN DELETE MAp@CRO>>
$$DELETE p`
IFNB <B>,<Jq UMP 17,B>
IFB q <B>,<JUMP 16,.+1 >
16,.+1 N8w 04
IFB <A@>,<IF1,<PRINTX %A`RGBLK ADDRESS OMI ITED ON DISCONNEC T MACRO>>
XMOVE@I 1, A
IFNB <`C>,<IF1,<PRINTX % MORE THAN 2 ARGS DETECTED IN DISCO@NNECT MACRO>>
$`$DISCONNECT
IFNB <B>,<JUMP 1 7,B>
IFB <B>,@<JUMP 16,.+1>
16,.+1>
N< ( 2Z
IFB <A(@>,<IF1,<PRINTX %A(`RGBLK ADDRESS OMI) ITED ON DISPLAY M) ACRO>>
XMOVEI 1)@, A
IFNB <C>,)`<IF1,<PRINTX %MOR* E THAN 2 ARGS DET* ECTED IN DISPLAY *@MACRO>>
$$DISPL*`AY
IFNB <B>+ ,<JUMP 17,B>
I+ FB <B>,<JUMP 16, .+1>
16, r -@3
IFB <A-`>,<IF1,<PRINTX %A. RGBLK ADDRESS OMI. ITED ON ERASE MAC.@RO>>
XMOVEI 1, .`A
IFNB <C>,<I/ F1,<PRINTX %MORE / THAN 2 ARGS DETEC/@TED IN ERASE MACR/`O>>
$$ERASE
IFNB <B>,<JUMP0 17,B>
IFB <B0@>,<JUMP 16,.+1>
.H 16,.+1>
$$ISOL(@xB)
IFE <T$$ASZ-^D18>,<
AXA8 IFE T$$PS,<
HRRZ A,T$$OF+AxC
T$$SZ==0
>
IFEB8 <T$$PS-^D18>,< BX
HLRZ A,T$$OFBx+C
T$$SZ==0 C
>
>
IFC8E <T$$SZ-^D36>,< CX
MOVE A,T$$OCxF+C
T$$SZ==0 D
>
IFN T$$SZD8,<
LDB A,[DX<T$$PS>B5 ! <T$$SDxZ>B11 ! <T$$OF+C >]
>
$$OF+C L[ @, [F$$A+B] [F$$A+B] Mi s /2
IFB <As@>,<IF1,<PRINTX %As`RGBLK ADDRESS OMIt ITED ON FIND MACRt O>>
XMOVEI 1, t@A
IFNB <C>,<IFt`1,<PRINTX %MORE Tu HAN 2 ARGS DETECTu ED IN FIND MACRO>u@>
$$FIND
Iu`FNB <B>,<JUMP 17v ,B>
IFB <B>,<v JUMP 16,.+1>
16,.+1>
f\t 1Z
IFB <A@>,<IF1,<PRINTX %A`RGBLK ADDRESS OMI ITED ON FLUSH MAC RO>>
XMOVEI 1, @A
IFNB <C>,<I`F1,<PRINTX %MORE THAN 2 ARGS DETEC TED IN FLUSH MACR@O>>
$$FLUSH
IFNB <B>,<JUMP 17,B>
IFB <B >,<JUMP 16,.+1>
Y 16,.+1>
IFB <A2`>,<IF1,<PRINTX %A3 RGBLK ADDRESS OMI3 ITED ON FREE MACR3@O>>
XMOVEI 1, 3`A
IFNB <C>,<IF4 1,<PRINTX %MORE T4 HAN 2 ARGS DETECT4@ED IN FREE MACRO>4`>
$$FREE
I5 FNB <B>,<JUMP 175 ,B>
IFB <B>,<5@JUMP 16,.+1>
16,.+1>
.@ ^`.
IFB <A_ >,<IF1,<PRINTX %A_ RGBLK ADDRESS OMI_@ITED ON GET MACRO_`>>
XMOVEI 1, A`
IFNB <C>,<IF1` ,<PRINTX %MORE TH`@AN 2 ARGS DETECTE``D IN GET MACRO>>
$$GET
IFNBa <B>,<JUMP 17,Ba@>
IFB <B>,<JUMa`P 16,.+1>
16,.+1>
&u <@3f
PUSH< J 17,$$RMS##
.<`REQUIRE SYS:RMSIN I
)%BAD REC 6.<p @2
IFB <A `>,<IF1,<PRINTX %A RGBLK ADDRESS OMI ITED ON MESSAGE M @ACRO>>
XMOVEI 1 `, A
IFNB <C>, <IF1,<PRINTX %MOR E THAN 2 ARGS DET @ECTED IN MESSAGE `MACRO>>
$$MESSA GE
IFNB <B> ,<JUMP 17,B>
I @FB <B>,<JUMP 16, .+1>
16, :}Y9 # 22
IFB <A# >,<IF1,<PRINTX %A#@RGBLK ADDRESS OMI#`ITED ON NOMESSAGE$ MACRO>>
XMOVEI$ 1, A
IFNB <C$@>,<IF1,<PRINTX %M$`ORE THAN 2 ARGS D% ETECTED IN NOMESS% AGE MACRO>>
$$N%@OMESSAGE
IFN%`B <B>,<JUMP 17,& B>
IFB <B>,<JU& MP 16,.+1>
16,.+1>
?[@ L8-<
IFB <ALX>,<IF1,<PRINTX %AU RGBLK ADDRESS OMIU ITED ON OPEN MACRU@O>>
XMOVEI 1, U`A
IFNB <C>,<IFV 1,<PRINTX %MORE TV HAN 2 ARGS DETECTV@ED IN OPEN MACRO>V`>
$$OPEN
IW FNB <B>,<JUMP 17W ,B>
IFB <B>,<W@JUMP 16,.+1>
16,.+1>
C.@ c`.6
IFB <Ad >,<IF1,<PRINTX %Ad RGBLK ADDRESS OMId@ITED ON PUT MACROd`>>
XMOVEI 1, Ae
IFNB <C>,<IF1e ,<PRINTX %MORE THe@AN 2 ARGS DETECTEe`D IN PUT MACRO>>
$$PUT
IFNBf <B>,<JUMP 17,Bf@>
IFB <B>,<JUMf`P 16,.+1>
16,.+1>
J-I0 10
IFB <A >,<IF1,<PRINTX %A@RGBLK ADDRESS OMI`ITED ON RELEASE M ACRO>>
XMOVEI 1 , A
IFNB <C>,@<IF1,<PRINTX %MOR`E THAN 2 ARGS DET ECTED IN RELEASE MACRO>>
$$RELEA@SE
IFNB <B>`,<JUMP 17,B>
I FB <B>,<JUMP 16, .+1>
16, J.M9 +} POPJ 17, Jn0 <@3f
PUSH< J 17,$$RMS##
.<`REQUIRE SYS:RMSIN I
)%BAD REC O%|R E8,O
$$ISOL(EXB)
IFE <T$$ExSZ-^D18>,<
F8F IFE T$$PS,<
HRRM A,T$$OF+FXC
T$$SZ==0
>
IFEG <T$$PS-^D18>,< G8
HRLM A,T$$OFGX+C
T$$SZ==0 Gx
>
>
IFHE <T$$SZ-^D36>,< H8
MOVEM A,T$$HXOF+C
T$$SZ==0Hx ;INDIC INST GENI
>
IFN T$$SZ,I8<
DPB A,[<IXT$$PS>B5 ! <T$$SZIx>B11 ! <T$$OF+C> ]
>
$$OF+C> S[Q x@/\
IFB <Ax`>,<IF1,<PRINTX %Ay RGBLK ADDRESS OMIy ITED ON TRUNCATE y@MACRO>>
XMOVEI y`1, A
IFNB <C>z ,<IF1,<PRINTX %MOz RE THAN 2 ARGS DEz@TECTED IN TRUNCATz`E MACRO>>
$$TRU{ NCATE
IFNB <{ B>,<JUMP 17,B>
IFB <B>,<JUMP 16,.+1>
WH: i .`
IFB <Ai >,<IF1,<PRINTX %Ai@RGBLK ADDRESS OMIi`ITED ON UPDATE MAj CRO>>
XMOVEI 1,j A
IFNB <C>,<j@IF1,<PRINTX %MOREj` THAN 2 ARGS DETEk CTED IN UPDATE MAk CRO>>
$$UPDATE k@
IFNB <B>,<Jk`UMP 17,B>
IFB l <B>,<JUMP 16,.+1 >
16,.+1 W%J7 7`3V
IFB <A8 >,<IF1,<PRINTX %A8 RGBLK ADDRESS OMI8@ITED ON UTLINT MA8`CRO>>
XMOVEI 1,9 A
IFNB <C>,<9 IF1,<PRINTX %MORE9@ THAN 2 ARGS DETE9`CTED IN UTLINT MA: CRO>>
$$UTLINT :
IFNB <B>,<J:@UMP 17,B>
IFB :`<B>,<JUMP 16,.+1 >
16,.+1 : #8"#
DEFINE #XA$B(ARG)<
IF#x1,<PRINTX %"A$B$" RMS-11 ONLY, IG$8NORED BY RMS-20>
>
YhRMS-20>$x")
IRP A,%< ..BADF(F,A) >
.BADF(F,A)">
IRP A,%x< ..BADF(R,A) >
.BADF(R,A)">
IRP A,&X< ..BADF(X,A) >
.BADF(X,A)(>P # =P 2 D(9P # D=P O,(9P O,=P >}{woP