File ATSE.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 SAS7E"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 SN+ICM3P	O7NOT2 [O* CA7G[I+ECN3TKA+LCE7WSI3HV 3Q	U7DOI3T;A3TF 7RWG3M;E+T
S3AWR2MNJ* B * B * B 6 N 3EWL3CWT3DF +NCD3OSR3EWR7DN 3UC2 TA7T*JCC* B * B * B 2 KA3SF(+RG+I6)+X:)+G;E7AOB6(KA3G*(6)"-2)& 3F& 6.SG*.;J2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LF 3TWS6 "(6,OZ6,+D*,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 * +SB * B 6-R +HCE3SGT3R	T+NCG3V3A+UCE+OCF3A
R3UWM7NOT".*M+CB * B * B * B +DCZ* B * B-3TWH2 ;I3CWR3M;E3T> 3FF 7RWG3M;E7TZ 7AWL+E;S2MNJ* 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 6 KI+OCW* 6 2 T3ER 3IWM3N	S+OCN+OCF3EOA3HN 7OWL+MCN+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+L;E2MNJ2MNJ* 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 3TWS".*M+CB * B * B * B 3SKU7RWO3T;I3EF 3TWS6 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 3YN 7OCM3U	T+NCG3TWH6 WS3BOS7RCI3T* 2 [O2 TA7T*JCC* B * B * B 6 KA3G7U7ESN6,^ 3HOI3H& 3S: 7ESX2 ?T* ;X2MNJ* B * B * B 2 F 3FWT3RGW7ROD2 WN3IG7BWO
R;I3GF 7RWG3M;E7TZ 7AWL+ECS3AWR2 WT3SWT3DF N7D*JCC* B * B * B 2 WS3LOE3TSE2 ;I2 T3EF 7B[O7EN 7EONE6."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3EF 3TWS*(3X+Z3S+D3Z3F&,7R
O2,OI+O3L3A
R2,GV3L:,3D7I")*MC*MC*M* B * B 3D7I7EON3I;O* F*12)3A
R*(&12,GV/LF(")*M* B * B +IF3I?R/WF-.)&1.,^1",61"J7C*JCC* B 2 GC+SCE/D7Z20& 3SN 3HOE3KSE6 WOT*M* B * B1+IF+D	Z.2F,.7J,*MBJ* B 22: 2=SNI7M"J7C*JCC* B 2 [I* CN+ICS3GWR3AWT7RR 3H;A6 KI+O3W* CN+ICS7SSE6 GE3U3A2 ?T6 KI+O;W*MBJ* B 2 & 3F:(6-KI+O	W.4R,",63*JB . 
 . 7N3I?RW*MC*M+CB * B 3C7O7PSU3A	T+OCN+OCF3SGT3R	T+NCG3SKU7SKC7ISP* ;J*MBJ* B 24* 6="(6-OZ2)R//ZF+".65*JB * B 2 [I*(	J.5V,",66*JB . V . 7J"1*M* B * B6+IF3J&-7R
O*)28.8^,*MBJ* B 27* 6=KIO7W"J7C*JCC* B 2 WG7NKE3A	T+OCN+OCF3TKA+LCE3A
R2,GV3L& 3NN 3AWS6 +D2.WN*.:0*MBJ* B 28& 3I*=*MBJ* B 2 * /LB=*MBJ* B 2 * /RB=*MBJ* B 2 R /OF 26& *=21N*M* B * B 3A
R*(	I6=OZ2+3F7OSA2(	I*-&16*+D*MBJ* B 2 & 3F&(3C3O*-&2.9F,.0F,"0*M* B * B93V3A*(	I*=F+I	I*MBJ* B 2 ^ 3O?T. F1*MBJ. F 60Z +AL22&**-&1*=F+I	I*MBJ* B 2 & /I7I+I/I3I?RW*M* B * B 3V3A*(*2/I6)3F&(+I	I*MBJ. F 21& 3F*(6+KJ6-KI+O	W*122*125"162*JB . J12 [I*(7J+J7L.1
).3F,.4F,"3*M* B *1B3+IF6(KA3G&(6)"-2)R*/ZF).4F,.5F,"5*M* B *1B4/J7R+J/R"1*M* B * B /I7I3J*+R*M* B * B 7GSO/OF "6*M* B *1B5/J7L+J/L"1*M* B * B /I7I3J*-L*M* B *1B63C;O3T;IU7E*JB * B 2 WR7TKUN*MC*M+CB * B 7COA3ER /ZB=*MBJ. F 27F +RG.16)Z7S*JB * B 2 GV/LF(2)
=*(&1*MBJ* B 2 & 3F&(3C3O*-&2*129*129"168*JB . "12 GV/LJ(2)Z=*(&2*MBJ. F 69J 7EWTR7N*JB * B 2 ;ED*M"ZB"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