File KUWA1.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"1*MC*M+CB * B 2 . 7UOR3WA+L6 6 KE3SWT3LWL3NV 3IWN3R2 7ISS7EZ +OCN3SC3U3E3E;R3U7M3E;R2MNJ*MBJ* B * B 2 ?C3M?M3N: 3AWM",7L*JB * B * B 3D7I7EON3I;O2 GN+ME*121.1"42)2,.(R1"96)*JB * B * B 7ICS/A7C.-B2"166*JB * B * B 3W	R+TE.1F,
0&07ICS+A3C.MFJ*0B0* B 2 ?F3RGM+T>(2	3K7AOS7EON3T[U+E^:.,GA")*M* B * B 6 J 3ESA*(21.2V72)[I3O7R.MFJ"8&03W	R+TE.1F,*2&07ICS+A3C.MFJ*2B0* B 2 ?F3RGM+T^(3H3A3BGJ/H+R* B * 2	+A&1*MBJ* B * B 2 WR+AD.1F,*3&03IGHL7B.JN1*0B * B 7FKO7MSA.(GA")*M2I[I2 &(7FKO+M. . F
.0F)*620.1B5.,R1"0*M.1B46IOI/T7A"4*M2I?G+TCO.1B7.MFJ"5&07ISS/AJ="M&J7GSO/OF "760.JZ120&I3SGT"=60.J^120&I3F&(3H3A/B&+*2&8. "1.0F,*825.1B9.MFJ"9&07ISS3A&=3SGT"+61.J"125&I3SGT.=B220&*3SGT"M&J7ISS/LJ=26&+3SGT"M&J7ISS/MN=28&+3SGT*MBJ* B * B 2 ?D* B1/K61.1F,"46
*JB * B * B 3L.(.16)"0*M* B * B 2 R /OF . KK*=21"161*JB1* B * B 3N7A3E.(22.,.16)"0*M*IL.1&4.)B=*MBJ* B * B 6 KW3IWT. F(.,B2*0B)7ICS+A3C.MJJ*0B0* B 2 ?F3RGM+T" 2/V	7XOI3TWI+RCT3E;I3E2 7ISS7EZ +OCN3SC+NCR3A[U2 GB/N?D2	F,"16)*JB * B * B 3RGE+D" .1J,*7&57IKF3
WG*MBJ* B * B 2 [I2 &(3FGR+G7E.6J7.)N2.0J,*120.2B3.MJJ*1B0* B 2 GC+LCL3RGT+PE*16,7ISS/LF,*429L6)2JNI3A3L6 SR3AWP*(216-OI+T3M.1J628:,3AWM")*M.IKL*=L.1&4")*M* B * B 6 ^ 7RSI+E" .1J,*1&36 OI3POA",*M.2N1* B 2 Z 3O7R+ACT*(^/3S3O3LV 3IWN2 	L3SWT2 ?V7NN 3C;H3RF 
U
S7EKD3U/C7T^ 3ESR/E?N2	F,"16)*JB * B * B 3RGE+D" .1J,*7&57IKF3AWG*MBJ* B * B 2 [I2 &(3FGR+G7E.6J7.)J2.1J,*125.2F2.MJJ*1B5* B 2 ?D. F227. 212=.2F,*428"160*JB * B * B +DCO.2"1. KK*=20"9*M* B * B 2 & +F" +K.1+K62.1"4.)F2.4J,*124.2^1.MJJ*1B4* B 6 KW3IWT. F(.,
2292).(GK.+KK")6,.JF2*9B * B 7FKO7MSA. J(3X&,"36).JF2*8B * B 3C;O3T;IU7E"J7C"J	C"I&I6INI7ESI/EJ 2MNJ"M&J3W	R+TCE*(21.2&1")*M.2^1* B 2 N 7OSN7IWNE*M.2F2* B 6 ^ 7RSI+E" .1J,*2&0.MJJ*2B0* B 2 ?F3RGM+T" */^/3W3E3CWH2 OS7HKN2 ?S3LWL3N^ 3E?L3EOS+HCT7WKE3D;E*?&	
MJJ*2B2* B 2 WR+ACD*(21.2R26)WNM64.JJ2*4B * B 7FKO7MSA* ^(*?^ .,OI")*M* B * B 2 & +F" 3N7U.4J)*320.2B3.,J2"7*M.2^2* B 2 R /OJ *2B63N7U.3F=.,R1"8*M* B * B 2 & +F" 3L:(/UOM2):-/USM.)J2.6J,*228.2Z2.MJJ*2B8* B * L3N7U.36)"0*M.2Z2* B 2 N 7OSN7IWNE*M* B * B 2 ^
3O?T. J2"2*M.2B3* B 6 ^ 7RSI/EF(.,N2"26).JN2*2B * B 7FKO7MSA* >(2	WW3LC7EN 7CWH3EWL7RWN3MWM+RCN3K7O3M;E2 WN3U" 7I+N+UB?"	6).JR2*2B * B 3RGE+D" .1J,*2&43N7U"4*M* B * B 2 & +F" 3N7U.4V)*,25.2V3.MJJ*3B5* B 2 [I2 :(/USM*-&1.2N3.,N2.7J,"363.JN2*7B * B 3L:(/UOM
)B=*MBJ* B * B 2 ?G+TCO.2J4.MJJ*3B3* B 2 ?D. N224: /UGM*=21.1"4*MBJ* B * B 2 [I2 2(6(WN+M&16-WN+M&4.2R3.,N2.9J,"364.JN2*9B * B 3W	R+TCE*(21.2F4")*M.2F4* B 2 Z 3O7R+ACT2(V	7XOI3TWI+RCT3SC+OGN"	6)*JB * B * B 7GSO/OJ "462.JN2*4B * B 3C;O3T;IU7E*JB * B * B +D
O.2Z36 WN/M63.1F,"468*JB * B * B +ICF*(L3N7U*3&).2Z3.,N2.8J,"366.JN2*8B * B 3L:(/UOM2):=/USM*MBJ* B * B 2 WR+ACD*(21.3B92):(3AWM*(3K3N7U*32)/KJ=.,F1")*M.3B9* B 2 Z 3O7R+ACT2(:	3AWM*:^ 21F0"26)*JB * B * B 3N7A/EF(6,WN+M&36=WNM64*JB * B * B 7GSO/OJ "462.JN2
6B * B 3C;O3T;IU7E*JB * B * B 3W	R+TCE*(21.2B4")*M.2B4* B 2 Z 3O7R+ACT*(^/7LOI+TCE3V3O+L^!*/&/.MVJ* B * B . KL"=61*JB * B * B +DCO*1B0/L61.1F,"468*JB * B * B +ICF*(L+L&1.)B2.,B2.,B1.MJJ*0B * B * L+L&1*=L+L&2*MBJ* B * B * L+L&2"=60*JB * B * B +DCO.3Z9. GK*
21"161*JB * B * B 3N7A3E.(212,.16)3N7A3E.(212,"26)*JB * B * B 3N7A3E.(212,.26).-B2"166.J&3*6B * B 3C;O3T;IU7E*JB * B * B 3N7A/EF(.,KL.)B=*MBJ* B * B . KL.=KL"+61.JB1* B * B 3C;O3T;IU7E"J7C"J	C"I&I6INI7ESI/EN 2MNJ*MBJ* B * B 2 ?D. B3. GL.=KL.,R1"7*M* B * B
2 2 232="1*M* B * B 2 R /OR 202 242=.1F,"468*JB * B * B +ICF*(L+L&4*-L+L&3.)B5.,B4.,B4.MVJ*0B * B . OL.=SL.MRJ*0B * B 2 ?C3N	T3NWU*MBJ* B * B 6 SI/E7M3L2("16)*JB * B * B 3L2(.16)3L2("36)*JB * B * B 3L2(.36)3IWTM*M* B * B 2 R /ON *9B5/K61.1F,"1*M* B * B 2 
 3T7E2=GN+ME+K21+L&1*MBJ* B * B 2 GN+ME+K21+L&12=GN+ME+K21+L&3.MNJ*9B5* B 2 GN+ME+K21+L&36=SIE7M.JB3* B * B 3C;O3T;IU7E2J2I.(R1.96)L62*JB * B * B 3C3A7L^ 7TCA/EF(6,OI+T3L.1&4*,	L.MJJ*7B5* B 2 ?F3RGM+T" +A&2*MBJ* B * B 2 GC+LCL3WGT+PE*16,7ISS/MF,.6"22,GN+M
E"M&J3W	R+TE.1N,*5&07ICS+A3C.MNJ"5&07FKO7MSA*(>/2	?S+LCL3E;I7EN 7CWH3EWL3R	L3SWT2 WG7DWR7CSK2 WW3RWD/N> 2	F,"16)6JJI3ESA*(21.2V72)[I3R
AE*M2I[I2([I3R
A/EZ-*7&2.3B1.,J3.0N,"160.JJ360^I7RSI/EF(.,V220&)3SGPC6,.JV220ZI3O7R+AT2	WG3WWU3NOS3HWT7R* 3E3I3EGN7BSS3ASN. F(*,B23OWD/RN *)^?.,GA")*M2IWR+AD.1J,*5&13IWZI7L.JV221ZI3O7R+AT+I&1"M&J+IF3IWZ+I	L.3B2.,J3.0J,"563.JV223&I3F&(3Z	E/LN-.)V2.2J,*522.3B2.MJJ"5&23W	R
TE.1J,*5&67ICS+A3C.MJJ"5&67FKO7MSA6(^	7I[E3I3E7EN 7CWH3EWL7RB +RCO3S	E+TCE"	*M*I^12(3A/L+E* 203S;O+SCT7A+N3A3H2 ;A3GKE+E	N* ^?.,GA")*M2IWR+AD.1J,*5&73I;AZ*M.2^52I?F3RGM3T&("36)2J&I3F&(7A+N.)J *522.2"5.,V2"9*M.2"52IGI/N7Z"560.JV229RI/ON *0B0/K61+L22.1"42,G
N7Z6J^I7RSI/EF(.,J3"56).JJ325ZI3O7R+AT*/>/./Z2*(6	*	2)*	^+")*M2ISI/I7F3I;A/ZF-"M&J+DCO.2R5. OK*=203I	DF*M.ISK.=GK.+OK"M&J3W	R+TE.1N,*3&02(GN+ME+K22+K&4.,KK*=21*1&1.MNJ"3&07FKO7MSA.(OI6,"3.,B1+A&2"M&J7GSO/OJ(*524.2V5.,Z2*02)3IWZI7L.JZ260^I7RSI/EF(.,Z2"56).
V265^I7RSI/EF(.,Z2"56).JZ225ZI3O7R+AT*	^ ")*M.2R52I?C3N	T3NWU"M&J3W	R+TE.1J,*6&1.MJJ"6&17FKO7MSA.(Z2*(6	*	2)*	^+")*M.3B02I?C3N	T3NWU.MNJ"1&03C;O3T;IU7E*JB * B * B 3ESN"M2JBZ

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