Trailing-Edge
-
PDP-10 Archives
-
BB-L665B-BM
-
binary/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,:I@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,<P!pRINTX %"F$ALQ" RM"S-11 ONLY, IGNORED BY RMS-20>
L"P"
IF1,<P"pRINTX %"F$ANB" RM#S-11 ONLY, IGNORED BY RMS-20>
L<` HP$E$$NEWVAL (BKS,A)NEWVAL (LL` H$A$$NEWVAL (BLS,A)NEWVAL (L>@ F$1$$NEWVAL (BSZ,A)NEWVAL (LN I$I$$NEWVAL (CTX,A)NEWVAL (L%h P!y
IF1,<PpRINTX %"F$DNA" RMS-11 ONLY, IGNORED BY RMS-20>
L%l` P"
IF1,<PpRINTX %"F$DNS" RM S-11 ONLY, IGNORED BY RMS-20>
L4` B$$$NEWVAL (FAC,A)NEWVAL (L5h D$!$$NEWVAL (FNA,A)NEWVAL (L5l` P!q
IF1,<PpRINTX %"F$FNS" RMS-11 ONLY, IGNORED BY RMS-20>
L5| C$$$NEWVAL (FOP,A)NEWVAL (L6>@ #P"!
IF1,<P#pRINTX %"F$FSZ" RM$S-11 ONLY, IGNORED BY RMS-20>
LTk@VAP$JFN,A)NEWVAL (LUk GP$=$$NEWVAL (JNL,A)NEWVAL (Ld: $P")
IF1,<P$pRINTX %"F$LCH" RM%S-11 ONLY, IGNORED BY RMS-20>
Ln+@ EP$-$$NEWVAL (MRN,A)NEWVAL (Ln,` E$)$$NEWVAL (MRS,A)NEWVAL (L~)` CP$$$NEWVAL (ORG,A)NEWVAL (L DP$%$$NEWVAL (RAT,A)NEWVAL (Lk FP$5$$NEWVAL (RFM,A)NEWVAL (LM@ P"
IF1,<P pRINTX %"F$RTV" RM!S-11 ONLY, IGNORED BY RMS-20>
L
@ BP$$$NEWVAL (SHR,A)NEWVAL (LD@ G$9$$NEWVAL (XAB,A)NEWVAL (M$,}P M%KSP M&N8P MH@ 9$
IFNB <90A>,< ;RUN-TIME 9PINIT
$$MAPADD 9p(A,$$ADDR); ; WI:LL REFERENCE FAB :0VIA $$ADDR
SYN:P SF$$RT,$$SET
>:p
IFB <A>,;<SYN SF$$CT,$$SET;0>
$$CURR (F,B;PID)
$$CURR (F,;pBLN)
$$CURR (F<,STS)
$$CURR (<0F,STV)
$$CURR <P(F,IFI)
$$CURR<p (F,JFN)
$$CUR=R (F,FAC)
$$CU=0RR (F,SHR)
$$C=PURR (F,FOP)
$$=pCURR (F,ORG)
$>$CURR (F,FNA)
>0$$CURR (F,RAT)
>P $$CURR (F,MRS)
>p $$CURR (F,MRN)
$$CURR (F,BSZ)?0
$$CURR (F,RFM?P)
$$CURR (F,XA?pB)
$$CURR (F,J@NL)
$$CURR (F,@0BLS)
$$CURR (F@P,BKS)
$$CURR (@pF,DEV)
$$CURR A(F,SDC)
$$CURR (F,CTX)
CURRMI IP%-
IFNDEF Ip$$ADDR,<
<J$$SET(BID)>_^D18 J0! <$$SET(BLN)>
JP <$$SET(STS)>^D1Jp8 ! <$$SET(STV)>
<$$SET(CTX)>
K0 <$$SET(IFI)>_^DKP18 ! <$$SET(JFN)>Kp
<$$SET(FAC)>_L^D18 ! <$$SET(SHRL0)>
<$$SET(FOP)LP>_^D18 ! <$$SET(OLpRG)>_^D14 ! <$$SEMT(BSZ)>_^D8 ! <$$M0SET(BLS)>
<$$SMPET(FNA)>
<$$SEMpT(RAT)>_^D18 ! <$N$SET(MRS)>
<$$N0SET(MRN)>
<$$SNPET(BKS)>_^D5 ! <$Np$SET(RFM)>
<$$OSET(JNL)>_^D18 ! O0<$$SET(XAB)>
<OP$$SET(DEV)>_^D18 Op! <$$SET(SDC)>
P EXP 0,0,0,0
> P0 ;END IFNB
IPPFDEF $$ADDR,<
Pp$$SET(BID)
$$SQET(BLN)
$$SET(Q0STS)
$$SET(STVQP)
$$SET(IFI)
Qp $$SET(JFN)
$R$SET(FAC)
$$SER0T(SHR)
$$SET(FRPOP)
$$SET(ORG)Rp
$$SET(FNA)
S $$SET(RAT)
$$S0SET(MRS)
$$SETSP(MRN)
$$SET(BSSpZ)
$$SET(RFM)
$$SET(XAB)
T0$$SET(JNL)
$$STPET(BLS)
$$SET(TpBKS)
$$SET(DEVU)
$$SET(SDC)
U0 $$SET(CTX)
PUPURGE $$ADDR
>
MN@&+0*[P$$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@#'dNLdP&%`$$NEWVAL (CTX,A)NEWVAL)d4@L^%q$$NEWVAL (FAB,A)NEWVAL d\)@ bP& $$NEWVAL (KBF,A)NEWVAL d^)@ aP&
IF1,<P%0RINTX %"R$RHB" RM%PS-11 ONLY, IGNORED BY RMS-20>
d| _%y $$NEWVAL (ROP,A)NEWVAL d>@ `P& $$NEWVAL (RSZ,A)NEWVAL d,)@ _P%} $$NEWVAL (UBF,A)NEWVAL d.>@ a& $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ V%m
IFNB <V0A>,<
$$MAPADD VP(A,$$ADDR); ; WIVpLL REFERENCE THE WBLOCK VIA $$ADDR
SYN SR$$RT,$$SWPET
>
IFBWp <A>,<SYN SR$$CTX,$$SET>
$$CURX0R (R,BID)
$$CUXPRR (R,BLN)
$$CXpURR (R,STS)
$$YCURR (R,STV)
$Y0$CURR (R,ISI)
YP$$CURR (R,FAB)
Yp $$CURR (R,RAC)
Z $$CURR(R,ROP)$$NEWVAL (DFL,A)NEWVAL (p&L P($$NEWVAL (DTP,A)NEWVAL (p,M ( $$NEWVAL (EDT,A)NEWVAL (p5I` (!$$NEWVAL (FLG,A)NEWVAL (p>, ,p"k
IF1,<P-RINTX %"X$GRP" RM-0S-11 ONLY, IGNORED BY RMS-20>
pD 'p"C
IF1,<P(RINTX %"X$HAL" RM(0S-11 ONLY, IGNORED BY RMS-20>
pL@ P(%$$NEWVAL (IAN,A)NEWVAL (pLk P($$NEWVAL (IFL,A)NEWVAL (p]k P(5$$NEWVAL (KNM,A)NEWVAL (pd@ P(-$$NEWVAL (LAN,A)NEWVAL (pnJ &p";
IF1,<P'RINTX %"X$MTH" RM'0S-11 ONLY, IGNORED BY RMS-20>
pwP($$NEWVAL (NXT,A)NEWVAL (p~{@ +p"c
IF1,<P,RINTX %"X$OWN" RM,0S-11 ONLY, IGNORED BY RMS-20>
p|` (O
$$NE0WARRVAL (PS0,A)
$$NEWARRVAL (PpS1,B)
$$NEWARRVAL (PS2,C)
0$$NEWARRVAL (PS3,PD)
$$NEWARRVApL (PS4,E)
$$N EWARRVAL (PS5,F) 0
$$NEWARRVAL ( PPS6,G)
$$NEWA pRRVAL (PS7,H)
VAL (PS7,H)
p)` (p"K
IF1,<P)RINTX %"X$PRG" RM)0S-11 ONLY, IGNORED BY RMS-20>
p*@ )p"S
IF1,<P*RINTX %"X$PRJ" RM*0S-11 ONLY, IGNORED BY RMS-20>
pY@ (1$$NEWVAL (REF,A)NEWVAL (p+@ /p#
IF1,<P0RINTX %"X$SBN" RM00S-11 ONLY, IGNORED BY RMS-20>
p@
0(i
$$NE
PWARRVAL (SZ0,A)
p
$$NEWARRVAL (SZ1,B)
$$NEWAR0RVAL (SZ2,C)
P$$NEWARRVAL (SZ3,pD)
$$NEWARRVA
L (SZ4,E)
$$N
0EWARRVAL (SZ5,F)
P
$$NEWARRVAL (
pSZ6,G)
$$NEWAZ7,H)
VAL (SZ7,H)
p` *p"[
IF1,<P+RINTX %"X$SYS" RM+0S-11 ONLY, IGNORED BY RMS-20>
p5{ .p"{
IF1,<P/RINTX %"X$VOL" RM/0S-11 ONLY, IGNORED BY RMS-20>
p=I -p"s
IF1,<P.RINTX %"X$WLD" RM.0S-11 ONLY, IGNORED BY RMS-20>
pD. 0p#
IF1,<P1RINTX %"X$XBY" RM10S-11 ONLY, IGNORED BY RMS-20>
pT\WP q%KSP q&>P q&>P q&>P q&>P q&>P q&N8P qH@ q(
IFNB <q0B>,<
$$MAPADD qP(B,$$ADDR)
SqpYN SX$$RT,$$SET
r >
IFB <Br0>,<SYN SX$$CT,$$SrPET>
Crp$$COD==XB$A
s C$$BLN==XA$SXA s0
$$sPCURR (X,BID)
$sp$CURR (X,RS1)
t$$CURR (X,NXT)
t0
$$CURRtP (X,CDT)
$$CURtpR (X,RDT)
$$CUuRR (X,EDT)
u0
$$CURR (X,uPRS2)
$$CURR (Xup,AID)
$$CURR (vX,BKZ)
$$CURR (X,IFL)vP
$$CURR (X,DFLvp)
$$CURR (X,DTwP)
$$CURR (X,Fw0LG)
$$CURR (X,wPIAN)
$$CURR (Xwp,DAN)
$$CURR (xX,LAN)
$$CURR x0(X,REF)
$$CURRxP (X,KNM)
$$CURxpR (X,RX0)
$$CUyRR (X,RX1)
$$Cy0URR (X,RX2)
$$yPCURR (X,RX3)
$yp$CURR (X,RX4)
z$$CURR (X,RX5)
z0 $$CURR (X,PS0)
zP $$CURR (X,PS1)
$$CURR (X,PS2){
$$CURR (X,PS3{0)
$$CURR (X,PS{P4)
$$CURR (X,P{pS5)
$$CURR (X,|PS6)
$$CURR (X|0,PS7)
$$CURR (|PX,SZ0)
$$CURR |p(X,SZ1)
$$CURR} (X,SZ2)
$$CUR}0R (X,SZ3)
$$CU}PRR (X,SZ4)
$$C}pURR (X,SZ5)
$$~CURR (X,SZ6)
$~0$CURR (X,SZ7)
~P
$$CURR~p (X,RS6)
$$CURR (X,NOK)
$$CU0RR (X,NOA)
$$CPURR (X,RS7)
$$pCURR (X,RS8)
$$CURR (X,RS9)
CURR (X,RS9)
qI
IFNDEF,
<$$SET(BID)>_^D18 ! <$0$SET(BLN)>
<$$PSET(COD)>_^D18 ! p<$$SET(NXT)>
IFE <C$$COD-XB$DAT0>,<
<$$SET(CDPT)>
<$$SET(RDpT)>
<$$SET(EDT)>
>
IFE <0C$$COD-XB$ALL>,<
<$$SET(AID)>_p^D9 ! <$$SET(BKZ)>
EXP 0,0,0
0 >
IFE <C$$COPD-XB$KEY>,<
<p$$SET(DTP)>_^D18 ! <$$SET(FLG)>
0 <$$SET(IAN)>_^DP27 ! <$$SET(DAN)>p_^D18 ! <$$SET(LAN)>_^D9 ! <$$SET(0REF)>
<$$SET(PIFL)>_^D18 ! <$$SpET(DFL)>
<$$SET(KNM)>
EXP 00,0,0,0,0
<$$PSET(PS0)>_^D18 ! p<$$SET(SZ0)>
<$$SET(PS1)>_^D180 ! <$$SET(SZ1)>
P <$$SET(PS2)>_^pD18 ! <$$SET(SZ2)>
<$$SET(PS3)0>_^D18 ! <$$SET(SPZ3)>
<$$SET(PpS4)>_^D18 ! <$$SET(SZ4)>
<$$SE0T(PS5)>_^D18 ! <$P$SET(SZ5)>
<$p$SET(PS6)>_^D18 ! <$$SET(SZ6)>
0 <$$SET(PS7)>^D1P8 ! <$$SET(SZ7)>
>
IFE <C$$COD-XB$SUM>,<
0<$$SET(NOK)>_^D9 P! <$$SET(NOA)>
p EXP 0,0,0
>
>
IFDEF $$ADD0R,<
$$MAPADD (PXABADDR,$$ADDR); p; WILL REFERENCE THE BLOCK VIA $$A0DDR
; STOPRE COMMON HEADER pFOR ALL XAB TYPES
$$SET(BID)
0 $$SET(RS1)
$$PSET(COD)
$$SETp(NXT)
; STORE REST OF XAB 0DEPENDING ON IT'SP TYPE
IFE <C$$pCOD-XB$DAT>,<
$$NEWVAL(BLN,XA$S0XD)
$$SET(BLPN)
$$SET(CDT)
$$SET(RDT)
$$SET(EDT)
>
0
IFE <C$$COD-XPB$ALL>,<
$$NEWpVAL(BLN,XA$SXA)
$$SET(BLN)
0 $$SET(RS2)
$$ PSET(AID)
$$SET p(BKZ)
>
I!FE <C$$COD-XB$KEY!0>,<
$$NEWVAL(B!PLN,XA$SXK)
$!p$SET(BLN)
$$SE"T(IFL)
$$SET(D"0FL)
$$SET(DTP)"P
$$SET(FLG)
"p $$SET(IAN)
$$#SET(DAN)
$$SET#0(LAN)
$$SET(RE#PF)
$$SET(KNM)
$$SET(RX0)
$$$SET(RX1)
$$S$0ET(RX2)
$$SET($PRX3)
$$SET(RX4$p)
$$SET(RX5)
%
$$SET(PS0)
%0 $$SET(PS1)
$$%PSET(PS2)
$$SET%p(PS3)
$$SET(PS&4)
$$SET(PS5)
$$SET(PS6)
&P$$SET(PS7)
$&p$SET(SZ0)
$$SE'T(SZ1)
$$SET(S'0Z2)
$$SET(SZ3)'P
$$SET(SZ4)
'p $$SET(SZ5)
$$(SET(SZ6)
$$SET(0(SZ7)
>
I(PFE <C$$COD-XB$SUM(p>,<
$$NEWVAL(B)LN,XA$SXS)
$)0$SET(BLN)
$$SE)PT(RS6)
$$SET(N)pOK)
$$SET(NOA)*
$$SET(RS7)
*0 $$SET(RS8)
$$*PSET(RS9)
>
*pPURGE $$ADDR
>
qN@ ,0*e $$ZERO(A,P,%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 P
IFNB <pB>,<IFL A-B,<PRINTX ?A HAS A VA0LUE WHICH IS TOO PLOW>>
IFNB <C>p,<IFG A-C,<PRINTX ?A HAS A VALU0E WHICH IS TOO HIGH>>
IS TOO HIKy F@,>
IF`FN TOP$10,<PUSHJ G17,RMS$10##+C$CLOG SE>
IFN TG@OP$20,<104B8+1000G`+C$CLOSE>
C$CLOSE>
y p!9
C=A+B
B==B+1
B==B+1 {W j.Z
Ij FN TOP$10,<PUSHJ j@17,RMS$10##+C$CONj`NECT>
IFNk TOP$20,<104B8+10k 00+C$CONNECT>
CONNECT>
)0 o /0
IuFN TOP$10,<PUSHJ u 17,RMS$10##+C$CREu@ATE>
IFN u`TOP$20,<104B8+100v0+C$CREATE>
$CREATE>
\Y 0![PURGE C$$BPURGE C$$$XZ z/Z
Iz FN TOP$10,<PUSHJ z@17,RMS$10##+C$DEBz`UG>
IFN T{OP$20,<104B8+1000{ +C$DEBUG>
C$DEBUG>
$[ Z@-^
IZ`FN TOP$10,<PUSHJ [17,RMS$10##+C$DEL[ ETE>
IFN [@TOP$20,<104B8+100[`0+C$DELETE>
$DELETE>
%q o@/
Io`FN TOP$10,<PUSHJ p17,RMS$10##+C$DISp CONNECT>
p@IFN TOP$20,<104B8p`+1000+C$DISCONNECT>
CONNEC%x 1.
I`FN TOP$10,<PUSHJ 17,RMS$10##+C$DIS PLAY>
IFN@ TOP$20,<104B8+10`00+C$DISPLAY>
DISPLAY>
-i - END .(9 `1X
IFN TOP$10,<PUSHJ 17,RMS$10##+C$ERA@SE>
IFN T`OP$20,<104B8+1000+C$ERASE>
C$ERASE>
4*2P 4*yP 4+P 4+P 4,}P 4=P 4I;P 4\Y 0!-
$$CODE(P.EXBAS,.EXCTR,A,B)
.EXCTR,A,4h1P 4kPP 4kxP 56 0 +
IF1,<
$$AB==C$D
p F$$B==<XX$G>B5 ! <XX$F>B11 ! X0X$E
> ;END OF IF1
> ;END O5TP 5R _`.
I`FN TOP$10,<PUSHJ ` 17,RMS$10##+C$FIN`@D>
IFN TO``P$20,<104B8+1000+C$FIND>
+5)WP 5+VP 5M9 @0.
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 5|SP 6(:P 6)2 2
I FN TOP$10,<PUSHJ @17,RMS$10##+C$FRE`E>
IFN TO P$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 <] K`,f
ILFN TOP$10,<PUSHJ L 17,RMS$10##+C$GETL@>
IFN TOPL`$20,<104B8+1000+C$GET>
0+CN;v 9+Q
T$$PS==90F$$A_-^D30
T9P$$SZ==<F$$A_-^D29p4> & 77
T$$OF=:=F$$A & 777777
$A& 777777 DEFINE B<A>DEFINE B<l !3A$MAX==.0ABASE + .ACTR - 1SE + .ACTR - l\y `0X
I
FN TOP$10,<PUSHJ
17,RMS$10##+C$MES
@SAGE>
IFN
` TOP$20,<104B8+1000+C$MESSAGE>
MESSAGE>
t]p %p"3
IFNB <&0B>,<C$$A==B>
>,<C$$A==B>
t]{ P!e
DEFINE C$$A<B>
E u{2 1
I@FN TOP$10,<PUSHJ `17,RMS$10##+C$NOMESSAGE>
I FN TOP$20,<104B8+@1000+C$NOMESSAGE>
MESSAGE>~ 7 ;0+_
I:PFN TOP$10,<PUSHJ ;17,RMS$10##+C$OPE;PN>
IFN TO;pP$20,<104B8+1000+C$OPEN>
+] P@-
IP`FN TOP$10,<PUSHJ Q17,RMS$10##+C$PUTQ >
IFN TOPQ@$20,<104B8+1000+C$PUT>
0+C*2P *zP +P =P [ 0
I@FN TOP$10,<PUSHJ `17,RMS$10##+C$RELEASE>
IFN 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` p!!
$$CODE(.SUBAS,.SUCTR,A,B)
.SUCTR,A,V M
FB$ALL=0=FB$GET+FB$PUT+FBP$DEL+FB$UPD+FB$TRpN
$$ASSUME(FB$SEQ,0) ;FILE0 ORG MUST BE GTR PZERO
$$ASSUME(RpB$SEQ,0,0) ;RECORD ACCESS MUST ST0ART AT ZERO
$$APSSUME(XB$KEY,0,0)p ;KEY XAB MUST B E FIRST
$$ASSUM 0E(XB$STG,0,0) ;S PTRING DATA-TYPE SHOULD BE ZERO
&-7 d`.0
IeFN TOP$10,<PUSHJ e 17,RMS$10##+C$TRUe@NCATE>
IFe`N TOP$20,<104B8+1f000+C$TRUNCATE>
,\RUNCATE>
$$CODE(p.ERBAS,.ERCTR,A,B)
.ERCTR,A,. U -4
IU@FN TOP$10,<PUSHJ U`17,RMS$10##+C$UPDVATE>
IFN V TOP$20,<104B8+100V@0+C$UPDATE>
$UPDATE>
.K $2*
I$ FN TOP$10,<PUSHJ $@17,RMS$10##+C$UTL$`INT>
IFN %TOP$20,<104B8+100% 0+C$UTLINT>
$UTLINT>
4[R !
IF20,<
OPDEF RM$MINP [104B8+1000] ;MIpNIMUM JSYS VALUE
OPDEF RM$MAX [0104B8+1000+XX$MAX]
>
MAX4\Q P!
C$pA==XX$MAX
DEFINE $$A(A)<
0
IFN TOP$
P10,<PUSHJ 17,RMS$
p10##+C$A>
B8IN0TOP$20,<104
P >
p$ADEFINE,ERRAD,.NLARG),<
IFB <0.BLK1>,<IF1,<PRINPTX %ARGBLK ADDRESpS OMIITED ON A MACRO>>
MOVEI 1,0 .BLK1
IFNB <.NPLARG>,<IF1,<PRINTpX %MORE THAN 2 ARGS DETECTED IN A0 MACRO>>
$$A P
IFNB <.ERRAD>p,<JUMP 17,.ERRAD>
IFB <.ERRAD>,<0JUMP 16,.+1>
P >
XX$MAX==XX$MAX+1
X==XX5T Y
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 -*q
SETZM -0A
MOVEI 2,A-P
MOVEI 1,1(2-p)
HRLI 1,A .
BLT 1,B-1(2)
T 1,B-1(2 e|r H ,Z
IFB <AH@>,<IF1,<PRINTX %AH`RGBLK ADDRESS OMIIITED ON CLOSE MACI RO>>
MOVEI 1, I@A
IFNB <C>,<IFI`1,<PRINTX %MORE TJHAN 2 ARGS DETECTJ ED IN CLOSE MACROJ@>>
$$CLOSE
J` IFNB <B>,<JUMP K17,B>
IFB <B>K ,<JUMP 16,.+1>
16,.+1>
}kR k`.v
IFB <Al>,<IF1,<PRINTX %Al RGBLK ADDRESS OMIl@ITED ON CONNECT Ml`ACRO>>
MOVEI 1,m A
IFNB <C>,<m IF1,<PRINTX %MOREm@ THAN 2 ARGS DETEm`CTED IN CONNECT MnACRO>>
$$CONNECn T
IFNB <B>,n@<JUMP 17,B>
IFn`B <B>,<JUMP 16,.+1>
16,. X: v@/L
IFB <Av`>,<IF1,<PRINTX %AwRGBLK ADDRESS OMIw ITED ON CREATE MAw@CRO>>
MOVEI 1, w`A
IFNB <C>,<IxF1,<PRINTX %MORE x THAN 2 ARGS DETECx@TED IN CREATE MACx`RO>>
$$CREATE y
IFNB <B>,<JUy MP 17,B>
IFB <y@B>,<JUMP 16,.+1>
16,.+1> ,-3 {`/v
IFB <A|>,<IF1,<PRINTX %A| RGBLK ADDRESS OMI|@ITED ON DEBUG MAC|`RO>>
MOVEI 1, }A
IFNB <C>,<IF} 1,<PRINTX %MORE T}@HAN 2 ARGS DETECT}`ED IN DEBUG MACRO~>>
$$DEBUG
~ IFNB <B>,<JUMP ~@17,B>
IFB <B>~`,<JUMP 16,.+1>
16,.+1>
-I: \ -z
IFB <A\@>,<IF1,<PRINTX %A\`RGBLK ADDRESS OMI]ITED ON DELETE MA] CRO>>
MOVEI 1, ]@A
IFNB <C>,<I]`F1,<PRINTX %MORE ^THAN 2 ARGS DETEC^ TED IN DELETE MAC^@RO>>
$$DELETE ^`
IFNB <B>,<JU_MP 17,B>
IFB <_ B>,<JUMP 16,.+1>
16,.+1> N8w q /$
IFB <Aq@>,<IF1,<PRINTX %Aq`RGBLK ADDRESS OMIrITED ON DISCONNECr T MACRO>>
MOVEIr@ 1, A
IFNB <Cr`>,<IF1,<PRINTX %MsORE THAN 2 ARGS Ds ETECTED IN DISCONs@NECT MACRO>>
$$s`DISCONNECT
ItFNB <B>,<JUMP 17t ,B>
IFB <B>,<t@JUMP 16,.+1>
16,.+1>
N< 1J
IFB <A@>,<IF1,<PRINTX %A`RGBLK ADDRESS OMIITED ON DISPLAY M ACRO>>
MOVEI 1,@ A
IFNB <C>,<`IF1,<PRINTX %MORE THAN 2 ARGS DETE CTED IN DISPLAY M@ACRO>>
$$DISPLA`Y
IFNB <B>,<JUMP 17,B>
IF B <B>,<JUMP 16,.+1>
16,. r @1t
IFB <A`>,<IF1,<PRINTX %ARGBLK ADDRESS OMI ITED ON ERASE MAC@RO>>
MOVEI 1, `A
IFNB <C>,<IF1,<PRINTX %MORE T HAN 2 ARGS DETECT@ED IN ERASE MACRO`>>
$$ERASE
IFNB <B>,<JUMP 17,B>
IFB <B>@,<JUMP 16,.+1>
16,.+1>
.Ht /0+
$$ISOL(/PB)
IFE <T$$/pSZ-^D18>,<
000 IFE T$$PS,<
HRRZ A,T$$OF+0PC
T$$SZ==0
>
IFE1 <T$$PS-^D18>,< 10
HLRZ A,T$$OF1P+C
T$$SZ==0 1p
>
>
IF2E <T$$SZ-^D36>,< 20
MOVE A,T$$O2PF+C
T$$SZ==0 2p
>
IFN T$$SZ3,<
LDB A,[30<T$$PS>B5 ! <T$$S3PZ>B11 ! <T$$OF+C>]
>
$$OF+C L[ .p*w[F$$A+B][F$$A+B] Mi a ."
IFB <Aa@>,<IF1,<PRINTX %Aa`RGBLK ADDRESS OMIbITED ON FIND MACRb O>>
MOVEI 1, Ab@
IFNB <C>,<IF1b`,<PRINTX %MORE THcAN 2 ARGS DETECTEc D IN FIND MACRO>>c@
$$FIND
IFc`NB <B>,<JUMP 17,dB>
IFB <B>,<Jd UMP 16,.+1>
16,.+1>
f\t 0J
IFB <A@>,<IF1,<PRINTX %A`RGBLK ADDRESS OMIITED ON FLUSH MAC RO>>
MOVEI 1, @A
IFNB <C>,<IF`1,<PRINTX %MORE THAN 2 ARGS DETECT ED IN FLUSH MACRO@>>
$$FLUSH
` IFNB <B>,<JUMP 17,B>
IFB <B> ,<JUMP 16,.+1>
16,.+1>
Y @2
IFB <A `>,<IF1,<PRINTX %A!RGBLK ADDRESS OMI! ITED ON FREE MACR!@O>>
MOVEI 1, A!`
IFNB <C>,<IF1",<PRINTX %MORE TH" AN 2 ARGS DETECTE"@D IN FREE MACRO>>"`
$$FREE
IF#NB <B>,<JUMP 17,# B>
IFB <B>,<J#@UMP 16,.+1>
16,.+1>
.@ M -
IFB <AM@>,<IF1,<PRINTX %AM`RGBLK ADDRESS OMINITED ON GET MACRON >>
MOVEI 1, A
IFNB <C>,<IF1,N`<PRINTX %MORE THAON 2 ARGS DETECTEDO IN GET MACRO>>
O@ $$GET
IFNB O`<B>,<JUMP 17,B>P
IFB <B>,<JUMP 16,.+1>
&u )`2\
PUSH*@J 17,$$RMS##
.+@REQUIRE SYS:RMSINI
)%BAD REC 6.<p @0t
IFB <A`>,<IF1,<PRINTX %A
RGBLK ADDRESS OMI
ITED ON MESSAGE M
@ACRO>>
MOVEI 1,
` A
IFNB<<C>,<%MORE
$$MESSAGE
IFNB <B>, <JUMP 17,B>
IF@B <B>,<JUMP 16,.+1>
16,. :}Y9 1"
IFB <A >,<IF1,<PRINTX %A@RGBLK ADDRESS OMI`ITED ON NOMESSAGE MACRO>>
MOVEI 1, A
IFNB <C>@,<IF1,<PRINTX %MO`RE THAN 2 ARGS DETECTED IN NOMESSA GE MACRO>>
$$NO@MESSAGE
IFNB` <B>,<JUMP 17,B>
IFB <B>,<JUM P 16,.+1>
16,.+1>
?[@ <0,0
IFB <A<P>,<IF1,<PRINTX %AC@RGBLK ADDRESS OMIC`ITED ON OPEN MACRDO>>
MOVEI 1, AD
IFNB <C>,<IF1D@,<PRINTX %MORE THD`AN 2 ARGS DETECTEED IN OPEN MACRO>>E
$$OPEN
IFE@NB <B>,<JUMP 17,E`B>
IFB <B>,<JFUMP 16,.+1>
16,.+1>
C.@ R-&
IFB <AR >,<IF1,<PRINTX %AR@RGBLK ADDRESS OMIR`ITED ON PUT MACROS>>
MOVEI 1, A
IFNB <C>,<IF1,S@<PRINTX %MORE THAS`N 2 ARGS DETECTEDT IN PUT MACRO>>
T $$PUT
IFNB T@<B>,<JUMP 17,B>T`
IFB <B>,<JUMP 16,.+1>
J-I0 0
IFB <A >,<IF1,<PRINTX %A@RGBLK ADDRESS OMI`ITED ON RELEASE MACRO>>
MOVEI 1, A
IFNB <C>,<@IF1,<PRINTX %MORE` THAN 2 ARGS DETECTED IN RELEASE M ACRO>>
$$RELEAS@E
IFNB <B>,`<JUMP 17,B>
IFB <B>,<JUMP 16,.+1>
16,. J.M9 *sPOPJ 17, Jn0 )`2\
PUSH*@J 17,$$RMS##
.+@REQUIRE SYS:RMSINI
)%BAD REC O%|R 4+E
$$ISOL(40B)
IFE <T$$4PSZ-^D18>,<
54p IFE T$$PS,<
HRRM A,T$$OF+50C
T$$SZ==0
>
IFE5p <T$$PS-^D18>,< 6
HRLM A,T$$OF60+C
T$$SZ==0 6P
>
>
IF6pE <T$$SZ-^D36>,< 7
MOVEM A,T$$70OF+C
T$$SZ==07P ;INDIC INST GEN7p
>
IFN T$$SZ,8<
DPB A,[<80T$$PS>B5 ! <T$$SZ8P>B11 ! <T$$OF+C>]
>
$$OF+C> S[Q f@.L
IFB <Af`>,<IF1,<PRINTX %AgRGBLK ADDRESS OMIg ITED ON TRUNCATE g@MACRO>>
MOVEI 1g`, A
IFNB <C>,h<IF1,<PRINTX %MORh E THAN 2 ARGS DETh@ECTED IN TRUNCATEh` MACRO>>
$$TRUNiCATE
IFNB <i B>,<JUMP 17,B>
i@ IFB <B>,<JUMP 16,.+1>
1 WH: W-P
IFB <AW >,<IF1,<PRINTX %AW@RGBLK ADDRESS OMIW`ITED ON UPDATE MAXCRO>>
MOVEI 1, X A
IFNB <C>,<IX@F1,<PRINTX %MORE X`THAN 2 ARGS DETECYTED IN UPDATE MACY RO>>
$$UPDATE Y@
IFNB <B>,<JUY`MP 17,B>
IFB <ZB>,<JUMP 16,.+1>
16,.+1> W%J7 %`2F
IFB <A&>,<IF1,<PRINTX %A& RGBLK ADDRESS OMI&@ITED ON UTLINT MA&`CRO>>
MOVEI 1, 'A
IFNB <C>,<I' F1,<PRINTX %MORE '@THAN 2 ARGS DETEC'`TED IN UTLINT MAC(RO>>
$$UTLINT (
IFNB <B>,<JU(@MP 17,B>
IFB <(`B>,<JUMP 16,.+1>
16,.+1>: P!E
DEFINE pA$B(ARG)<
IF1,<PRINTX %"A$B0" RMS-11 ONLY, IGPNORED BY RMS-20>
>
YhRMS-20>!K
IRP A,0< ..BADF(F,A) >
.BADF(F,A)!>
IRP A,< ..BADF(R,A) >
.BADF(R,A)!>
IRP A,p< ..BADF(X,A) >
.BADF(X,A)(>P#=P 0D(9P# D=P O,(9P O,=P >}{woP