File KUR2D.FT (FORTRAN source file)

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

*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"=64*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).JN4*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*1B0* 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*JB * B * B +ICF*(	M.7B0.,B7.0^,"360.JN
*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 

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