File KUWA3B.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"37B"J7C*JCC* B * B 7AOU7DWR+CCK7DKE2 GF3CKH3EWL3G;U3G3S7ISSE7N"J7C*JB * B * B 3C7O3M;O2 [I3O7R2,I3AKL6,OI+T3A7ISS3B&,3SST6,OI+T3E7ISS3F&,3S
T6,OI+T3L7ISSM*M* B * B 2 N 3O7M+OCN3L;A3F&,3A[N*,3I+I223I[Z3A&,3ZWF",7N*JB * B * B 3D7I7EON3I;O* I*121.1"42)&,.2F(*4&82,GF+CH.2R,*22)/NZ(*72)3I;K.(R1*82)3IWF.(J2"76)2J&I3S[T/NF=6+OIT7A2JNI3A3L6 SR3AWP*(217ISS+F3N.2J52,GF+C	H*MBJ* B * B 6 KW3IWT. F(.,^5"0
).JB1*0B * B 7FKO7MSA2 F("26)"J	C3SC3A[F3U
N2 	E7NOE2 GV3RGI3BWL3NV 7ION3TWIG7S"J	C+UCM3B	E2 WJ7DKE2 WB3LWI3B
I+ECN7KKU7SKA3T> 7DKE2 GF+CCH+ZCU3B
E3I;NE7N"J	C6(* *.;B2 GN+CCH3E;I+ECM3FE7LKE" 6)6JJI3ESA. F(.,B9*0B)3KGU+R3T3LGFN7F.JB920ZI3O7R+ACT2(.	7UOR7ASR* B * B 2 &	*1^/3A[N3A
N3SGF+CCH2 &	"26)2J^I3O?T. F(.0Z,.0",.0V,.0^,*02)3KGUR7T*JCC* B * B 3L	E7SWT7NOG7KKUS7E.JB1* B * B 3IWW/I61"1*M* B * B 2 & /C7A"2*M* B * B 2 & /C7E"3*M* B * B 2 ^ 3O?T. &9.MRJ*0B * B 2 [I2 &(7FKO/M&+*1&1*520*820"560*JCC* B * B 7GWR3N/D7UOR3E. 7LOA+SCE*1>1
1*M*6B0* B 2 & 3W	E.1J=*MBJ* B * B 2 OI/AJ=*MBJ* B * B 2 OI/EF="1*M* B * B 2 ^ 3O?T. &92MNJ* B * B * :32 KA7IWT3RGFC7H.JB5* B * B 3IWW/I61"4*M* B * B 2 & /C7A"4*M* B * B 2 & /C7E"4*M* B * B 2 ^ 3O?T. &92MNJ* B * B * :42 KA7IWT3RGFC7H.JB7* B * B 3IWW/I61"5
M* B * B 2 & /C7A"5*M* B * B 2 & /C7E"5*M* B * B 2 ^ 3O?T. &92MNJ* B * B 6 KG3USN7KKU+SCE+ACB3KGL3SWS. F1".62.JB8* B * B 3IWW/I61"3*M* B * B 2 & /C7A"4*M* B * B 2 & /C7E"161*JCC* B * B 3B
E3I;N2 OS3HWL3IWF2:R 3ROU3KR +ECR7LOI3T;E.M&J29RI/ON *0B03IGF2=[L3A[N.,^6*MBJ* B * B 2 [I2 :(2([I+A.).2F0.6F)*220.3B0.,J1"0*M.1B2* B 2 & /FGA2=&(+F?A*160*1*)*7"+3IGF.-B12*&(+F?A*1&0")*MC*MC&I"I&I2IWS3IWT" 62"J7C*JCC* B * B 3SOU3H;E2 WD7RN 7CWH3EWL3RZ 7UKE
 	E3NZ 3AC*MBJ* B * B 2 ?D. N120. .1F=.,R1"8*M2I/I3N.(.16)"0*M.1B3* B 2 & 22.(.16)"0*M* B * B 2 . .0F=*MBJ* B * B 2 ?D. "120. .1F=.,R1"8*M* B * B 2 R /OF *8B0/K623IGC2,OIE*M* B * B 2 & +F" /IF(.,GK.)F)*820.1B8.,R1"0*M.1B4* B 2 & +F" 3I.(22.,*16)3IGF.)"1.0
,*520.1B8.MFJ*5B0* B . KI.(GK2)&=*(21+K&1"M&J3I;K.(GK2).="2*M* B * B 2 . 20.=.0F+.MFJ*8B0* B 2 ?C3N	T3NWU*MBJ* B * B 2 [I2 .(.0F-.)B3.0N,*020.2V02MNJ2I	E3NWL3S;E2 WD3R. 7UOR7USN3E;R3U7M3E;R.MJJ"0&53C3A7LJ 7TCA/EF(2,&-3SWT.,Z1*228I6)2JRI/OJ *2B0/K61.1F,"46
2J&I+F" +I"2+K&1.)J *220.2B2.,N2"0*M.2B32I?D. R220. .3F=.,R1"8*M2I[I2 &(22.(*16)/IF(.,OK*)B).2B4.,V2.0J,"460.JV220&I+KN+K&1*=I3I;K.(GK2).,"36)2J^I3O?T. J2"0*M.2B42I?C3N	T3NWU.MJJ"2&03C;O3T;IU7E2J.I20.=.0F-2MNJ* B * B 2 	E3NWL3S;E2 OS3HWU7LKE3N7AE7N2JNI3A3
6 SR3AWP*(217ISS/MF,.6"2*,	I2MNJ* B * B 6 WA7SKD3U/C2 ?K7PSF7ESX*MBJ* B * B 6 KW3IWT. F(.,V420&)7FKO3M&,3H3AB*M.4B5* B 2 Z 3O7R+AT*/>/2	. 7LOA3S;E7SWT/F+E* 2	+A22*	B 3H3A3BGJ/H+R* 2	+A&1"M&J+DCO.3B5. 7M.1R,"M&J3IGZ.1B="M&J+DCO.4B7. GK*=21.1"4"M&J+IF3I;K.(
K2)6-.)R *720.4B8.,^4"0*M.4B86I+I/A613IGZ.1F+.MRJ"7&03C;O3T;IU7E2J&I3F&(/ZGA.)N *520.3B5.,^3"0*M.3B76IKW3IWT. F(.,J4*0")3FOA3H.(21&,/FGA2).,.1F=*,&2",*M.4B2* B 2 Z 3O7R+ACT*(>/2	GF/C+H* ^ 2,F2"66)*JB * B * B 7GSO+O" .4F2.,J4.2R,*222.4R2.,J4*52)3IWWI61.JJ4
1B * B 3W	R+TCE*(21.4F3*)N*12)M6,.JN4*1B * B 7FKO7MSA. J(+X^,3L	E7SWT7NOG7KKU+S2	+A21+I21*2	X*MBJ* B * B 2 ?G+TCO.4&2.MRJ*2B2* B 6 KW3IWT. F(.,N422:)*(&1*,3M.MRJ*3B2* B 2 ?F3RGM+T" *23X6	KG3USN7KKU+S2	+A21+I21*2	X*MBJ* B * B 2 ?G+TCO.4&2.MRJ*2B4* B 6 KW3I
T. F(.,N424:)*(&1*,3M.MRJ*3B4* B 2 ?F3RGM+T" *23X*	:33A	B7TKU3FOA+H2	+A21+I21*2	X*MBJ* B * B 2 ?G+TCO.4&22MNJ2MNJ"I&I"I&I3S	E+TCE"3*MC*M.4V2* B 6 ^ 7RSI+E" .1R,*3&5/NF(2)6,",*M.4V3* B 2 Z 3O7R+ACT6("2.,R	2.KA7IWT3RGF+C
H.,GA.,GI6,"2")*M.4&26IKW3IWT. F(.,N423&)/ZGA.MRJ*3B3* B 2 ?F3RGM+T" *33X*	^(+I^42 OS3HWU7LKE*)2	*/>/")*M+CB * B 2 R 3ROU3KR +ECR3N7AE7N2J&I/ZKA"=60.JB521RI/OV *0B0/K61.1F,"468*JB * B * B +ICF.(KI.(GK.)V)*025.5B0.,B5"5*M.5V0* B 2 R /OV *1B5/K623L;A/FF,"46
*JB * B * B +ICF*(I21.,*26)+I"2+K&1.)F5.5V,*220.5V1.MVJ*1B5* B 2 ?C3N	T3NWU.MVJ"2&0+ICF2(/I3N.(*16)/MV)*020.5Z2.,B5"0*M.5Z2* B 6 ^ 7RSI+E" .1V,*2&5*(I+K23+K&2.,OK*=21*1&1.MVJ*2B5* B 2 ?F3RGM+T" +I23*23X21F0"26)2J&I/ZKA6=+I+A.2"1*M2I[I6(+I+A623IGZ*1B).5B0.
B5.0V,"160.JB5*0B * B 3C;O3T;IU7E.JF560^I7RSI+E" .1V,*7&0.MVJ*7B0* B 2 ?F3RGM+T" */>/./"/*0^(*-&	*/>/*/&/.MNJ"5&03C;O3T;IU7E*JCC* B * B 3SC3U3E3ESR3AWT3NV 3I3N3EWSN*M.8B2* B 2 N 3A3L6 SR3AWP*(216-OI+T3D.1J628&,")*M6IOI/T7E.1F06+OIT7A2J&I3SWT2=&-7AOB6(OI+T
E.MNJ*0B0* B 2 ?C3N	T3NWU"M&J3LGF/N7F"3*M6IOI/T7E6-OIT7E*JB * B * B 7GSO+O" *420.8B6.,Z8.0^,.0",*02)3IWWI61*JCC* B * B 3ESN7EN 3C3H3E[I+EB:7DWR+CCK7DKE2 	L3SWTN*M+CB * B 6 J 7ESS7AKU7IKE+ECN7DOE2 N"3O7M+OKN2-WB3R	E7COH.M"J*6B0* B 6 SI/E7M3I;A/FF-*MBJ* B *
B 2 ?D. ^820. .1F=6,SIE7M*JB * B * B +DCO.8B7. KK*=21"161.J^8*0B * B 3I.(22.,.16)"0*M2IGC+LCL3RGT+PE*16,7ISS/CJ,*2273IWF")*M2I?D. "820. .1F=.,R1"8*M.8B8.IKI.(GK2)&=+FE+K.1*1&2*MBJ* B * B 2 GC+LCL3CGH+ICN2(.	3UGW*3
S")*M* B * B 2 V N7D&J*L

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