File KUWA3C.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"37C"J7C"J	C7KKU3SGW+HCL6-N 3P	E3CWH+RCN7DKE2 OS3H	R3F3T3IC+ECN3FWA3CWHR*M3CZI7UKE2 GD/SN 2.F 7BSI3U[R3AC2MNJ"M&J3C7O3M;O2 [I3O7R2,I3AKL6,OI+T3A7ISS3B&,3SST6,OI+T3E7ISS3F&,3S
T6,OI+T3L7ISSM*M2I?C3M?M3N2 3A[N2,GI+N3F3I&,22&,3ZWF6,+I+F3AN*M2I	D3M;E3S?I3N& .(F1.,R1*82)+I"2.1"42)&,.3R(.,R1*82)/NZ(*72)7NWK*(&62,/I/NF(*4&8"M&J3D7I7EON3I;O2 GF+CH.2R,*22)3IWF.(J2"76)2J&I3SGP+C6=.2F0"6*M6IOI3T;F*=.17ISSA*M6IOI/T7C.1"46+OIT7A2J&I7SOT.=Z
20&+3SGT"M&J+DCO21. .1F=.,R1"8*M*II21.,.16)"0*M.IKI.(GK.)B="M&J+I"321.,.16)"0*M.IOI*(22+K&1"=632J&I.3N(.,GK.)R=.MFJ.IOI*(24+K&1.=F-"M&J3C3A7LJ 7TCA/EF(6,OI3T;F.,V222Z,3AC")*M6IKW3IWT*(21.8B02)[I3O7R2,I3AKL6,OI3POA",*M.8B02I?F3RGM+T>(2		S+NCD3DWI2 OS3H	R3F
T3IC+ECN3FWA3CWH3RZ 7UKE* 2	+A22*	^..,GA",*M*I^12 OS3H;O2 WG3SWP3IC7ESR* ^?.,GA")*M2IWR+AD.1J,20&)3FGRG7E2J&I3F&(3FGR+G7E.6J7.)" *320.8B2.,N8"0*M.8B32I?D. R820. .1F=.,R1"8*M.8B4.IKI.(GK.)F="M&J7GSO/O" "160.JJ820NI3A3L6 SR3AWP*(216-OI+T3S.5J9.,OI")*M.8B12I
C+LCL7DSA+F"37IKF3AWG.,OI")*M"8&53C3A7LJ 7TCA/EF(6,OI+T3G.1J628&,")*M"2&07FKO7MSA.(KA")*M2IGC+LCL7KOU+OR+I&3.MRJ"0&03C3A7L^ 7TCA/EF(2,&-7SOT.,&522&,"36)"J	C7KKU3SGW+HCL2-F 3U
S3AWB2 WD3RZ 7UKE2 GD/SN 2.KA7IWT3RGFC7H"J	C7VKO7GOE3EWH3N;E6 WK3RWS.MNJ"1&53W	R+TE.1J,*4&27ICS+A3C.MJJ"4&27FKO7MSA2(&	7N^ 7I[E3I3E6 CS7ASL+ECN3S3O3LR +ICE7LOI+TCE3GSE3ROU+KCT7WKE"M&J21WD+N" 21> 7DKE* &2* ^?.,GA")*M2IWR+AD.1J,*4&37ICS7ASL.MJJ"4&37FKO7MSA.
GI")*M2I[I6(OI3P3A/TJ-.)F3.0N,*120.3V1.MNJ"1&03IOS/H7U*2*07ICS7ASL"M&J3IOS/HF=20&*3SGPL7T6J^I7RSI/EF(.,R2"16).JR221ZI3O7R+AT./"/*0^(*-&	")*MC*MC&I"I&I2IWS3IWT" 62"J7C2J&I3S	E"=602J&I3W	E/CF="M&J+DCO.1B1. GK2=GI+N3F.1&46,OI7CWH"M&J3IWS3I&=3S	E"+612J6I/A7X.
"4"M&J+IF+K61.1&46+OI7CWH.)F1.2F,*124.1R1.MFJ"1&27MA.=GK6+OI7CWH"-61.JF164^I7RSI/EF(.,J120&)7FKO3M&,3H3A3B&,3S	E"M&J3W	R+TE.1F,*2&1+I"321.,*12)+I"3216,+A	X.MFJ"2&07FKO7MSA*(>/2/.	7LOA3S;E7SWT+FCE2	F,*2^,2 GH3L+B7AKH* 2	+A2263"26,N	7ESI+E2	+I&3.MFJ"2&17FKO
MSA*(^/2 OS3HWU7LKE3N7U7MKE* 2	+I232	J +ICS2	&,*3>/"/6)2JRI/OF *5B0/K62.0F,29&,3SC"M&J+DCO.1B6. OK*=20"9*M.IGL.=GK.+KK.+OK"M&J+IF+L61.1"4.)F *125.1V1.,F1"0*M.1V12I[I.(KK.+OK.-&1.)F *521.1F5.,V1"0*M.1F56ISI/EGM.=GL"M&J3IWT/M62+L.1*2*06(OI3P3A/TF-")*M2IWI/N
D"0*M2I[I6(OI3P3A/TJ-.)B7.5N,*220.7V0.MNJ"2&0+IF+L61.1"2.)B7.5^,*025.7V5.M^J"5&53IWR/S7T.1&4.-GK"M&J+IF3IWR+S7T*2"*3IWR+S?T*2&). F7.0^,*225.7B1.M^J"1&03I;E3D&=7ROE/TJ/"+612J^I3O?T. N7"5*M.7V22IWI/N7D3IWR+S?T"2*M.7V32I[I.(GL2+WI+N7D.1"4.)^ *425.7V4.,F7"5*M
7V46ISI/EKM.=GL2+WIN7D2J^I3O?T. B7"5*M.7V16ISI/EKM.=GL"M&J3IWW/I7C"2*M.7V0.IGN21&=.3J(6,SI/EGM.)F/"0*M.IGN22&=.3J(6,SI/EKM.)F/"0*M.IKN21&=.3N(6,SI/EGM.)F/"0*M.IKN22&=.3N(6,SI/EKM.)F/"0*M.ION21&=.3R(6,SI/EGM.)F/"0*M.ION22&=.3R(6,SI/EKM.)F/"0*M2I/N/UF(2)&=.
J(6,SI/EGM.)F-20:*"1612J:I+KU.26)+I"323&,3T7E*16)*1*0/NF2"M&J7NWK*(&3.=OI*(243IWT+M&1.-B1.*ON"1*M2I/N/UR(2)&=.3J(6,SI/EKM.)F-20:*"1622J:I+KU.56)+I"323&,3T7E*26)*1*0/NJ2"M&J7NWK*(&6.=OI*(243IWT+M&2.-B1.*ON"2*M2I?D. B625* *=21"6*M2IN3I:=+KU+J.)"1*M2I?G+TO.6
1.,J6.5Z,*325.6V4.,V6*52)3N	H.MZJ"1&53IWT+M6=.2F0"6*MC*MC&I"I&I2IWS3IWT" 63"J7C2J^I3O?T. B6"5*M.6V26ISI/E7M.-&1"9692J^I3O?T. B6"5*M.6V36ISI/E7M.-&1"9682J^I3O?T. B6"5*M.6V46ISI/E7M.-&1"9672J^I3O?T. B6"5*M.6V56ISI/E7M.-&1"966.JB625:I+KU/J6)3IWTM*M2I[I.(GL2+
I+N7D.1"4.)Z6.5Z,*625.6V7.MZJ"7&5+DCO.6V8. 7J.4Z,.MZJ"8&57NWK*(	J.=J-.0Z1.MZJ"6&53C3A7LJ 7TCA/EF(6,OI+T3M.1J628&,")*M2I/K"=612JRI/OF *7B0/K64.1F,"4682J&I3F&(*(21+K&4.-OI*(21+L&1.)F *725.1B9.,^1"5*M.1B9.I7KK642J.I3K.=/KF+"M&J7GSO/OF(*725.1V7.,Z2*52)K7K.J^1
5&I3F&(*(21+K&4.-OI*(213IWT+M&2.)F *720.1V8.,^1"0*M.1V82I/K2=/K"+612J2I.=SK"M&J7GSO/OF(*720.1B7.,Z2*52)K7K.J^120NI7OSN7IWNE*M.2V62I?G+TO.2V7.,Z2*02)7ICS7ASL.MJJ"6&03W	R+TE.1J,*5&0*(I+K25+K2)/K65.1F,*12)3N:(*1&1*,N/NF22):,.(ON*12)"M&J+IF+L.13I;E/DF-*4&8.7B
.,J7.0^,"360.JN760^I7RSI/EF(.,R720&)3SGPC*M.7B42I?F3RGM3TF("16)2J^I3O?T. V7"0*M.7B26IKW3IWT*(21.2F52)&(.(WK*,	L.,WK*=21*1&1*,N/NJ12):,.(KN*22)3N:(*3&2.MJJ"5&07FKO7MSA2(&/.3J,/XF,.0KA*,"3*23X+A&2")*M.2F52I?F3RGM/TZ(3X&,.3J,/XF,.0KA*,"3*23X+A&2")*M.7B56IKW3
WT*(21.5B02):(+KU+J2)/JF=*,&6.MVJ"0&07FKO7MSA.(V2/XN,6("2.,KA.)N,*13X.3J(3XF,*2&)"M&J7GSO/OF(*620.1B12)&,3W	EC*M.2V76IKW3IWT*(21.2B52)&(.(WK*,	K.,WK*=21*1&1*,N/NF12):,.(KN*12)3N:(*3&1"M&J+DCO.2V8. 7J.4Z,.MJJ"8&57NWK*(	J.=J-.0Z1"M&J7GSO/O^ "560.JZ120NI7OSN
IWNE*M6IKW3IWT*(21.2B7")*M.2B72I?F3RGM/TJ(X6).JV120NI7OSN7IWNE*M6IKW3IWT*(21.2B8")*M.2B82I?F3RGM/T"(*0^(*-&	")*M.1B12I?C3N	T3NWU"M&J3C3A3LR 3R[U3AZ(3AC.,OI")*M2IGC+LCL3RGT+PE*16,7ISS/DF,.6"2*,	I2MNJ2IWR3SGT3U	R7EWR+NCG7DOE2 ?C3M?M3NJ-3EWR3ICS*M2IGC+LCL3RG
+PE*16,7ISS/CJ,*2273IWF")*M2I?D. "820. .1F=.,R1"8*M.8B8.IKI.(GK2)&=+FE+K.1*1&2"M&J3C3A3LN 3H	A+N" 6	WK/WOA+S&	"M&J3ESN"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