File APFS.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 CAF7S"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 WP3R?F+RCM3S7Y7MSE3ROI2 GF3C?T7R+I3A	T+OCN+OCF3TWH2 GM3T	R3X> 7FR +HCE7N
O3M3A2MNJ* B * B * B 2 V 3QGU3T?I+NCS3F3O7L
O+ECD+BCY3C3A3C3U3A	T+OCN+OCF3TWH2 WL7ASS6 GS7UKA+ECS7FSI2MNJ* B * B * B 2 > 3P	T3OGN7L	L2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LF 7POF2(?W+R3K+I3P3IWR3S&,+O3P7EOP6,SE3A&,+E	R2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 6 ^ 3O/R* 6 2 	G3V;E6 	S3MWM3T	R3CN 3O[E3FOI3I;E3T6 7AKT+I3X6 SS3OWRD*M+CB * B * B * B * B * B 2 N 7OCM7ROE3SSE2,& 
.CE7UCP+ECR3T	R3A
N3UGL7RB 7ASR2 ?C3L7U3N	W+S;E2MNJ* B * B * B * B * B * B 2 T3E^ 3IWV7NJ 3IG3T" 3ASN2 	S+DCE3OOC3U	P+ECS3TWH2 WN+XCTI7P*JCC* B * B * B * B * B * B 3LOO3A	T7OON2 ;I2 ?W+R;K2 T7EZ 7E	R2 GL+SCT3C7O3P;O7ESN2 [O2 ?WR7K*JCC* B * B * B * B * B * B 3C;O3T	A+NCS3TW
6 GS7UKA7EN +UCM+OCF3F;U3C	T+OCN3V3A7UOE. CE2MNJ* B * B * B * B * B * B 2 T+ICS3SC3EWM2 [O6 SS3OGR+GCE3A3L3OGC3T?I3N& 7SB 3RSO3UWC3DV *.;G2MNJ* B * B * B * B * B * B 6 	B6 WS3B?R3U	T+NCE3A3PL6.*JCC* B * B * B * B * B * B 3TWH2 	G3V;E2 GM3T	R3X& 3SZ 7ASC3O
R3D& 7NR +HCE7FKOM*M+CB * B * B * B * B * B 6 R 3R;A3S?P+SE+T*)3TF +NCD3TWH2 	G3V;E2 	R7GSH2 GH+NCD3SSI3E& S*M+CB * B * B * B * B * B 2 R 3I	V3DSE6 	B6 KT7AON7POO7ER(")6.*JCC* B * B * B * B * B * B 3TWH6 CU7PKE6 KT3I;A3G3U+ACR3FOA7TKO* CT+ICS7RSE3U;R+ECD+
CN7WKO3K& F*M+CB * B * B * B * B * B 2 & +OCP7EWQ7AOL2 WZ+R;O2MNJ* B * B * B * B * B * B 2 ;I2 GC+SCE+OCF3N;O7ZKE3O& +OCP3TWH2 GC7LWC7LSA+ECD3S3O3U	T7OON6 KAE*M+CB * B * B * B * B * B 6 N 7TKO+ECD+ICN3TWH2 ?C3L7U+NCS+OCF3T	R3A
N3UGL3RF 3RGR7Y^ 3O/R2 [O2MNJ* B * B * B * B * B * B 2 ?C3RWR3S?P3N	D+NCG3D7I7EON3I;O2 ;A3DV *0B +ICS7RCE3LOA+ECD+BCY3TWH2MNJ* B * B * B * B * B * B 6 GS7UKA7EN +UCM+OCF3TWH6 KE7RKO3SZ +OCR7FSI2 [O2 	D3M;E3S?I3N& 7ROE".*M+CB * B * B * B * B * B 6 R +HCE7T
O+ACL3D7I7EON3I;O2 [O2 ?W+RCK+ICS6(CI*+&12*&(/PJ+.)J/2MNJ* B * B * B 2 & +PB * 6 6 WN3MWB3R> 3FZ 3USN3AWM3NGT3LZ 3UON3T?I+NCS3UWS3DZ +OCR3LGES7T*JCC* B * B * B * B * B * B 7SWQ3AWR3SZ I7T*JCC* B * B * B 6 KI+ECS* B-3D7I7EON3I;O2 [O2 GC7LWC7LSA+ECD3LGE+SCT
SWQ3AWR3SZ +I;T2MNJ* B * B * B * B * B * B 2 WL3T: *1B,+N222 WD7NSO7ER +HCE3F3O7L
O3I
N6 WN3MWBR7S*JCC* B * B * B * B * B * B +NB12=6 3A	X3M3A2 	D3M;E3S?I3NZ +OCR3W	H+CCH+NCO7LOO3S> F*M+CB * B * B * B * B * B * B * B 2 	S3G	N3FOI3AON7E^ +ACS3ISN3IGC3TSE6 WD3R;I3GZ 7ASC3O	R7ZSA3I;O2MNJ* B * B * B * B * B * B . KN* B=3SGM3LWL+SCT3D7I7EON3I;O
 ?F7R^ 3HOI7HR +HCE7SWQ3AWR6 WS3M> F*M+CB * B * B * B * B * B * B * B 2 T3EV 3R?R+RCS3DWO3S: +OCT3EOX3ESE2 WT/S7T7AOB6(SE3AZ*+S	Q2MNJ* B * B * B * B * B * B 2 T+ECN3IWR3S6=3I?N6(CI.,GN2)& 3F& +OCP+ICS3N;O3N
E3A	TV7E*JCC* B * B * B * B * B * B 3ASN2 & 7ROE2=	M+NO+I3P+N21+N&22 [I2 ?I3P& 3S: 3EGG7T[IE*M+CB * B * B * B 7ICO* B 2-& 7NWP7TB 3AGR7MSE+ECR7FKO2 WS3LOE3T?I3N> 3F> 7PKE3A	TO7N*JCC* B * B * B * B * B * B 7ICO* B=206 3E;A7SR 3RGI7NWG7LKA2 GF3C?T7R+I3A	T+O
N2 	D7VOI3I;O2 [O2MNJ* B * B * B * B * B * B * B * B * B 3TWH2 	R7GSH2 GH+NCD3SSI3EJ 7YR 3R;A3S?P+SE+TB)3ASN2MNJ* B * B * B * B * B * B * B * B * B 3C3A3C3U3A	T+OCN+OCF3TWH6 GS7UKA7EN +UCM+OCF7EKR7OOR6 OI2MNJ* B * B * B * B * B * B * B * B * B 7PKE7FKO3MS
2 ;OL7Y*JCC* B * B * B * B * B * B 7ICO* B=*+B1+OCR*-B13MGE+NCS3TWH2 ?S7LSU3I;O2 [O2 	D3M;E3S?I3N& 7ROE2MNJ* B * B * B * B * B * B * B * B * B +ICS3C3A3C3U3AWT3DF 3D	D3T?I3N3AL7Y*JCC* B * B * B * B * B * B 7ICO* B=*+B2+OCR*-B23MGE+NCS3A3L2 ?S7LSU3I;O3SZ +
CR3D7I7EON3I;O2 ;OE*M+CB * B * B * B * B * B * B * B * B 6 CU2 ?T6 KI+ECS3AWR2 GC7LWC7LSA+ECD3ASD3I	T3OGN7L	L2MNJ* B * B * B 2 V +PCS* 6 2 WR7LSA3IWV2 ?T7LKE3AON3EZ +OCR7TOE3T> 3N2 7OOS2 [O2 	S3G	N3FOI3AONE6.*JCC* B * B * B * B * B * B 7AN 7EON3I3B7EZ 7AW
3E& 3SJ 7E
T3E;E* :1/EN-2 ;A/DF *.7E"6*M+CB * B * B * B 3EGT* B 6-J 3EGL7T[I7ER 3OWL3R;A+CCE7FKO2 ?T7LKE3AWT7DN 3QGU+RCE3S7U2 [O2MNJ* B * B * B * B * B * B 6 KE7RKO+SB.7AJ 3E3A7ISS+ICC3V3A+UCE+ICS7BSE3WWE/NF ..CE2 ;A/DF *.7E"6*M+CB * B * B * B 7IKE* B 6-J 7EWS3LGT+N
T7EKR+OCR7PKA3AWM7TKE2MNJ* B * B * B * B * B * B 2 WI/R6 *-B13MGE+NCS3N;O7POO3I	T+VCEI7P*JCC* B * B * B * B * B * B 7IKE* B=206 3E;A3S: 3O2 7OOS2 [O2 	S3G	N3FOI3AON3ER 3EWT3CWTD*M+CB * B * B * B * B * B * B * B * B 2 ;A7DN 3POE3I	F+ECD3T3O3EGR3NWC2 [O6 KE
RKO7SJ 3EOA3HSE2MNJ* B * B * B * B * B * B 2 WI/R6 * B13MGE+NCS7LOO3S> 7FN 3I;G3I	F3C;A+CCE7DSE7ESC+ECDO7R*JCC* B * B * B * B * B * B * B * B 6 N 3POE3I	F+ECD3T3O3EGR3NWC2 [O6 KE7RKO3S: +OCT3RGE3CWHD*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3TWH2 KA3S3O
UWT2 ?T7LKE3AON7EV 3SSE2 ;I7TKE3N3A+LCY7FKO2 WT+SCT+OCN7LOO3S> F*M+CB * B * B * B 3S
I3N[I3IGC3NWC6 OI2 ?T3LF=+BS7EOP2*?W+RK*1&)".*M+CB * B * B * B 3TWH2 KA3S3O3UWT2 ?T7LKE3AON7EV 3SSE2 ;I7TKE3N3A+LCY7FKO2 T7EN 3QGU+RCE3S7U2 [O2MNJ* B * B * B 2 V 3R?R+RCS+ICS7AOB6(SE3AZ*+S	Q".*M+CB * B * B * B 7ICO6 KG7ESA+ECR3TGH/NJ 2 GH7SR +HCE3S7A3EV 3
WF+CCT+ACS7ICO* B="26.*JCC* B * B * B 2 ?I3P2 7EOS2 T+ACN*-B27HOA2 T7EN 3AWM2 [E3FOE3TF 3S& +OCP.=J-".*M+CB * B * B * B 3IWR/S6 * B03MGE+NCS3TWH2 KA3S3O3UWT2 GV3LWU2 [O6 CE3S& 3S: +OCT7LOE7SR 3H;A2MNJ* B * B * B 2 > +NCE3ASN6/KO2 ?W+RK*1B)+ICS7NSO2 ?P7SSI
IWV2 ;A3D>/3R& 3P& 3S: +OCT7POO3I	TV7E"J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 2 N 3AOL3UGL3T?I3N> 7FR +HCE3LGE+SCT7SWQ3AWR3SZ 7IOT6 OI2 ?D+NCE3U	SN7G*JCC* B * B * B 2 C3OWL7S	K7SN 3QGU+RCE3R?O3T6 3ET+OCD7FKO6 	S3MWM3T	R3CZ 7ASC3O	R7ZSA3I;O".*M+CB * B 
 B * B 3TWH2 ;I7CKO7PKO3AWT7DR 7ESS2 ;O2 ?L+SCS+OCF3S
I3N[I3IGC3NWC2 WM7AON2 GEC7H*JCC* B * B * B 2 GR3DOI3ASN6 WM+SCT+BCE3GWR3AWT7RR 3H;A2 T3E& 3NWT3RGN3LF 3B?S7LSUE*M+CB * B * B * B 3T3O3EGR3NWC2 ?T3LF=+BS7EOP2*?W+RK*1&)".*M+CB * B * B * B +ICN7COA3E> 3F2 7OOS2 [O2 	S3G	N3FOI3AON3E& 7NR +HCE3A?B+VCE3S;E+SC
3O3N3YF 2MNJ* B * B * B 6 N 7UOB7YSS+ECM+OCF3TWH2 ?N3RGM3LV 3QGU3T?I+NCS+ICS3S3O3VSE".*M+CB * B * B * B +ICN7COA3E> 3F: 3EGG7T[I3E& +OCP3TWH6 KT3I;A3G3U+ACR3FOA7TKO3IGZ3T?I3N& S*M+CB * B * B * B 7TKE3M;I3AWT7DB 3R7E7AWT3R3E3YV 3IT+ECR+ICF3TWH6 GS7UKA7EN +
CM+OCF3TWH2MNJ* B * B * B 2 V 3R?R+RCS3DWO3S: +OCT3EOX3ESE6 SE3AZ*+SCQ+OCR+ICF3TWH+RCE+ICS3ISN3IGC3T?IN*M+CB * B * B * B 7FKO2 ?L+SCS+OCF3S
I3N[I3IGC3NWC2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE3A[P7S^(3O/R6,CI6,KI+E3S7ICO6,CE3SV,+T3A7IKE")*MC*MC*M+CB * B * B 3D7I7EON3I;O+ECD3D7U+MCY7VKA3IKA7LOE*MBJ* B 
 R 3IWM3N	S+OCN7WKO/KF(")*M* B * B 3IWR/SB=2MNJ2MNJ* B * B 6 R 7ESS2 [O6 CS3E	C3FWI3DR 3IWM3N	SO7N*JB * B 2 [I6(CI*)21.1J,2MNJ2MNJ* B * B 2 V 3R?R7RJ 7EWT+RCN+ICN7COA3E> 3F& 3LWL3G3A2 	D3M;E3S?IN*M* B * B17IKE.=F-*MBJ* B 6 J 7EWTR7N"J7C*JCC* B * B 2 ;I3I	
3A	L+ZCE3FOA7TKO3IGZ3T?I7NB 3ROO7EOS*MBJ* B 22& 7P[I"=60*JB * B 6 CI/P61+I/P"1*M* B * B 7IKE"=61*JB * B 6 SI3E&=3P&*/PGP"/62*JB * B 2 WI/N7D3IWT6+CIP61*JB * B 2 ?T3LF=+BS7EOP2*?W+RK*1&)*MBJ* B 6 R 7ESS2=KA3SV(+T+A7WKO3K&(3ESN")6)"J7C*JCC* B * B 6 SS7ASR2 
L+OCP3OWV3RF +LCL7R
O3S> 7F^ 3O/R*MBJ* B 2 R /OF 21& *=21I7P*JB * B 6 CI/I7V3I	P3V&+*MBJ* B 2 * 3A&=7P[I6-KIE7S*JB * B 2 WJ6=CI+I7V"1*MC*M+CB * B * B 7FKO7MN 3C3A+ACR3P?R3DOU3T: 3ESE+ECD+TCO3MSO7I	F6 WC3RWR+NCT7R
O2 3E3EWM7NOT*MBJ* B 2 * 3K&=7P[I*MBJ* B 2 R /O& . 7K3I&,/PGP*MBJ* B 6 N /U7M"06.*JB * B 2 [I6(KI+E	S.5V,",63*JB . N 2 /J2=/J6-KIE7S*JB * B 2 ?D* B43J*=3A*,E*M* B * B 3S7U6=WS7M^+3O/R*(	J2*?W+RK+J	K*MBJ* B 24* 3K*=/KF+*MBJ* B 25& 3F*(3K&-7P[I*)26.6",2MNJ2
NJ* B * B 6 R 7ESS2 ?F3R2 7OOS2 [O2 	S3G	N3FOI3AONE*M* B * B63S7U2=?W+RK3I	P+V6)3S7U*MBJ* B 2 & 7FN(+U7M3T3O.)J1.,J1",67*JB . ^ 6 WS7MN=7QSR6(WSM6)*JB * B 2 ?W+RK3I	P/V6)3S7U*MBJ* B 6 B /I7V*1>.3S7U*MBJ* B 2 ^ 3O?T" 69"J7C*JCC* B * B 6 CU7DSA3E> +F7F3DGI3
;O+ACL7TKEM7S*JB . " 6 WS+M"=7WKO3K*(+K6)3S7U6)B*I7V*JB * B 2 ?W+RK+J	K6=WSM*M* B * B9/J7K+J/KK*MC*M+CB * B * B 3USP3AWT6 GS7UKA7EN +UCM+OCF7EKR7OOR*MBJ* B 6 ^ 3O/R2(WI+N	D2=?W+RK3I;E+D6)3S7U6*WSM*MC*M+CB * B * B 3ROE3OSR2 SA3DWR+SCS+OCF7LOA7TB 3I?V3TV 3L
E7ESN*MBJ* B 2 & 7ROE6=KI+E/S"1*M* B * B 3ISA3R&=7P[I2MNJ2MNJ* B * B 6 R 7ESS2 ?F7RR 3OWL3RKA+LCE7EKR+OCR+ICF3SWP3C[I3ISE*MBJ* B 2 & 3F&(+O	P*120*121"161*JB . B12 [I2(?W+RK3I;E+D6)7TOE/TF).3F,.3F,"1*M* B *1B13C;O3T;IU7E*JB * B 2 [I2(?I/PF).2J,.2F,"2*MC*M+
B * B * B 7PKE7FKO3MJ 3A/C6 WS7BSS7IWT3T?I3N& 7FN 3POE3I	FE7D*JB . J12 [I2(?I/PF).4J,.3F,"4*M* B *1B37IKE"=60*JB . R16 CI/I7V3IWRS*M* B *1B5+IF3I	P/VJ).3J,.3F,"6*M* B *1B63S7U*=:0*MBJ* B 2 * 3A&=+T/E3I	PV*M* B * B /J7J3ISAR*M* B * B /J7K3ISAR*M* B * B 3K&
7P[I*MBJ* B 2 R /OF 29& *=213I	PV*M* B * B 7WKO3K*(/K6)2(?W+RK+J	A6-WS+M>)7WKO3K*(J6)*JB * B 2 [I*(7K.1J).0J,.0F,"7*M* B *1B7/J7E+J7J"1*M* B * B 3S7U*=:0*MBJ* B 2 R /OF 28* *=3K3I	PV*M* B * B 3S7U6=WS7M^+3O/R2(/J6)^*3O/R2(WJ")*M* B * B /J7K+J/K"1*M* B *1B
/J7E+J/EJ*M* B * B /J7K+J7E3I	PV*M* B * B /J7A+J7A"1*M* B * B /J7J+J7JK*M* B *1B93K.="-61*JB . B22 [I2(?I/PJ/.)F2.,N2.,F2*MBJ. J 21& 7AKD2=GI+D7R3I	PV*M* B * B 3I	P3V&=7P[I"-61*JB * B 2 ?G+TCO"165"J7C*JCC* B * B 2 ?N3RGM7LJ 7EWTR7N*JB . J22 WI/RB=*MBJ. J 
3J 7EWTR7N*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

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