File KUR1N3.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/EJ(.,B120&)3SGPC6,.JB1*0B * B 7FKO7MSA*(^/3KGL3SWS7NSS3UWF*:2	+A
1*MBJ* B * B 2 WR+AD.2J,*7&53I?FR7M*JB * B * B 3W	R+TE.2F,*2&07ICS+A3C.MFJ*2B0* B 2 ?F3RGM+T^(3H3A3BGJ/H+R* B * 2	+A&1*MBJ* B * B 2 WR+AD.2F,*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*(22.2B02)& 3SGPC6,.JB2*0B * B 7FKO7MSA* >(6	E7ISS7IKE3TV 3IW
2 	L3SWT2 ?V7NN 3C;H3RF +UCF3B;A+D^?.,GA")*M* B * B 6 J 3ESA. J(.,^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" .2J,*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" .2J,*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. N(.,
2292).(GK.+KK")6,.JF2*9B * B 7FKO7MSA. J(3X&,"36).JF2*8B * B 3C;O3T;IU7E*JB * B * B 3W	R+TCE*(23.8B06)OI3POA.MJJ*1B7* B 2 ?C3N	T3NWU"M&J3W	R+TE.3",*0&07ICSA7C.JB820ZI3O7R+AT3XF,"16).JJ2*1B * B 3W	R+TCE*(22.2B2")*M.2B2* B 2 Z 3O7R+ACT*(>/2	WW3LC7EN 3C;H7RN
3O3L+ECN3G3E7OOE7CSH2 WW3RWD+N^?")*M.2J2* B 6 J 3ESA. J(.,J224:)/USM.MJJ*2B4* B 2 ?F3RGM+T" *	B?2	&,"36)*JB * B * B +ICF6(WN+M&4.2B3.,N2.0J,"267.JJ2*7B * B +DCO.2Z26 WN/M63.1J,"966*JB * B * B +ICF*(L3N7U*36)3N7U.4J)*226.2"2.,J2"6*M.2"2* B 2 2 6(WN+M&3"=60
JJ2*6B * B 3C;O3T;IU7E*JB * B * B 7GSO/OJ "262.JN2*0B * B 3W	R+TE.2J,*3&2.MJJ*3B2* B 2 ?F3RGM+T" 6/^	3EOL+HCE3SC3U3E3E;R3U7M3E;R2 ?K3MWM3N: +ECU3H;I/Z?U* &	.MJJ*4B2* B 2 WR+ACD*(22.2R26)WNM64*JB * B * B +ICF6(WN+M&4.5V,.,N2"5*M.2V3* B 2 & +F" 3N7U.4F-.)N2
3J,*327.2N3.MJJ*3B7* B * L3N7U.36)"0*M* B * B 2 ^ 3O?T. R2"2*M.2N3* B 2 R /OJ *3B43N7U.1F=.,&2"6*M* B * B 2 & +F" 3L:(/UGM2):-/USM.)N2.4J,*329.2R3.MJJ*3B9* B 6 KW3IWT. J(.,R2"16).JR2*1B * B 7FKO7MSA* ^(3E	X3S	T7ESR2 OS3H;O*!&	*MBJ* B * B 2 ?G+TCO.2J4.MJJ*
B4* B 2 ?C3N	T3NWU*MBJ* B * B 2 ?D. N226: /UOM*=21.2Z9*MBJ* B * B 2 [I2 2(6(WN+M&3.)N2.6J,*328.2Z3.MJJ*3B8* B * L3N7U.36)3N7U"4*M* B * B 6 J 3ESA. J(.,&3*0")3N7A3E.(6,WN+M&3.,7K.2F,"16).J&3*0B * B 7FKO7MSA. F(.0KA")*M* B * B 2 : 3AWM*(213N7U.36)3N7U"4*M* 
 * B 2 ^ 3O?T. R2"2*M.2Z3* B 2 N 7OSN7IWNE*M* B * B 6 ^ 7RSI+E" .2J,*4&0.MJJ*4B0* B 2 ?F3RGM+T" 2/2	7ISS7EZ 3O3L*!>	"/6)*JB5* B * B /L62"1*M* B * B 2 R /OF 202 .1F=.,&2"6*M* B * B 2 & +F" 3L2(*1&)*220*220"160.JB2* B * B 3L2(.16)3L2("26)*JB * B * B 3L2(.26
"0*M* B * B 2 R /ON *9B6/K61.1F,"1*M* B * B 2 : 3AWM.(GK.,GL2):=3AWM.(GK.,KL")*M* B * B 2 : 3AWM.(GK.,KL*)6=.2F0"6*M.3Z9* B 2 N 7OSN7IWNE*M* B * B 2 : 3AWM*(21+L&2"=60*JB * B * B /L62+L.2"1*M*1B0* B 2 N 7OSN7IWNE*M* B * B 2 R /ON 202 212=.2J,"965*JB * B *
B /L63L61*JB * B * B +DCO*4B0/L64+L21.2Z9*MBJ* B * B 2 [I2 2(.(SL2)2-.(OL.)V).0R,.0R,"0*M*5B0* B 2 2 232="4*M*4B0* B 2 N 7OSN7IWNE*M* B * B 2 & 3T7E*=L+L&1*MBJ* B * B * L+L&1*=L+L&3*MBJ* B * B * L+L&36=SIE7M*JB * B * B +DCO.3V9. GK*=21"161*JB * B * B 3IWT
M:=3AWM.(GK.,GL")*M* B * B 2 : 3AWM.(GK.,GL2):=3AWM.(GK.,OL")*M.3V9* B 2 : 3AWM.(GK.,OL2)&=3T7E.MNJ*0B * B 2 ?C3N	T3NWU*MBJ* B * B 2 GC+LCL7OCO+ECN2(R	/TGA2	Z,3IWLL6)*JB * B * B 3W	R+TCE*(24.2V7.)KL*MBJ* B * B 2 ?D. ^220. .1F=.,&2"6*M.2B7* B 6 ^ 7RSI+E" .
J,*7&53L.("16).J^2*5B * B 7FKO7MSA2 F("26)*JB * B * B 3C3A3L> 3C?LS7E*JB * B * B +ICF.(KL.-R1.8N)*620.3B6.,^3"0*M.3B6* B 2 N 3A3L2 ?O3P;E* ^(3DGT*12	3F3I+E	N*MBJ* B * B 2 ?D. B320. .1F=.,R1"8*M* B * B 2 R /ON *0B0/K62.1F,"1*M.3B0* B 6 ^ 7RSI+E" .4J,*7&53N
A3E.(22.,"16)*JB * B * B 3C3A3L> 3C?LS7E.J^3*0B * B 3C3A3L> 3OWP+N" 6	SD+A^12,	F3L7E")*M* B * B 2 R /ON *1B0/K61.1&4.,&2"6*M* B * B 2 R /ON *1B0/K62.1F,"1*M.3B1* B 6 ^ 7RSI+E" .4J,*7&53N7A3E.(22.,"16)*JB * B * B 3C3A3L> 3C?LS7E*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