File DTHEP.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN6 SD7HCE2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 F 2 WS3RWI3SV 3XGP3N	S+OCN+ICN7HKE7MSI7EB 7O	L3N7O3I3A7S^ 3IT2 ;I7DCE3
SN7ESN2MNJ* B * B * B 6 Z 3A	R3A3B7E" 6 OI6 KT7AON7FKO3MSE2 ?T* CA3P3O3Y?N3MGI7L^ 3IT2 ;I7DCE3ESN7ESN2MNJ* B * B * B 6 Z 3A	R3A3B7E* 6,^ 7HKE7E" *=+A3ZJ+2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LR 3TWH3PF(*,3B3P3O*,3N7C^,3O/R")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +AB * B 2-Z 7ASC+OCR+OCF3L;I7EKA2 WT+RCM+ICN7G[I+ECN3L;I7EKA6 KT7AON7FKO7MSA3I;O2MNJ* B * B * B * B * B * B 2 ?D3U3B7EB 3ROE3I	S+
CN7VKA3IKAL7E*JCC* B * B * B * CB* B * B-3C;O3SGT+NCT7TKE3M& 3N^ 3IWV3N2 3IWN+ACR3TGR3N[S3O7R3A	TO7N*JCC* B * B * B * B * B * B 7DWO3BWL6 KP3E	C3S?I7NZ 3A	R3A3BE*M+CB * B * B * B 3P3O* B 2-N 3O[E3FOI3I;E7TZ 7ESC+OCR+OCF3P3O3Y?N3MGI+L" 7ROE7USL7ASN2 GV3LWU
)*M+CB * B * B * B * B * B 2 N 3O[E3FOI3I;E+TCS3AWR6 KO7DKE+ECD3F?R3M2 +OCW+TCO3H
IH*M+CB * B * B * B * B * B 2 R 3OKU+LCE3PWR7COI3I;O2 WV3C?TR*M+CB * B * B * B +NB * B 2-R 3IWM3N	S+OCN+OCF3CWO3F	F3CWI+NCT3VOE7TKO2 ?P3LF +NCDC*M+CB * B * B * B +CB * B 2-N 3O[E3FOI3I;E7TZ 7ESC+OCR+OCF7G[I+ECN7ECX7AON3I;O2MNJ* B * B * B * B * B * B 2 ?C3
[F3I	C7ESN3SF +RCE3OSR3EWR3DZ 3R7O2 ?L7WR 3O" 3IG2MNJ* B * B * B * B * B * B 2 ?P3LF +NCD3C6 +ACY+BCE3IWD3N	T3C3A+LCY3LOO3AWTD*M+CB * B * B * B * B * B 2 R 3OKU+LCE3PWR7COI3I;O2 WV3C?TR*M+CB * B * B * B 7WKO+KB 6-^ 3O/R3I
N6 SS3OGR+GCE+OCF3D7I7EON3I;O* *2N*M+CB * B * B * B * B * B 2 R 3OKU+LCE3PWR7COI3I;O6 KA7R	A2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 N 3O[E3FOI3I;E7TZ 7ESC+OCR7CJ 3EGM7ION2 ;U3CGH3NWG3D& 3F: +OCT3C	O3N	C3D;IG*M+CB * B * B * B 7WSI3HN 3O[E3FOI3I;E7TZ 
ESC+OCR3P3O".*M+CB * B * B * B 3OWP7RSA3I;O6 OI6 	B7POA3SSE2 ;I2 GC+SCE3N2 7EOS2 T+ACN"16.*JCC* B * B * B 2 T3E2 3IWN+ACR3TGR3N[S3O7R3A	T+OCN3XF=**/Z3B> 7R* .=F(*/	A*(7X+BB)3TGR3N[S3O7RS*M+CB * B * B * B 3TWH2 GR3NWG* 6(3CN,2)& 7N" 2 ?T2 T7EJ 3A
N+E" +Z3L+Z	R2 ;I* CZ3WWHR7E*JCC* B * B * B 2 3Z*="-3CJ+2)F/2 ;A7D* +R"=3CJ-2)F/".*M+CB * B * B * B 7FKO2 	G3V;E2 3Z6,* 3RF +NCD7C^ 3E" 3AWV. 7A*2?C6(KZ2-3Z2)F N7D*JCC* B * B * B . 7B*-C+Z/R+Z	L6/*(7R*-L6)"J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7N
 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 6 R +HCE3TGR3N[S3O7R3A	T+OCN+ICS7BOA+ECD+OCN3TWH2 WR7CKU3R;E+CCE7EWQ3A	TO7N*JCC* B * B * B 2 ?F3R" 3E7R3IWT2 ?P3L;Y3O	M7AOL* H7N",")*M+CB * B * B * B 3H:(*+21/X6)*2"*3X"**(3
+X6)3N"**(7N61",*)2)2MNJ* B * B * B 6 ^ 7HKE7ER +HCE7FKI+SCT7TKE3M& 3NJ 3ROA7KSE3S& 7SR +HCE3ISNE7X*JCC* B * B * B 2 T7EN 3E?C+NCD+ICS3TWH6 KA3G7U7ESN".*M+CB * B * B * B 3SGT3R	T+NCG3V3A7UOE6 KA3E" *(20/X6)21",*(21/X6)62"*".*M+CB * B * B * B 3TWH6 KT7AON7
KO7MSA3I;O6 OI2 7I3P	L7CSI+LCY3D[E3IWN3DJ 3Y6 3E;A3S> F*M+CB * B * B * B 3XF=**/Z7BR 3OWG3TWH7R^ 3IT2MNJ* B * B * B 6 N +UM3P3O*(	I**+Z2*&(*-&16,N 3U7M+ECD3OWV3R& 6 KF+OCM61R 3O: ")*M+CB * B * B * B 6=WS3MN(*(	I**H/IF-*,	X6,N 3U7M+ECD3OWV3R& 6 KF+OCM61R 3
: ")6."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER 3TWH3PF(*,3B3P3O*,3N7C^,3O/R")*MC*M* B * B 3D7I7EON3I;O2 ?P/LF(2)N,*(&12,?W+RK"16)*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN3AJ,
,?P3LN,2,?W+R3K7HB,2,	F2,SX.,CX2MNJ2MNJ* B * B 6 R 7ESS2 [O2 	D3M;E3S?IN*M* B * B +IF/NF-*)22.1N,2MNJ2MNJ* B * B 2 R 3IWM3N	S+OCN7LOE7SR 3H;A" 62*JB . F 2 ?P/LF(2)N=*(&1*MBJ* B 62J 7EWTR7N"J7C*JB . N 2 SX*=/AA*M* B * B /X603BJ+*MBJ* B 6 B +OL.16)/CF(2)N+*
&2.*CX*MBJ* B 6 B +OL.26)/CJ(6)"*D*M* B * B +IF/NJ-*)22.2R,2MNJ2MNJ* B * B 2 & 7NSI3I3A3IGZ3T?IN*M* B * B47WKO/KF(.)F=..CD*MBJ* B 6 ^ 3O/R*(&2.=CX*MBJ* B 6 ^ 3O/R*(&3*=:0D60*JB * B 2 ?W+RK.46)X7D*JB * B 2 	F*=:2D60"J7C*JCC* B * B 2 GC7LWC7LSA3EN 3O[E3FOI3
;E7TZ 7ESC+OCR+OCF7NE3T" 3E7R3IWT2 ?P3L;Y3O	MA7L*JCC* B * B 2 ;A3DF +DCD3M3U7TCI+LCE+OCF3T	H7SZ 7ESC+OCR+TCO3P3O3Y?N3MGI7LB O7L*JB * B 2 ?D* B6/JN=",7N*JB * B . 7P20R."0*MC*M* B * B +DCO25. *=22J*M* B * B 7HB=2*SX2+?W+RK22.**-&2.*CX2-	F2*?W+RK22.**-&3*MBJ
 B 6 B 2=?W+RK22.**-&2*MBJ* B 6 ^ 3O/R*(*2/KJ-2)"=*MBJ* B 6 ^ 3O/R*(*2/KN-6)B=*MBJ* B 65B +OL/KF-6)B=+OL/KF-2)"+**CJ6)*JB * B 2 ?W+RK22***-&1*=:0D60*JB * B 2 ?W+RK22**6)B=2*SX*MBJ* B 2 Z 3IZ=/IJ+..CD*MBJ* B 66B +OL/J6)3C*(6)^*3O/R*(*2J6)*JB * B 2 WR7TKUN*
* B * B 3ESN&M*J"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"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"B

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