File DHRKBG.SV (save files (Executable program)

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

?>2CBFH] TRDGLIDTHED HEDRHO$DHSKS$KPT R<RRPI,S 8IDTHEDRUTT 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\[M9K$YR %BB2B:DCCF.HHSH3H?JGF]H!C
2\I"CH+PVN"77^N!9B9:6OGJ)SE:	?*J	>"2C=> .*X"Z*XR(	<CB+J(	;	<	>"2C=> 	:R.J)> *"J*8 Z	R)R	*XZ)RZ.ZDHRKBF  PASS 	98HQ?H>LHP.20Y*;0^C8K7
6O6.:;OC[^SCO^C5<(/C=8P8A8J8J8J	4O^C3<(/CK2=K1K0	4S^+H;	?+(8 K
[
K/

/
<BB A
 ?H??H=BA?H!F]HHSDFTJ
?	>*FO?.0D
==A
<Z-J/Z.N.<(*VO;>(*R-R.*MO:> * O;	9K8	9	7R.RO;.O;K6
;J0J-Z,N,Z,.,D1D9===4=/=.=-=;=<E)E
EEIEQE%F
:K]> +F	5.[]	5/^
4[]
:	3
22C/PBK]> +W8AJ[^S]	1	5":+QO48 
4	3	5.	3
2	5.
4
2	32C0G/0>B:G%FMIQFTAHSB?H?H>H=K&K	JK%"MJK> *GO?ZLRK".ZK"T.LK>	=O<	=	;.M:O:<QO98D:O8.T;	7<H.]	6F)	5"T	?.]*^WAITING 	7<H..K%> /4S%	6G	HP	3K2	=W1	0MO<XPK/[&	0MHP9F8DO<XPS&+C+"8!K.>(+"O<K-?H+^O<K,?+^O<C+
</MK*	=	;*6	;[%..SR= B?G=H=PBM?=H3H> HEMB:CCJK%K	K&HSH=H?C^D9F8FZQK?ZRJQC>K="?JQ8F8DZQRR*F.;K<"?J
8 Z K;"?R *[.SD
:0D
9=A
80Y*1	7<H*1	6	5	48R!	5.!	6	5R>	4.3"?Z>J=.3[PKQ> +JKP0&0!+F0"+NKP66R62>.?:KN[P61<H/RS%+VSP+YO4[R[Q	3I&"S	2/RLPT ERRORF]CCDFTB:JK&K	K%BJBMB0G?<:HRC?>(R.0B[%0D[	=A[&; JG[$2A; O>[N2I"<H*8	=	<C;> *2	:	9KP	9KXKN	8	9K[K%	8	9K^K&	8	9K!K		8	:	=	<>H+	7+	=	<>H.GK6
$	=/$	=.G<B8[O2AHP
5O>[MKO2B/MDHRKBF  FAILED   PC:  AC:  MQ:  FL:????????K7%KGEP<BF]HCCHSB2FT)BDCG(ABC(=)B-+%XHP ABDHD3Q2M2.4!..,	,])\ BR1)4*	W%/^),,J! H5$	514-90!Y,1I050^0+:9?%%P9?ABCDEFGJ\PX 08?0??UU**(?9O
2A? <>K-?49C9XRI0	CF+;+3DZ ??B.O??\8*F/?/>/=/<-;2TY.I.IQZRK22A\;K4\<K3\=<B	;$2	:H8X9$E$Y8HRN> 0GYY;XYHMH:$($$$">H*.Y$+$$>($
$ B *
9H=8!
8HMH:$($	*=$+$	$
$ B5FQYHMHNH:$(: $!+S$+: $!>H+SHMH:$(; $!$
$ CAGIGI.H:$(I[/$*$[+-I6[/;XHKY$$$">H+-$+Y$$$"$
$ CVF/1D2$	,C+
L9091"08U(WF6&$UDF*D$
$ DF.HDI;AY(H6$TDR*P$
$ DIF;AY(H6$TD
*]$UD
*]$
$ DS+Y(; $TD+*)$UD+*)$
$ D +Y\Y]I\Y(I]$TEA*?Q]>HQ\I\>(*.I]I8> *.$
$ D,+H6IOY\;AY]I]Y(I\$TE\+Z; I\Y\;AI\> +GI]>(+YY]+G$
$ EB+H?8!
?Y\Y]I\Y(I]$TE;+9$UE;+9;I]HKY]<XQ\I\>(+"I]I8> +"$
$ E +/=F90IRY\$SY]8DY^$SY
8DY $SAJIIY!I^Y(I]$TF!*
I Y(I
$TF!*
Q!*NQ\*B$
$ F%U8YY;A$+I/YY]O?Y\I]O>Y^M^> *;I]9DHM$($$$">H*?$+Q]Q\*,$
$ F%*;A$+Y]O?Y\I]O>Y^M^> +	H<I/YI]9DHMID$($*$$$">H++$+I/Y$$$">H++$+I/	<$$>H++Q]Q\+G$
$ GB+//HERK8E DRIVE CONTROL TESTK8K/<1H7!<HR.QY;&
?H6HJY\;A$+;XH<Y;AIDH:$(I\$*$[*7$$$">H*3;A$+I(HM$($[*7;XY$$$">H*3H:$(Y$$$">H*3Q\*K$
$ HH+*:$ HHF$ZIMY($VIH+FHOY($VIH+F$
$ H;+IMHLY($VIX+VHOHLY($VIX+V$
$ II+%U?9IRY\IK$YIMY(I\AP\3H:\4L3$VI;+9$ZHOY(I\AP$VI;+9IK$X>H+9Q\+]$
$ I[+;/=JBJ29088IRY\IL$YIEY(I\AP\3H:\4L3$VJ!*
$ZY(I\AP$VJ!*
IL$X>H*
Q\*D$
$ JB+;IK$YH:\4\3IMHLY($VJ9*7$+$ZHOY($VJ9*7IK$W$
$ J"+;IL$YH:\4\3IMY($VKQ+O$+$ZHOHLY($VKQ+OIL$W$
$ J:+;IK$YH:\4\3IMHLY($VK*+($+$ZHOHLY($VK*+(IK$W$
$ KR+;/,LO-[6K6
?K6
>S-/-HYY$$/8D79291IRY\IK$YI\AP\3H:\4IMY(L3$VL$*"Q\*DIRY\$ZHOY(I\AP$VL$*"IK$X>H*"Q\*S$
$ L+;IRY\IL$YI\AP\3H:\4IEY(L3$VMH+FQ\*)IRY\$ZY(I\AP$VMH+FIL$X>H+FQ\*8$
$ L%+;IRY\IK$Y;AH:\4;AIMY(I\APH5\3L3$VM.+,$Z;AHOY(I\APH5$VM.+,IK$X>H+,Q\+K$
$ MI+;/0NVE ERRORO59HIRY\IL$Y;AH:\4;AIEY(I\APH5\3L3$VN$*"$Z;AY(I\APH5$VN$*"IL$X>H*"Q\*B$
$ N+;IRY\IL$YI\APH5\3;AH:\4;AIMY(L3$VON+LQ\*)IRY\$Z;AHOY(I\APH5$VON+LIL$X>H+LQ\*;$
$ N%+;IRY\IK$YI\APH5\3;AH:\4;AIEY(L3$VO7+5Q\+SIRY\$Z;AY(I\APH5$VO7+5IK$X>H+5Q\+%$
$ OO+;I.H:Y^%U?IRY\IMY(; IP$VP/*-I6Z/I\;9JHOI^7&H77$I\AP7I<Y]7%IE<(**Q]*UIEY&I\;9JHOY(H7Y*I\APY)$	*	*-Q\*H$
$ O;+%U?=IRY\Y(IP$VQ
+]I6[
YI\;9JI^7&H77$I\AP7I<Y]7%<(+VY&I\;9JY(H7Y*I\APY)+]Q]+H$	+XQ\*<$
$ P2+IHY\;A$+$ZIMY(I\AO$VRI/?HOY(I\AO$VRI/?I7
>;A$+Y"Y/:RD(?;DIRIRG$,$>H*GQ\/?$
$ Q 3DIHY\;A$+IK$YIMY(I\AOIH$VR1*/HOY(I\AOIH$VR1*/I7Z1;A$+I0Y"I1Y$,$>H*/Q\*L$
$ RJ3DIRY\IL$Y;AH:\4I\APH5\3;AIMY(L3$VS<+:Q\*9IRY\IK$YI\AP\3H:\4IMY(L3$VS<+:Q\+JIRY\$Z;AHOY(I\APH5$VS<+:IL$X>H+:Q\+YIRY\$ZHOY(I\AP$VS<+:IK$X>H+:Q\++$
$ R2+;/>TQ"IRY\IL$Y;I\AP\3H:\4IEY(L3$VUI+GQ\*DIRY\IK$Y;AH:\4I\APH5\3;AIEY(L3$VUI+GQ\*YIRY\$ZY(I\AP$VUI+GIL$X>H+GQ\*(IRY\$Z;AY(I\APH5$VUI+GIK$X>H+GQ\*7$
$ T+;%UA;A$+$TU(+&;AI.H:IE$(;AIEYH6$*;X$-8H$-8H$-$	+!$$$"$
$ UL+;A$+$ZH7$)I.H:IM$($*;X$-8H$-8HH<$-$	+9;A$+;XHIYH7$)I.H:HO$($*$	*H$$$"$
$ U)+%U?;A$+IK$Y\3H:\4H:I.IMY(H7Y*%X;XYH77$I(7&L377!*(7%IE< *;T3*2Q(T4L49H>P*
L3I8> *
+IEY&L3Y)<H$
$ VR+/EX$E$Y8$D9DAX:IIYZYYIK$YH:\4\3IMY($VW;+9$E$^<B$ZH:\4IMY($VW;8;VHJYI6[;I&$">H+9;A$+$ZHOY($VW;+9IK$X$
$ W]$E$^<B+F%U?8Y\HOI.H:Y(JI<HYBY:H7Y*%X; Y9$ZI\Y)H77$I(7&I\77!*Y7%Y&I&IE>(*,;XYI&I> **I6[B+Y9*.;A7"I5[BIK$X>H+Q\>HQ(I(;>(*MI\I8> *M$
$ XB+%U?8; Y9Y\Y]HOH:I.Y(%XH7$)I($(I\$*$	+T$$IE> +&Q\+^Q(Q]I]>(+MI\I8> +M+.IK$X++I5<HI6[1>H$
$ YE+%U?>; Y9Y\Y]H:I.Y(%XH7$)I($(I\$*$	*B$$IE> *TQ\*LQ(Q]I]>(/?I\I8> /?*\IK$X*YI5<HI6Z
>H$
$ Y4+IGY $SY^8DY
I
Y(I^$VZ5*3IK$X>H*3Q *"$
$ Z %U
?IIY $SAOIHY!$SY\8DY]$SY^8DY
IK$YI
H:\4I^\3I]Y(I\$T[1+/I
IEY(I^$V[1+/I]Y(I\$T[1+/I
Y(I^$V[1+/IK$X>H+/Q!+FQ *:$
$ Z8+;/3\/S+A+Q+1X]XW*VB>)3VIY;IIY $SY\8DY]IK$YI]H:\4I\\3$U\)*	I]IEY(I\$V\)*	$U\)*	I]Y(I\$V\)*	IK$X>H*	Q *B$
$ \+;K!Y $Z$SAPIRY
$SY^8DY]I]Y(I^$T]L+JQ
*1I]Y(I^$V]L+JIK$X>H+JQ *,$
$ \*%U?=; Y9Y\Y]H:I.Y(%XH7$)I($(I\$*$	+]$$IE> +/Q\+	Q(Q]I]>(+VI\I8> +V+7IK$X+4I5<HI6[:>H$
$ ]O+/<^N; $)I=;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."3;A$+I+X;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)/ "$DISK030S030S03929%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///;E< +N>6J\ :]%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&/,"3;AI>>(,ZKBRQPD%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*4
DZS6S6PH+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/+
"/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:RQPD;IVY[;X$-8H$-8H$-Q[*I;HJ
-Y%IVY[;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+92B4;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% ?(R;%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):AN	T REMEM$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 ERRORDISK INTERRUPT ERROR PASS COMPLETEHRAE>(.UHRCXRIG
A[2X:HR=[CKC8 X9H9[XHRL>(*4: X9KC9DX:KC<HK2N?[W: 
WS2SX*)H9X8/B<;?)B[:HRAE>(/C; OU[W0B2TIQ[QKW<B2:/V/C*5PHRAE>(/XS2/XK1[2Q=/X2TIQ[	0B<B2:	3;K1[2K0Y=/X????5F4BITMAPSRCCOMBCOMP

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