File KOLM2.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 ?K/LKM2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ2MNJ* B * B * B 6 R 7ESS7SR +HCE3D[I7FKE3EON3EJ 7E
T3E;E6 
T7ON 7ACM+LCE7DOI3T	R7BSU3I;O2MNJ* B * B * B 2 Z 3UON3T?I+NCS3U	S+NCG3TWH2 ?K3L?M7GKO+O7V3S	M3R?N7VR 7ESS2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3L. 3O7L62"(*,3Y3N6,*,3Z3P?RB6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CX* B 2-& 7NWP7TZ 7ESC+OCR+OCF3N& 3NWD3P;E3D;E3T> 3BWS3RGV3T?I+N;S2 > N*M+CB * B * B * B * B * B 2 WR7TKU3NZ 3R7O2 ?K/LKM6," 2 GH3S
 3E;E2 ?S3RWT3D& 3N?T" 7A*JCC* B * B * B * B * B 2 6 3O?N3T;O+ICC3N;O2-WD3CWR3A	S+NCG7SGE3U;E+C;E2MNJ* B * B * B 6 & * B * B-7ICN+UCT3VOE7TKO2 [O* CM3ISN3EWP3NWD+NCT7OOB7E[R3A	T7OON*.B O7N*JCC* B * B * B * B * B 6 J 7EWT+RCN3F?R3M. 3O7L*2B,3Y" +ACS3BWE7NN
7OSR+ECD7ISN3OF 2MNJ* B * B * B * B * B * B 3M;O3O?T3NOI2 ?N3NR-7EKC7EOA3I
N2 WS3QWU3NWC".*M+CB * B * B * B +NB * 6 6 WN3MWB3R> 3F> 3BWS3RGV3T?I+NCS+ICNX*M+CB * B * B * B +MB * 6 6 WN3MWB3R> 3F> 3BWS3RGV3T?I+NCS+ICNY*M+CB * B * B * B +ZB * 6 6 WO7TWP7TZ 3A	R3A3B3EN 7OSN3A;I3I
N2 T3E^ 3RGE7TOE7TZ 7AWL7E^ 3IT2MNJ* B * B * B * B * B * B 7ROE3POE7TR 7OR +HCE3SWP7CKT+UCM+OCF3XF +NCD3Y> F*M+CB * B * B * B * B * B 6 GS+RT*(+M+N>)*(/M+N&)2*KA3SZ(7N"(2)^-7M&(*)B)3WWHR7E*JCC* B * B * B * B * B 2 Z 7N"(2)& 7SR +HCE7ECM3I	R3C3A2 	D7SKT7IW
3T?I3NZ 3UON3T?I3N> 7FR H7E*JCC* B * B * B * B * B 6 N +ECT*(	X2 ;A3D^ 7M&(2)& 7SR +HCE7ECM3I	R3C3A2 	D7SKT7IWB3T?IN*M+CB * B * B * B * B * B 6 WF7NSC3I;O2 [O2 T7EN +ECT*(	Y".*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* CX3ASN* CY3AWR6 KF+OCM3TWH2 GS+MCE3P[D6 OI2MNJ* B * B * B * B * B * B 7TWR+EB.* ;E+G2
6 KP/O7B* :0*0B57ICM3LWI7SR 7HSA2 ;O3EN +ACN3R+E7ESC2MNJ* B * B * B * B * B * B 3TWH6 WN+LCL7HCY3OT3E	S7SR 7HSA2 T7EN 7EOT* CX3ASN* CY3AWR6 KFO7M*JCC* B * B * B * B * B 6 R +HCE3S7A3ER 7EON7I	T2 	W+TCH65B +ECR3C;E7TB 3RKO3A	B7LSI3Y> 3FJ 3E;IG*M+CB * B * B
* B * B * B 2 ;I7CKO3ROE+TB.6 KP+OCB.=F *.6 2 7S3I;R*(	Z".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3NF +NCD7MN 7HWO+LCD+BCE3GWR3AWT7RR 3H;A6 KO6 GE3U3A2 ?T. B1*0B.6 N(+ECE3TWH2MNJ* B * B * B 2 6 3AT3EGM3TOI+ACL7DOE3C	R3P	T+OCN7FKO2 T+ICS3SKU7RWO3T;I3EF
+NCD7FKO2 TE*M+CB * B * B * B 3SKU7RWO3T;I7EN 7MKI+NB,3C;O7CKE3N;I3GF 3S7Y3P?T3TOI2 ?F7RWM3LWA")6."J7C*JCC* B * B * B 2 ?D3U3B7EB 3ROE3I	S+OCN3UGS+G7E2-&-3T& 3SR 3OKU7TWF7LR 7HSA2 T7EV 7SKE2 	WL7L*JCC* B * B * B 2 	W+SCH+TCO7PKE7FKO7MR 7HOI2 WT+SCT3U	S+NC
7DWO3BWL6 KP3E	C3S?I3NF 7CWC3ROAY6.*JCC* B * B * B 2 [I2 ;O7E^ 3IS+ECS+TCO3C7O3M;U3IGC+TCE7WSI3H. 3O7L22& 3NF 2 ?D3U3BE*M+CB * B * B * B 3PWR7COI3I;O6 KP7OKG+A3M2 WH2 S3O3U3DN 3A3L2 T3EZ 7OSR3R;A6 WS3P3P3ISE2MNJ* B * B * B 6 B 3R
O3R7A2 ;S+GL+XB)3P	R+OCR+TCO3C3A3L;I3G. 3O7L*2B,3ASN2 GC+LCL3TWH2MNJ* B * B * B 2 Z 7OSR3R;A6 WS3P3P3ISE6 KP7OKG+ACM3D3B7E"(2)F 3FWT3RV 7XSI3I
N6 KF+OCM3K3O+M:22MNJ* B * B * B * " 7NSO7ER 7HSA6 WS3B?R3U	T+NCE3S	M+RCN3DWO3S" 3AWV2 ?D3U3B7EB 3ROE3I	SO7N*JCC* B * B * B 2 GC3PKA3I	L+TCY+ACS7SCU3P	L+ECD+BCY3T	H7SB 3A/C3AWG".6)"J7C"J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3S	MR7N"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 7FKO2 WR7FKE3EON+EB,3SWE. F(6)^ 2.Z 3E3L+E7R2-;O2 T3E. 3O7L3O?G7R[O2-7S3I;RO7V*JCC* B * B * B 2 	L7MSI2 T7EKO7EOM2 ?F3RV 3M	P3ROI+ACL7DOI3T	R7BSU3I;O+S6-2MNJ* B * B * B 
 F 3NGN+LCS+OCF7MSA+HB.3SGT+T2.. &1.,F .9"4*.B .1^7.-"1"96,*JCC* B * B * B . J(2): 6.N 7MKI7N[O6-R-3A3B3EZ +OCR7ESS3IGM3T;I7GR +HCE3G?O3DWN+SCS+OCF7FSI2MNJ* B * B * B 2 > 3FV 3M	P3ROI+ACL7DOI3T	R7BSU3I;O+S6-3A;N7AOL2 [O2 GM+T;H6 SS+A;T.,F "96,*JCC* B * B 
 B . &1*4:8. J *769.2F8".*M+CB * B * B * B *(&3* ;R2 ?V3N6 3IWS+S6-7MSA3H7E3A	T3C3A2 T7EKO3Y> 7FB 3RKO3A	B7LSI3YF N7D*JCC* B * B * B 6 SS3A	T3S	T+C7S2-OA3AWD3MOI6 KP7EOS2,: +ECW7YKO+KB,.1Z9*4B.. &4.0R-*9232MNJ* B * B * B * " *4B)7BZ.2.^ 3NSE3E/N+O6-3TWH2 
7EKO3Y> 7FB 3RKO3A	B7LSI+Y6-3CWH3LWSA*M+CB * B * B * B 3PKU7LOI3H;I3GN 7OCM7A	N2,: +ECW7YKO+KB,.1Z9*2B.. "3.4R-*0:12MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE3K3O+M"2
X&,*,3N7M*,6,KP+O	B*MBJ* B 2 R 3IWM3N	S+OCN/XF(6)&,*(&12MNJ2MNJ* B * B 6 N 7OSR* CX7ISN3OF 3SWC3N	D+NCG7SGE3U;EC7E"J7C*JB * B 2 ?D* B5/IJ=",7N*JB * B 2 [I*(X+I6)3X&(*-&1*)21.5V,*MBJ* B 61R 7ECM*=XI6)*JB * B 2 7I*=7I"1*M* B * B +DCO23* *=21I7M*JB * B . 7L3
*-*MBJ* B 2 & 7FR(7ECM*-X+L&).2R,",64*JB . J * X/LF+6)"=*(	L*MBJ* B 23N 7OSN7IWNE*M* B * B /XF(6)R=7ECM*MBJ* B 2 ^ 7OR /OV *MBJ* B 64" *(/L.16)3T7EP*M* B * B53C;O3T;IU7E"J7C*JCC* B * B 2 ?S+RCT3Y& 3N?T6 OA3C;E3D;I7GN 7EWQ3EONE*MC*M* B * B +DCO*1B0/IJ=",7M
JB * B 2 [I*(Y+I6)3Y&(*-&1*)26*120"160*JB . Z 2 WT/M7P3Y&(")*M* B * B /I7M/IF-*MBJ* B 2 R /O" 2 * *=21I7M*JB * B . 7L3I*-*MBJ* B 2 & 7FR(7ECM*-Y+L&).7&,",69*JB . ^ * Y/LF+6)&=*(	L*MBJ* B 28N 7OSN7IWNE*M* B * B /YF(6)R=7ECM*MBJ* B 2 ^ 7OR /OF "0*M* B * B93
2(*+&12=WTM7P*JB . B12 ?C3N	T3NWU2MNJ2MNJ* B * B 2 N 3AOL3UGL+TCE/D6 2 KA3SZ(3N^-+MB)3OWV7RR +HCE3SWP7CKT+UCM+OCF3XF +NCDY*MC*M* B * B /X7N3F?L+ATN6)*JB * B 2 ;X.1F=6."/N*M* B * B /X7M3F?L+ATM6)*JB * B 2 7X.1F=6."/M*M* B * B /DB=".60*JB * B . 7I"0*M* B * 
 /JB=*MBJ* B 2 . "=60*JB * B . 7L"0*M* B *1B1+IF3X&(*+&1*-Y/JF+.)F).2F,.3F,"8*M* B *1B2/KF=*MBJ* B 2 ^ 7OR /OF "4*M* B *1B3/KB=*MBJ. F 24& *=/I"1*M* B * B +IF3I:-.)V1.,F2.,F2*MBJ. F 25& 7F"(*(/I*16)3X&(.)F).4F,.4F,"6*M* B *1B6+IF/KF).7F,.8F,"7*MC*M+CB * B
* B 3C?H3OWS2 T3E6 3A	X3M7U2 	D3FWF3R;E+C3E" 7D"J7C*JB . ^1. 7D3AGM+X"13DF,+BS3F?L+AT+I*)/XGN2-3F7OSA*(	J2*7X*1&)*MBJ* B 2 & 3F2(.)J2.,F1.,J2*MBJ. F 28* *=/J"1*M* B * B +IF3J6-.)&1.,B2.,B2*MBJ. F 29& 7F&(*(/J*16)3Y*(.)F).8F,.8F,"7*M* B *2B0/LF=*MBJ* B 2 ^
7OR /OF "7*M* B *2B1/LF=*MBJ* B 2 ^ 7OR /OF "6*MC*M+CB * B * B 3C3A3C3U3AWT2 T7EN 7TSA7ISS+ICCZ*MC*M* B *2B23ZR=6*GS+RT2(;X2*7X*)"/+X/N+X	M")*MC*M+CB * B * B 3C3A3C3U3AWT2 T7EB 3RKO3A	B7LSI3YF 3S?S3CGI3TSE2 	W+TCHZ*MC*M* B * B 3C3A7LN 7MKI7N*(6,KP+O	B*MBJ
 B 6 B 3RKO*=:160B-3RKO*MBJ* B 6 J 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"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"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