File KUR1.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-7EOR3T3E3L;E2 	E7NKE2 	L3SWT2 ?V7NN 7CWH3EWL7RWN3MWMR7N*JB * B * B 3C7O3M;O2 GN+M3EL*M* B * B 2 R 3IWM3N	S+OCN3N7A/EF(.1J,*9&6*,L.2Z9")*M* B * B 2 & 3SGP+C6=.2F0"6*M* B * B 6 ^ 7RSI/EF(.,B120&)3SGPC6,.JB1*0B * B 7FKO7MSA*(^/3KGL3SWS7NSS3UWF*:2	+A
1*MBJ* B * B 2 WR+AD.1J,*7&53I?FR7M*JB * B * B 3W	R+TE.1F,*2&07ICS+A3C.MFJ*2B0* B 2 ?F3RGM+T^(3H3A3BGJ/H+R* B * 2	+A&1*MBJ* B * B 2 WR+AD.1F,*3&03IGHL7B.JN1*0B * B 7FKO7MSA.(GA")*M* B * B 2 Z 3IWL/BB=*MBJ* B * B 2 	F3L3E"=60*JB * B * B 3F3I/E7M"0*M* B * B
2 Z 3IWL/NB=6MNJ* B * B 2 GT7D2 3IGHL7B*JCS* B * B 3ASN. ^(.7B06MNJ* B * B . F7"062*JCS* B * B 3TSA. J("060*JCS* B * B 3DGC2 [\3IWLB*M+SB * B 6 R +ACD3\	F3LKE6MNJ* B * B 2 GT+D" .1B2"0*M+SB * B 2 R +CCA3\	F3L3E6MNJ* B * B 2 GT7D2 3F3IE7L*JCS* B * B 3TSA. 
("060*JCS* B * B 3DGC2 [\3IWLM*M+SB * B 6 R +ACD3\	F3L7E6MNJ* B * B 2 GT+D" .1B06MNJ* B * B 2 OD7A2 3F3IE7N*JCS* B * B 3TSA2 	\7FKOM*M+SB * B 2 R +CCA3\	F3LKE"*M+SB * B 6 R +ACD3\[I3O7R6MNJ* B * B 2 OD7A2 3F3I+EOL6MNJ* B * B 2 GT7D2 3I?FR7M*JCS* B * B 3DG
2 [\3IWLM6*JCS* B * B 3TSA2 	\7FKOM*M+SB * B 2 R +CCA3\	F3L;E"*M* B * B 2 R /OF . GK*=21.2Z9*MBJ* B * B * L+K&1"=60*JB * B * B +DCO21. .2F=.,F1.MFJ* B * B 2 GN+ME+K22+K&1"=60*JB * B * B 3W	R+TCE*(21.2B02)& 3SGPC6,.JB2*0B * B 7FKO7MSA* >(6	E7ISS7IKE3TV 3IW
2 	L3SWT2 ?V7NN 3C;H3RF +UCF3B;A+D^?.,GA")*M* B * B 6 J 3ESA. F(.,^225&)3FGRG7E*JB * B * B +ICF2([I3R
A/EZ-*7&2.2B3.,F2.0J,"360.JF2*0B * B 3C3A3L& 3OWP+N" 6	SD+A^12,	F3L3E")*M* B * B 6 J 3ESA. R(.,^2*5B)L62*JB * B * B +DCO.2F1. GK*=21.2Z9.MJJ*1B1* B 2 WR+ACD*(24.2V7*)L+K&1*MBJ* B * B 2 [I2 2(.2F-*4&8.3B5.,V3.0N,"460.JV3*0B * B 3C3A3L& 3OWP+N" 6	SD+A^12,	F
L;E")*M* B * B 2 R /ON *2B0/K61.1F,"468*JB * B * B +DCO.3B2. KK*=21"161.JJ3*0B * B 3RGE+D" .4J,*7&53N7A3E.(22.,"16).JR3*0B * B 3C3A3L& 3OWP+N" 6	SD+A^12,	F3L7E")*M* B * B 2 R /ON *3B0/K61.1&4.,&2"6*M* B * B 2 R /ON *3B0/K62.1F,"1*M.3B3* B 6 J 3ESA. R(.,^2
5:)3AWM.(KK.,GK")*M* B * B 6 ^ 7RSI+E" .1J,*1&36 OI3POA",*M.2N1* B 2 Z 3O7R+ACT*(^/3S3O3LV 3IWN2 	L3SWT2 ?V7NN 3C;H3RF 3U
S7EKD3U/C7T^ 3ESR/E?N2	F,"16)*JB * B * B 3RGE+D" .1J,*7&57IKF3AWG*MBJ* B * B 2 [I2 &(3FGR+G7E.6J7.)J2.1J,*125.2F2.MJJ*1B5* B 2 ?D. F227. 212=.2J,*926"160*JB * B * B +DCO.2"1. KK*=20"9*M* B * B 2 & +F" +K.1+K62.2Z9.)F2.4J,*124.2^1.MJJ*1B4* B 6 KW3IWT. F(.,
2292).(GK.+KK")6,.JF2*9B * B 7FKO7MSA. J(3X&,"36).JF2*8B * B 3C;O3T;IU7E*JB * B * B 3W	R+TCE*(21.2&1")*M.2^1* B 2 N 7OSN7IWNE*M.2F2* B 6 ^ 7RSI+E" .1J,*2&0.MJJ*2B0* B 2 ?F3RGM+T" */^/3W3E3CWH2 OS7HKN2 ?S3LWL3N^ 3E?L3EOS+HCT7WKE3D;E*?&	.MJJ*2B2* B 2 WR+ACD
(21.2R26)WNM64.JJ2*4B * B 7FKO7MSA* ^(*?^ .,OI")*M* B * B 2 & +F" 3N7U.4J)*320.2B3.,J2"7*M.2^2* B 2 R /OJ *2B63N7U.3F=.,&2"6*M* B * B 2 & +F" 3L:(/UOM2):-/USM.)J2.6J,*228.2Z2.MJJ*2B8* B * L3N7U.36)"0*M.2Z2* B 2 N 7OSN7IWNE*M* B * B 2 ^ 3O?T. J2"2*M.2B3* B
6 ^ 7RSI/EF(.,N2"26).JN2*2B * B 7FKO7MSA* >(2	WW3LC7EN 7CWH3EWL7RWN3MWM+RCN3K7O3M;E2 WN3U" 7I+N+UB?"	6).JR2*2B * B 3RGE+D" .1J,*2&43N7U"4*M* B * B 2 & +F" 3N7U.4V)*,25.2V3.MJJ*3B5* B 2 [I2 :(/USM*-&1.2N3.,N2.7J,"363.JN2*7B * B 3L:(/UOM.)B=*MBJ* B * B 2 ?G
TCO.2J4.MJJ*3B3* B 2 ?D. N224: /UGM*=21.2Z9*MBJ* B * B 2 [I2 2(6(WN+M&16-WN+M&4.2R3.,N2.9J,"364.JN2*9B * B 3W	R+TCE*(21.2F4")*M.2F4* B 2 Z 3O7R+ACT2(V	7XOI3TWI+RCT3SC+OGN"	6)*JB * B * B 7GSO/OJ "462.JN2*4B * B 3C;O3T;IU7E*JB * B * B +DCO.2Z36 WN/M63.1J,"9
6*JB * B * B +ICF*(L3N7U*3&).2Z3.,N2.8J,"366.JN2*8B * B 3L:(/UOM2):=/USM*MBJ* B * B 2 WR+ACD*(21.3B92):(3AWM*(3K3N7U*32)/KJ=.,F1")*M.3B9* B 2 Z 3O7R+ACT.(B1+A&2*MBJ* B * B 2 GN+ME21:,/UOM2):=/USM*MBJ* B * B 2 ?G+TCO.2J4.MJJ*3B6* B 2 ?C3N	T3NWU*MBJ* B * B 
 KW3IWT. F(.,R2"06).JR2*0B * B 7FKO7MSA* >(2		L3SWT2 ?V+LGL*	>/")*M*5B * B 2 2 .2F=*MBJ* B * B 2 ?D. B1. GL*=21.2Z9*MBJ* B * B 2 [I2 2(.(GL.)J).0J,.0F,"0*M*2B0* B 2 2 .(GL2)2=.(KL")*M* B * B 2 2 .(KL.)B=*MBJ* B * B 2 ?D. &326. .1F=.,F1*MBJ* B * B 2 GN+ME+
21+L&12=GN+ME+K21+L&2*MBJ* B * B 2 GN+ME+K21+L&2.=J-.0Z1.MNJ*9B6* B 2 ?C3N	T3NWU*MBJ* B * B 2 GN+ME212,.26)"0*M* B * B 2 2 222=.2F+.MFJ*0B * B 2 ?C3N	T3NWU*MBJ* B * B 2 ?D. B3. GL.=KL.,&2"5*M* B * B 2 2 232="1*M* B * B 2 R /OR 202 242=.1J,"966*JB * B * B 
ICF*(L+L&4*-L+L&3.)B5.,B4.,B4.MVJ*0B * B . OL.=SL.MRJ*0B * B 2 ?C3N	T3NWU*MBJ* B * B 6 SI/E7M3L2("16)*JB * B * B 3L2(.16)3L2("36)*JB * B * B 3L2(.36)3IWTM*M* B * B 2 R /ON *9B5/K61.1F,"1*M* B * B 2 & 3T7E2=GN+ME+K21+L&1*MBJ* B * B 2 GN+ME+K21+L&12=GN+ME+K
1+L&3.MNJ*9B5* B 2 GN+ME+K21+L&36=SIE7M.JB3* B * B 3C;O3T;IU7E*JB * B * B 3C3A3L> 3OWP+N" 6	SD+A^12,	F3L3E")*M* B * B 6 ^ 7RSI+E" .4J,*7&5L62*JB * B * B +DCO.2B7. GK*=21.2Z9.MJJ*7B0* B 6 KW3IWT. R(.,^2252).(GK")*M.2V7* B 2 Z 3O7R+ACT.(KA")*M* B * B 2 N 3A
L2 OO7LOOE*M* B * B 2 & +F" +L62.1"4.)Z3.0N,*620.3B7.MNJ*6B0* B 2 GC+LCL7OCO+ECN2(R	/TGA2	Z,3IWLN6)*JB * B * B +DCO.3B0. GK*=21.1"4*MBJ* B * B 2 ?D. B320. .2F=.,F1.MNJ*0B0* B 6 KW3IWT. R(.,^225:)3AWM.(KK.,GK")*M* B * B 2 N 3A3L2 OO7LOOE*M.3B7* B 2 N 3A3L2
?O3P;E* ^(3DGT*12	3F3I+E	M*MBJ* B * B 2 ?D. F320. .1F=*429.2Z9*MBJ* B * B 2 ?D. F320. .2F=.,F1.MNJ*1B0* B 6 KW3IWT. R(.,^225:)3AWM.(KK.,GK")*M* B * B 2 N 3A3L2 OO7LOOE*M* B * B 2 V N7D"J*MBBZ

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