File MCLONG.FT (FORTRAN source file)

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

7CBI3R
O3R7A2 OM7T[I+O6 3L;O7GB 3R;I7TWO7TZ 7EOR3I;O".*M2I?C3M?M3NF 3RGR/YR(*1&16,WD+MI*9&02,GM+N3U3B;LO*M2I?C3M?M3NR/7CF/.(^4*72)/VR(*7&7*,P.4^7")*M2I	D3M;E3S?I3N: 3AWM*(&22,?N7NWE/PJ(*02)3N;O3E?D.(B22)R,3Y?C.(F4"16)*JB * B *12I3P?R+UT*1&52,	D/F"(*02)3DOY+OE*9&
"M&J7EWQ3IGV3L;E+CCE6(KA7R	A*(&16,	D+CO*1&)2,R(3U	M*(&16,	D3CWO*(&1")*M2IWR+ACL3N7A3E&,3NGGS*M2I;I3T
E+ECR3ESN3AF,3RGR3YJ,3L?N2,GCS7E6J^I7RSI/ER(*,&3*MBJ" &37FKO7MSA2("1* ^,7ESN+ECR3M;A7E[U+ECR+I3D+NCO+OCF3B?L7COK2,GS3M3P3I
N2 GR+T
E"/*M* B . F *I^ 2 OS3AWL2 GF3C?T+RCS7FKO* 3V+QB,3ASN* ;P*	^/*MBJ* B " &2.(KI.,KI.,SI2,Z3.6J.*)&	"M&J3RGE+D" .4J,2)6 7AWN2,KN3L&,+S3R7S[F2,[S7QN,F7P"J	C7SCF6 OI* 2+6 WB7TN +FCQ3ASN2 [S3VF +RCE*-F!"!*M. J 2I?F3RGM3T&(22&,22&,.4N,+F:6"26)*JB 26ZI3O7R+AT.2[I
,F226Z,.6B..,[A")*M. ^ 2I?F3RGM/TN(*03X6	E7PKE3IWM+NCT7DSA+E2	*53X+I>663"02,R	3AWT2 ;A7A	L3ZSE"	*M* B . F .I^,3X&,.6N/*03X6	WS3BWJ+C
T.,N1/XJ,+A>663"02,R	7ESP+H2	61"5.,[F*.>063"0",*M* B . J 2I&	7NKE3T^ +A
S.,F13XF,.6N/*03X2	GM7NWE7VKE.	F,*23X+I>4*/>/")*M6IKW3IWT*(24.4^0")*M. B427ZI3O7R+AT*1CH2,V	3NWT3RV 3XWP3R7I7ESN2 GD+T3E2 GD+TCE3AGN7L+YE7D*JB * B *12I3SKU3JOE3T: 3AWM*,>	2	R 7ESP3HF +NCD3TWH2 ;I7ESR2 GG+S^."/*M* B . J *IB	2(&2.6J,+A26+F:620F,*6^)")*M6 JI
ESA. R(*,&62 SI+E3A3IWD3R:,3AWM*(&12,GN+ME*22)7DCE+T3H3I
NA7S"J& 3W	R+TE.3^,2)& 3DGE2,SI+E3R3N7A/EF(2):,3AWM*(&22,WD3PT2,;I7GOA2,GMN7U2J6I3A;X/OF=.3V6"M&J3NGM/XR="7662J2I3IST/Y"="0*M6IKS6=OIR*M6I[H*=:16/KS"M&J3P	L/N7E"06.2JVI3NGD.=V2"5*M2IWI/N7D3NGMX*M6IGI"=602JRI/O& 25& /B7A21:,B7L2JJI3L?N2=KIA*M2IGC+LCL3TGRN7
2J&I3F&(+B;A+N;E3N3B2)^ 7OR /OF "1602JRI/OF *2B1/I7T.1J,"5652J&I3FF(3RGR3Y&(+T:)+N;E*0B)+GCO+TCO.1F2"M&J/I7A+I/T"1*M6I+I6=SI"+692J&I3F&(3Z^./TJ.*5&56 +I.=V2"5*M2I?D. J122& /T7T+I3AI7Z2J&I3FF(3RGR3Y&(+T	T2.WN*.&02 ?G2 ?T. J1"1*M. F "2&23C;O3T;IU7E2JVI3NGD6
SI"-612J^I7OR /OF "160*JB .1F22I?C3N	T3NWU*MBJ.1B12I?D. V92 GM*=223ESN/AN,*MBJ* B 6IGI6=GI"+61*JB 2 &I3F&(3Q2.3E6.3A;X+OB)+GCO+TCO"9656J^I7RSI/ER(.,^92)& Q*M2I?G2 ?T. &9*MBJ. V9*IQ+I	Q2=F-3RGR3Y6(A6)"J	C+DCO.9F06 GJ*=21I7Q*JCC.9F06IKW3IWT*(23.9J02)* 7QF,6
GJ")*M/C& "0&27FKO7MSA2("1* ^,+Q2	*23X+I24*53X+I&6"M&J3W	R+TE.4&,*0&36 GI*MBJ.9N02I?F3RGM/TF(+H2 6	GI*=2	+I&4"M&J3I;I"=602J&I/D7O"0*M2I?N/MB="M&J7ISS"=61*JB "3&0+IF3Q&(+S/T*1:)+G;T3Q&(+S	T2)^ 7OR /ON "1*M2I[I*(Q7ISS*+&16.SL*.Q7ISS*)B)+GCO+TCO"3626J^I7RSI/
R(.,B4"96).JR "0&97FKO7MSA2("1* ^,3TWH* B27QN 2 F +RCE7EWQ+A;L"	6)2J&I/S7T7ISS"+612J^I7OR /ON "0*M. N 21RI/ON 24. 3Q&=+S3TI7Q2J&I/M7PK7Q2J&I7FF(6(GK*+&16.GE*.Q+K	Q2)^ 7OR /ON "4*M2I[I*(Q+K/Q*1:)+L;T3Q.(+Q&)2 ?G2 ?T. ^3"M&J+IF*(Q+K	Q2.WL*.:02)F.+N;D*(Q+K/Q
1:)+G;T*0&.2)^ 7OR /ON "6*M2I?G2 ?T. R3*MBJ. Z32I	I3N&=+I/N"1*M2I?N7NWE3P&(+I	N6=GK"M&J3W	R+TE.3J,*3&66 GK2,	I7NF,6(GK")*M. N226ZI3O7R+AT*1CH.,WI6,"56,*	3E?R6 KC7OOS6 CU.	N,3X&,.4V,3X&,"66)*JB "3&43C;O3T;IU7E2J&I3F&(+M;P+G;E+I	Q2 ?G2 ?T. B4*MBJ. ^36IOI3T&
+M/P"1*M. N 22RI/ON 252 3Q&=+S3TI7Q2J&I/M7QL7Q2J&I7FF(6(GL*+&16.GE*.Q+L	Q2)^ 7OR /ON "5*M2I[I*(Q+L/Q*1:)+G;T3Q2(+Q&)2 ?G2 ?T. "3"M&J+IF*(Q+L	Q2.WG*.:02)F.+N;D*(Q+L/Q*1:)+L;T*0&.2)^ 7OR /ON "3662J^I7OR /ON "5*M. N326&I/D7O3I?D"+616J^I7RSI+E" .3J,*3&76 GL2,
I7OF,6(GL")*M. N227ZI3O7R+AT*1CH.,WI6,"56,*	3E?R6 KC7OOS2 ?D+W
N6,"3.,SI6,"5.,[I")*M2I?N3NSE3O&(+D	O6=GL*MBJ. V32I?C3N	T3NWU"M&J+IF7IGM2.WG6.GI2)^ 7OR /OR "0*M. N 28&I/S7T7IGM"+612J^I7OR /ON "1*M. B924ZI3O7R+AT*1CH2,:	3UKM+ECR+OCF7D
O7N* 3E?R6 KC7OOS3I
N+S^=.,[I2/"1" 6,*JB * B *1^I3N7U7BKE2 [O6 CU2 WZ+RCO3C?R3S	S7NOG*=2	+I&6*MBJ. B42I[I2(?N3NSE/OF(2)^.3T:.3OWN+UP*1&)2 ?G2 ?T. J4"M&J+DCO*4B1/M7Q21&,+D7O"1*M. R 21:I3OWN+DO+M	Q2=?N3NSE3O6(/QF+")*M2ISI3O&=+D7O"1*M2I?G2 ?T. B4*MBJ. J42I[I2(?N3NSE3O&(+D	O6.SL
.?N7NWE3P&(+I	N2)^ 7OR /OJ "0*M2ISI3O&=+D7O"1*M2I?G2 ?T. J4*MBJ. B26IKW3IWT*(24.9R02)& +D3O3I;I"M&J+DCO.9&26 CJ/MF=2,SIO*M6IKW3IWT*(23.9"22)* +P3M3N;O7ECU6(CJM6).J& "2&93W	R+TE.3&,*2&76 CJ3M:,3OWN+DO3J7P")*M. & "2&77FKO7MSA2("1* ^,3N;O3E?D*(2	+I23.	6)2	&,
56)*JB .9"22I?F3RGM/TF(+H2 2	?N7NWE+P^(.,OI*,&	*=2	+I&5"M&J3W	R+TE.3&,*2&82 	I3N:,3OWN+UP3I;I")*M2IOI3AWS"=612J&I/N7B3N;O7ECU*(&1**63"2*M2I?D. ^126& /CF=.,Z1"M&J3ION2=OI"M&J+IF3IKN2.WL..V2*5B)+GCO+TCO.1^7*MBJ.1Z72I;I3B&=+N7B.2V5*MBJ.1^72IKN3A&=N7C2J&I3SGT
R7T3IKN"M&J+DCO.6F06 	J*=223I;I"M&J3N?P3N:=3OWN+UP+J	Y2-?N7NWE/PF(.)F+"M&J+IF3N?P3N2.3E:.7MA2)^ 7OR /OZ "0616JVI3P?T2=?N7NWE3P*(/YF-")*M2IWI/N7D7USP3O:-3OWN+UP*1.)"1*M2I;I/B7B7USP/ON*"-622J&I3ESN3B&=3ESN"M&J3L3U3L*=/YF-"M&J7NOO/E7T3L3U/LF-"M&J3W	R+TE.4&,*
&52 ?N7SSE2,OI3AWS6,WLL7L.J& "4&57FKO7MSA2("1* ^,7NOO/E7T2	&,.4F,*03X2	OI3AWS*=2	+I2461"02,2	3U3L*=2	+I&4"M&J+GCO+TCO.6J0*MBJ.6F02I?C3N	T3NWU*MBJ.6J02I?D. F624& /MJ=2,SIO*M2I?N3NSE3O&(/M6)3N;O3E?D2(7I2):-3OWN+UP*1.)"1*M. F624:I3OWN+UP+I	M2=?N7NWE3P&(+M6)3
;O7ECU*(&1"+612J:I3OWN+UP3I;I2):=3OWN+UP3I;I2):-3OWN+UP*1.)"1*M2I?N3NSE/OF(2):=3OWN+DO*16)3N;O7ECU*(&1"+612J:I3OWN+UP.16)"1*M. J 25&I/A7M"1*M2I?D. J829* /P7P21&,D7O6J^I7RSI/EN(.,J9*8B)7JCP2,?N7NWE3P*(+P	P*MBJ.8&26IKW3IWT*(23.9^22)* +P3P3N;O3E?D6(CJP6)6J^I
RSI/EN(.,J9*8B)3I;I2,?N7NWE3P&(+I	N"M&J3W	R+TCE*(24.2F22): +B3A7ISS7ASR2,WIN7D*JB .2F22I?F3RGM/TF(+H2 2	KN+A^ .,KI6,"32,&	3SGT+RCT2	&,.4N,+X^,3I;E+D^ .,SI")*M6IKW3IWT*(24.9R02)& +D3O3I;I"M&J/I7V"0*M6IGI"=602J&I/PB="M&J+DCO*9B03I3B2=KN3A:,B7L2JJI3L?N2=KIL*
2I[I2(KI3L:.3E:.+B	A6 OI7TKA/TF="M&J3C3A7LR 3R;AS*M* B 2 RI/O& 206 6=OI7TKA/TJ,"5652J^I7OR +O" *121*122*1&32,GIM*M. F 21&I3V&=/VF+"M&J+IF+I;V+G;T3I;E+DB)+GCO+TCO"5602J&I3F&(3V2.3E:.7MA2)^ 7OR /O& "1616J^I7RSI/ER(.,^92)& V*M2I?G2 ?T. &9*MBJ.9F1*IV+I	V6=KA7
	A*(	M"M&J3I7A"=622J^I7OR /O& "0*M. F 22&I3Q&=/QF+"M&J3Q&(/Q6)7AKR+AYM6)2J&I/A7M"3*M2I?G2 ?T. B9*MBJ. N16ICI6=CI"+616JBI6(CI2)F=3RGR3Y6(")*M2IGI/MF=*MBJ. B92I?C3N	T3NWU*MBJ. B52I?D. N32 7J*=213I;ED*M*IV+J	M*=V+J	M2*[SV*M*IQ+J	M*=Q+J	M2*[SQ*M6LBI2(7J6)B=2(
J6)N*F7P*JB " & 3W	R+TE.3J,*1&82 7J*,V+J	M*,Q+J	M*,P+J	M*MBJ. F228ZI3O7R+AT*1CH.,SI6,"36,Z	* 2	+F:7.3J,+X^,+Q^ .,
F*.22*23X*MBJ* B " &1*	CP2	Z,.7J.")*M. N 23NI7OSN7IWNE*M2LRI/OR 25& /SF=2,?N7SSE"M&J/K7S+I/S3N7O"M&J3W	R+TE.4&,*4&52 ?N7SSE2,OI3AWS6,WLL7L2J&I3A[L2=?N7NWE3P&(S6)2J&I3ZSE2=?N7NWE3P&(/SF+")*M2I7I/E7D3N;O3E?D6(OI")*M6IKW3IWT*(24.9^42)& 3A[L2,7I+E3D3IWZD*M. R
27ZI3O7R+AT*1CH2,&	3A[L*=2	+I24*53X2	7I/E7D2	&,.4V,+X^,3IWZ+D^=.,SI")*M2IOI/U7R3IWZ3D&-3A[L"+616JRI7I[D/O7L3V&(3MSE6)Z-2(GI+L	F"M&J3IGM3D&=3MSE2-GI+L/F"1*M6I+I/A7D3IWZ3D&-3MSE"+616JBI3E	R/O7D+H+V2(7I+A/D3IGZ/DF-")*M2IWP3R?I3I"=3V&*3MSA"M&J7PKE3IWO6=[H6*+I
7D6JBI3M;I*=P3I3AF6)6JBI3M;I/B7K3P	MN*M2IGC/S7E"0*M2I7P/A7X3P&(3MSE")*M2I7P3AKX7KB=7MA"M&J+IF3IGM3D2.3E2.3IST+YB)+GCO+TCO"4646J^I7RSI/ER(.,R1*4B)+I3S3IGC+S3E3IGMD*M. R124ZI3O7R+AT.1GH2,"	7ECL2.N 7U[R+E2	+I222	> 3FJ 3AOT+H2	+I22*MBJ* B " &12	& 3S2 3A
R+ECR3TGH3NR 3IWM3N	S3OWN+DB.3N7A7E	L*:2	+I>5")*M2I?G2 ?T. &9*MBJ. R42I?D. Z46 SI2=GI+L3F3IWMD*M6ISI3T&=3T&-3A[L"+61"J	C3W	R+TCE*(23.9J46)Z 2(GI+L	F*,V3IWMD6)*JB .9J42I?F3RGM/TF(+H2 *	V3I3A/F6)2	Z,.7N.6,"56,Z	2(7I+E	D*=2	+F:7"36)2JNI3A3L2 	L+NE3DOY3O&(+T	
6,SI2,GI+L3F3IWMD6)2J&I7FB(6(SI2)^.7EB.3M;I2)^ 7OR /OR "6*M2IGP/L7X3P	M3N/B"M&J3P	M3N/B2=7PI7N6JBI3M;I*=P+I	T"M&J3P	M/NGM*=P+I7T"16)6JBI3M;I/P613P&(/TF+")*M2IWD3LGT7AB=3M;I2-7P3I7N"1*M2IWD3LGT7BB=3M;I+P613P	MN*M2I[I2(WD3LGT3A2./TB.*.B)3D3E3TGA2=R-7ESLA7A2
&I3FR(7ESL+A;B+L;T*0&.2 WD3LGT+B6=3D3E3TKA"M&J+IF2(WD3LGT3A2./TN.*0&.6.KO2.R(7ESL+A;B+L;T*3:0*)B)+GCO+TCO"4666JBI6(SI*)"=3P&(/TF-6)B+6(SI*+&1.)J/".*M6IKW3IWT*(24.8J26)B 3M;I*,P+I	T*MBJ.8J22I?F3RGM/TF(+H2 6	CS3IWK2.> +LCD3V3A+UCE+OCF+P^=.,
F*.22*33X2	WN3WF 7VKE*MBJ* B " &13AWG7DZ 7AWL+E^=.,
F*.&2"M&J+IF3P&(+T:)+L;T3P	M3N/B2)^ 7OR /OR "6*M2I7P/I7N3P	M3N/B"M&J3P	M3N/B2=GPL7X*JB "4&63C;O3T;IU7E2J&I3F&(3ZSA2.WL2.	L7T	D2)^ 7OR /OZ "4646J^I7RSI/ER(.,R1*4B)+I3S3IGC+S3E3IGZD*M2I?G2 ?T. &9*MBJ.6R42I?D. ^46 CK2=7I+E3D3IWZD*M6ICK3P.=3P&-3MSE"+612JNI3A3
2 	L+NE3DOY+OE7KCP2).,3P&,3MSE6,+I+E	D"M&J+IF3P.(+P:)+L;E3PGM+XB)+GCO+TCO"4676JBI7IL2=7P3AKXK*M2I7P3AKX7KB=7MA"M&J3PGM7XB=6(CK")*M2I7P3A7X61B=6(CK*-&1"M&J3PGM/XGP*=P+K/P"16)2JRI7ESL/A7C3PGM7XB-7MAM612JRI7ESL/A7D3PGM/XGP2-7PA7X2J&I3FR(7ESL+A;C+L;T*0&.2 WD3
GT+C6=3D3E3TOA"M&J+IF3D3E3TSA6.SL*.:02)R 7ESL/A7D2-WD3LGTD*M2I[I2(R(7ESL+A;C+L;T*3:02)>.+R".3D3E3TSA6.SL..B3*.&)2 ?G2 ?T. ^4"M&J3P.(/P6)*(P+K7P*1.)3P.(/PF+*)>)"26.6J^I7RSI/ER(.,J8*2B)3PGM7XB,6(CK")*M2I[I*(P+K	P6.SL2.7P3AKX+KB)+GCO+TCO"4676JBI7MA2=7P3AKXK*
2I7P3AKX7KB=7IL*MBJ. ^42I?C3N	T3NWU"M&J+IF3P&(3A[L2)2.7EB.3L;I+EB)+GCO+TCO.1^4"M&J+IF3P	M3N^.7EB.3L;I+EB)7COA/EV="M&J+IF3P	M3N2.7TB.3L;I+EB)7COA/EZ="M&J+GCO+TCO.1V4*MBJ.1^42I[I2(7P+A;X+G;T3P	L+N	E2 ?G2 ?T. R1"6*M2I[I2(7P+A;X+E;Q3P	L+N	E2 GC/S7E"1*M2I[I2(7
+A;X+L;T3P	L+N	E2 GC/S7E"4*M2I?G2 ?T. R1"5*M. R126RI/OJ *4B6/I7Y3IWM/DF+6,+IE7D2J&I7FB(6(	I2)^.7TB.3L;I+EB)+GCO+TCO.2V4"M&J3IC3E/C6=	I*MBJ.2Z42I?C3N	T3NWU*MBJ.2V42IOV3HOE7KZ=2(OI3HOEK6)2J&I7FZ(3CWH+C;K+E;Q3V&(3MSE*)B)7COA/EJ="M&J+IF3VC3E/C6.SL*.V3IWM+D&)2
GC/S7E"3*M. R165^I7RSI/EN(.,R3*5B)+K3S7COAE*M. R325ZI3O7R+AT*1CH2,Z	+OCR7CKU+VCE+NCO2	&,*3^,2 GC/S7E* 2	+I&2"M&J/A7B3V&(3MSE6)Z-2(GI+L	F"M&J/B7C3P	L+N7E3P&(3MSE")*M2ISA2=3P3IWN*-P3I3AF6)2J&I3FN(3AWS2.WN*.&52 ?G2 ?T. B3"1*M2IOB2=J-C*M2ISA2=F-D*M. B321FI3DK
+A:=25F*+B"*+A/D+B	C"M&J+IF7COA3E^./TR.2)^ 7OR /ON "0626JBI7RWO/TJ(.)B=".*M6IKP7OSU*(&12=SA3CGB"M&J+GCO+TCO.3B1*MBJ.3J02I[I2(GC+S;E+E;Q*6B)+GCO+TCO.3N0"M&J3P?R+UT.16)"06.6JBI7RWO/TJ(2)F=3DKCA*M2I?G2 ?T. F3"0*M.LN "0&3/A7D2-SA"M&J+DCO.3R06 	J*=217IWCR*M6IJ
=	J2+GI+L7F"1*M2I[I*(P+J	Y2.WG2.3P3IWN2)^ 7OR /ON "0646JJI*=V+J7X"16)2J^I7OR /ON "065.JN "0&43C;O3T;IU7E.JN "0&5/B7R3V&(3MSE6)J-"M&J/R7A+A7BB7R6JBI7RWO/TF(*):=25J*3CJ*R*M6IKP7OSU*(&2.=V.2*SA2*GR*MBJ.3B12I?D. F321: 3B&=3A[L2,7IE7D2J:I/O7B+N7B3I3A/FF+*MBJ.3
12I	D3F:(+O	B6=	D+CO3NKO6)B-2(KN")*M2IGC+LCL3Q[T3E"(3VR,+I3F3P?R+UT*42)3IGMD6)2JRI/ON *1B2/N7C3IWM3D&,3ZSE"M&J3NOO2=ON2-7I+E/D"1*M. F322RI+IF3NOO6)B=2(ON2)R-3Y?C3E:(+O	C"M&J3C3A7LF 3TWF6([H2,	D7FB,7RWO/TV(2)&,3ZSA")*M2I[I2(GC+S;E+E;Q*6B)+GCO+TCO.3V1"M&J+I
7COA3EV./QV.2)^ 7OR /ON "1636JBI7RWO/TF(.06)"06.2J^I7OR /ON "165.JN "1&33P?R+UT*1&06=KP7OSU*(&26-KP7OSU*(&4"M&J3P?R+UT*1&1*=:0*MBJ.3V12I[I2(GC+S;E+N;E*2B)+GCO+TCO.3Z1"M&J3P?R+UT*1&1*=:0"M&J+GCO+TCO.3V2*MBJ.3Z12I[I2(GC+S;E+E;Q*6B)+GCO+TCO.3R1"M&J+IF7COA3EV
/QV.2)^ 7OR /ON "2652J&I3FN(3AWS6.GE*.&32 ?G2 ?T. F3"7*M6IKP7OSU.(F16)B=7RWO/TF(6)B-7RWO/TV(")*M2I?G2 ?T. J3"5*M. F327RI/ON *1B8/N7D3IC3E/C6,+IE7D2J:I/O7D+N7D3IC3E/C"+61.JN "1&83D[I2(?N/D6)3P:(+D6)3P	LN7E2J&I3ZSO6=+I+E7D3IC3E/C"+612JNI3A3L6 SQ+FE+H3V3D[I2
3C7EKA6,+I+O	D"M&J3P?R+UT*1&16=KP7OSU*(&16-KP7OSU*(&52+3C7EKA"M&J+GCO+TCO.3V2*MBJ.3R12I?D. F329& 3C&=3A[L2,7IE7D2J&I7FB(2(OI2)2.7TB.3L;I+EB)+GCO+TCO.3B2"M&J3JC3E/C2=OI*MBJ.3&12I?C3N	T3NWU*MBJ.3B22I?D. J321& 3D&=3MSE6,+IE7D2J&I7FB(2(SI2)^.7TB.3L;I+EB)+GCO+
CO.3J2"M&J3KC3E/C2=SI*MBJ.3F22I?C3N	T3NWU*MBJ.3J22I?D. J323* 3F&=3MSE2,OK3HOEK*M2I?J3F*=3F&-3MSE"+612JNI3A3L2 	L7N[E6(	D3C*,3F&,3A[L2,7I+E	D*MBJ.3N22I	D3F*(+O	F*=V+J	F6-	DC*M2I?K3C.=3CWH+C7K3IWM/DF+"M&J3C3A7LF 3TWF6([H2,	D3FN,3LKU2,?KC6)6JBI7RWO/TF(.16)3P
R+UT*16)7CWLB*M2I?D. J324. 3F&=3A[L2,OJ3HOEK*M2I?K3F.=3F&-3A[L"+612JNI3A3L2 	L7N[E6(	D3E.,3F&,3A[L2,7I+E	D*MBJ.3R22I	D3F.(+O	F6=	D7CZ-2([K")*M2I?J3C*=3CWH+C7K3I3A/FF+"M&J3C3A7LF 3TWF6([H2,	D3FN,3LOA2,?JC6)6JBI7RWO/TF(.06)3P?R+UT*26)3CGLC*M. J365BI7RWO/TN(
)B=7RWO/TF(6)B+7RWO/TJ(")*M6IKP7OSU*(&66=KP7OSU*(&46+KP7OSU*(&5"M&J3P?R+UT*1&26=KP7OSU.(B16)B+7RWO/TF("16)6JBI7RWO/T^(6)B=7RWO/TR(6)B-7RWO/TJ(6)B+7RWO/TF("06)6JBI7RWO/T"(6)B=7RWO/TV(6)B-7RWO/TF(6)B+7RWO/TF("16)6JBI7RWO/TF(.36)3P?R+UT*7.)3P?R+UT*1.)3P?R+UT
1&0"M&J3P?R+UT*1&46=KP7OSU*(&86+KP7OSU*(&26+KP7OSU.(F1")*M6IKP7OSU*(&96=KP7OSU*(&76+KP7OSU*(&8"M&J3P?R+UT*1&56=KP7OSU.(N16)B+7RWO/TF("46)2JRI/ON *3B17J+Z*=21"1656JRI7LSI6=KP7OSU6(+J+Z>)3TSI3V3O"M&J3MGO2=?M3D*(+Z3Z"36)2J6I3O6=+O/A"1*MC& 3W	R+TE.4&,*4&82 ?M
MBJ.9"42I?F3RGM/TF(+H2 2	?M*=2	+I&4"M&J+GCO+TCO.(R3.1N,*422.3N4*)B,M7O.JN "4&13T7L/I7N3T	L7TB/3E	RO7D2J^I7OR /ON "361.JN "4&23T7L/I7N3T	L7TB/3E	RO7I2J^I7OR /ON "361.JN "4&33T7L/I7N3T	L7TB/3E	RO7E.JN "3&13W	R+TE.3N,*3&26 +J7ZB,7RWO3T*(+Z	Z*MBJ.3J32I?F3RGM/
F(+H2 +I22*53X+F:8"26)*JB "4&53C;O3T;IU7E2J&I3F&(7COA3EV./QN.2)^ 7OR /O& "9*M2IOI3AWS2=OI3AWS"+616J^I7RSI/ER(.,R9*5B)7NOO+E3T3IGC+S3E3L3UL*M2I?D. ^626& /CF=.,Z1"M&J3ION2=OI"M&J+IF3IKN3B2./EJ.*5&52 ?G2 ?T. ^6"7*M. ^626&I3NKB2=;I+B7B.2V5*MBJ.6^72IKN3A&=N7C2
&I3SGT/R7T3IKNB*M2I[I2(OI3AWS6.GE*.&32 ?G2 ?T. "6"0*M2I?D. J621* 3Z2=3U3L2,	IN*M6ICN/O7N3N;O7ECU6(+J2):-3OWN+UP3L3U+L.)"1*M2I[I6(CN+O;N+L;E3NGM+XB)+GCO+TCO.6F2"M&J3I;E3D:=3OWN+UP+J7Z*16)3N;O7ECU6(WL+L	L"+616JRI7OCU6=CU+T/O3I;E/DF-"M&J3IKN7BR=7OCU**63"2*M2
WI3NKD2=WIN7D2J2I3U3L3A*=/ZF-"M&J7NOO3EGT6=WL3LGL6-WLL7L2J:I/O7M7NOOE7T2J^I7OR /OZ "262.JZ "2&13C;O3T;IU7E.JZ "8&03N7O2=?N3M:+3OWST*M2IWI/N7D3N;O7ECU2(KL+M6)3I;E+D/B"1*M. J622&I3F2(3U3L6.GE2.SI+OB)+GCO+TCO.6N2"M&J3N3U3L:=3OWN+UP7NOO+E/T"16)2J:I3USL2=?N3NS
3O:(3OWS/TF+")*M2I?D. F625& 3M2=3U3L*+213I?D"M&J3L7A2=7I6-WL+L/L"1*M2I7I3M&=M*M2I[I2(OI3AWS6.GE*.&32 7I3M&=+M7M7NOOE7T2J:I3OWN+DO3L7A2):=3OWN+DO3I7M2):-3U3L"+61.JZ "1&53N;O7ECU2(GL/M6)3N;O7ECU2(7I+M6)3N3U/LF+*MBJ.6N22IKL3M&=+I7N3L3U/LF+"M&J7NOO/E7T3L7B"-6
2J:I3OWN+UP3L7B2):=3OWN+UP3I;I2):-3U3L"+61"J&L+IF3IGC+S;E+E;Q*3B)3N;O7ECU2(KL/M6)3N;O7ECU2(KL+M	M6-WN+L/L"1*M2I?N3NSE/OF(2):=3USL6-WN+L/L"1*M2I?N7NWE/PF(.)F="M&J+IF3IGC+S;E+E;Q*3B)+GCO+TCO"2652J2I3U3L6=WL3LGL"M&J7NOO/E7T7NOO3EGT"M&J3L7B3M2=B7M6J^I7RSI/ER(
,R9*5B)7NOO+E3T3IGC+S3E3L3UL*M2I?G2 ?T. V2*MBJ. ^92I?F3RGM/TF(+H212	WH+L3P6 [O3E[R7L
E2 	D3M;E3S?I+N;S.	V,3X&,"46)*JB "9&93S?TP*M2I;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"
"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