File EIGEN.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 7UKB7OSU3IWN2 	E3G;E2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 7OCM3UWT2 	E3G;E3V3A7UOE2 ;A3DV 3IWG3NWV3C?T+RCS+OCF7AJ 3E3A6 	S3MWM
T	RC*M+CB * B * B * B 7MSA7RI2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LV 3IWG3NF(*,3R3N6,V6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CA2-> 3R
I3IGN3L6 7AKT+ICX6(	S3MWM3T	R+C2)2 WD7SKT3OWY3D& 3NN 7OCM3UGT3T?IN6.*JCC* B * B * B * B 6 J 7EWS3LGT+NCT3E
I7E[N7AWL+ECS3AWR2 WD3V3E3OWP3D& 3NR 3I
A3OGN3L> F*M+CB * B * B * B * B 2 GM3T	R3XF 2 ;I2 WD3SWC3N	D+NCG3OSR+E;R2MNJ* B * B * B 6 J * B-7ROE7USL7ASN2 GM3T	R3X> 3FV 3IWG3NWV3C?T+RCS6(SS3OWR3DN 7OWL7M
N3IWS",*M+CB * B * B * B * B 2 ;I2 GS+MCE7SGE3U;E+CCE+ACS3E
I7E[N7AWL+E	S2MNJ* B * B * B 2 : * B-3OSR+ECR+OCF7MSA3ROI+ECS3AF +NCDR*M+CB * B * B * B +M7V2 ;I7PSU2 ?CD7E*JCC* B * B * B * B * B * B *0B 2 ?C7MWP+TCE3E
I7E[N7AWL+ECS3ASN2 	E3G;E3VOE7TKOS*M+CB * B * B * B * B * B . F * B 3C7O7PSU3EV 3IWG3NGV3LWU3S> 7N	L6 J(2 WN+ECD7NSO2 WB2MNJ* B * B * B * B * B * B * B 2 R 3IWM3N	S3OWN3DJ +UCT7MOU7TN 3T3I3LF 3PWP+ACR+ICN3C3A3L;IG*M+CB * B * B * B * B * B * B * B 7SGE3U;E
C	E2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 > 3R
I3IGN3L6 7AKT+ICX3A6 7USS2 WB2 WR+ACL3S7Y7MSE3ROI6 N(7TKO3AWG2 ?M/D7E"16)*JCC* B * B * B 2 GM3T	R3XF 2 GC3N?N3TJ 3E& 7NR +HCE3S7A3E2 3OGC3T?I3NF 3S6 7AKT+ICXR*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 : 
OWN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 	D3A?G3N3A3IGZ3T?I3N6 3ET+OCD3O	R3G;I3AWT3DJ 3Y* 3A?C+BCI3ASN2 SA7ASPE7D*JCC* B * B * B 6 	B2 ?V3N: 3E7U3A;N2 ?F3R2 3A
R3EN 7OCM3UWT+RCS+ACS7FWO+NCD+ICN2	GM3TWH7MSA3IGCL*M+CB * B * B * B 7MSE3HSO3SZ +OCR3D
I3IGT3LN 7OCM3UWT+R
S2,V 7DSI+ECD+BCY+AB.3R3A3S?T3NF N7D*JCC* B * B * B * ;H+SB.3W3I+FB,3JO7N^ 3IWL3YF +NCD3S;O+SB,7N
E2 ?Y+R3K. &1*6222 C7ASP+ECR"7*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 	E3G;E*(3A3R:,6,[M")*M* B * B 3D7I7EON3I;O* A*12)/RF(")*MC*M+CB * B * B *.:.*.:.*.:.*.:.*.:.*.
.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 2 & 3FF 2 ?D3U3B7EB 3ROE3I	S+OCN7VKE3S?I3N> 7FR 7HOI2 ?R3U	T+NCE+ICS7DOE3IWR+DB,3TWH2MNJ* B * B 2 N 2 ;I2 ?C3L7U/NF 2 S3O3U3DJ 7EJ 3E?M3VSE6 KF+OCM3TWH2 ?D3U3B7EB 3ROE3I	SO7N*JCC
 B * B 6 SS3AWT3M;E7T^ 3HOI3HZ 3O3L7OOW".*MC*M+CB * B 7DWO3BWL6 KP3E	C3S?I3NF *,3R3A?N+R3M7AKN+M3X7TKH*,3X7YN,7IN2,	S/NKX2,?C+S3X2MNJ* B * B1* B * B * B * B * B 2 ?C/SKX2,	S7NOC2,GR3NWG2MNJ2MNJ* B * B 6 R +HCE3C6 7USS2 3A+SCO+BCE3R7E3OWV3DZ 3R7O2 ?D3U3B7E
 3ROE3I	S+OCN3SGT3T7E7ESNS*M+CB * B * B 7ACP7EKA3I
N2 ;I6 SO7HKE2 ?R3U	T7NOE6 OU+ECD+ICN3C;O3J;U3C	T+OCN7WSI7HR 7HOI2MNJ* B * B 6 J 7OSU3IWN".*MC*M+CB * B * B 3TWH2 ?D3U3B7EB 3ROE3I	S+OCN7VKE3S?I3N> 7FR 7HOI6 WS3B?R3U	T+NCE7MOU3TF 3L?S2MNJ* B * B 2 N 7OSN3A;I2 ?D3U3B7EB 3ROE3I	S+OCN7FKO3TGR3NZ 3UON3T?I+N;
6 N 7QSR2 ;I6 SS3AWT3M;ET7S*JCC* B * B . B4.,Z *8B,*7252 ;A/D^ 286 7USS2 WB2 C3A
N+ECD+TCO7DGS+R;T2 F +BCS+ICN3SGT3T7E7ESN2MNJ* B * B . Z 226 7USS2 WB2 C3A
N+ECD+TCO3DKA+SB.3TWH2 ?C7NSS7ASN2 ;I6 SS3AWT3M;E/TV 2 S3O3UD*M+CB * B * B +BCE3CGH3NWG7DR /OF 2.R0.-J1".*MC*M+CB * B * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 2 ^ 3EWN7RSA3E& 3D;E7TSI3Y6 7AKTI
X"J7C*JB . V 2 GR3NWG*=:1*07E"6*M* B * B +IF+M7V*1B)*120*225"160*JB . B16 GI2=:-*MBJ* B 2 R /OJ 20* *=21N*M* B * B /I7Q+I/QN*M* B * B +DCO*2B0/IF=",7N*JB * B 2 +I6=GI"+7I*JB * B * R+I	J*=:0"0*M* B * B +IF3I*-.)J .0F,.5J,"0*M* B *1B53R&(/J6).1B.*MBJ. J 20N
7OSN7IWNE*MC*M+CB * B * B 3C7O7PSU3E& 7NSI3I3A2 ;A3DZ 3IGN3L: 3O7R+S" 3A?N+RCM3ASN2 ;A3O7RX6)"J7C*JB . V22 ;A3O7R*=:0"0*M* B * B +DCO*3B5/IF=",7N*JB * B 2 ?D. V3. 7J3I:,*MBJ* B 2 & 3F&(*-	J. B3.,V3.,B3*MBJ. N 20& 3A&=2+*(**7J+J>)"2*M* B * B 3A?N/R7M3A?N+R
M3A&(+A*)3A&(A6)*JB . V32 ?C3N	T3NWU*MBJ* B 2 & 3FF(7NKO+MB).1V6.,Z1.5R,"0*M* B *4B03A?N/R7M.1R.*1*47SKQ3TF(7NKOM6)*JB * B 2 ;A7RM2=;A3O7R2*GR3NWG2/3F7OSA*(	N2MNJ2MNJ* B * B 2 & 7NSI3I3A3IWZ2 ;I3DOI3A?T+RCS3ASN2 ?C7MWP+TCE7TKH3ES3OSL6,R H7R"J7C*JB * B 2 ;
/DB=*MBJ* B 6 R /H7R3A?NR7M*JB . V42 T7RR=+H?R3F?L+ATN6)*JB . B5. 7L"1*M* B *5B53M2="+61"J7C*JCC* B * B 2 ?C7MWP+TCE3S;I2 ;A3DN O7S"J7C*JB . B66 GM2=6(**7M+M>)"2*M* B * B /L7Q*(+L3L2-.)J/*MBJ* B 2 2 3M2=6+GM*MBJ. Z 22& +FB(7AOB*(A+L	M6)R-+H	R. N1.0Z,.5Z,"
*M* B *6B53ISN"=61*JB * B 2 3L*=/LL7Q*JB * B 2 7M*=/MM7Q*JB * B . 7X.0V.2*F(2(3L2)F-2(7M")6)*JB . "6. 7Y*-A+L	M6/N 7QSR*(A+L	M**A+L	M*++XX6)*JB * B 2 [I*(	X. B7.,V7.,V7*MBJ. ^ 60& 6=&-*MBJ. ^ 65N 7IN*=?Y6 GS+RT.2B..*F(*..06(N 7QSR*(:160&-**	Y*)&)*MBJ* B 6
N 7IN62N=7IN2*	SN7X*JB . "72 ?C/S7X6 GS+RT.1B.2-	S/NKX")*M* B * B 7COO/X627COO3XN*7OS*MBJ* B 6 N 3ION/S6 3S;I3XN*7OS2MNJ2MNJ* B * B 6 J 3OGT+TCE3LF +NCD3MN 7OWL7MON2MNJ*MBJ* B 2 & /L7Q+N"*/LF-")*M* B * B 7IGM*=+N*(7M"16)*JB * B 2 ?D. J125& *=21N*M* B * B 
I7Q*(+I3I&-.)J/*MBJ* B 2 & 3F&(*-	L. B8.,F1.5","0*M* B *8B0+IF3I6-.)" .5F,*125"960*JB . V82 7I*=/IM7Q*JB * B 2 ?G2 ?T. V9*MBJ. & 20& 3M6=6+GI*MBJ. & 25& 3F&(*-	L. B1.0F,*025.1V0*MBJ. B120& 3L&=6+GL*MBJ* B 2 ^ 7OR /OF "160*JB .1V02 3I*=/LI7Q*JB .1B1. 7X3A&
+L*)7COO3XF-2(7I6)N*7IN*MBJ* B 2 F 2(7I2)F=2(3I6)N*7IN*+A+I	M2*?CS7X*JB * B * A+I	L"=7X*JB .1V12 [I6([M*-&1. J1.0F,*225.1B2*MBJ. J120& /L7R7IGL"+7I*JB * B 2 7I3R&=+M/QI*M* B * B 7XJ=2(3I+R*)7COO7XJ-2(7I+R*)3S;IX*M* B * B 3R&(+M	R*=R7IKL6)N*7IN*+R7IKM2)N*7
S*MBJ* B 6 J 2(3I/R6)X*M. F *2B53C;O3T;IU7E*JB * B . 7X.2B.**A+L	M2*	S7NOC*MBJ* B 6 & *=A+L	L2*?C/SKX*+A+M	M2*	S/NKX"-7X*JB * B . 7X3A2(+L*)3S;I+X.23A6(+M*)7COO+X.2X*M* B * B 3A2(/M6)*(A+L	L*-A+M	M6)N*3ION3SF+2(7L*)"*7COO+X623S;I+X&2*MBJ* B 2 F 2(3L6)&=*M
J* B 2 F 2(7M6)"=2MNJ2MNJ* B * B 6 R 7ESS3SZ +OCR3C7O3PWL3T?IN*MC*M+CB * B * B 7TOE3TZ +OCR/M6 2 GL+SCT3C3O3U;M2MNJ*MBJ. N120& 3F6(*-	N. N1.5F,*420.1V3*MBJ. N1256 *=/M"1*M* B * B +GCO+TCO"660"J7C*JCC* B * B 2 WT+SCT7FKO* CL6=N 3E?C+NCD3F?R3M2 7ASS2 ?C3L7U
*MC*M. F *4B0+IF+L"-/NF-*)B).1V4.,V1.0F,"465*JB .1V4. 7L/LF+*MBJ* B 2 ^ 7OR /OV "5*M. F *5B0+IF3ISN*-&1. Z1.0F,*525.1B6*MBJ. V125& /N7D"0*M* B * B +GCO+TCO"560"J7C*JCC* B * B 2 ?C3MGP+RCE7TKH3ES3OSL2 	W+TCH3F;I+ACL7NKOM*MC*M. F *6B0+IF7TKH2-;A7RM.)F *625.
V6.,V42MNJ2MNJ* B * B 6 N 7OSR2 	E3G;E3V3A7UOE2 ;A3DV 3IWG3NWV3C?TR7S"J7C*JB .1V66 GI2=:-*MBJ* B 2 R /OF *8B5/IF=",7N*JB * B 6 GI6=GI"+7N*JB * B 2 3L*=/I*(+I3I&-.)J/*MBJ* B 2 * 3Q:=2*&(*-&2*MBJ* B 2 R /OF *8B53J&=",7N*JB * B 6 GJ6=GJ"+7N*JB * B 2 7M*=/J*(
J3J*-.)J/*MBJ* B 2 & 3FF(2(3L2)F-2(7M*)B).1B7.,"1.5F,"865*JB .1B7. 7X3A2(L6)*JB * B * A+L	L*=A+M	M*MBJ* B 2 F 2(7M6)"=*MBJ* B 2 & 3F6(/VF-.)F *725.1V8.,^1"5*M. F *7B5+DCO.1B8. 7K21:,*MBJ* B 2 & /L7R+I/QK*M* B * B 7IKM6=GJ"+7K*JB * B . 7X3R&(+L	R*MBJ* B 6 
 2(3I/R6)3R&(+M	R*MBJ. "160J 2(7I/R6)X*M. F *8B53C;O3T;IU7E*JB * B 2 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"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