File KUR2A.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-7SKO3TWI3R;E* B-3F3A3SC3ER 3AWT+N6 2 WF3HWL3NWD2 OS3HWU7LKE*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*MBJ* B * B 2 	D3M;E3S?I3N& .(J1.,&2*62)/LJ(
9&6*MBJ* B * B 2 GC+LCL7ICO+ECN2(R	/TGA2	Z,3IWLL6)*JB * B * B 3RGE+D" .4F,202)3A[N*MBJ* B * B 2 ?D. B2. GK*=21.2Z9*MBJ* B * B 2 WR+ACD*(24*1&03L.("16).JB2* B * B /IF(22.,.16)"0*M*1B0* B 2 Z 3O7R+ACT.(KA")*M* B * B 2 & 3ZWF"=60*JB * B * B 3I[Z/AB=*MBJ* B *
B 6 
I3EOI"=61*JCC* B * B 7SKO3TWI3R;E.MFJ*0B0* B . CK.=&2"6*M* B * B 2 R /OF *1B0/K633L;A/FJ,"966*JB * B * B /K64.2Z9.-OK2+GLN7F*JB * B * B +DCO.1B2. WK*=21K60*JB * B * B +ICF*(I21.,*56)3L.(*4&).1B2.,N1.0F,"260.JN1*0B * B +DCO.1B5. [K*=21"161*JB * B * B 3IWT3
&=.([K.,WK")*M* B * B 2 & .([K.,WK2)&=.([K.,CK")*M.1B5* B 2 & .([K.,CK2)&=3T7E*MBJ* B * B . CK.=CK"-61*JB * B * B 7GSO/OF "160.JJ1*0B * B 3C;O3T;IU7E*JCC* B * B 3SC6.KN2.: 3IC3TV 3I
N3EWL3S;E*MBJ* B * B 2 ?G+TO.3B0.,F1*02)3IWWI7C.JB3*0B * B 3I[Z3E&=3ZWF"+61*JB * B * B /IF(22&,3ZWF2)2=.(SK")*M.3B1* B 2 Z 3O7R+AT+I&3.MFJ*1B0* B 2 ?C3N	T3NWU2MNJ* B * B 6 WA7SKD3U/C2 WD3RZ 3AOS3H;E2 OS3H:.R*M* B * B 2 ^ 3O?T.(B3.,B2*02)3IWWI7C.JB3* B * B
+DCO.3B4. OK*=21K60*JB * B * B +ICF*(I21.,*3&).3B5.,R3.0N,"560.JV3*0B * B 7GSO+O" .3B6.,^3*02)3IWWI7C.JZ3*0B * B 3W	R+TCE*(21.3F6")*M.3F6* B 2 Z 3O7R+AT*/^/3F3A3SC7EN 7CWH3EWL7RWN3MWM+RCN*!>	")*M* B * B 2 & 3W	E/CJ=.MNJ*7B0* B 6 KW3IWT. F(.,F320&)*(21+K&3
MBJ* B * B * I21.,.36)"0*M* B * B 2 & 3ZGF6=+I+F/A"1*M.3B4* B 2 N 7OSN7IWNE*M* B * B 2 & +F" +K60.1"4.)V3.,V4.,V4.MNJ*5B * B 2 GC+LCL7OCO+ECN2(R	/TGA2	Z,3IWLD6)*JB * B * B +DCO*4B0/K61.1F,"468*JB * B * B +DCO*4B0/K62.1F,"1*M*4B0* B 6 ^ 7RSI+E" .4F,20&).(K
.,GK")*M* B * B 2 N 3A3L2 OO7LOOE*M*4B5* B 2 N 3A3L2 ?O3P;E* ^(3DGT*12	3F3I+E	E*MBJ* B * B 2 ?D. B5. GK.=R1.9J,"966*JB * B * B +DCO*5B0/K62.1F,"1*M*5B0* B 6 ^ 7RSI+E" .4F,20&).(KK.,GK")*M* B * B 2 N 3A3L2 OO7LOOE*M* B * B 2 N 3A3L2 ?I3P;E* ^(3DGT*12	3F3I+
	F*MBJ* B * B 2 ?D. B7. GK*=21.2Z9*MBJ* B * B 2 ?D. B7. KK*=21"6*M*7B0* B 6 J 3ESA. R(.,B1*)I+K22+K&1*MBJ* B * B 6 
I3EOI"=62*JB * B * B 7GSO/OF "060.JB2*0B * B +DCO.2B3. GK*=21K60.JN2*0B * B /IF(.,GK.)B=*MBJ* B * B 2 GC+LCL7OCO+ECN2(R	/TGA2	Z,3IWLF6)*JB * B * B +DCO.2B1. GK*=21.2Z9*MBJ* B * B 2 ?D. F220. .2F=",66.JF2*0B * B 3W	R+TCE*(24*1&03I.(22.,"16)*JB * B * B 3C3A
L> 3C?LS7E*JB * B * B 3I;A3F.=.0F+2MNJ* B * B 6 WA7SKD3U/C2 WD3RZ 3E3H3ESN+ECN3SC3U3EE7R*JB * B * B +ICF6(+I+F	E.2B5.,V2.0J,"460.JR2*0B * B +ICF2(GL+N7F.1"4.)F5.0V,*120.5B2.MVJ*1B0* B 2 GC+LCL7ICO+ECN2(R	/TGA2	Z,3IWLN6)*JB * B * B +DCO.5B3. GK*=21.1"4*MBJ
 B * B 2 ?D. N520. .2F=.,F1.MVJ*3B0* B 2 WR+ACD*(24*1&03I.(22.,"16).JJ5*0B * B 3C3A3L& 3OWP+N" 6	SD+A^12,	F3L7E")*M* B * B 2 R /OV *4B0/K61.1&4.,&2"6*M* B * B 2 R /OV *4B0/K62.1F,"1*M.5B4* B 6 J 3ESA. R(.,B1*)I+K22+K&1*MBJ* B * B 6 KW3IWT. F(.,V5"06).JV5*
B * B 7FKO7MSA* >(2/Z	3E3H3ESN7EN 7CWH3EWL+R^!"/6)*JB * B * B +DCO.5B6. GK*=213I[ZE*M* B * B 2 R /OV *6B0/K623L;A/FJ,"966*JB * B * B +ICF*(I21.,*26)/IF(22&,3ZWF.-GK*+&1.)Z5.0V,*720.5B6.MVJ*7B0* B 6 KW3IWT. F(.,B82)&(.(OK.,KK2).,.3F=.,F1")*M*8B0* B 2 Z 3O7
+ACT.(OI6,"2.,B1+A&2.MVJ*6B0* B 2 ?C3N	T3NWU*MBJ* B * B 2 GC+LCL7ICO+ECN2(R	/TGA2	Z,3IWLF6)*JB * B * B +DCO*9B0/K61.1J,"966*JB * B * B +DCO*9B0/K62.1Z,.M&J*0B * B 2 WR+ACD*(24*1&03I.(22.,"16).JV2*0B * B 3C3A3LN 3H	A+N" 6	WK3RJ2"	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