File KUR3C.FT (FORTRAN source file)

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

2MNJ* B * B 6 WA7SKD3U/C2 WD3RZ 3AC3B3E7EWG7NOG7LOI3T;E*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[Z3A&,3ZWF",7N*JB * B * B 3D7I7EON3I;O* I*122.2Z92)Z,3AC*(22*4&2*,N
6&7*MBJ* B * B 6 KW3IWT. N(.,^5"06).JB1*0B * B 7FKO7MSA2 F("26)*JCC* B * B 3UKE7ESR3R
A+ECN7DKE2 GF3C;H3AWM7NZ +OCN/IF(22.,*1B)+ICN3FOAH*M* B * B 2 & 3T7E"=60*JCS* B * B 7JCM2 ?GO7N2J/S7OON+TB,3\GFC7H6J+S3AE+LB,"0*M3S?G+O3N6 R +ACD3K;OS7T*JCS* B * B 3DGC2 GZ3E3H*MBJ* B * B 2 ?D* B1/K61.1J,"562*JB * B * B 3IWT3M&=.(J1.,GK")*M+SB * B 6 R +AC
7\SIE7M*JCS* B * B 3DGC* CI3ZWAH7L*JCS* B * B 3ION2 GZ3E3H.MFJ* B * B 2 ?C3N	T3NWU2MNJ* B * B 2 WL7ISS3U
N7SWK3RWS.MFJ*0B * B 6 
I/EGI"=61*JB * B * B 3IGC"=62*JB * B * B 3IWC"=63*JB * B * B 7GSO/O& "9*M*4B0* B 2 & +F" 3I?F+R/M.9F1.)B5.,B6.,B52MNJ* B * B 6 KG3USN7KKU+SCE3KGL3SWS. F1"/62.JB6* B * B 3IWW/I61"2*M* B * B 2 & /C7A"4*M* B * B 2 & /C7E"161*JB * B * B 7GSO/O& "9*M+CB * B . 
 2.F 7BSI3U[R3AC.MVJ*0B * B 6 
I/EGI"=64*JB * B * B 3IGC"=64*JB * B * B 3IWC"=64*JB * B * B 7GSO/O& "9*M+CB * B . R 2.F 7BSI3U[R3AC.M^J*0B * B 6 
I/EGI"=65*JB * B * B 3IGC"=65*JB * B * B 3IWC"=65*JB * B * B 7GSO/O& "9*M+CB * B 2 ^ 3R;U7DWK3RWS2 3K7AOS/EF 62V +NCD"163.JB8* B * B 3IWW/I61"3*M* B * B 2 & /C7A"6*M* B * B 2 & /C7E"161*JCC* B * B 3B
E3I;N2 OS3HWL3IWF2:R 3ROU3KR +ECR7LOI3T;E.M&J*9B * B 2 ?D. B320& /F7A.3Z,"7*M* B * B 2 & +F" 3N&(+F	A.+B2*1&6.1B2.,B3.0F,"260.JJ1*0B * B 3IGF*1"=3IGF./B1*-&1**.72([I/AF-*0"*3IGF./B1")6)*JCC* B * B 3SOU3H;E2 WD7RN 7CWH3EWL3RZ 7UKE2 	E3NZ 3AC*MBJ* B * B 2 ?
. N120. .1F=.,&2"6*M.1B3* B 2 & .(J1.,GK.)B=*MBJ* B * B . CK"=61*JB * B * B +DCO.1B8. GK2=GI+N3F.2Z9*MBJ* B * B 2 ?D. "120. 22&=+C3A3IWC*MBJ* B * B 2 [I2 &(*(21+K&1.)"1.0F,*820.1B4.MFJ*4B0* B 2 [I2 &(.(KK.,GK2)&-+F	A.1B8.,V1.0F,"860.JV1*0B * B /IF(22.,.06
/IF(.,GK")*M* B * B 2 . 20.=.0F+.MFJ*8B0* B 2 ?C3N	T3NWU*MBJ* B * B 2 [I2 .(.0F-.)B3.0N,*020.1B92MNJ* B * B 2 	E3NWL3S;E2 OS3HWU7LKE3N7AE7N.J&1*0B * B +ICF2(GL+N7F.1"4.)B2.5J,*025.2V1.MJJ*0B5* B 2 GC+LCL7ICO+ECN2(R	/TGA2	Z,3IWLN6)*JB * B * B +DCO.2B0. GK*
21.1"4*MBJ* B * B 2 ?D. B220. .2F=.,F1.MJJ*0B0* B 2 WR+ACD*(24.1B0*)I+K22+K&1.MJJ*1B5* B 2 GC+LCL7ICO+ECN2(R	/TGA2	Z,3IWLM6)*JB * B * B +DCO.2B1. GK.=R1.9J,"966*JB * B * B +DCO.2B1. KK*=21"161.JF2*0B * B 3RGE+D" .4F,*0&03I.(22.,"16)*JCC* B * B 7AOU7DWR+CC
7KCO3FWTX7T.JB4*0B * B 3I;A/F61"1*M.4B1* B 2 & 3ESN21&=3A[N.1R+"9*M* B * B 6 ^ 7RSI+E" .3R,*5&03I?F+R3M3IGHL7B.JV4*0B * B 7FKO7MSA2("1*1>,*/>/2	3K7AOS7EON3T[U+EB:2	F,*2^,2 " 3AKL3JA+RB:2	F,"16)*JB * B * B 3W	R+TCE*(23.4B22)Z(3AC.(GK2,[I+A&1.,GK*=21*22).MR
*2B0* B 2 ?F3RGM+T" .1CH2,Z	3AC*:B .	J,+A&6*MBJ* B * B 2 ?G+TCO.(J4.1R,*222.4J2.,J4.4R,*2&56,
I/EGI.MRJ*2B1* B 6 KW3IWT. N(.,N421:)*(&1",*M.4F3* B 2 Z 3O7R+ACT6("22	WL7ISS3U
N7SWK+R
S.,GA")*M* B * B 2 ^ 3O?T. J4"9*M.4J2* B 6 ^ 7RSI+E" .3R,*3&2/NF(")6,.JN4*2B * B 7FKO7MSA. J(+X^,7GWR3N/D7UOR2	F,"16)*JB * B * B 7GSO/OR "269.JJ4*4B * B 3W	R+TCE*(23.4R3*)N*12).MRJ*3B4* B 2 ?F3RGM+T" *23X*	:33A	B7TKU3FOA+H2	+A&1*MBJ* B * B 2 ?G+TCO.4&2.MR
*2B5* B 6 KW3IWT. N(.,N425:)*(&1",*M.4V3* B 2 Z 3O7R+ACT6("2.,R	2.KA7IWT3RGF+C
H.,GA")*M.4&2* B 2 & +F" 3I;A+F61.1R)*420.4B3.,R4"0*M.4B4* B 6 ^ 7RSI+E" .3R,*4&1/NF(")*M.4F4* B 2 Z 3O7R+ACT6("3*,"	7FKO3TWS7TWZ+N	G2	F,*1>,*/>/"/6)2J^I3O?T. B5"1*M.4B3.ICK.=CK"-61*JB * B * B 3W	R+TCE*(23.4N3.)CK.MRJ*3B3* B 2 ?F3RGM+T" *33X*	^(+I^42 OS3H
U7LKE*)2	*/>/*/&/2MNJ* B * B 6 KD3U/C2 WD3R: 3AWMN*M+CB * B . F 6.N 3P3AT7E.JB521&I3W	E.2F=*MBJ* B * B 2 ?D. B520. 21&=3A[N21&,3ESN"1*M* B * B 2 & +F" /IF(22.,*1&).5V0.,F5.0V,"065.JB5*5B * B +DCO.5V1. KK2=GL+N3F.2Z9*MBJ* B * B 2 [I2 &(*(21+K&2*-I*122+K&1.
F5.5V,*220.5V1.MVJ*1B5* B 2 ?C3N	T3NWU.MVJ*2B0* B 6 KW3IWT. N(.,J5*5")3I.(23.,*22)/K63.1F,*12).MVJ*2B5* B 2 ?F3RGM+T" *1CH.,OI6,"2.,B1+A&22MNJ* B * B * :26 CS7ASLE*M* B * B 2 & +F" 3IWW+I62.1V)*320.5B3.,V5"0*M.5B3* B 2 & +F" /IF(22.,.1V+*0&).5V3.,R5.0V,"3
5.JR5*0B * B 3IWW/I62"2*M* B * B 2 ^ 3O?T. V5"0*M.5V3* B 2 R /OV *3B7/K623L;A/FJ,"966*JB * B * B +ICF*(I21.,*26)/IF(22.,.1V+*0&).5^3.,R5.5V,"367.JN5*7B * B 3C;O3T;IU7E.JR5*5B * B 3W	R+TCE*(23.5^42)&(.(OK.,KK2).,.3F=.,F1")6,.JR5*7B * B 7FKO7MSA. F(*03X+I23
23X21F0"26).JV5*0B * B 3W	R+TCE*(23.5N1")*M.5N12I?F3RGM/TB(X6).JB5*0B * B 3C;O3T;IU7E*JB * B * B 3W	R+TCE*(23.5B7")*M.5B7* B 2 Z 3O7R+ACT2("1"16)*JCC* B * B 3UKE7ECR3RWU3F;E2:: 3OC2 GN3M;E6 WZ6 KD3U/C/E?N*MBJ* B * B 2 [I2 &(.(J12,GI/NGF.+B1*0&).5B6.,B8.0V
"660.JZ5*0B * B 3I;A/F613I;A+F.1.1B0*MBJ* B * B 2 ?G+TCO.4B1.MVJ"1&03W	R+TCE*(23.5B7")*M+CB * B 6 N 7CWH3EWL3RGD3T;E2 	E3NWL3S;E.M"J*0B0* B 2 [I2 &(3A[N.-R1.8")*220.8B2.,N8"0*M.8B2* B 2 N 3A3L2 ?I3P;E* ^(3DGT*12	3F3I+E	D*MBJ* B * B 2 ?D. R820. .1F=.,R1"8*
* B * B 2 R /O" *4B0/K62.1F,"1*M.8B4* B 6 J 3ESA. R(.,B120&).(KK.,GK")*M.8B3* B 2 N 3A3L2 ?I3P;E* ^(3DGT*12	3F3I+E	E*MBJ* B * B 2 ?D. V820. .1F=*428.2Z9*MBJ* B * B 2 ?D. V820. .2F=.,F1.M"J*5B0* B 2 WR+ACD*(24.1B0*)I+K22+K&1.MNJ*0B0* B 2 ?C3N	T3NWU*MBJ* B 
 B 2 ?G+TCO.(B4.,Z8.0",*620*720*8&06,
I/EGI2MNJ* B * B 2 ;E+DCE3SC3L	E/F+E6 KD3U/C2 WD3R2 7ISSE7N*JCC* B * B 7ROE7TWA3RWI3R;E2 WD+SJ 3C7O3M;O2"J-3EWR3ICS*M.8B6* B 2 & 3T7E2=GI+N7F"1*M* B * B 2 R /O" *7B0/K6121&,3T7E*MBJ* B * B 2 ?D. ^820. .2F=.,F1.M"J*7B0* B * I+K22+K&1"=60*JB * B * B 3F3I/E7
3F3IE7B*JCS* B * B 3TSA2 [\3IWLC*M+SB * B 6 R +ACD.(B1"0*M+SB * B 2 R +CCA3\	F3LOE*MBJ* B * B 2 GC+LCL7ICO+ECN2(R	/TGA2	Z,3IWLC6)*JB * B * B +DCO.8B8. GK*=21"7*M.8B8* B 6 J 3ESA. R(.,"861J)3T7E.M"J*8B1* B 2 ?F3RGM/T^(+A&6*MBJ* B * B 2 ?D. "825. .1F=",64.J
8*5B * B 3RGE+D" .4F,*0&03IWTM*M* B * B 2 R /O" *9B0/K61.1J,"966.J&8*0B * B 3RGE+D" .4F,*0&0/IF(22.,"16)*JB * B * 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