File DTEUL.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 SD3E3U2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 7OCM3UWT2 T7EN +UCM+OCF7FSC*(	K2 ?F3R. 6 KF+OCM3OWN6 CU2 ?T2 ;I3F;I7
	T".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3DWT+UL7FSC6,WS3M6,+A3X7EOP2,WIR6)*JCC* B * B * B 2 GP3R7A3EWT3RZ +CCT7RGE7UKI+ECS+ACN7ESX3E;R+ACL3SGT3T7E7ESN".*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B 7FSC* B * B-3N7A3E> 3FF
3NV 3XWT3RGN3LR 3OKU+LCE3PWR7COI3I;O6 WF7NSC3I;O2MNJ* B * B * B * B * B * B 6 N 7UCB3R
O3R7A6 OU+E;D6 SI2 ?C7MWP7TOE2 T3E. 2-T2 WT+RCM+OCF3TWH2MNJ* B * B * B * B * B * B 6 N 3E	R+ECS+TCO7A	N2 	G3V;E2 ;I7DE* ;K2MNJ* B * B * B 6 N +UCM* B 6-J 7EWS3LGT+NCT3V3A+UCE+ICN7DWO3BWL6 KP3E	C3S?I3NN 7OSN3A;I3I
N2 ;O2MNJ* B * B * B * B * B * B 6 J 7EWT+RCN3TWH6 WS3M> 7FR +HCE7G[I+ECN7SKE7IOE".*M+CB * B * B * B 7MA* B * B-7ICN+UCT3V3A+U3E2 W3IC6 CS3E	C3FWI7SR +HCE7MA3IGM3L: 3UKME7R*JCC* B * B * B * B * B * B 2 [O2 WT7ROM2 [O2 T7EN 3E	R+ECS3TGH3TF +RCE7ROE3POE3TSE
.*M+CB * B * B * B 7EOP* B * B-3S;I3GWL6 KP3E	C3S?I3N& 7NWP7TZ 7AWL+EB,3W	H+CCH3SWP3C[I7IOE2 TE*M+CB * B * B * B * B * B * B 7UCP+ECR7BWO+NCD+OCF3TWH2 WR7LSA3IWV6 KE7RKO".*M+CB * B * B * B * B * B * B 3S7U7MSA3I;O6 OI6 SS7OCP+ECD+ACS3S?O3NF 3SZ 3IWV2 	T7M
E2 ;I2MNJ* B * B * B * B * B * B 6 N 3UOC7EOS3I;O2 T3EF 3B?S7LSU7EZ 7AWL3E> 7FR +HCE7TKE+MCS+OCF3TWH2MNJ* B * B * B * B * B * B 6 R 3R;A3S?F3RWM7DN 3E	R+ECS3AWR2 ?F3USN2 ?T2 WB2 WL+SCS3TGHN*M+CB * B * B * B * B * B * B 7EOP2*F(3B?S7LSU7EZ 7AWL3E> 3FN 7UKR
ESN6 WS+M:)2MNJ* B * B * B 2 & +ECR* B 6-J 7EWS3LGT+NCT7EKR+OCR7PKA3AWM7TKE2 ?C3DSE2 ;I2 T3EZ 3O3L3O	WN7G*JCC* B * B * B * B * B * B 2 ?FR7M*JCC* B * B * B * B * B * B 2 & /E7R*0B 2-: 3OV 3R?RR*M+CB * B * B * B * B * B * B 2 WI/RF=* 6 2 WR3Q	U3RSE2 OA7CKU
A	C2 ?N7TJ 3EOA3HSE2 	WT7H*JCC* B * B * B * B * B * B * B * B * B 2 6 3A	X3M3A6 WN3MWB3R> 7FR 3E7RS*M+CB * B * B * B * B * B * B 2 WI+R6=*16 2 T3E& 3NWT7GKE2 GM3X& 3S2 7EOS2 T+ACN3OWN".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B +NCO7ASC3I;O2 WB3SSI+ECS7E
R+OCR7MOE3S
A3E& 3NN 3AWS2 GM3X2 7EOS2 T+ACN3OWN".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 6 R +HCE7ESX3E;R+ACL3F;U3C	T+OCN3SKU3P?R3GGR3MZ +CT+KB)7MOU3TJ 3EZ 3U;R3ISE7D*JCC* B * B * B 6 	B2 T7EV 7SKE".*MC*M+CB * B *
B 7MSE3HSO2MNJ* B * B * B 2 V 3V3A7USA3I;O6 OI2 ?D+NCE+BCY3MGE+NCS+OCF7AN 7USI3A3B7YJ 3E	F3NSE6 WE7LKE2MNJ* B * B * B 6 R 3R;A3S?F3RGM3T?I+NB.7FKO2 WR7FKE3EON+EB,3SWE2MNJ* B * B * B 2 Z *.;B3H3I3DKE3R;A+DB,7ISN3RSO7USC3I;O2 ?T6 WN7MKE3IGC3LF 3N3A3Y	SS6,*J
C* B * B * B 2 OM3GGR3W"/3I3L2,: +ECW7YKO7KR/3O?R3N?T2/?L3N?D+NB,.1V9*6B,+P;P.1V5.-Z1*0B,3ASN2MNJ* B * B * B 6 B 2.: 7AKU6,J 3E?P+RCT+OCN3TWH2 3A7GKO3IT3MOI2 GL7NWG3AWG2 3A3G3O. B6",*M+CB * B * B * B 3COA+MB,3V3O*.236 OI/SV.. F(.9B6*)B,+P;P.3F1".*MC*M+CB 
 B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 SD3E3U2 Z(+C3T3S7U2,GM3XV,+P3S7IKE")*MC*M* B * B 3D7I7EON3I;O* Y*1&5*MBJ* B 2 R 3OKU+LCE3PWR7COI3I;O2 OF7TN,+U3M3YF,+M3N7ACM2MNJ2MNJ* 
 * B 6 R 7ESS2 ;O6 KW3O
N2 ;I7PSU2 GP3R7A3EWT3R6 A7X"J7C*JB * B 2 [I2(GM/XF)*,21"2*M* B * B17IKE.=F-*MBJ* B 2 ^ 3O?T. J12MNJ2MNJ* B * B 2 & 7NSI3I3A3IWZ6 WE7LKE6 KT7AON7FKO7MSA3I;O2MNJ*MBJ* B 22& /E7R"1*M* B * B /IF=*MBJ* B 2 6 "=61*JB * B . 7N"1*M* B * B /YF(2)Z=+CTN6)*JB * B 6
WS7M&=*(&1.*V.D60"J7C*JCC* B * B 6 SS7ASR6 WE7LKE2-?LO7P"J7C*JB . N . 7J"0*M* B * B43I&="+61*JB * B 2 [I*(7I7MA*)25.5F,"2*M* B * B53N&=*MBJ* B 2 F /M7N7FSC*(	N*MBJ* B 2 R /OZ . 7K216,*MBJ* B 2 F /M7P2(7A7N&+*(	K*):*.5CD*MBJ* B 6 & *(	K2=7AN*M* B * B63A;M2
7AP*MC*M+CB * B * B 3CWH+CCK3E3U+ECR3TGR3N[S3O7R3A	TO7N"J7C*JB * B 2 [I2(GD+BS3A;M2)R-7AOB*(Y+M&)*)27.9&,*MBJ* B 27& 3F6(.-V1*)28.9&,*MBJ* B 286 *=/M"1*M* B * B 3Y6(2)F=M7N*JB * B 2 7A+N:=.5CD2*7AN*MC*M+CB * B * B 3USP3AWT6 WSM*MC*M* B * B93S7U6=WS3MF+M7N
JB * B 2 [I2(KA7SN(3N3G2(7A+N&)6-CE3SF*+BS3S
N7LN(+U	M.)F).0F,.0N,2MNJ2MNJ* B * B 6 R 7ESS2 ;E3D> 7FB 3ROO7EWDR7E"J7C*JB . B1. 7J/JF+*MBJ* B 2 & 3F*(*-&5.4F,.1F,"1*M* B *1B17IKE"=60*JB . J12 WR7TKUN*M* 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"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