File KUR2F.FT (FORTRAN source file)

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

2MNJ* B * B 6 WK7R
S3A3H+A6 6 WA7SKD3U/C2 WD3RV 3RWG3B	N3SWS*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.2Z92):,.(^6")*M+CB * B 6 N 7E+T+ECN
A[N3A
N3SWW3RWT*MBJ* B * B . GK.1B=*MBJ* B * B 2 /K"=66*JB * B * B 7KKD3U/C"=65*JB * B * B /K7W"2*M* B * B 2 & 3ZGZ/E7H"0*M* B * B 6 ^ 7RSI+E" .1R,*0&1.MRJ*0B1* B 2 ?F3RGM+T" */>/2	/L2-WB3L
E3U
N+E
N"/6)*JB * B * B +DCO.1B0. OK.=F1.,^6*MBJ* B * B 2 [I2 :(.(OK.)J+.0Z1.)F1.1F,*020.1F1.MFJ*1B1* B . 7M"0*M* B * B 2 R /OF *1B0/K613I;A/FJ,"966*JB * B * B +DCO.1B1. KK*=22"3*M* B * B 2 & +F" 3I.(22.,*16)+K&3.1B1.,J1.0F,"160.JJ1*0B * B 3M6="+61.JF1*0B * B 3C
O3T;IU7E*JB * B * B +ICF*(	M.1B0.,B1.0F,"360.JN1*0B * B 3W	R+TCE*(21.4B6*)N+K&3*,3M6MNJ* B * B 2 7J3SR 3ROUK*M.1B0* B 2 N 7OSN7IWNE*M* B * B 2 & 3ZGZ/E7H"0*M.4B6* B 2 Z 3O7R+ACT6("2.,KA.,6	.	OI")*M* B * B 2 & +F" 3I?F+R/M.9F1.)B1.,B2.,B1.MJJ*0B * B 2 /K"=
4*JB * B * B 7GSO/ON "0*M*1B0* B 6 ^ 7RSI+E" .1R,*1&0.MRJ*1B0* B 2 ?F3RGM+T" */>/*	:33A	B7TKU3FOA+H>	")*M* B * B 2 R /ON *0B0/K63*121"667*JB * B * B +ICF*(N+K&3.+B2*1&6.3F1.,B3.0N,"161.JF3*1B * B /MB=*MBJ* B * B 2 ?D. F320. 21&=3A[N.,&2"6*M* B * B 2 & +F"
/IR(.,GK2).-.3N)*120.3B2.,F3"0*M.3B2* B 2 6 *=/M"1*M.3B1* B 2 N 7OSN7IWNE*M* B * B 2 & +F" /MN)*020.3B0.,N3"0*M.3B3* B 6 ^ 7RSI+E" .1R,*6&03N.(*32)M6,*JCS* B * B 7JOM6 KD3U/C.MNJ*0B0* B 2 ?C3N	T3NWU*MBJ* B * B 6 +I3ZWA/HB=*MBJ* B * B 6 KW3IWT. F(.,N4"06).
N4*0B * B 7FKO7MSA* >(*/^/24F.7BSI3U[R3AC*	&/*MBJ* B * B 2 ?D. B620. .3F=.1Z,"7*M* B * B 2 & +F" 3N.(*3.).2F0.6Z)*121.6B0.,F6"1*M.6F1* B 2 6 "=60*JB * B * B +DCO.6B1. GK2=GI+N3F.2Z9*MBJ* B * B 2 [I2 &(*(25+K&1.-OK.)F6.0Z,*220.6B1.MZJ*2B0* B . 7M/MF+.MZJ*1
0* B 2 ?C3N	T3NWU*MBJ* B * B 2 [I2 6(.)B6.0Z,*020.6B3.MZJ*3B0* B 6 KW3IWT. F(.,Z420:).(OK2)6,",*M+SB * B 2 * +MCS7DWRC7K.JB6*0B * B 3C;O3T;IU7E*JB * B * B 7I+Z3AE"=60.JB3* B * B 3W	R+TCE*(21.4B2")*M.4B2* B 2 Z 3O7R+ACT*(>/2/^	3KJ-3EWL3G;U3G;E*	&/*MBJ* B *
B 2 ?D. B720. .3F=.1Z,"7*M* B * B 2 & +F" 3N.(*3.).2F0.6^)*121.7B0.,F7"1*M.7F1* B 2 6 "=60*JB * B * B +DCO.7B1. GK2=GI+N3F.2Z9*MBJ* B * B 2 ?D. F720. 22.=/KF,"1*M* B * B 2 & +F" 3I.(22.,*16)+K&3.7B1.,J7.0^,"160.JJ7*0B * B 3M6="+61.JF7*0B * B 3C;O3T;IU7E*J
 * B * B +ICF*(	M.7B0.,B7.0^,"360.JN7*0B * B 3W	R+TCE*(21.4B6*)N+K&3*,3M6MNJ* B * B 2 7J3SR 3ROUK*M.7B0* B 2 N 7OSN7IWNE*M* B * B 2 & 3ZGZ/E7H"0*M* B * B 6 ^ 7RSI+E" .1R,*3&5.MRJ*3B5* B 2 ?F3RGM+T" */>/2	/L2-?K3M	B7NSA3I;O+E
N"/6)*JB * B * B 7KKD3U/C"=64.JN1*5B * B +DCO.2B1. OK.=F1.,^6*MBJ* B * B 2 [I2 :(.(OK.)J+.0Z1.)J1.5J,*120.1V2.MFJ*2B5* B 2 ?D. F220. .4F=21.,"3*M* B * B 2 & +F" 3N.(*4.).2F0.6F)*226.2B1.,J1"6*M.1Z2* B 2 & +F" +K63+K&4.1Z3.,F2.0F,"366.JN1*6B * B /L7K"0*M* 
 * B 2 R /OJ *2B0/K613I;A/FJ,"966*JB * B * B /K653I.(3W.,"16)*JB * B * B /K663I.(/WF+.,GK")*M* B * B 2 & +F" +K65+K&6.1B5.,Z1.0F,"660.JV1*0B * B /K62K65*JB * B * B /K65K66*JB * B * B /K66K62.JZ1*0B * B +ICF.(WK.-OK.)J2.0F,*720.2B2.MFJ*7B0* B 2 [I2 .(26.-.
J)*220.1B9.,J2"0*M.1B9* B 2 2 3K2=/KF+.MJJ*2B0* B 2 ?C3N	T3NWU*MBJ* B * B 2 [I2 2(/KJ)*120.2B1.,B2"5*M.2V0* B 6 ^ 7RSI+E" .1R,*4&03N.(*32)3N.(*42)+L3K.MRJ*4B0* B 2 ?F3RGM+T" *23X+A22*	^-.,KA.,6	2	&,"36)*JCS* B * B 7JOM6 KD3U/C.MJJ*1B0* B 2 ?C3N	T3NWU*MBJ*
B * B 2 [I2 .(*161.1J)*420.5B0.,B5"0*M.2B4* B 2 & +F" 3I?F+R/M.9F1.)V2.0V,*020.2B5.MJJ*5B0* B 6 
K"=64*JB * B * B /KF1"=61*JB * B * B 7I+Z3AE"=60*JB * B * B 3W	R+TCE*(21.4B5")*M.4B5* B 2 Z 3O7R+ACT*(>/2/^	3K.-3OKM3IGN3T?I3N;E*	&/*MBJ* B * B 2 ?G+TCO.1V36MNJ7DWR+C3K" 60*JB * B * B +ICF6(+I3ZWA3H.-7DWR+C	K.8B1.,F8.0","260.JJ8*0B * B 3W	R+TCE*(21.4B7")*
.4B7* B 2 Z 3O7R+ACT*(&/*MBJ* B * B 6 +I3ZWA+H6="1*M.8B1* B 2 & 3ZGZ/E7H7I+Z3AE"+61*JCS* B * B 7JCM* CI7DWRC7K.JB5*0B * B 3C3A3LN 3H	A+N" 6	WK7RN3"	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