File KOLM.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 7ACM+LCE3M	A7NB 3R
O3R7A2 ?F7RR +HCE3K3O3M
O3O?R7VN-7MKI7N[O2 WT+S7T3K3OM*MC*M+CB * B * B 7PKU7POOE*M+CB * B * B * B *(&12 WR+ACD3TWH2 ?C7NKT+OCL7CKA3DZ +OCR3A> +NCE+OCR3T?W2 GS3M3P7ER 7ESS2MNJ* B * B * B * " *2B)3RGE7DR +HCE3S7A3PWL2 GD+TCA3ASN2 WD7TKE3M;I7ER +HCE3S7A3PWL2 	S7ZOE2MNJ* B * B * B *
" *3B)3P	R+NCT7ROE7USLS*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3TWH6 OU+ECR3S?H3USL2 ?N+TCE3TWH2 WR7MKA+KCS7G[I+ECN+ICN3SKU7RWO3T;IE7S*JCC* B * B * B 2 ?K3L?M2,. 3O7L*2B,3ASN2 7S3I;R2,F +NCD3TWH2 GM3TWH7MSA3IGC3LR 3EOS7RCI3T?IN7S*JCC* B * B * B 2 ?F7R
 7HOE7EN 7UKB7OSU3IWNS6."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3K3OM7O*JCC* B * B * B 2 ?K/LKM2MNJ* B * B * B 6 N 7MKIN*M+CB * B * B * B 7NSDR*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 6 J 3EWF7RR 7ON 7UKB7OSU3IWN3S. 3O7L+OB,3K3O+M222 ;A7DN 7MKIN*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*
:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B 6 R +HCE3F3O7L
O3I
N2 	D3M;E3S?I+NCS7MOU3TJ 3E^ 3RGE7TKE2 T+ACN3TWH6 WN3MWB3R> 3FR 3AGT2MNJ* B 2 V 3L7E7ESN3S& 7NR +HCE3T?W2 GS3M3P+E3S* CM3ASN" 7N"J7C*JB * B * B 2 	D3M;E3S?I7N" .(B5*12)/YV(*0&12MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:
*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B * B 2 	D3M;E3S?I7NR 3I3T/EV(2)R,.(J16)R,/IGT.(B22)R,7ISS*(25"36)"J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B17FKO7MSA2(F5.4N,+I2125Z(.1B.2,Z2.5B.")6)
JB . J 2 ?F3RGM+T>(2/N	/CJ.*1B,3C;O3T?R3LN 3ASR2,& 3N?C3RWR+C3T6 KO2 GS3M3P7EN 3IWZ6 OI2 ?T3O2 A*M* B . F 3RWG*.B 3JKO2 
I7NKO+E;D"	6)*JB . N 2 ?F3RGM/TF(.2[F*.&0*MBJ* B 24Z 3O7R+AT.1GH2,F5"46)*JB . V 2 ?F3RGM+T>(2/"2* 3A+I226	N 7ACM+LCE7TOE7T^ +ACS7RGE7UOE3TSE"	6)*JB . Z 2 ?F3RGM/TJ(.0SA")*M* B * B77FKO7MSA*(>/.(B1/FB1*.&3")*M* B * B87FKO7MSA*(>/6	N 7OSR+ECD3S7A3PWL2 ;O3EZ
3O3L7OOW"	6)*JB . & 2 ?F3RGM+T>(*/B	3TWH6 	H7PSO7HOE+ICS3TGH7TR +HCE3S7A3PWL6 OI6 KF+OCM3A:(*)^ 2,F4*4B,* B	D*M* B . F 7ISS3RKI3U	T+O
N")*M* B *1B07FKO7MSA*(>/6	N 7OSR+ECD3S7A3PWL6 
T3OZ 3O3L7OOW"	6)*JB . F12 ?F3RGM+T>(*/B	3TWH6 	H7PSO7HOE+ICS3TGH7TR +HCE3T?W2 GS3M3P+ECS3AWR6 KF+OCM3TWH2 GS+MCEP*M* B . F 7OWP7LSA3I;O2 GC3NJ 7EJ 3EWJ3CWT7D^ 3IT2 F(3S7Y3P?T3TOI*)2	*/^,6 KP3OGB3B3I7I	T2 [O2 WB*MBJ* B 2 &2+NCG3ION7OKR7ESC2 [O* 2	+F:6*3^,
.B 3TWH6 SS3A	T3S	T7C* 6 OI* 2	/EJ1*.242	Z +OCR3TWHS7E*JB * B 63N 7ACM7LOE*.&	*MBJ. F 22Z 3O7R+AT*/2/6	R +HCE7S+I3E> 7FN 7ACM+L
E.,OI*,B	+I
S.,SI*,:	"	6)*JB . N12 ?F3RGM+T>(*/^,2 ?N+TCE3TWH2 WR7MKA+KCS3C;O7CKE3N;I3GF 3S7Y3P?T3TOI2 WR3S3U+TCS3ASN2 GSM*M* B . F 3PWL2 	S+ZCE+ICN3SKU7RWO3T;I7EN 7MKI+N&	*MBJ. F 24Z 3O7R+AT*/2/2	F 3T2 7EOA3T> +NCE*(	S2 ;E7T	R2 GP3R7A3EWT3RZ +OCR3TWH6 WS3B?R3U	T+NCE
7O*JB * B 217L7O^ +ACS3ION7OKR7ESC*.>	6	R +HCE7TOE3TZ +OCR3TWH6 OA3SOO7ISA+ECD3C;O3T;I7UWO7SB +DCFW*M* B . J +ACS3I;G3OWR+D^.")*M* B *1B57FKO7MSA.(SA")*M* B *1B67FKO7MSA*(>/*,B	3T	H3S* +OCB3C3A+LCS7FKO2 T7EV +SCE+OCF7AB 7R[E7IWO7S	L2 WR+ACD3S7A3PWL*MBJ* B
* 212 ;A7DR +HCE3PWR3V?I+UCS3JKO2 GW3S& 3G?N3RSE2 WB7CWA+SCE+OCF7EKR7OOR*.>	* B	3JKO2 
IN7O*JB * B 22WR+D^.")*M* B *1B77FKO7MSA*(>/*,B	7FKI+SCT7CKA3D& 3N* +OCB3DOE+K" 3JKO2 ?C7NKT+OCL7CKA+DB)+ICS3ION7OKR7ESC*MBJ* B * :1"	6)*JB . "12 ?F3RGM/TF(+H2 6	^ 3IT2 WM+A
N.,GF.3R.*,B	3ASN2 GV3RGI3NWC2	Z,*1:3"46)*JB . &12 ?F3RGM/TF(+H2 6	^ 3IT2 WM3DGI+N2	/FN1*.242	F +NCD7FKI+SCT3QGU3R	T+L
E.,GF.3R.")*M* B *2B07FKO7MSA2("1* ^,2 ;I2 T3E& 3NWT3RGV+L2	/FN1*.246	R +O2	/FN1*.242	& 3N3C3U	S+V
E")*M* B *2B17FKO7MSA2("1* ^,2 GC3NJ 7EJ 3EWJ3CWT7D^ 3IT6 KP3OGB3B3I7I	T2	Z,.6N.*,B	+OCF3B	E+NCG3ION*MBJ* B 2 >13RWR+C;T6 R +HCE3SGT7TOI3TOI* 
Z*,2/*	B +I
S.,GE.2R.*,B	7FKO2 T+ICS3S7A3PWL*.&	*MBJ. J 22Z 3O7R+AT*/2/*	B 3TWH2 ?J7B^ 3IT2 	T3TWL* 2	.5SA*,B	7WOA2 ?C3M3P3EWT+D^.")*M3C>I3P;E6 V(7NSI*=252 WD3VOI+E^=7CKD*	B,3AOC7EOS6=N	3E	Q+N&	2MNJ6ICO+ECN2(;U/I7T*6B,7D[E3IWC2=2	+P
T2,F 3CWC/S7S2	WS7QWO+T&	2MNJ2MNJ* B * B 6 J 3ESA2 	D7SKT7IWB3T?I3N: 3AWM3SF +NCD3JKO2 ?C7NKT+OCL7CKAD*MC*M* B * B 3I3F"=60*JB * B 2 WR+AD.5F,25R)3AS*MBJ* B 6 J 3ESA*(2566R)/IGT2MNJ2MNJ* B * B 6 N 3EWL+CCT3P?R3GGR3MN 7OSN3R3OS*MC*M2I?L3GOI+ACL3E[O"M&J3C3A
LN 3HWK+OCF2(?EF6)*JB .1B02 WR+AD.5F,25R)/AKS"M&J+ICF2(?E+FB)7GSO/O& "969*JB * B 2 [I2(GD+S7H7DOA.2F)*021.1J0.,B1"1*M. F *0B13W	R+TE.6F,"76)*JB * B 2 ?G2 ?T. B1"7*M. F *0B23RGE/DV(*,&17TSI+L3E+I3S+I3R+I3O2(R(7ISS*(3I+J2)/JF=*,&3.,7I.1V,")*M* B * B 7IOE"=6
*JB * B 6 KW3IWT*(2664R)3I3TE*M* B * B 3W	R+TE.6V,6)OI2MNJ2MNJ* B * B 2 : 3UKM+ECR+OCF3S7A3PWL3SR 3E	C3S?IN*MC*M* B * B +IF+I	R.1N0.,B1.5F,"063*JB .1N02 [I2([I/LF)*024.1V1.,B1"4*M. F *0B43W	R+TE.6F,"66)*JB * B 2 ?G2 ?T. B1"7*M. F *0B5+IF+I7S.1F)*026.1&0.,
1"9*MC*M+CB * B * B 7NSO2 ;O3E> 7RR +WCO3S7A3PWLS*MC*M. F *0B63W	R+TE.6J,")*M. F *0B73RGE/DV(.,V12)GDS62*JB * B 2 [I2(GD+S7H7DOA.2F)*027.1"0.,B1"7*M. F *0B83I3F"=61*JB * B 2 ?G2 ?T. B1"2*MC*M+CB * B * B 3RGE3DZ 7IOR7TN 7ACML7E"J7C*JB .1&0. 7N"0*M* B * B +
CO.1F1. 7I.1V,"0*M* B * B 3RGE/DV(*,&3D*M* B * B +DCO.1F1. 7J.1F,"2*M* B * B +IF3D*(.)&-.9&9*9:9.0F)*120.1J1.,F1"0*M. F *1B03N:="+61*JB * B 2 [I*(7N.5F0.)F1.1F,*026.1Z0*MBJ. F161" *(	N*=DJ6)*JB .1J1. GN"=61*JB * B 6 KW3IWT*(26*1&2+N21N*MC*M+CB * B * B 3CW
+CCK3TWH2 	S+ZCE+OCFN*MC*M* B * B +IF/NF-*0&0.1N1.,F1.3F,"164*JB .1N16 KW3IWT*(26*1&3*MBJ. F124& 3F&(/SJ-.)J1.1F,*125.1Z02MNJ2MNJ* B * B 6 J 3ESA2 WS3C;O7DN 7ACML7E"J7C*JB .1V1. 7M"0*M* B * B +DCO.1^1. 7I.1V,"0*M* B * B 3RGE/DV(*,&3D*M* B * B +DCO.1^1. 7J
1F,"2*M* B * B +IF3D*(.)&-.9&9*9:9.0F)*126.1"1.,F1"6*M. F *1B63M6="+61*JB * B 2 [I*(7M.5F0.)F1.7F,*026.1Z0*MBJ. F167& *(	M*=DJ6)*JB .1"1. GN"=62*JB * B 6 KW3IWT*(26*1&2+N21M*MC*M+CB * B * B 3CWH+CCK3TWH2 	S+ZCE+OCFM*MC*M* B * B +IF/MF-*0&0.1&1.,F1.9F,"260
JB .1&16 KW3IWT*(26*1&3*MBJ. J120& 3F&(/SF-.)J1.1F,*221.1N32MNJ2MNJ* B * B 2 > +NCE3S7A3PWL2 WT+SCT3U	S+NCG3A3L2 	D7SKT7IWB3T?I+NCS7RGE7UOE3TSE2MNJ*MBJ. J121R /OF *3B0/IF=",65*JB * B 2 [I2(	D+ST/IF,.)F)*320.1B3.,J1"2*M. F *2B23C3A3L. 3O7L7O"(*,3N7ZB,*,3I7
OI3T&(*,&22,	D+ST/IN,2)&,+E	R*MBJ* B 2 & /E7S7IKE2+WIS*M* B * B +IF7IKE.)N1.0F,*224.1B3*MBJ. J163^ 7RSI/EZ(.,R1")*M* B * B +GCO+TCO.1Z32MNJ2MNJ* B * B 2 > 7UCT+UCT7ROE7USLS*MC*M. F *2B4/KR=**7I"3*M* B * B 3W	R+TE.6&,2)	T+T"1+K2)7TSI21.(*+&12,	T+T"1/KJ+6)R
/IGT*(/K"36)*JB * B 2 [I*(7I.3F)*225.1Z2.,J1"7*M. F *2B5/S627DOI3T&(*,&3.*J**MBJ* B 6 ^ 7RSI/EZ(.,"12)	D+ST/IJ,6)N,"2*M* B * B +GCO+TCO.1&2*MBJ. J166N 22R=7ISS*(3I*26)7DOI3T&(*,&3*MBJ* B 6 ^ 7RSI/EZ(.,&12)	D+ST/IJ,6)N,"2*M* B * B +GCO+TCO.1&2*MBJ. J127& 3
&(*-&4.1"2.,J1.8F,"360*JB .1"26 KW3IWT*(26*2&07DOI3T&(*,&22,	D+ST/IN,")*M. F *2B93W	R+TE.6J,61B)",7Z*JB .1B32 ?C3N	T3NWU2MNJ2MNJ* B * B 2 > 7UCT+UCT3S7A3PWL2 ;O3ER 3E	C3S?IN*MC*M* B * B +IF+I	O.1F3.,N1.2F,"361*JB .1F36 KW3IWT*(26"86)*JB * B 6 KW3IWT*(26*7
)3X*(2)*,*=21N6)*JB .1J32 [I2(WI/SF)*223.1Z3.,J1"3*MC*M+CB * B * B 3T?W2 GS3M3P7ER 7ESS2MNJ*MBJ. N123N 3A3L2 ?K/LKM*(3X3Y:,*,3M7ZB,")*MC*M+CB * B * B 7OSU7PSU2 GS3M3P+ECS3DOE3I	SO7N"J7C*JB * B 2 [I2(?I.)N1.4F,*325.1R3*MBJ. N164^ 7RSI/EZ(*,&8*MBJ* B 6 ^ 7R
I/EZ(*,&7*(X+J2)/JF=*,	N*MBJ* B 6 ^ 7RSI/EZ(.,B1")*M* B * B 3W	R+TE.6^,6)&(*(	J.,7J216,")*M. F *3B53W	R+TE.6F,61B)",7Z*JB .1Z32 [I/LB=*MBJ* B 6 ^ 7RSI/EZ(.,J22)	T3TWL*MBJ* B 2 ^ 7OR /OF "060.J&969NI7TCO*MBJ* B 2 V N7D"JBZ"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