File DCEL1.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/EGL2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 3AOL3UGL+TCE3C7O3PWL+TCE3E3L7ISP+ICC7ISN7EKG+ACL+OCF7FKI+SCT3K;ID*MC
M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3DWC+L"17ROE2,/A2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B 2 WR+SB * B-7ROE7USL2 GV3LWU2 ;I2 ?D3U3B7EB 3ROE3I	SO7N*JCC* B * B * B 2 /A* B * B-3MSO7UWL+S" 7ICN+U	T2 ;I2 ?D3U3B7EB 3R
E3I	SO7N*JCC* B * B * B 2 WI+RB * B-7ROE7USL7ASN6 KE7RKO2 ?C+DCE3WWHR7E*JCC* B * B * B * B * B * B 7IKE*=B02 ?N6 KE7RKO2MNJ* B * B * B * B * B * B 2 WI/RF=2 F 3K: +OCT+ICN3R;A+GCE*-B1+TCO"+61"J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 T7EJ 7EWS+LCT+ICS7S
E2 ?T* :1/EV72 [I2 KA3SF(+KB)+GCE"1*M+CB * B * B * B 7FKO2 ?M3D3U+UCS+ACK3ASN2 ?C3M3P3EWM3NGT+RCY3MSO7UWL3SN K6,*JCC* B * B * B 6 GE7USA3I;O2 /A2*/A2+/C2*/C*=:1+DB0+ICS3UWSD6.*JCC* B * B * B 2 /A6 WM+SCT+BCE+ICN3TWH2 GR3NWG. F-2 ?T. F+2MNJ2MNJ* B * B 6 N 
UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*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 3C3E21F(/K6)7ISN7EKG+AL61N/7QSR.(F(*++T+T*)*(.12(/C**	T.*J**)2)6 WS3MWMD*M+CB * B * B * B 3OWV7RR 6 
F+OCM60R 3O& 3N	F7NSI+Y:)2MNJ* B * B * B 2 V 3Q	U3V3A7ESN6 KA7ER +HCE3D[E3I	N3T?IN7S*JCC* B * B * B 2 WC+L"1+A	K2=;I3T
E3R3A*(>12(?C7SR(6)GS+RT*1"++C+K3T;A*(	T*)***2&)6,WS3MWMD*M+CB * B * B * B 3OWV7RR 6 KF+OCM60R 7OB /IJ/")6,*JCC* B * B * B 2 WC+L"1+A	K2=;I3T
E3R3A*(>17SKQ/TF(2-F(7KN*+IN+T&).*J*6)N,3U7M+ECD3OWV7RR 2MNJ* B * B * B 2 Z 3R7O* B0+TCO+P?I*22)2 W3EWR. 7K7SKQ/TF(2.N-3KN*+K:)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 
 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 3C3E61J(+E3S+A3K7IKE")*M* B * B 7DWO3BWL6 KP3E	C3S?I7NJ +E3S+A3K3G?E6,KA3IF,3A	R*MBJ* B 2 & /E7R"0*M* B * B 3A	R*=:2D60*JB * B 2 WG+O"=.0V.+D60+A	K*+:0.5CD*MBJ* B 2 ^ /E7O3G?E2+WG3OF*K*M* B * B 7RO
*=:0.5CD*MBJ* B 2 & 3F^(+E	O.1J,",64*JB . F 2 WI/RF=*MBJ* B 62J /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 * B33G?E2=WG3OF*3A	R*MBJ* B 24^ /E7O7DGS+RT3G?E")*M* B * B 3G?E2=WG3
^+E7O*JB * B 2 GA/R7I3A	R*MBJ* B 2 F /R7I3A	R2+WGO*M* B * B 7ROE2=WR7SJ+E7S*JB * B 2 [I2(WG3OF/3A	R*-:0.9&9.9&9.9V9+D&0.3V,",65*JB . V 2 WR7SJ=+E?S3A	R**:6.2N8.1V8.3^0.1&7.5Z8.5CD*MBJ* B 6 J 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"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