File APCH.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 CAC7H"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 WS7TV 3P: 3O7R+ACL7EWQ3A	T7OON2 [O2 WL7ASS6 GS7UKA+ECS7FSI2 ;I2 WT7ROM2 
O2MNJ* B * B * B 2 N 3HKE3YS+ECV3P3O3Y?N3MGI+LCS7FKO* CA7G[I+ECN7DOI3CWR+TCE3F;U3C	TO7N"J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 CA+CH7DSA3I:,6,CI2,SX.,CX2,?W+R3K7IKE")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B 7DSA+IB 6-Z
7ESC+OCR+OCF3D7I7EON3I;O* *3+N" +OCR3D7I7EON3I;O* *2/NF+")*M+CB * B * B * B * B * B 2 N 7OSN3A;I3I
N2 T3E^ 3IWV3NF 7RWG3M;E+T3S2 ?F3L?L3WSE6 	B2 TE*M+CB * B * B * B * B * B 2 Z 3UON3T?I7NZ 7AWL+ECS3ASN* CN2(WR3SWP3C	T3V3E/YF 6)^ 3E
IH7T*JCC* B * B * B * B * B * B 3V3A7UOE6.R +HCE3C;O3T;E3T> 7FZ 7ESC+OCR7DSA7IJ 3EGM7ION2MNJ* B * B * B * B * B * B 2 ;U3CGH3NWGD6.*JCC* B * B * B * CN* B * B-3N7U7BKE2 [O2 	G3V;E2 ?P7ISNS*M+CB * B * B * B +ICP* B 2-R 3IWM3N	S+OCN+OCF3LGE+SCT7SWQ3AWR3SZ +
3T* ;I+EB.3N7U7BKE2 [O2MNJ* B * B * B * B * B * B 2 C7E	B3SWH7VB 7O	L3N7O3I3A7SV 3SSE6 OA6 WF3NGD3M;E3T3A6 WF7NSC3I;OS*M+CB * B * B * B * B * B 2 & 7PN 7HWO+LCD7NSO6 E3CWE3D: 2MNJ* B * B * B 6 " +DB * 6 2 WR3S3U3T;A3T6 7USL3I3P3IGC7T[I3EN 7OON3T;A3TZ +OCR
L;I7EKA2MNJ* B * B * B * B * B * B 6 KT7AON7FKO7MSA3I;O2 [O6 KA3G7U7ESN2 GR3NWG2MNJ* B * B * B 6 " *0B * 6 2 WR3S3U3T;A3TF 3D	D7T[I3EN 7OON3T;A3TZ +OCR3L;I7EKA2MNJ* B * B * B * B * B * B 6 KT7AON7FKO7MSA3I;O2 [O6 KA3G7U7ESN2 GR3NWG2MNJ* B * B * B 6 ^ 3O/R
 6 2 ?W3R	K+NCG3S?T3R
A3E> 3FR 3IWM3N	S+OCN6(CI*+&12*&(/PJ+.)J/2MNJ* B * B * B * B * B * B 2 ;O2 WR7TKU7N^ 3O/R2 ?C3NGT7ION2 T7EN 3Y7M7EKT+ICC3CWO3F	F3CWIN7T*JCC* B * B * B * B * B * B 7MSA7RI2 [O2 T3E: 3O7R+ACL7EWQ3A	T7OON2 ;I2 ?C7MKP7EOS+ECD7FKOM*M+CB * B * B * B * B * B 2 Z
3O3L3OWW3D& 3MWM3DGI3T3E3YJ 7YJ 3IG3T" 3ASN2 	SD7E*JCC* B * B * B * B * B * B 3ASN6 GS7UKA7EN +UCM+OCF3F;U3C	T+OCN3V3A7UOE2MNJ* B * B * B 2 & +ECR* 6 2 WR3S3U3T;I3GV 3R?R7RB 3AGR7MSEE7R*JCC* B * B * B * B * B * B 7IKE* 6=216 3E;A3SZ 3O7R+ACL7EKR7OOR2 ;I2 
D3M;E3S?IN*M+CB * B * B * B * B * B 2 & +ECR.=B 2 WM7AON2 ?N6 KE7RKOS*M+CB * B * B * B * B * B 2 & +ECR.=F 2 WM7AON2 ?C3ION3I	D+NCG3A
R3UWM7NOT2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 : 7O^ 3E
I7HOT6 KA7EV 3SSE2 [I2 T7EZ 7AWL3E> 3FR 3A	T*(*2/NF+2)& S*M+CB * B * B * B 7NSO2 ?P7SSI3IWV".*M+CB * B * B * B 3EWX7CSU3I;O2 [O6 WS3B?R3U	T+NCE3AOP3H& 3SF 6 KP3EGP7RSA7O	R6 SS+ECP7FKO2MNJ* B * B * B 2 N 3AOL3UGL3T?I3N> 3F2 7EOA7TN 3QGU7ROE2 	F+TCS+ICN3CWH
BOY7H[E2 ?P3L;Y3O	M7AOL2MNJ* B * B * B 2 & 7TN 7HWO+LCD+BCE3F3O7L
O+ECD+BCY3EWX7CSU3I;O2 [O6 WS3B?R3U	T+NCE3A[PS*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 T3E2 7EOA7TN 3QGU+RCE7FSI6 OI2 WD7TKE3M;I+ECD3U	S+NCG3CWH7BOY7H[
2MNJ* B * B * B 6 B 7O	L3N7O3I3A3SF 3SZ 3USN3AWM3NGT3LZ 3UON3T?I7NN 7YSS+E;M2MNJ* B * B * B 6 R +HCE7MSE3HSO6 OI2 	D7SWC3SWS3D& 7NR +HCE7ASR3I3CE*M+CB * B * B * B 7AR.2.WB7RSZ7IOS2,2 7EOA7TN 3QGU7ROE2 	F3T	T+NCG+TCO7IKR7EWG7LKA+LCY3SGP3CSE2MNJ* B * B * B 
 R 3AGT6,N 3I7A2 WR3VWI+WB,3V3O*.266 OI/SN..,F .9R66,B +PB..2N0.-J2"76."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3EF 3PC2(GD+T3I3N&,7P",7D",60^,3O/R2,WIR6)"J7C"J7C*JCC* B
* B 3D7I7EON3I;O+ECD3D7U+MCY7VKA3IKA7LOE*MBJ* B 2 R 3IWM3N	S+OCN7DSA/IF(6)^,3O/R*(&12MNJ2MNJ* B * B 2 N 3HOE3KZ +OCR7FKO3M3A6 KE7RKO3S& 7NN 3POE3I	F+ECD3D7I7EON3I;OS*M* B * B +IF/NF-.)&1.,B2",61*JB . F 2 [I6(CI.)&1.,&1",62"J7C*JCC* B * B 2 WS3AOR7HN 3M3A7
OE3TF +NCD7LKA7GOE3TF 7RWG3M;ET*M* B * B2+IF+I7P/NN)*,23"169*JB . N 2 GX2=GD+TI"16)*JB * B . CX2=GX*MBJ* B 6 " /EB=".*M* B * B +DCO27& *=21N*M* B * B /X7M7DSA3I&(")*M* B * B +IF+X7A+X	M.5V,",64*JB . R 2 GX2=7X*MBJ* B 25& 7F"(60"-/MZ)*,27"7*M* B * B6/X60X7
*JB . ^ 2 ?C3N	T3NWU2MNJ2MNJ* B * B 2 & 7NSI3I3A3IWZ2 GC7LWC7LSA3I;O2 [O2 ?N3RGM3LV 3QGU3T?IN7S*JB * B 2 SX.=CX2-GX*MBJ* B 2 6 2=&(+P"*+I/P*1&)"/62*JB * B 2 WI/N7D3M&+/PF+*MBJ* B 2 6 /T62+I/PI7P*JB * B 6 SM.27M/MKT"-61"J7C*JCC* B * B 2 WS7T^ 3O/R3I
N6 SS3OGR+GCE3ASN2 	R7GSH2 GH+NCD3SSI7ER 7O* 3E?R*MBJ* B 2 R /O" . 7I21&,P*M* B * B 3J6=+T62I*M* B * B 7WKO3K*(.)B=".*M* B * B 7WKO3K&(.)B=".*M* B * B 3K6="+7I*JB . " 2 ?W+RK/K6)"06."J7C*JCC* B * B 2 C3E/C2 ?F3RR 3EWG7NKE3AWT6 KA3G7U7ESN2 GR3NWG*MBJ* B 2 
 7F"(/DJ).0J,.0&,2MNJ2MNJ* B * B 2 N 3AOL3UGL+TCE3C;O3SGT7NOT2 ?F7RJ 7EWD3C	T+OCN+OCF3A
R3UWM7NOT*MBJ* B 69" *06=.(CX2+GX6)"/D*M* B * B /X7D*2>.X7D*JB * B 6 WS/MB=".*MC*M+CB * B * B 3SGT+RCT3GWR+ACT3L?O3P> 7VKE2 3A3L^ 3IWV7NB 3O;IT7S*JB * B 2 ?D. V1. 7I21:,*MBJ* B 6 R 2=GD+TI+I*)+X/DX60*JB * B . 7J3I:+*MBJ* B 2 R 3FR=3A	T*(	J2MNJ2MNJ* B * B 
 N 3AOL3UGL+TCE3ASN6 SS3OWR2 GV3LWU3S> 3FN 3HKE3YS+ECV3P3O3Y?N3MGIL7S*JCC* B * B 2 ?F3RF 7RWG3M;E7TR *MBJ* B 6 " /AF=".*M* B * B /X7MT*M* B * B +IF7DSA/IJ(**/N*1&)*121*121"160*JB . B1. 7J3J:+*MBJ* B 6 " 3AR=3A	T*(	J*MBJ* B 6 " 7MR=2*GX*MBJ. F 61R *=/TT*M*
B * B 3S7U6=WS3MR+3FR*7F"*A*M* B * B /D7F+D/FD7F*JB * B . 7J"1*M* B *1B23K6="+7J*JB * B 2 ?W+RK/K6)7WKO3K.(2)R+7F"*A*M* B *1B37WKO3K*(6)^=3O/R*(	J2+GX*MBJ* B 2 & 3F*(6-SM*2	M*124*125"165*JB . R1. 7J/JF+*MBJ* B 6 " 7ER=2*7X2-GX*MBJ* B 6 " 7A"=M*M* B * B /X
MX7E*JB * B 2 [I*(7J+I	P*122*122"163*JB . V12 ?C3N	T3NWU*MBJ* B 6 ^ 3O/R2(WI+N	D6=WS7MN+U7M"J7C*JCC* B * B 2 GC7LWC7LSA3E6 7AKT+ICX+OCF7NKO3M3A6 GE7USA3I;OS*M* B * B /L7LM*M* B * B /K7K/MKTM*M* B * B /J7J"1*M* B * B 3K.=K*M* B * B +DCO*1B8/JF=",7M*JB * B 
 ?W+RK+L	L2=?W+RK+K.)7WKO3K*(J6)*JB * B 2 3L2=3L"-61*JB * B 2 [I*(7K+J	J*126*126"167*JB . Z12 /K2=/K"-62*JB * B . 7KK7K*JB * B 2 +J"=61*JB * B 2 ?G+TCO"168*JB . ^12 +J2=+J"+61*JB * B . 7K/KF-*MBJ. F 28N 7OSN7IWNE*M* B * B 7IKE"=60*JB * B 2 WR7TKUN*MC*M+CB
* B * B 7EKR+OCR7RSE3U;R2 ;I2 GC+SCE+OCF7FKO3M3A6 KE7RKOS*M* B *1B97IKE.=F-*MBJ* B 6 J 7EWTR7N"J7C*JCC* B * B 6 KE7RKO2 WR7TKU3N& 3NN 3AWS2 [O2 ?C3ION3I	D+NCG3A
R3UWM7NOT*MBJ. J 20& /E7R"1*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

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