File ATSM.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 SAS7M"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 SN+ICM3P	O7NOT2 [O* CA7G[I+ECN3TKA+LCE7WSI3H6 3O?N3T;O+ICC3A
R3UWM7NOT6 KAE*M+CB * B * B * B 3S3E7ESC+ECD3ASN6 KO7DKE+ECD3SOU7HR 7HSA2MNJ* B * B * B 2 F +BS3A
R*(	I*-	X2.WG2.KA3SF(+RG+J6)+XB)+ICF3I^.3T*.".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7AOT+M" 7X*,*,3F3I?R3W&,3C3O6,KA7GZ,+A3L3N	DM6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CX* B * 6 2 T7EN 7EKA+CCH3A
R3UWM+N;T2MNJ* B * B * B 6 * * B * B 6-R +HCE3VOE7TKO2 [O6 KA3G7U7ESN2 GV3LWU+S" 3D7I7EON3I;O6 KI+O	W".*M+CB * B * B * B * B * B * B 3TWH6 KA3G7U7ESN2 GV3LWU3S6 7USS2 WB6 SS3OWR3D& 3N& 7NKC7EOA3I
N2MNJ* B * B * B * B * B * B 2 > 3RR 7EKC7EOA3I
N2 WS3QWU3NWC".*M+CB * B * B * B +FB * B * B-+ICN7COA3E& 3C3O*=21* CF+ICS3TWH2 WV3C?T3R> 3FZ 3UON3T?I7NZ 7AWLE7S*JCC* B * B * B * B * B * B 2 R(3IWM3N	S+OCN3I?R+W:)2MNJ* B * B * B * B * B * B 2 & 3NN 3AWS2 OI/O7L*2B,3F& 3SF 3N& 7R
O6 	B* B27MSA7RI6.R +HCE7FKIS7T*JCC* B * B * B * B * B * B 2 ?C3L7U7NN 3POE3I	F+ECS3TWH2 WV3C?T3R> 3FZ 3UON3T?I7NZ 7AWL+ECS3ASN2MNJ* B * B * B * B * B * B 6 R +HCE3SOE3OSN2 T7EZ 7ESC+OCR+OCF7DKE3IGV7T[I+E;S2MNJ* B * B * B 2 & 7R
O* B 6-R +HCE3D7I7EON3I;O2 [O2 WV3C?T7R* 2 ;A3D> 3FV 3AC2 ?C3L7UN*M+CB * B * B * B * B * B * B +ICN7MSA7RI* ;F2MNJ* B * B * B 2 & 3C3O* B 6-R +HCE3N7U7BKE2 [O2 ?C3L7U+NCS+ICN+F" 3IV...F 6 KO* &2".*M+CB * B * B * B 3A
R* B * B-3TWH2 WR3S3U3T;I7GZ 7ESC+OCR+OCF3S3E7ESC+ECD3ASN6 KO7DKEE7D*JCC* B * B * B * B * B * B 6 KA3G7U7ESN2 GV3LWU+S" 3D7I7EON3I;O2 SN+I	M".*M+CB * B * B * B 3V3A* B * B-3TWH2 WR3S3U3T;I7GZ 7ESC+OCR+OCF3S3E7ESC+ECD3F;U3C	T+OCN3V3A7UOE2MNJ* B * B * B * B
* B * B * " 3D7I7EON3I;O2 SN+I	M2 ;I2 GC+SCE3I?C/LF=2.& 3NN 3AWS2 OI/O7L"26,*JCC* B * B * B * B * B * B 2 GV3L& 7SR +HCE3VOE7TKO2 [O6 WF7NSC3I;O2 ;A3DR 3E	R7VSA3IWV2 GV3LWUS*M+CB * B * B * B * B * B * B 2(	D3M;E3S?I/NJ 2*SN+I	M2 W3IC6 KA7EN 7TKO+ECD+ICN3P
A+RCS*(;IE6.*JCC* B * B * B * B * B * B 2 GE+CCH3F;U3C	T+OCN3V3A+UCE+ICS3F3O7L
O+ECD+BCY7IOT2 WD7R[I3A	TV7E*JCC* B * B * B * B * B * B 2 GV3LWU")6.*JCC* B * B * B 2 SN+ICM* 6 2 T3E: 3UKM+ECR+OCF3P	O7NOT2 W3IC6 WM+SCT+BCE3S3E7ESC+ECD7OSU2 [O2MNJ* B * B * B * B * B * B 6 R +HCE7G[I+ECN3TKA+LCE*(3Z+F:)2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* 
 * B * B 2 : 3OF 3C	T+OCN+ICN7COA3E& 7R
O2 WL+SCS3TGH/NF ".*M+CB * B * B * B +ICF7ICN+UCT3V3A+UCE3N	D3M& 3S^ 3RGE7TKE2 T+ACN3I?R+WB,3TWH6 KP7OKGA7M*JCC* B * B * B 2 WS3LOE+TCS3O3N3YF 2 GM3X7I+UCM3TKA+LCE+OCF3I?R7WB 3O;I+T;S6 R 7HKE3E?F+RCE3TWH2MNJ* B * B * B 6 V 7SKE6 WO7GSH2 ?T2 C3E/C2 ?C3RWR3
?P3NWD3NWC2 WB3TWW+ECN3TKA+LCE6(KA7GZ,+A	L2MNJ* B * B * B 2 F +NCD7IOT2 	D3M;E3S?I3NJ 3YN 7OCM3A	R3S;O2 [O2 SN+ICM3ASN6 KI+O3W2 ;I6 KO7DKE2MNJ* B * B * B 6 R 3O^ +ECT7CKO3ROE7TJ 7EWS7LOT2 ;I6 WF3RT+ECR7WKO7K^ 3IT2 GT3BWL2 F(+R3G3V3A")6.*JCC* B * B * B 2 T
ICS7TOE3T6 +ACY+BCE3D;O3EJ 3E?F+RCE+OCR7ASF+ECR3C3A3L;IG*M+CB * B * B * B 3SKU7RWO3T;I3EF 3T7S".*M+CB * B * B * B 3SKU7RWO3T;I3EF 3T7S6 OE3POE3I3A+LCY3C;A2 WB6 OU+ECD7FKO2 WG7NKE3A	T+NCG3TWH2MNJ* B * B * B 6 R 3A3B+E" 3A
R2,GV+LB)3NWE3DSE2 ;I6 WS3B?R3U	T7NOE2 3A+IB,3A	H2,F +NCD3A[CI6."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 6 N 3EWL3C	T+OCN+ICS3D;O3EJ 7YN 7EKA3C	H+NCG3TWH6 WS3BOS7RCI3T* 2 [O2 TA7T*JCC* B * B * B 6 KA3G7U7ESN6,^ 3HOI3H& 3S: 7ESX2 ?T* CX2(	B7NKA7YN 7EKA+C	H".*M+CB * B * B * B 7AS
7E
R3ASR3S: 3E
I3H?B3U	R+NCG3A
R3UWM+NCT3V3A7UOE6 KA7ER 7ESS+ECD3ASN2MNJ* B * B * B 6 N 3EWL3CWT3D& 7NR +HCE3A?B+VCE3S;E+S;E2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE7AOT7M"(*,3Z3F&,7R
O2,OI+O3L3A
R2,GV3L:,3D7I")*MC*MC*M* B * B 3D7I7EON3I;O* Z*12)/FF(2)F,+RG*12)3V3A*(&12MNJ2MNJ* B 2 N 3AWS6 KI/O7W21& 3SN 3HOE3KSE6 WOT*M* B * B +IF3I?R/WF-.)N2.,F2",61*JB . F . 7N3N	DM*MC*M+CB * B +ICF3N& 3S^ 3RGE7TKE2 T+ACN3I?R+WB,3N& 7SN +ECT7EWQ+ACL+TCO3I?RW6.*JB 
 B 2 [I*(7N3I?R/WN)*,23"2*M* B * B23N&=7R
O2MNJ2MNJ* B 2 N 3AWS6 KI+O;W+G;E"2*M+CB * B 3SGE3RC3I
N2 ?F7RN 7UOB3C	R+PCT7JN 3UC2 T+ACT3Z*(2)& 3S: 7ESX2 ?T* ;X*MBJ* B 23& 7F*(6(KI+O	W*-Z*1&).5R,",64*JB . R . 7J3I?RW*M* B * B /IF=*MBJ* B 2 ^ 3O?T" 66*JB . V . 7I3I?RW*M* B * B /JF=*MBJ* B 26. 2=*(*+	I"/62*JB * B 2 [I*(7X3Z.(.)^)*,27"8*M* B * B73J.=*MBJ* B
2 ^ 3O?T" 69*JB . " . 7IK*M* B * B9+IF3IKA3S*(*-	I*-&1*120*120"6*M* B *1B0+IF7AOB*(Z+J6)+X6)7AOB*(Z+I6)+X&)*122*122"161*JB . F1. 7JI*MC*M+CB * B 3TKA+LCE3S3E7ESC3I;O*MBJ. F 22. "=7J*JB * B 2 3J"=60*JB * B 6 KJ"=60*JB * B 2 ?D. B2. 7I21:,*MBJ* B 2 F +RG/I6
3Z.(")*M* B * B +IF3I?C/LF-.)R1.,R1.,N1*MBJ. F 63Z +AL22&**-&1*=FK6)*JB * B 2 /K*=/K3I?RW*M* B * B 3V3A*(*2/I6)3F.(K6)*JB * B 2 ?G+TCO"165*JB . R12 GV3L&(2)Z=*(	K*MBJ. F 25* /J7R3J*+R*M* B * B +IF7JKJ6-KI+O	W*126*128"168*JB . Z12 +J3L*=2-3J*MBJ* B 2 & 3F*
+J7L.1F).9F,.9F,"7*M* B *1B7+IF7AOB*(Z7JKJ*+&1*-	X2-KA7S*(2(+J/LF-6)"-.)F).9F,.9F,"8*M* B *1B8/J7L+J/L"1*M* B * B 3K*=2-3J*MBJ* B 2 ^ 3O?T. B2*MBJ. F 29* 3R*=/RF+*MBJ* B 2 . *=/JJ7R*JB . B22 ?C3N	T3NWU*MBJ* B 6 J 7EWTR7N"J7C*JCC* B 2 GC+SCE3I?R/WF=*MBJ. J
21F +RG.16)/ZF(")*M* B * B 3V3A*(&1*=F"16)*JB * B 2 [I2(OI+O7L.2J).3J,.2J,"3*M* B *2B23V3A*(&2*=F"26)*JB . N22 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

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