File HARM.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 GHR7M"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 WP3R?F7ROM2 	D7SKC3EWT2 ?C3M3P+ECX7FWO3RWI7RR 3R;A3S?F7ROM2 ;O* CA3C7O3P
LX*M+CB * B * B * B 7TKH+ECE3D7I7EON3I;O+ACL7AKRA7Y"J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 GH+RCM*(3A3M&,+N3V3S&,3FWS3T&,7FKER6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CA* B * B-+ACS7ICN+U3T* CA3C;O3T	A+NCS3TWH2 ?C3M
P+E3X* 633D7I7EON3I;OA7L*JCC* B * B * B * B * B * B 7AKR+ACY+TCO+BCE3TGR3N[S3O7R+E;D6 R +HCE3RGE7LB 7ASR2 [O2MNJ* B * B * B * B * B * B * A+I21+I22+I&36 OI6 SS3OWR3D& 7NZ 7ESC+OCR7FOA3H?I3N& 3NF 2 WCL7L*JCC* B * B * B * B * B * B 7WSI3H& 3NWD/XJ 2*&(23:*2
:**2. . KI.*GN* B++I&1* B+61^ 7HKEE*M+CB * B * B * B * B * B 2 : /I6 * *2**M+I2). 7I.1J,*,B33ASN. GI* B=.0F,*,:.2.:,.1F-6 SEC6.*JCC* B * B * B * B * B * B 3TWH2 7I3A	G7NKA7YB 7ASR6 OI2 ;I2 T3EN 3E3L2 7I3MSE7ISA7E	L2MNJ* B * B * B * B * B * B 2 ?F3L?L3W;I+
B.2 ?N+TCE3TGH7TR +HCE3SKU7SKC7ISP. GI2 ;I3CWR3AWSS*M+CB * B * B * B * B * B 2 6 7OSS2 GR3PSI+LCY3ASN. OI2 ;I3CWR3AWS3S2 7EOA7TJ 3A	P7D	L".*M+CB * B * B * B * B * B 2 F 3S> 7UCT+U3T* CA3C;O3T	A+NCS3TWH2 ?C3M3P+ECX7FWO3RWIR*M+CB * B * B * B * B * B 6 R 3R;
3S?F+R;M6 R +HCE3N7U7BKE2 [O2 ?C+RCE3LOO3A	T7OON2 [O2MNJ* B * B * B * B * B * B 6 KA7R	A* CA+ICS*2"*+N*1+N*2+N&32MNJ* B * B * B 2 6 * B * 6 * CA7TKH+ECE3C3E7LZ 7ESC+OCR3W	H+CCH7DSE3E7R3IWN7SR +HCE7S+IE7S*JCC* B * B * B * B * B * B +OCF3TWH* B33D7I7EON3I;O
S> 7FR +HCE7AKR+ACY+AB.6 R +HCE7S+IE6,*JCC* B * B * B * B * B * B +N3I2 [O2 T3E& 2 	D3M;E3S?I3N> 3FF 6 OI* *2**M+I2)* CI.=F *,22"3*M+CB * B * B * B 7I[N* B 2-F 2 WV3C?T7R^ 3O/R6 KA+ECA7FKO2 	B3TF +NCD3ISN+ECX3M;A7IWP7LSA3I;O2MNJ* B * B * B * B * B * B 2 [
2 	D3M;E3S?I3N> +NCE7FWO3RT2 [O2 T7EF 3U;A7TSIY*M+CB * B * B * B * B * B 2 6 +AX+N21+N22+N&32MNJ* B * B * B 6 N * B * 6 * CA3VOE7TKO2 ?W+RCK3AWR3AZ +OCR3S;I7ER 3A3B+ECS7WSI3HR 3IWM3N	SO7N*JCC* B * B * B * B * B * B 3TWH2 GS+MCE+ACS7I[N2MNJ* B * B * B 2 & 
FWS+T6 2 ;A6 CO3T?I7NB 3AGR7MSE+ECR7WSI7HR +HCE3F3O7L
O3I
N2 WS3T	T7NOG2MNJ* B * B * B * B * B * B * B * B0* B 7SSE6 CU2 	S+NCE3ASN2 ;I7VR 3A3B+ECS3O3NY*M+CB * B * B * B * B * B * B . F * B 2 WS7TV 7PN 3IWN2 ;A3D& +NCV3TKA7LOE2 ;O+LCY3ASN2MNJ* B * B * B * B * B * B * B * B * B 3C3A3C3U3AWT2 ?F3U	R+ECR3TGR3N[S3O7
2MNJ* B * B * B * B * B * B * B *-B1* B 7SSE6 CU2 	S+NCE3ASN2 ;I7VR 3A3B+ECS3O3N3YF N7D*JCC* B * B * B * B * B * B * B * B 2 N 3AOL3UGL+TCE7I[N7EOR3EZ 7OKU7IKE6 KT7AON7FKO+M" 7FKO2MNJ* B * B * B * B * B * B * B * B * B 3TWH2 WM3A	N+NCG+OCF7I[N7EOR7EN +ECE
TWH6 GE7USA3I;OS*M+CB * B * B * B * B * B * B * B * B 2 ;U7DKE2 WM3T?H3DJ 3E?LW6)*JCC* B * B * B * B * B * B * B *2B 2 N 3AOL3UGL+TCE7FWO3RWI7RR 3R;A3S?F+RCM3O3N+Y" 7AOS3UWM2MNJ* B * B * B * B * B * B * B * B * B 3S;I3EF +NCD7I[N2 GT3BWL3SV 7XOIT6)*JCC* B
* B * B * B * B * B * 6 *2B 2 N 3AOL3UGL+TCE7I[N7EOR3EZ 7OKU7IKE6 KT7AON7FKO3M> 7N	L2MNJ* B * B * B * B * B * B * B * B * B 6(OA3S7U7EN 3IWN2 ;A3D& +NCV3TKA7LOE6 E7ISS")*M+CB * B * B * B 3IWF+RCR2-V 3R?R3R& 3N	D7CSA+O;R* B 3WWH3N& 3FWS3T& /SB .,F+.,F-",*M
CB * B * B * B * B * B 2 & 7FKE/R6 * B13MGE+NCS3TWH2 GM3X7I+UCM3M&(2)& 3S^ 3RGE7TKE2 TA7N*JCC* B * B * B * B * B . J *02 . 7I.1J,*,B36 ^ 3H;E2 [I7SSE6 OI* 22*-B22,& 7FKE/R6 " 61*JCC* B * B * B * B * B * B 3MGE+NCS3TGH7TR +HCE3S;I3EF +NCD7I[N2 GT3BWL3SF +R
E7NSO2 GL3RWG2MNJ* B * B * B * B * B * B 2 ;E3O
U3H> 3R" 3AWV2 ?N3TJ 3E;E2 ?C7MWP3TSE" 6.*JCC* B * B * B * B * B * B +ICF+OCN7RSE3U;R2 [I7EKR* B=60R 3H;E2 ?N+NCE+OCF3TWH2 KA3OWV2MNJ* B * B * B * B * B * B 2 ?C3N	D3T?I+NCS3AWR6 KP3EWSN7T"J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 T+ICS3SKU7RWO3T;I3E& 7
R 3OJ 7EV 3SSE2 ?F3RN 7OCM7LE.,N 2-	D3M;E3S?I3N3A2MNJ* B * B * B 2 F 3RGR+YCS+ICN3W	H+CCH3EOA3HR 3IWM3N	S+OCN+ICS7AB 3OWW3R> /FJ *.B 3TWH2MNJ* B * B * B 2 6 3A	X3M7U* M+IB)7MOU3T: +OCT+BCE7LOE7SR 3H;A* B3+OCR3GWR3AWT7RR 3H;A. B2",*M+CB * B * B * B /I6 * 2
.2N,2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 7FKO2 [I7SSE* B=*+216 KO. J+6,R +HCE7FWO3RWI7RR 3R;A3S?F+RCM+OCF3C7O3PWLX*M+CB * B * B * B 7AKR+ACY3A& 3S>
3BGT3IWND6."J7C*JCC* B * B * B * B * B 2 : .1F-* B +N62*1B . ON*-B1* B * B * B * B * B +LB12 2 *2B . OL2MNJ* B 6 " .(GJ.,KJ.,OJ6)N=+UCM* B 3S7U* B 6 WS+MB 2 F .(GK.,KK.,OK6)^**1B .*KW* * W63*JCC* B * B * B * B * B 2 . .1B=* B /K62*0B . OK"=60"J7C*JCC* B *
B * B * B * B 6 ^ 7HKE7E^ 3I& 7SR +HCE3N&(6)J 7OSO2 [O2 ;U7I	T2 ;A3D2 21.=21**"16,*JCC* B * B * B * B * B * B * B 2 2 22.=22***2B,/L63+K*3J63"J7C"J7C*JCC* B * B * B 2 ?F3R& 3FWS/T6 . F-2,> +R6 *2B,3TWH2 ;I7VKE+SCE7FWO3RWI7RR 3R;A3S?F+RCM3A> F*M+CB * B * B
* B 3C7O3PWL3XF 3RGR7Y" 6 OI2 KO3T	A3NSE".*MC*M+CB * B 3A.(21.,22.,.36)2MNJ* B * B * B * B * B *1B * B . GN*-B12 : .2F-* B +N63*1B * B * B * B * B * 6 +LB12 2-*2B .-OL2MNJ* B * B * B * 6 *-6-*-6-*-* 3S7U* B 6 WS+MB 6 N +UCM* B 3X*(21*,22*,*3*)+WB16 ^**2B 
*OW2MNJ* B * B * B 2 : 21:*22:**3B . GJ*=B02 * .2B=* B /J63"0*MC*MC*M+CB * B * B * B 3SWE* ;J+WB.3C?O7L	E2 ;A3D* *.;W6 WT7K	E*,^ +ACN3A
L3O	R3T7H2 ?F7RR H7E*JCC* B * B * B 2 GM3C	H+NCE3C3A3C3U3A	T+OCN+OCF3C7O3PWL3XZ 7OKU7IKE2 WS3RWI+S2	2MNJ* B * B * B 2 6 3AT3EGM3TOI3S> 3FN 7OCM3UGT3T?I+N3S2 ?V+LB.*1B96(CA+RB..1Z9*52)* ;P. &2"76."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.
.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3E" 3A7R*(3A3M&,+N3V3S&,3FWS+TB,3IWF+R	R*MBJ* B 2 R 3IWM3N	S+OCN/AF(2)&,+NV*12)/SF(2):,*(&3*,M*32)+NP*32)/WJ(6)^,.2J(6)^,.3J(")*M* B * B 7EWQ3IGV3L;E+CCE*(N*12)+N&12,:(*(&2.,KN*)",/NN(2):,"
6)*JB . B12 [I2(& 7AOB2([I7SSE*)6 * &1. B9.0&,*020"162*JB . J16 SM3T6=/ACX*(M*12)/MJ(2)6,*(&3*)6 "2*M* B * B 3R?O+TB26=N 7QSR*(:2")*M* B * B +ICF6(SM3T6-+T& . R1.,R1.,N1*MBJ. F 23& 7FKE/RF=*MBJ* B 6 J 7EWTR7N*JB . R12 [I7EKR"=60*JB * B . GM*=M"16)*JB * B 
 KM*=M"26)*JB * B . OM*=M"36)*JB * B . GN*=*2.*GM*MBJ* B 2 : .2J=2*6*"2*M* B * B /N63*2**M63*JB . Z12 [I2([I7SSE.)F .8F,.8J,"0*M* B *1B8/N7X. GN.*KN.*ON*MBJ* B 2 Z /N6 6 N*MBJ* B 2 R /OF 29& * B=21:,X*M* B * B /AJ(**7I*1B)2=F *(*2/IF-2)Z/N*M* B *1B9/AJ(**
I* B=*-A22&*2)Z/N*M* B *2B0+NP.16)+N*1"2*M* B * B +NP.26)6 CN*(&1.*KN*MBJ* B 2 : /PN(2):=/PJ(2):*"3*M* B * B +DCO.2B52 SI*=21"3*M* B * B +ICL2=: /PN(2):-3P&(D6)*JB * B 2 3I.16 2 3I"+61*JB * B 2 	M* B=3M&(D6)*JB * B 2 [I2 6(/IJ)*520.2B5.,B3*MBJ. N 20& 3D[I
=CN2(SI")*M* B * B 3K	B3T:=3P&(D6)*JB * B 2 WM/V6 * *22(	M*/&2*MBJ* B 2 & +F" +MCI2-6 +ECV.)B6.,B6.,B42MNJ2MNJ* B 2 6 6 OI2 SO+DB.+DCO/LF=2 GCS7E*JB . B42 KK/I7T3K	B/TJ/*MBJ* B 2 . 3L.=7BSI"-62*JB * B 2 ?D. B5. 7I21&,+L213I	DF*M* B * B 3KGL/S7T+K/LI*M* B 
 B +DCO*5B03K&=2,3K7ASS",62*JB * B 2 SK*=/K3K	BT*MC*M+CB * B +DCO3OWN6 SS+ECP7WSI3H2 *=21/JB=2MNJ* B 2 F *(	K*=A+K.)3A.(D6)*JCC* B * A+K	D*=A+K6)3A.(D6)"J7C*JB * B . 7T3A.(D6)*JB * B * A+K	D*=A+K6)T*M* B * B 3A.(2)F=*(	K"+7T*JB * B . 7T3A.(/DF+")*M* B * B
3A.(/DF+2)F=*(/K*16)T*M* B *5B03A.(*+&1*=A/KF+6)R+*MBJ* B 2 & +F" +MCI.-F .)V2.0J,*520"562*JB . J52 [L7IOR/T6 "3*MC*M+CB * B 3D[E* B-3JGL+SCT.=J **"*/LJ-*)6 "1*M* B * B 3JGL/S7T"1*M* B * B +GCO+TCO"760"J7C*JCC* B * CM+ICS3EWVN*M* B *6B03L	F7RSS* B="2*M* B
* B 3JGL/S7T"0*M* B *7B0+DCO.2B4. 7L3L	F7RSS2,	M",62*JB * B 2 +J3D[I2=KKI7T*JB * B 2 KK/I7T3K	B/TR/*MBJ* B 2 . 3L.=7BSI"-62"J7C*JCC* B 2 ?D2 ?F3R* "=60*JB * B 2 ?D. B8. 7I21&,+L213I	DF*M* B * B 3KGL/S7T3I.+L*M* B * B +DCO*8B03K&=2,3K7ASS",62*JB * B . GK*=
K3K	BT*M* B * B /K62+K.13K	BT*M* B * B /K63+K.23K	BT*MC*M+CB * B +DCO3T?W6 SS7EOP2 	W+TCH/JB=2MNJ* B 2 F *(	K*=A+K.)3A.("26)*JCC* B * A+K&2*=A+K6)3A.("26)*JCC* B * A+K&1*=A+K&1*+A+K&32MNJ* B 2 F .(OK2)F=.(GK2)F-.(OK")*MC*M+CB * B 3A.(2)F=*(	K*+A+K&12MNJ* 
 2 F .(GK2)F=*(	K*-A+K&12MNJ* B 2 F .(KK2)F=.(KK2)F+.(OK2)&*2MNJ* B 2 F .(OK2)F=.(KK2)F-.(OK2)&*2MNJ*MBJ* B 6 R *=A+K&2*MBJ* B 2 F .(KK2)F=*(	K"-7T*JB * B * A/K6)3A.(6)R+*MBJ* B 6 R *=A+K.2"16)*JB * B * A+K.2.16)3A.(*+&1"-7T*JB * B * A/KF+2)F=*(/K*1.)T*MC
M* B * B 3TF=.(OK")*M* B * B 3A.(.36)3A.(*16)T*M* B * B 3A.(.16)3A.(*1.)T*M* B * B 3TF=.(OK*+&1*MBJ* B 2 F .(OK*+&1*=A+K.1*16)T*M* B * B 3A.(.1F+2)F=.(GK*+&1"+7T"J7C*JB * B . 7T3A.("16)*JB * B * A+K&1*=A+K6)T*M* B * B 3A.(2)F=*(	K"+7T*JB * B . 7T3A.(.1F+"
*M* B * B 3A.(.1F+2)F=*(/K*16)T*M* B * B 3A.(*+&1*=A/KF+6)R+2MNJ*MBJ* B 6 J 2=F-.(OK*+&1*MBJ* B 6 R * B=3A.("36)*JB * B * A+K&3*=A+K&2"-7R*JB * B * A+K&2*=A+K&2"+7R*JB * B * A+K.3.16)3A.(.2F+6)R-*MBJ. " 20F .(KK*+&1*=A+K.2*1.)T*M* B * B +ICF2(3J7ASS.)J *3
5.2V3.,J8*MBJ. " 22* 3J*=3J	D+FB . F+2MNJ2MNJ* B 2 R 3OZ +OCR/JF=*MBJ* B 2 & 7LOA+TB=+ICL2++J*MBJ* B 2 R /O" 25& * B=+J3J3IGL+S3T3I	DF*M* B * B 3KGL+SCT2=. 3L&+*MBJ* B 2 R /O" 25. *=3I3KGL+S3T"2*M* B * B +KB12=. 2+KKI7T*JB * B . KK* B=+K.13K	BT*M* B * B +
B32=. 22.+7BSI2MNJ2MNJ* B 2 2 7EST3I
N. 7W*(.1+I>)3R?O+T22/W63.(F-*+	I2/?R/OKT.,KW*=3I2MNJ* B 2 F *(	K*=A+K.)3A.(*2*)I*M+CB * B 3A.(.26)3A.(2)F-.(KK2)&*2MNJ* B 2 F .(GK2)F=.(GK6)^**+A+K&3.*OW2MNJ* B 2 F .(OK2)F=.(GK6)^**-A+K&3.*OW2MNJ2MNJ* B 2 F *(	K*=A+K.)3A.("16)*JCC* B * A+K&1*=A+K6)3A.("
6)*JCC* B * A+K&2*=A+K&2*+A+K&3"*7I*JCC* B * A+K&3*=A+K&2*-A+K&3"*7I"J7C*JB * B * CR2=F-.(KK*+&1*MBJ* B 6 R * B=3A.("26)*JB * B * A+K&2* B=3A.(6)J-*MBJ* B 2 F *(	K* B=3A.(6)J+*MBJ* B 2 F .(KK*+&1*=A/KF+6)R-*MBJ* B 2 F *(/K.16)3A.(*+&1"+7T"J7C*JB * B 6 
A3RF=.(GK2)F-.(GK*+&1*MBJ* B 2 F +WCI2=F .(GK*+&1*+A+K&1*MBJ* B 6 J 2=F-.(OK2)F-.(OK*+&1*MBJ* B 6 R *=A+K&3*-A+K.3"16)*JB * B * A+K&32=F(+W7R+R>)3R?OT62*JB * B * A+K.3.16)6(
A7IR-6)J/7OSO"2*M* B * B 3A.(.16)6(
A7RJ+6)J/7OSO"2*M* B * B 3A.(.1F+*)"=3A	W*+	T2/?R/OKT*MBJ* B 6 R 2=F .(GK")*M* B * B 3A.(.16)3A.(6)R-*MBJ* B 2 F *(	K*=A+K.)T*M* B * B 3TF=.(GK*+&1*MBJ* B 2 F .(GK*+&1*=A/KF+6)R-*MBJ* B 2 F *(/K.16)3A.(*+&1"+7T*JB * B . 7R*-A+K.3"16)*JB * B . 7T3A.("36)*J
 * B * A+K&3*=A+K&2"-7R*JB * B * A+K&2*=A+K&2"+7R*JB * B * A+K.3.16)3A.(.2F+6)R-*MBJ. " 25F .(KK*+&1*=A+K.2*1.)T*M* B * B +IF3JGL+S7T*1B).2V3.,N2.5&,"0*M* B *9B0/J7J2 +J* B+3JSJI7F"J7C*JCC* B 2 ?N3WR 7OR +HCE3R7E3A;I3I
N* 
JS*M* B * B +DCO.2B3. 7J22*,7LOAT*MC*M+CB * B 7FSE+CCH7WN	2MNJ* B 2 R +E7F. 7W+W**7I[N*(	J6,^ 62^=.*J*6,^ 63^=.*N**MBJ. & 26& 2=;I3V*(*+&1*MBJ. & 28& 3C:=3T&-*MBJ* B 6 ^ *(&1*=S+I	C*MBJ* B 6 ^ *(&2*=SI6)*JB * B . KI*=*2I*M* B * B 3IN26=SN.-KI*MBJ* B 2 & 3
&(*2	C.1B2.,F1.0F,"060"J7C*JCC* B * *23I& 3S& 3NZ 7IOR7TF 3USA3R;AT*M. F *0B0+W"2.16)3S&(*2	C*MBJ* B 6 ^ .2J(6)N=.(KI")*M* B * B +GCO+TCO.1B3*MBJ. F160^ .2F(.)B=".*M* B * B +W"2.26)"16.*JB * B 2 ?G2 ?T. N1"0*MC*M+CB * B 22&*6 OI2 ;I2 WS3C;O7DF 3USA3R;AT*M
 F *2B03IN2/C6 . KI3C:+T*M* B * B 3IN22=&-"27C*JB * B . KW*(&16=N-.(KIC6)*JB * B . KW*(&2*=S3IN2C6)*JB .1B3. OI*=/II62*JB * B . OI3C:=3T&-"3*M* B * B +IF3IN3.)Z1.0F,*520.1B42MNJ2MNJ* B 2 & 23& 3NZ 7IOR7TF 3USA3R;AT*M. F *4B0+W"3.16)3S&(*3	C*MBJ* B 6 ^ .3J
6)N=.(OI")*M* B * B +GCO+TCO.2B0*MBJ. V160^ .3F(.)B=".*M* B * B +W"3.26)"16.*JB * B 2 ?G2 ?T. B2"0*MC*M. F *6B03IN33C&=*3/CN7T*JB * B 2 [I.(OI+C	C.1B9.,"1.0F,"760"J7C*JCC* B . OI2 ;I2 WS3C;O7DF 3USA3R;AT*M. F *7B03IN32=&-"37C*JB * B . OW*(&16=N-.(OIC6)*JB
* B . OW*(&2*=S3IN3C6)*JB * B 2 ?G2 ?T. B2"0*M. F *8B0+W"3.16)*-:1*MBJ* B 6 ^ .3J(.)B=".*M* B * B +GCO+TCO.2B02MNJ2MNJ* B . N **CI+ICN3T	H+RCD3QGU3DGRN7T*JB .1B9. OI3COC6=SN.+OIC7C*JB * B . OI+CCC*=6 3IN3C*M* B * B +W"3.16)*-S3IN3+C	C*MBJ* B 6 ^ .3J(*)6=3
&(23OC")*M. J *0B03IGL/S7T+I/LJ7J*JB * B 2 ?D. J220& 2=+J2,3I7ASS2,SII7F*JB * B 2 3K7ASS2=3K"+7I*JB * B 2 ?D. J220. *=3I3KGL+S3T"2*M* B * B /K613K.+7BSI*MBJ* B 2 . 22.=21.+7BSI*MBJ* B 2 . 23.=22.+7BSI2MNJ2MNJ* B 2 R 7OR +WCO3SWT+PCS7WSI3H* 2 ?N/TB 2MNJ* B
2 F *(	K*=A+K.)3A.(*2*)W62*JCC* B * A+K&2*=A+K6)3A.(*2*)W62*JCC* B * A+K&1*=A+K&1**/W3A.(*3*)W63*JCC* B * A+K&3*=A+K&1**7W3A.(*3*)W63"J7C*JCC* B * A/K6)3A.(2)F+.(GK")*M+CB * B 3A.(.16)3A.(2)F-.(GK")*M+CB * B 3A.(.26)3A.(*2.)3A.(*3*)I*M+CB * B 3A.(.36)3A.(
26)3A.(*3*)I*MC*M* B * B 3RF=.(KK6)^*.2F(2)F-.(KK*+&1.*KW*(&2*MBJ* B 6 R *=A+K&2.*KW*(&2*+A+K.2*1*)+W"2"16)*JB * B * A+K&2*=A+K6)R*M* B * B 3A.(2)F=*(	K"+7R*JB * B * A+K.2.16)3A.(*+&1"-7T*JB * B * A/KF+2)F=*(/K*1.)T*MC*M* B * B 3RF=.(OK6)^*.3F(2)F-.(OK*+&
.*OW*(&2*MBJ* B 6 R *=A+K&3.*OW*(&2*+A+K.3*1*)+W"3"16)*JB * B 6 
A3RF=.(GK6)^**(&1*-A+K.1*1*)/WJ(")*M* B * B 3A	W*=A+K&1**W*2.)3A.(.1F+6)^**(&1*MBJ* B 2 F .(OK2)F=+W7RR*M* B * B 3A.(.3F+2)F=+W7IT*M* B * B 3A.(.16)7AKW"+7R*JB * B * A+K.1.16)3A	W"+7T*JB * B . 7T3A.("16)*JB * B * A+K&1*=A+K6)T*M* B * B 3A.(2)F=*(	K"+7T*JB
* B . 7T3A.(.1F+")*M* B * B 3A.(.1F+2)F=*(/K*16)T*M* B * B 3A.(*+&1*=A/KF+6)R+*MBJ* B 6 J 2=F-.(OK*+&1*MBJ* B 6 R *=A+K&3*MBJ* B 2 F .(OK2)F=.(KK6)J-*MBJ* B 2 F .(KK2)F=.(KK6)J+*MBJ* B 2 F .(OK*+&1*=A+K.2*16)T*M. J *2B03A.(.2F+2)F=.(KK*+&1"+7T*JCC* B 2 ;E
D> 3F& 2 ;A3D. 2 ?L7OOP2MNJ*MBJ. N220* 3J*=3J	D3F*+J*M+CB * B 3ESN2 [O* 7J3L?OP*MC*M. J *3B53JGL/S7T24**7LOA/TN+*MBJ. R220N 7OSN7IWNE*M+CB * B 3ESN2 [O2 2 2 2 7OCO2MNJ*MBJ. V220N 7OSN7IWNE*M+CB * B 3ESN2 [O2 & +DB 3L?OP*MC*M+CB * B +WCE7N
O2 GH+VCE3TWH2 ?C3M3P+ECX7FWO3RWI7RN 7UOM6 WB7TR 3H	E3RF 7DKD7EOS+ECS3AWR2MNJ* B 2 J +I7T7R[E7EOR+E;D6 R +HCE3F3O7L
O3I
N2 ?R3U	T+NCE7PSU7SR 3H7E2 ;I6 KO7DKE*MBJ* B 2 : 7TGS6=SN6*SN*MBJ* B 2 6 63SM.=OM6-SM*MBJ. V320& 3F6(63SM.)N *720.3B6.,Z3"0*MC*M+CB * B +MB3+G;R6 KO6 GE2.6 T*M. N *6B03I?G.3F=*MBJ* B 2 : 23;V3T:=23:/T*M* B * B 3M;I/N63N7T*JB * B 2 ?G2 ?T. "3"0*MC*M+CB * B
+MB37LOE7SR 3H;A6 SM*MBJ. ^320& /GOO"=62*JB * B . ON7VSN"=61*JB * B 6 SN/VON6=SN./ON*MBJ* B 2 6 3I;N23:="3*M. N *8B03JSJ.36 6 SN+S?QN63*JB * B . KM/M7T+M62M7T*JB .4B52 [I2 6(62SM.)^4.0R,*620.4B62MNJ2MNJ* B 2 6 22^ +RB.+OCR+E;Q6 SM*MBJ. Z420& /GKO"=61*JB *
B . KN7VSN.=KN6/SN*MBJ* B 2 6 3I;N22:=T*M* B * B +GCO+TCO.4B82MNJ2MNJ* B 2 6 222 7EOS2 T+ACNM7T*JB .4B72 
I+OB2.=J *MBJ* B 2 : 22;V/TF=*MBJ* B 2 : 3T;V22:=3T:/"2*M* B * B 3M;I/N62N62*JB .4B82 +J/D627NOT3Q:/"2*M* B * B 3M613T6=216-T*M. V *5B0+IF3M61/TV)*720.5B6.,Z5"0*MC*M+CB * B +MB1+G;R6 KO6 GE2.6 T*M. V *6B03I?G.1F=*MBJ* B 2 : 21;V3T:=21:/T*M* B * B 3M;I/N61
7T*JB * B 2 ?G2 ?T. "5"0*MC*M+CB * B +MB17LOE7SR 3H;A6 SM*MBJ. ^520& /GGO"=62*JB * B . GN7VSN"=61*JB * B 6 SN/VGN6=SN./GN*MBJ* B 2 6 3I;N21:="1*M. V *8B03JSJ21:=7TGS./GN*MBJ. B620* /J63"1*M* B * B /JF=*MBJ* B 2 R /O" *8B07JCP.3F=.,ON7VSN*MBJ* B 2 & /POP2=
I3V*(+J&3*MBJ* B 2 R /O" *7B0/JOP*=213M;IN63*JB * B 2 ?G2 ?T. Z(*120.6B22)&,/GOO*MBJ. F620& /P637I[N6(CJ*3*)7NZ3N7T*JB * B 2 ?G2 ?T. N6"0*M. Z *2B0/IOP2=;I3V*(+P&36/SN/VON*MBJ. N620& *3"=7ICP23&++P&3.*KN*MBJ. B720* /J62"1*M* B * B +DCO.8B76 CJ/P6221:,22;V
*M* B * B 7ICP22&=+NV/JKJ2)&+"3*M* B * B +DCO.8B66 CJ.2F=2,	M/NKN*MBJ* B 2 ^ 7OR +O" .7B1.,J7*02)3I?G"2*M. ^ *1B0/IKP2=;I3V*(+P&2.*KN7VSN*MBJ* B 2 ^ 7OR /O^ "360*JB .7B26 CI22&=+NV/JKP2):/3T;V"2*M. ^ *3B0/I626(CI+P.2/IKP2):*"1*M. " *0B0/JGJ"=61*JB * B 2 ?
. Z820* /PGP*=217NZ1N7T*JB * B 6 CI/P617I[N2(+J*1.)I62*JB * B 2 ?D. V820* /P61216,3I;N"1*M* B * B +GCO+TCO.(F8.0",*2&02,
IO61*JB .8B16 CI21&=+NV/JGP2):*21;VT*M* B * B +GCO+TCO.8B3*MBJ. J820& /P617I[N6(CJ*1>)7N[TN61*JB .8B3. 7I*2"*7ICP21&++P&1"+61*JB * B 2 [I2 *(*-	I. R8.0",*520.8B5*MBJ. R860R *=AI6)*JB * B * A/I6)3A*(")*M* B * B 3A*(6)R=*MBJ* B 6 R *=A/IF+")*M* B * B 3A&(*+
1*=A/JF+")*M* B * B 3A*(*+&1"=7T*JB .8B5. 7J/JJ+*MBJ. Z820* /J61/JGJ2++JD61*JCC* B 2 ;E3D> 3F* /PGP2 ;A3D* P62"J7C*JB .8B72 +J22*=+J.23JSJ"2*M+CB * B 3ESN2 [O6 CJ+PB23ASN6 CJ232 7OCOS*MC*M. " *8B0/JOJ* B=/JOJ2++JD63*JCC* B 2 ;E3D> 3F* /POP2 ?LO7P"J7C*JB .
B92 [I2([I7SSE.)&8.1",*925.8V9*MBJ. &821R /O" *9B2/I6 * 21N7X*JB .8J9* A22&*.)6 2 F-*(*2I6)*JB .8V92 WR7TKUN*MC*M+CB * B 3TWH2 ?F3L?L3W;I7GB 3R
O3R7A2 ?C7MWP7TOE2 T7EN +ICN3ASN2 ;I7VR 3A3B+E;S2MNJ*MBJ. B9206 3T6=/ACX*(M*12)/MJ(2)6,*(&3*)6 "2*M* B * B +MCT2=6 /ACX*(22+M	T*MBJ. B924& +F" +M7T*1&8. B9.6&,*026"163*JB .9Z02 [I7EKR"=60*JB * B 6 SN*=*26*SM*MBJ* B 2 : /TKV6=SN"/62"J7C*JCC* B 2 WS7TV 7PN 
ICN3TKAL7E*JCC* B 2 T3EGT2=	P/EJ/**"*/LF+2)Z +OCR/LF=*MBJ. F960R 7HSE+A:=.7V8.3"9.1N6"4*MC*M+CB * B 7JSS/E7P*2**6(SM*-/L*1B)7FKO. 7L"1*M* B * B 7JSS/E7PN7T"J7C*JCC* B 2 SJ/I7F*2**6(SM*-	L2 ?F3R2 "=61*JB * B 2 SJ/I7F7N[T"2*M* B * B 3S*(3D[I6)N=+IN3TWH+T	A*
BJ* B 2 R /O& *5B0/LJ=6,SM*MBJ* B 6 R 7HSE7AR=7HSE/AJ/".*M* B * B 7JSS/EKP6=OJ7TCE*MBJ* B 2 * 3SWT3P*=3D[I*MBJ* B 2 * 3D[I6=OJ7TCE"/62*JB * B * S3J	D/F6)3S;I2(T3EGT")*M* B * B /JGC6=SN2-SJI7F*JB * B * S/JGC2)N=+OS3TWH+T	A*MBJ* B 2 * 7LOA3T:=3T*-3SWTP62*JB
* B 2 [I2(3J7ASS* B-7JSS+E	P. V9.0&,*220.9B2*MBJ. J920R /O& *4B03J*=3SWT3P*,7LOA3T*,3SWTP*M* B * B /J7C+N7TJ*M* B * B /J7D3J*+3D[I*MBJ. R960N 2(SJ6)N=*(	J**S/JGC6)N+2(SJ+I	F**S+J	C*MBJ. V920N 7OSN7IWNE*MC*M+CB * B 7SSE6 CU2 ;I3V*(6)R 3A3BE*MC*M. & *6B03M3
7ECX6=SNV62"J7C*JCC* B 6 SM7LE/PJ=**"*+M7T+L:)2 ?F3R2 "=61*JB * B 2 7L61E/PF=2MNJ2MNJ* B 2 2 3MV1/X7P*2***(7L*1:)2 ?F3R2 "=61*JB * B 2 ;I/VF(.)B=*MBJ* B 2 R /O& *8B0/LF=6,SM*MBJ* B 2 & +NV/LGM7ECX*+&1* B=3M3T7ECX*MBJ* B 2 R /O& *7B0/JJ=2,7L61EP*M* B * B /
7J3J2+3MV1X7P*JB .9B72 ;I3V*(/J6)7I[N*(	J6+SM7LEP*M* B * B 3M3T7ECX6=SM7LE/PJ/*MBJ. "9202 3MV1/X7P/LGM7ECX"*62*JB .9J82 [I2([I7SSE.)J1.,&8.5F,"2*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

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