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"M&J3W	R+TE.1J,*4&1.MJJ"4&17FKO7MSA*(>/*8"0*	^-")6)2J&I3S	E"=602J&I3W	E/CF="M&J+DCO.1B1. GK2=GI+N3F.1&4.,B4"M&J3IWS3I&=3S	E"+612J6I/A7X.1"4"M&J+IF+K61.1&0.)F *122.1R1.,F1"4*M.1J12IGM3X.=.
N+"9*M.1R16IKW3IWT*(21.1B22)[I3O7R2,I3AKL6,OIE7I6J^I7RSI/EF(.,J121&).3F(.,GK2)&,.3F(2,GMX6)"J7C"J	C"I&I6INI7ESI/EJ 2MNJ.MFJ"2&07FKO7MSA*(>/2/.	7LOA3S;E7SWT+FCE2	F,*2^,2 GH3L+B7AKH* 2	+A2263"26,N	7ESI+E2	+I&3.MFJ"2&17FKO7MSA*(^/2 OS3HWU7LKE3N7U7MKE* 2	+I23
	J +ICS2	&,*3>/"/6)2JRI/OF *5B0/K62.0F,.9F,"0*M2I?D. Z120. .3B=",692J2I21.=21.+22.+"3*M2I[I.(GL.-R1*8B).1V1.,F1.5F,"160.JF125&I3F.(22.+.3F-*9B).1F5.,V1.1F,"560.JV121&I3T7E212="1*M6ISI/EKM.=GL.+B2"M&J3I;E/DB="M&J+IF+L61.1"2.)B7.5^,*025.7V5.M^J"5&53IWR/S7T.
&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,S
/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)&=.3J(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.6V1.,J6.5Z,*325.6V4.,V6*52)3N	H.MZJ"1&53IWT+M6=.2F0"6*M2I?G+TCO.6V0.MZJ"2&53IWT+M6=.1&9"9*M
I?G+TCO.6V0.MZJ"3&53IWT+M6=.1&9"8*M2I?G+TCO.6V0.MZJ"4&53IWT+M6=.1&9"7*M2I?G+TCO.6V0.MZJ"5&53IWT+M6=.1&9"6*M.6V02I/N3U*(2)&=3T7E"M&J+IF+L.13I;E/DF-*4&8.6V6.,Z6.5Z,"765"J7C"J	C"I&I6INI7ESI/EN 2MNJ.MZJ"7&5+DCO.6V8. 7J.4Z,.MZJ"8&57NWK*(	J.=J-.0Z1.MZJ"6&53C3A7
J 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*02)K7K.J^125&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*02)K7K.J^120NI7OSN7IWNE*M.2B66IKW3IWT*(21.2B52)&(.(WK*,	K.,WK*=21*1&1*,N/NF12):,.(KN*12)3N:(*3&1",*M2I[I.(GL2+WI+N7D.1"4.)J7.0^,*220.7B3.M^J"3&03W	R+TE.1^,*4&07ICSA7C.JR720ZI3O7R+AT+A&1"M&J7GSO/O^ "560.JJ760^I7RSI/EF(.,V2*1")3I.(252,2).,.5F=.
F12):,.(GN*22)3N:(*2&2*,N/NJ3")*M.2B52I?F3RGM+T>(+I23*23X21F0.2N,6("2.,KA")6).JV221ZI3O7R+AT*63X+I23*23X21F0.2N,6("2.,KA")6).JV760^I7RSI/EF(.,B5*0")7NWK*(	J.,7J.1Z,")*M.5B02I?F3RGM/TJ(*53X.3J(3XF,*22)63"1*,"3*23X+A&2")*M2I?G+TO.1B6.,F1*02)3IWWI7C.JZ120NI7
SN7IWNE*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+LCL
RGT+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