File RFSET.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

?<2CBEHLBH8CH
"B"B"B"B"BBBZBA
^A[^A2HJNH2^A[^A1BJ          	AY2XAJ^A[^A19??8D92KBB
^E"2PJBR


^DEVICE NAME =  2DBN
^FILE NAME =  2BFBO
^EXTENSION = . 2EBBZ
^INDEX LENGTH IN BLOCKS =AH"2KENH2FJD%IA8A8BZ^^TOO MANY: MAXIMUM IS 4! XAAOBZ
^RECORD LENGTH IN WORDS =AH"2KENH2IJD%IB"B"B\^^TOO MANY: MAXIMUM IS 256! XAA8BZ
^LENGTH OF KEY IN WORDS =AH"2KENH2JJC%ICKCKBZ^^TOO MANY: MAXIMUM IS 3! XAB"BZ
^FILE LENGTH IN BLOCKS = AH"2KENH6<J.8%IC5C5B\^^TOO MANY: MAXIMUM IS 3000 XACKBL
^CORRECT?  ]AECBK NEW FILE? ]AF;BB

Z6%ID*D*BT
^FILE SET-UP ERROR "2KC9HEUD&AJALQFHA"XAECBH
^FILE "2BFBA.2EBBP" NOW EXISTS ON 2DBN
^FINISHED?   ]A+BL
^END OF JOBD^^DEVICE NOT IN CURRENT SYSTEM



^^NO ROOM FOR FILE ON DEVICE  



^^WRITE ERROR ON OUTPUT DEVICE



^^CANNOT CLOSE FILE CORRECTLY 



^^NO ROOM FOR INDEX ON DIRECT.



^^ERROR WHILE WRITING A.I.W.  



