File ATSG.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 SAS7G"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 SN+ICM3P	O7NOT2 [O* CA7G[I+ECN3G;E3EGR7LR 3A3B3EF +RCE3S3E7ESC+ECD3ASN2M
J* B * B * B 2 > 3RWD3RSE6 WS+CCH3TGH3TF +BS3A
R*(	I*-	X2.WG2.KA3SF(+RG+J6)+XB)+ICF3I^.3T*.".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7AOT+G" 7X*,*,3F7WKO3K&,7R
O2,OI+O3L3A
R2,GV3L:,3D7I")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +XB * B * B-3TWH2 WS3AOR3HF 7RWG3M;ET6.*JCC* B * B * B * CZ* B * 6 2 T7EZ 7ESC+OCR+OCF3A
R3UWM+NCT3V3A7UOE2 R(3IWM3N	S+OCN3I?R+W:)2MNJ* B * B * B 2 Z * B * B 2-& 3NN 3AWS2 OI/O7L*1B,3F& 7SR +HCE3VOE7TKO2 [O6 WF7NSC3I;O2 GV3LWUS*M+CB * B * B * B * B * B * B 2(	D3M;E3S?I3N& 7R
O")6.*JCC* B * B * B * B * B * B 2 ;I2 GC+SCE3I?C/LJ=2,Z 6 OI2 ;A6 KI+OCW+BCY226 7AKT+I;X2 T3EZ 7IORT*M+CB * B * B * B * B * B * B 3C3O3U;M6 CS3E	C3FWI7SR +HCE3VOE7TKO2 [O6 WF7NSC3I;O2 GV3LWU3SF N7D*JCC* B * B * B * B * B * B 2 T7EN 3E?C+NCD3TWH2 WV3C?T3R
 3FR 3E	R7VSA3IWVS6.*JCC* B * B * B 2 ?W+RCK* 6 * CA7WKO3K;I7GN 7TKO3AWG2 R(3IWM3N	S+OCN3I?R+W:)2MNJ* B * B * B 2 & 7R
O* B 6-R +HCE3D7I7EON3I;O2 [O2 WV3C?T+RCS3ZF +NCD7WKO3KF +NCD+OCF3EOAH*M+CB * B * B * B * B * B * B 3C3O3U;M2 ;I2 GM3T	R3XZ ".*M+CB * B * B * B 3I?C+LB * B-3TWH6 WN3MWB3R> 3FN 7OWL7MON2 ;I* CF*(;I+EB.21> /RJ ")6.*JCC* B * B * B 6 KA+GB * 6 2 T7EJ 7EWS3L	T
NCG3VOE7TKO2 [O2 WS3LOE3TSE2 ;A3D> 3RWD3RSE2MNJ* B * B * B * B * B * B 2 F 7RWG3M;E7TZ 7AWL+ECS2(	D3M;E3S?I3N: 3D7I")6.*JCC* B * B * B 2 GV+LB * 6 2 T7EJ 7EWS3L	T+NCG3VOE7TKO2 [O2 WS3LOE3TSE6 WF7NSC3I;O2 GV3LWUS*M+CB * B * B * B * B * B * B 2(	D3M;E3S?I3N
 3D7I2)& 3NN 3AWS2 OI/O7L*1B.+ICN7COA3E& 3C3O*=222MNJ* B * B * B * B * B * B 6 Z +ACL+ICS3TWH2 WV3C?T3R> 3FZ 3UON3T?I3NF +NCD7DKE3IGV7T[I7EZ 7AWLE7S*JCC* B * B * B * B * B * B 2 R(3IWM3N	S+OCN22:*3D7I6)^ 3HOI3HF +RCE3S?T3RSE2 ;I2 GP7IOR2 &(*.;E2MNJ* B * B
* B * B * B * B 2 V 3AC6 WF7NSC3I;O2 GV3LWU6 OI2 ?F3L?L3WSE6 	B6 SI3SR 3E	R7VSA3IWV2MNJ* B * B * B * B * B * B 6 Z 7AWL+E:)2MNJ* B * B * B 2 : 3D7I* B 6-R +HCE3N7U7BKE2 [O2 ?P7ISN7S^ 3HOI3H6 7USS2 WB2 WS3LOE3TSE6 WO3T> F*M+CB * B * B * B * B * B * B 3TWH2
	G3V;E2 GT3BWL6 *(*,	F".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B +NCO7ASC3I;O2 ;I2 GC+SCE3I?R3W2 7EOS2 T+ACN"16.*JCC* B * B * B 2 [I2 ;I7PSU2 GV3LWU2 SN+ICM+ICS3GWR3AWT7RR 3H;A6 KI+O3W2 T7EB 3R
O3R7A2MNJ* B * B * B 6 N 3EWL7COT2 ;O+LCY3A6 3A	X3M7U2 GT3BWL2 [O6 KI+OCW3P	O7NOT*.B 3TWH3R[E3OWR2 TE*M+CB * B * B * B 3UWS3R> 3UG7TR 3ON 3HOE3KN 7OKR7ECS3OSN3EON3EJ 7E
T3E;E2 GT3BWL2 F(+R3G3V3A")*M+CB * B * B * B 3ASN6 SI3SR 3IWM3N	S+OCN+BCY3C7O7PKA3I?S3N> 3F: 3D7I2 ;A3D& 7R
O2,& 3N> 3RWDR*M+CB * B * B * B +TCO7GSE2 ?C3RWR+CCT7ROE7USL3S& 3NZ 7USR7HKE2 ?W+RCK7WSI7HR 3A3B+E" 3A
R2,GV+L:)2MNJ* B * B * B 6 R 7HOI2 WT+SCT7M	A2 WB2 ?D+NCE3B[E3OWR6 KO2 [A7TKE2 GC3L	LN7G*JCC* B * B * B 6 WS3B?R3U	T+NCE7AOTG6.*JCC* B * B * B 6 WS3B?R3U	T+NCE7AOT3GV 3SWP3CGI7L	L2 GC3NJ 7EV 3SSE2 ?F3R^ 3EWN7RSA3I
N2 TE*M+CB * B * B * B 3TKA+LCE6(KA7GZ,+A	L2 WN3EWD3D& 7NN 7UKB7OSU3IWN3SF +L3I2 A+IB,3ASN2 OA+F;I2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3S3E7ESC3I;O
 OI2 ?D+NCE+BCY3G;E3EGR3T;I7GR +HCE3VOE7TKO2 ?W+RCK7WSIH*M+CB * B * B * B 3C7O3P;O7ESN7S^ 3O/R*(	I2=KA7S*(*(	I*-	X2 ;A3DF 3TV 3AC2 [O2 T3E: 3D7I6 SS7EOP2MNJ* B * B * B * " +OCR3I?R7WN 7TCE3S& 3F: 3D7I6 OI6 KG7ESA+ECR3TGH3N& 7R
O")*M+CB * B * B * B 3SGE3RC3I
N2 ?F7RR +HCE3SKU7SKC7ISP2 [O2 T7EN 3M3A7LOE3TN 7OCM3OWN+N3T2 W3IC2MNJ* B * B * B 2 & 3SF 3FWT3RGW7ROD2 WR3PGL3CSE6 	B* CA3N7U7BKE6 KG7ESA+ECR3TGHN*M+CB * B * B * B 7MA2(?W+RK+I&)".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*
:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 SA+SG7X*,*,3F7WKO3K&,7R
O2,OI+O3L3A
R2,GV3L:,3D7I")*MC*MC*M* B * B 3D7I7EON3I;O* Z*12)/FF(6)^,3O/R*(&16,KA/GF(6)Z,+AL"16)*JB * B 2 [I6(KI+O	W*121*121"1*M* B * B13N:=3D7I2MNJ* B 2 & 3F: 6 OI6 KG7ESA+ECR3TGH3N& 7R
O2,: 6 OI2 WS3TV 3QGU7LR 3O& 7R
O".*M* B * B +IF3N&-7R
O*)23.3J,*MBJ* B 22: 6=KIO7W"J7C*JCC* B 2 WG7NKE3A	T+OCN+OCF3VOE7TKO2 ?W+RCK3ASN2 ?C7MWP7TSA3I;O2 [O6 SI3S^ 3RGE7TOE3TV 3L7E7ESN".*M* B * B3/BB=".*M* B * B +DCO25& *=213I?RW*M* B * B 3D3E/T7A7AOB*(Z+I6)X6)*JB * B 2 [I2(WD3LGT*-	B.5V,",64*JB . R . 7B3D3ET7
*JB . V 2 ?W+RK/I6)3D3ET7A"J7C*JCC* B 2 WG7NKE3A	T+OCN+OCF3TKA+LCE6(KA7GZ,+A	L*MBJ* B 2 J *=/B"16.*JB * B 2 ?D. B1. 7J21:,*MBJ* B 2 R 7ESL3AJ=*MBJ* B 2 R /O^ . 7I21&,7R
O*MBJ* B 2 & 7F^(3O/R*(	I2-WD3LGT*)26.7^,*MBJ* B 26& 3I&=*MBJ* B 2 R 7ESL7A^=3O/R*(	I*MBJ* B 27N 7OSN7IWNE*M* B * B 3A
R*(	J*=Z+I	I*MBJ* B 2 & 3F&(3C3O*-&1.8&,",68*JB . " 2 GV/LJ(**7J.16)3F&(I6)*JB * B 2 	I3I&=3I&+7R
O*MBJ* B 6 Z +AL22**2)Z=2(	II6)*JB * B 2 ?G+TCO"160*JB . & 2 GV3L*(2)Z=2(	I")*M* B *1B07WKO3K&(/I6)B*M* B *1B17RSE3U;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"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