File CEL1.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 WCL61"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 GC7LWC7LSA3EN 7OCM7LSE3EV 3L	L3P	T3C& 3NWT3GGR3L> 3FZ 7IOR3T. 3ISN2MNJ2M
J* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LN /EGL2(WR3SF,3K&,+E	R2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 6 J +ECS* 6 2 WR3S3U7TZ 7AWLE*M+CB * B * B * B +ACK* B 2-6 7OWD7LOU2 &(7NWPT6)*JCC* B * B * B 2 WI+RB * B-7ROE7USL7ASN6 KE7RKO2 ?C+DCE3WWHR
E*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+ICS7SSE2 ?T* :1.7OE28& 3FF +BS+A	K2 WG* B1* B * B * B * B * B * B * B * B "
*M+CB * B * B * B 7FKO2 ?M3D3U+UCS+ACK3ASN2 ?C3M3P3EWM3NGT+RCY3MSO7UWL3SN K6,*JCC* B * B * B 6 GE7USA3I;O2 /A2*/A2+/C2*/C*=:120& 7SV 3SSE".*M+CB * B * B * B +ACK7MOU3TJ 3E& 7NR +HCE3R;A+GCE*-B1+TCO"+61"J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7U
B3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 2 R 3E	F7NSI3I;O2MNJ* B * B * B 2 N /EGL2(/A2)&=3NWT3GGR/LF(6/GS+RT*(.17TR**)"**1"++C+K+T*)**&2*)B,3S7U3MSE2MNJ* B * B * B 2 > 7VKE* CT3F?R/MB 2 ?T2 ;I3F;I7I	T")6.*JCC* B * 
 * B 6 GE7U[I3AWL+NCT3AWR2 T3ER 3E	F7NSI3I;OS*M+CB * B * B * B 3C3E21F(/K6)7ISN7EKG+AL*1"/7COO*(	T7SKQ/TF(2+N(7KR*+AN+T&).*J**)2)3S7U3MSE2MNJ* B * B * B 2 > 7VKE* CT3F?R/MB 2 ?T2 	P*/&2",*M+CB * B * B * B 3C3E21F(/K6)7ISN7EKG+AL61N/7QSR*(612(/A2*	S7NR(*)*
**&26,WS3MWM3D> 7VKE" 7T*JCC* B * B * B 6 KF+OCM60R 7OB /IJ/*)B,3WWH+RCE7KN=7QSR*(:12-/C2*/C")6.*JCC* B * B * B 6 [E7AWL3A	TO7N*JCC* B * B * B 2 GL3NWD+NCS3TGR3N[S3O7R3A	T+OCN+ICS3UWS3DZ +OCR3C3A3C3U3A	T+O;N2MNJ* B * B * B 6 J 3EWF3R;EC7E*JCC* B * B * B *
;R3B3U7IOR+C3H2 :	3UWM3ROI+ACL3C3A3C3U3A	T+OCN+OCF3E3L7ISP+ICC7ISN7EKG7AOL2MNJ* B * B * B 2 F +NCD3E3L7ISP+ICC3F;U3C	T7OON*	B,3H;A3D?B+OCK7SKE7IOE6 CS3E	C+ACL3F;U3C	T7OON",*M+CB * B * B * B 3N7U3E	R3SC3E6 3AT3EGM3T/I2 ?V+LB.*7B,.1Z9*5B,+P;P. "7.-B9".*MC*M
CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 WC+L"17ROE2,/A2,WIR6)*JB * B 2 WI/RB=*MBJ* B 2 F /R7I"26.*JB * B 2 WG+O"=.0V.2-/A.)B+".65*JB * B 2 WG3O^=+E/O3G?E2*/A*MBJ* B 6 J /
7S.0V.*MBJ* B 2 & 3F^(+E	O.1J,",64*JB . F 2 WI/RF=*MBJ* B 62J /E7S.1^./E"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^ /E7O7SKQ3T^(+E	O*MBJ* B 2 ^ /E7O3G?E2+
GO*M* B * B 7AKA3IF=R7I*JB * B 6 KA3IF=+R/I3G?E*MBJ* B 6 J /E7S7ROE2+WRS*M* B * B +IF3G?E2/GA+R7I.0&..9&9*)23.5V,*MBJ* B 65J /E7S7ROE6/KA/IZ*.."2.3"1.5CE*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"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