File DAPMM.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 GD3P7M2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 F 7PKP3O	X7MSA3EF 6 WF7NSC3I;O2 GT3B3U3AWT3D& 3N: 2 ?P7ISN3SJ 3YF +NCY
L;I7EKA2MNJ* B * B * B 2 N 3OKM3IGN3T?I3N> 3F6 2 	G3V;E2 ?C3N	T3N?U+UCS3F;U3C	T7OON2 ;I2 T7EN 7EONE*M+CB * B * B * B +OCF3CWH7BOY7H[E".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7DCA+MM7FSC*,3N7MR,+O3P3IWH2,	P7VR,6,SI+E3R7IKE")*M+CB * B * B * B 7PKA3
WM7TKE2 OF7TJ 7EWQ3IWR3SF 3NV 3XWT3RGN7LN 7TSA3EWM+NCT+ICN3TWH2MNJ* B * B * B 2 N 3A3L3I
N6 KP7OKG+A;M2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 2 Z +CCT* B 2-: 3AWM2 [O6 WS3B?R3U	T+NCE+TCO+BCE7SCU3P	L+ECD+BCY3TWH6 OU+E;R2MNJ* B * B * B * B * B * B 2 & 3TN 7OCM3UWT7SZ 7AWL+ECS+OCF3M^ 3IWV3NZ 3UON3T?I+NCS7FKO2MNJ* B * 
 * B * B * B * B 2 F 7RWG3M;E7TZ 7AWL7E" ".*M+CB * B * B * B * B * B * B 3UGSG7E*JCC* B * B * B * B * B * B * B 2 GC+LCL7FSC*(3Y3X.,")*M+CB * B * B * B * B * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B * B * B * B * B +YB * B-7DWO3BWL6 KP3E	C
S?I7NJ 7EWS+LCT3VOE7TKO2 [O2 	D3M;E"-*M+CB * B * B * B * B * B * B * B * B * B 3S?I3N6 2 ?C3NGT3I	N+NCG3TWH2 GV3LWU3S> 3F^ 3IWVN*M+CB * B * B * B * B * B * B * B * B * B 3C;O3T;I7UWO3SZ 3UON3T?I+NCS7FKO2 	G3V;E6 KA3G7U7ESN" 7X*JCC* B * B * B * B * B * B *
B * CX* 6 2 ?D3U3B7EB 3ROE3I?S3NF 7RWG3M;E7TZ 7AWLE*M+CB * B * B * B * B * B * B * B +KB * B-+ACN7ISN3EWG7RZ 7AWL7E^ 3HOI3H& 3SV 3QGU7LR 3O6 "-61*JCC* B * B * B * B * B * B 2 WR7MKAK7S*JCC* B * B * B * B * B * B * B 2 [I6 CA3P?R3X7I3A	T+OCN+BCY7NKO3M3A2 C
E	B3SWH+VB,3S	H3FWTD*M+CB * B * B * B * B * B * B * B 3CWH7BOY7H[E2,2 3EWG7NKD+EB,3L
A7UKE+R3E2 WH3R	M+TCE3P3O3Y?N"-*M+CB * B * B * B * B * B * B * B 3MGI+LCS+ICS7DOE3IWR7DN 7UKB7OSU3IWN3SR 7CCN2,OD+S3P3DWLP6,*JCC* B * B * B * B * B * B * B 2 3D+A3P3DWH+PB,7ROE3POE7T[I7E	L6 KF+OCM7SCS2 ?C3USL2 WB6 OU+E;D2MNJ* B * B * B 2 : * B * B 2-: 3UK
+ECR+OCF7DSA7AB 3O;I+TCS3D[E3I	N+NCG3TWH6 WF7NSC3I;O2 W3IC2MNJ* B * B * B * B * B * B 2 & 7SR 3OJ 3EF 7PKP3O	X7MSAE7D*JCC* B * B * B * CM* B * 6 6 WN3MWB3R> 3F^ 3IWV3NN 7OSN7IWN7OOU6 WF7NSC3I;O3SZ 3R7O2 W3IC2MNJ* B * B * B * B * B * B 6 R +HCE7ACP7RO3IGM3
;I3GZ 3UON3T?I3N& 3SN 7OON7TWR3CWTD6.*JCC* B * B * B 2 ?T+PB * 6 2 ?D3U3B7EB 3ROE3I	S+OCN3VOE7TKO2 [O2 	D3M;E3S?I/NN **;N2MNJ* B * B * B * B * B * B 2 > 3NV 7NKT3Y& 3T6 7USS2 ?C3NGT+ICN3F?R7MR +OP*1B)+UCP+TCO7TCO*(	N2MNJ* B * B * B * B * B * B 6 R +HCE7G[
+ECN3NZ 3UON3T?I7NZ 7AWL+ECS3ASN6 KF+OCM7TCO*(/N*1B)U7P*JCC* B * B * B * B * B * B 2 ?T2 ?T/PJ(**	N2 T3EN 7OKR7ECS3OSN3I
N2 ?N7DOE2MNJ* B * B * B * B * B * B 2 > 7NJ 7EWT+RCN7TCO2 ?C3NGT7ION6 KF+OCM7TCO*(&16 CU2 ?T2 ?T3P:(")*M+CB * B * B * B * B * B * B 3TWH6 KE7RKO3SF 7TR 7HOO3E: 2 ?N7DOE".*M+CB * B * B * B * B * B * B 3OT+ECR3V3A7UOE2 [O2 ?T3PF +RCE7SKC3AOTH6.*JCC* B * B 
 B 2 I+EB * 6 2 ;I3T
E+ECR3VOE7TKO2 [O2 	D3M;E3S?I/NN **/M24:*"+66*JCC* B * B * B 2 	P+VB * 6 2 ?D3U3B7EB 3ROE3I	S+OCN3VOE7TKO2 [O2 	D3M;E3S?I/NN **/M"66.*JCC* B * B * B * B * B * B 2 ;O2 WR7TKU7NB +ICV3C;O3T	A+NCS+ACT7P[I*(&16 CU2 ?T2 	P3V6(6)R H7E*JCC* B * B * B * B * B * B
2 WR3S3U3T;I3GN 3O[E3FOI3I;E+TCS+OCF3L;I7EKA6 CA3P?R3X7I3A	T+O;N2MNJ* B * B * B 6 R * B * B 2-R 3OKU+LCE3PWR7COI3I;O6 WA3X3I7IKA7YZ 7ESC+OCR+OCF3D7I7EON3I;O2MNJ* B * B * B * B * B * B * " /MJ+*)"*/MJ+")*M+CB * B * B * B 3IWT+RB * B-7ROE7USL7ASN2 ;I3T
E+ECR3W	H+CCH3SWP3C[I7IOE2 T3E: 3UKM+ECRO7F*JCC* B * B * B * B * B * B 6 SI3EGR3T?I+NCS3NWE3DSE2MNJ* B * B * B 2 & +ECR* B 6-J 7EWS3LGT+NCT7EKR+OCR7PKA3AWM7TKE2 ?C3DSE2 ;I2 T3EZ 3O3L3O	WN7G*JCC* B * B * B * B * B * B 2 ?FR7M*JCC* B * B * B * B * B * B 2 &
/E7R*0B 2-: 3OV 3R?RR*M+CB * B * B * B * B * B * B 2 WI/RF=* 6 2 T3E: 3UKM+ECR+OCF3IWT7RSA3I;O3S" +ACS3RGE3CWHD*M+CB * B * B * B * B * B * B * B * B * B 2 T3E& 3NWT3RGN3L6 3A	X3M7U* /NM*M+CB * B * B * B * B * B * B 2 WI+R6=*16 2 ?N2 WR3S3U3TJ 3EGC3UWS2 [O
 KW3O
N2 ;I7PSU2 GP+R7A2MNJ* B * B * B * B * B * B * B * B * B * B 7MSE+ECR3M> 3R: 6 KO2 	S3NWC6 SA2 ?S+MCE3IWT7RSA3I;O2MNJ* B * B * B * B * B * B * B * B * B * B +NCO3S	U3TKA+LCE7P[I+OCT7CWO+LCD+BCE7FWON7D"J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 ?N2 OA3T?I
NJ 3E	S7DOE6 KE7RKO2 WM3SGS+GCE+ICN7COA3E6 2 WL+SCS3TGH/NF 6 KO2MNJ* B * B * B 2 : 2 WL+SCS3TGH/NJ ".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 6 R +HCE7ESX3E;R+ACL3SKU7RWO3T;I3EZ +CCT7MOU3TJ 3EZ 3U;R3IS+E
D+BCY3TWH6 OU+E;R2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 T7EB 3RKO3L7E2 [O6 CA3P?R3X7I3A	T+OCN7AR 7AWB7LSA+ECD3F;U3C	T+OCN+BCY7A	N2MNJ* B * B * B 2 2 3IWN+ACR3C7O3B;I3A	T+OCN+OCF7G[I+ECN3F;U3C	T7OON2 ;I2 T7EN 7EON3E> F*M+CB * B * B * B 3CWH7BOY7H[E2 &
*.;E2 ?T2 	M3N7I3IWZ2 T3E6 3A	X3M7U6 KE7RKO2)& 7SR 3R;AS6-*JCC* B * B * B 2 ?F3RWM3D& 3N?T* CA3L;I7EKA6 KP7OKG3A7M3I
N6 KP3O3B+E;M2 GD3P7M6 OU+ECSA*M+CB * B * B * B 7R[E3IWS7DN 7ICM7LE2 WM3T?H7DR 7ON 7O[L3EF 2 ?C3RWR3S?P3N	D+NCG3DGUL*M+CB * B * B * B 3P?R3BWL+MB.7FKO2 WR7FKE3EON+EB,3SWE2MNJ* B * B * B 2 & 2.GB3R?R3D3A3EF/2.?Y3U
N2,F 3L?G7RSI7HOM2 ?F3RJ 7ESS* 7L3SKU2-;O3EF N7D*JCC* B * B * B * 7L3SKU2-;I3F;I7I	T2,2 3IWN+ACR7ACP7RO3IGM3T?I+NCS+OCN3AR 3IOS7RSE7EN +E3T2MNJ* B * B * B 2 : 3UWM7ROI3CWH2 GM3TWH7MSA+I3K2 ?V/L".2,& +S;S*3" .1Z9*62)6 CP..&2.5N-*0:62MNJ2MNJ* B * : *.:.*.:.
.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE7DCA+MM7FSC*,3N7MR,+O3P3IWH2,	P7VR,6,SI+E3R7IKE")*MC*MC*M* B * B 3D7I7EON3I;O2 ?T/PF(2)&,+HE*12)7P[I*(&1*,T"16)*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN7DWS7
R,+O3P7P[I*,3T7S[A3E",7ECL2,WR+P3I3T3O2MNJ2MNJ* B * B 6 R 7ESS2 ;O6 KW3O
N2 ;I7PSU2 GP3R7A3EWT+RCS3NF +NCDM*M* B * B 7IKE.=F-*MBJ* B 2 & +F" /NF-.)" .1",.1F,*MBJ* B 21& 3F6(.)" .1",.1J,2MNJ2MNJ* B * B 2 & 7NSI3I3A3IWZ2 C3AGR3CWT7ROI3TOI2 WV3C?T+RCS7FKO2 T7ER 3A3B7EWA*MBJ* B 22& /E7R"0*MC*M+CB * B * B 3PWR7PKA7ER +O7P7R
O2 ?TP*M* B * B +DCO23& *=21N*M* B * B 3K&="+7N*JB * B . 7J3K:+*MBJ* B 6 R +OP/J6)7TCO*(	K*MBJ* B 63R +OP/K6)2-?T3P&(")*MC*M+CB * B * B 3PWR7PKA3E& 3NWV3RWS6 KT7AON7FKO7MSA3I;O2 GM3T	R7XR *MBJ* B 2 2 *=/M"2*M* B * B /L7L3L2**MBJ* B 2 R /OR . 7I212,L*M* B 
 B43T&(.)B=..CD*MBJ* B 2 . "=61*JB * B . 7J/LF+*MBJ* B 2 R /OV . 7I212,*MBJ* B 6 R *(	K*=:1D60*JB . V . 7K3K*+2MNJ2MNJ* B * B 6 B 7RCE3AWR2 ;I7DE2-WV3C?T3R& H7E*JB * B 2 ?D* B6/IF=",7L*JB * B . 7K3I2+*MBJ* B 2 * *=/KL*M* B * B 3IWH*(	I"=60*JB * B 2 I3E.(2
&=*MBJ* B 26& +HE/J6)21&-*MBJ* B 2 : /A7N3N:+*MBJ* B 2 . *=/L3L2+*MBJ* B 2 * *=/K3N;A*MBJ* B 2 R /O^ . 7I21:,A7N*JB * B . 7K/KF+*MBJ* B 2 & +HE/K6)I*M* B * B 3J*="+61*JB . ^ 2 I3E*(2)&=2MNJ2MNJ* B * B 6 N +ECT7CWO3NWT3R& 7TKE2 ?F3R& 7TKE3A	T+O7N3SWTP7S*JB
* B 6 SI/E7R"-61*JB . " 6 SI/E7R3IWT/RF+2MNJ2MNJ* B * B 6 R 7ESS2 ?F3R6 3A	X3M7U6 SI3EGR3T?I7NN-7TCES*M* B * B +IF3N6+6-SI+E	R* 29.9F,"0*M* B * B97IKE"=61*JB * B 2 ?G2 ?T. &62MNJ2MNJ* B * B 2 R 3EWT3R	M+NCE3TWH2 ?C3L7U7N^ 3IT2 T3E6 7OSS2 ?P7SSI3IWV2 3E3EW
+NCT+ICN7TCO*MBJ. F 20& /S7E"0*M* B * B 3I	P/VB=*MBJ* B 2 . *=/L3L2+*MBJ* B 6 N 3AWV*=:0D60"J7C*JCC* B * B 6 SS7ASR2 ?T3P2-7OCO*MBJ* B 2 R /OF 24& *=213N;A*MBJ* B 2 & /D7O3K&+*MBJ* B 2 " 7ECL2=?T3P&(")*M* B * B +IF3H3E7PN-3AWV.)F .2F,.2F,"1*M* B *1B17S[A3
"=7ECL*MBJ* B 2 & 7P[I"=7I*JB . J12 [I2(I3E&(+D	O.)F .4F,.3F,"4*M* B *1B33IWS"=7I*JB . R12 ?C3N	T3NWU2MNJ* B * B 2 V +NCD+OCF7TCO2-?LO7P"J7C*JCC* B * B 6 OI6 CO3T7I+ACL3TKA3LGE7UJ 3EOA3HSE*MBJ* B 2 & 3F&(7P[I.)Z .9Z,.9F,"5*MC*M+CB * B * B 7DSE3E7R3IWN2 T7
B 3I?V3TV-3L7E7ESN2 ?F7RR +HCE3C3O3U;M2 C3OWS7NV 7P[OE*M* B *1B53IGL/BF=*MBJ* B 2 & /N7D"0*M* B * B 3J&=S7E*JB * B 2 [I*(	J. F2.,F2.,R32MNJ2MNJ* B * B 6 R 3R;A3SWF3R. 2-T2 ?C3L7U3NZ 3R7O* CT+TCO7P[I*MBJ. F 26. 2=.(*-&1"*7L*JB * B 2 ?D. ^1. 7I212,*MBJ* B 2
* *=/LI*M* B * B 3K.="+61*JB . ^12 	P3V*(6)R=*(	K2MNJ2MNJ* B * B 2 & 3SF 7NSO7HKE2 ?C3L7U3N: 3ESE+ECD7FKO2 WS3AOR3HZ +OCR7P[I+O7T3EWL3M;ET*M* B *1B8+IF3IWS.)J .2J,.2F,"9*M* B *1B93IWS2=&-S7E"J7C*JCC* B * B 6 KT7AON7FKE2 ?C3L7U+NCS+ICN7P[I*MBJ* B 2 * *=/L"
*M* B * B 3I?D*=/LL*M* B * B +DCO*2B03I*=2,SIO*M* B * B 3K&="+7L*JB . B22 	P3V.(6)B=+IVI6)*JB . F2. 7J3I	PV*M* B * B +GCO+TCO"364"J7C*JCC* B * B 2 WS3AOR7HB 3I?V3TV-3L7E7ESN2 	P3V&(+N	D*MBJ. J 62N 3AWV*=:1/D"3*MBJ* B 2 & /D7O"0*M* B * B 3K2="+61*JB * B 2 
L*=/LL*M* B * B 3ISN"=60"J7C*JCC* B * B 6 SS7ASR2 	P7VSO2-?LO7P*JB * B 2 ?D. &2. 7I3K2,L*M* B * B 3J&="+7L*JB * B 2 WH/L7P7P[I*(	I*MBJ* B 2 & 3F"(7ECL.)J .9J,.9J,"3*M* B *2B33H3E+P6=3H3EP*M* B * B +IF3IWS.)J .6J,.4J,"6*M* B *2B4+IF3IWH*(	J.)J .7J,.5J,"7*M
 B *2B53I?D"=7I*JB * B 2 ?G2 ?T. &2*MBJ. J 26" 7ECL6=B-+IV+J>)3H3EP*M* B *2B7+IF3H3E7PN-3AWV.)J .8J,.9J,"9*M* B *2B87S[A3E"=7ECL*MBJ* B 2 & /N7DI*M* B *2B93C;O3T;IU7E*JCC* B * B 2 ;E3D> 7FB 3I?V3T2-7OCO2MNJ2MNJ* B * B 6 R 7ESS2 ?F7RN 7USI3A3B7EB 3I?V3TV-3
7E7ESN*MBJ* B 2 & 3F&(+N	D. B3.,B3.,J3*MBJ. N 20& 3F&(+D	O. "6.,"6.,F3*MBJ. N 21& /N7D3I?D2MNJ* B * B 6 B 3I?V3TV-3L7E7ESN6 OI6 SS3OWR3D& 7NB +IV3ISN")*MC*M+CB * B * B 3C7O7PSU7ER +HCE3ROE7IKP3OGC3L> 7FR +HCE7P[I+O7T3EWL3M;E7TJ 3E	P*MBJ. N 62J 3E	P*=:1+D>
7P[I2(;ID6)*JB * B 2 ;I3D&=+N7DL*MC*M+CB * B * B 3USP3AWT2 T7ER +O7P7R
O2 ?T3P> 7FR +HCE3TKA3LGEU*M* B * B 3IGL/BB=*MBJ* B 6 N 3AWV6=R-+OP3I	P+V*)7RCEI*M* B * B 7TCO6(CI+I	V2=GSV7E"J7C*JCC* B * B 2 ;I3I	T3A	L+ZCE3JF 3SN 3O;U7TKE2 ?F7RR +O7P3L?OP*M* B * B 3J:=A7N*JB . N32 [I*(7J3I	P+VB)*324*523"364*JB . R3. 7K"0*MC*M+CB * B *
B 3SGE3RC2 ?C3L7U3N& 7NR 3R;A3S?F3RGM3T?I3N6-7AKT+ICXT*M* B * B +DCO*3B6/IF=",7L*JB * B 2 [I2(I3E&(2)*-.)N .6N,.5N,"6*M* B *3B53K&=*MBJ* B 2 & 3F&(3LKA.)V .0V,.0F,"6*M* B *3B63C;O3T;IU7E"J7C*JCC* B * B 2 WG7NKE3AWT2 ?C3L7U7NV 3S;I7GN 7UKB7OSU3IWN2 OF3TF +
CD3TGR3N[S3O7R3A	T+O7N7MSA7RI*MBJ* B 2 & *=/L3L2+2+GN3N*+*MBJ* B 2 & 2=I3E&(2):-*MBJ* B 2 & 3F&(.)N .7N,.7N,"8*M* B *3B73I&="+7N*JB * B . 7K"1*M* B *3B83I&=2+GNN*MC*M+CB * B * B 3C3A7LN 7UKB7OSU3IWN2 OFT*M* B * B 3C3A3LZ +CT7P[I2,?T3P&(2)6,*-&12MNJ2MNJ* B
* B 6 B 7RCE3AWR2 T3EN 3A3L+ECD3VOE7TKO2 	PV*M* B * B 7DWS/MB=..CD*MBJ* B 2 & /D7OM*M* B * B +DCO*4B1/IF=",7M*JB * B 2 WH/L7P7P[I2(SIO6)*JB * B 2 [I*(	K. &3.,&3.,B4*MBJ. N 29" 7ECL2="-7ECL*MBJ. R 20R 3S7U6=OD+U/M3H3EP*M* B * B 7P[I2(SI/OF+2)"=7ECL*MBJ. R 
1& /D7O3I?D"-61*JB * B 2 	P3V2(*)6=7DWSM*M* B * B 7P[I*(&1*=:1D60"J7C*JCC* B * B 6 KT7AON7FKO7MZ 7ESC+OCR7P[I2 	W+TCH7R
O3S> 3F6 7AKT+ICXT*M* B * B 3I?D2=;ID*M* B * B +IF3IGL+BB)*424*424"462*JB . J4. 7K"1*M* B *4B33I?D"=7K*JB . R46 OD/U7M20R."0*M* B * B 3H3E/PB=..CD2MNJ2MNJ* B * B 6 N 7TKA3T6 7USL3I3P3IGC3T?I3N2-7OCO*MBJ* B 2 R /OR 26& *=21L*M* B * B 7DWS3MR=3S7U2+	P3V&(6)
*2(SIO6)*JB * B 2 ?T3LR=7AOB6(OD+U	M*MBJ* B 2 & 7FR(+O7L3H3E+PB)*426*426"465*JB . V42 WH/L7P3T3O*MBJ. R 26& /D7O3I?D"+7L*JCC* B * B 2 ;E3D> 3F6 7USL3I3P3IGC3T?I3N2-7OCO2MNJ*MBJ* B 6 R /O7L21R..-R12*WHL7P*JB * B 2 [I2(GD+BS7DWS+M6)3T3O.)R .7R,.7R,"8*M* B *
B77DWS/MB=..CD*MBJ. R 28& 3F&(3LKA.)V .1V,.1R,"9*M* B *4B93I.="+7L*JB * B 2 	P3V&(2)R=3S7U2MNJ2MNJ* B * B 6 R 7ESS2 ?F3R2 7ASS2 ?C3L7U7NR-3E7R*MBJ* B 2 . *=/K"1*M* B * B +IF3K2-.)R .3R,.3F,"8*M* B *5B0+I"=/KF-2)2*2+;ID*M* B * B 7DWS7MR=*(	I2MNJ2MNJ* B * B
2 N 7OCM3UWT2 WN7WR +O7P3EWL3M;ET*M* B *5B17DWS3MR=3S7U2*GSV7E*JB * B 2 ?T/LF=*.7D*1*43DKA3SR(3S7U")*M* B * B 7TCO*(	J2=?T3P*(2)R+3S7U*MBJ* B 2 & 3FR(7AOB2(?T3P*(*)6)3T3O.)V .2V,.2V,"3*M* B *5B27TCO*(	J*=:0D60"J7C*JCC* B * B 2 WT+SCT7FKO2 GL+SCT7TCO2-WTR7
*JB . N5. 7J/JF-*MBJ* B 2 & 3F*(.)V .4V,.4N,"3*M+CB * B * B 3ESN2 [O2 ?T3P2-7OCO2MNJ2MNJ* B * B 6 R 3R;A3S?F+RCM7P[I+O7T3C3O3U;M*MBJ. V 24& 2=;I3D2+*MBJ* B 6 B +IV/I6)*-:1D60*JB * B 2 ?D. V5. 7I212,*MBJ* B 2 * *=/IL*M* B *5B57P[I*(	I6=B-+IV+J*)7RCEI*MC*M+
B * B * B 3USP3AWT6 KT7AON7FKO7MSA3I;O2-GM3T	R7XR *MBJ* B 2 * "=60*JB * B 2 ?D. ^5. 7I212,*MBJ* B 2 & /D7O3J&+N7D*JB * B 2 GS/V7E3T&(+D	O*MBJ* B 6 R 2(SI/O6)20R."0*M* B * B +DCO*5B6/KF=",7L*JB * B 6 OI3E.="+7J*JB . Z5* T3IWS6)R=6(OI+E.)7S[A7EB*+IVK6)*JB .
^5. 7J3J2+2MNJ2MNJ* B * B 6 V 3PGD+TCE3ISN+E7X3VOE7TKO2 IE*M+CB * B * B 3I	N3TGI7L+I3EN 7HKA7ASC3E	R3S	TC7S*JB * B . 7J"0*M* B * B /KB=*MBJ* B 2 & /S7E"0*M* B * B 3I?D"=60"J7C*JCC* B * B 6 SS7ASR6 WQ7ESS3I;O2-?LO7P*JB * B 2 ?D. F6. 7I212,*MBJ* B 2 2 3L&="
7L*JB * B 2 3I/A7B3IWH2(3L")*M* B * B +IF3IWH*(	I6-CI+I	V. &5.,"5.,&5*MBJ. V 28& /S7EI*M* B * B 3J&=3LKA*MBJ. V 29& 3F&(3LKA2-;I+DB)*621*620"661*JB . B62 SI3O&=*MBJ* B 2 . 2=I3E&(")*M* B *6B13C;O3T;IU7E*JCC* B * B 2 ;E3D> 7FF 7UOE3T?I3N2-7OCO2MNJ2MNJ* B *
B 6 N 7TKA3T6 3O	D3FOI3A	TO7N*JB * B 2 [I*(	K. J6.,J6.,N6*MBJ. Z 22& +HE3I?D2)&=7P[I*MBJ* B 2 & 3F&(+S	E. ^6.,^6.,V6*MBJ. Z 23& 3F&(+N7D+JB)*624*626"664*JB . R62 3L*=/L3L2+2+GNN*M* B * B 3K.=2+3L*MBJ* B 2 & 6=CI+I/VL7L*JB * B 2 3I/A7B3IWH*(	K*MBJ* B 2 & +
E/K6)3IWH*(	I*MBJ* B 2 & +HE/I6)3IGLB*M* B * B +IF3IWS.)Z .7Z,.7Z,"5*M* B *6B53I?D2=SI3O2+*MBJ* B 2 & 6=OI3E2+*MBJ* B 2 & +HE3I?D2)*=*MBJ* B 2 & +HE/I6)3ISN*MBJ. Z 26& +HE3IWS.)B=*MBJ. Z 272 3L2="+7L*JB * B . 7J+L/L3ISN*MBJ* B 2 & 2=3L*+/L3I	PV*M* B * B 3
GL3B&=+HEI6)*JB * B 2 I3E&(2)&=+HEJ6)*JB * B 2 I3E*(2)&=3LKA2MNJ* B * B 2 V +NCD+OCF3MSO3I	F7CSA3I;O2MNJ*MBJ* B 2 ^ 7OR /O" 2MNJ2MNJ* B * B 6 N +ECT7EKR+OCR7PKA3AWM7TKE2 WI+R6=61N 3ION3E: 7ON 7USI3A3B7EB 3I?V3T& 3SZ 3O;UD*M* B *6B87IKE.=F-2MNJ2MNJ* B * B 
 V 3V3A7USA3EZ 3IGN7LR 3A3B7EWA2MNJ* B * B 2 N 7OCM3UWT2 GS+VCE+ACS7MA7IWM3MV 3R?R3R> 3FF 7PKP3O	X7MSA3I;O2 ;AD*M+CB * B * B 3H3E3PF 3SF 3D	D7T[I3EN 7OON3T;A+CCE7FKO2 WR3S3U3T;I3GN 3O[E3FOI3I;ET7S*JB . &62 GS/V7E20R."0*M* B * B 3H3E/PB=..CD*MBJ* B 2 . *=/
3L2+*MBJ* B 2 R /O^ 23& *=213N;A*MBJ* B 2 & /D7O3K&+*MBJ* B 2 * 2=I3E&(+D	O*MBJ* B 2 & 3F*(.)^ .1^,.0^,"3*M* B *7B07S[A+E6=7TCO*(	I*MBJ. ^ 21& 3F6(*+/J*1B)*723*722"763*JB . J72 WH/L7P7TCO*(	I*MBJ. ^ 23N 7OSN7IWNE*MC*M+CB * B * B 3PWR7PKA7ER 2,?T7PB,I7V*JB
* B * T.16)7S[AE*M* B * B 3I?D2=GN/NF+*MBJ* B 2 * 2=GN3N:+*MBJ* B 2 R /O^ 24& 2=SI3O*,*MBJ. ^ 64R +OP/I6)7S[AE*M* B * B +DCO*7B5/IF=",7M*JB . V72 	P3V&(2)"=7ECL2MNJ2MNJ* B * B 2 N 7OCM3UWT2 ?C3E[F3I	C7ESN3S> 7FJ 7EWS3L	T+NCG3P3O3Y?N3MGI3L& 7NB +IV*1B)+UCP
TCOP7I*JCC* B * B 2 ;A3DN 3AOL3UGL+TCE7EKR7OOR6 SA2 	G3V;E2 ?N7DOE2 ;I2 ?T/PF(6)V 7PR 7OR +OPN6)*JB * B 2 ?D. &7. 7I21:,A7N*JB * B 2 SI3O.="+7I*JB * B . 7J3IWH2(SIO6)*JB * B 2 [I*(	J. Z7.,&7.,^7*MBJ. ^ 26* 2=*-*MBJ* B 6 B +IV/J6)3H3E7PR-+OPI6)*JB * B 2 ?G
 ?T. &7*MBJ. ^ 27& 3F*(*-	N. "7.,"7.,&7*MBJ. ^ 28* *=/J3N;A*MBJ* B 6 R +OP/J6)7S[A7ER++OPI6)*JB . &72 ?C3N	T3NWU*MBJ* B 2 R /O" 20& *=21N*M* B * B 3I?D2=GN3N&+*MBJ. " 60R +OP/I6)7TCO2(SIO6)*JB . F82 WR7TKUN*M* B * B 3ESN&M*J"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"
"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"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