File KUR2B.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

2MNJ* B * B 6 WK7R
S3A3H* B-3D[E3I	N3T?I3NR 3ROU+K6 2 ;U3WOI3H	T+GCE7DSA+ECN3UKE7ECR3RWU3F;E*MBJ* B * B 2 ?C3M?M3N& 7FKO3M&,3H3A3BZ,3IWL3BZ,3IWL3DZ,3IWL3EZ,3IWL3FZ,3IWL3LZ,3IWL3MZ,3IWLN*M* B * B 2 N 3O7M+OCN3L;A3F&,3A[N*,3I3I[Z3E&,3ZGF",7N*JB * B * B 3D7I7EON3I;O* I*122.2Z9
):,.(^6")*M+CB * B 2 R 3E	F7NSI3I;O2 WD3RR 3ROU3KGV3RGI3BWLN*M* B * B 2 R /OF . OK*=21"667*JB1* B * B 3N.(.36).-B2"166*JB * B * B /NJ(*)6="362*JB * B * B /NF(.16).2"8*MBJ* B * B * N*1&2.=N3"4*M* B * B 2 : .(N1.)N="960*JB * B * B /NF(.46).7R7*MBJ* B * B * 
*1&5.=F1"763*JB * B * B /NF(.66).3"9*MBJ* B * B * N*1&7.="7"2*M* B * B 2 : .(F2.)R="664*JB * B * B /NJ(.26).8N5*MBJ* B * B * N*2&3.=J7"5*M* B * B 2 : .(R2.)^="868*JB * B * B /NJ(.56).8Z3"M&J/NJ(.66).3&3*MBJ* B * B * N*3&1.="4"0*M* B * B 2 : .(J3.)N="361*J
 * B * B /NN(.36).1&4"5*M* B * B 2 : .(R3.)F=.2F3*MBJ* B * B * N*3&5.=B1"265*JB * B * B /NN(.66).1N0"9*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"0*M* B * B 2 : .(F5.)F=.1^5
MBJ* B * B * N*5&2.=F1"663*JB * B * B /NV(.36).1R0"3*M* B * B 2 : .(R5.)F=.2J32MNJ* B * B 2 WU7ECR3R[U+ECN3KGL3SWS7NSS3UWF2 ;U3D" 3AKL3JAR*M* B * B 2 R /ON 20. 21&=3A[N.,&2"6*M* B * B 2 & .(J1.,GK.)B=*MBJ* B * B 2 [I2 &(*(24+K&12-&(7FKO/M&+*2&2.)B2.,B1.,B
.MFJ*0B * B 2 [I2 &(*(25+K&12-&(3H3A/B&+*9&2./R6.)B2.,B3.,B2.MJJ*0B * B * I*122+K&1"=61.JB3* B * B 3C;O3T;IU7E*JB * B * B +ICF2(GI+N7F.1"4.)B4.,B5.,B5.MRJ*0B * B 2 GC+LCL7ICO+ECN2(R	/TGA2	Z,3IWLD6)*JB * B * B +DCO*6B0/K61.1F,"468*JB * B * B +DCO*6B0/K62.1
,"1*M*6B0* B 6 J 3ESA. R(.,B420&).(KK.,GK")*M.4B0* B 2 Z 3O7R+ACT.(KA")*M*5B0* B 2 N 3A3L2 ?I3P;E* ^(3DGT*12	3F3I+E	E*MBJ* B * B 2 ?D. B7. GK.=R1.9J,"966*JB * B * B +DCO*7B0/K62.1F,"1*M*7B0* B 6 J 3ESA. R(.,B420&).(KK.,GK")*M+CB * B 2 Z 7AOL3CWH3R. 7UOR3N
AE*M* B * B 2 R /OF *0B0/K613I;A/FJ,"966*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.1B2.,J1.0F,"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.0F,"160.JJ1*0B * B 3I.(22.,.16)"2*M* B * B 2 . .4J=*MBJ* B * B 2 ?G+TCO.1B1.MFJ*1B5* B * I+K22+K&1"=61.JF1*0B * B 3C;O3T;IU7E*JB * B * B +ICF.(SK*-&1.7B0.,B7.0F,"460.JR1*0B * B /IF(22.,.16)/IF(22.,*1.)"4*M.7B0* B 2 & +F" 3I?F+R/M.9F1.)
1.0^,*120.1B0.M^J*1B0* B 2 ?D. J720. .2J=",63*JB * B * B +ICF*(I+K22+K&1.-F4.)R7.0^,*320.7B3.M^J*3B0* B 2 [I2 &(.(KK.,GK.)R-.4F)*020.1B0.,R7"0*M.7B4* B 2 & +F" 3I.(22.,*16)*1&2.7B2.,V7.0^,"560.JV7*0B * B +ICF*(I+K22+K&1.-^1.)B1.0F,*020.7B2.M^J*2B0* B 2 ?C
N	T3NWU*MBJ* B * B * I*122+K&1*=I*122+K&1"+62.JB1*0B * B 3C;O3T;IU7E*JB * B * B 3C3A3LN 3H	A+N" 6	WK3RN2"	6)*JB * B * B 3ESN"M6J&J*L

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