Trailing-Edge
-
PDP-10 Archives
-
bb-r775d-bm_tops20_ks_upd_4
-
subsys/rmsint.unv
There are 57 other files named rmsint.unv in the archive. Click here to see a list.
x
,5 I@ 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$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 $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$h1Q H L$h1Q $H L$kQ H L$kPQ L$kxQ $H 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%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 \ L&)HQ L&)IQ 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 H L&:=Q 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&XSQ L&\}Q H L'1Q H L
IF1,<P$(RINTX %"F$ALQ" RM$HS-11 ONLY, IGNORE D BY RMS-20>
L %",
IF1,<P%(RINTX %"F$ANB" RM%HS-11 ONLY, IGNORE D BY RMS-20>
L<` K$X $$NEWVAL ( BKS,A)NEWVAL (LL` JH$T $$NEWVAL ( BLS,A)NEWVAL (L>@ HH$D $$NEWVAL ( BSZ,A)NEWVAL (L N KH$\ $$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` DH$$ $$NEWVAL ( FAC,A)NEWVAL (L5h FH$4 $$NEWVAL ( FNA,A)NEWVAL (L5l` "
IF1,<P (RINTX %"F$FNS" RM HS-11 ONLY, IGNORE D BY RMS-20>
L5| EH$, $$NEWVAL ( FOP,A)NEWVAL (L6>@ &"4
IF1,<P&(RINTX %"F$FSZ" RM&HS-11 ONLY, IGNORE D BY RMS-20>
LTk@ D$ $$NEWVAL ( JFN,A)NEWVAL (LUk J$P $$NEWVAL ( JNL,A)NEWVAL (Ld: '"<
IF1,<P'(RINTX %"F$LCH" RM'HS-11 ONLY, IGNORE D BY RMS-20>
Ln+@ H$@ $$NEWVAL ( MRN,A)NEWVAL (Ln,` GH$< $$NEWVAL ( MRS,A)NEWVAL (L~)` F$0 $$NEWVAL ( ORG,A)NEWVAL (L G$8 $$NEWVAL ( RAT,A)NEWVAL (Lk I$H $$NEWVAL ( RFM,A)NEWVAL (LM@ #"
IF1,<P#(RINTX %"F$RTV" RM#HS-11 ONLY, IGNORE D BY RMS-20>
L
@ E$( $$NEWVAL ( SHR,A)NEWVAL (LD@ IH$L $$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)
$$CURR (F,CTX)
CURRMI L%@
IFNDEF L($$ADDR,<
<LH$$SET(BID)>_^D18 Lh! <$$SET(BLN)>
M <$$SET(STS)>^D1M(8 ! <$$SET(STV)>
<$$SET(CTX)>
Mh <$$SET(IFI)>_^DN18 ! <$$SET(JFN)>N(
<$$SET(FAC)>_NH^D18 ! <$$SET(SHRNh)>
<$$SET(FOP)O>_^D18 ! <$$SET(OO(RG)>_^D14 ! <$$SEOHT(BSZ)>_^D8 ! <$$OhSET(BLS)>
<$$SPET(FNA)>
<$$SEP(T(RAT)>_^D18 ! <$PH$SET(MRS)>
<$$PhSET(MRN)>
<$$SQET(BKS)>_^D5 ! <$Q($SET(RFM)>
<$$QHSET(JNL)>_^D18 ! Qh<$$SET(XAB)>
<R$$SET(DEV)>_^D18 R(! <$$SET(SDC)>
RH EXP 0,0,0,0
> Rh ;END IFNB
ISFDEF $$ADDR,<
S($$SET(BID)
$$SSHET(BLN)
$$SET(ShSTS)
$$SET(STVT)
$$SET(IFI)
T( $$SET(JFN)
$TH$SET(FAC)
$$SEThT(SHR)
$$SET(FUOP)
$$SET(ORG)U(
$$SET(FNA)
UH $$SET(RAT)
$$UhSET(MRS)
$$SETV(MRN)
$$SET(BSV(Z)
$$SET(RFM)
$$SET(XAB)
Vh$$SET(JNL)
$$SWET(BLS)
$$SET(W(BKS)
$$SET(DEVWH)
$$SET(SDC)
Wh $$SET(CTX)
PXURGE $$ADDR
>
MN@ & -h*n 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@ #'d N g&8 $$NEWVAL (CTX,A)NEWVAL d4@ `H& $$NEWVAL (FAB,A)NEWVAL d\)@ e&( $$NEWVAL (KBF,A)NEWVAL d^)@ d& $$NEWVAL (KRF,A)NEWVAL d^>@ dH&$ $$NEWVAL (KSZ,A)NEWVAL df;@ fH&4 $$NEWVAL (LSN,A)NEWVAL dl)@ eH&, $$NEWVAL (MBF,A)NEWVAL d f&0 $$NEWVAL (PAD,A)NEWVAL d` a& $$NEWVAL (RAC,A)NEWVAL d)@ bH& $$NEWVAL (RBF,A)NEWVAL d@ H"@
IF1,<P'hRINTX %"R$RHB" RM(S-11 ONLY, IGNORE D BY RMS-20>
d| aH&
$$NEWVAL (ROP,A)NEWVAL d>@ c& $$NEWVAL (RSZ,A)NEWVAL d,)@ b& $$NEWVAL (UBF,A)NEWVAL d.>@ cH& $$NEWVAL (USZ,A)NEWVAL e%KSP e&N8P eH@ XH&
IFNB <XhA>,<
$$MAPADD Y(A,$$ADDR); ; WIY(LL REFERENCE THE YHBLOCK VIA $$ADDR
SYN SR$$RT,$$SZET
>
IFBZ( <A>,<SYN SR$$CTZH,$$SET>
$$CURZhR (R,BID)
$$CU[RR (R,BLN)
$$C[(URR (R,STS)
$$[HCURR (R,STV)
$[h$CURR (R,ISI)
\$$CURR (R,FAB)
\( $$CURR (R,RAC)
\H $$CURR(R,ROP)$$NEWVAL ( DFL,A)NEWVAL (p&L (0 $$NEWVAL ( DTP,A)NEWVAL (p,M H( $$NEWVAL ( EDT,A)NEWVAL (p5I` H(4 $$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@ (8 $$NEWVAL ( IAN,A)NEWVAL (pLk (( $$NEWVAL ( IFL,A)NEWVAL (p]k (H $$NEWVAL ( KNM,A)NEWVAL (pd@ (@ $$NEWVAL ( LAN,A)NEWVAL (pnJ )("N
IF1,<P)HRINTX %"X$MTH" RM)hS-11 ONLY, IGNORE D BY RMS-20>
pw( $$NEWVAL ( NXT,A)NEWVAL (p~{@ .("v
IF1,<P.HRINTX %"X$OWN" RM.hS-11 ONLY, IGNORE D BY RMS-20>
p|` H(b
$$NE hWARRVAL (PS0,A)
$$NEWARRVAL (P
(S1,B)
$$NEWAR
HRVAL (PS2,C)
h$$NEWARRVAL (PS3, D)
$$NEWARRVA (L (PS4,E)
$$N HEWARRVAL (PS5,F) h
$$NEWARRVAL (
PS6,G)
$$NEWA
(RRVAL (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@ H(D $$NEWVAL ( REF,A)NEWVAL (p +@ 2(#
IF1,<P2HRINTX %"X$SBN" RM2hS-11 ONLY, IGNORE D BY RMS-20>
p @
h(|
$$NEL (SZ0,A)
$$NEWARRVAL (S
$$NEWAR,C)
$$NEWARRVAL (SZ3,(D)
$$NEWARRVAHL (SZ4,E)
$$NhEWARRVAL (SZ5,F)
$$NEWARRVAL ((SZ6,G)
$$NEWAHRRVAL (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@ sH(
IFNB <shB>,<
$$MAPADD t(B,$$ADDR)
St(YN SX$$RT,$$SET
tH >
IFB <Bth>,<SYN SX$$CT,$$SuET>
Cu($$COD==XB$A
uH C$$BLN==XA$SXA uh
$$vCURR (X,BID)
$v($CURR (X,RS1)
vH$$CURR (X,NXT)
vh
$$CURRw (X,CDT)
$$CURw(R (X,RDT)
$$CUwHRR (X,EDT)
wh
$$CURR (X,xRS2)
$$CURR (Xx(,AID)
$$CURR (xHX,BKZ)
$$CURR (X,IFL)y
$$CURR (X,DFLy()
$$CURR (X,DTyHP)
$$CURR (X,FyhLG)
$$CURR (X,zIAN)
$$CURR (Xz(,DAN)
$$CURR (zHX,LAN)
$$CURR zh(X,REF)
$$CURR{ (X,KNM)
$$CUR{(R (X,RX0)
$$CU{HRR (X,RX1)
$$C{hURR (X,RX2)
$$|CURR (X,RX3)
$|($CURR (X,RX4)
|H$$CURR (X,RX5)
|h $$CURR (X,PS0)
} $$CURR (X,PS1)
$$CURR (X,PS2)}H
$$CURR (X,PS3}h)
$$CURR (X,PS~4)
$$CURR (X,P~(S5)
$$CURR (X,~HPS6)
$$CURR (X~h,PS7)
$$CURR (X,SZ0)
$$CURR ((X,SZ1)
$$CURRH (X,SZ2)
$$CURhR (X,SZ3)
$$CU RR (X,SZ4)
$$C (URR (X,SZ5)
$$ HCURR (X,SZ6)
$ h$CURR (X,SZ7)
$$CURR( (X,RS6)
$$CURHR (X,NOK)
$$CUhRR (X,NOA)
$$CURR (X,RS7)
$$(CURR (X,RS8)
$H$CURR (X,RS9)
CURR (X,RS9)
qI *j
IFNDEF ($$ADDR,<
<$$SEHT(BID)>_^D18 ! <$h$SET(BLN)>
<$$SET(COD)>_^D18 ! (<$$SET(NXT)>
IHFE <C$$COD-XB$DATh>,<
<$$SET(CDT)>
<$$SET(RD(T)>
<$$SET(EDHT)>
>
IFE <hC$$COD-XB$ALL>,<
<$$SET(AID)>_(^D9 ! <$$SET(BKZ)H>
EXP 0,0,0
h >
IFE <C$$COD-XB$KEY>,<
<($$SET(DTP)>_^D18 H! <$$SET(FLG)>
h <$$SET(IAN)>_^D27 ! <$$SET(DAN)>(_^D18 ! <$$SET(LAHN)>_^D9 ! <$$SET(hREF)>
<$$SET(IFL)>_^D18 ! <$$S(ET(DFL)>
<$$SHET(KNM)>
EXP h0,0,0,0,0
<$$SET(PS0)>_^D18 ! (<$$SET(SZ0)>
H<$$SET(PS1)>_^D18h ! <$$SET(SZ1)>
<$$SET(PS2)>_^(D18 ! <$$SET(SZ2)H>
<$$SET(PS3)h>_^D18 ! <$$SET(SZ3)>
<$$SET(P(S4)>_^D18 ! <$$SEHT(SZ4)>
<$$SEhT(PS5)>_^D18 ! <$$SET(SZ5)>
<$($SET(PS6)>_^D18 !H <$$SET(SZ6)>
h <$$SET(PS7)>^D18 ! <$$SET(SZ7)>
>
IFE <C$$CHOD-XB$SUM>,<
h<$$SET(NOK)>_^D9 ! <$$SET(NOA)>
( EXP 0,0,0
>
>
IFDEF $$ADD hR,<
$$MAPADD ( XABADDR,$$ADDR); (; WILL REFERENCE HTHE BLOCK VIA $$A hDDR
; STO RE COMMON HEADER (FOR ALL XAB TYPES H
$$SET(BID)
h $$SET(RS1)
$$ SET(COD)
$$SET ((NXT)
; S HTORE REST OF XAB hDEPENDING ON IT'S TYPE
IFE <C$$ (COD-XB$DAT>,<
H$$NEWVAL(BLN,XA$S hXD)
$$SET(BL!N)
$$SET(CDT)
$$SET(RDT)
!H$$SET(EDT)
>
!h
IFE <C$$COD-X"B$ALL>,<
$$NEW"(VAL(BLN,XA$SXA) "H
$$SET(BLN)
"h $$SET(RS2)
$$#SET(AID)
$$SET#((BKZ)
>
I#HFE <C$$COD-XB$KEY#h>,<
$$NEWVAL(B$LN,XA$SXK)
$$($SET(BLN)
$$SE$HT(IFL)
$$SET(D$hFL)
$$SET(DTP)%
$$SET(FLG)
%( $$SET(IAN)
$$%HSET(DAN)
$$SET%h(LAN)
$$SET(RE&F)
$$SET(KNM)
$$SET(RX0)
&H$$SET(RX1)
$$S&hET(RX2)
$$SET('RX3)
$$SET(RX4'()
$$SET(RX5)
'H
$$SET(PS0)
'h $$SET(PS1)
$$(SET(PS2)
$$SET(((PS3)
$$SET(PS(H4)
$$SET(PS5)
$$SET(PS6)
)$$SET(PS7)
$)($SET(SZ0)
$$SE)HT(SZ1)
$$SET(S)hZ2)
$$SET(SZ3)*
$$SET(SZ4)
*( $$SET(SZ5)
$$*HSET(SZ6)
$$SET*h(SZ7)
>
I+FE <C$$COD-XB$SUM+(>,<
$$NEWVAL(B+HLN,XA$SXS)
$+h$SET(BLN)
$$SE,T(RS6)
$$SET(N,(OK)
$$SET(NOA),H
$$SET(RS7)
,h $$SET(RS8)
$$-SET(RS9)
>
-(PURGE $$ADDR
>
qN@ .h*x $$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`$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`&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`&
{P 5 q`&4)P 5 q`&4)P 5 q`&4IP 5 q`&4KP 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(3 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 Hx,Q
IIFN TOP$10,<PUSHJ I817,RMS$10##+C$CLOIXSE>
IFN TIxOP$20,<104B8+1000J+C$CLOSE>
C$CLOSE>
y (!L
C=A+HB
B==B+1
B==B+1 {W l8.m
IlXFN TOP$10,<PUSHJ lx17,RMS$10##+C$CONmNECT>
IFNm8 TOP$20,<104B8+10mX00+C$CONNECT>
CONNECT>
)0 qX/C
Iw8FN TOP$10,<PUSHJ wX17,RMS$10##+C$CREwxATE>
IFN xTOP$20,<104B8+100x80+C$CREATE>
$CREATE>
\Y h!n PURGE C$$ B PURGE C$$$XZ |8/m
I|XFN TOP$10,<PUSHJ |x17,RMS$10##+C$DEB}UG>
IFN T}8OP$20,<104B8+1000}X+C$DEBUG>
C$DEBUG>
$[ \x-q
I]FN TOP$10,<PUSHJ ]817,RMS$10##+C$DEL]XETE>
IFN ]xTOP$20,<104B8+100^0+C$DELETE>
$DELETE>
% q qx/
IrFN TOP$10,<PUSHJ r817,RMS$10##+C$DISrXCONNECT>
rxIFN TOP$20,<104B8s+1000+C$DISCONNEC T>
CONNEC% x 81A
IFN TOP$10,<PUSHJ 817,RMS$10##+C$DISXPLAY>
IFNx TOP$20,<104B8+1000+C$DISPLAY>
DISPLAY>
-i @ END .(9 1k
I 8FN TOP$10,<PUSHJ X17,RMS$10##+C$ERA xSE>
IFN T OP$20,<104B8+1000 8+C$ERASE>
C$ERASE>
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 56 h >
IF1,<
$$AB==C$D
( F$$B==<XX$G>B5H ! <XX$F>B11 ! XhX$E
> ;END O F IF1
> ;END O5TP 5R b.
Ib8FN TOP$10,<PUSHJ bX17,RMS$10##+C$FINbxD>
IFN TOcP$20,<104B8+1000+ C$FIND>
+5)WP 5+VP 5M9 x0A
IFN TOP$10,<PUSHJ 817,RMS$10##+C$FLUXSH>
IFN TxOP$20,<104B8+1000+C$FLUSH>
C$FLUSH>
5\WP 5\YP 5|SP 6(:P 6)2 !82
I!XFN TOP$10,<PUSHJ !x17,RMS$10##+C$FRE"E>
IFN TO"8P$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 <] N,y
IN8FN TOP$10,<PUSHJ NX17,RMS$10##+C$GETNx>
IFN TOPO$20,<104B8+1000+C $GET>
0+CN;v ;H+d
T$$PS==;hF$$A_-^D30
T<$$SZ==<F$$A_-^D2<(4> & 77
T$$OF=<H=F$$A & 777777
$A& 777777 DEFINE B< A> DEFINE B<l H!F A$MAX==.hABASE + .ACTR - 1SE + .ACTR - l\y
0k
I
8FN TOP$10,<PUSHJ
X17,RMS$10##+C$MES
xSAGE>
0TOP$IFN104B8+10
MESSAGE>
t]p (("F
IFNB <(hB>,<C$$A==B>
>,<C$$A==B>
t]{ !x
DEFINE C$$A<B>
E u{2 X1
IxFN TOP$10,<PUSHJ 17,RMS$10##+C$NOM8ESSAGE>
IXFN TOP$20,<104B8+x1000+C$NOMESSAGE>
MESSAGE>~ 7 =h+r
I=FN TOP$10,<PUSHJ =H17,RMS$10##+C$OPE>N>
IFN TO>(P$20,<104B8+1000+ C$OPEN>
+] Rx-
ISFN TOP$10,<PUSHJ S817,RMS$10##+C$PUTSX>
IFN TOPSx$20,<104B8+1000+C $PUT>
0+C*2P *zP +P = P [ X0
IxFN TOP$10,<PUSHJ 17,RMS$10##+C$REL8EASE>
IFNX TOP$20,<104B8+10x00+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` (!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 g.C
Ig8FN TOP$10,<PUSHJ gX17,RMS$10##+C$TRUgxNCATE>
IFhN TOP$20,<104B8+1h8000+C$TRUNCATE>
,\RUNCATE>
$$CODE((.ERBAS,.ERCTR,A, B)
.ERCTR,A,. WX-G
IWxFN TOP$10,<PUSHJ X17,RMS$10##+C$UPDX8ATE>
IFN XXTOP$20,<104B8+100Xx0+C$UPDATE>
$UPDATE>
.K &82=
I&XFN TOP$10,<PUSHJ &x17,RMS$10##+C$UTL'INT>
IFN '8TOP$20,<104B8+100'X0+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>>
MOVEI 1,h .BLK1
IFNB <.NLARG>,<IF1,<PRINT(X %MORE THAN 2 ARHGS DETECTED IN Ah MACRO>>
$$A
IFNB <.ERRAD>(,<JUMP 17,.ERRAD>H
IFB <.ERRAD>,<hJUMP 16,.+1>
>
XX$MAX==XX $MAX+1
X==XX5T
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 /H+
SETZM /hA
MOVEI 2,A0
MOVEI 1,1(20()
HRLI 1,A 0H
BLT 1,B-1(2 )
T 1,B-1(2 e|r JX,m
IFB <AJx>,<IF1,<PRINTX %AKRGBLK ADDRESS OMIK8ITED ON CLOSE MACKXRO>>
MOVEI 1, KxA
IFNB <C>,<IFL1,<PRINTX %MORE TL8HAN 2 ARGS DETECTLXED IN CLOSE MACROLx>>
$$CLOSE
M IFNB <B>,<JUMP M817,B>
IFB <B>MX,<JUMP 16,.+1>
16,.+1>
}kR n/
IFB <An8>,<IF1,<PRINTX %AnXRGBLK ADDRESS OMInxITED ON CONNECT MoACRO>>
MOVEI 1,o8 A
IFNB <C>,<oXIF1,<PRINTX %MOREox THAN 2 ARGS DETEpCTED IN CONNECT Mp8ACRO>>
$$CONNECpXT
IFNB <B>,px<JUMP 17,B>
IFqB <B>,<JUMP 16,. +1>
16,. X: xx/_
IFB <Ay>,<IF1,<PRINTX %Ay8RGBLK ADDRESS OMIyXITED ON CREATE MAyxCRO>>
MOVEI 1, zA
IFNB <C>,<Iz8F1,<PRINTX %MORE zXTHAN 2 ARGS DETECzxTED IN CREATE MAC{RO>>
$$CREATE {8
IFNB <B>,<JU{XMP 17,B>
IFB <{xB>,<JUMP 16,.+1>
16,.+1> ,-3 ~0
IFB <A~8>,<IF1,<PRINTX %A~XRGBLK ADDRESS OMI~xITED ON DEBUG MACRO>>
MOVEI 1, 8A
IFNB <C>,<IFX1,<PRINTX %MORE TxHAN 2 ARGS DETECT ED IN DEBUG MACRO 8>>
$$DEBUG
X IFNB <B>,<JUMP x17,B>
IFB <B>,<JUMP 16,.+1>
16,.+1>
-I: ^X.
IFB <A^x>,<IF1,<PRINTX %A_RGBLK ADDRESS OMI_8ITED ON DELETE MA_XCRO>>
MOVEI 1, _xA
IFNB <C>,<I`F1,<PRINTX %MORE `8THAN 2 ARGS DETEC`XTED IN DELETE MAC`xRO>>
$$DELETE a
IFNB <B>,<JUa8MP 17,B>
IFB <aXB>,<JUMP 16,.+1>
16,.+1> N8w sX/7
IFB <Asx>,<IF1,<PRINTX %AtRGBLK ADDRESS OMIt8ITED ON DISCONNECtXT MACRO>>
MOVEItx 1, A
IFNB <Cu>,<IF1,<PRINTX %Mu8ORE THAN 2 ARGS DuXETECTED IN DISCONuxNECT MACRO>>
$$vDISCONNECT
Iv8FNB <B>,<JUMP 17vX,B>
IFB <B>,<vxJUMP 16,.+1>
16,.+1>
N< X1]
IFB <Ax>,<IF1,<PRINTX %ARGBLK ADDRESS OMI8ITED ON DISPLAY MXACRO>>
MOVEI 1,x A
IFNB <C>,<IF1,<PRINTX %MORE8 THAN 2 ARGS DETEXCTED IN DISPLAY MxACRO>>
$$DISPLAY
IFNB <B>,8<JUMP 17,B>
IFXB <B>,<JUMP 16,. +1>
16,. r x2
IFB <A >,<IF1,<PRINTX %A 8RGBLK ADDRESS OMI XITED ON ERASE MAC xRO>>
MOVEI 1, A
IFNB <C>,<IF 81,<PRINTX %MORE T XHAN 2 ARGS DETECT xED IN ERASE MACRO >>
$$ERASE
8 IFNB <B>,<JUMP X17,B>
IFB <B> x,<JUMP 16,.+1>
16,.+1>
.Ht 1h+0
$$ISOL(2B)
IFE <T$$2(SZ-^D18>,<
2h2H IFE T$$PS,<
HRRZ A,T$$OF+3C
T$$SZ==0
>
IFE3H <T$$PS-^D18>,< 3h
HLRZ A,T$$OF4+C
T$$SZ==0 4(
>
>
IF4HE <T$$SZ-^D36>,< 4h
MOVE A,T$$O5F+C
T$$SZ==0 5(
>
IFN T$$SZ5H,<
LDB A,[5h<T$$PS>B5 ! <T$$S6Z>B11 ! <T$$OF+C >]
>
$$OF+C L[ 1(+
[F$$A+B] [F$$A+B] Mi cX.5
IFB <Acx>,<IF1,<PRINTX %AdRGBLK ADDRESS OMId8ITED ON FIND MACRdXO>>
MOVEI 1, Adx
IFNB <C>,<IF1e,<PRINTX %MORE THe8AN 2 ARGS DETECTEeXD IN FIND MACRO>>ex
$$FIND
IFfNB <B>,<JUMP 17,f8B>
IFB <B>,<JfXUMP 16,.+1>
16,.+1>
f\t X0]
IFB <Ax>,<IF1,<PRINTX %A RGBLK ADDRESS OMI 8ITED ON FLUSH MAC XRO>>
MOVEI 1, xA
IFNB <C>,<IF
1,<PRINTX %MORE T
8HAN 2 ARGS DETECT
XED IN FLUSH MACRO
x>>
$$FLUSH
IFNB <B>,<JUMP 817,B>
IFB <B> X,<JUMP 16,.+1>
16,.+1>
Y "x2/
IFB <A#>,<IF1,<PRINTX %A#8RGBLK ADDRESS OMI#XITED ON FREE MACR#xO>>
MOVEI 1, A$
IFNB <C>,<IF1$8,<PRINTX %MORE TH$XAN 2 ARGS DETECTE$xD IN FREE MACRO>>%
$$FREE
IF%8NB <B>,<JUMP 17,%XB>
IFB <B>,<J%xUMP 16,.+1>
16,.+1>
.@ OX-
IFB <AOx>,<IF1,<PRINTX %APRGBLK ADDRESS OMIP8ITED ON GET MACROPX>>
MOVEI 1, A
IFNB <C>,<IF1,Q<PRINTX %MORE THAQ8N 2 ARGS DETECTEDQX IN GET MACRO>>
Qx $$GET
IFNB R<B>,<JUMP 17,B>R8
IFB <B>,<JUMP 16,.+1>
&u ,2o
PUSH,xJ 17,$$RMS##
.-xREQUIRE SYS:RMSIN I
)%BAD REC 6.<p
IFB <A>,<IF1,<PRINTX %A8RGBLK ADDRESS OMIXITED ON MESSAGE MxACRO>>
MOVEI 1, A
IFNB <C>,<8IF1,<PRINTX %MOREX THAN 2 ARGS DETExCTED IN MESSAGE MACRO>>
$$MESSAG8E
IFNB <B>,X<JUMP 17,B>
IFxB <B>,<JUMP 16,. +1>
16,. :}Y9 815
IFB <AX>,<IF1,<PRINTX %AxRGBLK ADDRESS OMIITED ON NOMESSAGE8 MACRO>>
MOVEI X1, A
IFNB <C>x,<IF1,<PRINTX %MORE THAN 2 ARGS DE8TECTED IN NOMESSAXGE MACRO>>
$$NOxMESSAGE
IFNB <B>,<JUMP 17,B8>
IFB <B>,<JUMXP 16,.+1>
16,.+1>
?[@ >h,C
IFB <A?>,<IF1,<PRINTX %AExRGBLK ADDRESS OMIFITED ON OPEN MACRF8O>>
MOVEI 1, AFX
IFNB <C>,<IF1Fx,<PRINTX %MORE THGAN 2 ARGS DETECTEG8D IN OPEN MACRO>>GX
$$OPEN
IFGxNB <B>,<JUMP 17,HB>
IFB <B>,<JH8UMP 16,.+1>
16,.+1>
C.@ T8-9
IFB <ATX>,<IF1,<PRINTX %ATxRGBLK ADDRESS OMIUITED ON PUT MACROU8>>
MOVEI 1, A
IFNB <C>,<IF1,Ux<PRINTX %MORE THAVN 2 ARGS DETECTEDV8 IN PUT MACRO>>
VX $$PUT
IFNB Vx<B>,<JUMP 17,B>W
IFB <B>,<JUMP 16,.+1>
J-I0 803
IFB <AX>,<IF1,<PRINTX %AxRGBLK ADDRESS OMIITED ON RELEASE M8ACRO>>
MOVEI 1,X A
IFNB <C>,<xIF1,<PRINTX %MORE THAN 2 ARGS DETE8CTED IN RELEASE MXACRO>>
$$RELEASxE
IFNB <B>,<JUMP 17,B>
IF8B <B>,<JUMP 16,. +1>
16,. J.M9 + POPJ 17, Jn0 ,2o
PUSH,xJ 17,$$RMS##
.-xREQUIRE SYS:RMSIN I
)%BAD REC O%|R 6H+X
$$ISOL(6hB)
IFE <T$$7SZ-^D18>,<
7H7( IFE T$$PS,<
HRRM A,T$$OF+7hC
T$$SZ==0
>
IFE8( <T$$PS-^D18>,< 8H
HRLM A,T$$OF8h+C
T$$SZ==0 9
>
>
IF9(E <T$$SZ-^D36>,< 9H
MOVEM A,T$$9hOF+C
T$$SZ==0: ;INDIC INST GEN:(
>
IFN T$$SZ,:H<
DPB A,[<:hT$$PS>B5 ! <T$$SZ;>B11 ! <T$$OF+C> ]
>
$$OF+C> S[Q hx._
IFB <Ai>,<IF1,<PRINTX %Ai8RGBLK ADDRESS OMIiXITED ON TRUNCATE ixMACRO>>
MOVEI 1j, A
IFNB <C>,j8<IF1,<PRINTX %MORjXE THAN 2 ARGS DETjxECTED IN TRUNCATEk MACRO>>
$$TRUNk8CATE
IFNB <kXB>,<JUMP 17,B>
kx IFB <B>,<JUMP 1 6,.+1>
1 WH: Y8-c
IFB <AYX>,<IF1,<PRINTX %AYxRGBLK ADDRESS OMIZITED ON UPDATE MAZ8CRO>>
MOVEI 1, ZXA
IFNB <C>,<IZxF1,<PRINTX %MORE [THAN 2 ARGS DETEC[8TED IN UPDATE MAC[XRO>>
$$UPDATE [x
IFNB <B>,<JU\MP 17,B>
IFB <\8B>,<JUMP 16,.+1>
16,.+1> W%J7 (2Y
IFB <A(8>,<IF1,<PRINTX %A(XRGBLK ADDRESS OMI(xITED ON UTLINT MA)CRO>>
MOVEI 1, )8A
IFNB <C>,<I)XF1,<PRINTX %MORE )xTHAN 2 ARGS DETEC*TED IN UTLINT MAC*8RO>>
$$UTLINT *X
IFNB <B>,<JU*xMP 17,B>
IFB <+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 0 D(9P # D=P O,(9P O,=P >}{woP