File AHI.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 AI*MC*M+CB * B * B 7PKU7POOE*M+CB * B * B * B +TCO7ISN7ECR3OGL+TCE3F;U3C	T+OCN3V3A+UCE3YZ +OCR3A^ 3IWV3NF 7RWG3M;E7TZ 7AWL
*M+CB * B * B * B 7XV 3S;I3GF 2 	G3V;E2 GT3BWL2 F(+R3G3V3A2)> 3FF 7RWG3M;E+TB,3F;U3C	T+O3N2 ;AD*M+CB * B * B * B 7DKE3IGV7T[I7EZ 7AWL+E;S2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LF +HCI*(3X3A
R2,GV7L&,2,SN+I3M7EOP2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CX* B * 6 2 T3EF 7RWG3M;E7TZ 7AWL7EN 3POE3I	F+ECD+BCY7ICN+U;T2MNJ* B * B * B 2 F +RCG* B 6-R +HCE7ICN+UCT3VOE7TKO2 R(3IWM3N	S+OCN3N	D+MB)+OCF3A
R3UWMN7T*JCC* B * B * B * B * B * B 2 GV3LWU3S> 7FR +HCE3TKA+LCE2(?N3TR 7ESS7R	O+E	D".*M+CB * B * B * B 3V3A* B * B-3TWH2 ;I7PSU2 WV3C?T+R" 3D7I7EON3I;O* *23N	D+MB)+OCF3F;U3C	TO7N*JCC* B * B * B * B * B * B 2 ;A3DR 3E	R7VSA3IWV2 GV3LWU3S> 7FR +HCE3TKA+LCE
(WD7SKT3OWY+D:)2MNJ* B * B * B * B * B * B 2 Z 3UON3T?I3NF +NCD7DKE3IGV7T[I7EZ 7AWL+ECS7MOU3TJ 7EN 7TKO+ECDI7N*JCC* B * B * B * B * B * B 2 GP7IOR6,R 7HSA2 WM7AON2 WB3G;I3N;I7G^ 3IT6 WF7NSC3I;O2 GV3LWU6 SA2MNJ* B * B * B * B * B * B 6 B 3O;I3TF +RG*1B)3EW
+RCY3F;U3C	T+OCN3V3A+UCE7MOU3TJ 3EZ 3O3L3OWWD*M+CB * B * B * B * B * B * B +BCY3TWH2 GV3LWU2 [O2 WD7R[I3A	T+VCE+ACT3TWH2 GS+MCE3P	O+N;T2MNJ* B * B * B 6 & * B * B 6-R +HCE7ROE7USL3I
N2 ;I7TKE3P3O3AWT3DZ 3UON3T?I7NZ 7AWLE6.*JCC* B * B * B 2 SN+ICM* 6 2 ;A2 ;I7PSU2 GV3LWU2 W3IC6 CS3E	C3FWI7SR +HCE3N7U7BKE2 [O2MNJ* B * B * B * B * B * B 6 B 3O;I+TCS+ICN3TKA+LCE6(KA7GZ,+A	L".*M+CB * B * B * B 7EOP* B * B-+ACN7ICN+UCT3C;O3SGT+NCT3W	H+CCH+
CS3UWS3DF 7SV 3PWP3RJ 3O;UD*M+CB * B * B * B * B * B * B 7FKO2 T3EF 3B?S7LSU3EV 3R?RR6.*JCC* B * B * B 2 WI+RB * 6 * CA7ROE7USL3I
N6 KE7RKO2 GP3R7A3EWTR6."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B . F(6)R 3A3B+E" 3A
R2,GV+LB)3S?H3USL2 WR3PWR3S;E3TF 2 	S3N3G7EZ-7AWLE7D*JCC* B * B * B * B 2 Z 3UON3T?I3NF +NCD3S?H3USL2 WB6 SS3OWR3D& 7NN 3UC* CA7W	A6,R 7HSA2 TE*M+CB * B * B * B * B 2 	D3SGT3NWC3SF +BS3A
R*(	I*-	X2 ;I3CWR3AWS2 	W+TCH3ION3RGE3S;IG*M+CB * B * B * B * B 6 WS3BOS7RCI3T& 6.R 3O^ 3EWN7RSA7ER 7HOI6 KO7DKE2 ;I2 GT3BWL2 F(+R3G3V3A")6,*JCC* B * B * B * B 6 N 7UKB7OSU3IWN3SF 3T
S2,F 3T7S6 KO6 SA+SCE7CWO+LCD+BCE3UWS3D& 3NF 2MNJ* B * B * B * B * B 3PWR3V?I+UCS3SGT+G;E2MNJ* B * B * B * " *2B)+NCO7ASC3I;O2 WB3SSI+ECS7EKR+OCR7MOE3S
A3E& 3NN 3AWS2 SN+ICM7LOES*M+CB * B * B * B * B 2 T+ACN"16.*JCC* B * B * B . N(2)& 3NWT3R?P7LSA3I;O6 OI2 WT3R	M7NSA+ECD7ESI7HKE2 [I2 T3ER 3I[F3EWR3NWC2MNJ* B * B * B * B * B 7BSE3WWE7NR +WCO3SOU7COE7S[I3E& 3NWT3R?P7LSA+ECD3V3A7UOE6 OI2MNJ* B * B * B * B *
B 7AOB7OWL3T3E3Y2 7EOS2 T+ACN3T3O3EGR3NWC6 CE+SB,+OCR+ICF3TWH2 KA3S3O3UWT2MNJ* B * B * B * B * B 3V3A+UCE+OCF3T	H3SR 3I[F3EWR3NWC6 SS7OOP2 	D3M;I3IS3I
N2,> 3RF 3FWTR*M+CB * B * B * B * B . J(2*SN+I7M*2B)3SWT+P;S6 WF3RT+ECR+ICT+ICS7TKE3M;I3AWT3D& 7FR H7E*JCC* B * B * B * B 6 B 3ROO7EWD+RCE7DOI7C[O7EOR6 
T3OF 7RWG3M;E7TZ 7AWL+ECS+ICN3VOE7TKO6 KAG*M+CB * B * B * B * B 2 W3IC6 KA3E& 3D;E3TOI+A;L2 WD3P;E3D;E3T> 7NR 7HOE3EZ 7OKU2 GC7SOE",*M+CB * B * B * B * B 6 KE7RKO2 GP3R7A3EWT3R& +ECR+ICS3CSO+ECD+ICN3TWH2 ?F3L?L3W;I3GZ 3O7R2MNJ* B * B * B * B * B 2 WI/RB=*
B-+ICT7WOA2 ?P3S	S3BWL2 ?T2 WR3AC2 T7EJ 7EWQ3IWRD*M+CB * B * B * B * B * B * B * B 2 OA7CKU7A	C2 :(3OV 3R?R+R:)2MNJ* B * B * B * B * B 2 WI/RF=* B-+ICT7WOA2 7I7POO3SKI+LCE+TCO3RGE+CCH3TWH2 WR3Q	U3RSE2MNJ* B * B * B * B * B * B * B * B 3AOC3UGR+CCY3BOE7AOU
E> 7FJ 3O;U3D;I3GV 3R?R+R;S2MNJ* B * B * B * B * B 2 WI/RJ=* B-+ICT7WOA2 7I7POO3SKI+LCE+TCO3CWH+CCK3AOC3UGR+CCY3BOE7AOUE*M+CB * B * B * B * B * B * B * B 2 SN+ICM+ICS7LOE7SR 3H;A* 226 KO2 T7EJ 7EWQ3IWR3DF 7CWC3ROAY*M+CB * B * B * B * B * B * B * B 2 ?C3US
2 ?N3TJ 7EJ 3EOA3HSE6 	B2 WM7AON2 [O2 T3E^ 3IWVN*M+CB * B * B * B * B * B * B * B 2 GT3BWL2.: 3D7I2 S3O3U3DJ 3E& 7NKC7EOA+E;D2MNJ* B * B * B * B * B 2 WI/RN=* B-3TWH6 KP3OWC7DKU3ER 3IOS3OWV3RSE6 
T3OF 7RWG3M;E7TZ 7AWLE7S*JCC* B * B * B * B * B * B * B 2 & 7NZ 7ESC+OCR3A
R2 W3IC6 KA3E& 3D;E3TOI+A;L2MNJ2MNJ* 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 7ISN7ECR3OGL3T?I3N& 3SR 3OWN6 	B2 WM7AON2 [O2 	A3TWK+NCS3SC3EWM2 [O2MNJ* B * B * B 
 " 3E7R3IWT2 ;I7TKE3P3O3A	T+O;N2 ;O2 WR7TKU7N& 2 ?C3NGT7ION2 ;A2 ;I7TKE3P3O3AWTD*M+CB * B * B * B 3F;U3C	T+OCN3V3A+UCE+ACT3P	O+NCT+XB,3W	H+CCH+ICS+ICN3TWH2 WS3NWS2 [O2 WR7MKAK*M+CB * B * B * B *(&36 CO3T7I+ACL7WSI7HJ 7ECS7ESC2 ?T2 	G3V;E2 GT3BWL2.Z +OCR3R
E3EWR3NWC6,N E7E*JCC* B * B * B * ;F3B".3ISL7EKB3ASN2,& 7NKT7OWD3C	T+OCN+TCO3N7U3E	R3C3A2 ;A7A	L7SOI",*M+CB * B * B * B 3M
C7R
A2-	H+L3L2 WN7W& 3O/R2/?T3R;O+T?O3L;O3D;O.,F .9Z56,B /PN.*164.3^12,F N7D*JCC* B * B * B 2 WG3RS7ION+K?Y7L[E3IWN2,F 3I/T+E7N7HKE7MSI3E& 3NWT3R?P7LSA3I;O",*M+CB * B * B * B 3JOA+MB,3V3O..F12,& +S;S*3" .1Z9*42)6 CP..V3.2N-*5:62MNJ2MNJ* B * : *.:.*.:.*.:.*.:.
.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE3A	H*(3X3A
R2,GV7L&,2,SN+I3M7EOP2,WIR6)"J7C"J7C*JB * B 2 	D3M;E3S?I3NF +RG*12)3V3A*(&1*MBJ* B 2 & /E7R"2*M* B * B /H623XF-+RG"16)*JB * B 2 [I2(SN+I7M.1J)*,21"3*M* B * B17YZ=+AL*1.)3V3A*(&2.*KH*MBJ* B 62J 7EWTR7N"J7C*JCC* B 2 WV3C?T3RF +RCG7HOA2 ?M+RCE3TGH/NF 2 3E3EW
+N;T2MNJ* B 6 R +HCE7FKI+SCT3SWT7PB 7RCE3AWR7SZ 7ESC+OCR3V3A6 WS+CCH3TGH3TF 3I/T+ECN3SC3EWM2 GC3NJ E*M+CB * B 3UWSD6.*JB . N . 7I"1*M* B * B +DCO25* *=223N	DM*M* B * B /H61H62*JB * B . KH*=7X3A
R*(	J*MBJ* B 6 & 2=GV3L&(")*M* B * B 3V3A*(	I*=/Y3V3A*(/I*1*)H61*JB * B . 7H+H61H62*JB * B 2 [I*(	H.4F,.3R,*MBJ* B 64Z +AL/IF+6)&=6+Z(+AL/IJ+6)&-2)"*21"/*MBJ* B 25& *=/I"2*M* B * B 3V3A*(	I2=GV3L&(6)Z++AL/IF+2)"*"2*M+CB * B 3ESN2 [O2 	F7RSS6 SSE7P"J7C*JCC
 B 6 KP3EGP+RCE7ASI3K;E2 OS3H7EE*M* B * B 3D3E/T62"06.*JB * B 2 WI/N7D/IF-2MNJ2MNJ* B 6 N 7TKA3TF 3I/T+E7N3L?OP*M* B * B +DCO29& *=213I;ED*M* B * B 3D3E/T613D3ET62*JB * B . 7Y3V3A*(&1*MBJ* B 2 6 2=&(*+&3"/62*JB * B . GH6=KA3G6(")*M* B * B +DCO26* *=21I*M*
B * B 3K&=*+61J*M* B * B +L"=/KF+.)J/*MBJ* B 2 " 6=KA3G2(2)"-"1*M* B * B +IF/HZ).,R1",66*JB . Z 2 GV3L.(*)"=3V3A*(	K6*"(.-GH6)Z-+AL/KF+*)"*3XF-+RG+L&)2)"/*MBJ* B 2 R 7ESL22F=+BS7YZ-+AL*1&)*MBJ* B 2 & 3FR(7ESL22V-+P	S*121*121"7*M* B * B7+IF/IV-*)29.8",*MBJ
 B 28& 3FR(7ESL22R-7ESL.1&).,J1.,J1*MBJ* B 29N 7OSN7IWNE*M+CB * B 3ESN2 [O2 	A3TWK3N2-7OCO2MNJ*MBJ. F 60& 2=GV/LF(")*M* B * B 7RSE3U;R2MNJ2MNJ* B 6 R 7HKE3E& 7SN 3U[F3I	C7ESN2 OA7CKU7A	C2 	W3T	H/NJ 2*SN+I7M22& 7TKE3A	T+OCN3SWTP7S*JB . F12 WI/RB=*MBJ* B 2 
 3O?T. B12MNJ2MNJ* B 6 R 7ESS2 GV3LWU2 WD/LKT6 SS7ASR3S> 3S	C3LGL3T;IG*M* B *1B27IKE"=61*JB * B 2 WR7TKUN*MC*M+CB * B 3TWH+RCE3AWR6 
T3O& 3D;E3TOI+ACL3A
R3UWM+NCT3V3A7UOE2 ;I2 WV3C?T3RF R7G*JB . N1. 7Y3V3A*(&1*MBJ. F 24& /E7R"3*M* B * B 7RSE3U;R*MBJ* B 2 V N7D"JBZ"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"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