File KUWA2B.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"27B"J7C*JCC* B * B 7KKU3SGW+HCL2-R 3E	F7NSI3I;O6 KD3U/C* B-7U
N3IC3T
I3ER 3AWT7NV 3EWB7RKP3U[EE7N"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",7N*JB * B * B 3D7I7EON3I;O* I*121.1"42)&,.2F(*4&8*,N*6&72,GK3U3F.(B1"66)*JCC* B * B 3D[E3I	N3T?I3NR +ECR7DWR7C[K3A	R3A3BE7N*JB * B * B +DCO21. .3F=.,^6.MFJ* B * B * N+K&3.=J-.0Z1*MBJ* B
* B * N.26).-J3*MBJ* B * B * N*1&1.="2"8*M* B * B 2 : .(J1.)N="364*JB * B * B /NF(.36).3B9*MBJ* B * B * N*1&4.=^7"4*M* B * B 2 : .(V1.)F=.1"5*MBJ* B * B * N*1&6.=&3"8*M* B * B 2 : .(^1.)^="862*JB * B * B /NJ(.16).1Z1"6*M* B * B 2 : .(J2.)"="563*JB * B * B
/NJ(.36).7V2*MBJ* B * B * N*2&4.="7"8*M* B * B 2 : .(V2.)"="3662J:I.(Z2.)N="3692J:I.(^2.)R="666*JB * B * B /NN(.16).4B8*MBJ* B * B * N*3&2.=N3"1*M* B * B 2 : .(N3.)F=.4V9*MBJ* B * B * N*3&4.=J1"361*JB * B * B /NN(.56).1J0"5*M* B * B 2 : .(Z3.)F=.0N3"M&J/N
(.76).1R0"3*M* B * B 2 : .(F4.)"="664*JB * B * B /NR(.26).1N0"2*M* B * B 2 : .(N4.)J="060*JB * B * B /NR(.46).1^3*MBJ* B * B * N*4&5.="5"2*M*IN*4&6.=N1"567*JB * B * B /NV(.16).1V1"7*M* B * B 2 : .(J5.)F=.1N6*MBJ* B * B * N*5&4.=J1"3622J:I.(V5.)Z="6612J:I.
Z5.)F="4692J:I.(^5.)F=.2Z3"M&J/NZ(.16).3&9"M&J/NZ(.26).2B1"M&J/NZ(.36).6F0"M&J/NZ(.46).1"2"8*MC*MC&I"I&I2IWS3IWT" 62"J7C*JCC* B * B 3UKE7ECR3RWU3F;E2 3K7AOS7EON3T[U7EV +NCD3H3A3BGJH7R*JB * B * B +DCO*3B0/K613I;A/FF,"468*JB * B * B +I"2+K&1"=60*JB * B * B 
ICF*(I24.,*16)2([I3O7R.+J9*2&)*220*120"260.JB1* B * B +ICF*(I25.,*16)2(I3AKL.+&9*2>)*6&4*220*320"260.JB2* B * B +I"2+K&1"=61.JB3* B * B 3C;O3T;IU7E2JNI3A3L6 SR3AWP*(217ISS/BF,*0267KWA+F	L.MRJ*0B * B 2 GC+LCL3RGT+PE*16,7ISS/DF,.6"2*,	I2MNJ* B * B 2 GF3LOS7
KE6 WK3R;S3AWM"M&J7IWK/R7A7KWA+FL.1Z0")*M* B * B 2 R /OF *0B0/K613I;A/FF,"468*JB * B * B /K64"1*M* B * B 2 R /OF *1B0/K62.2F,"1*M* B * B 2 . 23&=.(KK.,GK")*M* B * B 2 & +F" +K&3.1B2.,F1.5F,"4*M*1B4* B 2 & +F" +K63*1&0.1V2.,J1.5F,"5*M*1B5* B 2 & +F" +K63*6
7.1B3.,N1.0F,"260.JN1*0B * B +ICF*(N+K&3.+B2*1&6.1B1.,J1.5F,"160.JJ125&I3F.(22&-7KKU/AF)*220.1B2.,F1"0*M.1B2* B 2 & .(KK.,GK.)J=*MBJ* B * B . SK"=62*JB * B * B 7GSO/OF "160.JF1*5B * B 3I.(22.,.16)"1*M.1B1* B 2 N 7OSN7IWNE*M* B * B 2 & +F" +K64.1^)*020.7B0
,R1"0*M.1B4* B 2 & 22.(.16)+I"2+K&1"+64.JB7*0B * B +ICF2([I3O7R.+F9.1F)*020.7B1.,B1"0*M.7B1* B 2 R /O^ *2B0/K62.2N,*MBJ* B * B 2 [I2 &(.(KK.,GK.)R-.1^)*420.7B3.,N7"0*M.7B3* B 2 & +F" 3I.(22.,*16)*4&4.1B0.,B1.0^,"460.JR7*0B * B +ICF*(I+K22+K&1.-J1.)J7.0^,*
20.7B5.M^J*5B0* B 2 [I2 &(.(KK.,GK.)J-.1F)*020.1B0.,J7"0*M.7B2* B 2 N 7OSN7IWNE*M* B * B 2 & 22.(.16)+I"2+K&1"+62.JB1*0B * B 3C;O3T;IU7E*JB * B * B 3C3A3LN 3H	A+N" 6	WK/WKA+C&	*MBJ* B * B 2 ;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