File APMM.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 CAM7M"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 6 CA3P?R3X7I3AWT* CA3F;U3C	T+OCN3TKA3UGL3TSE2 ;I* CN3P	O7NOT6 	B2 ;A3Y2 3I
NA7R*JCC* B * B * B 2 ?C3M	B7NSA3I;O2 [O* CM7G[I+ECN3C;O3T;I7UWO3SZ 3UON3T?I+NCS+ICN3TWH2 WS3NWS2MNJ* B * B * B 2 > 3FN 3HKE3YS+E;V2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LF 3P7M2(OF3T:,*,3M7TCO2,I7EB,+I3V3T&,7TKE2,WIR6)*JCC* B * B * B 2 GP3R7A3EWT3RZ +CCT7RGE7UKI+ECS+ACN7ESX3E;R+ACL3SGT3T7E7ESN2 ;I2 TE*M+CB * B * B * B 3C3A3L;I7GB 3R
O3R7A".*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B 7FSC* B * B-3N7A3E> 7FN 7UKB7OSU3IWN2 ?T2 WB6 WS3P3P3ISE6 	B2 T7EV 7SKE".*M+CB * B * B * B * B * B * B +ICT3C7O7PSU+ECS3V3A7UOE2 [O* CM7G[I+ECN3F;U3C	T7OON2 ?FR*M+CB * B * B * B * 
 * B * B 3A
R3UWM+NCT3V3A+UCEX6.*JCC* B * B * B * B * B * B 6 OU3AWG2MNJ* B * B * B * B * B * B * B 2 N 3A3L2 OF7T&(*,3XK6)*JCC* B * B * B * B * B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * B * B * B * B * CY* 6 2 WR3S3U7TZ 7ESC+OCR+OCF3D7I7EON3I;O* CM3
;O3T	A3N;IG*M+CB * B * B * B * B * B * B * B * B * B 3TWH2 GV3LWU3S> 3F^ 3IWV3NN 7OSN7IWN7OOU6 WF7NSC3I;OS*M+CB * B * B * B * B * B * B * B * B * B 7FKO2 	G3V;E6 KA3G7U7ESN" 7X*JCC* B * B * B * B * B * B * B * CX* 6 6 KA3G7U7ESN2 GV3LWU2MNJ* B * B * B * B
* B * B * B 2 . * B 2-F 3N& 3NWT7GKE2 GV3LWU2 W3IC6 OI6 GE3U3A2 ?T* 7M"1*M+CB * B * B * B * B * B * B 3R7E3A/RS*M+CB * B * B * B * B * B * B * B +ICF7ACP7RO3IGM3T?I3NJ 3Y: 3O7R+ACL3CWH7BOY7H[E6,N 3H[I3TSE2MNJ* B * B * B * B * B * B * B 2 N 3HKE3YS+E3V2 WL
G;E3DWR2,2 7AWG7EKR+EB,7HKE7MSI7EB 7O	L+N7O2MNJ* B * B * B * B * B * B * B 2 6 3I3A3S& 3SR 3E	S3RSE6 WS3B?R3U	T7NOE2 ;C+PB,7CCS2,2 +E3P2MNJ* B * B * B * B * B * B * B 2 2 +A3P2 WH+PB,7ROE3POE7T[I7E	L6 KF+OCM7SCS2 ?C3USL2 WB6 OU+E;D2MNJ* B * B * B 2 : * B 
 B 2-: 3UKM+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 +HCE7
CP7RO3IGM3T;I3GZ 3UON3T?I3N& 3SN 7OON7TWR3CWTD6.*JCC* B * B * B 2 ?T+PB * 6 2 WV3C?T3R> 3FR 3IWM3N	S+OCN23:*".*M+CB * B * B * B * B * B * B +OCN7ESN+RCY+ICT7MOU3TN 7OSN3A;I6 KF+OCM7TCO*(&16 CU2 ?T2 ?T3P:(")*M+CB * B * B * B * B * B * B 3TWH2 	G3V;E* CN3F;
3C	T+OCN3V3A7UOE2 ;A3DZ 3R7O2 ?T3P:(*+&16 CU2MNJ* B * B * B * B * B * B 6 R 7OR +OP22:*6)R +HCE7CKO7ROE3P;O3D;I3G: 3OWDS*M+CB * B * B * B * B * B * B +OCN7RSE3U;R2 ?T3PN 7OSN3A;I3SZ 3R7O2 ?T/PF(6)V 7PR 7OR +OPN6)*JCC* B * B * B * B * B * B 2 T3EV 3R?R+RCS
ACT3T?H+SCE3N: 3OWDS6.*JCC* B * B * B * B * B * B 6 SO7HKE2 GV3LWU3S> 7FR +OCP3AWR2 OS7RSA+C;H2MNJ* B * B * B 2 & +HCE* B 2-& 3NWT7GKE2 WV3C?T3R> 3FR 3IWM3N	S+OCN236**+*4/NZ+2MNJ* B * B * B 6 B +ICV* B 6-Z 7ESC+OCR+OCF3D7I7EON3I;O* *3/MZ+".*M+CB * B * B *
B * B * B * B +OCN7RSE3U;R2 	P3VN 7OSN3A;I3SF 7TB +IV*1B)+UCP+TCO7P[I*(	M2 TE*M+CB * B * B * B * B * B * B 7ROE7USL3I
N2 ?C3E[F3I	C7ESN3S> 3F2 3IWN+ACR7ACP7RO3IGM3T?IN6.*JCC* B * B * B * CT* B * 6 6 WA3X3I7IKA7YZ 7ESC+OCR+OCF3D7I7EON3I;O2 6(*+&22*6(*+&22MNJ* B * B * B 2 & 7TKE* B 6-J 7EWS3LGT+NCT7ISN3EWG7R^ 3HOI7HN 3POE3I	F+ECS3TWH6 WN3MWB3R> F*M+CB * B * B * B * B * B *
B 3IWT7RSA3I;O3S: 3ESEE7D*JCC* B * B * B 2 WI+RB * 6 2 WR3S3U3T;A3TV 3R?R7RB 3AGR7MSE+ECR3CSO+ECD+ICN3TWH2 ?F3L?L3W;IG*M+CB * B * B * B * B * B * B 7FKOM*M+CB * B * B * B * B * B * B 2 WI/RB=* 6 2 ?N6 KE7RKO2MNJ* B * B * B * B * B * B * B 7IKE*=B1* B-3TWH
 WN3MWB3R> 3F& 7TKE3A	T7OON2 GH7SJ 3EOA3HSE2MNJ* B * B * B * B * B * B * B * B * B * B 3TWH2 ;I7TKE3N3A2 GM3X7I+UCM3N6+2MNJ* B * B * B * B * B * B * B 7IKE.=F-* B-+NCO7ROE7USL2 WB7CWA+SCE+OCF3W?R+NCG7ICN+UCT7PKAA6-*JCC* B * B * B * B * B * B * B * B * B 2
6 3EWT3R6 6 KO* CN+OCR3S;I+CCE+ACT3S7O3E& 7TKE3A	TO7N*JCC* B * B * B * B * B * B * B * B * B 2 : 7ON 7USI3A3B7EB 3I?V3TN 3O3U3DJ 3EZ 3O;UD*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B +NCO7ASC3I;O2 WB3SSI+ECS7EKR+OCR7MOE3S
A3E& 3NN 3AWS* CM7LOE7SR 3H;A* B1O7R*JCC* B * B * B * CN7LOE7SR 3H;A* :22MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 T3EV 3XWT3RGN7LN 7UKB7OSU3IWN2 OF3T6 7USS2 WB6 WF3R	N3SWH3DJ 7YR +HCE3UWSR6."J7C*JCC* 
 * B 2 WM3T?HD*M+CB * B * B * B 3TWH6 KP3O3B+ECM+OCF7ACP7RO3IGM3T?I3NF 2 GT3B3U3AWT3DZ 3UON3T?I3NJ 3YF N7Y*JCC* B * B * B 2 	L3NGE3RN 3OKM3IGN3T?I3N> 3F^ 3IWV3NZ 3UON3T?I+NCS+ICN3TWH2 WS3NWS2 [O2MNJ* B * B * B 2 N 3HKE3YS+ECV*(;I+EB.+TCO3M;I3I	M+ZCE3TWH2 
M3X7I+UCM7EKR+O	R6 OI6 KT7AON"-*M+CB * B * B * B 7FKO3MSE2 ;I+TCO3A2 3IWN+ACR3P?R3GGR3M	M+NCG3P?R3BWL+MB.3A7P7MV 7SOE" 7A*JCC* B * B * B 2 WR7VOI+ECD3S7I3PWL3X6 3ET+OCD+TCO3S3O+VCE3AN 7OKR7ECS3OSN3I
N6 WDA7L*JCC* B * B * B 6 KP3O3B+E;M2 ?F7RJ 3EWF3R;E+C3E2 WSE*M+CB * B * B * B 3IJ.7AKR3OGD+L?E7A&.3O;U+GB,3A
L3O	R3T7H3SZ +OCR7BOE3T2 6-WS3B>-+NCE3ASN2MNJ* B * B * B 2 2 6-WS3B&-3N	F7NSI+YB,3L;I7EKA6 CA3P?R3X7I3A	T7OON2 ;O* CA7DOI3CWR+TCE7SSE",*M+CB * B * B * B 3N7U3E	R3SC3E6 3AT3EGM3T/I6,Z +O;L*8B,7IOS*.B3.(&1*6&66,B /PJ.*965.3Z0".*MC*M+CB * B *.:.*.:.*.:.*.:.*
:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 CA+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+OCN7DWSM*MC*M+CB 
 B * B 7TOE3T> 7N^ 3R;O3G& 7NWP7TB 3AGR7MSE7EOR* CN3ASN" 7M*JB * B 2 WI+R6="1*M* B * B +ICF*(7N*1B)*821*821"1*M* B * B1+IF+MB)*821*821"2*MC*M+CB * B * B 3I	N3TGI7L+I3EN 7HKA7ASC3E	R3S	T7CZ 7ESC7OOR2 ?F7RR +HCE3TKA3LGEU*M* B * B27IKE"=60"J7C*JCC* B * B 6 K
3EGP+RCE7TCO2-?R7WR O7P*JB * B 2 ?D* B3/IF=",7N*JB * B . 7K3I:+*MBJ* B 2 * *=/KN*M* B * B 7TCO*(	J2=?T3P.(")*M* B * B37TCO*(	K6=R-+OPI6)"J7C*JCC* B * B 6 KP3EGP+RCE7I[N7EOR7ER 3R;A3S?F3RGM3T?I3N6 7AKT+ICXT*M* B * B 3L6="+62*JB * B 2 3L*=+LL*M* B * B +DCO2
& *=21L7L*JB . R * T/I6)"06.*JB * B . 7K"1*M* B * B 3J2="+61*JB * B 2 ?D* B5/IF=",7L*JB * B * T/K6)"16.*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+O7N3
WTP7S*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 ?P7SSI3I
V2 3E3EWM+NCT+ICN7TCO*MBJ. F 20& /S7E"0*M* B * B 3I	P/VB=*MBJ* B 2 . *=/L3L2+*MBJ* B 6 N 3AWV*=:02MNJ2MNJ* B * B 6 N 7TKA7TR +O7P3L?OP*M* B * B +DCO*1B4/IF=2,GNN*M* B * B 3I?D*=/KI*M* B * B 3H3E7PR=+OPI6)*JB * B 2 [I2(WH+L7P7S[A+EB)*122*122"161*JB . F12 G
/V7E3H3EP*M* B * B 3I	P3V&=*MBJ. F 22& 3F&(+HE3I?D*)B)*124*123"164*JB . N16 OI3E&=*MBJ. F 24N 7OSN7IWNE*M+CB * B * B 3ESN2 [O2 ?T3P2-7OCO2MNJ2MNJ* B * B 2 & 3S> 3P	T3M3A2 GT3BWL+ACU3RGE3CWHD*M* B * B +IF3I	P+VB)*629*629"165"J7C*JCC* B * B 2 WD7TKE3M;I7ER 
HCE7P[I+O7T3EWL3M;E3TZ +OCR3TWH2 ?C3L7U3NN 7HOO+ECN3U?PV7E*JB . V12 3I/A7B"1*M* B * B 3ISN"=60*JB * B . 7J3IWS*MBJ* B 2 & 3F*(.)J .1J,.1N,"4*MC*M+CB * B * B 3TGR3N[S+ECR7KR-3HN 7OWL+MCN3F?R7MR 2 ?T2 	PV*M* B *1B6+K"=/KF-2)2**MBJ* B 2 R /OF 27& *=21L*M* B 
 B 3J2="+7I*JB * B . 7K/KF+*MBJ. F 67B +IV/J6)3T.(")*MC*M+CB * B * B +ICS3A?N3TWH3RN 7OWL+MCN3NWE3DSE2 ?F7RN 7EKA+CCH7FKO2 	P7VSO2-3E3EWMN7T*JB . "12 [I6(OI+EB)*222*222"169*JB . &16 OI+E6=3IWS2MNJ2MNJ* B * B 6 R 3R;A3SWF3RN 7OWL7MON2 ;I2 	PV*M* B * B 3J2=
+61*JB * B 2 SI3O2="+7L*JB * B 2 ?D. B2. 7I3J&,D7O*JB * B . 7K3I2+*MBJ. J 60B +IV/K6)7P[I*(	I*MBJ. J 21* 6=CII7V*JB * B 2 ?G2 ?T. R32MNJ2MNJ* B * B 6 N 7EKA+CCH7P[I+O7T3EWL3M;E7TB +IV3ISN")*M* B *2B27S[A/EF=..OE"8*M* B * B 3I?D"=60*JB * B . 7K/LF+*MBJ* B 
 2 3L2="+7L*JB * B 2 ;I/DB=2MNJ2MNJ* B * B 6 N 7TKA7TB 3I?V3T2-7OCO*MBJ* B 2 R /OJ 29& *=3KL7L*JB * B . 7J3I2+*MBJ* B 2 " 7ECL2=	P3V&(")*M* B * B +IF3H3E+PB)*229*229"263*JB . N22 WH/L7P2-WHL7P*JB * B 2 [I6(OI+EB)*226*224"266*JB . R22 [I2(I3E*(*)B)*227*225
267*JB . V22 SI3O&=*MBJ* B 2 ^ 7OR /OJ "9*M* B *2B63H3E+P6=7P[I*(	J2/WHL7P*JB . ^22 [I2(WH+L7P7S[A+EB)*228*229"269*JB . "22 GS/V7E3H3EP*M* B * B 3ISN"=7I*JB . &22 ?C3N	T3NWU2MNJ* B * B 2 V +NCD+OCF7P[I+O7T3L?OP*MC*M+CB * B * B 7TOE3TZ +OCR3S	U3TKA+LCE7P[I
O7T3EWL3M;ET*M* B * B +IF3ISN.)N .0N,.0N,"2*M* B *3B0+IF3I?D.)Z .8Z,.8N,"1*M* B *3B13ISN2=SIO*M+CB * B * B 7P[I+O7T3EWL3M;E3T& 7SN 7TKO+ECD+ICN7P[I2(;ID6)"J7C*JCC* B * B 2 ?C7MWP+TCE3TWH2 WR7CCI3ROO+ACL+OCF3TWH2 	P7VSO2-3E3EWM+NCT7RCEI*M* B *3B27RCE/IF=6.
/+IV3ISN")*M* B * B 3ISN2=;I3D2-2MNJ2MNJ* B * B 6 V 3PGD+TCE3TWH2 ?T7PJ-+OCW7TCO2 [O2 T7ER 3A3B7EWA*MBJ* B 2 & 3LKA"=60*JB * B 2 GS/V7E2-?T3P&(7P[I6)J*3E	P*MBJ* B 6 R +OP3I	P/V6)7S[AE*MC*M+CB * B * B 3I	N3TGI7L+I3E* 6 OA2 ?C7USN+ECR7FKO2 ?T3P2-7OCO*MBJ* B
2 * 2=GNN*M* B *3B3+IF3J&-7P[I.)N .4V,.3N,"4*M* B *3B4/KB=2MNJ2MNJ* B * B 6 N 7EKA+CCH3C3O3U;M2 ;I6 KT7AON7FKO7MSA3I;O2-GM3T	R7XR *MBJ* B 2 R /ON 26& *=21L*M* B * B +IF3IWH*(	I*-	J. Z3.,V3.,Z3*MBJ. N 25. "=7I*JB * B 2 [I2(3I+A	B. B5.,B5.,Z1*MBJ. N 26N 7OS
7IWNE*MC*M+CB * B * B 3G;E3EGR+TCE3C3O3U;M6 OU3I
N6 WS3B?R3U	T+NCE7FSC2 ;A7DR 3R;A3S?F3RGM3T?I3N6-7AKTI7X*JB * B . 7I3L2+*+/L3N;A"+7J*JB * B . 7I3IWH*(	I"-7N*JB * B 2 [I*(	I. ^3.,^3.,"3*MBJ. N 27& *=/IN*M* B * B /KF=*MBJ. N 28& *=/I3N;A2MNJ2MNJ* B * B 2 N 3A3L6 WS3B?R3U	T+NCE7FSC*MBJ* B 2 N 3A3L2 OF7TB(
I3V7TCO*(	I*,7M"16)"J7C*JCC* B * B 6 KP3EGP+RCE3TWH2 GC3LWL7DZ 7ESC+OCR7P[I*MBJ* B 2 R 3S7U*=:0D60*JB * B 2 SI3O6=*MBJ* B 2 R /OR 21& *=21M*M* B * B 3H3E7PB=+IV3I?D")*M* B * B +IF+KB)*329*329"460*JB . &32 WH/L7P2-WHL7P*JB . B46 OD/U7M7DWS3MR+3BWL2(WH+L	P*
BJ* B 6 B +IV3I?D*+&12=WHL7P*JB . F42 SI3O&=+D7O"1*M* B * B 7P[I*(	L2=R-3S7U*MBJ* B 6 B +IV.16)"16."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=".*MC*M+CB * B * B 3SGT+RCT3M3U7TCI3LOI3A	T+O7N3L?OP*M* B * B +DCO*4B6/IF=",7L*JB * B 6 OD/U7M7DWS3MR+3BWL2(	P3V&
6)R*2(SI+O&)*MBJ* B 6 R /O7L7AOB2(;S+GL7DWS+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 /O7L21V.*-*53H3EP*M* B * B +IF7AOB2(;S+GL7DWS+M&)2-?T+LB)*42
*427"468*JB . ^46 OD/U7M20R."0*M* B *4B8+IF3IGL+BB)*521*521"469*JB . &4. 7I3K2+*MBJ* B 6 B +IV/I6)7DWSM*MC*M+CB * B * B 7TOE3TZ +OCR7LOA3TN 7OWL+M7N7TKEM*M* B * B 3K.="+61*JB * B 2 [I*(7K+LB)*423*423"168*JB . B5. 7I*(7K*1*)3L&+N7D*JB * B 6 OD/U7M3T&(")*MC
M+CB * B * B 3C7O7PSU3E: +ECW7TCO2-3E3EWMN7T*JB . F56 OD/U7M7DWS3MR*3BWL2(GS+V	E*MBJ* B 6 R /O7L21V.*-*57AOB2(;S+GL7DWS+M&)*MBJ* B 6 R +OP/J6)7TCO*(	J2+;S+GL7DWSM6)*JB * B 2 [I2(KA7SR(+OP+J&)2-?T+LB)*522*522"563*JB . J52 ?T3P*(.)B=".*MC*M+CB * B * B 7TOE3
Z +OCR7LOA7TR +O7P7TKEM*M* B *5B33J*="-61*JB * B 2 [I*(	J. R5.,R5.,N32MNJ* B * B 2 V +NCD+OCF7TCO2-?LO7P"J7C*JCC* B * B 6 KT7AON7FKO7MB 3I?V3TN-7OWLM7N*JB . R5. 7I3ISN"+7L*JB * B 2 	P3V&(*)6="16.*JB * B 2 ?D. V5. 7I212,*MBJ* B 2 * *=/IL*M* B *5B57P[I*(	I6
B-+IV+J*)7RCEI*MC*M+CB * 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)"06.*JB * B 2 ?D. Z5. 7K212,*MBJ* B 2 & /S7E3K*+*MBJ. V 66R 6(OI/E6)3T&(+S	E2
GS+V+E7P[I*(	K*MBJ. V 27* *=/JL*MC*M+CB * B * B 3USP3AWT2 ;I7DE2-WV3C?T3R& H7E*JCC* B * B 2 ;I3I	T3A	L+ZCE3CGH3ROA7TKE7ISS7IOC*MBJ* B 2 * "=60*JB * B . 7K"0*M* B * B 3IWS"=60*JB * B 2 SI/OB=2MNJ2MNJ* B * B 6 N 7TKA7TF 7UOE3T?I3N2-7OCO*MBJ* B 2 R /OZ 21& *
21L*M* B * B /L7L3I2+*MBJ* B 2 & 3LKA2=I3E2(L6)*JB * B 2 [I2(I3E&(2)&-7P[I.)V .9V,.8V,"9*M* B *5B83IWS"=7I*JB * B . 7J3IGLB*M* B *5B9+IF3IGL3B&-+N	D. F6.,B6.,F6*MBJ. Z 20& /D7OI*M* B * B 3K&=+HEI6)*JB . F62 ?C3N	T3NWU2MNJ* B * B 2 V +NCD+OCF3QWU3S	T+O7N3L
OP*MC*M+CB * B * B 3SGT+RCT3MSO3I	F7CSA3I;O*MBJ* B 2 & 3F.(.)Z .2Z,.2Z,"3*M* B *6B23IWH2(SI/O6)3I	PV*M* B * B +IF3IWS.)Z .7Z,.7Z,"5*M* B *6B3+IF3ISN*-	J. R6.,Z6.,R6*MBJ. Z 242 3L2=*+/L3L:+A7N*JB * B . 7K3K2+L*M* B * B 3I&=7P[I2+3L*MBJ* B 2 & 3LKA2=I3E.(")
M* B * B 3IWH*(	K2=I3E&(")*M* B * B 3IWH*(	I2=3IA7B*JB * B 2 [I6(OI+EB)*627*627"665*JB . V62 SI3O&=+D/OL*M* B * B 3I&=+S/EL*M* B * B 3IWH2(SI/O6)J*M* B * B 3IWH*(	I2=;ID*M* B *6B63IWH6(OI/E6)"0*M* B *6B7/L7L3L2+*MBJ* B 2 * 2=3L2+;ID*M* B * B 3I2=3L2+6+CII
V*JB * B 2 3I/A7B3IWH*(	I*MBJ* B 2 & +HE/I6)3IWH*(	J*MBJ* B 2 & +HE/J6)3IGLB*M+CB * B * B 3ESN2 [O2 ?M3D[I3IGC3T?IN*MC*M* B * B +GCO+TCO"8*MC*M+CB * B * B 7SSE6 KE7RKO2 GP3R7A3EWT3R& /E7R*-B13S;I+CCE+NCO3S	U3TKA+LCE7P[I+OCT+ICS7FWON7D*JB . "62 WI+R6="1*MC
M+CB * B * B 3EGV3LGU+TCE3F;I+ACL3TKA3LGEU*M+CB * B * B 3C7O7PSU7EN 3AWV6 OA2 GM3X7I+UCM7EKR+OCR+OCF7ACP7RO3IGM3T?I3NF N7D*JCC* B * B 2 WH+LCP+ACS3ASD3I	T+VCE3C;O3SGT3NWC2 ?F7RJ 7EWS3L	T+NCG3CWO3F	F3CWI7NOT*MBJ. Z 69N 3AWV*=:0*MBJ* B 2 " 7ECL*=:0*MBJ* B 2
. *=/L3L2+*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,
7V*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*1
)+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 * 
 2 ?G2 ?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

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