File KUR2C.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-3WA7LWA3FGL3G;E2 WU7BKE7PWR3EWFN*M* B * B 2 N 3O7M+OCN3I?F+R3M3IGH+L3B3F3I+E3B3F3I+E3D3F3I+E3E3F3I+E3F3F3I+E3L3F3I+E3M3F3IE7N*JB * B * B 3C7O3M;O2 GL+N3F3I;A3F&,6,+I+F3E3I[Z3A:,*MBJ* B * B 2 	D3M;E3S?I3N& .(J1.,&2*62)/NZ(*72)3K/A+BE*52)3K/S+BE.5"
2):,3O3N/KF("56)*JB * B * B 3D7I7EON3I;O2 GK3U
F*(23*1&52MNJ* B * B 2 	E3NWL3S;E2 GW3HGL3U3F3AWGN*M* B * B 2 N 3A3L2 ?I3P;E* ^(3DGT*12	3F3I+E	B*MBJ* B * B 2 ?D. B16 +I*=21"5*M*1B0* B 6 J 3ESA. R(.,B420.)3AKK3E&(Z6)*JB * B * B +DCO*2B0/IGZ*=21"5*M* B * B 2 R /OJ 20& /ZF=",68.JB2* B * B 3RGE+D" .4R,*0&0
K/S+BE/IGZ6,+I")*M* B * B 2 R /ON 20& /Z61.1N,*MBJ* B * B 2 ?D. B36 +I*=21"165.JB3* B * B 3RGE+D" .4R,*0&07KWA+FG/IGZ6,+I")*M* B * B 2 R /OR 20& /ZF=.,V1.MRJ*0B * B 2 WR+ACD*(24.4B02)?N3N/L6(+I")*M* B * B 6 J 3ESA. R(.,B420&)7KKUA*M.4B0* B 2 Z 3O7R+ACT.(K
")*M* B * B 2 R /O" *0B0/K613I;A/FJ,"966*JCC* B * B 7IWK+RCA3UKE7ECR3RWU3F;UG*M* B * B 2 & /ZB=*MBJ* B * B 2 ?D. B120. .2J=.,F1*MBJ* B * B 2 [I2 &(.(KK.,GK.)F)*020.1B0.,F1"0*M.1B1* B 2 & 3Z&=/ZF+.MFJ*0B0* B 2 ?C3N	T3NWU*MBJ* B * B 2 [I2 &(7KKU3A&-/ZF)*320
1B3.,J1"0*M.1B2* B 2 & .(J1.,GK2)&=.(J1.,GK.)"+2MNJ* B * B 2 ?N3N/L2 WU7BKE7PWR7EWFN7G.JN1*0B * B +DCO.1B4. OK*=21"165*JB * B * B +ICF2(?N3N/L.(OK.)F)*620.1B6.,R1"5*M.1V4* B 2 R /OF *4B0/K62.2N,*MBJ* B * B 2 [I2 :(3O3N3K.(*36)3I.(22.,*1&).1B4.,V1.0F,"460.
V1*0B * B /IF(22.,.16)/IF(22.,*1.)"166*JB * B * B 7GSO/OF "660.JR1*0B * B 3C;O3T;IU7E*JCC* B * B 7DCO3P3E7TOE2 KA7IWT3RGFC7H.JZ1*0B * B +DCO.2B0. OK*=22"4*M* B * B 2 . 25.=.3F+*MBJ* B * B 2 ?D. B220. 22.=.5V,*MBJ* B * B 2 [I2 &(.(OK.,GK2)&-.(KK.,GK.)J)*02
.2B2.,B2"0*M.2B2* B 2 & .(J1.,GK2)&=.(J1.,GK.)N+"2*M* B * B 2 ^ 3O?T. B3"5*M.2B0* B 2 N 7OSN7IWNE*M+CB * B 2 F 3BWD7CWK+NCG7DKE6 WA3FGG3B;E3F3E7DKE.MNJ*0B5* B 2 [I2 &(7FKO/M&+*1&1.3Z0.,R4.0N,"066.JB3*6B * B +DCO.3B2. OK*=21"3*M* B * B 2 & +F" 7KWA+FG+K23*
&).3B2.,J3.0N,"067.JB3*7B * B +DCO.3B0. WK*=21"165*JB * B * B +ICF2(GK3U
F.(OK.,WK.)N)*221.3F2.,B3"2*M.3J0* B 2 R /ON *0B0/K62.2V,*MBJ* B * B 2 [I2 &(.(KK.,GK2).-3A[U3G.(23.,*5&).3B0.,J3.0N,"060.JB3*0B * B 3C;O3T;IU7E.JJ3*1B * B /IF(22.,.16)/IF(22.,*1.)"664*JB * B * B 7GSO/OR "460.JJ3*0B * B 3C;O3T;IU7E*JCC* B * B 7AOB7OWL+TCE
FOA3HWB3L
E3U
N.MRJ*4B0* B 2 ?D. J420. .3F=",65*JB * B * B +ICF2(GK3KWB.(OK.)V)*020.5B0.,B4"5*M.4V0* B 2 R /OR *1B0/K62.2F,"1*M* B * B 2 & +F" 3I.(22.,*16)3K/A+BE+K&3.)F4.0R,*220.4B1.MRJ*1B0* B 2 ?C3N	T3NWU*MBJ* B * B * I*122+K&1*=I*122+K&1.+J1"8*M* B * B 2 ^ 3O?T. B5"
*M.4B2* B 2 N 7OSN7IWNE*M+CB * B 6 N 7UOB7TSI3UWI3RGB+RCE3FOA7HKG7UCPE7N.JB5*0B 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

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