File MCTIVO.FT (FORTRAN source file)

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

7CBI3R
O3R7A2 OM7T[IO6 2JNI3O7M+OCN7AKR+AY.4F12)R,3U	M.(B92)6,7AWN2,3BN7O2JNI3O7M+O?N+D?C/QR(*7&7*,V.4^76)B,.(^4"76)2JNI3O7M+O?N+B?D3PWH+AD*1&5"M&J3D7I7EON3I;O2 GN+ME*22)3N;O7ECU.(B22):,3OWN+DO*2&06,	D+CO.4F1")*M* B . F 6IB,7RWO/TF(*52)3D[I.(B82)R,3Y?C/E&("06)2J
I3Q	U3V3A3EON+E" 7AKR+AY*12)3DOY/OF(*)2)6(WD+MI*12)3DOY+OE*1&)"M&J3RGE3L: 3AWM2,;I7GOA"M&J7ISN3EWG3RV 3NGD6,KA7R	A2,3B+N3O7COAE*M6IKW3IWT*(24"36)*JB 23ZI3O7R+AT*1CH2,V	3NWT3R6 3AWN3UWV3R& 3D:,3O> 3FJ 3LOO+K3S3S7A3P	L+NCG7RSA+E>	*MBJ* B " &1* B	3SGC+LCE3FO
7TKO3SZ +OCR7VF,2,F +NCD+P^."/6	*JB * B *2"I+I22+I22+I24.3[F*.&2"	6)6JJI3ESA. R(*,&22 GM+N3U3N3B6,OI7RN,+F3V7SGF2,[SP*M7CNI+FCP+ICS*+B,7BSU2 [S3QF +NCD7S[F6 KA+E6 *!F!*MBJ" &27FKO7MSA.(KI.,KI.,SI2,Z3.6J.")*M. Z 2I?F3RGM/TJ(+I26.2[A.,[F*.20+A&6*MBJ" &77FKO
MSA.(B3+X^,7ECX3E	R3M;E3TR 3AWT.	V,3X&,.6N/*03X2	GD+TCE3AGN7L+Y+E
D*MBJ* B " &16,"7.,[I./B3+X^,3SKU3JOE+T2	61"32,F2.6N/*03X2	WD3PT.	F,*53X+F:6.0N/*03X*MBJ* B " &22	;I7ESR2 GG+S2	61"1.,[A./B3+X^,3M;A7E[U+E
R.,J13X&,*4>/*/&/"M&J3W	R+TE.4R,*0&7*MBJ.4^02I?F3RGM/TF(+H2 2	;E7TKE6 E7PKE3IWM+NCT7DSA+EB,7DSA3EF 3N3A3YWZD*M* B . F 6IN,3U+B7ESC2 GN+M3E*	^/2 WD3PT2 ;A7DR +HCE3IWN+RCT7GOA*.>	*MBJ* B " &2*	" .2[I2,F226Z,.6B..,[A*)&	*MBJ2IWR+ACD*(24*6B)3IWD3A&,7DKE2,GN+M
*12)3N7A/EJ(2)R,7ESP3H&,3NGGS*M6 ^I7RSI/EN(*,&72 SI+E3A3IWD3R:,3AWM*(&12,GN+ME*22)7DCE+T3H3I
N+A3S3M;AU*M2IGM3X?N.=N1"6652J:I7MA.=^4"6*M2I	L7T	D.=B8"M&J/S7R7IKS"M&J/H7V*1>.S7R6JBI3L;I/EB=".*M2I;E/D7A.2V5"M&J3I;E3D:=7MA"M&J/I7Q"0*M2I?D. V92 KI/AF=2,KNL*M2I3B/N7O3IGB"M&J3C3A7LR 3R;AS*M2I[I2(KI3A:.3E:.+B	L2 ?G2 ?T. F1"0*M2I?D. J121& /TF=.,V2"5*M2I[I
(KA7R	A6(SI2):./EB.2)^ 7OR /OF "2612J&I3A&=/TF+"M&J/I7Z+I/T"9*M2I[I6(+I6.SG..V2*5B)/I7Z.2V5"M&J+DCO.1J26 SI3T&=3A&,Z*M2I[I6(KA7R	A6(SI+T:)+N;E*0B)+GCO+TCO.1F2*MBJ. J122NI7OSN7IWNE*M2I;E/D7A+I7T"1*M2I?G2 ?T. F1"0*M. F "2&13C;O3T;IU7E.JF "1&0+DCO*9B5/M7A22V
3NGD",63*JB " & /I7Q+I/Q"1*M* B 2I[I6(GI2.WL2.GM3X?N2)^ 7OR /O& "5*M6IKW3IWT*(24*9&76 GI"M&J+GCO+TCO"969*JB "9&53Q&(/Q6)6-KA7R	A2(GM")*M3CRI/O& *0B1/J7Q21&,Q*M/C& "0&13W	R+TE.3&,*0&26 GJ*,Q+J	Q2MNJ. B922ZI3O7R+AT*1CH6,F	.	J,3X&,.4V,3X&,"66)6J^I7RSI/ER(.,B
*3B)I7Q.J& "0&37FKO7MSA2("1* ^,/I7Q2	&,"46)2J&I/I7N"0*M2ISI/OB="M&J3N7O"=602J&I/S7T"1*M. N 20&I7FF(6(OI/TF+2)^.7TF.6(OI+T&)2 ?G2 ?T. F3"M&J+IF3Q&(+S/T*1:)+L;T3Q&(+S	T2)^ 7OR /ON "2*M6IKW3IWT*(24.4&0")*M. B429ZI3O7R+AT*1CH6,R	+HCE62F * CS6 KA3EV 3QGU+L^.")
M6IOI3T&=+S/T"1*M2I?G2 ?T. B3*MBJ. F32I?D. R36 GK6=OI3T&,Q*M2I7I3P.=Q*M2I[I*(Q+K/Q*1:)+E;Q3Q.(+Q&)2 ?G2 ?T. R3"M&J+IF3Q.(/QF+2)2.7TF.6(GK*)B)+GCO+TCO"3672J&I+F"(3Q.(+Q:)+L;E*0&.2.;A+D".3Q.(/QF+2)^./TB.*.&)2 ?G2 ?T. Z3"M&J+GCO+TCO"364*JB "3&63I;I2=	I/NF+"M
J3N;O7ECU2(	I/N6)K7Q6J^I7RSI/EN(.,N2*6B)+K3Q3I;I*,Q+K	Q*MBJ.2Z32I?F3RGM/TF(+H2 +I25*53X2	WZ+RCO3C?R+SCS+U
P6,"3.,SI6,"5.,[I")*M. N 24NI7OSN7IWNE*M2I[I2(7I3P^.3E&.+QB)+GCO+TCO"460*JB "3&77ISS2=7I/PF+*MBJ. J32I?D. V36 GL6=OI3T&,Q*M2I7I3Q2=Q*M2I[I*(Q+L/Q*1:)+E;Q3Q2(+Q&)2 ?G2 ?T. V3"M&J+IF3Q2(/QF+2)^.7TF.6(GL*)B)+GCO+TCO"3682J&I+F"(3Q2(+Q:)+G;E*0&.2.;A+D".3Q2(/QF
2)2./TB.*.&)2 ?G2 ?T. N3"6*M2I?G2 ?T. V3*MBJ.3Z32ISI3O&=+D/O"1*M6IKW3IWT. N(.,N2*7B)+L3Q3I?D*,Q+L	Q*MBJ.2^32I?F3RGM/TF(+H2 +I25*53X2	WZ+RCO3C?R+SCS7D
O+N2	*33X+I24*53X+I&6"M&J3N;O3E?D2(SI/O6)L7Q*JB "3&53C;O3T;IU7E2J&I3F&(+M;Q+G;E+I	Q2 ?G2 ?T. B4*MBJ. "36IOI3T&=+M/Q"1*M2I?G2 ?T. F3*MBJ.9R02I?F3RGM/TF(+H2 6	WN3MWB3R> 3FR 3O;W2 WZ+RCO3C?R3S	S7NOG*=2	+I>6*1CH",*M* B . F 2I:	3UKM+ECR+OCF+UCP7ZKE3ON 7ROO3S;I
G7S2	&,"66)*JB "4&0+IF3N;O3E?D*(&16.SG2.?N7NWE/PF(*)B)+GCO+TCO"4622JRI/OR 216 /QF=2,SI/OF-*MBJ. F42I?N3NSE3O6(/Q6)3N;O3E?D6(GM*+&1"M&J3I?D2=SI/OF-"M&J+GCO+TCO"460*JB "4&2+IF3N;O3E?D2(SI+O:)+L;T3N;O7ECU2(	I+N&)2 ?G2 ?T. B2"M&J3I?D2=SI/OF-"M&J+GCO+TCO"462*J
 "2&03W	R+TE.4&,*0&42 SI3O&,I7N"J	C+DCO.9&26 CJ/MF=2,SIO*M7C^I7RSI/EN(.,J9*8B)3J7P2,?N7NWE3P*(+P	M2MNJ. J969^I7RSI/EN(.,J9*7B)3J7P2,?N3NSE3O*(+P	M*MBJ. J927ZI3O7R+AT*1CH2,:	3OWN+DO2	&,*3^,*)^=.,WI")*M. & "2&87FKO7MSA2("1* ^,3N;O7ECU*(2	+I23.	6)2	&,"56)"J	
3W	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-?N
NWE/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-2MNJ6IKW3IWT*(24.9V42): 3OWS3T&,7COA3E2,3U3L*MBJ.9V42I?F3RGM/TF(+H2 2	?N7SS
*=2	+I2461"02,&	7COA+E^=.,SI.,B1+X^,3L3U+L^=.,SI")*M2I?G2 ?T. B6"2*M. B621NI7OSN7IWNE*M. B622RI/OZ *1B4/I7M22&,D7O2J:I3OWN+DO+I	M2=?N3NSE3O&(+M6)3N;O7ECU*(&1"+61.JZ "1&43N;O7ECU2(7I2):=3OWN+UP+I	M2-?N7NWE/PF(.)F+"M&J3N;O7ECU2(	I/N6)3N;O7ECU2(	I+N6)3N;O7EC
*(&1"+612J:I3OWN+DO.16)3N;O3E?D*(&12-?N7NWE/PF(.)F+"M&J3N;O7ECU*(&1"=61*JB "2&53I7A"=61"J	C+DCO.8&26 CJ/PF=2,SIO*M7C^I7RSI/EN(.,J9*8B)7JCP2,?N7NWE3P*(+P	P2MNJ. J869^I7RSI/EN(.,J9*7B)7JCP2,?N3NSE3O*(+P	P2MNJ6IKW3IWT*(23.9"22)& +I3N3N;O7ECU2(	IN6)6J^I7RSI+E
 .4J,*2&12 KN3A&,3SGT+R3T3I;ED*M. J "2&17FKO7MSA2("1* ^,3NGB* 2	+I22*33X6	OI7TKA+T^ .,SI6,"32,&	3ESN* 2	+I&42MNJ6IKW3IWT*(24.9R02)& +D3O3I;I"M&J/I7V"0*M6IGI"=602J&I/PB="M&J+DCO*9B03I3B2=KN3A:,B7L2JJI3L?N2=KIL*M2I[I2(KI3L:.3E:.+B	A6 OI7TKA/TF="M&J3C3A7LR 3
;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=KA7R	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(7J6)N*F7P*JCC* B 6IKW3IWT*(23.2"12)* 7MZ,2(7J6
F,2(7J6)B,2(7J")*M. J "1&87FKO7MSA2("12 &,.4N,+X^,+V^ .,
F*.23*23X*	CQ2	Z,.7J.6,"2",*M* B . F 6IB	* 2	+F:7"26)*JB "3&33C;O3T;IU7E"J&L+DCO*4B5/I7S21:,3OWST*M6IOK6=OI2+?NM*M7C^I7RSI/ER(.,R9*5B)7NOO+E3T3IGC+S3E3L3UL*M2IGI/L7F3N;O7ECU6(OI")*M6I+I/E7D3N;O7ECU6(OI*+&1"M&J3IWM3D:=3OWN+DO+I	S"M&J3W	R+TE.4&,*4&72 GI+L3F
IWM3D&,3ZSE*MBJ.9^42I?F3RGM/TF(+H2 2	GI/L7F2	&,.4V,+X^,3IWM+D^=.,SI6,"52,&	3ZSE*=2	+I&4"M&J7IWC3R&=3ZSE2-GI+L/F"1*M2I	T3D?V7LZ=2(7I+E	D*-V3I3AF6)2J&I3MSA2=7I+E7D3I3A/FF+"M&J3IGZ3D&=3ZSE2-7I+E/D"1*M2IWP3R?I3D"=+V"*3IGM3D&+3ZSA*-&1"M&J7PKE3I	O6=[H2*7IA7D6JB
3E	R/O7E+H+V3IGZD*M2I7P/I7N3P&(3A[L")*M2I7P3IKN7KB=3M;I"M&J7COA/EB="M&J3PGM7XB=2(7I+E	D"M&J3PGM3X/B2=7PA7X2J&I3F&(3MSA2.WL2.	L7T	D2)^ 7OR /OR "4*M6IKW3IWT*(24.1R42)& 3S&,7COA3E&,3MSA*MBJ.1R42I?F3RGM/TF(+H212	WH+L;P6 WC3RWV2	&,*2^,2 [O2 GB3TC2	&,"26,*JB * 
 *1^I6 OI2 GL3RWG7RR 3H;A2 	D3M;E3S?I3NSE2.: 3AWM/L+Y2	&,*5&/"M&J+GCO+TCO"969*JB "4&4+DCO*4B6/I7T3I3A3F&,3MSE"M&J7IST6=SI2-GI+L/F"1*M7C^I7RSI+E" .3&,*4&2* V3I3A+F2)3V&(3MSE")*M. & "4&27FKO7MSA2("1* ^,3V&(3A[L*)^=.,
F*.23*53X*	V3IWM/D6)2	Z,.7N.")*M2IGC+LCL3L;I3ER(3Y?C6(SI+T2)+I3T3I3A3F&,3MSE")*M2I[I*(P+I	T2.WG2.7P+I	N2 ?G2 ?T. Z4"M&J3P3A7XB=3M;IB7K6JBI3M;I/B7K3P	MN*M2I7P/I7N3P&(T6)6JBI3M;I/M613P&(/TF-")*M2I7P7ICN61B=6(SI*+&1"M&J3D3E3TGA2=7P+I7N3P	M/NGM"M&J3D3E3TKA2=7
7ICN61B-3M;I"M&J+IF3D3E3TGA6.SL*.:02)R 7ESL/A7A2-WD3LGTA*M2I[I2(WD3LGT3B2./TB.*.B)3D3E3TKA2=R-7ESLA7B2J&I+F"(3D3E3TGA6.SL..B3*.:)+O;R2(WD3LGT3B2./TN.*0&.2)^ 7OR /OR "6*M*IP+I	T6=B(6(SI*-&1*+P+I/T*1&)*/:2"M&J3W	R+TE.4",*2&22 7P+I3N3P&(T6).J" "2&27FKO7MSA2(
1* ^,3S	P+K;E2 3O7DZ 7AWL3E> 7FB *=2	+F:7.2N,+X^,7N
E6 [AE7R*JB * B 21FI3GSE2 GV3LWU*=2	+F:7"26)2J&I7FB(6(SI2)2.7TB.3M;I+B	K2 ?G2 ?T. Z4"M&J3P	M7NB=3M;IB7K6JBI3M;I/B7K3P3AX*M. R 26NI7OSN7IWNE*M2I[I6(+I+A;D+L;E7LSI+D	Y2 ?G2 ?T. R6"4*M6IKW3IWT*(24.1R42)& 3S&,7COA3E&,3ZSA"M&J+GCO+TCO"969.JZ "4&4+DCO*4B7/K7P3I
M3D&,3ZSE"M&J7KCP6=CK2-7I+E/D"1*M2IGC+LCL3L;I3ER(3Y?C3E.(+P	P6,CK2,7I+E3D3IWZD6)2J&I7FB(6(CK2)2.7EB.7MA2)^ 7OR /OR "7*M2I	P/L7X3PGM3X/B"M&J3PGM3X/B2=7PA7X6JBI7MA*=P+K	P"M&J3PGM/XGM*=P+K7P"16)6JBI7MA/P613P.(/PF+")*M2IWD3LGT7CB=7MA2-7P3A7X"1*M2IWD3LGT7DB=7M
+P613PGMX*M2I[I2(WD3LGT3C2./TB.*.B)3D3E3TOA2=R-7ESLA7C2J&I3FR(7ESL+A;D+L;T*0&.2 WD3LGT+D6=3D3E3TSA"M&J+IF2(WD3LGT3C2./TN.*0&.6.KO2.R(7ESL+A;D+L;T*3:0*)B)+GCO+TCO"4676JBI6(CK*)"=3P.(/PF-6)B+6(CK*+&1.)J/".*M6IKW3IWT*(24.8J26)B 7MA*,P+K	P"M&J+IF3P.(+P:)+L;T3
GM3X/B2)^ 7OR /OR "7*M2I7P/A7X3PGM3X/B"M&J3PGM3X/B2=	PL7X*JB "4&73C;O3T;IU7E2J&I7FB(2(GI+L	F2.WL2.3P3IWN2)^ 7OR /OF "4672J&I7FB(3M;I2.WG2.3P3IWN2)N 3AWS"=652J&I7FB(3M;I6.SL2.3P3IWN2)N 3AWS"=662J^I7OR /OF "465.JF "4&7+IF3PGM3X^.7TB.3L;I+EB)+GCO+TCO.1Z4"M&J
IF3PGM3XV.7QB.3L;I+EB)7COA/EF="M&J+IF3PGM3X2.7TB.3L;I+EB)7COA/ER="M&J+GCO+TCO.1V4*MBJ.1Z42I?D. R226& 3Y&=3MSE*+213IWZD*M2I[I*(P+I	Y6.SG2.3P3IWN2)^ 7OR /OJ "4652J&I3CWH/C7KI7Y.JJ "4&63C;O3T;IU7E.JJ "4&53VC3E/C*=V3IC3E/C")*M2I[I2(OV3HOE3KV.7QZ.2(7I+E	D2)N 3
WS"=622J&I7FZ(3CWH+C;K+L;T3V&(3MSE*)B)7COA/EN=*MBJ.1V46IKW3IWT*(23.3V42). 3SN,3AWS*MBJ.3V42I?F3RGM/TF(+H2 2	?F3RN 7U[R3E: +O^ .,OI*,B	7COA+EB=2	&,"26)2JFI7BZ=2(7I+E	D*-V3I3AF6)2JJI7CB=3L;I7EB-2(7I+E	D"M&J/A7D3P	L+N7E3P&(3A[L")*M2I[I2(GC+S;E+N;E*5B)+GCO+TC
.3F0"M&J/B7C2-OB"M&J/A7D2-SA*MBJ.3F02ISA3CGB.=V.2*KA2*F(3DJ+C6)2J&I3FN(3AWS6.SG*.&42 ?G2 ?T. B3"2*M6IKP7OSU*(&2*=:0"M&J3P?R+UT.16)3AODB7A2J^I7OR /ON "160.JN "0&2+IF7COA3EV./QZ.2)^ 7OR /ON "0636JBI7RWO/TF(.)B=".*M6IKP7OSU*(&22=SA3CGB"M&J+GCO+TCO.3B1"M2J. B
23FI+D6=A7D2JRI/ON *0B4/J7Y21&,7CKU"M&J/J7X+J/Y3I3A/FF-"M&J+IF3P*(+Y:)+G;E3P	L+N	E2 ?G2 ?T. B3"4*M.I7R3V*(/XF-")*M2I?G2 ?T. B3"5*M. B324NI7OSN7IWNE*M. B325JI7RZ=2(7I+E	D"-7R6JJI3AF=3BJ-R*M6IKP7OSU*(&1.=V.2*OB6*KB"M&J3P?R+UT.26)*.*5+A+DR7A.JN "1&0+DCO.3F12
KN2=GI+L3F3IWMD*M2I?N3B:=3B&-3A[L"+61.JN "1&13D[I2(?N/B6)3DOY3O:(+O	B*-P+N	B"M&J3C3A7LF 3TWF6([H2,	D7FB,7RWO/TR(2)&,3MSA")*M2I?D. F322: 3C&=3MSE6,+IE7D2J:I/O7C+N7C3IWM/DF+*MBJ.3J12I	D3F:(+O	C*=P+N	C6-	D3CWO2(?NC6)2JNI3A3L6 SQ+FE+H3V3D[I6,KP7OSU*(&56,+I+A	
"M&J+IF7COA3EV./QZ.2)^ 7OR /ON "1652J&I3FN(3AWS6.GE*.&52 ?G2 ?T. F3"3*M6IKP7OSU.(B1.)B=".*M2I?G2 ?T. F3"5*M. F363BI7RWO/TF(.06)3P?R+UT*26)3P?R+UT"46)6JBI7RWO/TF(.16)"06..JN "1&5+IF7COA3E:./EJ.2)^ 7OR /ON "1666JBI7RWO/TF(.16)"06.2J^I7OR /ON "265.JN "1&6+IF
COA3EV./QZ.2)^ 7OR /ON "1642J&I3FN(3AWS6.GE*.&52 ?G2 ?T. J3"5*M2I[I2(GC+S;E+E;Q*3B)+GCO+TCO.3^1"M&J3P?R+UT*1&16=KP7OSU*(&16-KP7OSU*(&5"M&J+GCO+TCO.3V2*MBJ.3^12I?D. F328: 3D&=3CWH+C3K3IWZD*M2I?N3D:=3D&-3CWH+C/K"1*M. F328RI+IF3NSO6)B=2(SN6)B-3L;IE*M6I+I/O7D
IWZ3D&-3CWH+C/K"1*M2IGC+LCL3Q[T3E"(3VR,+I3F3CWL+A3R3I?ZD6)6JBI7RWO/TF(.16)3P?R+UT*16)3P?R+UT*5.)3CWLA7R2J^I7OR /ON "265.JN "1&4+DCO.3&12 OI2=GI+L3F3IWMD*M2I[I*(P+I	C6.SL2.3P3IWN2)^ 7OR /ON "2602J*I3CWH/C7KI7C.JN "1&93C;O3T;IU7E.JN "2&0+DCO.3F22 SI2=7I+E3D
IWZD*M2I[I*(P+I	D6.SG2.3P3IWN2)^ 7OR /ON "2622J.I3CWH/C7KI7D.JN "2&13C;O3T;IU7E.JN "2&2+DCO.3N22 [J2=7I+E3D3KC3E/C"M&J3J[O2=[J2-7I+E/D"1*M2IGC+LCL3L;I+EV3DOY2,[J2,GI+L3F3IWMD6).JN "2&33D[I2(?J/F6)3V*(+F6)3DOY"M&J3KOO2=OK3HOE3K&-3MSE"+612JNI3A3L6 SQ+FE+H3V
D[I2,3C+U3B3KOO")*M6IKP7OSU.(F16)B=7RWO/TF(2)N-3LKU"M&J+DCO.3R22 [K2=GI+L3F3JC3E/C"M&J3K[O2=[K2-GI+L/F"1*M2IGC+LCL3L;I+EV3DWY2,[K2,GI+L3F3IWMD6).JN "2&43D[I2(?K/F6)3DOY*-V+K	F"M&J3JOO2=OJ3HOE3K&-3A[L"+612JNI3A3L6 SQ+FE+H3V3D[I2,3C+A3C3JOO")*M6IKP7OSU.(B16
B=7RWO/TJ(2)N-3LOA*MBJ.3V26IKP7OSU*(&36=KP7OSU*(&16+KP7OSU*(&2"M&J3P?R+UT.66)3P?R+UT*4.)3P?R+UT"56)6JBI7RWO/TF(.26)3P?R+UT*1&06+KP7OSU.(F1")*M6IKP7OSU*(&76=KP7OSU*(&46-KP7OSU*(&26+KP7OSU.(B1")*M6IKP7OSU*(&86=KP7OSU*(&56-KP7OSU*(&16+KP7OSU.(F1")*M6IKP7OSU.
N16)B=7RWO/T^(6)B+7RWO/TF(6)B+7RWO/TF("06)6JBI7RWO/TF(.46)3P?R+UT*8.)3P?R+UT*2.)3P?R+UT*1&1"M&J3P?R+UT.96)3P?R+UT*7.)3P?R+UT"86)6JBI7RWO/TF(.56)3P?R+UT*1&36+KP7OSU.(R1")*M2I?D. N321* /Z7Z.1F,"5*M2I3T/I7T3P?R+UT7J+Z6)R/7I[DO7L2J6I/O7A3MSO6(+J/ZN,")*M2I?M2=
M/AF+2MNJ6 ^I7RSI/ER(.,R9*8B)M7O.J& "4&87FKO7MSA2("1* ^,/M7O2	&,"46)2J^I7OR +O" .3F4.,R3.2N,*4&32,6 O*M. R361RI3L	M7NR=7LSI2/WP3R?ID*M2I?G2 ?T. N3"1*M. R362RI3L	M7NR=7LSI2/WP3R?II*M2I?G2 ?T. N3"1*M. R363RI3L	M7NR=7LSI2/WP3R?IE*M. N361^I7RSI/EN(.,N3*2B)7J+
2,P3ESA6(+J+Z2)3P?R+UT7J+Z6)R,7LSI2,3T3M;I*MBJ.3J32I?F3RGM/TF(+H2 +I22*23X+A26*53X+F:8.2V,3XZ,.8R.6,"5.,F*.&5*MBJ. V42I?C3N	T3NWU"M&J+IF3IGC+S;E+E;Q*3B)+GCO+TCO"9692J&I7COA3E&=7COA/EF+2MNJ6IKW3IWT*(24.9V42): 3OWS3T&,7COA3E2,3U3L"M&J+DCO.6Z72 OI*=21"1662J&
/N7CI7C2J&I3F&(3NKB2.WL..V2*5B)+GCO+TCO.6^7*MBJ.6Z72I;I/B7B3IKN/BJ-"565.JZ "7&73NGB2=;IC*M6IOI7TKA3T&=3NKB"M&J+IF3IGC+S;E+E;Q*3B)+GCO+TCO.6B8"M&J+DCO.6F26 +J6=WL+L3L3I;I"M&J3N?P3N:=3OWN+UP+J	Z2-?N7NWE3P2(3U3L.)F+"M&J+IF3N?P3N2.3E:.7MA2)^ 7OR /OZ "2612J&I3
SN2=?N7NWE3P*(/ZF-2):-3OWN+UP3L3U+L.)"1*M2I?T/U7P7USP3O&+3ESN"-612J&I3NKB2=?T+U+P.3J-"M&J3I;E/D7B3I;ED*M6IWL3LGL6=+J"-612J:I3OWS/T7A3L3U+L7A3L3UL*M2I?N3M:=3OWST*M2I?G2 ?T. J6"2*M. J621NI7OSN7IWNE*M. "620:I/O7M3N7O2+?N7SSE"M&J3I;E3D:=3OWN+UP3L7B2)&-3ESN/BF
*MBJ.6J22I[I6(WL+L;L+E;Q3I?D2)^ 7OR /OZ "2632J:I3U3L2=?N7NWE3P:(3OWS/TF+")*M6IWN/L7D3N;O3E?D2(?N7SSE*+&1"M&J+DCO.6V12 7I6=WL+L/L21&,D7O2J2I/A7M+I7M3L3U/LF+"M&J3I7M2=7I"M&J+IF3IGC+S;E+E;Q*3B)3I7M2=7I3M:-3OWST*M2I?N3NSE3O2(+A	M2=?N3NSE3O&(+M	M6-WN+L/L"1*M. 
625:I3OWN+UP3L7A2):=3OWN+UP3I7M2):-3U3L"+61.JZ "2&33L7B2=	I3N2-3U3L"+612J:I3OWS3T2=+B7M"1*M2I?N7NWE3P2(+B	M2=?N7NWE3P&(+I	N6-WN+L/L"1*M2L&I3F&(7COA3EV./QN.2): 3OWN+UP3L7B2):=3OWN+UP3L7B+M6)3N3U/LF+"M&J3N;O3E?D*(&16=WN+L7D3N3U/LF+"M&J3N;O7ECU*(&1"=612J&I3F
(7COA3EV./QN.2)^ 7OR /OJ "5*M6IWL/L7L3L3UL7A2J:I3OWS3T:=3OWST7A2J2I3B7M2=KLM*M7C^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

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