File KUWA1.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file
2MNJ6IWK7R
S3A3H* B-7EOR3T3E3L;E2 	E7NKE2 	L3SWT2 ?V7NN 7CWH3EWL7RWN3MWMR7N*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([I3O7R.+F9*0B).1B6.,V1.0F,"460.JR120&I3SGT"=642J^I3O?T. ^1"0*M.1B56IOI/T7A"2*M2I?G+TCO.1B7.MFJ"6&07ISS
AB=.MFJ"7&0+IF3IGH+L/B.9"2.)F *820.1V8.,&1"0*M.1B96IOI/T7A7ISS/AF+.MFJ"8&57ISS/AJ=*0*07ISSA*M6IOI/T7L*2.67ISSA*M6IOI/T7M*3.87ISSA*M6IOI/T7L6-OIT7L2J&I3S7T2=&-3S7T*MBJ* B * B 2 ?D* B1/K61.1F,"468*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&57IKF3AWG*MBJ* B * B 2 [I2 &(3FGR+G7E.6J7.)N2.0J,*120.2B3.MJJ*1B0* B
2 GC+LCL3RGT+PE21&,3S3T.,R1292,")*M2IGC+LCL3RGT+PE21&,3S7T.,Z1*2283N7AE6)2J2I222=.(R1"96)2J&I3S3T2=&-3S3T*MBJ* B * B 6 KW3IWT. F(.,F2*3B)7ICS+A3C.MJJ*1B3* B 2 ?F3RGM+T" 6/N	3O3L2 	E+NCE7LOI+TCE3V;O2 OS7HKN6 WA3SWG7DWR7CSK2 WW3RWD+N^?.,GA")*M* B * B 6 J 3E
A. F(.,^225&)3FGRG7E*JB * B * B +ICF2([I3R
A/EZ-*7&2.2F2.,F2.5J,"261.JF2*5B * B +DCO.2^1. GK.=KL.,R1.8F,"0*M* B * B 2 R /OJ *1B8/K62.0&,*MBJ* B * B 2 [I2 .(21.+.2F-*4&8.2R1.,F2.4J,"167.JF2*4B * B 3W	R+TCE*(21.2&1*)L+K.1+K&2",*M.2&1* B 2 Z 3O7R+ACT6("2.,OI")*M.2"1* B 2 N 7OSN7IWNE*M6IKW3IWT. F(.,F2
96).JF2*7B * B 3C;O3T;IU7E.JJ2*1B * B 3W	R+TCE*(21.2B2")*M.2B2* B 2 Z 3O7R+ACT*(>/2	WW3LC7EN 3C;H7RN 3O3L+ECN3G3E7OOE7CSH2 WW3RWD+N^?")*M.2J2* B 6 J 3ESA. F(.,J224:)/USM.MJJ*2B4* B 2 ?F3RGM+T" *	B?2	&,"36)*JB * B * B +ICF6(WN+M&4.2B3.,N2.0J,"267.JJ2*7B * 
 +DCO.2Z26 WN/M63.1F,"468*JB * B * B +ICF*(L3N7U*36)3N7U.4J)*226.2"2.,J2"6*M.2"2* B 2 2 6(WN+M&3"=60.JJ2*6B * B 3C;O3T;IU7E*JB * B * B 7GSO/OJ "262.JN2*0B * B 3W	R+TE.1J,*3&2.MJJ*3B2* B 2 ?F3RGM+T" 6/^	3EOL+HCE3SC3U3E3E;R3U7M3E;R2 ?K3MWM3N: +ECU3H;I/Z?U* 
	.MJJ*4B2* B 2 WR+ACD*(21.2R26)WNM64*JB * B * B +ICF6(WN+M&4.5V,.,N2"5*M.2V3* B 2 & +F" 3N7U.4F-.)N2.3J,*327.2N3.MJJ*3B7* B * L3N7U.36)"0*M* B * B 2 ^ 3O?T. R2"2*M.2N3* B 2 R /OJ *3B43N7U.1F=.,R1"8*M* B * B 2 & +F" 3L:(/UGM2):-/USM.)N2.4J,*329.2R3.MJJ*3B9
 B 6 KW3IWT. F(.,R2"16).JR2*1B * B 7FKO7MSA* ^(3E	X3S	T7ESR2 OS3H;O*!&	*MBJ* B * B 2 ?G+TCO.2J4.MJJ*3B4* B 2 ?C3N	T3NWU*MBJ* B * B 2 ?D. N226: /UOM*=21.1"4*MBJ* B * B 2 [I2 2(6(WN+M&3.)N2.6J,*328.2Z3.MJJ*3B8* B * L3N7U.36)3N7U"4*M6IKW3IWT*(21.3B86)OI3POA"
*M.3B82I?F3RGM+T^(3N7A+E^:.,GA")*M* B * B 6 J 3ESA. F(.,&3*0")3N7A3E.(6,WN+M&3.,7K.2F,"16).J&3*0B * B 7FKO7MSA. F(.0KA")*M* B * B 2 : 3AWM*(213N7U.36)3N7U"4*M* B * B 2 ^ 3O?T. R2"2*M.2Z3* B 2 N 7OSN7IWNE*M* B * B 6 ^ 7RSI+E" .1J,*4&0.MJJ*4B0* B 2 ?F3RGM+T
 2/2	7ISS7EZ 3O3L*!>	"/6)*JB5* B * B /L62"1*M* B * B 2 R /OF 202 .1F=.,R1"8*M* B * B 2 & +F" 3L2(*1&)*220*220"160.JB2* B * B 3L2(.16)3L2("26)*JB * B * B 3L2(.26)"0*M* B * B 2 R /ON *9B6/K61.1F,"1*M* B * B 2 : 3AWM.(GK.,GL2):=3AWM.(GK.,KL")*M* B * B 2 : 3A
M.(GK.,KL*)6=.2F0"6*M.3Z9* B 2 N 7OSN7IWNE*M* B * B 2 : 3AWM*(21+L&2"=60*JB * B * B /L62+L.2"1*M*1B0* B 2 N 7OSN7IWNE*M* B * B 2 R /ON 202 212=.2F,"467*JB * B * B /L63L61"J*MC&I"I&I2IWS3IWT" 61"J	C7K
UA61"J7C*JCC* B * B 7KKU3SGW+HCL2-V 7RSS3E3L+ECN3E;I+ECR7LOI+TCE3V;O2 OS3HWU7LKE3N7U7MKEN*MC*M* B * B 2 N 3O7M+OCN3N7A3E2,*MBJ* B * B 2 	D3M;E3S?I3N: 3AWM.(F1.,R1*82)/LF(*4&9*MBJ* B * B 6 OI3POA.=J-.0Z1*MBJ* B * B 6 KW3IWT*(21.1B06)OI3POA",*M.1B0* B 2 Z 3
7R+AT2/.	7LOA3S;E7SWT/F+E2	F,"16)*JB * B * B 3RGE/DF(.,^225&)7FKOM*M.1B86IKW3IWT*(21.1B26)OI3POA",*M.1B2* B 2 Z 3O7R+AT2	GH3L+B7AKH*:B * ^ .,GA")*M* B * B 6 J 3ESA*(21.1B32)I3AKL.MFJ*3B0* B 2 ?F3RGM3TF("16)2J&I+F" 3I?F+RCM.+& *1&0.1B6.,V1.0F,"460.JR120&I3
GT"=642J^I3O?T. ^1"0*M.1B56IOI/T7A"2*M2I?G+TCO.1B7.MFJ"6&07ISS/AB=.MFJ"7&0+IF3IGH+L/B.9"2.)F *820.1V8.,&1"0*M.1B96IOI/T7A7ISS/AF+.MFJ"8&57ISS/AJ=*0*07ISSA*M6IOI/T7L*2.67ISSA*M6IOI/T7M*3.87ISSA*M* B * B 2 R /OF . GK*=21.1"4*MBJ* B * B * L+K&1"=60*JB * B * 
 +DCO21. .2F=.,F1.MFJ* B * B 2 GN+ME+K22+K&1"=602J2I.(R1.96)"0*M* B * B 6 ^ 7RSI+E" .1J,*0&06 OI3POA",*M.2B0* B 2 Z 3O7R+ACT*(^/3E	X3S	T7ESR2 	E+NCE7LOI+TCE3V;O2 OS7HKN6 WA3FJ 3ASN*?2	+A&1*MBJ* B * B 2 WR+ACD*(21.2V72)[I3R
AE*M* B * B 2 & +F" 7IKF3AWG.-^6.2J)*320.2B1.,N2"0*M.2B1* B 2 N 3A3L6 SR3AWP*(216-OI+T3L.1&4*,	L"M&J3C3A7LJ 7TCA/EF(2,&-3S7T.,Z1*2283N7AE6)2J2I222=.(R1"96)*JB * B * B 3W	R+TCE*(21.2N12)& 3SGPC6,.JF2*3B * B 7FKO7MSA* >(2	?S+LCL3E;I3E2 7ISS7EZ +OCN3SC+NCR7A
U3GSE3ROU+KCT7WKE3D;E*?2	+A&1*MBJ* B * B 2 WR+ACD*(21.2V72)[I3R
AE*M* B * B 2 & +F" 7IKF3AWG.-^6.2J)*221.2V1.,J2"1*M.2V1* B 2 R /OJ *1B7/K61+L22.1"4.,B1*MBJ* B * B 2 ?D. F228. .2B=",69*JB * B * B +ICF.(GK.+KK.-R1.8J)*124.2R1.,F2"7*M.2R1* B 6 ^ 7RSI+E" .1J,*1&93L.(21.+*22).MJJ*1B9* B 2 ?F3RGM+T" *23X+I&3.MJJ*1B8* B 2 ?
3N	T3NWU2MNJ2MNJ"I&I"I&I3S	E+TCE"2*MC*M6IKW3IWT. F(.,F2"96).JF2*7B * B 3C;O3T;IU7E.JJ2*1B * B 3W	R+TCE*(21.2B2")*M.2B2* B 2 Z 3O7R+ACT*(>/2	WW3LC7EN 3C;H7RN 3O3L+ECN3G3E7OOE7CSH2 WW3RWD+N^?")*M.2J2* B 6 J 3ESA. F(.,J224:)/USM.MJJ*2B4* B 2 ?F3RGM+T" *	B?2	
,"36)*JB * B * B +ICF6(WN+M&4.2B3.,N2.0J,"267.JJ2*7B * B +DCO.2Z26 WN/M63.1F,"468*JB * B * B +ICF*(L3N7U*36)3N7U.4J)*226.2"2.,J2"6*M.2"2* B 2 2 6(WN+M&3"=60.JJ2*6B * B 3C;O3T;IU7E*JB * B * B 7GSO/OJ "262.JN2*0B * B 3W	R+TE.1J,*3&2.MJJ*3B2* B 2 ?F3RGM+T" 6
^	3EOL+HCE3SC3U3E3E;R3U7M3E;R2 ?K3MWM3N: +ECU3H;I/Z?U* &	.MJJ*4B2* B 2 WR+ACD*(21.2R26)WNM64*JB * B * B +ICF6(WN+M&4.5V,.,N2"5*M.2V3* B 2 & +F" 3N7U.4F-.)N2.3J,*327.2N3.MJJ*3B7* B * L3N7U.36)"0*M* B * B 2 ^ 3O?T. R2"2*M.2N3* B 2 R /OJ *3B43N7U.1F=.,R1"8*M
 B * B 2 & +F" 3L:(/UGM2):-/USM.)N2.4J,*329.2R3.MJJ*3B9* B 6 KW3IWT. F(.,R2"16).JR2*1B * B 7FKO7MSA* ^(3E	X3S	T7ESR2 OS3H;O*!&	*MBJ* B * B 2 ?G+TCO.2J4.MJJ*3B4* B 2 ?C3N	T3NWU*MBJ* B * B 2 ?D. N226: /UOM*=21.1"4*MBJ* B * B 2 [I2 2(6(WN+M&3.)N2.6J,*328.2Z3
MJJ*3B8* B * L3N7U.36)3N7U"4*M* B * B 6 J 3ESA. F(.,&3*0")3N7A3E.(6,WN+M&3.,7K.2F,"16).J&3*0B * B 7FKO7MSA* ^(3N7A+EB:.	B1+A&2*MBJ* B * B 2 GN+ME21:,/UOM2):=/USM*MBJ* B * B 2 ?G+TCO.2J4.MJJ*3B6* B 2 ?C3N	T3NWU*MBJ* B * B 6 KW3IWT. F(.,R2"06).JR2*0B * B 7F
O7MSA* >(2		L3SWT2 ?V+LGL*	>/")*M*5B * B 2 2 .2F=*MBJ* B * B 2 ?D. B1. GL*=21.1"4*MBJ* B * B 2 [I2 2(.(GL.)J).0J,.0F,"0*M*2B0* B 2 2 .(GL2)2=.(KL")*M* B * B 2 2 .(KL.)B=*MBJ* B * B 2 ?D. &326. .1F=.,F1*MBJ* B * B 2 GN+ME+K21+L&12=GN+ME+K21+L&2*MBJ* B * B 
 GN+ME+K21+L&2.=J-.0Z1.MNJ*9B6* B 2 ?C3N	T3NWU*MBJ* B * B 2 GN+ME212,.26)"0*M* B * B 2 2 222=.2F+.MFJ*0B * B 2 ?C3N	T3NWU2MNJ2MNJ"I&I"I&I3S	E+TCE"3*MC*M* B * B 2 R /ON 202 212=.2F,"467*JB * B * B /L63L61*JB * B * B +DCO*4B0/L64+L21.1"4*MBJ* B * B 2 [I2 2(
(SL2)2-.(OL.)V).0R,.0R,"0*M*5B0* B 2 2 232="4*M*4B0* B 2 N 7OSN7IWNE*M* B * B 2 & 3T7E*=L+L&1*MBJ* B * B * L+L&1*=L+L&3*MBJ* B * B * L+L&36=SIE7M*JB * B * B +DCO.3V9. GK*=21"161*JB * B * B 3IWT3M:=3AWM.(GK.,GL")*M* B * B 2 : 3AWM.(GK.,GL2):=3AWM.(GK.,OL")
M.3V9* B 2 : 3AWM.(GK.,OL2)&=3T7E.MNJ*0B * B 2 ?C3N	T3NWU"M&J/LF(*4&9.=KL*MBJ* B * B 2 GC+LCL3WGT+PE21&,3S3T.,R1292,")*M.2V7* B 2 Z 3O7R+ACT.(KA")*M* B * B 2 N 3A3L6 SW3AWP*(216-OI+T3M.1J628:,3AWM")*M6IKW3IWT*(21.3B56)OI3POA",*M.LV320ZI3O7R+AT*/^/3S3O3LV 
IWN2 OS3HWU7LKE7LOI+TCE3GSE3ROU+KCT7WKE3D;E* ^?.,GA")*M2IWR+AD.1J,*7&57IKF3AWG"M&J+IF7IKF3AWG.-^6.2N)*120.3B2.,F3"0*M.3B26IKW3IWT*(21.3V2")*M.3V22I?F3RGM+T>(*/>/")*M2I?D. B320. 212=.2F,"468.JB360^I7RSI/EF(.,N3*0")3N7A3E.(22.,*12)/K62.1F,"16).JN320ZI3O7R+A
+I23*33X21F0"26).JF320NI7OSN7IWNE*M* B * B 2 V N7D"J*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