File DHRKCG.SV (save files (Executable program)

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

?>2CBFH]R<RR DPHSSC4OPTLTEHDRHE >. URCX$RGD
D[ 2D:HHD,=CLKD8  L9$H[ XR0H>((H4:X,9CP9X,:C <K82D?\[D:< LWHSHS(XL)$HHX<8LB0H;$?D,BL(DHHLA8E(L/;< DU\[L0HBDTDI[,QWH<H2<:VL/L*TP RTAH><(LXHS/,XL1H[HQ<=DXP2:;<DC8[S<CL^TCH<<(C=L8 PA(8L8 JLJP	OL^H3 </,C2=K,1L0P	HS,^HL,L<	L+ (D <K[,
D/<
P/L
/H<BD H
 ???HH=L<AHX!]HHPSDPFPJPH
\?>X*HO8?P0L
4=LA0
Z(-H/8ZLN0.D(X*LO8;H(L*DRH-.4*LO8:H *HO\;L9 KH	\97RD.HL,O.<L;XK
(;8N&??BASICA03FD>-BCOMN&L!X-M;]<M:\"M<8D?PM:H>(-	,$E4G:S?9?-NP?>?;HXL?
ALA 2B%=BHHM<B,7HI07D<?QIOHSBD?!8>"<>?0>$0ACS?;?8B*GAG7FHG0LC>6C90FF)G*GC?J;FKFRB)"HLBC?<LDLB(LA?/>&G9B	MOFOA?B&>ACQE$B PE3?1? FPBP?X?&?^?B>G?42CLX-X 2LI?[%K%Z!"PR9I><X*	J$ZPJCJ.PB	DAFCHII?B3CFB+CTC!DK^2C^2K. P/P/P/P/P/P/:2B%=BHL.<B./;X)"PX!2B%=FA)*&J!2C%
Z!J![%)9P.
"PX!2B%=AA</*&H!2C/K:RH 9HJ];J!]::Q2AE92I8H?X-:-89P+UGNZ 2CN 2K/K<[42AM92I8J>X/)2B%=[*&/)2B%=AIHV*&/<:AX,H-< *&%7U<<(-6X*%7<(*QH*8D9XX*I5XOI4X"LO8!H*>(*!P"*UHO?-6I3*RH"I2%1%7U<%0<(L"<(-/8$>PI.I.[AH!X	L!H,> +Z%78H=P-/8DA-[B\[C2B%=AHS-,I4X$H$%08 KB9XKA?\!\8
KC> +XL"A+KB\!P$+GL	-*EPL"9F8F8FA)I(/\FYA)<(-	X*H*I&X"H*I%X!H*I$X(L!/$&Y/S&D&E4;3;4;-T T"T P4H4I9"R*KA*PH%8!M%1U<H&8!%1U<-/J%< *)X%X&H-%0<(-"X)%7X$<P8X8JD(> *PL(?.RRR:A[7H)A+9F8DK78!HG<(*88!HGXG;X0M!84=X+888X+I XO.RJELO>(+ : HOXOI
X&H$X	H	%^8!LO> +]P	P&+L*LO<(+!8!X&SA/AH&8A*LOH%X%P++BX%M]< *)/AKEM 8!HOXO/*J9I\[52B$)"HLA-[/0"H"LDPDQ	>HIJJCLXL\X.%Z-Y%XX"I XOH-9J8JAW8!XL(AV> -6LO>(+;&%ULOH"X"P+*ZH.> *3M]< -TH$%^> H&>(-6H,P.-THOX!I
%UM 8!HOIS?-RL!\O: H!X!;$HOXOH!91H*> *=I
X!H*XOH$%^\OP$P!+NMQ\O8A%U\OHO]P: M!]!L(H,\(%O-NLO9!X!HH&:H<(8PH!:PH!8!H&>8+<H!X&;$HOX*MMX,H"X%H!8!* %Z*7:A%7X!%L* ;&M 3\NH&8!\NL(AV<(*28!MM>(*W";%OMP9!HN>X*^;&M MP]PL(AV<(-6%ZMPX$H!8!\$P$P$9PH!L$<0-K\$";IJD(\(<HI-%OU<-6J3I XOM!X	LO>(+R;&%ULO> +OIIM 3U!P+
*<P	+.;LO<(+!X"HO[3P	<H.;LO> +CLOH"
3;$+JI4XH%0I<>X\!%7> IV90D(\(P+%-HN&HOXM;$HMXNLO\MHOIG> +9/3CF(ABCDEM&MLP8ABDDQ)E!O
VV
MFTTXO+WDP+PXOMRO1X*PVPJUG*E1U*U.G/L(LVLLACFGHOB0B B?G88GP 0HO???0?1???2A<?4?<?;?=>GZ ^]&]N]S]JZKY"YYI?	?/>/=Y.2T< %>IEZI<BK2XAJ(XBK1XCK0XDK3XEIYKO<
;; I*XH\HQK*[Y//=$.$,[E$,[!$Y8*8D8F8 Y$	:$,[PYKIHYLX/IKI,YM; $,[UH6IK$$H8$$$$^*-+DP/; ]MQKQL*3H/>(*T$,[3$$^+K>H/9$,\D$$^+R+%$X$Y8+R9D8FY0I0I$?+R; 
8$,\H$$^+%/7$X$YH+%/6,EY7Y6SDP +,DDF]"EKLDVAE EQWYP3Y1$Z/?Y2; 
>$,\T$$^*F*U$X$YH*F> ; Y4; 
=$,\L$$^*U*4$X$YH*U9D8FY3$Y8*UI3Y3I4> *,I0> H4H39 I3>X*U; 
<$,\[K 
;$$^*4+KK\
;IGYK; I)XH$.$Z*4\HQK+C; Y/$,\^$$^+K/:YKH/8!YLIK$]+^IK9D$"QL>H/9QK+U$UHR<>(S!/!$T<H/	0B2A2:	0/	5YTIT7&/1%>H\OFBTVA]$]%]C%$FN> <BO?>(*II0*X;AI$>(*X$
L<(*XY
I
I$?H*YI$8 Y
O>>($
I4MI
Y
I
M> HNIFYLIL8!YNI
C)> H4H3YKO=>($
I3AKY(I(8 YKILQK*8YX$
YWI
L> +OI	9 IW>P+MIX8!IWHN>X+OI	YW	<$[IHY $\[U<BY"$VYKIK\I9IKI"<X8AY"QQ+W2AI5>(/;/: A87!<HS*/*7"//%><(%)X -OM9:%-HHI%]$]%]"QOIO$]*IO19DI
Y
O?>($
I10I
Y
O?>($
I2YUO?> *I
8H>P*I&IU>X*IU8 YU$ $*/; Y5$!Q />$F?H/=/<J,Y9Y5IHY IHY!Y-$ D>H+AY-	;+PQ!*7+OIS4<(+LY.Q-	;>H; Y5<HY-Q *7Y5Y-Y.	:I5>(+XQ9*2$F9D?H*/I >(/<Y5$FO> 	9/8$T<H/%2AS2+/K1[2	72A/%?0??HU$6/-JE	FXT(NEQGQGS]8A[<K?[=IT298[;H1S;*II+[;I.>(*)N>(*-IV58!IZ> *); I-<(*%IJ>(S;O
< IC*,ICO;
;S;ICW;>H
;$S$F9F?H+.N>(+-$.$.K<> *=; $,[XNK>YRMR[D; $,<B; $,[A$.JYRRN[9RI:[<K:XHIG[;K9=+39D[9S=>H$.K<S<S<[; $,<BLH$-S;+UMRIH>(%;+0%;RR;A$+.9D[9S<S<PH+&AQK??:Z%Z+Z2Z<HRO>(.D; Y$.D;JT$$JU$$$$.LBMBJ8F8FZLIHZ(JL3H6$$JL8F8DZLR(*\$X.V>($.N(R(ZV;NVA<(+D=8P8A8J8J8J$$NVAD<
+DKK=KJ$XRV*.;.(H7$$/F!
 [%OL[$SLHRO> +WK%/LSL2IHP
?HQ
>HR
=K$
<K%2J/<$G$U>D/&H<YS; IK5ILYVI8> /+I<YT/+VE ERRKBRQPI.> *JI8!I">(.; \%ITM> HNIFYLIL8 [L; Y$!IY$\Z&IL[1IU[+K1CLY[K+5YZ$VY]<BLI2AY^HIY\I^8!I]>(*:Q+HI.>(I!R$%D?0S1+S+8IL[1QQ*^L%>(Y-T%.%>$%*:;AK;K<K=[;8DK;K<K=[<8DK;K<K=[=K=/M;AK7K89F[7K88JK7[8K8/
K7[9K8[:/+K9[7K:[8/1J\.8J\.8Q/5
;0Z0Y*C0^BVJW2I
?W>O?2A$G$W80&0!*Q0".XA?BZJXZ+JRX8!J*>(.XJRX8!J)>(.X.+CYCN1I,ZN> R+.+$T*<$G$Y8K(
=+$HRC	XRK(
<HR1YKHRM> +P;AX/IKI,YK; ]K+]IK8 YLYKIKI,YM; ]MQKP/QL+THQ8J39D8F8 Y$R3R3.3;?8$T<H/)0B:IT29H2A2:/6<B5PY"Y/:RAIM)B
H>H=; Y8Y.IW$)IXYYIUYKIUAAYLI
N$(ITH>Y<IK5IL$*0A
?Y$\Z,I8>(*!	>*\IQ8!IY<(*<8!Y=I=8!IQYQ<BIT?*4\IQ=*0*<I9LI<X8AQ=*5Y2AIQ>(+B	>*!R.7!++QK8INIYYY7%H<< +
IY>(+5Y8I<7&IK5IL7I79HI62$0A,	=IT?H8A8A[	I $%?0R+B[<S<+,$G$ 80Y%>0Z+Y	=Y8I79HI62$,M+YSY!$[5N3H69!K5>P*VNL9H8JH68 K5>X*VK53RR.IH[6[7$Y8.XK7S6<H*&8D8F*[RX.XIT29H[6K6I*[5;AI(O5
5>P.($

?$

>9K5K8[5W5O5I%>P.(
5K68 [6K4H1S6+H[6; W6>H
6$.$,\?IT29HH6$$; $,]B$FM>(+!$W/=	<.(7%<H%>YSIS/7$	;/*YVIV7/.%>]UD$-$	I%XFO8O7<B.2ALJ<BQP.ZPIGYP; I)XJJP.Z
$T*]J
$G$]<H.P0&0!*Z0":.P$T.
$,\?IT29HZJH6$$; $,\%	?JI,Z^ZIHZPJ$]>H.
RRP*6$.$,\?; $,\-%>8!IXYQ; IWXII/>(+SIGYP; I)XJI
LIEZEJE/D$G$Y8$F9
>K1YKK0YLMKYMMM:O>]MQKQL+$G$^<B/=?6W2SDSKSTSXG+G0U1U+U$E4$EBE1X$T.$.$,[:IHZ%Z&Z	J&H1Z&J&I+Z)J	$]*!$.$XJ	H6$$$X$X;&Z(N)$-R)R(*\R	R%*J.2ZI[!S */S!*/J$(;V$+$	*7$&=+I?> +I$+HNJ$($	+C$&H<>(.*;$%C:$.$.$,Y<$W.*S /SS!/S%>;KY$G$^<B+Z$,Z[IZ$-; $,Z]I[$-; $,Z
I\$-; $,Z!I]$-; $,ZI^$-/"RECALIBRATE ERROR DISCONNECT!PC:ST:CM:IA:DA:CA:WC:FW:AS:WA:AD:DG:DB:READ STATUSWRITE STATUSRECALIBRATE STATUSDISK DATA ERRORRK8E DATA RELIABILITYEXERCISE DISKNON-RECOVERABLE AMOUNT OF EXTENDED R/W MEMORY(0-7)?ACCEPT MODE?DSK HARD 
OFT COMPFIELD?TRACK?EXTRA SECTORS?BLOCK LENGTH?DATA?ARE YOU SURE? DISCONNECTED!SYSTEM SHUT DOWN, NO DISKS TO RUN!DISK  PASS COMPLETE!I5<HI6[:>H$
$ ]O+/<^N8HLG\K;I"AO8!I$> *LI%8!I> R.;&Y=%U?(HJY\K:Y ;&Y
I\Y^IK*$I
9H>XIRHJI\Y^IL$YIHY]Y!I!AO\3I^9DAHL3\3>X8AH:\4L4IEY(L3$V
7+5I!H=Y!Q]*(Q
*\; Y$;&Y
I\Y^+PI
9H>XIRHJI\Y^IHY]Y!I^9DAHY%>X8AY(I!AOI%$V
7+5I$>(IKIK$X>H+5I!H?Y!Q]+SY$Q
+II\HIY\Q *V$
$ ^R/9 29.;IR[ [YSY*ES *E.$E$Y8$DY\$E$^<B$E$Y8$DY]I]AAID$(I]AH$*$	*^$+$$> * I\AAID$(I\AH$*$	*+$+$$> *-*U	?P9+SH8X9	3	4
>	?$E$T>H+BHRAE>(+G
=; Y=+S$2$/G0$/8M$D>>(+S$E$
<B;A$+YYYZ/XB 7	/Y$E$^<B+\;IVY[;X$-8H$-;HM$-Q[+*;HJ$-Y)I)/ "$DISK929%IEY H8Y
[9	?H:9H$S$F$+Q
*F[9H8Y
	?H:9H$G*X*[*,Q
*Q*O; Y
Q *G[9H8Y
	?H:9H$G*">H*,Q
*"$
$ "A+.$2$/G0$2$/50[8X8O>[9$2$/!5K8K<[:K8K4$^K6$^0Y+F0^C7HM[;K;$^K;8!K59>(;0
:>XP8O=$^S8S9*<H8>(*1H88!X8[9%.0K9=K<[8K9=9DX:S98O8> /%+&B0CYB?A?M1041H%;XY H8Y

?	>H:9H$S$F$+Q
*F
?H8Y
	>H:9H$G*Z*]I6[T+RQ
*Q*OH:9HKW[VOVY]KVH>[VIL$YOVH:\4I]\3L4IEY(L3$V%T+R$ZOVY(I]$V%T+RIL$X>H+RH:9H$S$FQ *Z
?H8Y
	>H:9H$G+H>H*WQ
+H$
$ $A+.369D$(I(HM$(;ZY$$$	++;XY$$IE> SXSX/XIF> +(/XY-I-8!I> S///%9$E$Y8$DCVY\; YY2TI\Y\I\AX:$E$^<B$E$Y8$DY]$E$^<B$E$Y8$DY^$E$^<BI^$Y;I\AGIF>X; Y
I\AGIM> *6I\Y(I]$T	T+R+QI\AA\4I\Y(I]\3I
>($ZI]$V	T+RI
> +QI(L>(+OI^$W+Q+RI^$X$
$ &+;*?G<(IR[4[30AS3+]S4+]0B/WHRN> 0Y++0Z0A,SW$	>H/W$E$^<B+/Y+I+Y*I+7$/5$E$^<B+<$E$Y8$D9DAX:;$YZYYIK$YH:\4\3IMY($V(8*6ICH:$($*$$> *%$ZH:\4IMY($V(88;VHJYI6Z8I&$">H*6;A$+HOY($V(8*6IK$X$
$ (T$E$^<B*$E$U>D.=[ZOB[[SBHRC?> +MKZ/BSB2IHP
>HQ
=HR
<K[
;KZ2J/;;%XIRZ=[B$	>H+*SB+"R=+">HS\/\7%+3$E$^<B+/Y&I&/,PPING-USKBRQPD%WNY;$D?*O$D8F?H*MK.$^N//N[0R;AJ[1$2$2NAAK7Z[<BZ^$/<B$2$//(; J$0N9D<P*4Z$//*J?*1I"$1I$0>HZJ9D<P+AZ$//,I$$1I%$0>HZK3[6K4XHIN[5J=+(9DZK6S6S6[R$/<BLH$0S5+H$D8FN>(+">X+ K1//K0//$E$^<B	2/0*49D
S6S6PH+UBG,8-W/.A%K8697D7P7^7&707:8B;X$-HJ$-Y	I	Y,I,.;IVY[;X$-8H$-;HN$-Q[*T;HJ$-Y(I(.J; H7XHISY2\HQ2*.]Y3; H7XHITY2I3\HI38 \HQ2*.IB\H.	[V$DJ> $\$DK>(+R;A$+I(CU$(;V$+$[8I(HM$($[8I(CUY(;A$+/V=?$DI>(/WSW$$$.;$);Z$-$,$&$%$2;A$+IT/W[W8DH:$(I(IDI.$(KW$*$	+6/+7"
9$E$^<B+<Z,; Y9NY:RI(B-I.H:$(H7$)J,$*$[*\;XY$$IE> *^I5R]:.I4*ZI&I>(**;I(AGIF>X**Y9*XI6*Z=AYH7Y+I(AA8!M+>(*;I(AA+Q+M+8!I)>(+CI)+;VISY2Q+M+8!I> +$I8 YQ2+FQ+IB8!M+>(+YIB+;XYI9> ..; Y9I6]:;XYM+Y,R...PC:GD:CR:ST:DB:CM:DA:CA:AD:DT:;IVY[;X$-8H$-8H$-Q[*I;HJ$-Y%IV
[;Z$-8H$-Q[*U;HJ$-AOY$.Y[I[8H8JAAO?$^I[AAO?$^.^;J2$^J3$^.+BMBJB 8F8FZ+KHZ^J+AAO?$^J+8F8DZ+R^*;J4$^.5?<;OISIZ5N5AI<(+%=8P8A8J8J8J$^N5AJ<(+%K(=K	J4$^R5;+N;/I!
 $E$]<H/)0&0!+/0":/)Y)I)7/4$E$^<B+9HILE4;N[NRJZMH:I.$(;V$+*Z[ONM[NRMI(;I.H:ID$(KO$*$[+L;XYIR[Q$$IE>(**IFYI&IC> +IHMI($(;ZY%X$$$	<H*<IF> +IS5*/SQ*/+L;XY$$IE> +II(CP$(Y$$>(RMI6
N.MI4+J=?[19AK3K49F[3K48JK3[4K4<P+"I8:K4[5K2K1[1K5
1K1H>[18D
1O19HK5/Q36J\S%AD ER;%XNY;$E$ 8$DM>(*P$E$
<B$D8D?*VN. IY> *[QZ-;;A$+RR.,8YH7Y+I(AA8!M+>(*.I(AA+
Q+M+8!I)>(*6I)+
Q+;VITY2M+8!I> + Q+I8 YQ2*:ITY2YM+> +
Q+Q2+HM+8!IB>(+UIB+
;XYI9> .!; Y9I6]:;XYM+Y,R!.!Y($E$ 8I(7&/$$E$^<B+,TEST (Y=YES OR N=NO):OMBCOMPPA$E$Y8$DBW^YJ]^ZJ^Z[N[XLB\NY\R[VZ*J$E$^<B.XG8B4!48G?&6
HA-:17	:)-5*!ZV(V	VV*V%XYX-XXXTX[XVPMPOPRPUQQBQEQHSTATUS REGISTER ERRORCOMMAND REGISTER ERRORDISK ADDRESS REGISTER ERRORDISK DATA ERRORCRC REGISTER ERRORDATA REGISTER ERRORDISK SKIP ERQF;P"\OIC[JSI?OIC9J8JKJ8J8JCSI80Y*;0\C2K>> *;2C.[>9O2LJY[ANBQK;Z08HNR=H
9BG8 [=NR[INBG>(<X*TK10&0Y*60Z*TS=.\J0> RR2K.0V0Q+EC /C ;KJZ"\
I[C8F8FC OI
IKJ8J8J8HC KCSI<
I*P9TJ0>(+,0LZ0R0+.K0[J+6K<[JBZC^A?0I+)0J[<KJ/;X*?2A?=PUS REGISTER ERRORCOMMAND REGISTER ERRORDISK ADDRESS REGISTER ERRORDATA BREAK ERRORCRC REGISTER ERRORDATA REGISTER ERRORDISK SKIP ERRORDISK INTERRUPT ERRORAC REGISTER ERRORRK8E DISKLESS PASS COMPLETE:X
GO;
;<H+W+,8>C>J5UA?TRQPD);BL*TBC

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