File TCD.FT (FORTRAN source file)

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

6IWS3B?R3U	T+NCE3TSC2(;I.,[I*,3Z/I	Z")*M3C6 7EOS7WKE7TZ +OCM3T7I+E7R7CWO3NWT3RR-+VCM.5J326J 2MNJ6I+I.9F/.1* 2 ?P7LKA7I	T2 	B3TF 2MNJ*IB . F/.0* 2 [O2 GLM7P"J	C* B */B9* B:3P3O3A	R+TCY7BSI" 7C"J	C* B */B8* B:+OCF3L7AP*M3CZ 7OSR3R;A2 	I2MNJ6 KS* B:3I	B7TN.+
> 6 WO3TZ.+T> 2 GD3TZ.T*M3C6 7EOS3E
R3E;B+ICS3UKE3E;R3E7HE7N*JCC7AKD7EOS3EN /OGL*/B2.:B "0602JNI3A3L2 KZ+IT+I26*1&1"M&J3C3A7L* 7BSI.([I.,B1")*M2IGC+LCL3Z	B3T&(.6&,")*M2IGC+LCL7OSU.([I*,&1"M&J3C3A3LR +AT+I	N"M&J3I?C/L61I7N*JCC7AKD7EOS3EN /OOL*/B4.:B "0612JNI3A3L2 WS+TB+I26*1&1"M&J3C3A3L> +UT
I26"16)2JNI3A3L2 GD3T&(N6)2J&I3C3O22&=N*M3CF 3DWR3SWS2 ?C+L>5.6* . F0"0*M2IGC+LCL3Z	B3T&(.6F,"16)2JNI3A3L2 WS+TB+I26*1&0"M&J3C3A3L> +UT+I26"16)2JNI3A3L2 GD3T&(N6)2J&I3C3O23&=N*M3CF 3DWR3SWS2 ?C+L>7.9* . F0"1*M2IGC+LCL7SSE3B&(.6F,"16)2JNI3A3L6 WO3T&(.6F,")
M2IGC+LCL7DSA2(;I")*M2IOI/OSL2=;I2MNJ2 SA7ROE+SCE3E;I6-WA7SN-3CGH3LWT/R* . B1"0*M2IGC+LCL3Z	B3T&(.6F,"16)2JNI3A3L2 KZ+IT+I26*1&0"M&J3C3A7LN 3EKT.([I*,&9"M&J3C3A3L> +UT+I26"16)*JCC7AOU7WKE3T;UG*M6I+I.1B="M&J/IKZ"=602J&I/Z63"0*M6I+I.4B="M&J/IWZ"=602J&I/Z66"
*M6I+I.7B="M&J/I	Z"=60"J	S3CGL6MNJ2IGT7D2 3I?CL61"J	S3ASN2 GMS7K"J	S3DGC2 	\Z61"J	S3TSA2 	\3C3O"1*M3SNI+LCL7RKA2;3C7LJ /A/R3C3L2 GR3RN;+LCL7RKA6MNJ2IOD7A2 /IKZ6MNJ2IGT7D2 3I?CL62"J	S3ASN2 GMS7K6JNL2IOD7A2 /IOZ6MNJ2IGT7D2 3I?CL62"J	S3C3L2 GR3RN;+LCL7RKA2;3
7LJ /A/R3C3L2 GRR*M3SRI+CCA7\+I"4*M7SRI+ACD3\OI/OOL6MNJ2I;A3D6 3A/S6MNJ2IOD7A2 /IWZ6MNJ2IGT7D2 3I?CL63"J	S3C3L2 GR3RN;+LCL7RKA2;3C7LJ /A/R3C3L2 GRR*M3SRI+CCA7\+I"6*M7SRI+ACD3\OI/OSL6MNJ2I;A3D6 3A/S6MNJ2IOD7A2 /I
Z6MNJ2IGT7D2 3I?CL64"J	S3C3L2 GR3RN;+LCL7RKA2;3C7LJ /A/R3C3L2 GRR*M3SRI+CCA7\+I"9*M3SGM+S3K.IB0"1676J*I*=:02MNJ2 	M7TR 7ESS2 KO2 3B3A/N3I
N2 "(3HH")*M2I[I6(+I.1F-.5F).0J,.0J,"0*M"1&03ZZ=3LGO3T&(+Z&1"M&J+IF/IKZ.-V1.)F1.,B2.,B2.MFJ61*I*=/Z*1:02*3F7OSA6(+I"26)2J&I3F&(+Z63*1&5*122*220"260.JJ1.I7Z/ZF+*0:02*3F7OSA6(+I"36)2J&I3F&(+Z64*1&5*123*220"260.JN1.I7Z/ZF+.0B02.Z*3LGO3T&(+Z&4"M&J+IF/IWZ.-V1.
R1.,B2.,B2.MFJ64*I*=/Z.1B0*0:02*3F7OSA6(+I"56)2J&I3F&(+Z66*1&5*125*220"260.JV1.I7Z/ZF+.0B0*0:02*3F7OSA6(+I"66)2J&I3F&(+Z67*1&5*126*220"260.JZ1.I7Z/ZF+.0B0.0B02.Z*3LGO3T&(+Z&7.MJJ60JI7EWTR7N2JVIN7D&J*L

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