File KUWA3A.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"37A"J7C"J	C7AOU7DWR+CCK7DKE2 GW3H3L7ISSE7N"J7C2JNI3O7M+OCN3I?F+R3M3IGH+L3B7ISS3A&,3SKT6,OI+T3D7ISS3E&,3S[T6,OI+T3G7ISS3L&,3S7T"M&J3C7O3M;O2 GL+N3F3I;A3F&,.,KI6,+I+F3E3I[Z3A:,"M&J3D7I7EON3I;O* I*121.1"42)&,.2F(*4&8*,N*6&72,
.(F12):,+KU*1&0"M&J3C3A7LJ 7TCA/EF(6,OI+T3G.1J628&,")*M6IKW3IWT. F(.,B1"06).JB120ZI3O7R+AT./"/*0^(*-&	")*M6IOI/E7I"0*M2I?D. F120. 21&=3A[N.,R1.9J,"0*M6IOI/E7I3IWS+I. "1*M2IGM/XF="4682J&I+F" +KB1.-F *2&9. F1.2F,*124.1R1.MFJ"1&27MA.=GK.+&1.MFJ"1&43W	R+TCE*(
1.1B22)[I3O7R2,I3AKL6,OIE7I6J^I7RSI+E" .1F,*2&1/IF(.,GK2)&,*(217MA")*M.1B22I?F3RGM+T>(*/2/2	3K7AOS7EON3T[U+E^ .,KA*,B	3H3A3BGJ+HCR2	F,.2N,*23X2	WS3IWT2	&,"36).JJ121ZI3O7R+AT*/B	3SC3U3E3E;R3U7M+ECR2	&,*3^,2I	B+S^ .,OI*/>/")*M2I?D. N120. .2B=.,&1.,B1"M&J+DC
.1B4. OK*=20"9*M.IGL.=GK.+KK.+OK"M&J+IF+L61.1"4.)F *520.1B5.,F1"0*M.1B92I?F3RGM/TJ(X6).JV120&I+F" +K.2+K63*1&9.1F5.,V1.1F,"360.JV121&I3T7E.=GL"M&J/N7R/IF(6,SI+E	M"M&J/N61/IJ(6,SI+E	M./B1"M&J/N62/IN(6,SI+E	M./B1"M&J/N63/IR(6,SI+E	M./B1"M&J/N64/IV(6,SI+E	M.
B1"M&J/N65/IZ(6,SI+E	M./B1"M&J/N66/I^(6,SI+E	M./B1"M&J/N67/I"(6,SI+E	M./B1"M&J/N68/I&(6,SI+E	M./B1"M&J/N69/IF(20&,3T7E.)F/"0*M.IGN20&=.(F16,SI+E	M./B1"M&J7NWK*(&1*=I22&,3T7E.)F-20:*"1*M2I/N/UJ(2)&=*(233IWT+M6)*1*0N622J:I+KU.36)/IR(6,SI+E	M.-B1.*ON"M&J7NWK
(&4*=I25&,3T7E.)F-20:*"4*M2I/N/UV(2)&=*(263IWT+M6)*1*0N652J:I+KU.66)/I^(6,SI+E	M.-B1.*[N"M&J7NWK*(&7*=I28&,3T7E.)F-20:*"7*M2I/N/U"(2)&=*(293IWT+M6)*1*0N682J:I+KU.96)/IF(20&,3T7E.)F-20:*"9*M2I/N/UF(.06)/IF(21&,3T7E.)F-20:*"160"J7C"J	C"I&I6INI7ESI/EJ 2MNJ"M
J+DCO.6V0. 7J.1F,"0*M2I[I2(/N3U*(*)B).6V1.,F6.5Z,"265.JJ625:I+KU/J6)7NWK*(	J.-B2"0602J^I3O?T. B6"5*M.6V12I/N3U*(*)6=.2F0"6*M.6V02I?C3N	T3NWU"M&J3IWT/S7T.-B2"1662J&I+F" +I"2+L&1.)B2.,B2.,"1"0*M.1B86ISI7ESS.=J-.0Z0.MJJ20NI3A3L6 SR3AWP*(217ISS/MF,.6"2*,	I"M&
+DCO. J6202 .4F=.,R1"8*M2I[I*(I212,*46)+N	R. J6.0Z,*320.6B2.MRJ"2&07FKO7MSA.(KA")*M.6B36I+L.=SL"M&J7GSO/OZ "160.JJ620NI7OSN7IWNE*M.6B16IKW3IWT. F(.,B36)SI7ESS2,&(.(WL6,+L2)2,.5F=.,F12):,.(GN2):,.(KN2):,.(ON")*M*I213N:(*42)3N:(*52)3N:(*62)3N:(*72)3N:(*82)3
:(*92)3N:(*1&0*,N*12).MNJ20ZI3O7R+ACT2(F/22&,.3J,/XF,.0KA.,B16("2.,KA2)F,"26)2J&I7TOE3T&=222("16)2JRI/ON *0B03IWF/H7L.1&,"M&J+ICF6(SI7ESS*-*2.*&(2-[I3E3H.)N)*020.3B1.,F3"0*M.3B16IKW3IWT. F(.,J320&)3FEL6,.JJ320ZI3O7R+AT+I&1"M&J3IWT/S7T3IWT+S7T*2***(693IWF+
	L.MNJ"0&03C;O3T;IU7E6J^I7RSI/EF(.,&1"06)6J^I7RSI+E" .1V,*0&02(/N3U*(2)*,*=21*1&0.MVJ"0&07FKO7MSA.(^2/XF,.0J(3XF,*2>)")*M2IGC+LCL3RGT+PE*16,7ISS/GF,.6"2*,	I.MFJ"4&03C;O3T;IU7E6J^I7RSI+E" .1F,*6&0.MFJ"6&07FKO7MSA. J(X6).JN1"0& 3C;O3T;IU7E6J^I7RSI+E" .1F,*7
0.MFJ"7&07FKO7MSA.(B8*(6	*	&).MFJ"1&03C;O3T;IU7E.JF520NI3A3L6 SR3AWP*(216-OI+T3D.1J628&,")*M.5B22IGC+LCL3CGH+ICN2(.	3UGW*3
S")*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