File KUNOT.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

2I?C3M?M3N& 7FKO3M&,3H3A3B&,3SGT6,OI+T3B7ISS3D&,3SWT6,OI+T3F7ISS3G&,3S3T6,OIT7M2JNI3O7M+OCN3L;A3F&,3A[N6,+I+F3E3I[Z3A:,*,3II622JRI3IWM3N	S+OCN7NSO/EJ(.5V,*02)/LF(*4&92,GK3RWT.(Z12)&,3FOA/HF(*32)7DSA+EI"36)2JRI3IWM3N	S+OCN/NZ("76)2J&I3SGP*=.7*2"*3I?F+R/M.9
1")*M6IOI/P7B2(I3AKL.+J9*8>)"6642J&I3SGP3L&=3SGP6+OIP7B2JNI3A3L6 SR3AWP*(217ISS/LF,*429L6)2J2I3A[N*=L.1&4")*M2IGD3T	E*(&12="	3I[L+E^1"M&J7DSA+EI.26)2		H3LWF"26	2JRI3AWT/IN(*)^=3H3I/FOE"	*M6I+I3AE/LF=.MJJ"8&0+IF/LF(*4&9.-&9.)F .0F,.0J,"0*M"1&03I;E/DV="0*M2
?G+TCO"360.JB22IWI/N7D.1&4*-L.1&4")*M2I[I2(WI+N	D. V1.0F,*520"360.JB32I?D. B4. 7K21&,3ESN.MRJ20:I3OWT*(21/K6)3L2(.(R1*9.)/KF-")*M2IWI/NGD2=WI+NCD"+612JRI/OV 20. 2=WI/NGD.,B5.MVJ20:I3OWT*(21/K6)"0*M*IL.1&42)2=.(R1*9.)"5602JNI3A3L2 ?I3P;E6(J	/KGA*	^,3FOA+H&
"M&J+DCO*6B0/KF=2,WIN7D.JB72IWR+AD.4F,*0&02([I3AC*(	M.,7M.1F,"16).JB120ZI3O7R+AT+I2321&0"36)2J&I3F:(3OWT*(21+K6)3IGF+CH*1&). B7.,B8.,B7.M"J20RI/O& *0B0/MJ=.,F1"M&J+IF3IGF+CH+M>)*160*5&1. B9.,V9.,B9.M&J25&I3FOA3H6(2)&=3FOA3H6(.)J+"0*M"9&07NSO3E6(*,	K2=[I3A
*(	M.M&J"0&03C;O3T;IU7E2J:I3OWT.(J1*,	K.=B1"0*M2I?N+TE*123/K6).1B0"M&J+DCO25. .0F=.4J,"5*M25:I3OWT.(CK*,	K.=F-.MZJ20NI7OSN7IWNE*M2IGC+LCL7ICO+EN2	/R+A^12,:	3OWT+N&	.MFJ"2&03RGE/DR(.,F1*0")7KKA+TE+M2)/MF=.,Z1")*M.1B12I?F3RGM3T&(.3N,.(GI.,KI.)V,+I22+I21.2KI
,GI")*M2I[I2(GK3RWT*(&1.)F *320.1B3.,R1"0*M.1B42I?D. Z120. *=21"5602J&I3F:(3OWT*(21+K6)7KKA+TE*1&). Z1.0F,*720.1B6.MFJ"7&0/N7RK*M2I?G+TCO.1B8.MFJ"6&03C;O3T;IU7E2J^I3O?T. J1"0*M.1B82IGK3F;A/RF=20.*7ASR/EV(2).+7ASR/EZ(")*M2I?D. &120. .2J=.,F1"M&J+IF7NSO3E.(
2:,+R6)3K[A7AKN.)F .9B0.,B2.0F,.9B0.MFJ.9B02I[I2(?N+TE+K22+N	R./B12-GK3RWT*(&5.)F *920.1B9.5F,"960.J&1"0&5/KGF.=KK"+612JRI/OF .9B1. OK2=[K.1F,"1*M2I[I2(?N+TE+K23+N	R2-GK3F;A+RB).1N9.0F,.9B2.,&1"360.J&1"2&0/K60K632J^I3O?T. J2"0*M.1N920&I3F:(3OWT.(OK6,KN.)F
20.-7ASR/EV(*)B).1F9.0F,.9B4.,&1"160.J&1"4&0/KKF.=OK"M&J/KGF2=[K.1F-"M&J7GSO/OF .9B5.MFJ.9B12I?C3N	T3NWU"M&J3K[U3E3H2=?N+TE/KGF*-21+N	R.-B12*GK3RWT*(&5"M&J3W	R+TE.1F,.9B62)GK3RWT*(&1*,N7KKA+TE*5&)2,GK3RWT*(&66,WK3FEL*M.1Z920ZI3O7R+AT2	OS3HWU7LKE6 KN*.^ .,
I*,B	7HSA2 ;I* 2	+A222	: 3IC+T^ "M&J21.	7UOR* 2	+I216	N 3OSN3E;R* 2	+I212	^ 3EGW3E3H+T^.")*M.ICK2=[K.1F-"M&J7GSO/OJ "260.J&1"5&0+IF7NSO3E.(+F.1*122+N	R.)F .9B7.,&1*820.1"9"0*M.1^920.I3UWF/H7L7NSO3E.(+F21+N	R.-B12*GK3RWT*(&5"M&J3W	R+TE.1F,.9B62)GK3RWT*(&1*
N7KKA+TE*5&)2,GK3RWT*(&66,WK3FEL*M.ICK2=[K"1*M2I?G+TCO.2B2.MFJ.9B82I[I2(?N+TE/KKF.+J16,KN*)B).1&9.0J,.0B0.,B2"060.J&1"9&03K[U3E3H2=?N+TE/KKF6,KN.)F-20.*7ASR/EV(")*M6IKW3IWT*(21.1Z920.)7ASR/EF(2):,2(GK3RWT*(&52).,7ASR/EZ(2).,3UWFH7L2J.I20.=F622J^I3O?T. J2"
*M.2B060^I7RSI/EF(.,B2*0&12(GK3RWT.(CL2)2,.0F=.,Z1")*M.2B021ZI3O7R+AT2	WK3IWN6 WZ3OSR3N;U3G6 3O
E3LOI3HZ 7UKE*:>	21&6"36)2J^I3O?T. J1"0*M.2B0.ICK.=KK"M&J7GSO/OJ "260.J&120NI7OSN7IWNE*M6IKW3IWT*(21.2B12)GK3RWT*(&1*,N7KKA+TE*5&).MJJ"1&07FKO7MSA*(^/3SC3U3E+ECR+N;R* 2	+I232	" +ACT3K	E+N^ .,KA*,B	7G
E3AE+L;T"	6)2J^I3O?T. J1"0*M.2B22I[I2(?N+TE+K.0*122+N	R.)J *224.2J2.,J2"2*M.2J22I?N3T	H3L:=3OWT.(CK.+J16,KN")*M2I?G+TCO.2V2.MJJ"2&47NSO3H3I.=F-.MJJ"2&5/N7T2(?N3T	H/LN+*0>)"1652J&I3F.(7ASR/EN(.)F/.0&-*1623I?F+R	M. N2.0J,*420.2B3.MJJ"3&07NSO3E.(.0F+22:,/R6)
KKA+TE7ICS+A	L"M&J7GSO+O" .1B2.,J1*020.1B2*02)N7T.JR220&I3F.(7ASR/EF(24&+3SKP*)B).2B5.,N2.0J,"560.JV220:I3OWT.(CK.+J16,KN2).=7ASR/EF(24&+3SKP")*M2I?G+TCO.(J1.0F,.2B0.,J1*0&06,SN.MFJ.2B06IKW3IWT*(21.1B221.)7ASR/EF(2):,2(GK3RWT*(&5")*M.1B221ZI3O7R+AT2	?D3PW
3LWT2 GK3RWT2;J 7EOS3EWR2 ?N+TCE3E;I7GSE3R
A+ECN3B	E* 2	+I23"M&J61"2.,KA")*M2I[I2(?N3T	H3L:-3OWT.(CK.+J16,KN*)B).1F2.0F,*220.1B2.MFJ.2B12I?N+TE+K.0*122+N	R2=?N3T	HL*M2I?G+TCO.1B2.MFJ"3&03C3A3L> 3OWP+N^(3RGK*12	7DSA+EI3IGZ3E3H")6)2JRI/OJ *6B0/KF=.,B5.MJJ"6&03W	R+TE.4J,*7&02(?N+TE+K22+K2)/K62.1J,"56
.J^220ZI3O7R+AT21&3.3F,.2KI")*M2IGC+LCL3O3C3OWS"M&J3IGZ3E3H6=+I3AE/LF+"M&J7GSO/OJ "860.JV120&I3ZWA/H7L3IGZ3E3H"-616JJI3ESA*(21.3B02);F3AWM.MNJ"0&07FKO7MSA2(:	3AWM6 WF+ECR7GOE7ASM7DSA/E+I.	[A")*M2IGC+LCL7OCO+EN2	/R+B^12,;F3AWM")*M2I?D. &220& /DF=6,+I3AEL*M
IGC+LCL7ICO+EN2	/R+A^12,GD3T	E2(SI")6)2JRI/ON *1B0/KF=.,B5"M&J3RGE/DR(.,^2*0")7NSO3E.(22.,2).,.2F=.,V2")*M.3B16IKW3IWT*(24.2B72):(3OWT.(KK*,	K.,KK*=21*2&5.MJJ"9&03C;O3T;IU7E2JNI3A3L2 OO7LOOE*M2I;ED*MBLBZ

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