File DHTMCA.SV (save files (Executable program)

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

?>2CBPK(FB$PH  H    
T^HNDHOFT4II\N
^ X"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BBC:H+X[%SYSTEMRRHB?;OL=LHPX (08??,0+U+%(IP**N(DB??*4+D/I,U-A,N?<)Z>\A$!??9Q%1)I?>AA AHBJBM???>?=?8.N..[.)DRL/D.8B0B1B2B3B4B5B6B7>H*F$<0$<0O$<0[<B>D[$$<0$<B>D[X0X1K?X2K>[ K=[!K<X*K;X+K:X,K%["K$?*4L2
 L*\+P0K?H*2L2
!L*\,P1P,S!P+S S"<H+CP2P*9K$8D[$9K8D[9* H1> +IH0>(*FK9[&K8[	8 X(8 
&S&S	+OK7XH$<07$<1B$-$)]EYH/
DX ?8*/ A5<(/*I<A5I<$S/*X?+
3?9(
7A8A0A( XP;K?X9$3$5
><8$:H67EIK7F$/7K?H7T*O7U*D$<1JH0YD$=;K>X9$3$5
><8$:H67EIK7F7S*$7U	=*\$<1SH0YD$=./F0LI34LO!$MAK%MAPMUNGPALPRI.4PU.(REN!-%RESREW).$SETSK)0SQ5)3(SU"-)4TE/TY0%UN,/!$UAUBUCVE2ZERODIAG,D)DS;K?X9$5
><8$:H67EIK7F$/7K?H7T*N7U*C$<1\H0YD$=;K>X9$5
><8$:H67EIK7F7S*"7U$5
><8K=]EIK7F$/7K?H7S*/7U*Z$<1%H0YD$=;K<X9$:H67EIL7AIM7F7S+B$/7T>H7U*;$<1.H0YD$=;K;X9$5
?<8$:H67EIN7F7S+Y7U	:+Q$<17H0YD$=/$HC3ZBJBC)> : [XJB< SYC4/YH IP?
<?= G?CX>G,G^GICF3FR;K?X9$5
><8$:H67EIO7F$/7K?H7T*N7U*C$<2H0YD$=;K>X9$:H6YFIF7EIL7AIM7F7S*7U$5
><8IF7EIN7F7I> *-$/7R>H7T*37U*Z$<2IH0YD$=;K=X9$3$5
?<8$:H67EIN7F$/7K?H7T+K7U+$<2RH0YD$=;K<X9IL7A$:H67EIP7F7S+^$/7T>H7U+W$<2[H0YD$=/+JX!2I\LP!+.2C,=2I\!+1J+H<X\	>H;$SI%IOH7HR;K?X9$3$5
>$:H6YFIF7EIK7F7S*N7UIQ7F$/7S>H7U*D$<2$H0YD$=;K>X9$3$5
>$:H6YFIF7EIK7F7S*+7UIF7EIR7F7S*27UIF7EIS7AIP7F7IIT> *;$/7S>H7LAU>(+O7U*!$<2-H0YD$=/NLHHK=XH\H\H7U*!*ED\OWSW<(/WH\>(+!SW+XOWX , %1\KI3$SI0XOLO<(+T$S+*%A-/H4%)H3[=+:HY>(,2%2BAD?>KHJX;K?X9$3$5
=?=$:H6YFIF7EIK7F7KIV> *N7JIF7EIR7F7LAW>(*W7U$5
>?=IF7EIN7F7KIV> *$/7K?H7S**7U*D$<26H0YD$=;K>X9$3$5
>90$:H67EIK7F7K?*?$/7I>(7T+E7U*7$<2?H0YD$=/ONK.-8!H!=H,[.,T1*.%2FHK(A: 2I\?,+S(/%2HH??[(A/$V!AF+7K.	>K0[0/,%SAVE ERRORMIL.;K?X9$3I[[FI[[GI\[HIB[IKK[J$5
7<8$:H6YFIF7EIK7F7S*X7U$5
7<8IF7EIK7F7S*"7T*$SF*Z7U%^% %
%
%^%
%
%^%
SG*0%
%^%
SH*5%
%^%
SI*:%
%^%
SJ*?*D/EP?;?MW*+UK]
+0!+Q/T?/O)[\S)O)[[	-+%K[5K][]S)+M2J	,G<D<?2?[2S3+%/!J*%69J8J8JC?<(K?8A9H/5OD;K?X9J4Z3K>XJ$3$:H6YF%&%!*H"(K=X9$:H6YF%^%&%!*Q"(R3*QH1>(-%.
RB1B2B3B4B5B6B7B8$<3HLJ%A$<3KH0YD$=.(?9!%U55+IYA)%U57+IY+
OA[OSA	\Q9?=[R%X ?>;"??DY9%\%$A%! AI2/A	^/YDSD\D
%W\+\,%X ?<;!??!%%A% 8%"P%! I2%U59+%R*2/8R1QY/=PXP
PN;$<3Q$.$)I"8AYJKY	-$;*;K?X9$4$5
><8$;I7EIK7F$/7K?H7T*[7U*P$<1JH1YD$=;K>X9$4$5
><8$;I7EIK7F7S*07U	=*($<1SH1YD$=;K<X9$;IYFIF7E;$7AIM7F7S+F7U$5
><8IF7EIN7F7I> +P$/7R>H7T+V7U*=$<2IH1YD$=;K;X9$;I7EIL7AIM7F7S+)$/7T>H7U+"$<1.H1YD$=/6T%! BI2S]S0SZ,R5R
;K?X9$5
?<8$;I7EIN7F7S*K7U	>*C$<17H1YD$=;K=X9I	Z]$4$5
>$;I7EIK7F7K?*$/7I>(7T*)7U*[$<2?H1YD$=;KC>(+$<3Z$.$)I"Y[CKDY	-$8 [C-%??>\!I2.-OH[VSHOH[YSH%W%X\?>;"??D8%\%??%%A%%$A%^8%$A% 8%]I2/H[80!<H+3I;?+-Y;K80&:/+:K>$7T-,TP:N7CRN7AR.NIZTRINIZURIK?MEYGYH<B<B* ]EQG*TQHK>YG88*T;IG<(*2K=*28 II8 IJZ.IJZ/"<:ICZ;IH\HJ;\HY
YH]E.I9YCN<[VR<N<[WR<KY[X+PIC8DYCICKW<XYC:KV8D[VSX+H.<?5K;K<>(+KOJ<(+F=+,K;> +)[;+5SJSJ+
:K;H&?H+)K;H	?+)SJOJ[JK;R/J= A">^>
7R*A7UK?X8H08!Z1J/Z.H6Z3*[7R*O7UK>X8H18!Z1J0Z.IZ3L8J37E7T*^7LB2> **K=7F7S*&7T*(7UP8R1*[<B..NHP(*<K?X8H08 [TL8P8ST.4:ILX(,9P(+LK>X8H18 [TL8P8ST/D:ILX(,9K<X8H08![T$<0>L8%AK5%AP8ST+[/UK;X8H18![T$<0>L8%AK5%AP8ST++/%B ,*ERA8A0I XK?]EIK7F$/7I> 7S*H7T*J7U.0&0!*P
":.N;K>XHID8!YDX?YLH$>J?%AKX?8 YLH$>J>%AQD*\"0K>XH.UIY0&0!*30":IX0&0!*90":.0B B.?=[3[4[6IB[5K.[M<H[39K3K/<XS4<X+J:H?>(+XP?+	K4<(+]S6+%K6> +%I> +%J>+&K7%A[4SMS5+LYX?/AK/0X>\?6??B0$]1.N.$]?3?C$5
?<8IF7EIK7F7S*H7T*J7U.IZ7AIF7EIM7F7S*U7T*W7U.N$5
?<8IF7EIN7F7S*7T*%7U.[$5
?<8IF7EIN7F$/7K?H7T*47U.)$5
?<8IF7EIN7F7S+7U.8;$<3/HBF: OIXISILI[XKX8J8J8JYKXY+NC3<(/IK4=H+"K5+-8A< +	K6+-8A< +,K7+-K80&0!+.0":/Y?? B BMBJC^]+ VHYI]IONH6
^TM8E DRIVE FUNCTION TIMER
^
^MAINDEC-08-DHTMC-A
^
^SELECT DRIVES
^
^SELECT 7 AND/OR 9 TRACK OPERATION
^
^FUNCTION
^  UNIT800 BPI        WR FM BOT DELAY WRITE SHUTDOWN  WRITE START     WR NONSTOP GAP  BKSP SHDWN+SDWN READ SHUTDOWN   WRITE XIRG      LAST CHR TO CUR RD FM BOT DELAY SPCE SHDWN+SDWN WRITE EOF       ER TO EF SP TME WR TO ERASE HED 1 INCH DATA TME GAP      
     
^556 BPI        
^200 BPI        
^END OF TIMING
^FLOWBAD NUMBERILLEGAL * OR ?BAD E

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