File ATEIG.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 SA3E
I2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 7OCM3UWT2 T3EV 3IWG3NGV3LWU3S> 3FF 2 WR+ACL3A7L7OSS6 KT3I;A3G3U+ACR7MSA7RI2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LF 3T	E3G6(*,3A+R3R+R3I3I;A3A&,A6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 T7EB 3AGR7MSE7EOR2MNJ* B * B * B 2 6 * B * B 3OSR+ECR+OCF3TWH2 GM3T	RX*M+CB * B * B * B +AB * B 2 T3E& 7NWP3T6 7AKT+I3X* CM+BCYM*M+CB * B * B * B +RCR* B 2 WV
C?T3RN 7OSN3A;I3I
N2 T7EJ 3E3A2 GP7ROT2 [O2 T3EV 3IWG3NGV3LWUS*M+CB * B * B * B * B * B 2 ;O2 WR7TKUN*M+CB * B * B * B +RCI* B 2 WV3C?T3RN 7OSN3A;I3I
N2 T3E& 3M
A3IGN+RCY7PKA+TCS+OCF3TWH2 	E3G;E"-*M+CB * B * B * B * B * B 2 GV3LWU3S> 7NJ 7EWTR7N*JCC* B * B * B 2 GI+NCA6 Z 7ESC+OCR3W?H+SCE3D7I7EON3I;O6 WM+SCT+BCE3GWR3AWT7RR 3H;A6 KO6 GE3U3A2MNJ* B * B * B * B * B * B +TCO+MB,3C;O3T	A3N;I3G> 7NJ 7EWT+RCN3ISN3IGC3T?
+NCS3A?B+UCT3TWH2 GWY*M+CB * B * B * B * B * B 2 T3EV 3IWG3NGV3LWU3SF 3PWP3AWR+D" 3SWE2 GM+T;H2 WD7SKC7ISP3I;O")*M+CB * B * B * B +ICA* B 2 	S+ZCE+OCF3TWH2 	F7RSS2 	D3M;E3S?I3NF 3S	S3GWN7DR 7OR +HCE7AKR+ACYA*M+CB * B * B * B * B * B 2 ;I2 T3EN 3A3L3I
N6 KP7OKG+ACM3WWH7NR +HCE7MSA7RI6 OI2 ;I2 ?D3U3BE*M+CB * B * B * B * B * B 6 WS3BOS7RCI3TSE2 GD+TCA3S?T3R
A3E6 3OWD".*M+CB * B * B * B * B * B 2 GI*=CM3WWH7NR +HCE7MSA7RI6 OI2 ;I6 OS7PZ 7ESC+OCR3S?T3R
A3E6 3OWD".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3TWH6 KO3I	G3N3A2 GM3T	R3X& 3SR 7ESS7R	OE7D*JCC* B * B * B 2 T3ER 3IWM3N	S+OCN+OCF+RCR3ASN2 	R6 WM+SCT+BCE3GWR3AWT3R> 3RV 3QGU7LR 3O6 2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+M
S7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B +QCR7DWO3BWL6 SI3EGR3T?IN*MC*M+CB * B * B 3R[E3EWR3NWCS*M+CB * B * B * B 3J^.*.;F6 KF3AON+ICS6-R +HCE+QCR3TGR3N[S3O7R3A	T+O7N6-R-+HCE3C7O7PSUE7R*JCC* B * B * B 2 ?J3U;R+A3L2 ?V+
B.*4B,+N;O* 232 OO3TKO+ECR.1Z9*1B,3V3O..R 2,: +OB.*4B,3J;A7UKAY*M+CB * B * B * B .1Z9*2B.* ;J* ;H2 	W3L	K3N?S+N6 2 T3EF 3LWG3BGR+ICC3E
I7E[N7AWL7EB 3RKO3L7E" 6-*JCC* B * B * B 2 3C3AWR3N?D7NB 7ROE+SB,3O[X3OSR.,F .9V6".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 SA3E
I*(3M7AJ,7RJ,3I&,3AGN2,GI")*M* B * B 3D7I7EON3I;O* A*12)+RR*12)+RI*12)7PKR*(&26,KP/IJ(2)&,3AGN*(&1*MBJ* B 2 & 3NWT7GKE* 3P+P21Q*MC*M* B * B /E67.1B./E"-*MBJ* B 2 V .6F=2.V0"-66*JB * B . GE.0F=2.V0.-B1*MBJ* B 2 R 7ESL/AB=".65*JB * B 2 GM7XSI.=B32MNJ2MNJ* B
* B 2 & 7NSI3I3A3IGZ3T?IN*MC*M* B * B 3N6=*MBJ. J 20: 21:="-61*JB * B 2 ;I.=GN2*GI*MBJ* B 2 : 3N&=3N:+*MBJ* B 2 & 3F:(*1B)*320.1B3.0N,"0*M* B *3B0/N7P/NF+2MNJ2MNJ* B * B 2 & 7TKE3A	T+OCN7CWO3NWTR*MC*M* B * B /I7T"0*MC*M+CB * B * B 3R?O+TCS+OCF3TWH2 :23D> 
RWD3R6 3A;I6 WS3BGM3T	R3XF 7TR +HCE3PWR3V?IU7S*JCC* B * B 6 SI3EGR3T?IN*MC*M* B * B +DCO*4B0/IF=",62*JB * B 6 KP3R&(.)B=".60*JB . B46 KP3I&(.)B=".60"J7C*JCC* B * B 2 GL+SCT3T?W6 WS3B	D3A?G3N3A2 3E3EWM7NOT6 SA2 T7EB 7R[E7IWO3S& 7TKE3A	TO7N"J7C*JB * B 2 GP/
B=".60*JB * B 2 GP/N61.0B.2MNJ2MNJ* B * B 2 > 3R
I+ICN3S	HF7T"J7C*JB * B . 7R.0B.*MBJ* B 6 N *=:0"0*MC*M+CB * B * B 3R?O+TCS+OCF3TWH2 ?L7WKE2 GM+ICN22J /YJ 6 WS3BGM3T	RX*MC*M* B * B /N62+N61"1*M* B * B /IGN2=;I2-GI*MBJ* B 2 : /N61/IGN"+7N*JB * B . GN3N&=3N:+"1*M* B * B 3N:121&=+N.1N61*JB . B6. 7T3A:(.1G
2)F-2(;N")*M* B * B 7UR="*7T*JB * B . 7V.4B.**A3N:12)F*2(;N"16)*JB * B 2 [I2(KA7SZ(6)V-.*
E.)F *020.1B0.,V6*MBJ. Z 65R *=/UV*M* B * B +IF7AOB*(	T2-7A/AGX*(3U7AOB*(	V2)V**6B)*627*627"668*JB . ^6. 7T.0B.*MBJ. Z 68V 2=F(.(GN+N&1*+A+N	N.)J/".60*JB * B . 7V7SKQ3TF(+BS+T&)*/:2"0*M* B * B +IF/TF)*420*720"760*JB . B72 [I*(	U. B8.,V7.,V7*MBJ. ^ 65J 3R:
.16)7UZ+*MBJ* B 6 J 3R:(6)V="-7V*JB * B 2 ?G2 ?T. N1"0*M* B *8B0+RR+N&1*=7UV*M* B * B +RR/N6)7UZ+*MBJ* B 2 ^ 7OR /OF "360*JB .1B02 [I*(	T.1B2.,F1.0F,"160*JB .1B16 KR.(GN2)F=.(GN+N&1*MBJ* B 6 J 3R:(2)F=2(;N")*M* B * B +GCO+TCO.1B3*MBJ. J160J 3R:(.16)3A:(N6
*JB * B 6 KR*(	N*=A3N:1"16)*JB .1B32 	R*(	N*=:0"0*M* B * B +RI+N&1*=:0"0*M* B * B +GCO+TCO.1B6*MBJ. R160J 3R:(.16)U*M* B * B +RR/N6)U*M* B * B +RI+N&1"=7V*JB * B 2 	R*(	N6=Z-*MBJ. Z120& 3F:(.2F).2B8.,J1*820.1B82MNJ2MNJ* B * B 6 R 7ESS3S> 3FN 7O[N3E
R3EONE*MC*M. F *8B03N:122:=.1GN2-GI*MBJ* B 6 J 3MSO6=KR.(GN6)J*3R:(*1.)+RI+N&12*	R.(GN")*M* B * B 7EOP.=GE60N*7QSR2(7R+O	D*MBJ* B 2 & 3FF(+BS3A:(.1KN*)6)7EOP.)J1*820.1"2.0J,"460*JB .2B42 [I2(KA3SF(2(;N*1&).-GE20F*+BS3A:(+N&).)F .3B0.,N1*020.2B5*MBJ. V220&
3FF(+BS3P;A21F-.(GN+N&22)F-+BS3A:(.1KN*)*)+E&6. J1*420.1R2.0J,"660*JB .2B62 [I2(KA7SB(+A7N3A:(+N&12)F-+BS3A:(+N&12)V*.6F).2B4.,J1*420.3B0*MBJ. B320& 3F&(3T6-3A	X+TB).3B2.,J1*420.1R2"0*MC*M+CB * B * B 3C7O7PSU7ER +HCE3S	HF7T"J7C*JB .3B2. 7J"1*M* B * B +DCO
3B6. 7I.1J,*MBJ* B 2 . 6=CN"-7I*JB * B 2 [I2(KA7SJ(3R.(6)B-+RR+I&)2+KA7SJ(3I.(6)B-+RI+I&)2-WD3LGT2*F(+BS+RR+K&)*MBJ* B * B1* B 2+KA7SJ(3I.(*)&).)N *420.3B6.,Z3"0*M. N *4B03J*="+7I*JB .3B62 ?C3N	T3NWU*MBJ* B 2 ^ 7OR +O" .4B4.,Z4.0R,*620.4B82)*,*MBJ. R460J 
=:0"0*M* B * B /SB=".60*JB * B 2 ?G2 ?T. B5"0*M. R *6B03J:=*+62J*M* B * B 7RJ=3R*(6)J*3R*(")*M* B * B 7SJ=3R*(6)J+3R*(")*M* B * B +GCO+TCO.5B0*MBJ. "460J 6=KR*(	N6*KR.(GN6)J-3I:(6)J*3I:("16)*JB * B . 7S+RR+N.)+RR+N&12MNJ2MNJ* B * B 6 N 3AWV2 T3E2 7ASS6 
T7ON 3USB3I
A3OGN7LR 3E7R3SF +NCD3TWH2 ?R7OOT2 [O2 TE*M+CB * B * B 3SKU7MSA7RI2 WB7FKO3E& 7TKE3A	TO7N"J7C*JB .5B02 GP3NF=2(;N"16)*JB * B 2 GP/N613A:(.1KN")*M* B * B +DCO.5B2. 7I.1J,*MBJ* B 2 . 6=CN"-7I*JB * B 6 KP3R&(6)J=3R.(")*M. V *2B03P	R*(	I2=	R*(	K2MNJ2MNJ* B * 
 6 N 7EKA+CCH7FKO* CA7PKA7TSI3I;O2 [O2 T3E6 7AKT+I3X2 WD3F;I+ECD+BCY3PF +NCDQ*MC*M* B * B 3P:="2*M* B * B +ICF*(7N.3Z)*020.6B0.,J5"5*M. V *2B53I	P.=GNN62*JB * B 2 ?D. "520* *=22N62*JB * B 6 CI3I&=+P7I+I7A"1*M* B * B +IF7AOB*(A3I	P*)6)7EOP.)Z *020.6B0.,N5"
*M. V *3B03I	P3P&=+P/II7A*JB * B 6 CI/IKP6=CI+I/PI7A*JB * B . 7D3A&(7PCI*)"*3A&(7PCI6)N-2)F+6(CI/IKP2)F*6(CI+I/P*1.)R*M* B * B +IF/DV)*420.5B6.,R5"0*M. V *4B0+IF7AOB*(A3I	P2)F*6(CI+I/P*1&)2*F(+BS3A&(7PCI2)F+6(CI/IKP*+&1*-	S2+KA3SF(6(CI/IKP*+&2*MBJ* B * B1
)B)2-KA3SR(2)V*+P	S. J6.0Z,*220.5B6*MBJ. Z560B .=GN"-7J*JB .5B82 ?C3N	T3NWU*MBJ. B660F "=7P*JB * B 2 ?G2 ?T. "6"0*M. Z *2B0/P61/PF-*MBJ* B 6 F .=GP*MBJ* B 2 & +F" +P61*1B).6B8.,"6.0Z,"560*JB .6B52 ?D. Z620& *=22. GP*MBJ* B 2 & /P7I3I	P2-GI"-61*JB * B 2 [I
(KA3SF(6(CI+I&)6-CE/SZ)*820.6B8.,Z6"0*M. Z *6B07QF="-61"J7C*JCC* B * B 6 KQ2 ?D3U3B3E& 7TKE3A	TO7N"J7C*JB .6B82 	I6=B(*-&12*GI"+7P*JB * B 2 ?D. J1*2B07IB=.,GN*MBJ* B 2 & /I61+I7II7A*JB * B 2 	I3P&=3I&+A*M* B * B +IF7IB-.)J7.0^,*020.7B2*MBJ. B720& /P7I+I/I
1*M* B * B 3I	P3P&=+I/P"1*MC*M+CB * B * B 3I	N3TGI7L+I3A	T+OCN+OCF3TWH6 KT7AON7FKO7MSA3I;O2MNJ*MBJ* B 2 ^ 21F=2(	I*)"*3A&(+I6)+S.)3A&(+I	P**A3I	P6)J+*MBJ* B 2 ^ 22F=6(CI+I*)*(A3I	P+P.)3A&(+I6)S6)*JB * B . OG*=A3I	P2)F*6(CI+I/P"16)*JB * B * A3I	P*+&1*=:0"0
M* B * B +GCO+TCO.7B8*MBJ. J720^ 21F=2(	I"16)*JB * B . KG*=A/IGI*+&1*MBJ* B 2 & 3F&(.-KN.)R7.0^,*420.7B6*MBJ. R720^ 23F=2(	I.1J+")*M* B * B +GCO+TCO.7B8*MBJ. Z720^ .3B=".60*JB .7B82 GC7PN=7QSR.(GG.*GG.+KG.*KG.+OG.*OG")*M* B * B +IF7CCA.)B8.0",*620.8B0*MBJ
 B820& 3F^(.1")*220.8B4.,R8"0*M. " *2B07CCA2=N-A7P*JB .8B4. 7T+G.17CCA*MBJ* B 6 B /SGI.=KG"/7T*JB * B 6 OP/I62+G>3T*M* B * B 7ACL/H7A.2B../F(*..03P	S61B*/SGI6+OP+I*23P	S"26)*JB * B 2 ?G2 ?T. "8"0*M. " *6B07ACL/H7A.2B.*MBJ* B 6 B /SGI*=:0"0*M* B * B 3P	S.2
=".60*JB .8B82 [I*(7I/Q&)*020.9B6.,B9"0*M. & *0B0+IF7IB-.)J9.0&,*420.9B2*MBJ. J920F 2(	I.16)2-GCP*M* B * B +GCO+TCO.9B6*MBJ. R920F 2(	I.16)*-A/IGI")*MC*M+CB * B * B 7R
O6 CO3EGR3T?IN*MC*M. & *6B0/I7JI7I*JB * B 2 ?D. B1*4B03J&=",7N*JB * B . 7T3P	S21F*2(+I*+&1*MBJ* B 2 & 3F&(.-GN.)"9.0F,.0B0.,B1"060*JB .9B86 CI.27J+I/J"2*M* B * B 7TR=6+OP+I*23A&(3P*2")*M. B1*0B03EGT2=3A3PGH6*R(*+A+I	J")*M* B * B 3A&(/J6)3A&(+J6)3EGT*MBJ* 
 2 F 2(+I*+&1*=A+I/J*16)3P	S21V*T7A*JB * B 2 [I*(7I+N&1.1J0.0F,.0B4.,B1"460.JF .0B2* A/IKP/J6)3A&(3P*26)B-/SKI6*SEA*M. B1*4B0/I7J+I/JI7A"J7C*JCC* B * B 2 ?C3L7U3N> 7PKE3A	TO7N"J7C*JB * B 2 [I*(7I+N&1.1"0.0F,.0B6.,B1"660.JF .0B6. 7KN*M* B * B +GCO+TCO.1B1"
*M. B1*8B03K&="+62.JF .1B06 CI2=	I3P&-*MBJ* B 2 R /OF .1B8. 7J3Q.,*MBJ* B 2 * /I7P+I/PJ*M* B * B /J7I7JCI2-GI*MBJ* B 6 R 6=OP+I*13A*(+I	P*MBJ* B 2 & 3F&(.-GN.)F1*220.1R1.0F,.1B4*MBJ.1J120* /IKP2=	J3P&+A*M* B * B 7TR=6+OP+I*23A*(/IKP")*M. F1*4B03EGT2=3A3PG
6*R(*+A+J	I")*M* B * B 3A*(/I6)3A*(+I6)3EGT*MBJ* B 2 F 2(	J/P6)3A*(+I	P6-SE7AB*/SGI*MBJ* B 2 & 3F&(.-GN.)F1*620.1"1.0F,.1B8*MBJ.1Z120F 2(	J+P&2*=A7JCI*26)3EGT6*OPI62.JF .1B82 ?C3N	T3NWU*MBJ* B 2 & 3F&(.-KN.)J1*020.1J2.0F,.2B2*MBJ.1B220* 3I&=/IN+*MBJ* B 2 
 /I7P+J/II7A*JB * B 2 	J/P627JCI2+GI*MBJ* B 2 V /T7A7ACL+H+A3P	S22F*2(	J+P&2*MBJ* B 2 F 2(	J*)6=3EGT*MBJ* B 2 F 2(	J/P6)6-SE7AB*/SGI*MBJ* B 2 F 2(	J+P&2*=A7JCI*26)3EGT6*OPI62.JF .2B22 	I2=	I/PF+*MBJ* B 2 & 3T&=/TF+*MBJ* B 2 ^ 7OR /OZ "0*MC*M+CB * B * B 3E
N2 [O6 SI3EGR3T?IN*MC*M. J1*4B0+IF7AOB*(A/NGN*)6)7AOB*(A3N:1*2&).)F .3B0.,J1*820.1"2"0*MC*M+CB * B * B 3T?W2 	E3G;E3V3A7UOE2 GH+VCE3BWE3NZ 3O;UD*MC*M. J1*8B03I;A3A:(.)B=*MBJ* B 2 & 3AGN.(GN.)J=*MBJ* B 2 : .=KN*MBJ* B 2 & 3F:(.2F).4B0.,R1*020"260"J7C*JCC* 
 * B 2 ;O3EV 3IWG3NGV3LWU2 GH3SJ 3E;E2 ?F3USN2MNJ*MBJ.1B360J 3R:(2)F=2(;N")*M* B * B +RI/N6).0B.*MBJ* B 2 & 3AGN*(	N"=61*JB * B 2 [I.(GN.)R1*020.1B4.0F,.3B2*MBJ.1J320: .=GN*MBJ* B 2 ^ 7OR /OJ "0*M. R1*0B07RSE3U;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"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