2H2GHB2H2BGJD2H2BG:DG002U22F2XFBS
^1ST UNUSED BLOCK=AH"2KFNH2YBR
^1ST UNUSED WORD=AH"2KFNH2ZHH6<BNH2]GA02UXAECHORITY TO DELETE RECORD?]AB49??3
BYA,T%IHXGRO5
XAB4YAS%IHGJHCJH3S%IH,H0XAH0HIXFNH3
95%THANH5:HXINH5!IINH5"H5NH5XAIF[P5"[H5!3IFFA%IIUIO5$XAIWOH5$27N3WA	AM-3W	AP-3WXAK)O5O5[H5HH%II0I<XAI<HH5![H5NHHA[H5NHA27N3WAZ 2LJZ[J$Z!J%Z"2AN!2I^ R R!R"*I2IHGB&ZY2B$)"HL*].J&2B.	2B2F?;G7";2LK?[52IHGC>[32B$)"HL+7/&2K	=I2B/<$ BG2B>G??H^H2A!I $TO6J$R^D&RJN
H(LOPR*MVSEH^!R8[3PI!F!V^RMYYBDBG<!I?8;0Z0&HXHQZM>QY
;HRXPPRLPXBHBB79D8FXCHBB8XDHBB98BXEHBB:XFHXHCXVHXHDXWH X]H!X^H"X
.5HEJ6?H%$J;HEZ42AD?2G8??/*VI5<(+J"UVHO
$M$M.S%-K.K/K2O.VVO1E$BGBGBGBGBGBGBGBGF
F$F1SQBGG+YQ$.^6^6XH S0F?GUG!G	BGBGBGBGBGBGBGPKPJPKPJPKPKPKPKXI["VBGBGBGBGBG2LXQHEJ?*G.
LRH/XSX/PRHEJ$?*Q. LRH0XTX0PRHEJ%?*[.!LRXUPR."B0B,B0B0?8? ?P>QHEK!>(+KK"XIK"XKKXJKXL;&XUHXZ>HX[AHX[CHX[FLI<QLJ\K=Q\LPU*>.&HVZ>HV[CHW[AHW[F; HSXIHIXK; HTXJHJXLHU8!XU*>?F
"HV[1HD9H8JXD;$HD? -!HD8!9A<(< LS\S-=H">(+<PY(2%!%- NOTZBLIX,2A%0H-<(*P	?H-X,%1H,%3PU*S.H.<(*\	?H.X,%1H,%3PU*B.HCXQHSXR-<HVZ*HQ9H8JK<\SPSHR\SPS*
2THXZ7HCK;Z8$S;HXHQ
:-=H ?H+P;H H!H">(<X-H]X H^X!H
X"*
HDXQHTXR-<%*HW[X8ALT\TLTX"X!X +B%*HW[$; +ZHW[)+Z%6X,H,%3%4,CY>(-=%4,CN> ++*
BM2BXX -OIB;H,<(.JN?HJLJMH,X,.AB? >QHF8!XUHPXIHQHX%7HE9H<X-=;AHIXR-=; HSXIHT8!XUHV*W;AN(X-;AH-X,L,8!\,:DX,L-8 H,\-:DX,N(X-L-8 H,\-R(.(X,%4,^> +OKXX,;UKB[B/B%4,
> /BKZ%3KY+JBIBJBM%*HU8!XU%.-=%;0Y+"0^[0%4I0C>(/?;K0<D/!8!XUHUK8XI/1AZI?XNLN<(+	$6"YHG> *ZJ]Z ;&Z"J
Z!2A;*NJN!N ^!:DZ%5J %5J!R"*M.J^Z *F(+";HD9H8J<(+Z[-;&K-? -!HG>(*>K	[+; K-HS[,HX[NHV[P+KX&X	X(; K-HS[+K([,HV[NHX[PK-8![-O+
,2A%5K+%5K,S-+N.$HEK)>(.$HEK*?.$HSX(X	X&.$"(?5?2%%XG%(-=%+&+/;HSHTXSPU+7/5[7/6,4;[UH =*HSU	?;H&X)H	X*H(X+H&=*VSU%+&*X%+)KR[T%;;PKPX,KSX-:PL-8D\-: H-X-P,* ;H&8!H <(*2=+A+F;H	81H!<(*;<P+A+F;H(81H"<X+F;AXG%(XGP%ST*Z;KU8H<P.%+.?:?=?\%;HV[]HW[
%;LI\JPU+\/VHF8!XUXSH/XT	>HSX/-=HF8!XUH0XTXS	>HSX0-=*?JF9D:8CK5N5;[OH=*ISO%+;H&=*PSO%+&;KK[N;%;H%8H<P*\;XG%(;X,KLXIKLXJKJX-LI8HH,\J8HX,P-*$SN*S;KO8H<P."5.;KJX,KMX-H%8!+D;0H-X-L-8 KO\-:D[OP,*>.5?:?\
%;K*[-K+X(X	X&2AHH$H%>(<X<H/PX X!X"%,H"K,
-%5O-+Y;JB0:XG%(%*;AXG%$XGH]X H^X!H
X"-=A==*NZI; NI^IR;.%%%*HEK??H/0; HSXI; HTXJHU<(;A8!XUHEK?K>Z
QXV[QZWP&WNHVZ*HW[C;UHU? +NLIX,LIX-LIX.H.9F8BCW8B9FH,X,H.CW8B9FH-X-H,\JH-\J;UHU<(-=XU**LIX,PULIX-X.;&XU+CO%/-=HV[^HW["LIX,%0H-X,%1H,\JH.X,%1H,\JPU+^-=T;K:[9%8S9+5/1?<WF?0G8. ?N;H&H	H(>(<X*KNZ.R.;HXXVHXXWJ]XSJ[XTJ\XU%..M1?VB ;X X!X"HE>(.^XX$X%.^;HWZ3; HTXI
;HS\IPU*1.*[DKD%8%4SDBJ> .8	?Q].8;H,CO8BX-H,CPX./E??HV[SHD9H8J8!K>=H-!>(+ LSX/-=LSX0-=HD9H8J8!9A> +-H"X/-=H"X0-=HV[8; HSXIHT8!XULI%3PU+8-=BQ1HUKO? -!HV[QHW[RHS[SHT[THU[U%:;UKPHE>(*2; KSXIKQXVKU8!XU; KMXJ%/; KMXIKU8!XU%9KRXVKTXSKLXD8AXG%$XG-=KSXSKQXVKLXD%$
G%(%&%-HXXVKRXWKU8!XUKNHUXI; KTXJ%/-=X1;?5?MHF> + %6X"X!X H"%3-=HC9H8JXSHD9H8JXT;&HT? -!	/Y^-=Z%<+&S7<H/	8+2V0V<?9.V WZ=6=7%&%	VKHE9H>X*M%)%&Q
/?%%-=I
> *XH?H9 X H X!H X"%,%&-=HVZ
HWZ"LIZ>LJZ?".< **PU*
X X!X"-=J>?H*8J?=H..8!J>..;J?=H*5;A..HV[EHW[HY^LIX,%2PU+EY^-=HV[RHW[>QLIX,LIX-H,C28B9F<QH-C28B9J=AX.H,C3\JH-C3\JH.\J;EHU=-=XU+R<C?X:&JK8-H$&*;+)UKUFIZ> BIHV[LHW[MHS[NHT[OHU[P%:H ?*R8AY^%+ %&%-KLZ HXZ$; KNXI; KGXJKJXULIX,%0H-X,%1H,\JH.X,%1H,\JPU* 	IHXXVHEK
> *?KP	?KMXWKOXT/>KO	?2ALI%3PU+A-<AZ\?;?HHF8!XUHS%3PU+T-=1B/Y[1H[2HA[3K/XK0XA<B;K2XK3XA0Z0&K1/Y,AY&[&^AD6?/=TD,%Y?:$P=\WI1%%[1Y^[28 K,XIK-[0%6X,%4,B0?*R*
%4,B9? +&K2> S1H,\IS0*J*;%4,B.>(*/%4,B->(*4%4,BM>(*;+&HS>(+&S2*J%4TC> +&Q^*JK2>(+JHS8!K1= +&?+JK.\IS1S0*>K-8!K0<(+*8!XU; K,XM%9;$HT= +
?+\H!H > +&;I^>(.%+ .;K/%3*A%%.1?5B0BG;O3[=S3O38!O=S3/3L\2;KXX,KYX-KZX.I^>(*NY^L-\.%5-%5.;L-[[%4][B >(*6%4][C\>(*/%4][B0>(*9%4][B*>(*<%4][B$>(*?*LJW\,%5,%5-*R\]B]T\]B\L\]G]O\]G]TL,\.PG+*RL,\.XG+;$K\[\/\L-\.XG+*<L-\.XG.;AEAZ;O\[)S\O\[*L,K(> /)/*= ;HG>(+2%5
JW\,%5,%5.H,K=?/++T?O&	[Z;HUZ J^X(X	X&2A%&X X!X"%)%&XX$X%LMB
X+X*X);AXG%(XGR *I.JO;H,B4Z5I^9H>X*/J58B\TQ^.!LTJ5\TPT*-?%*HT8!XUXGY^HV[THSXT; HSXI2AHG>(%6X,%4,BM> +OX,PGHG> +TH,%3HE9H<X+\;%2+
;H,\IPU+CY^XG-=HD9H8J8!K?=H-!<(+2;X"< ; X!;X!< ; X -<A4>AZTZ.?;>?CB;"-K?XIK>XUHX%7HQ9H8JK=%3HP"4K<XIK;XUHX%7%6X,H,%3"-%4,CY> /:-=
OBJECT ERROR AT 
GO ?  ;K9%3K8%3.-X,X-K7XUH,9DH-8D8FX-8HX,H-C6K=%3;PU*9.4;OIXISIOIXJSIOIXU%/SI/I%;0!+W0&0Y+*0^[,%4!,C>(/:%4!,O> +*%6;/VCZ0J0%-8D"+J0"+/-G?<BJBM"Y?9 (B0?/ 
HFK?? -!HFK>ZGBG"Q"S"W"Y"%%]%($$%%-=%+ -=%*%&-=	=K<XIK;XUHX%72C/:
READY;2IO92A<(*QX[H[C89H8JXYH[C78B9JXZH[C6K5X[K4XM;&[WK3X(X	X&%%%&X X!X"%)%&XX$X%LMX+X*X);AXG%(XGSW+C-=HDMH$QNHYHH$OLHYNPZHH$PMH$QIAIPZXX/$[??A$XAFG<C8>6>?:"! -.H?8K?Z[I\Z]2C&8<H.T;$X"/>;H!Y[H"Y\HE>(;X%"-=HXXVHXXWXYXZX[X\2AHS
=HSZHD9H8J8!< <H+F8A> -!+Q	<.
0]H[X"X!X -<;O=
;	<,4.A+I; X"ZAZB/>HXXV	:,%;X%";HY>(-<+XHXXV	:+0+!HF<(/98!8A<(/88A>(*$-!(&)W,5*.. 
-BHPZHHXHQXVHXXW% 	/?:HVZMLI[69AHIXRHXXV2A2J	?H:
>K0ZK1Z$2A2J	=J+	:J%> *<K0Z5K1Z6K<Z72A2J	=A+	:J7*=J%
;K:[EJ$2A2J	=B+):J$
6S6KE
6KPXV2I; O9O82A[W% $L?9HXXV	7+
% $J ?>2A2J	=I-<;-!; X 8 X!8 X"+")WOLD	2$<B$B?;HPZIHXHQXVHXXW% 	/?<HVZNLI[V;AHIXRHXXV2A2J	?H;OV2A2J	>J/=;J > *0K<Z-OV2A2J	>A/=;K;Z7OV2A2J	>B/:;EKV[M2IO92A
M2I; O8O7[N2AJ=XW;AKV[M% ?92A2J	62C%%/5;% O)/?=;OWXRXQSW-<;% )/O?=;H"<(/W[WX"/W? S-	"=&OLD>6	)	0<		B?;HQ>(.HEJ(<(*%J)? *YHVB+> *VHSB,8BJ*?H-!J->(*HWB+> *HTB,8BJ*?H-!;.;AZ-*L?FY?N8?;N.[JK^KJ[ZR.N.[\R.HS[C	]*>..2 %NC3$AB%+K+IX3%N$EC%+[+Y3%N$HC%+[+[XX)WNYXNP
K2	6++AO++2$MGAZ)OHYHH$PIH$QNH[JDIH$Q%,W,WHH$OIANHZHH$SCHIHZIH$N%,0,QX/*2Z$OAOH[2[$PAHH$IDNH,2$OB2$AA[A2$CA\AAZ)OYX,Q2$ABHBIH,5NH,?2$MGHP$AIH$NNPA[HANX$EHX%N%.W-QHDMH$QNXYNH\HH$SCHBIH$BNH,?3%NYC%-=-=OA\3,?A\A%/*/*HXYIANX$EHH\KXYX-!2Y$HCHX%NJX$ELH$QNXY2A\$
A2[$DAAZ$TAZ)YXNX%NNP$KX-Q2$ABHBIH. NH.*2$MGOY2$AA[B9A/]AZ$T38%NC%0E/BX/	3;;%NC%/K/OX/.HBKHYHAUKHZ	/ZYOHYX0EHH$NJ%0E0EO/]OA\X.7(0EYH%XZ)OHY98C/6A3%NC%0C0EHCKH/6OZX/4OZHH$BIH$NIHZNHA\Z$T(0Y$RHH$RJC%0]0]H Z)2$R0;AOH[98A09AHCJH$RI%NNH0:HDJH$QJH[%08/*3%1I1AX/
HH$QKH09KH[X0/2A\$CA2[$DAHH$RNH16NH1:HCJH$RI$ENH15HDMH$QJALH$QI8ANH18HCJH$RI$HNH1928A2OHYAZ)        0-   /  /   ;H B%.WR^I!R8GMEFGMASTMACFGMASTA;2LK+[)2A2J	?H2A2J	>KO=ZXO<ZYK,ZZ2A2J	>A+Y;K;Z$JY2A2J	>C+[J$Z0J<8![-2C&Z"8+]R0S-*,;JY2A2J	>D2B+
;K;[FJY2A2J	>B+
;2IO:[.;WK.? +!K.O98A2A2J	8;+";A+";E+";U+";G+";WX"X!X 2A2J	>I.2B4.0000-  0.00000-<OLD2B2A2B?

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search