File F1112.FT (FORTRAN source file)

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

3COC3COC3COC3COC3COC3COC3COC3COCC*MC*M7CNI3POA7E^ A7R"J7C"J	C7CCO3ISE6 KFO7M"J	C7LOI3T;IG*M3CZI3R7O2 WDC*MC*M3COC3COC3COC3COC3COC3COC3COC3COCC*MC*M2I;I3T
E+ECR7FOO7RR,7OCR61J,3O3T61J,7OKT61R,7HOR+T217TKO+P227RSO+L227RSO+R227TKH/SKT"M&J7ISN3EWG7RN 7CKO7E^,3A3L2,[O3F;ES*M2IWR+ACL7MOA+S217MOA+S227MOA+S237MOAS646JJI3E3A6 V.(B26)Z,/YJ(*02)/XJ(*02)/YJ(*02)7MOA/SJ("06)6JJI3E3A2 ?M7ON*(&62,?M7O	N*(&6"M&J3RGE3L6 3O
O*1X*1&22,?M/OGN/YF(*22)3M?O7N"2*(&62,?M/OKN/YZ(")*M2I	D3M;E3S?I7NN 7HCI*1X*1&72,S/IGP/YF(*72)3S	H7P"2.(^16)N,7HCI*2Y*1&7"M&J3D7I7EON3I;O6 WS+NX*1&26,WS+NY*1&2"M&J3D7I7EON3I;O2 S7IOP/XF(*72)3S	H7P	S.(^16)",3S	H+PS*1&76,OY7HCI/SF("76)2JRI3IWM3N	S+OCN7PSL3B
U.(B5")*M2I	D3M;E3S?I3NJ 3O7O/XF(*22)3B?O+MY*1&22,KX3O7O.(J16)&,3B?O/MF("26)2JVI3Q	U3V3A3EON+E" /XF(6)",*12)*(Y*12)+Y&16,Z(/XF(6)Z,+X&16,Z(/YF(6)Z,+Y&1"M&J7EWQ3IGV3L;E+CCE*(X*22)+X&26,&(*(&2.,KY*)",+VX*22)/VKX*)",+VY*22)/VKY")*M6IGE7U[I3AWL3NWC2 6(7AOS*(&
2,GM/SGS*)",7MOA/SJ(2)6,7AOS"26)2JVI3Q	U3V3A3EON+E" +VX*32)/VOX*)",+VY*32)/VOY*)",/XN(6)",*32)*(Y*32)+Y&3"M&J7EWQ3IGV3L;E+CCE6(V*(&46,V*42)6(	V*(&46,	V*42)*(X*42)+X&46,&(*(&4.,SY")*M6IGE7U[I3AWL3NWC2 6(7AOS*(&32,GM/SOS*)",7MOA/SR(2)6,7AOS"46)2JVI3Q	U3V3A3
ON+E" 3M?O7N"1*(&72,?M/OKN/XF(*)2)2(?M/OGN/Y^(2)6,3O;O*2Y*1&)"M&J7EWQ3IGV3L;E+CCE2(?M/OGN3XJ,3O7O+X2)2(?M/OGN3YJ,3O7OY6)2JVI3Q	U3V3A3EON+E" 7QJ,2,GG7MOE")*M2IGD+TCA+G?T..B0.0B0"56/2JRI3AGT2 ?T3RSP./B.*2>5"M&J7DSA7AZ 7TKO7PR,7OCR+M:/.0V1.,B4"/*M2IGD+TCA7TK
7USS2,?C3L	L+D:/.0B0.1V2.,B..0R0"/*M2IGD+TCA3LGO3D7T./Z-"/*M2IGD+TCA3N?C7LOI./R-"06/2JRI3AGT6 +S3OWN./B..2V2"/*M2IGD+TCA3N?T+R3P3FWU/LV/.0N,*0>0"M&J7DSA7AN 3AWF+T3Y7COO25
D2,	S3NR5+G:/.0B0.6V2.,&..9J6.,B..8F7*5>6"M&J7DSA3A: 3G7A+E?S"06/2JRI3AGT2 	W/NGS2,	W/NKS2,	T+E3S7FOU/EGD6,WF3SSE62R,3UWS+D217TOU/EKD*/*7"06/2JRI3AGT6 WS+N?X*36*..F0*,20*3:**021*06,..J0*,20..J0*,>0"M&J7DSA7AN 7U	N*/:-*021.0N,.*B..1B,*,*2.-B..1B,.,B..2B,*,
-*0>2"M&J7DSA3A6 3O;O+X6/..B0*525.-B..0V4.,B.*021..B0*523..B0*56,..B0"26/2JRI3AGT2 ?M7O	N*/:-.0R0*2:,.0F0.,B.*026.-B.*021.-B.*025.-B.*0>9"M&J7DSA7AN 7HCI*1?Y*36*..F0*,*2.-B.*025.0J,.*B.*025*3:**021..B0.5B,*,:-.0V0*,*3"06/2JRI3AGT2 S/IGP+X6/..F0*,:-.0V0*,2
..B0*5:,*021..F0*5:,*021..B0.5B,*,:-.0V0",*M* B 6 " .IR **:-*021.-B.*26,..J0*56,..N0"/*M2IGD+TCA3S	H7P&2*/*4.-B.*023.3B**,*4..B0.3Z,**>0"M&J7DSA7AN 7HCI*2?X.-B.*125.-B.*16,..B0.5B,.,B.*025..F0.,B.*125*06,..B0"56,*JB * B +XBI* :-*021.-B.*125.-B.*16,..B0.5B
*,:-.0V2*,:-*023.-B.*3>5"M&J7DSA7A" 3B?O+M6/..B0.1J3*,:-.0F0*521.-B..0N1.3B,.,B..0N1"16,*JB * B +XBI. B..0V1*5:,.0F0*229*06,..B0*028.-B..0N0.,B..0J0*5:,.0B0"66/2JRI3AGT2 KY3O7O*/:-.0F0*228*0:,.0F0*326..B0*126..B0.1Z6",*M* B 6 " *IB *06,..B0.1V3*,:-.0F0*76
..B0*026..B0*025..B0*024..B0*0>5"M&J3D?T/RZ=.."2*3>2.3B6".*MC*M3COC3COC3COC3COC3COC3COC3COC3COCC*MC*M3C&I7NSI3I3A3IGZ3T?IN*MC*M3COC3COC3COC3COC3COC3COC3COC3COCC*MC*M" &13C3A7LN 3C3A+E" .-Z.*56,*.25..V6.,V.")*M2I?D* B5/IF=.,B2*MBJ*5BI2 GM+SS/I6)"0*M6IWF/EG
6=WFE7L2JZI3U3E22Z=3U3E"1*M2I?C/SKA.=^."0676JNI3IGN22N=3OGS"2*M2I?C/SGA6=N-3IGN"2*M2I	S/NGA2=?C/SGA"M&J3N?T/RGP6=SN7OCR"M&J3N?T/RKP6=SN7OCR"1*M2I?L/AGD"=602J2I3OSA222=3OSA"1*M2I[N3L7A212=3OSA"2*M2I[N3L7A22:=3FGLM612J6I7AOS.1F="M&J7MOA/S627MOAS612J6I7AOS63
=7OCRM*M2IGM/SSS2=GM/SOS"M&J/X62".636J"I*16=X626J&I*1:="2656J&I*26=Y616JZI/X61"0*M6IV62Z=X616JZI/Y61/VKX"M&J/VKY6=	V"1*M6I	V63Z=Y626JZI/Y64/VOY"M&J/X63..F0"M&J/X64.-OX"M&J/Y64..V2"M&J/Y63.-SY"M&J/VSX.=B."0666JZI/X636-V"4*M2I?N/B7J"4*M2IT7RSS.2R="0*MC*M3CO
3COC3COC3COC3COC3COC3COC3COCC*MC*M7CJI3ESA2 ?C7NKT7OOL2MNJ2MNJ3COC3COC3COC3COC3COC3COC3COC3COC2MNJ*MBJ"1&07K	E3SZ=7OKS*(	X"M&J+ICF6(SN7OCR21:+7TKO+P&2. B8.0","0606JRI7OCR*16=7K	E/SJ/.0"4"M&J7K	E3S.=7EOY2+?T/RGP.*B2"4686JJI3O3T*16=7K	E/SF/.0R2"M&J7K	E3S.=7
OY2+?R/TGL.*B1"2646JJI7OKT*16=7K	E/SV/"1622J.I7EOY2=WK+Y/S7RSO+R*1.5J1"M&J7TKH/SGT2=.-7EOY./V2"6*M2IWK/Y7S7K	E7SR+7HOR+T*1.2Z5"M&J3S?C/R7E2-WK+Y?S.1"2"M&J7K	E3S.=7EOY2+OS3OWR.*J1"8*M2I[O3F;E+S6=7K	E/SZ/"4*M2IWK/Y7S7K	E3S>+3FWF+N+S"6646J^I3A3L2=.-7EOY./J3"
&J7K	E3S.=7EOY2+GW+L+L"3622J&I+F" 2-WK+Y?S*1&6. B2"M&J7MOA/S637TKOP7M2J6I7AOS246=7AOS"3*M. B22IWK/Y7S7K	E3S.-7EOY./Z1.*Z1"M&J+ICF2(WK+Y	S. B1*020.1B0"0*M2I?T/RKP2=.-7EOY"/682J.I7EOY2=WK+Y/S7TKO+P*2"8*M2I?R/TKL2=.-7EOY"/642J.I7EOY2=WK+Y/S7RSO+L*2"4*M2I?R/T
R2=.-7EOY"/626JRI7HOR/T622-.(7EOY2+?R/TKR**&2"M&J+GCO+TCO.1B3"0*MC*M3COC3COC3COC3COC3COC3COC3COC3COCC*MC*M3CRI3EWF3NWS2MNJ2MNJ3COC3COC3COC3COC3COC3COC3COC3COC2MNJ*MBJ.1B060RI7HOR/T627TKH/SKT"-612J&I+F" 2-T7RSS*2B).1B3"0*M2I?R/TKR.=F-"M&J7TKO/P627RSOR626JJ
3O3T62R=7OCR"2*M2I	T/M7E"3632JRI/OF .2B0. 7I.5F,"9*M2I[I2 6(7AOS*(	I.)F .2B0.,J1"0606J"I7D"=*(	I.-KX"M&J/Y7D3Y&(6)&-"2*M2IT/I7T+X?D6(V62Z-3X&(")6)2J&I+F" 3T	H+TB).1V0"0*M2I[I6 R(3IWM2-T+I	T. B1"5606JJI7HSI2=SY2+T+I+T6(	V*(	I6-	V"26)2J&I+F" 3S[A7E	T2-R+I+T
R	H+TB).1V0"0*M. B1"2&03T7I7ER=7HSI"M&J3TSX2=SX"M&J3TSY2=SY"M&J+GCO+TCO.1B2"0*MC*M. B1"5&03VSY6=	V62Z-3Y&(")*M2I[I6 Z(+Y	D. B1*620.1B2"0*M. B1"6&03T	H7T&=7DZ/Y7D2J&I+F" 3T	H+TB).1B2"0*M2I[I6 R(3IWM2-T+I	T. J1"0606JJI7HSI2=SX2+T+I+T6(V*(	I6-V"26)2J&I+F" 3R
H7TJ*7HSI2-GS7FSE+YB).1J0.0F,.0B2*MBJ.1B220NI7OSN7IWNE*M2I[I. N(62R-3IWM.)F .2V0"M&J3R	D7RR=+Y+D7COO+A623TSX2*	S/NKA"M&J+ICF2(GS7FSE7YJ-7DKI2*SR+I	R. J1"5652J&I+F" *1643T7I+EB).1B2"2*M2I?T/RKP"=60.JF .2J02I[I2 N(3O3L+I7D3R	D7RJ*7DKI.)F .2V5"M&J+GCO+TCO.1B
"0*MC*M3COC3COC3COC3COC3COC3COC3COC3COCC*MC*M3C>I3FWF3NWS2MNJ2MNJ3COC3COC3COC3COC3COC3COC3COC3COC2MNJ*MBJ.1B225&I+F" 7MOA+S&1. N1*020.1B3"0*M2ISX.=GX.-KX"M&J/Y7D+Y61Y626JZI/X7D/VGX6-V62Z-7TKO3PN*3OGS"2*M6I	V7DZ=+Y61/VKY6-SV7OCR2*	S/NKA"M&J3T	H+T"=+X+D+X/D
Y+D+Y	D6/Z(+X+D3VSX6+	V7DZ*+Y	D"/626JRI7HSI.2F=65R+7HSI./B3"M&J3T	H/T623T	H+T>262R+7HSI2/T/IKT"M&J3T	H7TR=7HSI.2J/2+T+I?T3T	HT622J&I+F" 3S?Z+N7E+X*1+X61+Y*1+Y&1. J1"1602J&I+F" *1633T	H+TB).1V2.0F,.2B4.,J1"460"J7C.JF .2B12ISX2=SX6+V7DR*7HSI"M&J/Y7D+Y/D3VSY
*TI7T2J&I+F" 3C3O3LSI2-SX2*SX2-SY2*SY.)F .2B5"M&J+ICF.(N32-T+I	T. N1"060.JF .2B42I[I2 >(3FWF+N	S. N1"0606JRI7OCR.2B=*MBJ.1V260JI7DKI2=SY2*?C/SKA2-SX2*	S/NKA*MBJ.1V225&I+F" 3R	D+RB).1^2"0*M2I?R/TKL"=602J^I7OR /OF .3B02MNJ*MBJ.1^260JI7OKT.2B=2MNJ2MNJ3COC3CO
3COC3COC3COC3COC3COC3COC3COC3COCC7C"J7C"J	C7M[O3E> 3BWJ7COT2MNJ2MNJ3COC3COC3COC3COC3COC3COC3COC3COC3COC3COCC7C"J7C.JF .3B02I?D. B120& *=21"1692J&I+F" 7MOA3S&(*)B)*520.1B0*MBJ"5&0/X7X3X&(")*M6I	Y*=YI6)6JJI+R"=+X+X+X/X+Y+Y+Y	Y"/622J&I+F" +R7R3C3O3LSI.)& "5*
.I7R..J165J+/RR*"M&J7RJ=*/.2+R?RR*M.I7R/RJ/6+KR"/7R6JRI7AWS3N^=7TJ/7RJ/"M&J+VX/I6)+VX+I6)7TOA+U+NX7X6JZI3Y&(6)Z=3Y&(6)R-7AWS7N&*Y*M*IX/I6)+X/X+VXI6)6J&I*(	I6=	Y6+	V*(	I"M&J+ICF2(GM+SS+I&). B42MNJ2MNJ3COC3COC3COC3COC3COC3COC3COC3COC3COC3COCC7C"J7C"J	C3C3O7
OI3I;O2 C3E/C2MNJ2MNJ3COC3COC3COC3COC3COC3COC3COC3COC3COC3COCC7C"J7C2JRI/OZ *0B03J&=*+21"2602J&I+F" 7MOA3S*(*)B).6B0.,B6"0*M2ISX6=X*-XJ6)6J"I3DN=3O3L+I7D+X+DX7D2J&I+F" +X	D. B6"0*M2ISY6=	Y*-YJ6)2J&I+F" +X7D+Y+D+Y	D. B6"0*M2IGM+SS/J6)7MOA3S*(2):+3C3OI7S2J6
7AOS*(	I2=GM+SS+I.)3N?C7LOI*MBJ.6B02I?C3N	T3NWU*MBJ"4&03I?M/F7F"-612J&I+F" 6-"(+X:+*6&5.)Z "0*M6IV*(	I6=Z-3X&(")*M*IX/I6).-Z."4692J&I3M[O/FB=*MBJ"6&0+ICF*("-+Y/Y..B5*)B)"7606JZI3Y&(*)6=+VYI6)6J&I*(	I*=:-.4&9"M&J3I?M/F7F"0*M. B72I[I6 "(+X:-*6&5. B8"M&J+VX/
6)6-V*(	I"M&J3X&(*):=.6&4"M&J3I?M/F7F"0*M. B82I[I6 &(+Y:-*5&0. B9"M&J+VY/I6)6-	V*(	I"M&J3Y&(*):=.4&9"M&J3I?M/F7F"0*M. B92I[I2 &(3M[O+FB).1B0"M&J+ICF*(62+IB)"9652J&I+F" 3W3A+LB).1B0*MBJ"9&5+ICF2(GM+SS+I&). B1.0F,"0602J6I7AOS*(	I2=GM+SS+I.)3N?C7LOI*MBJ.1B02
?C3N	T3NWU2MNJ2MNJ3COC3COC3COC3COC3COC3COC3COC3COC3COC3COCC7C"J7C"J	C7RSO3AWT2 S7IOP2MNJ2MNJ3COC3COC3COC3COC3COC3COC3COC3COC3COC3COC2MNJ"M&J+ICF2(?R/TGL.)F "6606JJI7DKI2=	S3NR5G*M2I?G2 ?T. ^1"0*MC*M. Z120&I+F" 7RSO+R&1. "1"0*M2ISR/I7R2-	S3NR5G*M. ^120NI3O
S3TN=3OGS21N*/OWS+D7G3S;I+A*13R	DR*M2I	S/NGA2=	S/NGA2*?C3SR53GN+3OGS61J*7DKI"M&J7COO/A617COOA7T.JF "8&0+ICF2(?R/TKL.)F "9606JJI7DKI2=	S3NR5G*M2I?G2 ?T. B2"0*MC*M. &120&I+F" 7RSO+R&2. F2"0*M2ISR/I7R2-	S3NR5G*M. B220NI3OGS3TN=3OGS22N*/OWS+D7G3S;I+A*23R	DR*M
I	S/NKA2=	S/NKA2*?C3SR53GN+3OGS62J*7DKI"M&J7COO/A627COOA7T"J7C2JOC3COC3COC3COC3COC3COC3COC3COC3COC3COC3COCC*MC*M3C2I3A;U+CCH7TKO3PSEO7S"J7C2JOC3COC3COC3COC3COC3COC3COC3COC3COC3COC3COCC*MC*M. F2202I3OSA212=3OSA.1F+"M&J+ICF2(GM/SGS.)J "2602J&I+F" 7TKO+P&1. 
2"0*M2I[I2 2(3OSA*1B).2B2"M&J+ICF6(SN7OCR*1B).2B2.,J2"0*M6ISN7OCR21:=7TKO+P61"1*M2I?L/AGD2=?L7ASDM*M2I?N/B7J3NKO/JF+"M&J+ICF2(?N+B7J*2&0. F2"2*M2I?N/B7J"5*M. F2226I7AOS2(?N+B	J2=?T3R7P"M&J3X:(3O+B6)"=61R+7OCR3DN*3OGS"1*M*IY3NKO/J6)+Y.17TKO+P+D3S;IA616JZI3
:(3O+B6)Z=+X.13V?T+R+P7COOA616JZI3Y:(3O+B6)Z=+Y.13V?T+R+P3S;IA61.JJ "2&03LGO/D623LGO+D.2"1*M2I[I2 6(7AOS*2B).2B4"M&J+ICF2(?T/RKP.)J "4602J&I+F" 3LGO+D&2. R2"0*M2I[I2 :(7TKO+P&2. R2.0J,"4602J:I7TKO/P623N?T/RKP"-612J2I3OSA222=3OSAT7M2J:I3O+B2=?N+B/J"1*M2I[I
 :(3O+B.-B2.)J "2622J:I3O+B"=65.JJ "2&27MOA3S:(3O+B6)R=7OCRM*M*IX3NKO/J6)+X.27TKO+P+D7COOA626J&I2(?N+B	J.=KY2+?T3RSP2*	S/NKA"M&J+VX3NKO/J6)/VKX6+SV7OCR2*?C/SKA"M&J+VY3NKO/J6)/VKY6+SV7OCR2*	S/NKA2MNJ2MNJ3COC3COC3COC3COC3COC3COC3COC3COC3COC3COCC7C"J7C"J	C7T
H7USS2MNJ2MNJ3COC3COC3COC3COC3COC3COC3COC3COC3COC3COCC7C"J7C.JJ "4&0+ICF2(T7RSS*1B).3B4"M&J3FWU/L613FWU+L61"1*M2I[I2 Z(3U3E*1B).3B4"M&J3N3F/AGM*=.13N3F/AGM2-[N3L7A.1N/"*636JZI/X61/VGX2+?C/SGA2*T7ROUT*M6I	V61Z=+Y.13S;I+A*17TKH7USS"M&J+GCO+TCO.3B52MNJ*MBJ.3
42I[N3L7A.1B=*MBJ.3B52I[I6 R(7HOR+T&2. Z3"0*M6IWF/EKL6=WF/EKL"-612J&I+F" 3FWU+L&2. Z3"0*M2I[N3L7A.2F=2+[N3L7A22:-3FGL+M>2.3N*"M&J/VKX6=V22N+3OGS62R*7HWRS7T6JZI/Y62/VKY2+	S/NKA2*T7ROUT*M2I?G2 ?T. ^3"0*MC*M. Z320:I3FGL/M62"0*MC*M3COC3COC3COC3COC3COC3COC3COC
COC3COC3COC3COC2MNJ2MNJ2I	D3S3PA7Y"J7C2JOC3COC3COC3COC3COC3COC3COC3COC3COC3COC3COCC*MC*M. ^320RI/ON *8B0/IF=",662J6I3O;O*1X/I6)3M?O+NX+I.)X632J6I3O;O*1Y/I6)3M?O+NY+I.)Y632J6I3O;O*2X/I6)3M?O+NY+I.)X64.JN "8&03M?O7N&2*(	I2=?M7ON*(	I.+SY"M&J+DCO.4B0. 7I.1F,2
:+3FGLM616JNI7HCI+SX/I6)3S	H7P"1*(	I2*?C/SGA2-S/IGP3Y&(6)N*3IGN61"+"1*M. B460NI7HCI+SY/I6)3S	H7P&1*(	I2*?C/SGA2+S/IGP3X&(6)N*3IGN61&+"1*M2I?D. F420& *=21*1.43N3F/AKM"M&J3XS7IOP*(	I2=S/IKP3X&(2)N*3OGS62N-7HCI*2Y+I*)3S;I+A.2X62.JR "1&03YS7IOP*(	I2=S/IKP3Y&(
)N*3OGS62N+7HCI*2X+I*)3S;I+A.2Y622JNI3A3L2 3C3R3P/TV(60B,3LKT+U	F"M&J+ICF2(GM/SGS.)R *220.4B2"M&J3C3A7LB 7LSO.(R12+[N3L7A61N,7HCI+S3X3S	H7P	S")*M. J420&I+F" 7MOA+S&2. N4.0R,"3602JNI3A3L2 3P+OT*1.43N3F/AKM6,OX7HCI7S&,3S	H+P	S*MBJ.4B32I?D. R420& *=25"2602J&
+F" 7MOA3S&(*)B).4B4.,R4"0*M6IX*=XI6)6J&I7Y&=*(	I"M&J3C3A7LB 7LSO*(21+X3X+Y	Y*MBJ.4B42I?C3N	T3NWU"M&J+ICF2(GM/SOS.)R *520.4B5"M&J3C3A7LB 7LSO*(263M?O7N"12,?M/OGNY6).JR "5&0+ICF2(GM/SSS.)R *620.4B6"M&J3C3A7LB 7LSO*(263M?O7N"22,?M/OKNY6).JR "6&03C3A7LB 7LSO
(J16,WS+N3X3S;UY6)2J&I+F" 7MOA+S&1. B5.0V,*220.5B2*MBJ.5B0.I7Q7MOA+S.1"4612J6I7AOS216=7AOS.1F+"M&J+DCO.5B1. 7I.1F,"2*M2I?B7OM*(	I.=GX*++Q3X?B+OMI6).JV "1&03B?O+MY/I6)+Y.17Q&*3B?O3M&(")*M2IGC+LCL3P?L/TF(22J,3O7O3XJ,3O7OY6).JV "2&0+ICF2(GM/SKS.)V *420.5B6.,
5"0*M. R560FI2=GM/SKS.+F4"M&J7MOA/S627MOA+S.2"1*M2I?D. V520& *=21"1622JJI3O7O3X&(6)"=62F+2*KY3O7O*(	I*MBJ.5B52I?B7O	M*(	I.=KY*++Q3X?B+OMI6)2JNI3A3L2 3P+OT*1223B?O+M3X3B?O+M	Y*MBJ.5B62I[I2 6(7AOS*1B)*120.7B0"M&J+ICF2(GM/SKS.)F .0&,*020"160"J7C2JOC3COC3COC3
OC3COC3COC3COC3COC3COC3COC3COCC*MC*M7CNI7CKO3I
N2MNJ2MNJ3COC3COC3COC3COC3COC3COC3COC3COC3COC3COCC7C"J7C.J^ "0&0+ICF2(GM/SKS.)F .0","0606J^I7ION62^=7ION.2F+*MBJ.7B56IWF3SSE21Z=3UWS+D.13FWU3LZ-3U3E"1*M6IWT3SSE61R=3UWS+D.13N?T+R7P3N?T/RGP"M&J7FOU/EKD6=WF3SSE22Z+3U3E6-WF/EKL"M&J7TOU/EKD6=WT3SSE22:+7TKO3P:
7TKOP622J:I3G7A/E7S3NGG7MOE"+612J&I+F" 3S?C+R	E. Z7.0^,"760.J^ "6&07FOU/EGD"=602JZI3UWS/D62"0*M6IWT3SSE.1B="M&J7TOU/EKD"=606J^I7ION.1B="M&J3W;I/S62"0*M2I	T/E7S"0*M2I
N3AWM/SB="M&J+GCO+TCO"1*MC*M. ^720&I+F" 3NGG7MOE2-
N3AWM/SV/**&5* 21.2B0.0F,*MBJ.8B02I	T/E7S3TWI/SF+"M&J+GCO+TCO.7B52MNJ*MBJ.9B02I	W/NGS2=	W/NGS"+612J^I7OR /O^ "560"J7C.JJ .0B02IGG7MOE2=	W/NGS2+	W/NKS2+	TE7S2J&I6=^(7ION.1J*2+	T+E	S2/^(3AWM/SJ*.)F*.0B06-WF3SSE*1"/3G7A+E+S3FWU+L*).1B0*MBJ* B " 	X* 6 7TOU/EG
2/^(3AWM3S:*7TKO+P*).1B0"M&J+J"=3W;I+S*262R+7IOE*)"/3G7A+E+S*2*).1B020Z-3UWS+D>22(GG7MOE6*WF+E	L.*B1"0*M* B 6 " *IB 6-WT3SSE*2"/3G7A+E+S3N?T+R	P.*B1"0*M6IKW3IWT. R(.,B2*1&02 GG7MOE*,3IJ*M. B2"1&07FKO7MSA. N(+I>4")*M2I?G2 ?T" 61"J7C2JVIN7D"J*M6$RI3UWS/D62"
*M2I	W/NGS"=606J^I7ION.2B="M&J3TWI/SB="M&J3NGG7MOE"=602J^I7OR /OF 2MNJ*MBJ.7B72I[I2 :(3G7A+E7S3NGG7MOE*/*5*5B).1J,.0B0",61.J" "0&03TWI7SR=7IOE"+612J^I7OR /O^ "560"J7C.J& "0&03W;I/S613W;I+S.1"1*M2I?G2 ?T. V7"0*MC*M. B2"0&03G7A/E7S3W;I+S.13W;I+S.23TWIS*M.I7
2(	W/NGS**.23TWI+S>)2(GG7MOE**&2.*B1*0607FOU/EGD2/^(3AWM3SZ*3U3E.)F*"060*JB * B +XBI6 R-3UWS+D>12(GG7MOE6*SN7OCR.)F*"0602J*I6=^(7ION.2J*2+	T+E	S2/^(3AWM/SJ*.)F*.0B06-WF3SSE*2"/3G7A+E+S3FWU+L*).1B0*MBJ* B " 	X* 6 7TOU/EKD2/^(3AWM3S:*7TKO+P*).1B0"M&J3W	R+TC
*(24.2F0*0B)3G7A+E3S3I*,*MBJ.2F020ZI3O7R+ACT2(&3*4&/"M&J+GCO+TCO"1*MC*M2I;ED*M"MBJBZ

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