Trailing-Edge
-
PDP-10 Archives
-
BB-FI82B-DD_1989
-
5,17/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,SI@P FKyP 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$I6@# KH$I;@# KH$IV@#
KH$K@#
KH$K2@#KH$M@#KH$M8@#
KH$Y@#
KH$[s@#KH$i<@#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#0KH%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&LR@#,KH&LZ@#,KH&XS@#-KH&Y@#-KH&i9@#.KH&y9@#.KH'1@#/KH'v@#/K`%X<P#'L$2Q $L$*2Q $HL$*yQ
L$*zQ L$*}Q $L$+Q HL$+Q L$,}Q L$9Q L$;rQ $L$=Q L$H7Q $$L$I;Q $HL$IVQ HL$MQ $L$YQ L$h1Q HL$h1Q $HL$kQ HL$kPQ L$kxQ $HL%7Q 6$L%TQ $HL%VQ $HL%tQ $HL%)WQ HL%+VQ $HL%8SQ L%;VQ L%<SQ 6$L%<}Q $$L%H7Q $L%LwQ HL%XSQ $$L%\WQ L%\YQ HL%kpQ $L%kuQ $L%nQ HL%|SQ 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 \L&)HQ L&)IQ L&)IQ L&)JQ L&)PQ L&)VQ L&+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&,}Q $HL&.Q 00L&.Q L&. Q L&. Q L&.
Q L&.
QL&9Q HL&:Q HL&:=Q HL&=Q $HL&=Q HL&>HQ HL&>HQ HL&>IQ HL&>IQ HL&>JQ HL&>JQ HL&>KQ HL&>KQ H L&XSQ L&\}Q HL'1Q HL
IF1,<P8RINTX %"F$ALQ" RMXS-11 ONLY, IGNORED BY RMS-20>
Lu
IF1,<P8RINTX %"F$ANB" RMXS-11 ONLY, IGNORED BY RMS-20>
L<`VD!$$NEWVALA(BKS,A)NEWVAL(LL`VCX$$NEWVALA(BLS,A)NEWVAL(L>@ AX
IF1,<P8RINTX %"F$DNA" RMXS-11 ONLY, IGNORED BY RMS-20>
L%l` ]
IF1,<P8RINTX %"F$DNS" RMXS-11 ONLY, IGNORED BY RMS-20>
L4` =Xm$$NEWVAL (FAC,A)NEWVAL (L5h ?X}$$NEWVAL (FNA,A)NEWVAL (L5l` M
IF1,<P8RINTX %"F$FNS" RMXS-11 ONLY, IGNORED BY RMS-20>
L5| >Xu$$NEWVAL (FOP,A)NEWVAL (L6>@ }
IF1,<P8RINTX %"F$FSZ" RMXS-11 ONLY, IGNORED BY RMS-20>
LTk@ =i$$NEWVAL (JFN,A)NEWVAL (LUk C$$NEWVAL (JNL,A)NEWVAL (Ld:
IF1,<P 8RINTX %"F$LCH" RM XS-11 ONLY, IGNORED BY RMS-20>
Ln+@ A $$NEWVAL (MRN,A)NEWVAL (Ln,` @X$$NEWVAL (MRS,A)NEWVAL (L~)` ?y$$NEWVAL (ORG,A)NEWVAL (L @$$NEWVAL (RAT,A)NEWVAL (Lk B$$NEWVAL (RFM,A)NEWVAL (LM@ e
IF1,<P8RINTX %"F$RTV" RMXS-11 ONLY, IGNORED BY RMS-20>
L
@ >q$$NEWVAL (SHR,A)NEWVAL (LD@ BX$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ 4Xe
IFNB <4xA>,< ;RUN-TIME 5INIT
$$MAPADD 58(A,$$ADDR); ; WI5XLL REFERENCE FAB 5xVIA $$ADDR
SYN6 SF$$RT,$$SET
>68
IFB <A>,6X<SYN SF$$CT,$$SET6x>
$$CURR (F,B7ID)
$$CURR (F,78BLN)
$$CURR (F7X,STS)
$$CURR (7xF,STV)
$$CURR 8(F,IFI)
$$CURR88 (F,JFN)
$$CUR8XR (F,FAC)
$$CU8xRR (F,SHR)
$$C9URR (F,FOP)
$$98CURR (F,ORG)
$9X$CURR (F,FNA)
9x$$CURR (F,RAT)
: $$CURR (F,MRS)
:8 $$CURR (F,MRN)
$$CURR (F,BSZ):x
$$CURR (F,RFM;)
$$CURR (F,XA;8B)
$$CURR (F,J;XNL)
$$CURR (F,;xBLS)
$$CURR (F<,BKS)
$$CURR (<8F,DEV)
$$CURR <X(F,SDC)
$$CURR (F,CTX)
CURRMI E
IFNDEF E8$$ADDR,<
<EX$$SET(BID)>_^D18 Ex! <$$SET(BLN)>
F <$$SET(STS)>^D1F88 ! <$$SET(STV)>
<$$SET(CTX)>
Fx <$$SET(IFI)>_^DG18 ! <$$SET(JFN)>G8
<$$SET(FAC)>_GX^D18 ! <$$SET(SHRGx)>
<$$SET(FOP)H>_^D18 ! <$$SET(OH8RG)>_^D14 ! <$$SEHXT(BSZ)>_^D8 ! <$$HxSET(BLS)>
<$$SIET(FNA)>
<$$SEI8T(RAT)>_^D18 ! <$IX$SET(MRS)>
<$$IxSET(MRN)>
<$$SJET(BKS)>_^D5 ! <$J8$SET(RFM)>
<$$JXSET(JNL)>_^D18 ! Jx<$$SET(XAB)>
<K$$SET(DEV)>_^D18 K8! <$$SET(SDC)>
KX EXP 0,0,0,0
> Kx ;END IFNB
ILFDEF $$ADDR,<
L8$$SET(BID)
$$SLXET(BLN)
$$SET(LxSTS)
$$SET(STVM)
$$SET(IFI)
M8 $$SET(JFN)
$MX$SET(FAC)
$$SEMxT(SHR)
$$SET(FNOP)
$$SET(ORG)N8
$$SET(FNA)
NX $$SET(RAT)
$$NxSET(MRS)
$$SETO(MRN)
$$SET(BSO8Z)
$$SET(RFM)
$$SET(XAB)
Ox$$SET(JNL)
$$SPET(BLS)
$$SET(P8BKS)
$$SET(DEVPX)
$$SET(SDC)
Px $$SET(CTX)
PQURGE $$ADDR
>
MN@&&x7P$$ZERO(A,FA$LNG)ERO(AM$P&M$+P&M$8vP&M$:3P&M$I6P&M$I[P&M$LUP$M$j<P$M$y:P$M%P$M%@P$M%LpP$M%YP%M%j6P%M%}:P%M&$M%kt@#$M%ky@#%M%ky@#%M%kz@#&M& w@#&M&,}@#'M&[V@#'dN ` $$NEWVAL (CTX,A)NEWVAL d4@ YXM $$NEWVAL (FAB,A)NEWVAL d\)@ ^q $$NEWVAL (KBF,A)NEWVAL d^)@ ]i $$NEWVAL (KRF,A)NEWVAL d^>@ ]Xm $$NEWVAL (KSZ,A)NEWVAL df;@ X} $$NEWVAL (LSN,A)NEWVAL dl)@ ^Xu $$NEWVAL (MBF,A)NEWVAL d y $$NEWVAL (PAD,A)NEWVAL d` ZQ $$NEWVAL (RAC,A)NEWVAL d)@ [X] $$NEWVAL (RBF,A)NEWVAL d@ X
IF1,<P xRINTX %"R$RHB" RM!S-11 ONLY, IGNORED BY RMS-20>
d| ZXU $$NEWVAL (ROP,A)NEWVAL d>@ \a $$NEWVAL (RSZ,A)NEWVAL d,)@ [Y $$NEWVAL (UBF,A)NEWVAL d.>@ \Xe $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ QXI
IFNB <QxA>,<
$$MAPADD R(A,$$ADDR); ; WIR8LL REFERENCE THE RXBLOCK VIA $$ADDR
SYN SR$$RT,$$SSET
>
IFBS8 <A>,<SYN SR$$CTSX,$$SET>
$$CURSxR (R,BID)
$$CUTRR (R,BLN)
$$CT8URR (R,STS)
$$TXCURR (R,STV)
$Tx$CURR (R,ISI)
U$$CURR (R,FAB)
U8 $$CURR (R,RAC)
UX $$CURR (R,ROP)
$$CURR (R,UBF)V
$$CURR (R,RBFV8)
$$CURR (R,RSVXZ)
$$CURR (R,UVxSZ)
$$CURR (R,WRFA)
$$CURR (RW8,KRF)
$$CURR (WXR,KSZ)
$$CURR Wx(R,KBF)
$$CURRX (R,MBF)
$$CURX8R (R,LSN)
$$CUXXRR (R,BKT)
$$CXxURR (R,PAD)
$$YCURR (R,CTX)
URR (R,CTX)
eI `Xa
IFNDEF `x$$ADDR,<
<$$SEaT(BID)>_^D18 ! <$a8$SET(BLN)>
<$$aXSET(STS)>_^D18 ! ax<$$SET(STV)>
<b$$SET(CTX)>
<$b8$SET(ISI)>_^D18 !bX <$$SET(FAB)>
bx<$$SET(RAC)>_^D27c ! <$$SET(MBF)>_^c8D18 ! <$$SET(ROP)cX>
<$$SET(UBF)>cx
<$$SET(RBF)>
<$$SET(RSZ)>_^d8D18 ! <$$SET(USZ)dX>
<$$SET(RFA)>dx
<$$SET(KRF)>_e^D27 ! <$$SET(KSZe8)>_^D18 ! <$$SET(eXLSN)>
<$$SET(KexBF)>
<$$SET(BKfT)>
<$$SET(PADf8)>_^D27
EXP 0,fX0,0
> ;IFNDEfxF
IFDEF $$ADDR,g<
$$SET(BID)
g8 $$SET(BLN)
$gX$SET(STS)
$$SEgxT(STV)
$$SET(IhSI)
$$SET(FAB)h8
$$SET(RAC)
hX $$SET(ROP)
$$hxSET(UBF)
$$SETi(RBF)
$$SET(RSi8Z)
$$SET(USZ)
$$SET(RFA)
ix$$SET(KRF)
$$SjET(KSZ)
$$SET(j8KBF)
$$SET(MBFjX)
$$SET(LSN)
jx $$SET(BKT)
$k$SET(PAD)
$$SEk8T(CTX)
PURGE $kX$ADDR ;SO NEXT kxC/R DECIS CORRECTl
> ;IFDEF
> ;IFDEF
eN@ '8; $$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&xTP e4%X<
e4%Z7 f$(` 8{ A$B==1BC A$B==1Bf$H` ~xw A$B==^DC A$B==^Df&8` ~8s A$B==C$D A$B==Cg Hz /xIFDEF C$$0A,<C$$A> IFNDEF C$$A,<$$FA>F g LZ .X{
IFN.xDEF C$$A,<IFN $$/FA,<C$$A==$$FA/8>>
STO$$C(A)
TO$$C(gH Hz 1xIFDEF C$$2A,<C$$A> IFNDEF C$$A,<$$RA>F gH LZ 0X
IFN0xDEF C$$A,<IFN $$1RA,<C$$A==$$RA18>>
STO$$C(A)
TO$$C(gRxA -q
-X -8IFDEF C$$A,<
<HRREI 1,> ! C-x$$A
$STORE .(1,A,$$ADDR)
>
R)
gT$M8@ gT%@ gT%X<P gT&)7@ gT&,[@ gT&=1@ g` Hz 3x!IFDEF C$$4A,<C$$A> IFNDEF C$$A,<$$XA>F g` LZ 2X
IFN2xDEF C$$A,<IFN $$3XA,<C$$A==$$XA38>>
STO$$C(A)
TO$$C(i?D(P$i?DHPpD,A)NEWVAL (p>@ }Xm$$NEWVAL (BKZ,A)NEWVAL (p$@ X$$NEWVAL (DAN,A)NEWVAL (p$k ~Xu$$NEWVAL (DFL,A)NEWVAL (p&L y$$NEWVAL (DTP,A)NEWVAL (p,M |Xe$$NEWVAL (EDT,A)NEWVAL (p5I` X}$$NEWVAL (FLG,A)NEWVAL (p>, (8G
IF1,<P(XRINTX %"X$GRP" RM(xS-11 ONLY, IGNORED BY RMS-20>
pD #8
IF1,<P#XRINTX %"X$HAL" RM#xS-11 ONLY, IGNORED BY RMS-20>
pL@ $$NEWVAL (IAN,A)NEWVAL (pLk ~q$$NEWVAL (IFL,A)NEWVAL (p]k $$NEWVAL (KNM,A)NEWVAL (pd@ $$NEWVAL (LAN,A)NEWVAL (pnJ "8
IF1,<P"XRINTX %"X$MTH" RM"xS-11 ONLY, IGNORED BY RMS-20>
pw|a$$NEWVAL (NXT,A)NEWVAL (p~{@ '8?
IF1,<P'XRINTX %"X$OWN" RM'xS-11 ONLY, IGNORED BY RMS-20>
p|` X+
$$NExWARRVAL (PS0,A)
$$NEWARRVAL (P8S1,B)
$$NEWARXRVAL (PS2,C)
x$$NEWARRVAL (PS3,D)
$$NEWARRVA8L (PS4,E)
$$NXEWARRVAL (PS5,F)x
$$NEWARRVAL (PS6,G)
$$NEWA8RRVAL (PS7,H)
VAL (PS7,H)
p)` $8'
IF1,<P$XRINTX %"X$PRG" RM$xS-11 ONLY, IGNORED BY RMS-20>
p*@ %8/
IF1,<P%XRINTX %"X$PRJ" RM%xS-11 ONLY, IGNORED BY RMS-20>
pY@VXREF,A)NEWVAL (p+@ +8
IF1,<P+XRINTX %"X$SBN" RM+xS-11 ONLY, IGNORED BY RMS-20>
p@ xE
$$NEWARRVAL (SZ0,A)
$$NEWARRVAL (SXZ1,B)
$$NEWARxRVAL (SZ2,C)
$$NEWARRVAL (SZ3,8D)
$$NEWARRVAXL (SZ4,E)
$$NxEWARRVAL (SZ5,F)
$$NEWARRVAL (8SZ6,G)
$$NEWAXRRVAL (SZ7,H)
VAL (SZ7,H)
p` &87
IF1,<P&XRINTX %"X$SYS" RM&xS-11 ONLY, IGNORED BY RMS-20>
p5{ *8W
IF1,<P*XRINTX %"X$VOL" RM*xS-11 ONLY, IGNORED BY RMS-20>
p=I )8O
IF1,<P)XRINTX %"X$WLD" RM)xS-11 ONLY, IGNORED BY RMS-20>
pD. ,8g
IF1,<P,XRINTX %"X$XBY" RM,xS-11 ONLY, IGNORED BY RMS-20>
pT\WP q%KSP q&>P q&>P q&>P q&>P q&>P q&N8P qH@ lX]
IFNB <lxB>,<
$$MAPADD m(B,$$ADDR)
Sm8YN SX$$RT,$$SET
mX >
IFB <Bmx>,<SYN SX$$CT,$$SnET>
Cn8$$COD==XB$A
nX C$$BLN==XA$SXA nx
$$oCURR (X,BID)
$o8$CURR (X,RS1)
oX$$CURR (X,NXT)
ox
$$CURRp (X,CDT)
$$CURp8R (X,RDT)
$$CUpXRR (X,EDT)
px
$$CURR (X,qRS2)
$$CURR (Xq8,AID)
$$CURR (qXX,BKZ)
$$CURR (X,IFL)r
$$CURR (X,DFLr8)
$$CURR (X,DTrXP)
$$CURR (X,FrxLG)
$$CURR (X,sIAN)
$$CURR (Xs8,DAN)
$$CURR (sXX,LAN)
$$CURR sx(X,REF)
$$CURRt (X,KNM)
$$CURt8R (X,RX0)
$$CUtXRR (X,RX1)
$$CtxURR (X,RX2)
$$uCURR (X,RX3)
$u8$CURR (X,RX4)
uX$$CURR (X,RX5)
ux $$CURR (X,PS0)
v $$CURR (X,PS1)
$$CURR (X,PS2)vX
$$CURR (X,PS3vx)
$$CURR (X,PSw4)
$$CURR (X,Pw8S5)
$$CURR (X,wXPS6)
$$CURR (Xwx,PS7)
$$CURR (xX,SZ0)
$$CURR x8(X,SZ1)
$$CURRxX (X,SZ2)
$$CURxxR (X,SZ3)
$$CUyRR (X,SZ4)
$$Cy8URR (X,SZ5)
$$yXCURR (X,SZ6)
$yx$CURR (X,SZ7)
z
$$CURRz8 (X,RS6)
$$CURzXR (X,NOK)
$$CUzxRR (X,NOA)
$$C{URR (X,RS7)
$${8CURR (X,RS8)
${X$CURR (X,RS9)
CURR (X,RS9)
qI 3
IFNDEF 8$$ADDR,<
<$$SE XT(BID)>_^D18 ! <$ x$SET(BLN)>
<$$
SET(COD)>_^D18 !
8<$$SET(NXT)>
I
XFE <C$$COD-XB$DAT
x>,<
<$$SET(CDT)>
<$$SET(RD8T)>
<$$SET(EDXT)>
>
IFE <xC$$COD-XB$ALL>,<
<$$SET(AID)>_
8^D9 ! <$$SET(BKZ)
X>
EXP 0,0,0
x >
IFE$<C$$CO
<T(DTP)>G^D18
<$$SET(IAN)>^D27 ! <$$SET(DAN)>8^D18 ! <$$SET(LAXN)>^D9 ! <$$SET(xREF)>
<$$SET(IFL)>_^D18 ! <$$S8ET(DFL)>
<$$SXET(KNM)>
EXP x0,0,0,0,0
<$$SET(PS0)>_^D18 ! 8<$$SET(SZ0)>
X<$$SET(PS1)>_^D18x ! <$$SET(SZ1)>
<$$SET(PS2)>_^8D18 ! <$$SET(SZ2)X>
<$$SET(PS3)x>_^D18 ! <$$SET(SZ3)>
<$$SET(P8S4)>_^D18 ! <$$SEXT(SZ4)>
<$$SExT(PS5)>_^D18 ! <$$SET(SZ5)>
<$8$SET(PS6)>_^D18 !X <$$SET(SZ6)>
x <$$SET(PS7)>^D18 ! <$$SET(SZ7)>
>
IFE <C$$CXOD-XB$SUM>,<
x<$$SET(NOK)>_^D9 ! <$$SET(NOA)>
8 EXP 0,0,0
>
>
IFDEF $$ADDxR,<
$$MAPADD (XABADDR,$$ADDR); 8; WILL REFERENCE XTHE BLOCK VIA $$AxDDR
; STORE COMMON HEADER 8FOR ALL XAB TYPESX
$$SET(BID)
x $$SET(RS1)
$$SET(COD)
$$SET8(NXT)
; SXTORE REST OF XAB xDEPENDING ON IT'S TYPE
IFE <C$$8COD-XB$DAT>,<
X$$NEWVAL(BLN,XA$SxXD)
$$SET(BLN)
$$SET(CDT)
$$SET(RDT)
X$$SET(EDT)
>
x
IFE <C$$COD-XB$ALL>,<
$$NEW8VAL(BLN,XA$SXA) X
$$SET(BLN)
x $$SET(RS2)
$$SET(AID)
$$SET8(BKZ)
>
IXFE <C$$COD-XB$KEYx>,<
$$NEWVAL(BLN,XA$SXK)
$8$SET(BLN)
$$SEXT(IFL)
$$SET(DxFL)
$$SET(DTP)
$$SET(FLG)
8 $$SET(IAN)
$$XSET(DAN)
$$SETx(LAN)
$$SET(REF)
$$SET(KNM)
$$SET(RX0)
X$$SET(RX1)
$$SxET(RX2)
$$SET( RX3)
$$SET(RX4 8)
$$SET(RX5)
X
$$SET(PS0)
x $$SET(PS1)
$$!SET(PS2)
$$SET!8(PS3)
$$SET(PS!X4)
$$SET(PS5)
$$SET(PS6)
"$$SET(PS7)
$"8$SET(SZ0)
$$SE"XT(SZ1)
$$SET(S"xZ2)
$$SET(SZ3)#
$$SET(SZ4)
#8 $$SET(SZ5)
$$#XSET(SZ6)
$$SET#x(SZ7)
>
I$FE <C$$COD-XB$SUM$8>,<
$$NEWVAL(B$XLN,XA$SXS)
$$x$SET(BLN)
$$SE%T(RS6)
$$SET(N%8OK)
$$SET(NOA)%X
$$SET(RS7)
%x $$SET(RS8)
$$&SET(RS9)
>
&8PURGE $$ADDR
>
qN@ 'xA $$ZERO(A(,%NAME(XA$SX,B)) AME(XA$SX,B))q$P q$:P q$H:P q$M8P q$XQP q%
tP q%9<P q%X<P q%j6P q&:<P q&=P q&=6P 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`&IP q`&IP q`&JP
q`&KP q`&hP q`& P q`&P q`& P q`&wP q`&zP q`&
2P q`&P q`&P q`&
@P q`&
zP q`&
{P5q`&4)P5q`&4)P5q`&4IP5q`&4KP6P q`&6 P q`&8wP q`&8zP q`&:P q`&:2P q`&;P q`&<zP q`&<{P q`&=`P q`'9P <z |o
IFNB <|8B>,<IFL A-B,<PR|XINTX ?A HAS A VA|xLUE WHICH IS TOO }LOW>>
IFNB <C>}8,<IFG A-C,<PRIN}XTX ?A HAS A VALU}xE WHICH IS TOO HIGH>>
IS TOO HIKy B
IB(FN TOP$10,<PUSHJ BH17,RMS$10##+C$CLOBhSE>
IFN TCOP$20,<104B8+1000C(+C$CLOSE>
C$CLOSE>
y 8
C=A+XB
B==B+1
B==B+1 {W eH6
IehFN TOP$10,<PUSHJ f17,RMS$10##+C$CONf(NECT>
IFNfH TOP$20,<104B8+10fh00+C$CONNECT>
CONNECT>
)0 jh
IpHFN TOP$10,<PUSHJ ph17,RMS$10##+C$CREqATE>
IFN q(TOP$20,<104B8+100qH0+C$CREATE>
$CREATE>
\Y x7PURGE C$$BPURGE C$$$XZ uH6
IuhFN TOP$10,<PUSHJ v17,RMS$10##+C$DEBv(UG>
IFN TvHOP$20,<104B8+1000vh+C$DEBUG>
C$DEBUG>
$[ V:
IV(FN TOP$10,<PUSHJ VH17,RMS$10##+C$DELVhETE>
IFN WTOP$20,<104B8+100W(0+C$DELETE>
$DELETE>
%q kb
Ik(FN TOP$10,<PUSHJ kH17,RMS$10##+C$DISkhCONNECT>
lIFN TOP$20,<104B8l(+1000+C$DISCONNECT>
CONNEC%x
H!
I(FN TOP$10,<PUSHJ H17,RMS$10##+C$DIShPLAY>
IFN TOP$20,<104B8+10(00+C$DISPLAY>
DISPLAY>
-i END .(9 (!4
IHFN TOP$10,<PUSHJ h17,RMS$10##+C$ERASE>
IFN T(OP$20,<104B8+1000H+C$ERASE>
C$ERASE>
4*2P 4*yP 4+P 4+P 4,}P 4=P 4I;P 4\Y x
$$CODE(.EXBAS,.EXCTR,A,B)
.EXCTR,A,4h1P 4kPP 4kxP 56 x
IF1,<
$$AB==C$D
8 F$$B==<XX$G>B5X ! <XX$F>B11 ! XxX$E
> ;END OF IF1
> ;END O5TP 5R [(b
I[HFN TOP$10,<PUSHJ [h17,RMS$10##+C$FIN\D>
IFN TO\(P$20,<104B8+1000+C$FIND>
+5)WP 5+VP 5M9
I(FN TOP$10,<PUSHJ H17,RMS$10##+C$FLUhSH>
IFN TOP$20,<104B8+1000(+C$FLUSH>
C$FLUSH>
5\WP 5\YP 5|SP 6(:P 6)2 H!\
IhFN TOP$10,<PUSHJ 17,RMS$10##+C$FRE(E>
IFN TOHP$20,<104B8+1000+C$FREE>
+6)HP 6)HP 6)IP 6)IP 6)JP 6)VP 69P 6:P 6=P 6=P 71P <] G(B
IGHFN TOP$10,<PUSHJ Gh17,RMS$10##+C$GETH>
IFN TOPH($20,<104B8+1000+C$GET>
0+CN;v 4X-
T$$PS==4xF$$A_-^D30
T5$$SZ==<F$$A_-^D2584> & 77
T$$OF=5X=F$$A & 777777
$A& 777777 DEFINE B<A>DEFINE B<l XA$MAX==.xABASE + .ACTR - 1SE + .ACTR - l\y ( 4
IHFN TOP$10,<PUSHJ h17,RMS$10##+C$MESSAGE>
IFN( TOP$20,<104B8+10H00+C$MESSAGE>
MESSAGE>
t]p !8
IFNB <!xB>,<C$$A==B>
>,<C$$A==B>
t]{ A
DEFINE C$$A<B>
E u{2
h `
IFN TOP$10,<PUSHJ (17,RMS$10##+C$NOMHESSAGE>
IhFN TOP$20,<104B8+
1000+C$NOMESSAGE>
MESSAGE>~ 7 6x;
I6FN TOP$10,<PUSHJ 6X17,RMS$10##+C$OPE7N>
IFN TO78P$20,<104B8+1000+C$OPEN>
+] Lh
IL(FN TOP$10,<PUSHJ LH17,RMS$10##+C$PUTLh>
IFN TOPM$20,<104B8+1000+C$PUT>
0+C*2P *zP +P =P [ zh`
I{FN TOP$10,<PUSHJ {(17,RMS$10##+C$REL{HEASE>
IFN{h TOP$20,<104B8+10|00+C$RELEASE>
RELEASE>
h1P tP 8SP <SP <}P LwP XSP 2P (1P (SP )PP +xP ,HP ,IP ,IP ,JP ,}P =P =P XSP \}P X` 8}
$$CODE(X.SUBAS,.SUCTR,A,B)
.SUCTR,A,V X)
FB$ALL=x=FB$GET+FB$PUT+FB$DEL+FB$UPD+FB$TR8N
$$ASSUMEX(FB$SEQ,0) ;FILEx ORG MUST BE GTR ZERO
$$ASSUME(R8B$SEQ,0,0) ;RECOXRD ACCESS MUST STxART AT ZERO
$$ASSUME(XB$KEY,0,0)8 ;KEY XAB MUST BXE FIRST
$$ASSUMxE(XB$STG,0,0) ;STRING DATA-TYPE SHOULD BE ZERO
&-7 `(
I`HFN TOP$10,<PUSHJ `h17,RMS$10##+C$TRUaNCATE>
IFa(N TOP$20,<104B8+1aH000+C$TRUNCATE>
,\RUNCATE>
$$CODE(8.ERBAS,.ERCTR,A,B)
.ERCTR,A,. Ph
IQFN TOP$10,<PUSHJ Q(17,RMS$10##+C$UPDQHATE>
IFN QhTOP$20,<104B8+100R0+C$UPDATE>
$UPDATE>
.K H"
IhFN TOP$10,<PUSHJ 17,RMS$10##+C$UTL (INT>
IFN HTOP$20,<104B8+100 h0+C$UTLINT>
$UTLINT>
Xw4[R
x,IF2
OPDEF RM$MIN [104B8+1000] ;MI8NIMUM JSYS VALUEX
OPDEF RM$MAX [x104B8+1000+XX$MAX]
>
MAX4\Q i
C$8A==XX$MAX
X DEFINE $$A(A)<x
IFN TOP$10,<PUSHJ 17,RMS$810##+C$A>
X IFN TOP$20,<104xB8+1000+C$A>
>
DEFINE 8$A(.BLK1,.ERRAD, X.NLARG),<
IFB < x.BLK1>,<IF1,<PRIN
TX %ARGBLK ADDRES
8S OMIITED ON A M
XACRO>>
MOVEI 1,
x .BLK1
IFNB <.NLARG>,<IF1,<PRINT8X %MORE THAN 2 ARXGS DETECTED IN Ax MACRO>>
$$A
IFNB <.ERRAD>
8,<JUMP 17,.ERRAD>
X
IFB <.ERRAD>,<
xJUMP 16,.+1>
>
XX$MAX==XX$MAX+1
X==XX5T X5
XX$MAX==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 FyP 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 (XM
SETZM (xA
MOVEI 2,A)
MOVEI 1,1(2)8)
HRLI 1,A )X
BLT 1,B-1(2)
T 1,B-1(2 e|r Ch6
IFB <AD>,<IF1,<PRINTX %AD(RGBLK ADDRESS OMIDHITED ON CLOSE MACDhRO>>
MOVEI 1, EA
IFNB <C>,<IFE(1,<PRINTX %MORE TEHHAN 2 ARGS DETECTEhED IN CLOSE MACROF>>
$$CLOSE
F( IFNB <B>,<JUMP FH17,B>
IFB <B>Fh,<JUMP 16,.+1>
16,.+1>
}kR g(R
IFB <AgH>,<IF1,<PRINTX %AghRGBLK ADDRESS OMIhITED ON CONNECT Mh(ACRO>>
MOVEI 1,hH A
IFNB <C>,<hhIF1,<PRINTX %MOREi THAN 2 ARGS DETEi(CTED IN CONNECT MiHACRO>>
$$CONNECihT
IFNB <B>,j<JUMP 17,B>
IFj(B <B>,<JUMP 16,.+1>
16,. X: r(
IFB <Ar(>,<IF1,<PRINTX %ArHRGBLK ADDRESS OMIrhITED ON CREATE MAsCRO>>
MOVEI 1, s(A
IFNB <C>,<IsHF1,<PRINTX %MORE shTHAN 2 ARGS DETECtTED IN CREATE MACt(RO>>
$$CREATE tH
IFNB <B>,<JUthMP 17,B>
IFB <uB>,<JUMP 16,.+1>
16,.+1> ,-3 w(R
IFB <AwH>,<IF1,<PRINTX %AwhRGBLK ADDRESS OMIxITED ON DEBUG MACx(RO>>
MOVEI 1, xHA
IFNB <C>,<IFxh1,<PRINTX %MORE TyHAN 2 ARGS DETECTy(ED IN DEBUG MACROyH>>
$$DEBUG
yh IFNB <B>,<JUMP z17,B>
IFB <B>z(,<JUMP 16,.+1>
16,.+1>
-I: WhV
IFB <AX>,<IF1,<PRINTX %AX(RGBLK ADDRESS OMIXHITED ON DELETE MAXhCRO>>
MOVEI 1, YA
IFNB <C>,<IY(F1,<PRINTX %MORE YHTHAN 2 ARGS DETECYhTED IN DELETE MACZRO>>
$$DELETE Z(
IFNB <B>,<JUZHMP 17,B>
IFB <ZhB>,<JUMP 16,.+1>
16,.+1> N8w lh
IFB <Am>,<IF1,<PRINTX %Am(RGBLK ADDRESS OMImHITED ON DISCONNECmhT MACRO>>
MOVEIn 1, A
IFNB <Cn(>,<IF1,<PRINTX %MnHORE THAN 2 ARGS DnhETECTED IN DISCONoNECT MACRO>>
$$o(DISCONNECT
IoHFNB <B>,<JUMP 17oh,B>
IFB <B>,<pJUMP 16,.+1>
16,.+1>
N< h!&
IFB <A>,<IF1,<PRINTX %A(RGBLK ADDRESS OMIHITED ON DISPLAY MhACRO>>
MOVEI 1, A
IFNB <C>,<(IF1,<PRINTX %MOREH THAN 2 ARGS DETEhCTED IN DISPLAY MACRO>>
$$DISPLA(Y
IFNB <B>,H<JUMP 17,B>
IFhB <B>,<JUMP 16,.+1>
16,. r !P
IFB <A(>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIhITED ON ERASE MACRO>>
MOVEI 1, (A
IFNB <C>,<IFH1,<PRINTX %MORE ThHAN 2 ARGS DETECTED IN ERASE MACRO(>>
$$ERASE
H IFNB <B>,<JUMP h17,B>
IFB <B>,<JUMP 16,.+1>
16,.+1>
.Ht *xy
$$ISOL(+B)
IFE <T$$+8SZ-^D18>,<
+x+X IFE T$$PS,<
HRRZ A,T$$OF+,C
T$$SZ==0
>
IFE,X <T$$PS-^D18>,< ,x
HLRZ A,T$$OF-+C
T$$SZ==0 -8
>
>
IF-XE <T$$SZ-^D36>,< -x
MOVE A,T$$O.F+C
T$$SZ==0 .8
>
IFN T$$SZ.X,<
LDB A,[.x<T$$PS>B5 ! <T$$S/Z>B11 ! <T$$OF+C>]
>
$$OF+C L[ *8S[F$$A+B][F$$A+B] Mi \h~
IFB <A]>,<IF1,<PRINTX %A](RGBLK ADDRESS OMI]HITED ON FIND MACR]hO>>
MOVEI 1, A^
IFNB <C>,<IF1^(,<PRINTX %MORE TH^HAN 2 ARGS DETECTE^hD IN FIND MACRO>>_
$$FIND
IF_(NB <B>,<JUMP 17,_HB>
IFB <B>,<J_hUMP 16,.+1>
16,.+1>
f\t h &
IFB <A>,<IF1,<PRINTX %A(RGBLK ADDRESS OMIHITED ON FLUSH MAChRO>>
MOVEI 1, A
IFNB <C>,<IF(1,<PRINTX %MORE THHAN 2 ARGS DETECThED IN FLUSH MACRO>>
$$FLUSH
( IFNB <B>,<JUMP H17,B>
IFB <B>h,<JUMP 16,.+1>
16,.+1>
Y !x
IFB <A(>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIhITED ON FREE MACRO>>
MOVEI 1, A(
IFNB <C>,<IF1H,<PRINTX %MORE THhAN 2 ARGS DETECTED IN FREE MACRO>>(
$$FREE
IFHNB <B>,<JUMP 17,hB>
IFB <B>,<JUMP 16,.+1>
16,.+1>
.@ Hh\
IFB <AI>,<IF1,<PRINTX %AI(RGBLK ADDRESS OMIIHITED ON GET MACROIh>>
MOVEI 1, A
IFNB <C>,<IF1,J(<PRINTX %MORE THAJHN 2 ARGS DETECTEDJh IN GET MACRO>>
K $$GET
IFNB K(<B>,<JUMP 17,B>KH
IFB <B>,<JUMP 16,.+1>
&u %("8
PUSH&J 17,$$RMS##
.'REQUIRE SYS:RMSINI
)%BAD REC 6.<p P
IFB <A(>,<IF1,<PRINTX %AHRGBLK ADDRESS OMIhITED ON MESSAGE MACRO>>
MOVEI 1,( A
IFNB <C>,<HIF1,<PRINTX %MOREh THAN 2 ARGS DETE CTED IN MESSAGE M (ACRO>>
$$MESSAG HE
IFNB <B>, h<JUMP 17,B>
IF
B <B>,<JUMP 16,.+1>
16,. :}Y9
H ~
IFB <A
h>,<IF1,<PRINTXO%A
MOVEI
IFNB <C>,<IF1,<PRINTX %MO(RE THAN 2 ARGS DEHTECTED IN NOMESSAhGE MACRO>>
$$NOMESSAGE
IFNB( <B>,<JUMP 17,BH>
IFB <B>,<JUMhP 16,.+1>
16,.+1>
?[@ 7x
IFB <A8>,<IF1,<PRINTX %A?RGBLK ADDRESS OMI?(ITED ON OPEN MACR?HO>>
MOVEI 1, A?h
IFNB <C>,<IF1@,<PRINTX %MORE TH@(AN 2 ARGS DETECTE@HD IN OPEN MACRO>>@h
$$OPEN
IFANB <B>,<JUMP 17,A(B>
IFB <B>,<JAHUMP 16,.+1>
16,.+1>
C.@ MH
IFB <AMh>,<IF1,<PRINTX %ANRGBLK ADDRESS OMIN(ITED ON PUT MACRONH>>
MOVEI 1, A
IFNB <C>,<IF1,O<PRINTX %MORE THAO(N 2 ARGS DETECTEDOH IN PUT MACRO>>
Oh $$PUT
IFNB P<B>,<JUMP 17,B>P(
IFB <B>,<JUMP 16,.+1>
J-I0 |H|
IFB <A|h>,<IF1,<PRINTX %A}RGBLK ADDRESS OMI}(ITED ON RELEASE M}HACRO>>
MOVEI 1,}h A
IFNB <C>,<~IF1,<PRINTX %MORE~( THAN 2 ARGS DETE~HCTED IN RELEASE M~hACRO>>
$$RELEASE
IFNB <B>,(<JUMP 17,B>
IFHB <B>,<JUMP 16,.+1>
16,. J.M9 OPOPJ 17, Jn0 %("8
PUSH&J 17,$$RMS##
.'REQUIRE SYS:RMSINI
)%BAD REC O%|R /X!
$$ISOL(/xB)
IFE <T$$0SZ-^D18>,<
0X08 IFE T$$PS,<
HRRM A,T$$OF+0xC
T$$SZ==0
>
IFE18 <T$$PS-^D18>,< 1X
HRLM A,T$$OF1x+C
T$$SZ==0 2
>
>
IF28E <T$$SZ-^D36>,< 2X
MOVEM A,T$$2xOF+C
T$$SZ==03 ;INDIC INST GEN38
>
IFN T$$SZ,3X<
DPB A,[<3xT$$PS>B5 ! <T$$SZ4>B11 ! <T$$OF+C>]
>
$$OF+C> S[Q b(
IFB <Ab(>,<IF1,<PRINTX %AbHRGBLK ADDRESS OMIbhITED ON TRUNCATE cMACRO>>
MOVEI 1c(, A
IFNB <C>,cH<IF1,<PRINTX %MORchE THAN 2 ARGS DETdECTED IN TRUNCATEd( MACRO>>
$$TRUNdHCATE
IFNB <dhB>,<JUMP 17,B>
e IFB <B>,<JUMP 16,.+1>
1 WH: RH,
IFB <ARh>,<IF1,<PRINTX %ASRGBLK ADDRESS OMIS(ITED ON UPDATE MASHCRO>>
MOVEI 1, ShA
IFNB <C>,<ITF1,<PRINTX %MORE T(THAN 2 ARGS DETECTHTED IN UPDATE MACThRO>>
$$UPDATE U
IFNB <B>,<JUU(MP 17,B>
IFB <UHB>,<JUMP 16,.+1>
16,.+1> W%J7 !(""
IFB <A!H>,<IF1,<PRINTX %A!hRGBLK ADDRESS OMI"ITED ON UTLINT MA"(CRO>>
MOVEI 1, "HA
IFNB <C>,<I"hF1,<PRINTX %MORE #THAN 2 ARGS DETEC#(TED IN UTLINT MAC#HRO>>
$$UTLINT #h
IFNB <B>,<JU$MP 17,B>
IFB <$(B>,<JUMP 16,.+1>
16,.+1>: !
DEFINE 8A$B(ARG)<
IFX1,<PRINTX %"A$Bx" RMS-11 ONLY, IGNORED BY RMS-20>
>
YhRMS-20>X'
IRP A,x< ..BADF(F,A) >
.BADF(F,A)>
IRP A,X< ..BADF(R,A) >
.BADF(R,A)>
IRP A,8< ..BADF(X,A) >
.BADF(X,A)(>P#=P 0D(9P# D=P O,(9P O,=P >}{woP