File CEL2.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 WCL62"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?C7MWP7TOE2 T3E^ 3EWN3R3A3IWZ3DN 7OCM7LSE3EV 3L	L3P	T3C& 3NWT3GGR3L> F*M
CB * B * B * B 3SOE3OSN2 	K+N;D2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LN /EKL2(WR3SF,3KF,*,3B7IKE")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B 7ROE* B 6-J 7EWS+LCT3V3AU7E*JCC* B * B * B 2 /A* B * B-3MSO7UWL+S" 7ICN+U	T2MNJ* B * B * B 2 F * B * 6 2 ?C7NSS7ASN2 WT+RCM+ICN3N7U3E
R7TKO2MNJ* B * B * B 2 J * B * 6 2 GF3C?T3R> 7FF 3USA7RSA+ICC7TKE3M& 3N: 3UWM7RSAO7R*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 ?F3RF +BS+A	K2 WG* B13TWH2 WR3S3U3T& 7SN +ECT+TCO.1^./E"32 [I* CB+ICS* B * B * B * B * B "0*M+CB * B * B * B 7POO3I	T+V3E2 ?T. F-2.V7*3B8+ICF3B& 3S: 3EGG7T[I+EB.* B * B * B * B * B * B * B * B * B . 
 2MNJ* B * B * B 6 N 3POE3I3A2 GC7SOE6 KAE*M+CB * B * B * B 3K.(2)> 3BGT3IWN7D^ 3IT* CA.=F 2,J * B="1*M+CB * B * B * B 3E.(2)> 3BGT3IWN7D^ 3IT* CA.=F 2,J * B=+C+K+CCK3WWH+RCE+CCKI7S*JCC* B * B * B 2 ?C3M3P3EWM3NGT+RCY3MSO7UWLS6.*JCC* B * B * B * B+KB)7OSB
A;I+ECD7WSI3HF * B=*1B,/B6 " 60*JCC* B * B * B * D+KB)7OSB3A;I+ECD7WSI3HF * B=*0B,/B6 " 61*JCC* B * B * B 2 W3EWR* 3K* 3E* 3B* CD3D[E3IWN6 CS3E	C+ACL7COA+ECS+OCF3TWH2 WG7NKE3A	L3ZSE2MNJ* B * B * B 2 N 7OCM7LSE3EV 3L	L3P	T3C& 3NWT3GGR3L> 7FN 3E?C+NCD3K;I3D
 7NR +HCE7UWSA7L*JCC* B * B * B 2 ?N7TSA3I;O2,F +NCD3TWH6 KA3G7U7ESN* CK+OCF3TWH+SCE3F;U3C	T7OON2 WM7AON2MNJ* B * B * B 6 R +HCE3MSO7UWLS6."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
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 6 J /E7S7ISN7EKG+AL*(/A7BR***	T6/N(7QSR.(F(*++T+T*)*(.12(/C**	T.*J**)*)*(.17TR*")6)*JCC* B * B * B 6 WS3MWM3D> 7VKE* CT3F?R/MB 2 ?T2 ;I3F;I7I
T")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 
 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"27ROE2,/A*,3A3B&,+E	R*MBJ* B 2 & /E7R"0*M* B * B 3A	R*=:2*MBJ* B 2 ^ /E7O*(:025F-+K.).0V.*MBJ* B 2 ^ /E7O3G?E2+WG3OF*K*M* B * B 7ROE"=7A*JB * B . GA*=/AB*M* B * B /B603BJ+*MBJ* B 2 & 3F^(+E	O.1J,",66*JB . F 2 WI/RF=*
BJ* B 22& 3FJ(*)23.8R,*MBJ* B 63J /E7S*-:1.7OE*8B * 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 * B47ROE*=:1.7OE*8B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * 
 . B *MBJ* B 6 J 7EWTR7N*JB . V 2 WG3O^=+E+O7AKAI*M* B * B63G?E6=GS+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.5^,",67*JB . ^ 2 WR3SF=21F/R7I*JB * B 2 WR7SJ=+E/S.0V..7^0.9N6+E*07ROE*MBJ* B 68J 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

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