File HPCG.FT (FORTRAN source file)

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

C*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN6 CHC7G"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?T2 ?S3LWV* CA7SOY3T7E2 [O2 	F7RSS6 KO7DKE6 KO3D;I7A	R2 WG7NKEA7L*JCC
 B * B * B 2 	D3FWF3R;E3TGI3LV 3QGU3T?I+NCS7WSI3H^ 3IWV3N& 7NSI3I3A2 GV3LWUS6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 CH+CCG6(KP+M3T3YR,7E	R2,SN+I3M3I3H3FZ,+C3T7OSU3PF,+U	X2MNJ* B * B * B 6 B 3AGR7MSE7EOR2 OF3TF +NCD7OSU7PJ 7EWQ3IWR2 ;A6 E7TKE3N
A6 SS3AWT3M;ET6."J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B 6 KP+MCT* 6 2 ;A2 ;I7PSU2 ;A3D> 7UCT+UCT3VOE7TKO2 	W+TCH3D7I7EON3I;O6 KG7ESAE7R*JCC* B * B * B * B * B * B 6 KO6 GE3U3A2 ?T* 252 W3IC6 CS3E	C3FWI7SR +HCE7PKA3AWM7TKE3S> F*M
CB * B * B * B * B * B * B 3TWH2 ;I7TKE3V3A2 ;A3D> 3FF 7CWC3ROA3YF +NCD3W	H+CCH7SKE7VOE2 ?FR*M+CB * B * B * B * B * B * B 3C7O3M;U3IGC3T?I3NJ 7E
T3E;E6 WO7TWP7TN 7UKB7OSU3IWN2 Z(3U;R3ISE7D*JCC* B * B * B * B * B * B 6 	B2 T7EV 7SKE2)F +NCD3SKU7RWO3T;I3E" 3P
C2.V 3XWC+PCT3P7R/TV(")*M+CB * B * B * B * B * B * B 3TWH2 ?C3M?P3N;E+TCS3AWR2 ?N3TR 7ESS7R	O+ECD+BCY3SKU7RWO3T;IE*M+CB * B * B * B * B * B * B 3HOP3GF +NCD3TWH3YF R7E*JCC* B * B * B 6 KP+MT*16)2 ?L7WKE2 ?B3USN2 [O2 T3E& 3NWT3RGV+L" 7ICN+U	T",*M+CB * B * 
 * B 3P7R/TJ(*)B-7UCP+ECR7BWO+NCD+OCF3TWH2 ;I7TKE3V3A2 &(7NWP+T2)2MNJ* B * B * B 6 B 7RSM*(&32-& 7NSI3I3A2 ;I3CWR3M;E3T> 7FR +HCE3ISN3EWP3NWD+NCT7VKA3IKAL7E*JCC* B * B * B * B * B * B 2 &(7NWP+T2)2MNJ* B * B * B 6 B 7RSM*(&46-V 3PWP3RV 3R?R3RJ 3O;U+D" 7IC
+U	T2.& 3FF 3B?S7LSU3EV 3R?R3R& S*M+CB * B * B * B * B * B * B 3GWR3AWT7RR 3H;A6 KP+MT*42)2 ;I3CWR3M;E3T^ 7EOT2 GH3LWVD6.*JCC* B * B * B * B * B * B 2 [I2 ;I3CWR3M;E3T& 3S2 7EOS2 T+ACN3P7R/TN(2)F +NCD7AOB7OWLT7E*JCC* B * B * B * B * B * B 6 KE7RKO2 WL+SCS
TGH7NB 7RSM*(&4./B52,& 7NKC3EWM+NCT7GSE3SR 3OKU3LSE".*M+CB * B * B * B * B * B * B 3TWH6 OU+ECR7M	A2 C3A
N7EB 7RSM*(&46 	B2 WM7AON2 [O2 	HS*M+CB * B * B * B * B * B * B 7OSU7PSU6 WS3B?R3U	T+N;E2MNJ* B * B * B 6 B 7RSM*(&52-: 3O& 7NWP7TB 3AGR7MSE+E;R6 WS3B?R3U	T+NCE3HOP3G& 7NSI3I3A3IWZS*M+CB * B * B * B * B * B * B 3P7R/TV(.)B=2.& 7FR +HCE3UWS7R^ 7ASN7SR 7OR 
E7R3IGNT7E*JCC* B * B * B * B * B * B 6 WS3B?R3U	T+NCE3HOP3GF 3TF +NCY7OSU7PSU2 ?P7ISN2," 3E" +ACST7O*JCC* B * B * B * B * B * B 2 C3A
N7EB 7RSM*(&52 ?T2 ?N7N*-3E?R6 	B2 WM7AON2 [O6 WS3B?R3U	TN7E*JCC* B * B * B * B * B * B 6 WO+T;P6 WF3RT+ECR3C7O3P;O7ESN3S> 7FZ 7ESC+OCR3P7R3TF R7E*JCC* B * B * B * B * B * B 2 WF3A	S3BWL2 [I6 SI3SR 3IWM3N	S+OCN+ICS3D[E3IWN3D^ 3RGE7TKE2MNJ* B * B * B * B *
B * B 6 R 3H;A* :52 ?H7W[E+ECR3SKU7RWO3T;I3E" 3P
C2 ?D+ECS7NSO2 WR3Q	UR7E*JCC* B * B * B * B * B * B 2 ;A3DN 3H;A+GCE3TWH+MB.7N[E7ESR3H3E7EOS2 T+ECY7M	A2 WB6 OU7EWFL*M+CB * B * B * B * B * B * B 7FKO2 GH3N	D+NCG7ROE7USL2 GV3LWU7SR 7OR +HCE3M	A7NB 3R
O3R7A2MNJ* B * B * B * B * B * B * " 3C3A3L;I3G" 3P
C6)^ 3HOI3HF +RCE7OSB3A;I+ECD+BCY3SWP3CGIL*M+CB * B * B * B * B * B * B 3M;A7IWP7LSA3I;O7S^ 3IT6 WO7TWP3TR 3AGT2 ;I6 WS3B?R3U	T+NCE7OSUP6.*JCC* B * B * B * CY* B * 6 2 ;I7PSU2 WV3C?T3R> 3F& 7NSI3I3A2 GV3LWU+SB.2 R(7ESS7R	O+E	D2MNJ* B * B * B * B * B * B 2
2 3AWT3R;O* CY+ICS3TWH2 WR3S3U3T;I7GZ 7ESC+OCR+OCF7DCE3ESN7ESN2MNJ* B * B * B * B * B * B 6 Z 3A	R3A3B+ECS3C7O7PSU+ECD+ACT7ISN3E7R3E	D3AWT2 ?P7ISN7S" ".*M+CB * B * B * B 7DKE+YB * B-7ICN+UCT3VOE7TKO2 [O6 KE7RKO2 WW3IG+T;S* " 7DOE3T?R3YSE")*M+CB * B * B * 
 * B * B * B 3TWH6 WS3M> 3F& +TCS3C7O3P;O7ESN3S6 7USS2 WB6 GE3U3A2 ?T* :12MNJ* B * B * B * B * B * B 2 2 3AWT3R;O2 WD+RCY+ICS3TWH2 WV3C?T3R> 3FR 3E	R7VSA3IWV+SB,3W	HC7H*JCC* B * B * B * B * B * B 2 WB3L;O7GR 3OZ 3UON3T?I7NZ 7AWL+ECS3YF 3TF 2 ?P7ISN* ;X2MN
* B * B * B 2 : 3D7I* B 2-F 3N& 7NWP7TZ 7AWL+EB,3W	H+CCH3SWP3C[I7IOE2 T3E: 3UKM+ECRO7F*JCC* B * B * B * B * B * B 6 GE7USA3I;O3S& 7NR +HCE7SOY3T7E".*M+CB * B * B * B 3I3H+FB * B-+ACN7OSU7PSU2 GV3LWU6,^ 3HOI7HN 3POE3I	F+ECS3TWH6 WN3MWB3R> F*M+CB * B * B * 
 * B * B * B 7BOI7ESC3I;O3S> 7FR +HCE3I	N3TGI3L& 7NKC3EWM+N;T2 [I2 I+LCF7GSES*M+CB * B * B * B * B * B * B 3GWR3AWT7RR 3H;A. B16,N 7UKB7OSU3IWN6 CH+CCG7RSE3U;R7S^ 3IT2MNJ* B * B * B * B * B * B 2 V 3R?R3R6 7EOS3AWG2 I/L7F*1B17ISN3O6 3A;I6 KP7OKG+A;M2MNJ* 
 * B * B * B * B * B 2 V 3R?R3R6 7EOS3AWG2 I/L7F*1B2+OCR3I3H/FF=23F 3PWP7AOR2 ;I2 GCS7E*JCC* B * B * B * B * B * B 6 KP+MT.36)20> 3R& 3NN 3AWS2 	S+GN3P7R/TN(*):)+N;E3S
I7NB(7RSM*(&2"-*M+CB * B * B * B * B * B * B 3P7R/TF(*)B)7ROE3POE7T[I7E	L".*M+CB * B * B * B 7FSC* B * B-3TWH2 GN+MCE+OCF+ACN7ESX3E;R+ACL3SKU7RWO3T;I7EV 3SSE2.& T*M+CB * B * B * B * B * B * B 3C7O7PSU+ECS3TWH2 	R7GSH2 GH+NCD3SSI+ECS7DKE3Y> 7FR +HCE7SOY3T7
2MNJ* B * B * B * B * B * B 6 R 3O^ 3IWV7NZ 7AWL+ECS+OCF3XF +NCD+YB.7IOT2 GP3R7A3EWT3R2 7ISS2MNJ* B * B * B * B * B * B 2 6 7USS2 WB* 3X3YR,7E	R6.R +HCE3SKU7RWO3T;I7EN 7HWO+LCD7NSO2MNJ* B * B * B * B * B * B 2 R 7ESS7R	O* CX3ASN* ;Y2MNJ* B * B * B 2 > 7UC
* B 6-R +HCE3N7A3E> 3FF 3NV 3XWT3RGN3L> 7UCT+UCT3SKU7RWO3T;I7EV 3SSE".*M+CB * B * B * B * B * B * B 7IOT2 GP3R7A3EWT3R2 7ISS6 WM+SCT+BCE7X&,2,WD+R3Y3I3H3F:,3D7I6,KP+M;T2MNJ* B * B * B * B * B * B 2 : 3OWN2 [O2 T3EWS2 GP3R7A3EWT+RCS6(E7CCE+TB,+ICF3NOE7EOS7
	R",*M+CB * B * B * B * B * B * B 3P7R/TR(6)B,7RSM*(&5*,:.*.B)3S?H3USL2 WB2 C3A
N+ECDB7Y*JCC* B * B * B * B * B * B 6 WS3B?R3U	T+NCE7OSU+PB.+ICF3P7R/TV(2)& 3SN 3H;A3GSE2 ?T2 ?N7N*-3E?R",*M+CB * B * B * B * B * B * B 3SKU7RWO3T;I3E" 3P
C6 OI2 WT3R	M7NSA+E;D2MNJ* B * B * B 2 F +UCX* B 2-F 3NF 3U	X3LGI+RCY3S?T3R
A3EF 3RGR7Y^ 3IT. Z12 ?R+WCS3ASN2 SNI7M*JCC* B * B * B * B * B * B 2 ?C3L7U+N;S2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 6 R +HCE3P?R3CSE3UWR2 WT3R	M7NSA+ECS3ASN2 WR7TKU+NCS+TCO3C3A3L;I7GB 3R
O3R7A2,& F*M+CB * B * B * B *(&12 ?M+RCE3TGH/NF 20J 3IWS3C	T7OON2 [O2 T3E& 7NSI3I3A2 ;I3CWR3M;E3TF R7E*JCC* B * B * B * B 2 : 3EWC3SGS+RCY+TCO7GSE2 GS7TOI3FOA7TKO3YF 7CWC3ROA+Y" 7EKR+OCR7MOE3S
AE*M+CB * B * B * B * B 2 I/L7F*1&1",*M+CB * B * B * B *(&22 ;I3I	T+ACL3ION3R7E7ESN6 OI6 GE3U3A2 ?T* B0+OCR7HOA6 KW3O
N2 	SG7N*JCC* B * B * B * B * " 7EKR+OCR7MOE3S
A+ECS3I3H/FF=22> 3R& 3H[L.=N1")6,*JCC* B * B * B . N(6)R +HCE3W?H+LCE7ISN7EKG3A	T+OCN7ISN7E[R+ACL+ICS7WKO3KSE2 T7RWO+G3H2MNJ* B * B * B * " *4B)3SKU7RWO3T;I3E> 7UCT2 GH3SN 3H;A3GSE6 KP+MT*5B)+TCO3N;O2-WZ+R;O2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T
OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 T3EV 3XWT3RGN7LN 7UKB7OSU3IWN3SZ +CT7X&,2,WD+R	Y2 ;AD*M+CB * B * B * B 7OSU7P"(*,3Y7DKE3Y&,3H[L2,SN+I3M3P7R+TB)7MOU3TJ 3EZ 3U;R3IS+ECD+BCY3TWH6 OU+E;R2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 6 [E7AWL3A	T+OC
+ICS3D;O3EJ 3Y6 3E;A3S> 3F" 3A7M3I
N3S6 3O	D3FWI7DB 3RSE7ISC+O7R2MNJ* B * B * B 2 N 7OKR7ESC+OCR7MSE3HSO2.& 3T& 3SF 2 ?F7USR3H> 3RWD3R6 3ET+O3D6 OU3I
N" 64*JCC* B * B * B 6 KP3EWC3E	D+NCG3P	O7NOT2 ?F3RN 7OCM3UGT3T?I3N> 3FF 2 WN7WZ 7ESC+OCR3Y> 7FR H7E*JCC* B * B * B 2 WD3P;E3D;E7TZ 3A	R3A3B+E;S2MNJ* B * B * B 2 Z 7OKU+TCH3OSR+ECR3R;U+G7E7KSU+TCA7MSE3HSO6 WS3GWG3SWT3DJ 7YJ 7AOL3T;O6 OI2MNJ* B * B * B 6 V
3SSE2 ?F3RF 7DWJ3S7T7ESN2 [O2 T3E& 7NSI3I3A2 ;I3CWR3M;E3TF +NCD7FKO2MNJ* B * B * B 2 N 7OCM3UGT3T?I3N> 7FN 7TKA3T;I7GZ 7AWL+E;S2MNJ* B * B * B 6 N 7UKB7OSU3IWN6 CH+CCG7ASU3OGM3TOI3A3L3YF 7DWJ7SOT2 T3E& 7NKC3EWM+NCT7DKU3I
N2MNJ* B * B * B 6 R +HCE3W?H+LCE3C7O7PSU3A	T+OCN+BCY3H3A3V;I3G> 3RR 3OKU3L;IG6.*JCC* B * B * B 2 ?T2 WG3TZ 3U3L2 3F3E	X3B3I7I	T2 ;I6 WO7TWP+TB,+ACN7OSU7PSU6 WS3B?R3U	TN7E*JCC* B * B * B 6 WM+SCT+BCE3CSO+ECD+BCY3TWH6 OU+E;R2MNJ* B * B * B 2 Z +OCR3R[E3EWR
NWC6,N E7E*JCC* B * B * B . F(*)B 3R3A3S?T7N^/3I[L2,6 3AT3EGM3TOI+ACL7MSE3HSO3SZ +OCR3D
I3IGTL*M+CB * B * B * B * B 2 N 7OCM3UWT+R3S2 	W7L	E2,: +ECW7YKO3K2/3OSN+O3N. &1*6206 CP..V9.-B1"96.*JCC* B * B * B . J(*)B 3R3A3S?T+NB,3R;U+G7E7KSU+TCA7MSE3HSO7S^ 3IT2 	M3N7I+UCM7EKR+OCR7BWO7NOD",*M+CB * B * B * B * B 2 6 3TOA6,Z +O;L*1266 OI/S".*0" .1Z9
22)6 CP..N4.1R-*3:72MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE3HOP7GB(7RSM*,3Y7DKE3Y:,3D7I2,I+L3F7FSC6,WO+T3P7AU")*MC*MC*M* B * B 3D7I7EON3I;O6 KP+MT*12)/YF(2)R,7E	R*
&16,WA/XF(.6F,")*M* B * B /NF=*MBJ* B 2 & 3H[L"=60*JB * B . 7X3P7R/TF(")*M* B * B 7HB=7RSM*(&3*MBJ* B 6 B 7RSM*(&5*=:0*MBJ* B 2 R /OF . 7I21:,3D7I*MBJ* B 2 F +UX*126/I6)"06.*JB * B 6 WA/XF(25&,2)R=7E	R*(	I*MBJ* B 21F +UX21&,6)&=*(	I*MBJ* B 2 & 3F"(6*B(7RS
*(&2*-	X*)23.2R,2MNJ2MNJ* B 2 V 3R?R7RJ 7EWT7RON*MBJ* B 22& 3H[L.=J1*MBJ* B 2 ^ 3O?T" 64*JB . N 2 I/L7F"163"J7C*JCC* B 2 ?C7MWP7TSA3I;O2 [O2 WD+RCY7FKO6 SS7ASR3I
N2 GV3LWUS*M* B * B43C3A3LZ +CT7X&,2,WD+R	Y2MNJ2MNJ* B 6 J 3E?C3R	D+NCG+OCF3SGT3R	T+NCG3V3A7UOE*MBJ* B 2 N 3A3L6 WO+TP7X&,2,WD+R3Y3I3H3F:,3D7I6,KP+M	T*MBJ* B 2 & 7FB(7RSM*(&5*)26.5Z,*MBJ* B 25& 3F&(3H[L*)27.7Z,*MBJ* B 66J 7EWTR7N*JB . ^ 2 ?D* B8/IF=2,SNI7
*JB . " 6 WA/X"(*,	I2=WD+RYI6)"J7C*JCC* B 2 ?C7MWP7TSA3I;O2 [O6 WA/XJ(*,	I*MBJ* B 2 & /S7W"1*M* B * B 7GSO/OF "060"J7C*JB . & . 7X3X"+*MBJ* B 2 R /OF 20& *=213N	DM*M* B *1B07AU*(22/I6)3Y&(")*MC*M+CB * B 3ION3R7E7ESN* CH+ICS7TOE3TSE6 	B2 WM7AON2 [O2 	B3SOE
T?IN*M* B *1B13I3H3F&=3H[L"+61*JB * B . 7X3X"-*MBJ* B 2 R /OF 22& *=213N	DM*M* B *1B27AU*(24/I6)7AU*(22I6)*JB * B . 7H*.*5H*M* B * B /NF=*MBJ* B 2 & /S7W"2*M* B * B 7GSO/OF "060"J7C*JB . N1. 7X3X"+*MBJ* B 2 N 3A3L2 OF7T"(*,3Y7DKEY6)*JB * B . 7N"2*M* B * B
+DCO*1B4/IF=2,SNI7M*JB * B 6 WA/XJ(*,	I*=YI6)*JB . R16 WA/X&(*,	I2=WD+RYI6)*JB * B 6 OI/WN=*MBJ* B 2 ^ 3O?T. B1"0*MC*M+CB * B 3C7O7PSU3A	T+OCN+OCF7TOE7TZ 7AWL3ER 7ESL*MBJ. F 25R 7ESL*=:0*MBJ* B 2 R /OF 26& *=213N	DM*M* B *1B63D3E3TR=7ESL6+WA/XF(25&,2)F*+B
3Y&(2)F-+UX24&,")6)*JB * B 2 WD/L7T..Z0.6Z6.6^62*WDL7T*JB * B 2 [I2(WD+L7T3P7R/TR(.)F).9F,.9F,"7*M* B *1B7+IF3I3H/FF-.0F).1F,.8F,"8*MC*M+CB * B +NCO7SSA3I[S7ASC7O	R2 OA7CKU7A	C2 [A7TKE. B12 	B3SOE3T?I+N;S6 KE7RKO2 WM3SGS+G;E*MBJ. F 28& 3H[L.=F1*MBJ* B 6 "
*=/XH*M* B * B 7GSO/OR 2MNJ2MNJ* B 6 R 7HKE3E& 7SN 3A	T3SGF3C?T+RCY3AOC3UGR+CCY7ASF+ECR7LOE7SR 3H;A. F12 	B3SOE3T?I+N;S*MBJ. F 69" *=/XH*M* B * B 3C3A3LZ +CT7X&,2,WD+R	Y*MBJ* B 2 R /OJ 20& *=213N	DM*M* B * B 7AU*(23/I6)3Y&(")*M* B *2B07AU.(B1*,	I2=WD+RYI6
*JB * B . 7N"3*M* B * B 7I
S"=64*JB * B 2 ?G+TCO.1B02MNJ*MBJ. J 21: "=61*JB * B . 7X3X"+*MBJ* B 2 N 3A3L2 OF7T"(*,3Y7DKEY6)*JB * B . 7X3P7R/TF(")*M* B * B +DCO*2B2/IF=2,SNI7M*JB * B 6 WA/XF(21&,2)R=7E	R*(	I*MBJ. J 62&I*(	I6=WA/XF(*,	I*++H.(N.*7*57AU*(28+I.)..&7.1Z6*6*77AU*(29I6)*JB
* B *1:-.2"0.3N323F*+UX*120+I.)..R0.1Z6.6^62*WD+RY+I&)*MBJ. J 63" *=/XH*M* B * B 3N:="+61*JB * B 2 GC+LCL7FSC*(3X3YR,7E	R")*M* B * B 3C3A3L> 7UCT*(3X3YR,7E	R2,I+L3F3N	D7MB,7RSM")*M* B * B +IF3P7R/TV(.)Z).,R2",66*JB . R22 [I*(7N.4J).5J,*020.2B0*MBJ. J 25R 
OJ 26& *=213N	DM*M* B * B 7AU*(3N/I6)3Y&(")*M* B *2B67AU*(/N27&,2)R=7E	R*(	I*MBJ* B 2 & 3F:(*-&3*227*229.2B02MNJ*MBJ. J 27R /OJ 28& *=213N	DM*M* B * B 3D3E3TF=+UX29&,2)F++UX29&,")*M* B * B 3D3E3TR=7ESL2+WDL7T*JB . "2* Y/I6)7AU*(21+I.)..N3.3N3*3*3+H"*7AU*(
8+I.)3D3E3TF++UX*120+I&)*MBJ* B 2 ^ 3O?T. N22MNJ*MBJ. J 29R /ON 20& *=213N	DM*M* B * B 3D3E3TF=+UX29&,2)F++UX*120I6)*JB * B 2 WD/L7T3D3E3TR+7ESL2+WDL7T*JB . B3* Y/I6)7AU*(21+I.)..^325"*2*F(+UX28&,2)R+7ESL6+WA/XF(21&,")6)*JB * B 2 ?G+TCO"263"J7C*JCC* B 2 T
EZ 3O3L3O	W+NCG7PKA3T> 7FN 7UKB7OSU3IWN6 CH+CCG3C7O7PSU+ECS+BCY3MGE+NCSO7F*JCC* B 6 WR3NWG6-WK3TGT2 WM3T?H7DN 7TKA3T;I7GZ 7AWL+ECS7FKO2 T3E: +OCT3S3E7FN-7TKA3T;IG*M+CB * B 3PWR3DOI7TKO2-?C3RWR3C?T3R6 3ET+O;D*MBJ. B120R /OF *0B1/IF=2,SNI7M*JB * B . 7Z3HF*+
X/N^+*,	I*MBJ* B 2 F +UX25&,6)*=*MBJ. B161& *(	I6=WA3X:(*,	I.+R."*7Z*JCC* B * CZ+ICS+ACN7AU3I	L7A	R6 SS3OGR+GCE3LOO3A	TO7N"J7C*JB * B . 7Z+X:+24"**MBJ* B 2 N 3A3L2 OF7T*(*,3Y7DKEY6)*JB * B 2 ?D. B122& *=213N	DM*M* B * B 3Z"=2*WD+RYI6)*JB * B 6 WA/XZ(*,	I"
7Z*JB .1J0* Y/I6)7AU*(3N+I.)..&2.6^9*7*67AU*(25+I.)..V1.8V7*9*6Z*MC*M* B * B 7Z"=.+R..5^5.3J7"*7H*JB * B 2 GC+LCL7FSC*(3Z3YR,7E	R")*M* B * B +DCO.1N0. 7I21:,3D7I*MBJ* B 6 * *=+H7DKE3Y&(")*M* B * B 7AU*(27/I6)Z*M. F *0B33Y&(2)F=+UX3N&,*):+.2"1.1B024F*+UX25
,.)N-..V0.0Z925F*+UX26&,.)N+..N8.2Z865**2MNJ*MBJ* B 6 * *=/XH*M* B * B 3C3A3LZ +CT7Z&,2,WD+R	Y*MBJ* B 2 R /OF *0B4/IF=2,SNI7M*JB .1R0*IY/I6)7AU*(3N+I.)..^1.4Z7*0*37AU*(25+I6)..V5.1"4*0*77AU*(26I6)*JB * B .1F+..B2.5N526F*+UX27&,*):+.1F7.1R828"*2*WD+RYI6)*J
 * B 2 ?G+TO.9F,.3F,.5J,*12)7I
S2MNJ2MNJ* B 6 B 7OOS3I3B3EJ 3RGE7KB-3O;I3TZ +OCR3L;I3K
AE*MC*M+CB * B 3SGT3R	T+NCG3V3A7UOE6 KA3EN 7OCM3UWTD6.*JCC* B 2 ?N7WN 7TKA3T" 3A7M3I
N3S6 3O	D3FWI7DB 3RSE7ISC+O7R7CKO3ROE7TKO2 WM3T?HD6.*JB .2B06 OI7TCE"=63*JB .2F02 [I*(7N.8J)*024.2J0.,B2"4*MC*M+CB * B /N"=2 GC3UWS7SR +HCE7R
O3S> 3FF +UCX+TCO3CGH3NWG2 T7EKI6 SS3OGR+GCE3LOO3A	T7OON*MBJ. B222R /OJ *0B3/NJ=",67*JB * B 2 ?D. B223& *=213N	DM*M* B * B 7AU*(7N21&,2)F=+UX3N&,")*M. J *0B37AU*(/N26&,2)F=+UX/N^+*,	I*MBJ* B 2 : "=67"J7C*JCC* B * CN7LOE7SR 3H;A* B87CWA7SOE* /N61R 3O^ +ECT
*M. J *0B43N:="+61"J7C*JCC* B 2 ?C7MWP7TSA3I;O2 [O2 WN+XCT3VOE7TKO" 7Y*JB * B 2 ?D. B225& *=213N	DM*M* B * B 7AU*(7N21&,6)&=*(	I*MBJ. B225F +UX/NZ+*,	I2=WD+RYI6)*JB * B . 7X3X"+*MBJ. B226& 3SWT3P&=3SWT/PF+*MBJ* B 2 R /OJ *0B7/IF=2,SNI7M2JRI7ESL6=WA3X:(*-2
+I.).1N..3N3*3*3+H"*7AU*(/N26&,2)F++UX/NZ+*,	I6-WA3X:(*+25+I.)*MBJ* B 2 F1+UX/NR+*,	I6+WA3X:(*+24+I&)*MBJ* B 6 & *(	I2=WD+L7T..J9.5F6*9*87AU.(Z1*,	I*MBJ. B227F +UX*126/I6)3D3ET*M+CB * B 3PWR3DOI7TKO6 OI2 ?N3W^ 3EWN7RSA+ECD+ICN7R
O. Z12 [O6 WA+XB,3MSO3I	F+ECD3PWR3DOI7TKO2MNJ* B 2 & 3S^ 3EWN7RSA+ECD+ICN+YB.3D3E3T6 3E;A3SF 3NF 3U	X3LGI+RCY3S?T3R
AE6."J7C*JB * B 2 GC+LCL7FSC*(3X3YR,7E	R")*M+CB * B 7DKE3IGV7T[I3E> 3F6 3O	D3FWI7DB 3RSE7ISC+OCR+ICS3G;E3EGR3TSE2 ;I2 WDR7Y"J7C*JB * B 2 ?D. B228& *=213N	DM*M2IWD/L7T..J1*5"**9*.7AU*(7N21&,2)F-+UX/NN-*,	I*+:3**+H2(WD+RY+I.)7AU*(/N26&,")6+*JB * B 61WA3X:(*
26+I6)7AU*(/N25&,*)&)*MBJ* B 2 F +UX*126/I6)7AU.(Z1*,	I2-WDL7T*JB .2"0* Y/I6)3D3E+T:+.0R7.3B8*1*77AU.(Z1*,	I2MNJ2MNJ* B 6 R 7ESS2 W3ET+ECR3H6 7USS2 WB2 GH3LWV3D> 3RR 3OKU3LSE*MBJ* B 2 R 7ESL*=:0*MBJ* B 2 R /OJ *0B9/IF=2,SNI7M*JB .2&02 WD/L7T3D3E3TF++UX*12
+I*)7AOB6(WA/XF(26&,")6)*JB * B 2 [I2(WD+L7T3P7R/TR(.)J)*120.2J2.,J2"2*MC*M+CB * B 3H6 7USS2 ?N3TJ 3E" 7A[L+E;D2 T+ACT3MGE+NCS3Y&(2)F +RCE3G?OD6.*JB .2B12 GC+LCL7FSC*(3X3YR,7E	R")*M* B * B 3C3A3L> 7UCT*(3X3YR,7E	R2,I+L3F3N	D7MB,7RSM")*M* B * B +IF3P7R/TV(
)J)*122.2F1.,F2"2*M. J *1B1+IF3I3H/FF-.1J)*123.2J1.,F2"2*M. J *1B27RSE3U;R*MBJ. F223& 3F"(6*"(6-KP+MT*2&).)F2.4J,*122.2J1*MBJ. F224& 3FF(+BS7XB-7RSM*(&2*):-21F*+BS+H&).2J1.,F2.5J,"165*JB .2V12 [I2(WD+L7T..J06*KP+MT*4&).2Z1.,F2.6J,"061"J7C"J7C*JCC* B * CH7
WO+LCD+BCE7DWO3BWL3D& 3FF +LCL3NOE7EOS7A	R6 KP3EWC3E	D+NCG3V3A7UOE6 KAE*M+CB * B 3AGV3IGL3BWL*MBJ. F226& 3F&(3H[L.)B2.1J,*021.2^1*MBJ. F227& 3F:(*-&7.2F0.,F2.8J,"168*JB .2"12 [I6(OI7TCE*-&4.2F0.,F2.9J,"169*JB .2&12 7I/O7D7ISS+E?P"2*M* B * B +IF7ISS+E7P3I?
3D&-3MSO.)B2.1J,*220.2F0*MBJ. J220" *=/HH*M* B * B 3I3H3F&=3H[L"-61*JB * B 6 OI7TCE"=60*JB * B 2 ?D. J221& *=213N	DM*M* B * B 7AU*(7N21&,2)F=+UX/NJ-*,	I*MBJ* B 2 F +UX/NJ-*,	I6=WA3X:(*-24I6)*JB * B 6 WA3X:(*-23/I6)7AU*(7N26&,")*M* B * B 7AU*(/N26&,2)F=+UX
NV+*,	I*MBJ* B 2 F +UX/NV+*,	I6=WA3X:(*+23I6)*JB * B 6 WA3X:(*+24/I6)7AU*(/N21&,")*M* B * B 3D3E3TF=+UX/NZ+*,	I6+WA3X:(*+25I6)*JB * B 2 WD/L7T3D3E3TR+7ESL2+WDL7T*JB .2F26IWA/XF(26&,.)"=..Z9.2Z9*3"*3Y&(2)F-+UX/NN-*,	I.)N-..Z3.1F121"*2*R(7E	R*(	I2+WDL7T*JB 
 B 21F++UX/NR+*,	I")*M* B * B 7GSO/OJ "061"J7C"J7C*JCC* B * CH7MOU3TJ 3E" 7A[LE7D*JB .2J22 I/L7F3I3H/FF+*MBJ* B 2 & 3F&(3H[L.-B1.)J2.3J,*223.2B1*MBJ. J223" .=V."*7H*JB * B 6 OI7TCE"=60*JB * B 2 ?D. J224& *=213N	DM*M*IY/I6)..B0.3B9.6V2.*"(*0*.7AU*(7N21&,.)
+*3:56*WA3X:(*-22+I.)*4:06*WA3X:(*-23+I.)*MBJ* B 2 F1+UX/NR-*,	I*):-.1^1.1^8*5"*7AU*(/N26&,.)Z-2.F*+UX/NV+*,	I6-WA3X:(*+24+I&)"*7H2JFI+UX/NR-*,	I.=B..0&3.0J6*5"**1:26*WA3X:(*-21+I.).1V32.F*+UX/NJ-*,	I"+*M* B . F .1"02.F*+UX/NN-*,	I6+WA3X:(*-24+I&).-B..2R3
3V72*F(+UX/NZ+*,	I.+"12.F*+UX/NV+*,	I"-*M* B . J *9*.7AU*(/N24&,*)*)H*M* B * B 7AU*(7N23&,2)F=+UX/NJ-*,	I*MBJ. J224F +UX/NR+*,	I6=WA3X:(*+25I6)*JB * B . 7X3X"-*MBJ* B 2 R 7ESL*=7X*(/HH6)*JB * B 2 GC+LCL7FSC2(WD+L3T3YR,7E	R")*M* B * B +DCO.2V2. 7I21:,3D7I*
BJ* B 2 F +UX/NJ-*,	I*=YI6)*JB * B 6 WA3X:(*+25/I6)7DKE3Y&(")*M. J *2B53Y&(2)F=+UX/NR-*,	I*MBJ* B 2 R 7ESL2=WD+L7T*(/HH6)*JB * B 2 GC+LCL7FSC2(WD+L3T3YR,7E	R")*M* B * B +DCO.2Z2. 7I21:,3D7I*MBJ* B 2 R 7ESL6=WA3X:(*+25+I.)7AU*(/N24&,")*M* B * B 3D3E3TR=7ES
2+WD+L/T3D3ET*M6IWA/XF(26&,.)"=..Z9.2Z9*3"*7AU*(7N21&,6)&-*(	I.)N-..Z3.1F121"*2*F(+UX/NZ+*,	I2+WDL7T*JB * B 21R+7E	R*(	I")*M. J *2B67AU*(/N23&,2)R=7E	R*(	I*MBJ* B 2 ^ 3O?T. B2"6*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"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