File DACFI.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 GD3C	F2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 3O& 3NWT3R?P7LSA3EZ 3UON3T?I7NZ 7AWL7E& 2 ?F3RF 2 	G3V;E6 KA3G7U7ESN
 GV3LWU2MNJ* B * B * B 6 " 6 OU3I
N* CA7G[I+ECN3TKA+LCE6(KA7GZ,+A	L2 [O6 KA3G7U7ESN2 ;A3DZ 3UON3T?IN*M+CB * B * B * B 3V3A7UOE".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3DOA+FCI*(3X3A
R2,GV7L&,2,SN+I3M7EOP2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CX* B * 6 2 ?D3U3B7EB 3ROE3I	S+OCN3A
R3UWM+NCT3V3A+UCE3SWP3C[I3ISE6 	B2 ;I7PSU".*M+CB * B * B * B 3A
R* B * B-7DWO3BWL6 KP3E	C3S?I3N& 7NWP7TZ 7ESC+OCR2(	D3M;E3S?I3N: 3D7I2)> F*M+CB * B * B * B * B * B * B 3A
R3UWM+NCT3V3A7UOE2 [O2 T7ER 3A3B+E" 7POO3SKI+LCY7DOE3T?R3YSE")6.*JCC* B * B * B 2 GV+LB * 6 2 ?D3U3B7EB 3ROE3I	S+OCN7ICN+UCT3VOE7TKO2 R(3IWM3N	S+OCN3N	D+MB)O7F*JCC* B * B * B * B * B * B 6 WF7NSC3I;O2 GV3LWU3S> 7FR +HCE3TKA+LCE2(WD7SKT3OWY+D:)2MNJ* B * B 
 B 6 & * B * B 6-J 7EWS3L	T+NCG7ISN7ECR3OGL3TSE2 ?D3U3B7EB 3ROE3I	S+OCN3F;U3C	TO7N*JCC* B * B * B * B * B * B 2 GV3LWU".*M+CB * B * B * B 3N	D+MB * B-+ACN7ICN+UCT3V3A+UCE3W	H+CCH3SWP3C[I7IOE2 T3E: 3UKM+ECRO7F*JCC* B * B * B * B * B * B 2 ?P7ISN3S& 7NR 3A3
+E" 3A
R2,GV+L:)2MNJ* B * B * B 2 V +PCS* B 6-N 3I
N+LCE3PWR7COI3I;O2 ;I7PSU2 ?C7NSS7ASN2 W3IC6 OI6 OU+ECDA7S*JCC* B * B * B * B * B * B 6 CU7PKE2 ?B3USN2 ?F7RR +HCE7AOB7OWL+TCE7EKR+O;R2MNJ* B * B * B 2 & +ECR* B 2-F 2 WR3S3U3T;I3GV 3R?R7RB 3AGR7MSE+E;R2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B * " *1B)3
KA+LCE6(KA7GZ,+A	L2 S3O3U7DJ 7EKP3EWS+NCT7AN 3I
N+L7E3V3A3USE2MNJ* B * B * B * B * B 3F;U3C	T+OCN3ASN2 S3O3U3DJ 7EN 7TKO+ECD+ICN3SOU3HF 2 GW+YB,3TGH7TR H7E*JCC* B * B * B * B 2 R 7ISS3AON+ECS7AOB6(KA3G&(6)"-2)& 7NKC7EOA7E^ 3IT2 ;I3CWR3A	SN7G*JCC* B * B * B * B 6 N 7UOB3C	R+PCT+IB.+TCO3G;E3EGR+TCE3T	H3S
 3RWD3R& 7NR 3A3B+E" 3A
R2,GV+L2)2MNJ* B * B * B * B * B 3SKU7RWO3T;I+ECS7DSA+S3G2 GD3T7S6 KO2 GD3TWS2 ?C3USL2 WB6 OU+ECD+ICNA*M+CB * B * B * B * B 6 KP3E	V7OOU6 SS3AWG".*M+CB * B * B * B *(&22 ?N2 OA3T?I3NJ 3E	S7DOE6 KE7RKO2 WM3SGS+GCE+ICN7COA3E: 3D7I2 WLS7S*JCC* B * B * B * B 
 R 3H;A* :12MNJ* B * B * B * " *3B)7ISN7ECR3OGL3T?I3N& 7SR 3E7R3IGN3TSE2 	E3TWH3R& 7FR +HCE3D[I7FKE3EONE*M+CB * B * B * B * B 2 WB3TWW+ECN3T?W6 WS3CWC3S	S+VCE7ISN7ECR3OGL3TSE2 GV3LWU3S& S*M+CB * B * B * B * B 2 KA3S3O3UWT+LCY7LOE7SR 3H;A2 ?T7LKE3AON3EV +P
S6 KO2 [I2 T3EF 3B?S7LSUE*M+CB * B * B * B * B 2 GV3LWU2 [O2 T+ICS3D[I7FKE3EON7EN 7TCO3SR 3I	M7NOI3H;I+GB,+OCR7ASFE7R*JCC* B * B * B * B * " 3N	D/MF-6)N 7TCE+S" 3TWH6 WN3MWB3R> 7FB 7OOS3I3B7EN 7TCE3S& S*M+CB * B * B * B * B 2 	D3M;I3IS+ECD+ICF+ACT7A	N6 SS
AWG2 ;I3F;I7I	T2 3E3EWM+NCT7ACP7EKA3S& N*M+CB * B * B * B * B 2 T3ER 3O;W7WKA3DR 3I
A3OGN3L> 3F& 3NWV3RWT3DR-3I[F3EWR3NWC7SN-3CWHM7E*JCC* B * B * B * B 2 F +NCD+ICF+ICT+ICS7ICM7OOS3I3B7ER 3OV 3L7I3IGN+TCE3T	H3S& 3N	F7NSIY*M+CB * B * B * B * B 2 3E3EWM+NCT+BCY7ISN3EOR3H;A3G;I3G> 7FR 3A3B7EB 3O;I+T	S".*M+CB * B * B * B * B 6 WF3RT+ECR+ICT+
CS7TKE3M;I3AWT3D& 7FR +HCE3P?R3CSE3UWR2 	D3S?C7VKE7SR W7O*JCC* B * B * B * B 2 F 7RWG3M;E7TZ 7AWL+ECS+ICN3VOE7TKO6 KA7G^ 3HOI3HF +RCE3IWD3N	T3C3A".*M+CB * B * B * B * B 2 WD3P;E3D;E3T> 7NR 7HOE3EZ 7OKU2 GC7SOE2,V 3R?R7RB 3AGR7MSE+ECR7IKE6 OI2MNJ* B * B * 
 * B * B 3CSO+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+TCO3
GE+CCH3TWH2 WR3Q	U3RSE2MNJ* B * B * B * B * B * B * B * B 3AOC3UGR+CCY3BOE7AOU3E> 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 ?C3USL2 ?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 KP3OWC7DK
3ER 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 ?C3N	T3NWU3DZ 3ROA3T?I+NCS3ASN2 ;I7VKE3TSE"-*M+CB
* B * B * B 3D[I7FKE3EON+E7S3SC3EWM2.> 7NJ 7EWT+RCN3YN 7OSN3A;I3SF 3N& 3NWT3R?P7LSAE7D*JCC* B * B * B 6 WF7NSC3I;O2 GV3LWU6 SA2 ?P7ISN* 3X2 W3IC6 OI2 ;I2 T7EN 7EON3E> 7FJ 3EGMR7K*JCC* B * B * B . N(2)> 3P	T3M3A2 	W+TCH7ROE3POE7TR 3O^ 3IWV7NR 3A3B+EB.7FKO2
WR7FKE3EON+EB,3SWE2MNJ* B * B * B 2 Z *.;B3H3I3DKE3R;A+DB,7ISN3RSO7USC3I;O2 ?T6 WN7MKE3IGC3LF 3N3A3Y	SS6,*JCC* B * B * B 2 OM3GGR3W"-3I3L2,: +ECW7YKO7KR/3O?R3N?T2/?L3N?D+NB,.1V9*6B,+P;P.3V9.-B4"66."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.
.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER 3A[C7I"(6,KA7GZ,+A3L3Y:,3D7I6,CE3S&,+E	R2MNJ2MNJ*MBJ* B 2 R 3IWM3N	S+OCN3A
R*(&12,GV/LF(")*M* B * B 7DWO3BWL6 KP3E	C3S?I3NF +R3G3V3A*,3X7Y*,.,GP.,KP.,OP.,GQ.,KQ.,OQ6,WA3X",*MBJ* B 2 & /E7R"2*M* B * B +IF3N	D/MJ).0J,.0F,*MBJ* B 61& 2=GV/LF(")*M* B * B 3D3E/T62"06.*JB * B 2 [I2(SN+I7M.1J).0J,.0J,2MNJ2MNJ* B 6 B 7RCE3AGR3T?I+NCS7FK
2 ;I7TKE3P3O3A	T+OCN3L?OP*M* B * B2/P6221R."0*M* B * B /P63Y*M* B * B /Q6220R."0*M* B * B /Q6321R."0*MC*MC*M+CB * B 3SGT+RCT7ISN7ECR3OGL3T?I3N2 7OCO*MBJ* B 2 R /OF 26& *=223N	DM*M* B * B /I7I"0*M* B * B /P61P62*JB * B . KP.=OP*MBJ* B 6 F 61F="2*M* B * B /
62Q63*JB * B . 7ZY*M* B * B 3D3E/T613D3ET62*JB * B 2 WJ/N7D/IF-2MNJ2MNJ* B 2 N 7OCM3UGT3T?I3N> 3F& 3NWV3RWT3DR 3I[F3EWR3NWCS*M* B * B37AU2=GV3L&(")*M* B * B +DCO*1B0/JF=2,WJN7D*JB * B . 7H3V3A*(	I2-GV3L*(")*M* B * B +IF3DKA3S"(.)F-*.7D*1*33DKA7SZ(+AL+I&)*
24.4&,*MBJ* B 24& 3FF(+RG+I6)3A
R*(	J*)25*127"5*M* B * B5+IF3J*-3ESN*)28.6Z,2MNJ2MNJ* B 2 & 3NWT3RC3A
N7EJ +OCW7I^ 3IT2 ?R3W& 2+	I*MBJ* B 26& 3I&=/IF+*MBJ* B 2 & /I7I3I&+I*M* B * B +IF3I	I2-SN+I	M.7^,.,&1*MBJ* B 67Z +AL/I6)3V3A2(	II6)*JB * B 2 GV3L&(+I	I6=WAX*M* B * B 7AU6=KA3G&(")*M* B * B 3A
R*(	I6=KA3G&(+I	I*MBJ* B 2 F +RG3I	I2)F=U7X*JB * B 2 ?G+TCO"3*MC*M+CB * B 3C7O7PSU3A	T+OCN+OCF3V3A*(	I2 ;I2 GC+SCE3V3A*(	I2=GV3L*(2)F +NCD3J2 7EOS2 T+ACN/IF-*MBJ* B 68Z +AL/I6).1^./D"3* B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B
* B * B " 60*JB * B 2 ?G+TCO"160"J7C*JCC* B 2 ?C7MWP7TSA3I;O2 [O2 GV3L&(2)& 3NN 3AWS2 GV3L&(2): +OCT7EWQ+ACL+TCO3V3A*(	J*MBJ* B 69Z +AL/I6)6(KA3G&(2)F-+RG+J&)"/7H*JB . B12 ?C3N	T3NWU2MNJ* B 2 & 3NWV3RWT3DR 3I[F3EWR3NWC3SF +RCE3C7O7PSUE7D"J7C*JCC* B 2 ?C7M
P7TSA3I;O2 [O2 WN7W& *MBJ* B 6 B 63Z=+AL+I*)+P.2*(7X3A
R*(7I*1&).*GP*MBJ* B 6 F 63Z=+AL+I*)+Q.2*(7X3A
R*(7I*1&).*GQ*MBJ* B 2 & 7FF(.3F).1F,.2F,"1*M* B *1B17YB=63F/"3*M* B * B 7GSO/OF "3*M* B *1B2/YF=2.R7*3B8* B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B . B *MBJ. F 23R 7ESL22R=7AOB*(7ZY6)*JB * B 2 [I2(WD/LKT6-CE/SF).9F
.9F,"4*M* B *1B4+IF/IF-.0F).6F,.5F,"5*M* B *1B5+IF3D3E+T623D3E+T&1*126*128"168*JB . Z12 ?C3N	T3NWU2MNJ* B 2 V +NCD+OCF7ISN7ECR3OGL3T?I3N2 7OCO2MNJ2MNJ*MBJ* B 6 J 7EWTR7N"J7C*JCC* B 2 T3EWR6 KA7ER +WCO3IWD3N	T3C3A6 KA3G7U7ESN2 GV3LWU3S& 7NZ 7ESC+OCR3A
R*MBJ. F 27& /E7R"3*M* B * B 7RSE3U;R2MNJ2MNJ* B 6 R 7ESS2 GV3LWU2 WD/LKT6 SS7ASR3S> 3S	C3LGL3T;IG*M* B *1B87Y*=*MBJ* B 2 & /E7R"1*M* B * B 7RSE3U;R2MNJ2MNJ* B 6 R 7HKE3E& 7SN 3A	T3SGF3C?T+RCY3AOC3UGR+CCY7WSI3H;I2 SN+I7M61N 7TCES*M* B *1B97IKE"=60*JB . B2
 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

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