File KUWA2A.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"27A"J7C*JCC* B * B 7KKU3SGW+HCL6-N 7OSR7IKE+ECN2-Z 7AOL3CWH2 GD3T;E* B-3FE3L;E+DCE3SC3U3EE7R"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[Z3E&,3ZGF*MBJ* B * B 2 	D3M;E3S?I3N& .(F1.,R1*82)+I"2.1"42)&,.1Z(.,R1*82)/LF(*4&9*MBJ* B * B 2 GC+LCL3RGT+PE21&,3S3T.,R1292,")*M2IGL/N7F/LF(*4&9"M&J+DCO*2B0/K61.1F,"468.JB2.IKI.(GK.)B=.MFJ*0B * B 
 ?F3RGM+T" +A&2*MBJ* B * B 6 +I/F7E"0*M* B * B 2 & 3ZGF"=60*JB * B * B 3IWW/I7C"1*M+CB * B 6 N 7OSR7IKEE7N.JB1*0B * B /K60.1"4*MBJ* B * B 2 ?D. F120. 232=3A[N.,R1"8*M* B * B 2 . .4F=*468+K.33L;AF*M* B * B 2 R /OF *2B0/K6521.,"0*M* B * B 2 & +F" /IF(.,WK2)
-.(SK.)F)*220.1B3.,J1"0*M.1B3* B 2 R /OF *5B0/K66.1F,"1*M* B * B 2 & 3T7E*=I+K26+K&5*MBJ* B * B * I+K26+K&5*=I+K26+K&0.MFJ*5B0* B * I+K26+K&06=SIE7M*JB * B * B /K60+K60"1*M* B * B 2 ^ 3O?T. F1"0*M.1B2* B 2 N 7OSN7IWNE*M+CB * B 6 N +C;H+N;R2 	N7CSH2 	E3NWG
LOEE7N*JB * B * B 7GSO/ON(*020.1B1.,F1.0F,*1&06,
I3EOI.MNJ*0B0* B 6 +I/F7E3I[Z/EF+*MBJ* B * B . KI6(+I+F	E*=L+K&4.MNJ*1B0* B 2 ?F3RGM3T&("36).JF1*0B * B 3C;O3T;IU7E*JCC* B * B 7AOU7DWR+CCK7DKE2 GF3LOS3H;E2 OS3H:.R*M* B * B 2 ^ 3O?T.(B3.,B2.0Z,*020.4B22)&,3W	EC*M*3B0* B 2 R /ON *4B0/K6321.,"0*M* B * B 2 
 +F" /IF(.,OK.)N)*520.3B4.,V3"0*M.3B5* B 2 ^ 3O?T. N(*620.3B7.,^3.0N,*7&06,
I3EOI.MNJ*6B0* B 6 KW3IWT. F(.,Z3"16).JZ3*1B * B 7FKO7MSA*(>/2	GF3LOS+HCE3SC3U3E3E;R3U7M3E;R* ^!"/6)*JB * B * B 3IWW/I7C"2*M.3B7* B 6 ^ 7RSI+E" .1N,*1&0/IF(.,OK")*M* B * B 2 & *(21+K&3"=60*JB * B * B 3I[Z3A&=3ZGF"+61.JR3*0B * B 3C;O3T;IU7E2JNI3A3L6 SW3AWP
(216-OI+T3D.1J628&,")*M6I
I3EOI"=63"J7C"J	C"I&I6INI7ESI/EJ 2MNJ"M&J+DCO.6B1. GK*=21.1"4.MZJ"1&0/IF(.,GK.)B="M&J3C3A7LJ 7TCA/EF(6,OI+T3E.1J628&,")*M2I?G+TCO.1B0.MZJ"0&0+DCO.6B4. GK*=21K60.JR620&I*(21+K&1"=602JNI3A3L6 SW3AWP*(216-OI+T3E.1J628&,")*M2I?D. Z220. .1F=.,R1"8*M.2B6*II21.,
16)"0*M2IGC+LCL3RGT+PE21&,3S[T.,"828&,"16)*JB * B * B +DCO*7B0/K61.1F,"468*JB * B * B +DCO*7B0/K62.1Z,.M^J*0B * B * I+K22+K&1.=GI.(KK.,GK")*M* B * B 2 & 3W	E/CJ=*MBJ* B * B 2 ?G+TCO.1B0.MJJ*0B0* B 2 ?D. N220. .1F=.,CK.MJJ*3B0* B * I21.,.16)"0*M* B * B 2 R
/OJ *1B0/K61.1F,"468*JB * B * B +DCO.2B1. KK*=21"6*M.2B1* B 2 & 21.(22.,.16)3I.(22.,"16)*JB * B * B 3C3A7L^ 7TCA/EF(6,OI+T3F.8"8.,GI")*M6I
I3EOI"=642JRI/OR *0B0/K61.1F,"468.JB420&I*(21+K&1"=602JNI3A3L6 SR3AWP*(216-OI+T3G.1J628&,")*M2I?G+TCO.1B0.MRJ"2&0+DCO.4B4. GK*=21.1"4"M&J+DCO.4B4. KK.=B1.,F1"M&J+IF3I.(22.,*1&). R4.0R,*520.4B4.MRJ"5&03I.(22.,.16).1B0.MRJ"4&03C;O3T;IU7E2JNI3A3L6 SW3AWP*(21
-OI+T3G.1J628&,")*M* B * B 2 & 3A[N.=CK"+61*JCC* B * B 7AOU7DWR+CCK7DKE2 WF3HWL3NWD7NN 7CWH3EWLR*M* B * B 2 & +F" 3I[Z/EJ)*520.2B5.,R2"0*M.2B42IGC+LCL3RGT+PE21&,3S7T.,Z1*228I6)*JB * B * B 3W	R+TCE*(21.5B5")*M.5B5* B 2 Z 3O7R+ACT*(>/2	WF3HWL3NWD2 OS3HWU7LK
*!>	")*M* B * B 2 R /OV *6B0/K6121&,3ZWF*MBJ* B * B 2 ?D. Z520. 222=3A[N.,R1"8*M* B * B 2 & +F" /IF(.,KK2)&-22&(3ZWF.-GK*+&1.)Z5.0V,*720.5B6.MVJ*7B0* B 6 KW3IWT. F(.,B82)&(.(OK.,KK2).,.3F=.,F1")*M*8B0* B 2 Z 3O7R+ACT.(OI6,"2.,B1+A&2.MVJ*6B0* B 2 ?C3N	T3NW
.MJJ"5&03C3A7LJ 7TCA/EF(2,&-3S[T.,"828&,"16)2JRI/O& 20. .1F=.,R1"8*M2I?D. B9. KK*=21"6*M"9&03I.(22.,.16)+I"1+K22+K&1"M&J3C3A3LN 3H	A+N" 6	WK/WKA+B&	*MBJ* B * B 2 ;ED*M"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