File KUWA2.FT (FORTRAN source file)

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

2MNJ"I&I"I&I3S	E+TCE"1*M3C.I3UGW"2*MC*M+CB * B 2 . 7UOR3WA+L6 2 WD+FB.7DSA3EWI+N6 2 	E3NWL3S;E2 GD3T;E" *M+C6I2 ?K3RWR7KWT7RKP7OKG3A7M2 3A7SV 3P?R2MNJ*MBJ* B * B 2 ?C3M?M3N& 7FKO3M&,3H3A3B&,3SGT6,OI+T3B7ISS3D&,3SWT6,OI+T3F7ISS3G&,3S3T6,OIT7M*JB * B * B 3C
O3M;O2 GL+N3F3I;A3F&,.,KI*MBJ* B * B 2 	D3M;E3S?I3N& .(F1.,R1*82)+I"1.6F,*4&8.,KI.(R1"86)*JB * B * B 7ICS/A7C.-B2"166*JCC* B * B 3E;I7LOE/E+N2 3K7AOS7EON3T[U3E",3AKL3JAR*M* B * B 6 ^ 7RSI/EF(.,B720&)3SGPC6,.JB7*0B * B 7FKO7MSA*(^/3KGL3SWS7NSS3UWF*:2	+A&2*
BJ* B * B 2 WR+AD.1J,*1&03I?FR7M.JF2*0B * B 7FKO7MSA.(KA")*M.6B66IKW3IWT*(21.2B26)OI3POA",*M.2B2* B 2 Z 3O7R+AT2/"	3AKL3JA+RB:* B * ^ .,GA")*M* B * B 6 J 3ESA*(21.2B32)I3AKL.MJJ*3B0* B 2 ?F3RGM3TF("16)6J^I7RSI+E" .1J,*4&07ICS+A3C.MJJ"4&07FKO7MSA*(^/7BSI+T
E3GKE+ECN3SWI2 	D3EF +RCT7DOE6 KP7OKG3A7M7LWA+FCS/A+N"	*M*I>16	KE3S7T3A	L+GCE7DKU3C[H3UE3R;U+GB .:F *	>,2	?F3R[T3UE3R;U3GR +ECR3E;I"M&J22GG+BCE* B:*22	2/J	3E	G+NCN7DKE6 WA3SWW7RWT+NCG* B * B:.3> 2	F,"26)6JJI3ESA. F(.,V220&)3FGRG7E.JV220ZI3O7R+AT+I&12MNJ* 
 * B 2 WB3ROE3HWN3NR +ECR7DSA3EGI3DWR3SWSN*M2I[I2([I3O7R.+F9*0B).6B2.,F6.0Z,"060.JB620&I3SGT"=642J^I3O?T. N6"0*M.6B16IOI/T7A"2*M2I?G+TCO.6B3.MZJ"2&07ISS/AB=.MZJ"3&0+IF3IGH+L/B.9"2.)Z *620.6B5.,R6"0*M.6B46IOI/T7A7ISS/AF+.MZJ"5&07ISS/AJ=*0*07ISSA*M6IOI/T7B.
V16+OIT7A2J&I3SST.=J124&+3SGT"M&J7ISS/EF=*0.17ISSA*M6IOI/T7F. F66+OIT7A2J&I3S
T.=^ 28&+3SGT"M&J7ISS+LB=*2.67ISSA*M6IOI/T7M. "36+OIT7A2J^I3O?T*(21.2N,2)&,3FGRG7E"J	C3F3E7DKE2 ?L3EOS3H;E.MFJ2I?D. B1. GK*=21.1"4"M&J/IF(.,GK.)B=.MFJ20&I.1F(.,GK.)B=2MNJ2MNJ"I&I"I&I3S	E+TCE"2*MC*M6IWN/MB="M&J/NF="M&J7GSO/OR .MJJ2I?D* B6/K61.1F,"4682J&I*(
1+K&1"=60"J&6+I"121.,.16)"0*M2IGC+LCL3RGT+PE*16,7ISS/F",*828+I&1"M&J3C3A7LJ 7TCA/EF(2,&-3S
T.,Z1*228I6)2J:I/U7M"0*M.I7N"1*M2I?D* B7/K61.1F,"4682J&I3F&(*(21+K&1.)Z .5^,.,V6.MZJ25:I/U7M3N7U"+61"J&73C;O3T;IU7E"J&5+IF/IF(*,	N.)R *,24"8*M28:I/U7M3N7U"-612J^I3O?T" 69"J	C7KKA3T;E2 	E3NWL3S;E.MRJ6IKW3IWT. F(.,B5")*M"5&07FKO7MSA6(N	+NCR3ZV 6 SS* CH3W2 +
B1/LKK* :3/AR *.CA/GGK2 /G22^ +KB3/GSK2 /G25^ +K^6")*M2IWR+ACD*(21.1V0*)I21:,2)&,.1J(*,	N.,GI*(23+N2)+I"124:,2)&,.1V(*,	N.,GI*(26N6).JFI*,I22:,2)&,*(23+N2)/IR(*,	N*,I25:,2)&,*(26+N2)/I^(*,	N*,I28:,2)&,*(29N6).JJI*,I*120+N2)/IF(21:,")*M2I[I*(I21:,.)J).0N,.
J,"0*M*2B0* B 2 & .1F(*,	N*=I21:,")*M29:I*=/N"1*M2I[I.(R128:-+U7M/NN).0V,",65.JB3* B * B 3N7U6=WN3M:+"-61*JB * B * B 3W	R+TCE*(21*4&03N7U.MFJ*0B5* B 2 ?F3RGM+T" +I23*2^(**2	+I&1*,*	2	&,.2J,*(*	2	&,*12)*1"0*	^*.,OI")6).JB4* B * B 7FKO7MSA* >(+I232	. 7ASR+E
N3E;I3G3E3EWS+N>	")*M6IKW3IWT*(21.2B96)OI3POA",*M.2B92I?F3RGM+T>(2		S+NCD7KKO3R/E7TKU+ECN7NSO3W;E3D
I* ^?.,KA")*M2IWR+AD.1J,*1&07IKF3AWG"M&J+IF7IKF3AWG.-^6*2B).3B0.,V3.0N,"060.JV320NI3A3L6 WK7KKO.(GI")*M.3B02IGC+LCL3WGT+PE21&,3S
T.,Z1*228I6)2JNI3A3L6 SW3AWP*(217ISS/F",*828+I&1"M&J3W	R+TE.1J,*6&07ICS+A3C.MJJ"6&07FKO7MSA*(^/7ISS2 	D3EV 3I
N3AWB2 WD3R. 7UOR3WA3L;E2 ?V7LOL3TWA3N	D/G> 2	F,"26)6JJI3ESA*(21.2B12)[I3R
AE*M2I[I2([I3R
A/EZ-*7&2. ^2.0R,*020.2B7.MNJ2I/K"=61.J"220NI3A3L6 SR3AWP*(216-OI+T3G.1J628&,")*M2I?G+TO.4B0.,B5*02)K7K.JB420RI/OZ 20. .1F=.,R1"8*M2I?D. B6. KK*=22"161.JB6*II+K22+K&1*=I+K22+K&12-&(.(KK.,GK.)F/*0*)"160"J7C"J	C"I&I6INI7ESI/EN 2MNJ"M&J3C3A7L^ 7TCA/EF(2,&-3S
T.,Z1*228I6)2J.I/KJ="M&J7ISS+G6=7ISSG*M2I?G+TCO.2B8.MVJ"0&0+DCO*7B0/K61.1F,"4682JRI/O^ 20. .2J=.,F1.M^J20&I.(KK.,GK2)&=.(KK.,GK.)F/"0*M6IOI/T7G6-OIT7G2JNI3A3L2 C3A;I2(.	3UGW*2
A")*M.2B76ISSO7P2JVIN7D"J&L3RGE+D" .1V,*0&63I&(3FOE3O&,7SKN")*M.5Z02I?F3RGM3T&("36)2J^I3O?T. B4.MJJ2IGC+LCL7OCO+ECN2(R	/TGA2	Z,3IWLF6)2JRI/OZ *1B0/K61.1F,"4682JRI/OZ *1B0/K62.1Z,.MZJ"1&03W	R+TCE*(24.2B1.)GI.(KK.,GK")*M2IGC+LCL3O3C3OWS.MRJ2IGC+LCL3CGH+ICN2
J	7KKU*2^1")*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