File DCEL2.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 OD/EKL2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 7OCM3UWT7SR +HCE3G;E3EGR7L+I+ECD3C7O3PWL+TCE3E3L7ISP+ICC7ISN7EKG+ACL
7F*JCC* B * B * B 2 WS3C;O3D. 3ISN".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3DWC+L"27ROE2,/A*,3A3B&,+E	R2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 6 J +ECS* 6 2 WR3S3U7TZ 7AWL3E& 3NR 3OKU+LCE3PWR7COI3I;O2MNJ* B * B * B 2 F
+KB * 6 2 ?M3D3U+UCS2(;I7PSU2)& 3NR 3OKU+LCE3PWR7COI3I;O2MNJ* B * B * B 2 F * B * 6 2 ?D3U3B7EB 3ROE3I	S+OCN3C;O3SGT+NCT7TKE3M& 3N: 3UWM7RSAO7R*JCC* B * B * B * CB* B * B-7DWO3BWL6 KP3E	C3S?I3NZ 7ASC+OCR+OCF3QGU3DGR3TOI2 WTR7M*JCC* B * B * B * B * B * B +
CN3N7U3EGR7TKO2MNJ* B * B * B 2 & +ECR* 6 2 WR3S3U3T;A3TV 3R?R3RN 3OWD2 W3EWR2MNJ* B * B * B * B * B * B 2 WI/RB=2 : 3OV 3R?RR*M+CB * B * B * B * B * B 2 & /E7R*1B +ACK7NSO2 ;I2 GR3NWG. F-2 ?T. F+2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 Z +OCR7AOB2(/
2)^ /EF 2 T7EJ 7EWS+LCT+ICS7SSE2 ?T* :1/EV72 [I* CBI7S*JCC* B * B * B 2 ?P7SSI3IWV6,R +O6 .1^./D"32 [I* CB+ICS3N
E3A	T+V;E* B * B * B * B * B * B * B * B * B * B "0*M+CB * B * B * B 3SWP3CGI3LN 3AWS3SF R7E*JCC* B * B * B * K+KB)7OSB3A;I+ECD7WSI3HF * B=*1B,/B6 " 61*JCC* B * B * B * E+KB)7OSB3A;I+ECD7WSI3HF * B=*1B,/B6 2 /C2*/C2 W3EWR2 /C6 OI2MNJ* B * B * B 2 N 7OCM3L
E7ESN7A	R2 ?M3D3U+U;S2MNJ* B * B * B 2 J *(	K2 KO3T	A3NSE2 	W+TCH/A6 * 21* CB.=B 2MNJ* B * B * B 2 R *(	K2 KO3T	A3NSE2 	W+TCH/A6 * 20* CB.=F 2MNJ* B * B * B 6 ^ 7HKE3E. 2,V 2,J 2,R 2 WD3F;I7EN 3POE3I3A2 GC7SOE2 [O2 T3E^ 3EWN3R3A3IWZD*M+CB * B * B * B 3C7O
PWL+TCE3E3L7ISP+ICC7ISN7EKG+ACL+OCF3SOE3OSN2 	K+NCD+ICN3TWH6 OU3U3A2MNJ* B * B * B 2 : 3OGT3T?I+NB,3ASN2 T3EF 7RWG3M;E3T. 2 [O2 T3EWS6 WF7NSC3I;O3S6 3E;AS*M+CB * B * B * B 3TWH2 ?M3D3U+U;S2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MC
7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3D[E3I	N3T?IN*M+CB * B * B * B 7ROE2=;I3T
E3R3A2(F(*++B7TR**)"/7SKQ+T"(61R+**	T.*F(2+N(7KR**)***2&).*F(*++T+T&)2MNJ* B * B * B 6 N 3U7M+ECD3OWV7RR 6 KF+OCM60R 3O& 3N	F7NSI+Y:)2MNJ* B * B * B 2 V 3V3A7USA3I;O2MNJ* B * B * B 2 2 3ASN7EON6 KT7AON7FKO7MSA3I;O6 OI6 OU+ECD7FKO2 GC7LWC7LSA3I;O".*M+CB * 
 * B * B 3R[E3EWR3NWC2MNJ* B * B * B 6 J 6.WB7LKI3SC*,^ 3N7U3E	R3C3A2 GC7LWC7LSA3I;O2 [O2 3E7LCI3TOI2 ;I3T
E3R3AS*M+CB * B * B * B 3ASN2 3E7LCI3TOI6 WF7NSC3I;O+S2	2 GH3NKD3O/O2 WS3RWI7SN 3POE3I3A6 WF7NSC3I;OS6,*JCC* B * B * B 6 WN7MKE3IOS+HCE7MSA3H7E3A	T7KZ +O;L* 27. &1*6256 CP..^ .8&-"06."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.
.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER 3C3E62J(+E3S+A3K3AJ,2,WIR6)*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN7ROE2,/A*,3A3B^,+E3O3A	R2,GA+R3I+B20A61*JB * B 2 WI/RB=*MBJ* B 2 F /R7I22R."0*M* B * B 3G?E.=B(2.R520F-+K.).0V.D60*JB * B 2 WG3O^=+E/O3G?E
*/A*MBJ* B 6 J /E7SA*M* B * B /A613AJ+*MBJ* B 2 J 20J="+7B*JB * B 2 [I2(WG/OF)*,22"6*M* B * B17IKE"=61*JB . J 2 [I*(	B.3",",64*JB . N 2 WR+S6=.1^./D"3* B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B "0*M* B * B 7RSE3U;R*
BJ* B 64J /E7S.1^./D"3* B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B " 60*JB * B 2 WR7TKUN*M* B * B53G?E2=WG3OF*3A	R*MBJ* B 26^ /E7O7DGS+RT3G?E")*M* B * B 3G?E2=WG3O^+E7O*JB * B 2 GA/R7I3A	R*MBJ* B 2 F /R7I3A	R2+WGO*M*
B * B /B60+B.07ROE2*WGO*M* B * B 7ROE.=GA*MBJ* B 2 J 20J=20J+"0*M* B * B /A61+B>03A	R.+GA*MBJ* B 2 & 3F^(+E?O7AKA/IB-..&9.9&9.9&9.5CD*)25.7^,*MBJ* B 67J /E7S+A>13A	R*MBJ* B 6 J /E7S7ROE*+:0.5B7.7Z9.3Z2.7R9.8Z926R260J*E7S*JB . " 2 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

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