File KOLMO.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN2 ?K3L?M2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 7ESS7SR +HCE3D[I7FKE3EON3EJ 7E
T3E;E2 7E7PKI3IGC3LF +NCD3TWH3OWR3TOIA7L*JCC* B * B * B 2 	D7SKT7IWB3T?I+NCS6 OU3I
N2 T3E. 3O7L3O?G7R[O2-7S3I;R+OCV7TOET*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3K3O+MO3X:,*,3Z3P?R3B&,3F?C7DV,*,3S7IKE")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +XB * 6 2 ;I7PSU2 WV3C?T3R> 3F: 2 ;I7DCE3ESN7ESN2 KO7SKE7VSA3
;O+SB.2 ;O2MNJ* B * B * B * B * B * B 7RSE3U;R6 KF+OCM3K3O+M3O* CX7HOA2 WB+ECN7SKO3TSE2 ;I+TCOA*M+CB * B * B * B * B * B 2 ?M7NSO3O	N3C: +O7N3DOE3RGE3S;I7GN 7EWQ3EONE6.*JCC* B * B * B * CN* B 2-: 3UKM+ECR+OCF7OOB7E[R3A	T7OON2 ;I" 7X*JCC* B * B * B * CZ* B
2-> 7UCT+UCT7VKA3IKA+LCE3C;O3T	A3N;I7GR +HCE3GWR3AWT+SCT3V3A+UCE7WSIH*M+CB * B * B * B * B * B 2 WR3SWP+CCT+TCO3X> +FB 7SKQ3T:(2)F*+BS+FN+X6)7F"(*)B)3WWHR7E*JCC* B * B * B * B * B 2 Z *(	X6 OI* CA2 T7EKO3E	T3C3A2 	D7SKT7IWB3T?I3NZ 3UON3T?I3NF N7D*JCC* B *
B * B * B * B 2 Z 7N"(2)F 3NV 3M	P3ROI+ACL7DOI3T	R7BSU3I;O6 WF7NSC3I;O".*M+CB * B * B * B 3P?R+B6 6 WO7TWP7TZ 3A	R3A3B3EN 7OSN3A;I3I
N2 T7EB 3RKO3A	B7LSI3Y> F*M+CB * B * B * B * B * B 2 T7EN 7TSA7ISS+ICC3B	E+NCG3GWR3AWT7RR 3H;A6 KO6 GE3U3A2 ?T* CZI7F*JCC* B * B * B * B * B 6 R +HCE7HCY3OT3E	S7SR 7HSA* CX+ICS3F?R7MR +HCE3D;E7SSI7YV 3NWDR*M+CB * B * B * B * B * B 2 ?C3N	S7DKE3A	T+OCN+ICS
TWR+EB.* ;E+G2.6 KP+OCB.=B ..V02 7I3P	LE7S*JCC* B * B * B * B * B 6 R 7HSA2 ;O3EN +ACN3R+E7ESC2 T3E: 3U3L6 	H7PSO7HOE+ICS3TGH7TR +HCE7SSE2MNJ* B * B * B * B * B * B 3X& 3SZ 3R7O2 T3ER 7EON7I	T2 ;U7DKE2 ?C3N	S7DKE3A	T+OCN7WSI/HV 2 WPR*M+CB * B * B * B * B 
 B 2 WC+NCT3P?R3BKA3I	L+TCY+OCF3B	E+NCG3ION7OKR7ESC*.B 3P?R/B6 * :1" 6-*JCC* B * B * B * B * B 6 N 7MKI7N*(")6.*JCC* B * B * B 2 [I3CSO2-F 2 ?C+DCE3D;E3O	T+NCG3TWH2 GP3R	T3C3U+ACR3TWH3OWR3TOIA7L*JCC* B * B * B * B * B 6 B 3RKO3A	B7LSI3YR 7ISS3RKI3U	T+OCN3
;U3C	T+OCN3B	E+NCG3C;O3SSI3EWRD6.*JCC* B * B * B * B * B . 6 * 612-Z-*(	X6 OI2 T3E: 3O7R+ACL3P[D".*M+CB * B * B * B * B * B * B=*26-*-F+XB)+ICS3TWH6 E3P;O7ESN3I3A2 SPF6.*JCC* B * B * B * B * B . 6 * 632-Z-*(	X6 OI2 T3EN 3AOU+HCY3P[D".*M+CB * B * B * B * B
* B * B=*46-*-F+XB)+ICS3TWH2 ;U3I?F+RCM3P[D".*M+CB * B * B * B * B * B * B=*56-*-F+XB)+ICS3UWS7RN 7UCP3LWID6.*JCC* B * B * B * CU* B 6-^ 3H;E2 [I3CSO6 OI* B1+OCR*2B,3U& 7SR +HCE3MGE3N> 7FR +HCE3D;E7SSIY*M+CB * B * B * B * B * B 2 	G3V;E2 KA3OWV".*M+CB * B
* B * B * B * B 2 W+ECN3IOF+OCD+ICS*3B,3U& 7SR +HCE3MSE3I;A2 [O2 T3EN 3AOUH7Y*JCC* B * B * B * B * B 2 R 7EON7I	T".*M+CB * B * B * B * B * B 2 W+ECN3IOF+OCD+ICS*4B,3U& 7SR +HCE3L[E3TV 7NCD3O;I3T> 7FR H7E*JCC* B * B * B * B * B 6 V 3N[I3O7R2 WD3N	S+T;Y2MNJ
 B * B * B * B * B * B 3WWH3N& 3F?C3D& /SV 6,V 6 OI6 OU+ECR3SWP3C[I3ISE".*M+CB * B * B * B +SB * 6 2 W+ECN3IOF+OCD+ICS21> /RJ 6,N 6 OI2 T7EN 3T;A7DKA3DR 3E	V3A	T+OCNO7F*JCC* B * B * B * B * B 2 R 7EON7I	T2 	G3V;E2 KA3OWV2,F +NCD3S?H3USL2 WB2 ?P7SSI3IWV".*
+CB * B * B * B * B * B 2 W+ECN3IOF+OCD+ICS*3B,+U6 * CS3SWP3C[I7IOE2 T3EZ 7IOR7TF 7UKA3T3IE*M+CB * B * B * B * B * B 2 [O2 T3EN 3AOU+HCY3D;E7SSI+YB.* CS3S?H3USL2 WB2 ?N7N*-3E?R".*M+CB * B * B * B * B * B 2 [I2 [I3CSO6 OI* 24* CS+ICS3TWH2 	R7GSH2 ;E3D?P7IS
2 [O2 T7EV 3N[I3O7R2MNJ* B * B * B * B * B * B 3D;E7SSI+YB.* CS3S?H3USL2 WB6 KG7ESA+ECR3TGH7NV ".*M+CB * B * B * B * B * B 2 [I2 [I3CSO6 OI* 25* CS+ICS3UWS7RN 3POE3I	F+E;D2MNJ* B * B * B 2 & +ECR* B-7EKR+OCR3ISN3IGC7TKO2 W3IC6 OI2 ?N7N*-3E?R2 [I* CS3V?I7L
A+ECS3A?BV7E*JCC* B * B * B * B * B 2 N 7O[N7ESN3I;O+SB.2 ;O2 WR7TKU3N: 7OR 7ESS2 GH3SJ 3E;E2 GM+D3E2 ;A7D" 2MNJ* B * B * B * B * B * B 3ASN* CY7H[A3EJ 3E;E2 ?S3RWT3D& 3N?T2 ?M7NSO3O	N3C: +O7N3DOE3RGE3S;IG*M+CB * B * B * B * B * B 2 WS3QWU3NWC+SB.2 WI3R& 
SN +ECT+TCO7ZKE3O> 3NV 7NKT7YR 3O. 3O7LO6.*JCC* B * B * B * B * B 2 & +ECR+ICS7CKU3R;E7T	L2 WS7TR 3O> +NCE+ICF3TWH6 OU+E7R7SCU3P	L+ECD3P[D2MNJ* B * B * B * B * B * B +ICS7RGE7UOE3TSE2 ?F7RR 7ESS3I
N*.B 3T	H7SN 7HWO+LCD+BCE3CGH3NWGD*M+CB * B * B * B * B * B 6 N(+ECE3R7E3A/R+SB)3WWH7NN 3OWM2 SP3F& 7SN 7UCP3LWI3DJ 7YR +HCE3UWSR6."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B * CN3S?H3USL2 WB6 KG7ESA+ECR3TGH3N> 3RV 3QGU7LR /OF *0:0* " 3SWE2 TE*M+CB * B * B
* B 7MSA3H7E3A	T3C3A2 WD7SKC7ISP3I;O2 	G3V;E2 ?F7RR +HCE3P?R3GGR7MN 7MKIN6,*JCC* B * B * B 2 ?C3NWC3R	N+NCG7A	S7MSP3O	T3CZ 3O7R3UGL+EB)2 3A+S3O6 KP3OGB3B3I7I	T2 WL3V3ES*M+CB * B * B * B 7DSE3E7R3IWN3DJ 7YR 7HOI6 KP7OKG+ACM3W3I3L: +OCT+BCE7CKO3ROE3T& 7FR H
E*JCC* B * B * B 2 GS+MCE3S7A3PWL3SF +RCE3UWS7DR 3OV 3S	T7MSA7EB 3AGR7MSE7EOR2 ?F7RR H7E*JCC* B * B * B 2 ?C3N	T3N?U+UCS7DOI3T	R7BSU3I;O7S^ 3HOI3HF +RCE3UWS3D& 7NR 7HOI2 WT+S;T2MNJ* B * B * B * " 3SWE2 T3E6 3AT3EGM3TOI+ACL7DOE3C	R3P	T+OCN7FKO2 T+ICS3P?R3G
RM6)*JCC* B * B * B * F+XB)3S?H3USL2 WB* CA3C;O3T;I7UWO3SZ 3UON3T?IN6.*JCC* B * B * B 2 ;A7YV 7SKE6 WS3P3P3ISE6 WC3M3U3A	T+VCE3P?R3BKA3I	L+TCY7DOI3T	R7BSU3I;O2MNJ* B * B * B 2 Z 3UON3T?I7NN 7HWO+LCD+BCE3CSO+ECD3B
E3I;N3I
N2 	W+TCH3SGT3T7E7ESN. Z22 WB7L
O",*M+CB * B * B * B 3ASN2 S3O3U7DJ 7EWT+RCN+TCO3SGT3T7E7ESN. ^2".*MC*M+CB * B * B * B 7DWO3BWL6 KP3E	C3S?I7NV 3S
A+E6-6-SI6 OI2 ?D7USB3F3U2 T+ACT3TWH6 OU+ECR3W3IL*M+CB * B * B * B 7WOI7HR 7OB 3E[R3O7R2 T+ICS7TOE7TV 3S;I3GR 3OKU+LCE3PWR7COI3I;O2 OA7CKU7A	C".*M+CB * B * B * B +ICF3OWN2 	W3SWH7SR 3ON 3O7M3U	N7CSA7E^ 3IT2 ?K3L?M2 ;I* CA7DWO3BWL2MNJ* B * B * B 6 B 3ROE3I
S+OCN3P?R3GGR+MB,+HCE3S?H3USL2 GC+LCL3TWH2 ?F7RKT+ACN7SCU3P	LE7D*JCC* B * B * B 6 KP7OKG+ACM3S
N7L"(6)B 3R?I7RR 3ON 3A3L3I
N2 ?K3L?M2,F +NCD3C3A7LR H7E*JCC* B * B * B 2 ?F7RKT+ACN7SCU3P	L+ECD3P?R3GGR3MR 3BWL*(	X2 [A7TKE6 E3I	T+NCG3F?R3M. 3O7LO6.*JCC* B * B * B 2 :(3OWT2 T+ACT3SKU7RWO3T;I7EN 7MKI3NR 7OOE2 GH+VCE7DWO3BWL6 KP3E	C3S?IN*M+CB * B * B * B 7CCA3A	B7LSI3YF 7SN 7UCP3LW
3DJ 7YR 7HOI2 GP3CGK+G;E")*MC*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 6 N 7MKI+NB,7NSD+RB,3ASN2 ;A7YV 7SKE6 WS3P3P3ISE6 WS3B?R3U	T7NOE2 WR3Q	U3RSE".*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 2 Z +OCR3R[E3E
R3NWC6,N +ECE*(&1* ;W2 WF3LWL+R6-+OCN3TWH2 ?K3L?M7GKO+O7V3S	M3R?NV*M+CB * B * B * B 3L7I+ICT3TWH3OWR+MCS7FKO2 7E7PKI3IGC3LR 7ISS3RKI3U	T7OON"-6-*JCC* B * B * B 2 ;A3N3A3S> 3F6 3AT6.N 7TSA*.B,*129. &1*4:8. F *767.1&8",*M+CB * B * B * B *(&2* ;N2 7S3I;R+O7V
-GT3BWL2 ?F3RV 3S	T7MSA3I
N2 T3E^ 3OSO7NOE3S> 3FZ I7T*JCC* B * B * B 2 [O2 7E7PKI3IGC3LR 7ISS3RKI3U	T7OON2-F-3NGN+LCS+OCF7MSA+HB.3SGT+T2.. &1",*M+CB * B * B * B .1R9*8B.. ^2.9J-*8:12MNJ* B * B * B * " *3B)+RB.3V;O2 	M7SOE2-6-3AT3EGM3TOI+ACL3TWH7O	R2 [O6 KP3OGB3B3I7I	T2 ;AD*M+CB * 
 * B * B 3SGT7TOI3TOI+S6-3AGC3D7E+ICC3PWR+S3S2 WN7W& 3O/R.,F .9R6*.B .4B9.-&4"36,*JCC* B * B * B . R(2)J *.;V2 ;G3EWD3N?K6-R-+HCE3TWH7O	R2 [O6 KP3OGB3B3I7I	T2-N-3H3E3SGE2MNJ* B * B * B 6 B 3U3B3IS3I
N2 ?C3MGP+N3Y2 WN7W& 3O/R.,F .9J6*.B .3R8.-B4"16."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3E. 3O7L7O"(*,3N7ZB,3RKO2,[I3CSO*,3U3S&,+E	R*MBJ* B 2 R 3IWM3N	S+OCN/XF(")*MC*M
CB * B * B 2 : +OCN3DOE3RGE3S;I3G> 3RWD3R;I3G> 7F" *(	I*	CS2 R(7U	B2 WM3T?HD6)"J7C*JB * B 2 WI/RB=*MBJ* B 2 R /OV . 7I22:,*MBJ* B 2 & 7F"(*(	I*-X/IF-.)F)*,25"5*M* B * B13T7E7P"=*(	I*MBJ* B 2 & 3M&="-61*JB * B 2 ?D* B3/JF=2,7I*MBJ* B 2 2 *=7IJ*M* B * B +IF
T7E7P"-*(	L*)22.4R,*MBJ* B 62" *(/L.16)3X2(")*M* B * B33C;O3T;IU7E*JB * B * X.16)3T7EP*M* B * B +GCO+TCO"5*M* B * B43X2(*+&12=WTM7P*JB . V 2 ?C3N	T3NWU2MNJ2MNJ* B * B * B 2 N 7OCM3UWT3S6 3A	X3M7U2 WD3VGI3T?I3NR 3N& 3NF 3B?S7LSU7EZ 7AWL3EJ 7E
T3E;E2MNJ* B * B * B 2 V 3M	P3ROI+ACL3ASN2 T7EKO3E	T3C3A2 	D7SKT7IWB3T?IN7S"J7C*JB * B 2 7N21:="-61*JB * B 2 ;X"=7N*JB * B 2 ;D*=:0"0*M* B * B /F7S.0B.*MBJ* B 2 & /LF=*MBJ* B 26R /O^ 2 & 2=3I2,7N"1*M* B * B 3J&=*MBJ* B 2 & 7F"(*(	J*-X/JF+.)&)*,27"9*M* B *
B73C;O3T;IU7E*JB . " . 7JN*M* B * B9/I7L/JF+*MBJ* B 2 Z 3IZ=S*M* B * B /F7S3F?L+AT+J>)X7N*JB * B 2 [I2([I3CSO*-&2*120*123"167*JB . B12 [I*(	S*121*121"162*JB . F12 WI/RF=*MBJ* B 2 ^ 7OR /OJ "9*M* B *1B2/Z6 *(X+J6)+U>)S*M* B * B 3C3A3L: 7DKT*(3Z3YR,")*M* B 
 B +GCO+TCO"267*JB . N12 [I*(	S*121*121"164*JB . R1. 7Z*(X+J6)+U>)/SF+".60*JB * B 2 [I*(	Z*125*125"166*JB . V1. 7Y.0B.*MBJ* B 2 ^ 7OR /OJ "7*M* B *1B6/YF=2.V-+XP*-	Z*MBJ* B 2 ^ 7OR /OJ "7*M* B *1B7+IF3IOF+O7D.4F).8J,.0J,"6*M* B *1B8+IF/SF).9F,.1F,"9*M* B 
1B93YF=3T;A6("(*(	J*-	U*/	S**:0.3"1.3&0.9B+".65*JB * B 2 ?G2 ?T. ^2*MBJ. J 20& 7FN(*-	U*121*121"261*JB . F22 [I*(X+J6)/UJ).2J,.2J,"3*M* B *2B2/YB=".60*JB * B 2 ?G2 ?T. ^2*MBJ. J 23& 7F"(*(	J*-	S*225*225"264*JB . R2. 7Y.1B.*MBJ* B 2 ^ 7OR /OJ "7*M* B *2B5+
"=3X*(6)V-*)"/7SV-")*M* B * B +GCO+TCO"267*JB . Z22 WI/RF=*MBJ* B 2 ^ 7OR /OJ "9*M* B *2B7/E7I7AOB*(7Y+F	I*MBJ* B 2 V 3SF=+BS3YZ-S6)*JB * B 2 ;D2=7A/AGX2(;D2,	E6,OE")*M* B * B +IF+I7L/NZ)*,28"268"J7C*JCC* B * B * B 2 ?C7MWP7TOE. 7Z+D+N7SKQ3T:(*)B 3ASN6 B 
RKO3A	B7LSIY*MC*M* B *2B83ZR=7NN*7QSR2(;X")*M* B * B 3C3A7LN 7MKI7N*(6,KP+O	B*MBJ* B 6 B 3RKO*=:160B-3RKO*MBJ. J 69J 7EWTR7N*JB * B 2 ;ED*M"ZB"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"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