File DAHI.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 7UKB7OSU3IWN2 GDH7I"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?T2 ;I7TKE3P3O3AWT6 WF7NSC3I;O2 GV3LWU* CY7FKO* CA7G[I+ECN3A
R3UWM+NCT3V3AU7E*JCC* B * B * B * CX3U	S+NCG3A^ 3IWV7NR 3A3B+E" 3A
R2,GV+LB)+OCF3A
R3UWM+N3T6 WF7NSC3I;O2,F N7D*JCC* B * B * B 2 WD7R[I3A	T+VCE3V3A7UOE".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3DA+I" 3XF,+R3G3V3A*,3Y3N	D3MV,+P3S7IKE")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +XB * B * B-7DWO3BWL6 KP3E	C
S?I3NF 7RWG3M;E7TZ 7AWL7EN 3POE3I	F+ECD+BCY7ICN+U;T2MNJ* B * B * B 2 F +RCG* B 2-R 3OKU+LCE3PWR7COI3I;O2 ;I7PSU2 WV3C?T+R" 3D7I7EON3I;O2 SN+I	M2 [O2MNJ* B * B * B * B * B * B 2 F 7RWG3M;E7TZ 7AWL+ECS+OCF3TWH2 GT3BWL2 :(+OCT7DOE3T?R3YSE")6.*JCC* B * B * B 
 GV+LB * 6 2 ?D3U3B7EB 3ROE3I	S+OCN7ICN+UCT3VOE7TKO2 R(3IWM3N	S+OCN22:*3D7I2)> F*M+CB * B * B * B * B * B * B 3F;U3C	T+OCN3ASN2 WD7R[I3A	T+VCE3V3A7UOE2 [O2 T7ER 3A3B+E" 7DOE"-*M+CB * B * B * B * B * B * B 3T?R3YSE*)B.3F;U3C	T+OCN3ASN2 WD7R[I3A	T+VCE3V3A7U
E6 WM+SCTB7E*JCC* B * B * B * B * B * B 6 SS3OWR3D& 7NB 7AKI+SB,3TGH3T6 3E;A3SJ 3E	G3N	N+NCG7WSI3HZ 3UON3T?IN*M+CB * B * B * B * B * B * B 3V3A+UCE+ACT3P	O+NCT3A
R*(&16 [E7E	R6 WF7NSC3I;O2 GV3LWU6 WM+SCTB7E*JCC* B * B * B * B * B * B 2 ?F3L?L3WSE6 	B2 T3ER 3E	R7VSA3IWV2 GV3LWU6 SA2 T7EN 3AWM2 ?P7ISN".*M+CB * B * B * B +YB * B * B-7ROE7USL3I
N2 ;I7TKE3P3O3AWT3DR 3OKU+LCE3PWR7COI3I;O6 WF7NSC3I;O2MNJ* B * B * B * B * B * B 6 Z 7AWLE6.*JCC* B * B * B 2 SN+ICM* 6 2 ;A2 ;I7PSU2 GV3LWU2 W3IC6 CS3E	C3FWI7SR +HCE3N7U7BKE2 [O2MNJ* B * B * B * B * B * B 6 B 3O;I+TCS+ICN3TKA+LCE6(KA7GZ,+A	L".*M+CB * B *
B * B 7EOP* B * B-3S;I3GWL6 KP3E	C3S?I3N& 7NWP3TN 7OON3T;A7T^ 3HOI3H& 7SV 3SSE6 OA2MNJ* B * B * B * B * B * B 6 V 3PWP3RJ 3O;U3DZ +OCR3TWH2 KA3S3O3UWT6 KE7RKO".*M+CB * B * B * B 7IKE* B * B-7AJ 7EWS3L	T+NCG7EKR+OCR7PKA3AWM7TKE".*MC*M+CB * B * B 3R7E3A/RS*
+CB * B * B * B *(&12 GT3BWL2 F(+R3G3V3A6)N 7HWO+LCD7RCE7ROE7ESN* CA3S;I3GWL2-GV3LWUD*M+CB * B * B * B * B 6 WF7NSC3I;O2 ;A7DN 7HWO+LCD+BCE3S?T3RSE2 ;I6 WS+CCH7A^ +A3Y2 T+ACT3TWH2MNJ* B * B * B * B * B 7DOI3T;A7COE2 KA3SF(+RG+I6)+XB)3ION3RGE+SCE7WSI3H& 7N
C7EOA3I
N2MNJ* B * B * B * B * B 3SKU7SKC7ISP* ;I2 ?T2 WG7NKE3AWT2 T+ICS3OSR+ECR+ICN3TKA+LCE6(KA7GZ,+A	L",*M+CB * B * B * B * B 6 WS3B?R3U	T7NOE2 GD3T
S2,R 7AOT3M> 3RR 7AOT3EN 3O3U3DJ 7EV 3SSE2 ;I" 7A*JCC* B * B * B * B 6 B 7R[E7IWO7SN 3T
AE6.*JCC* B * B * B . J(2): 3OF 3C	T+OCN7BOE3IWD3SV 3R?R3R6 7EOS3AWG2 ;I2 GC+SCE3N	D3M2 7EOS2MNJ* B * B * B * B * B 3TGH/NF ".*M+CB * B * B * B *(&32 ;I7TKE3P3O3A	T+OCN+ICS7TKE3M;I3AWT3DV 3IT+ECR+ICF3TWH2 	D3FWF3R;EC7E*JCC* B * B * B * B 2 J 7E
T3E;E6 
T7ON 3UOC7EOS3IWV2 ;I7TKE3P3O3AWT7DZ 7AWL+ECSI7S*JCC* B * B * B * B 2 F 3B?S7LSU7E	L2 WL+SCS3TGH7NR 3OWL3R;A+CCE7EOP2,> 3R& 7FR +HCE7AOB7OWLT7E*JCC* B * B * B * B 6 Z 7AWL3E> 7FR 7HOI2 	D3FWF3R;E+CCE3S?T+PCS3D7I3I	N3S	H+N3G6 KO2 [A7TKE2MNJ* B * B * B * B 
 B *(*23N	D/MJ-6)N 7TCE+SB.7FKU3TWH3R& 3T& 7SR 3E7R3IGN3TSE2 [I2 TE*M+CB * B * B * B * B 6 KP3OWC7DKU3ER 3IOS3OWV+RCS3T?W6 KA3G7U7ESN2 GV3LWU3S& 7NZ 7ESC+OCR3A
R2MNJ* B * B * B * B * B 3W	H+CCH3AWR2 SI7ESN3IGC+LB.7DCE3ESN7ESN2 ;O2 T3EWS2 ?F+UCR7COA+E3S2MNJ* B * B * B * B * B 7EKR+OCR7PKA3AWM7TKE2 WI3R& 3SN 3OWD3D& 7NR +HCE3F3O7L
O3I
N2 ?FR7M*JCC* B * B * B * B * B 7IKE*=B02-& 7T^ +ACS7POO3SKI+LCE+TCO3RGE+CCH3TWH2 WR3Q	U3RSE2MNJ* B * B * B * B * B * B * B * B 3AOC3UGR+CCY2(?N6 KE7RKO")6.*JCC* B * B * B * B * B 7IKE*=B12-& 7T^ +ACS7ICM7OOS3I3B7ER 7OJ 3EOA7HR +HCE7RGE7UKIE7D*JCC* B * B 
 B * B * B * B * B 2 F 7CWC3ROA3YJ 3EGC3UWS2 [O2 ?R3USN3I
N6 KE7RKOS6.*JCC* B * B * B * B * B 7IKE*=B22-& 7T^ +ACS7ICM7OOS3I3B7ER 3ON 3HOE3KF 7CWC3ROA3YJ 3EGC3UWS2MNJ* B * B * B * B * B * B * B * B 3N	D3M& 3S2 7EOS2 T+ACN*2B,+OCR3TWH2 WR3Q	U3RSE2 OA7CKU7A	C2MNJ* B * B * B * B * B * B * B * B 7CWO+LCD7NSO2 WB2 WR
AC+ECD+BCY3MGE+NCS+OCF3TWH2 	G3V;E2MNJ* B * B * B * B * B * B * B * B 3TKA+L;E2 SN+ICM3S?H3USL2 WB2 ;I3CWR3AWSD6.*JCC* B * B * B * B * B 7IKE*=B36-R +HCE3P?R3CSE3UWR2 	D3S?C7VKE+ECD3T?W6 KA3G7U7ESN2 GV3LWUS*M+CB * B * B * B * B * B * B * B 2 ;I2 WV3C?T3RF
+RCG3W	H+CCH3AWR2 SI7ESN3IGCL6."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 2 & 3NWT3R?P7LSA3I;O6 OI2 ?D+NCE+BCY3MGE+NCS+OCF7ASI3K;E7SN 3CWH+MCEO7F*JCC* B * B * B 2 WH3R	M+TCE7ISN7ECR3OGL3T?I+NB.+OCN7RSE3U;R* CY3C;O3T	A+NCS+ACN7ISN7ECR3OGL3TSE2MNJ* 
 * B * B 2 Z 3UON3T?I7NZ 7AWL3EF 7TB 3O;I7T" 6,^ 3HOI3H& 3S& 7NR +HCE3S;E+SCE+OCF3R7E3A/R2MNJ* B * B * B * " *3B)7OSP3IGM7L^ 3IT2 WR3SWP+CCT+TCO7G[I+ECN3TKA+L;E2 ?F7RJ 3EWF3R;E+C3E2 WSE*M+CB * B * B * B 3FJ.2.	H3LWD3BGR+N3D2 ;I3T?R3DOU3T?I7NR 3O: 3UWM3ROI
ACL3AGN7LOY+I3S2MNJ* B * B * B 2 6 7CKG+A7W3H3I+LB,7N
E2 ?Y+R?K7TKO7OSN3O2/3OSN+O3N. &1*5266 CP..F3.4N-*1272 ;AD*M+CB * B * B * B 7GKE3S	H3N/S3Y2/3E	V+N3E2 	A3TWK3N"-3E7R3IWT2 ;I7TKE3P3O3A	T+O3N2MNJ* B * B * B 2 * 3A7C6,Z +O;L*1216 OI/SN.. F(.9R6*)B,+P;P.3J5.-V3"66."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:
*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER 3A	H*(3X3A
R2,GV7L&,2,SN+I3M7EOP2,WIR6)"J7C"J7C*JB * B 2 	D3M;E3S?I3NF +RG*12)3V3A*(&1*MBJ* B 2 R 3OKU+LCE3PWR7COI3I;O6 KA7GZ,+A3L7X&,*,3H+H21H62*JB * B 2 WI/RJ=*MBJ* B 2 " 62"=6-KA/GF(")*M* B * B +IF3N	D/MF-*)22.1N,*MBJ* B 61& 2=GV/LF(6)Z++AL*2*)H62*JB . J 2 WR7TKU
*MC*M+CB * B 3VOE7TKO6 KA3G" +ACS7MKO7ER 3H;A* B13EWL3M;ET6.*JCC* B 2 T3EZ 7IOR7TN 7TCE6 KP3EGP7ROE2 WV3C?T7RZ +ACL3SOU7HR 7HSA2 	A3TWK7NN 3CWH+MCE3C;A2 WB2MNJ* B 6 V 3SSE".*M* B * B3/IF=*MBJ* B 2 R /OV . 7J22:,3D7I*MBJ* B 2 " 21"="2*M* B * B /H623XF-+RGJ
)*JB * B . 7Y3V3A*(	I*MBJ* B 6 Z +AL/I6)7YZ++AL/IF+2)"*"1*M* B * B 3H"=21"-"2*M* B * B +IF/HR).,N1",64*JB . R 2 GV3L&(*+&1*=/Y2(GV3L&(*+&2*-	Y.*GH"/7H*JB . V . 7I/IJ+*MBJ* B 6 Z +AL/I6)3V3A*(	I2+GV3L&(*+&1.*KH2MNJ* B 2 V +NCD+OCF7FKI+SCT3SWTP*MC*M+CB * B 
PWR7PKA3EF 3I/T+ECN3SC3EWM*MBJ* B 2 R 7ESL.2B=".*M* B * B 3I;E3D&="-61"J7C*JCC* B 6 SS7ASR2 	A3TWK3N2-7OCO*MBJ* B 2 R /O& . 7I21&,3ESN*MBJ* B 2 R 7ESL21R=7ESL"2*M* B * B 7YZ=+AL"16)*JB * B . 7M*(/I*3>)"2*M* B * B /H613A
R*(	M*MBJ* B 2 R /OZ . 7J21&,*MBJ* B 2 . *=/I21*-*MBJ* B 2 2 2=.(*+&1"/62*JB * B . 7H3A
R*(	L.-GH*MBJ* B 2 & 3F"(*)26*124"6*M* B * B63V3A*(	K6=Z(+AL+K*)*(7X+H&12-GV3L.(*+&16*"(6-KA3G2(*)&)"/7H*JB * B 2 WD/LKT2=GD+BS7YZ-+AL*1&)*MBJ* B 2 & 3FR(7ESL22V-+P	S*121*121"7*M* B * B7+IF/I"-*)29.8",*MBJ* B 28& 3FR(7ESL22R-7ESL.1&).,J1.,J1*MBJ* B 29N 7O
N7IWNE*M+CB * B 3ESN2 [O2 	A3TWK3N2-7OCO2MNJ*MBJ. F 60& 2=GV/LF(")*M* B * B 7RSE3U;R2MNJ2MNJ* B 6 R 7HKE3E& 7SN 3U[F3I	C7ESN2 OA7CKU7A	C2 	W3T	H/NJ 2*SN+I7M22& 7TKE3A	T+OCN3SWTP7S*JB . F12 WI/RB=*MBJ* B 2 ^ 3O?T. B12MNJ2MNJ* B 6 R 7ESS2 GV3LWU2 WD/LKT6 SS
ASR3S> 3S	C3LGL3T;IG*M* B *1B27IKE"=61*JB * B 2 WR7TKUN*MC*M+CB * B 3TWH+RCE3AWR6 
T3O& 3D;E3TOI+ACL3A
R3UWM+NCT3V3A7UOE2 ;I2 WV3C?T3RF R7G*JB . N1. 7Y3V3A*(&1*MBJ. F 24& /E7R"3*M* B * B 7RSE3U;R*MBJ* B 2 V N7D"JBZ"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