File DAPFS.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 GD7POF2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 B 3E[R3O7R6 	S3MWM3T	R3CZ 7ASC3O	R7ZSA3I;O2 [O2 T3E6 7AKT+ICX+OCF3TWH2
?N3RGML*M+CB * B * B * B 7EWQ3A	T7OON2 ?F3L?L3WSE6 	B2 GC7LWC7LSA3I;O2 [O2 T3E2 7EOA7TN 3QGU7ROE2 	FT*M+CB * B * B * B 7OSP3I;O3A3LY*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7DCA+FS7WKO3K&,3P&,7ROE2,?I3PV,+P3S3EGT2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3
;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B 2 ?W+RCK* B-7G[I+ECN3S7Y7MSE3ROI2 ?C3E[F3I	C7ESN2 GM3T	R+XB,3S?T3RSE2MNJ* B * B * B * B * B * B 2 ?C7MKP7EOS+E3D* ;I7EV 3PWP7RR 3RGI7NWG7LKA2 GP+RCT3C3O3U;M7WOIE6.*JCC* B * B * B * B * B * B 3TWH2 	G3V;E2 	R7GSH2 GH+NC
3SSI3E> 7CWC3PWI7SR +HCE7NE3T& P*M+CB * B * B * B * B * B 2 2 3OGC3T?I+NCS+ICN7WKO+KB.3TWH2 WV+RCY7LOA3TN 7OCM3OWN+NCT+OCF7WKOK*M+CB * B * B * B * B * B 2 N 7OSN3A;I7SR +HCE7SWQ3AWR6 WS3M> 3FZ 3UON3T?I7NZ 7AWL+ECSE60*JCC* B * B * B * B * B * B 3T	H7SN 3CW
+MCE+OCF3S?T3R
A3EF 3L?L7CSA3I;O6 OI6 KP7OWD3CSE* ;EG6.*JCC* B * B * B * B * B * B +BCY3SKU7RWO3T;I3EF 3P3L".*M+CB * B * B * B * B * B 6 R +HCE7G[I+ECN7MSA7RI6 OI2 GF3C?T3RSE2 ;I2 T3EZ 3O7R2MNJ* B * B * B * B * B * B 6 KT7AON7POO7ER(6)R*2 ;A7DR +HCE7G[I+ECN3R
I+HCT3H;A7DN 3IWD6 OI2MNJ* B * B * B * B * B * B 2 	D3VSI+ECD+BCY3TGR7NCS3OWS*(	T".*M+CB * B * B * B * B * B 6 R +HCE7UCP+ECR3T	R3A
N3UGL3RZ 7ASC+OCR3T& 7SJ 7EWT3RWN3D& 7N^ 3O/R2 [I2MNJ* B * B * B * B * B * B 2 ?I3PV 3QGU+LCS7ZKEO6.*JCC* B * B * B * B * B * B +ICN7COA3E> 3F: 7O+N3E?R2 ?I7PR +HCE3C3A3C3U3AWT7DN 7OWL3T?I+NCS3AWR2MNJ* B * B * B * B * B * B 6 SS3OWR3D& 7NR +HCE3C3O3U;M3S>
7FR 3RGI7NWG7LKA6 KA7R	A2 ?W+RCKO7F*JCC* B * B * B * B * B * B 7CKO7ROE3P;O3D;I3GR 3IWM3N	S+OCN3ASN. CE2 & 7SJ 3E3P3AWC3DJ 7YR H7E*JCC* B * B * B * B * B * B 7SWQ3AWR6 WS3M> 7FR +HCE7EKR7OOR2 ?F3RZ +ICT+OCF3D7I7EON3I;O6 KI+E;S2MNJ* B * B * B * B * B * B 2
T7ER 3OGT3LR 3IWM3N	S+OCN+OCF7WKO3K& +S" +I/P*1*)6(CI*+&2"/62*JCC* B * B * B * B * B * B 7WKO3K6 7USS2 WB2 [O2 ?D3U3B7EB 3ROE3I	SO7N*JCC* B * B * B 6 CI* B * B-3N7U7BKE2 [O6 WF3NGD3M;E3T3A6 WF7NSC3I;O7SV 3SSE2 ?F3R2 7EOAT*M+CB * B * B * B * B * B 6 N 3QGU
ROE2 	FT*M+CB * B * B * B 3IWR+SB 2-R 3IWM3N	S+OCN+OCF3C3A3C3U3AWT3D2 7EOA7TN 3QGU7ROE2 	FT6.*JCC* B * B * B * B * B * B 7LSE. GN2,: *2B,3D;E3OWT2 T3EZ 3O3L3O	W+NCG3N7U7BKES*M+CB * B * B * B * B * B 2 : .16 2 GM3X7I+ACL3D7I7EON3I;O2 ?F7R^ 3HOI3H: 3O2 7OOS
 [O2MNJ* B * B * B * B * B * B * B * B 3S
I3N[I3IGC3NWC2 GW3S& 3N	D7CSA+ECD7DKU3I
N2 GF3C?T7R+I3A	TO7N*JCC* B * B * B * B * B * B +NB26=N 3M3A7LOE3TR 3IWM3N	S+OCN7FKO2 W3IC2 T7EN 3QGU+RCE3S7U2 [O2MNJ* B * B * B * B * B * B * B * B 3TWH6 KE7RKO3SR 7OOE2 ?N3TV 3XWC+ECD7TOE3TF=+BS3EGT6*OFQ6)*JCC* B * B * B * B * B * B 3TWH3N& 7ROE2=	M+NO+
3P+N&12 [I2 ?I3P& 3S: 3O;N3EGG7T[IE*M+CB * B * B * B * B * B 2 F +NCD6 KI/E7S3M;I3O&(3P:,21:,*2B)+ICF7ICO6 OI2 WN7GSA3IWV2MNJ* B * B * B 2 & +OCP* 6 2 ;I7PSU2 GP3R7A3EWT3RZ +OCR3S3E7ESC3I;O2 [O6 CO3EGR3T?IN*M+CB * B * B * B * B * B 2 & +OCP.=B 2 WM7AON6 K
3I;A3G3U+ACR3FOA7TKO3IGZ3T?I+NB,7D[I3I	S+OCNO7F*JCC* B * B * B * B * B * B * B * B 6 R +HCE3R
I+HCT3H;A7DN 3IWD6 	B6 KT7AON7POO7ER(2)F N7D*JCC* B * B * B * B * B * B * B * B 2 N 3AOL3UGL3T?I3N> 7FR +HCE7SWQ3AWR6 WS3M> 3FV 3R?R+RCSI7S*JCC* B * B * B * B * B * B * B * B 6 B 3E[R3O7R+ECD3O3NY*M+CB * B * B * B * B * B 2 & +OCP*=. 21> +R6 216 3E;A7SR +
CE3S3O3U	T+OCN+OCF3D7I7EON3I;O6 KIE7S*JCC* B * B * B * B * B * B * B * B 2 & 3SN 3AOL3UGL3TSE2 SA7DSI3I;O3A3LY*M+CB * B * B * B * B * B 2 & +OCP*=. 22> +R6 226 3E;A3SF +LCL3S3O3U	T7OON2 ?F3RR 3IWM3N	S+OCN3OWN2MNJ* B * B * B * B * B * B * B * B * B +UCP+TC
3IWR3SF +RCE3C3A3C3U3AWT3DF 3D	D3T?I3N3AL7Y*JCC* B * B * B 6 CE+SB * B-3R3E3A	T+VCE3T3O3EGR3NWC2 ?F7RR 7ESS2 ;O2 ?L+SCS+OCF3S
I3N[I3IGC3NWC".*M+CB * B * B * B * B * B 2 F 2 WS3N	S3BWL2 GV3LWU6 OI2 WB3TWW+ECN21V..-B12 ;A/DF *.7E"165*JCC* B * B * B 6 SE+AB * B-3R3E3A	T+VCE3T3O3EGR3NWC2 ?F7RR 3OWL7RSA+ECD7SWQ3AWR6 WS3M> F*M+CB * B * B * B * B * B 2 V 3R?R+R;S* CA3RGE7LOI3TOI2 GV3LW
6 OI2 WB3TWW+ECN21V.20F +NCD21V..-V12MNJ* B * B * B 2 & +ECR* 6 2 WR3S3U3T;A3TV 3R?R7RB 3AGR7MSEE7R*JCC* B * B * B * B * B * B 7IKE* 6=216 3E;A3S: 7OCN3O	S7T[I3E& P*M+CB * B * B * B * B * B 2 & +ECR.=B 2 WM7AON2 ?N2 ?L+SCS+OCF3S
I3N[I3IGC3NWC2 WD3TOE3TSE2MNJ* B * B * B * B * B * B * B * B * B 3ASN6 CS3E	C3FWI7DR 3OWL3R;A+CCE+OCF7EKR7OOR2 WR3ACE7D*JCC* B * B * B * B * B * B 7IKE* B=216 3E;A3S2 7OOS2 [O2 	S3G	N3FOI3AON3ER 3EWT3CWT3D> R*M+CB * B * B * B * B * B * B * B * B 6 CS3E	C3
WI7DR 3OWL3R;A+CCE+OCF7EKR7OOR2 ?N7TJ 3EOA3HSE2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 6 R +HCE7AOB7OWL+TCE3T3O3EGR3NWC6 OU+ECD7ISN3E;R3A3L3YZ +OCR7TOE3T> 3N2 7OOS2 [O2MNJ* B * B * B 6 N 3I;G3I	F3C;A+CCE+ICS3T3O2=KA3SV(+P+S3S
N7L^(3O/R*(&1*):)2MNJ* B * B * B 6 R +HCE7AOB7OWL+TCE3T3O3EGR3NWC6 OU+ECD7ISN3E;R3A3L3YZ +OCR3TWH6 GS7UKA7EN +UCMO7F*JCC* B * B * B 6 KE7RKO3S& 3SF +BS3EGT2*;S+GL7FGS*):)2MNJ* B * B * B 2 & +OCP3GWR3AWT7RR 3H;A* B27HOA2 T7EN 3AWM2 [E3FOE3TF 3S& +OCP.=J ".
M+CB * B * B * B 7ICO2 WL+SCS3TGH+N6 22" +ACS3TWH2 GS+MCE3E[F7ESC6 OA2 ?I/P6 *-:22MNJ* B * B * B 2 & 7ROE* B=206 3E;A7SR +HCE7AOB7OWL+TCE3V3A+UCE+OCF7EOP6 OI2 ?N3T2 7EOS2 TA7N*JCC* B * B * B 2 ;O3EF +N?D+OCR7WKO/KF(2)& 3S: +OCT7POO3I	T+VCE3ASN6/KO6 CI6 OI
 ?N7TB 3O	S7T[IE*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 GC7LWC7LSA3I;O2 [O2 T3E2 7EOA7TN 3QGU7ROE2 	F+TCS+ICS3D;O7EV 3S;IG*M+CB * B * B * B 3C?H7LOE7K
Y6 GS7UKA7EJ 7OSO2 WM3T?H3DZ +OCR3S7Y7MSE3ROI2 GF3C?T7R+I3A	T+O;N2MNJ* B * B * B 6 R +HCE3ION7OCR3OGR3TSE2 WT+SCT+OCN7LOO3S> 7FN 3I;G3I	F3C;A+CCE3MGE+NCS3EOAH*M+CB * B * B * B 3RSA3IGC+NCD7MOU3TJ 3E^ 3RGE7TKE2 T+ACN3TWH2 ;I7TKE3N3A2 KA3S3O3UWT2MNJ* B * B 
 B 6 R 3OWL3R;A+CCE3T3O".*M+CB * B * B * B +ICN7COA3E> 3F2 7OOS2 [O2 	S3G	N3FOI3AON3E& 7NR +HCE3A?B+VCE3S;E+SCE3O3N3YF 2MNJ* B * B * B 6 N 7UOB7YSS+ECM+OCF3TWH2 ?N3RGM3LV 3QGU3T?I+NCS+ICS3S3O3VSE".*M+CB * B * B * B +ICN7COA3E> 3F: 3EGG7T[I3E& +OCP3TWH6 KT
I;A3G3U+ACR3FOA7TKO3IGZ3T?I3N& S*M+CB * B * B * B 7TKE3M;I3AWT7DB 3R7E7AWT3R3E3YV 3IT+ECR+ICF3TWH6 GS7UKA7EN +UCM+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+NCE7DCA+FS7WKO3K&,3P&,7ROE2,?I3PV,+P3S3EGT2,WIR6)"J7C"J7C*JCC* B * B 2 	D3M;E3S?I3NSE6 WD7M	M2 GV3RGI3BWLS*M* B *
B 3D7I7EON3I;O2 ?W+RK"16)*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN7WKO7KN,+U3M7P[I*MBJ* B 2 & 7ROE"=60"J7C*JCC* B * B 2 WT+SCT+OCF3SWP3C[I3ISE2 	D3M;E3S?IN*M* B * B +IF+I	P.1F,",62"J7C*JCC* B * B 6 KE7RKO2 WR7TKU3N& 3NN 3AWS2 [O2 3I3L
E+ACL3D7I7EON3I;O*MBJ* B 21& /E7R"-61*JB * B 2 WR7TKUN*MC*M+CB * B * B 3I	N3TGI7L+I3EZ 7ASC3O	R7ZSA3I;O6 KP3OWCS7S*JB . J 6 CI/I7V"0*M* B * B 7ICP21&=/PF+*MBJ* B 2 & /E7R"1*M* B * B 3IWT6=CI6*CI+P>1"2*M* B * B 3I;E3D&=+T/E7ICP"1*M* B * B 3T3O2=KA3SV(+P+S3

N7L^(3O/R*(&1")6)*JB * B 2 WT/S7T7AOB6(SE7AN*3N3G2(?W+RK3I;E+D&)")*MC*M+CB * B * B 3SGT+RCT3L?O3P> 7VKE2 3A7LJ 7OOW2 [O2 ?WR7K*JB * B 2 ?D. F1. 7I21&,P*M* B * B 3I	P3V&=7P[I"+7I*JB * B 2 GJ6=CI+I7V3IWRS*M* B * B /J7E3I	P/VF-2MNJ2MNJ* B * B 2 Z 3O7R2 OS3AG
7RB 3RSO7USC2 WN3EWD7DR 3O6 3O	D+FCY7CKU3R;E7TJ +OCW3EWL3M;ET7S*JB * B 2 /J6=CII7V*JB * B 2 ?D* B93K&=6,CIP61*JB * B 6 WS/MB=..CD*MBJ* B 2 & 3F&(7ROE*)25.5N,*MBJ* B 23* 3K*=3K&-7ROE*MBJ* B 2 R /OR . 7J+J3AJ7E*JB * B 6 WS7MN=+U/M7WKO3K*(6)^*3O/R2(/J")*M* B
* B4/J7K+J/K"1*M* B * B5+IF+J7K3I	P/VZ)*,26"8*MC*M+CB * B * B 7TOE3TZ +OCR7LOO3S> 7FN 3I;G3I	F3C;AC7E*JB . Z 6 WS7M^=3O/R6(CI+I	V6-WSM*M* B * B +IF3S
N7LN(+U	M2-?T/LF).2F,.2^,*MBJ* B 67N /U7M7DGS+RT3S7U")*M* B * B 7WKO3K&(7P[I6)N=U7M*JB * B 2 	P/VF=..CD6/WSM*M* B * B 7GSO/O& 2MNJ2MNJ* B * B 6 V 3PGD+TCE3O[F2-	D3A?G3N3A2 WT7ROM*MBJ* B 68N /U7M2(?W+RK+J	K6-WS+M*)7P[I*MBJ* B 6 ^ 3O/R2(/J6)N=U7M*JB . & 2 /
2=/J"+7K"J7C*JCC* B * B 6 CU7DSA7EN 3QGU+RCE3S7U2 [O6 KE7RKOS*M* B * B 7WKO3K&(3ESN6)^=3O/R2(WI+N	D6-WS7MN*U7M"J7C*JCC* B * B 2 WR7CKO3DF 7DKD7EOS2 [O2 GL+SCT7P[I+OCT3EWL3M;ET*M* B * B 3IWR3S&=7ROE"+61*JB * B 2 GI/D7R3I	PV*MC*M+CB * B * B 7TOE3TZ +OCR3T3O
EGR3BWL6 KE7RKO2 [I6 CS3E	C3FWID*M* B * B +IF7ICO.)B1.,F1.,F1*MBJ. F 20& 7FN(3N3G2(?W+RK3I;E+D&)2-WT+S	T*123*123"161*JB . F12 ?C3N	T3NWU*MBJ* B 2 & 3F&(+O	P*122*222"162"J7C*JCC* B * B 2 WP3R?F+RCM3BOA7KN 7UOB7TSI3U	T+OCN+ICF3SWP3C[I3ISE*MBJ. F 22& 3F&(+O	
*124*223"164*JB . N12 WI/RB=*MBJ. F 24& 7P[I6=KIE7S*JB . V12 [I6(CI+I	V*223*223"166*JB . Z16 WS/MB=..CD*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>)7
KO3K*(J6)*JB * B 2 [I*(7K.1J).0J,.0F,"7*M* B *1B7/J7E+J7J"1*M* B * B 3S7U*=:0D60*JB * B 2 ?D. "1. 7J3K&,7P[I*MBJ* B 6 N /U7M3S7U2+?W+RK+J	K2*?W+RK+J	E*MBJ* B 2 * 3K*=/KF+*MBJ. F 28* 3E*=3E*+*MBJ* B 2 * 3K*=3E&-7P[I*MBJ* B 2 * 3A*=/AF-*MBJ* B 2 * 3J*=3J.-*
BJ. F 29. *=7K"1*M* B *2B0+IF7ICO*/&2*221*223"261*JB . F22 GI/D7R3ISA3R&-7P[I*MBJ* B 2 & 7P[I6=CI+I7V"1*M* B * B 7GSO/OF "5*MC*M+CB * B * B 7NKO3M3A2 WR7TKUN*M* B *2B27IKE"=60*JB . N22 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"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