File HPCL.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 7UKB7OSU3IWN6 CHC7L"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?T2 ?S3LWV* CA7SOY3T7E2 [O2 	F7RSS6 KO7DKE6 KO3D;I7A	R2 	L3NGER*M+CB * B
* B * B 3D[I7FKE7ESN3I3A6 GE7USA3I;O7S^ 3IT2 	G3V;E2 ;I3I	T+ACL3V3A7UOE".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3HOP+L" 3P7R7T&,2,WD+R3Y3N	D3M&,3H[L2,[A+C3T7FSC6,WO+T3P7AU*,	A2MNJ* B * B * B 6 B 3AGR7MSE7EOR2 [A+C3T7FSC2 ;A3D> 7UCT2 WR3Q	U+RCE+AC
7ESX3E;R+ACL3SGT3T7E7ESN".*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B 3P7R+TB * B-+ACN7ICN+UCT3ASN6 WO7TWP7TZ 7ESC+OCR7WSI3HR 3IWM3N	S+OCN3GWR3AWTR*M+CB * B * B * B * B * B * B +OCR7EWQ+ACL+TCO*5B,3W	H+CCH3SWP3C[I7IOE2 T7EB 3AGR7MS
7EOR2 [O2MNJ* B * B * B * B * B * B 6 R +HCE7ISN7E[R+ACL3ASN2 [O2 OA7CKU7A	C2 ;A7D^ 3HOI7HN 7E[R+ECS7FKO2MNJ* B * B * B * B * B * B 2 N 3O7M3U	N7CSA3I;O2 WB3TWW+ECN7OSU7PSU6 WS3B?R3U	T+NCE6(WF3R	N3SWHD*M+CB * B * B * B * B * B * B +BCY3TWH6 OU+E	R2 ;A7DN 
UKB7OSU3IWN6 CH+C;L6 E7CCE7TB 7RSM*(&52MNJ* B * B * B * B * B * B 6 R +HCE3C7O3P;O7ESN3SF +RCE7NSO2 WD7SKT3OWY3DJ 7YN 7UKB7OSU3IWN2MNJ* B * B * B * B * B * B 2 " 3P3C2 ;A7DR 7H	E6 KAE*M+CB * B * B * B 3P7R/TF(*)B-7L
O+ECR7BWO+NCD+OCF3TWH2 ;I7TKE3V3A2 &(7NWP+T2)2MNJ* B * B * B 6 B 7RSM*(&26-V 3PWP3RJ 3O;U3D> 7FR +HCE7ISN7E[R+ACL2(;I7PSU")6,*JCC* B * B * B 6 KP+MT*36)2 ;I3I	T+ACL3ION3R7E7ESN2 [O2 T3E& 3NWD3P;E3D;E7TZ 3A	R3A3BE*M+CB * B * B * B * B * B * B 2(;I7PSU")6,*
CC* B * B * B 6 KP+MT*46)6 CU7PKE6 KE7RKO2 ?B3USN2 &(7NWP+T:)2 [I2 KA3S3O3UWT6 KE7RKO6 OI2MNJ* B * B * B * B * B * B 2 ^ 3RGE7TKE2 T+ACN3P7R/TR(*)B,3ION3R7E7ESN2 WG+TCS3H3A3VSE".*M+CB * B * B * B * B * B * B +ICF3ION3R7E7ESN6 OI2 WL+SCS3TGH7NB 7RSM*(&32 ;
3DF 3B?S7LSUE*M+CB * B * B * B * B * B * B 7EKR+OCR7LOE7SR 3H;A6 KP+MT*4>)*5202 ;I3CWR3M;E3T^ 7EOT2 ?D3U3B+E;D2MNJ* B * B * B * B * B * B 6 R +HCE3UWS3R6 +ACY3CGH3NWG6 KP+MT*4B)+BCY3MGE+NCS+OCF7HOI2MNJ* B * B * B * B * B * B 2 > 7UCT+UCT3SKU7RWO3T;IE6.*JC
* B * B * B 6 KP+MT*56)2 ?N2 ;I7PSU2 GP3R7A3EWT+RB.3SKU7RWO3T;I3E" 3P3C2 ;I3I	T3A	L7ZOE2MNJ* B * B * B * B * B * B 6 B 7RSM*(&5*=:02 [I2 T7EV 7SKE2 GW7NOT2 ?T2 WT3R	M7NSAE*M+CB * B * B * B * B * B * B 3SKU7RWO3T;I3E" 3P3C6 SA2 ;A3Y> 7UCT+UCT3P	O+N3T2 WH2 
H7SR O*M+CB * B * B * B * B * B * B 3CGH3NWG6 KP+MT*5B)+TCO3N;O2-WZ+RCO+BCY3MGE+NCS+OCF3SKU7RWO3T;IE*M+CB * B * B * B * B * B * B 7OSU+PB.7FKU3TWH3RN 7OCM3OWN7NOT2 [O2 WV3C?T7RB 7RSM6 KAE*M+CB * B * B * B * B * B * B 3FGE3SKI+LCE+ICF7IOT2 	D3M;E3S?I3N& 3S
 3E	F3NSE6 KG7ESAE7R*JCC* B * B * B * B * B * B 2 T+ACN*5B.7H
O3EWV7RN 7UKB7OSU3IWN6 CH+CCL3DWO3S: +OCT7RGE7UKIE*M+CB * B * B * B * B * B * B 3ASN2 C3A
N7ER 3H7E2.: 3EWV3RT3EWL+SCS3TWH3Y6 +ACY+BCE3UWS3F3U2MNJ* B * B * B * B * B * B 2 Z +OCR3H;A3D;I7GJ 7EWS+LCT3V3A7UOE2 ?T2 T3E6 3A;I6 KP7OKGA7M*JCC* B * B * B * B * B * B 2 N(3A3L3I
N6 CH+C	L2 W3IC6 KA3E> 3BGT3IWN3DJ 7YN 3POE3I3A2MNJ* B * B * B * B * B * B 2 6 3A	N3P3U3A	T7OON2 	W+TCH7OSU7PSU2 GD+TCA+ICN3SKU7RWO3T;I3E> 7UCT".*M+CB * B * B * B +YB * B * B-7ICN+UCT3VOE7TKO2 [O2 ;I3I	T+ACL3V3A7UOE*.B 2(WD7SKT3OWYD6)*JCC* B * B * B * B *
B * B 2 GL7TKE+OCN3Y& 7SR +HCE7ROE7USL3I
N2 WV3C?T3R> 3FR 3EWP3NWDN7T*JCC* B * B * B * B * B * B 2 GV3RGI3BWL3SN 7OCM3UWT3DF 3T& 3NWT3RWM3DGI+TCE3P	O7NOT* ;X2MNJ* B * B * B 2 R 7E	R* B 2-& 7NWP7TZ 7ESC+OCR+OCF7EKR+OCR3W	E7GSH+SB.2 R(7ESS7R	O+E	D2MNJ* B * B * B * B * B * B 6 R +HCE3S7U2 [O6 SI3SN
7OCM3OWN7NOT6 WM+SCT+BCE7EWQ+ACL+TCO"16.*JCC* B * B * B * B * B * B 2 GL7TKE+OCN7DKE3Y& 7SR +HCE3VOE7TKO2 [O2 WD7R[I3A	T7VOE6,^ 3HOIH*M+CB * B * B * B * B * B * B 3B3E3O
N2 ?T6 WF7NSC3I;O2 GV3LWU7S& 6 SA* CA3P	O+NCTX6.*JCC* B * B * B 2 SN+ICM* 6 2 ;A2 ;I7PSU2 GV3LWU6,^ 3HOI7HN 3POE3I	F+ECS3TWH6 WN3MWB3R> F*M+CB * B * B * B * B * B * B 7EWQ3A	T7OON2 ;I2 T7EN 7YSS+E;M2MNJ* B * B * B 2 & 3H[L* B 2-F 3N> 7UCT+UCT3V3A+U3E2 W3I
6 CS3E	C3FWI7SR +HCE3N7U7BKE2 [O2MNJ* B * B * B * B * B * B 2 J 3IWS3C	T7OON2 [O2 T3E& 7NSI3I3A2 ;I3CWR3M;E+TB.+ICF3I3H3F^ 7EOT2MNJ* B * B * B * B * B * B 2 ^ 3RGE7TKE2 T+ACN*1206 WS3B?R3U	T+NCE3HOP7LJ 7EWT7RON2 	WT7H*JCC* B * B * B * B * B * B 6 KE7RKO2 
M3SGS+GCE3I3H/FF=21& 3N?T2 GM+ICN3P?R3GGRM6.*JCC* B * B * B * B * B * B 6 KE7RKO2 WM3SGS+GCE3I3H/FF=22> 3R& 3H[L.=N16 CA3PGE+RCS+ICN7COAE*M+CB * B * B * B * B * B * B 3P7R/TN(.)B=6 KO2 ;I2 GC+SCE3S
I7NB(7RSM*(&32):.7EN.3I;G6(KP+MT*26)2MNJ* B * B * B * B * B * B 6 B 7RSM*(&16)J 7ECS7ESC3IWV+L;Y2MNJ* B * B * B 2 F 7FSC* B 6-R +HCE3N7A3E> 3FF 3NV 3XWT3RGN7LN 7UKB7OSU3IWN6 OU+E;D6 SI2MNJ* B * B * B * B * B * B 2 N 7OCM3UWT3S6 7AKT+ICX+A" 3FOA7TKO2 [O2 W
3C?T7R& 2 ;O2 TE*M+CB * B * B * B * B * B * B 3R
I+HCT3H;A7DN 3IWD2 [O2 T7EN 7YSS+E	M2 ?F3RF 2 	G3V;E* 7X3V3A+U;E2MNJ* B * B * B * B * B * B 2 & +TCS7PKA3AWM7TKE2 	L+SCT7MOU3TJ 7E" *,;A2 T7EN 7UKB7OSU3IWN2MNJ* B * B * B * B * B * B 6 N 7HWO+LCD7NSO2 WD7SKT+OCYX6.*JCC* B * B * B 2 OF+TB * 6 2 T3E: 3AWM2 
O2 ;A6 E7TKE3N3A6 WS3B?R3U	T+NCE3UWS+DB.I7T*JCC* B * B * B * B * B * B 2 ?C7MWP7TOE2 WV3C?T3RZ 2 &(3N?H3M
O3EWN7OOU2 GP+RCT+OCF3TWH2MNJ* B * B * B * B * B * B 6 J 3IG3T" 3ASN2 	S+DCE+OCF3TWH6 	S3SWT+MB)7FKO* CA7G[I+ECN7XZ-7AWLE6.*JCC* B * B * B * B * B * B 6 SI7SB 3AGR7MSE+ECR7LOI3T6 7USS2 WB* 3X+FB.3TWH6 WS3B?R3U	TN7E*JCC* B * B * B * B * B * B 2 S3O3U3D: +O
T7DOE3T?R7Y" ".*M+CB * B * B * B 7OSU+PB * B-3TWH2 GN+MCE+OCF+ACN7ESX3E;R+ACL7OSU7PSU6 WS3B?R3U	T+NCE3UWSD6.*JCC* B * B * B * B * B * B 6 SI7SB 3AGR7MSE+ECR7LOI3T6 7USS2 WB* 3X3YR,7E	R2,I+L3F3N	D7MB,7RSM".*M+CB * B * B * B * B * B * B 3N;O3E> 7FR 7HOE7EB 
AGR7MSE7EOR2 V(3XWC+P3T2 [I2 WN7COE7SKAY6,*JCC* B * B * B * B * B * B 6 KP+MT*42)3P7R/TV(*):,*.&.2 S3O3U3DJ 3EN 3H;A3GSE6 	B2MNJ* B * B * B * B * B * B 6 N 7UKB7OSU3IWN6 WO+T;P2 [I6 KP+MT*5B)+ICS3CGH3NWG7DR 3O: +O7N7ZKEO6,*JCC* B * B * B * B * B * B 6 WS3
?R3U	T+NCE3HOP3L& 7SR 3E7R3IGN3TSE".*M+CB * B * B * B 7AU* B * B-+ACN7AU3I	L7A	R6 SS3OGR+GCE7AKR+ACY7WSI/HF 66J 7OOW2 ;A3D: 3D7I2MNJ* B * B * B * B * B * B 2 N 7OWL7MON".*M+CB * B * B * B +AB * B * B-+ACN3N	D3MJ 3Y: 3D7I2 GM3T	R+XB,3W	H+CCH+ICS3UWS3DF 3SF
3U	X3LGIR7Y*JCC* B * B * B * B * B * B 6 SS3OGR+GCE7AKR+A;Y2MNJ2MNJ* 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 7UKB7OSU3IWN3SF 7FSC*(3X+A2)2 OF7T"(*,	F2 ;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 [E7A
L3A	T+OCN+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+CCL7ASU3OGM3TOI3A3L3YF 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+NCE3HOP7LB(7RSM*,3Y7DKE3Y:,3D7I2,I+L3F3AOF3TZ,+C3T7OSU3PF,+U3XA6)"J7C"J7C*JCC* B 2 T3EZ 3O3L3O	W+NCG7FKI+SC
7PKA3T> 7FN 7UKB7OSU3IWN6 CH+CCL2(;U3T3I2 	F7RSS6 KB3E/A"-*M+CB * B 3P	O+NCT7FKO2 	L3NGK+G	E2 GH7SR 7ON 7T	A2 ;I2 ?C+RCE7DKU3I
N2 T7E^ 3H3OE*M+CB * B 3C7O7PSU3A	TO7N"J7C*JB * B 2 	D3M;E3S?I7NB 7RSM*(&1*,Y*12)7DKE/YF(2)F,+UX*126*12)/AF(")*M* B * B 7GSO/OF "060"J7C*JCC* B 2 T+ICS7PKA3T> 7FN 7UKB7OSU3IWN6 CH+CCL3C7O7PSU+ECS3TWH2 	R7GSH2 GH+NCD3SSI3ER 7E	R2 [O2MNJ* B 6 R +HCE7G[I+ECN
SOY3T7E2 [O2 	L3NGE3RR 3I[F3EWR3N	T+ACL7EWQ3A	T7OON".*M* B * B13C3A3LF 7FSC*(3XA6)*JB * B 2 GC+LCL7FSC*(3X7DKEY6)*JB * B 2 ?D* B3/MF=2,SNI7M*JB * B 2 3L*=7M3N	DM*M* B * B /H7S"06.*JB * B 2 ?D* B2/LF=2,SNI7M*JB * B 2 3L2=3L2+SNI7M*JB . J 6 OH6=OH*+A+L	L**Y
6)*JB . N 2 WD+RY/M6)+H/S7DKE3Y6(")*M* B * B 7GSO/OF(*025.2J0.,B2.4J,*026.1V1.,J1.2F,*225.3"0.,F3.2N,*227.3&2.,J1*82)7I
S"2*MC*M+CB * B 7POO3SKI+LCE3BWR+A7K3P	O+NCT7FKO2 	L3NGKG7E"J7C*JB .1B0. 7N"1*M* B * B 3I3H/FB=*MBJ* B 6 " 6=KP+MT"16)*JB * B . 7H3P7R/TN(")*M* B * B 3P7R/TV(.)B=".*M* B * B +DCO.1F0. 7I21:,3D7I*MBJ* B 2 F +UX*126/I6)"06.*JB * B 6 WA/XF(25&,2)R=7E	R*(	I*M
J. B121F +UX21&,6)&=*(	I*MBJ* B 2 & 3F"(6*B(7RSM*(&2*-	X.)B1.3F,*022.1R02MNJ2MNJ* B 2 V 3R?R7RJ 7EWT7RON*MBJ. B122& 3H[L.=J1*MBJ* B 2 ^ 3O?T. B1"4*M. F *0B33I3H/FF="3*MC*M+CB * B 3C7O7PSU3A	T+OCN+OCF7DKE3YZ +OCR3SGT3R	T+NCG3V3A7UOE*MBJ. B124& /SKW"=61*JB 
 B 2 ?G+TCO"1*MC*M+CB * B 3ROE3OSR3I
N2 [O6 SS7ASR3I
N2 GV3LWUS*M. F *0B53C3A3L> 7UCT*(3X3YR,7E	R2,I+L3F3N	D7MB,7RSM")*M* B * B +IF3P7R/TV(.)F)*027.1Z0.,B1"7*M. F *0B6+IF3I3H/FF)*028.1"0.,B1"7*M. F *0B77RSE3U;R*MBJ. B128R /OF *0B9/IF=2,SNI7M*JB .1&06 WA/X"(*,	I2=WD+RYI6)"J7C*JCC* B 2 ?C7MWP7TSA3I;O2 [O6 WA/
J(*,	I*MBJ* B 2 & /SGW"=61*JB * B 2 ?G+TCO.2B02MNJ*MBJ. F160" *=/XH*M* B * B +DCO.1F1. 7I21:,3D7I*MBJ. F121F +UX22&,6)&=*(	I2MNJ2MNJ* B 2 & 7NKC3EWM+NCT3H& 7SR 7ESS+ECD+BCY3MGE+NCS+OCF7BOI7ESC3I;O*MBJ. F122& 3H[L2=I+L/F"1*M* B * B 7X"="-7H*JB * B 2 ?D. F1
3& *=213N	DM*M. F *1B37AU*(24/I6)7AU*(22I6)*JB * B . 7H*.*5H*M* B * B /NF=*MBJ* B 2 & /SGW"=62*JB * B 2 ?G+TCO.2B02MNJ*MBJ. F164" *=/XH*M* B * B 7I
S.2V=*MBJ* B 2 ^ 3O?T" 61*JB .1V1. 7N"2*M* B * B +DCO.1Z1. 7I21:,3D7I*MBJ* B 2 F +UX22&,6)&=*(	I*MBJ. F126F +UX29&,2)R=7E	R*(	I*MBJ* B 2 & /SGW"=63*JB * B 2 ?G+TCO.2B02MNJ2MNJ* B 2 N 7OCM3UGT3T?I3N> 7FR 7ESS2 GV3LWU2 WDL7T*JB .1^12 WD/L7T"06.*JB * B 2 ?D.
F128& *=213N	DM*M. F *1B83D3E3TR=7ESL6+WA/XF(25&,2)F*+BS3Y&(2)F-+UX24&,")6)*JB * B 2 WD/L7T..Z0.6Z6.6^62*WDL7T*JB * B 2 [I2(WD+L7T3P7R/TR(.)F)*221.1F2.,F1"9*M. F *1B9+IF3I3H/FF-.0F)*122.1B2.,J1"0*MC*M+CB * B +NCO7SSA3I[S7ASC7O	R2 OA7CKU7A	C2 [A7TKE. B12 	
3SOE3T?I+N;S6 KE7RKO2 WM3SGS+G;E*MBJ. J120& 3H[L.=F1*MBJ* B 6 " *=/XH*M* B * B 7GSO/OF "064"J7C*JCC* B 2 GS7TOI3FOA7TKO3YF 7CWC3ROA3YF 3FWT3R2 7EOS2 T+ACN*1B17BOI7ESC3I;OS*M. F *2B17X"="+7H*JB * B 6 OI/W62"6*M* B * B 7GSO/OF *MBJ. J122R /OF *2B3/IF=2,SNI7
*JB * B 6 WA/XN(*,	I*=YI6)*JB .1N26 WA/XF(20&,2)R=7E	R*(	I*MBJ* B 2 : "=63*JB * B 6 OI/W61"4*M* B * B 7GSO/OJ "060"J7C*JB .1R2. 7N"1*M* B * B 7X"="+7H*JB * B 6 OI/W62"7*M* B * B 7GSO/OF *MBJ. J165" 6=KP+MT"16)*JB * B 2 ?D. J126& *=213N	DM*M* B * B 7AU.(F1
,	I2=WD+RYI6)*JB .1Z2*IY/I6)7AU*(21+I.)+H"*..^325F*+UX28&,*):+.7F9.6Z627F*+UX29&,")*M* B . F .-J..0N8.3N36*WA/XF(20&,*):+.0F4.6Z6*6*77DKE3Y&(")6)*JB .1^2. 7X3X"+*MBJ* B 2 : *=/N"1*M* B * B 7I
S.2F="2*M* B * B 7GSO/OF *MBJ. J128N 3A3L6 WO+TP7X&,2,WD+R3Y3I3H3F:,3D7I6,KP+M	T*MBJ* B 2 & 7FB(7RSM*(&5.)B1.7F,*229.1^0*MBJ. J129& 3F:(*-&4.1B3.,B3.0N,"060*JB .1B32 ?D. N121& *=213N	DM*M* B * B 7AU*(3N/I6)3Y&(")*M. F *3B17AU*(/N27&,2)R=7E	R*(	I*MBJ* B 2 
 3F:(*-&3.1J3.,N1.4N,"060"J7C*JB .1J32 ?D. N123& *=213N	DM*M* B * B 3D3E3TF=+UX29&,2)F++UX29&,")*M* B * B 3D3E3TR=7ESL2+WDL7T*JB .1N3* Y/I6)7AU*(21+I.)..N3.3N3*3*3+H"*7AU*(28+I.)3D3E3TF++UX*120+I&)*MBJ* B 2 ^ 3O?T. J1"7*MC*M. F *3B4+DCO.1V3. 7I21:,3D7I*MB
* B 2 R 7ESL6=WA/X&(*,	I6+WA/XF(20&,")*M* B * B 3D3E3TR=7ESL2+WD+L/T3D3ET*M. F *3B53Y&(2)F=+UX21&,*):+.3V7**+H6(WA/X"(*,	I2+WD+L/T7AU.(F1*,	I")*M* B * B 7GSO/OF "267"J7C*JCC* B 2 T3EZ 3O3L3O	W+NCG7PKA3T> 7FN 7UKB7OSU3IWN6 CH+CCL3C7O7PSU+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. B260* "=7X*JB * B 2 ?D. B221& *=213N	DM*M* B * B 3X"=6*WA3X:(*+27I6)*JB * B 6 WA/XV(*,	I"=7X*JB .2F0* Y/I6)7AU*(3N+I.
*.*4X*M+CB * B 3X& 3SF 3NF 3U	X3LGI+RCY3S?T3R
A3E2 3OGC3T?IN*MC*M* B * B 7X*=.+R."*7H*JB * B 6 OI/W62"2*M* B * B 7GSO/OF *MBJ. B222R /OJ *0B3/IF=2,SNI7M*JB * B . 7X3HR*7E	R*(	I*MBJ* B 2 F +UX26&,6)"=*MBJ. B263& *(	I6=WA3X:(*,	I.+J..9&6.7Z76*WA/XV(*,	I.+F..5^8.5Z9"*7X"J7C*JB * B . 7X+Z:+.4V5.7^322"**M
J* B 2 & /SKW"=63*JB * B 2 ?G+TCO"1*M. J *0B4+DCO.2V0. 7I21:,3D7I*MBJ* B 6 " *=+H7DKE3Y&(")*M* B * B 7AU*(27/I6)X*M. J *0B53Y&(2)F=+UX3N&,*):+.2"1.1B024F*+UX25&,.)N-..V0.0Z925F*+UX26&,.)N+..N8.2Z865"*2MNJ*MBJ* B 6 " *=/ZH*M* B * B 7I
S.2R=*MBJ* B 2 ^ 3O?T" 61*JB .2Z02 ?D. B227& *=213N	DM*M. J "0&73Y&(2)F=+UX3N&,*):+.1R7.7B623F*+UX25&,*):-.5F5.4B827F*+UX26&,")*M* B . F *+:1.2V0.5Z36*WA/X^(*,	I.+F..7F1.8"4**+H7DKE3Y&(")*M* B * B 7X*=*MBJ* B 2 ^ 3O?T.(F1.0F,*124.1^1.,J1*42)7I
S"1*MC*M+CB * B 7POO3SKI+LCE3BWR+A7K3P	O+NCT7FKO2 	L3NGKG7E"J7C*JCC* B 6 SS7ASR3I
N2 GV3LWU3SF +RCE3C7O7PSU+E;D2MNJ* B 2 : +OCW3SGT+RCT3H7A3M;I+GCS3MSO3I	F+ECD3PWR3DOI7TKO2-?C3RWR3C?T3R6 3ET+O;D*MBJ. B320& 3SWT/PN=*MBJ. B321& 3F:(*-&8.3R0.,B3.2N,"064"J7C*JCC* B . 7N28N 7AOU+ECS3TWH2 ?R+WCS+OCF7AU2 ?T2 C3A
N7ER 3H	E7RN 7TKO3AWG2 ?L7CSA3I;OS*M. N *0B2+DCO.3N0. 7N.2^,*MBJ* B 2 R /ON *0B3/IF=2,SNI7M*JB * B 6 WA3X:(*-21/I6)7AU*(3NI6)*JB .3N06 WA3X:(*+26/I6)7AU*(/N27&,")*M* B * B /N^=2MNJ2MNJ* B 2 : 2 WL+SCS3TGH/N" 2 GC3UWS3S: *+B1+TCO7GSE" 7N*JB .3R0. 7N/NF+2MN
2MNJ* B 2 N 7OCM3UGT3T?I3N> 3F: 7ESX2 WV3C?T7R& *MBJ* B 2 R /ON *0B5/IF=2,SNI7M*JB * B 6 WA3X:(*-21/I6)3Y&(")*M. N *0B57AU*(/N26&,2)R=7E	R*(	I*MBJ* B 6 " *=/XH*M. N *0B67ISS/E7P7ISS+E/P"1*M* B * B +DCO.3^0. 7I21:,3D7I"M&J3D3E3TF=+UX/NR-*,	I*+:1.3N3.3N3**+
6(WA3X:(*+26+I.)7AU*(/N26&,2)F-+UX/NV+*,	I"+*M* B . F 7AU*(/N24&,2)F++UX/NR+*,	I")*M* B * B 3Y&(2)R=7ESL.-&..2Z5.1"96*WA/XF(26&,")*M. N *0B77AU.(Z1*,	I2=WDL7T*JCC* B 6 KP3E	D3C?T3R& 3S: +OCW3G;E3EGR3TSE2 ;I2 ?R/WF 26> 3FF +U3X2 ?M3D[I3ISE6 KP3E	D3C?TR*M+C
 * B +ICS3G;E3EGR3TSE2 ;I* ;Y2 WD+LCT3MGE+NCS+ACN7AU3I	L7A	R6 SS3OGR+G;E*MBJ* B 2 & /SKW"=68*JB * B 2 ?G+TCO"1*M+CB * B 7DKE3IGV7T[I3E> 3F6 3O	D3FWI7DB 3RSE7ISC+OCR+ICS3G;E3EGR3TSE2 ;I2 WDR7Y"J7C*JB .3"02 ?D. B329& *=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 .3&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 7
SL*=:0*MBJ* B 2 R /ON *1B0/IF=2,SNI7M*JB .3B12 WD/L7T3D3E3TF++UX*125+I*)7AOB6(WA/XF(26&,")6)*JB * B 2 [I2(WD+L7T3P7R/TR(.)N)*121.3R2.,J3"4*MC*M+CB * B 3H6 7USS2 ?N3TJ 3E" 7A[L+E;D2 T+ACT3MGE+NCS3Y&(2)F +RCE3G?OD6.*JB .3F16 OI/W62"9*M* B * B 7GSO/OF *MBJ. 
322N 3A3L6 WO+TP7X&,2,WD+R3Y3I3H3F:,3D7I6,KP+M	T*MBJ* B 2 & 7FB(7RSM*(&5.)F3.4N,*123.3R1*MBJ. F323& 3F&(3H[L.-F1.)F3.5N,*124.3R1*MBJ. F364J 7EWTR7N*JB .3V12 [I*(+H*(7X3P7R/TJ(*)&).3Z1.,F3.4N,"164*JB .3Z12 [I2(KA7S"(6-KP+MT*2&).-F.2*KA3S"(.)N)*124.3^1.,F3"
*M. N *1B7+IF3D3E+T:-*0*23P7R/TR(.)N)*128.3"1.,B3"1*MC*MC*M+CB * B 3HN 3O3U3DJ 3ER 3OKU3LSE2 [I2 3A3L: 3EWC3SGS+RCY3PWR3CWE3D;I7GZ 7AWL+ECS3AWR2MNJ* B 2 F 3V	A3LKAL7E*JB .3"12 [I2(I+L	F.3F0.,B3.1N,"169*JB .3&12 [I*(7N.7N)*021.3B2.,J3"0*M. N *2B0+IF7ISS+E7
.4N)*021.3F2.,J3"1*M. N *2B13I?M3D&=3SWT/PJ/*MBJ* B 2 & 3F&(3SWT3P&-3MSO2-7I+O	D.3F0.,J3.2N,"061*JB .3J2. 7H3H"+*MBJ* B 2 & 3H[L2=I+L7F"1*M* B * B 7ISS/E7P"0*M* B * B +DCO.3N2. 7I21:,3D7I*MBJ* B 2 F +UX/NF-*,	I6=WA3X:(*-22I6)*JB * B 6 WA3X:(*-22/I6)7AU*(7
24&,")*M* B * B 7AU*(7N23&,2)F=+UX/NZ-*,	I*MBJ* B 2 F +UX/NZ+*,	I6=WA3X:(*+25I6)*JB * B 6 WA3X:(*+25/I6)7AU*(/N23&,")*M* B * B 7AU*(/N24&,2)F=+UX/NF+*,	I*MBJ* B 2 R 7ESL6=WA3X:(*+26+I.)7AU*(/N25&,")*M* B * B 3D3E3TR=7ESL2+WD+L/T3D3ET*M. N "2&37AU.(Z1*,	I*
:8.9J6.9N66*&(*(	I6-WA3X:(*-23+I&)*-:3.3F6.1F1**+H2(WD+RY+I.)3D3ET*M* B . F 6+WA3X:(*+24+I&)*MBJ* B 2 ^ 3O?T. B3"1*MC*MC*M+CB * B 3H6 7USS2 WB2 GH3LWVD*M. N *2B43I3H3F&=3H[L"+61*JB * B 2 [I2(I+L7F*1&0.3V2.,J3.5N,"161*JB .3V2. 7H*.*5H*M* B * B 7ISS/E7P"0*M
 B * B +DCO.3Z2. 7I21:,3D7I"M&J3Y&(*):=.0N0.9Z0*2*5.(B82.F*+UX/NF-*,	I.+N1*5*.7AU*(7N22&,.)R+*0*.7AU*(7N23&,")6+*JB * B 61WA3X:(*-24+I&).-F..1F7.8V72*F(+UX/NZ+*,	I*-:66*WA3X:(*+25+I6)7AU*(/N24&,*)*)H*M6IWA3X:(*-24/I6)..B0.3B9.6V2.*F(*2*.7AU*(7N21&,.)F+*3:
6*WA3X:(*-22+I.)*MBJ* B . F1*0:86*WA3X:(*-23+I.)7AU*(7N24&,*)6)..J0.3N4*7*56(WA3X:(*+26+I.)*1:86*WA3X:(*+25+I6)*MBJ* B . &22.F*+UX/NR+*,	I2)"**MBJ* B 2 F +UX/NN-*,	I6=WA3X:(*-22I6)*JB .3Z26 WA3X:(*+24/I6)7AU*(/N25&,")*M* B * B 3D3E7T"="-7H*JB * B . 7X3D3E
T"-3H"+")*M* B * B 7I
S.2F="0*M* B * B 7GSO/OF *MBJ. J327R /ON *2B8/IF=2,SNI7M*JB * B 6 WA3X:(*-22/I6)3Y&(")*M* B * B 7AU*(/N25&,2)R=7E	R*(	I*MBJ. J368& *(	I6=WA3X:(*-24I6)*JB * B . 7X+X"-3H"+")*M* B * B 7I
S.2F="1*M* B * B 7GSO/OF *MBJ. J369" 2=WDL7T*JB * B 2 ?D. N320& *=213N	DM*M* B * B 3D3E3TF=+UX/NV+*,	I6+WA3X:(*+24I6)*JB * B 2 WD/L7T3D3E3TR+7ESL2+WDL7T2JFI+UX*126/I6).8&..6&2*6*36(WA3X:(*-21+I6)3Y&(*)6).3N..6F1*1*1+H"*7AU*(/N26&,2)R+7ESL*MBJ* B * .17DKE3
&(")6)*JB .3B36 WA3X:(*+23/I6)7DKE3Y&(")*M* B * B 7GSO/ON "066*JB * B 2 ;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"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