File CSRT.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 7UKB7OSU3IWN6 OCR7T"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?S+RCT3C3O3U;M3S> 3FF 2 GM3T	RX*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2
GC+LCL7CKS3TF(*,3B3R:,*,3M+M	S2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 2 F * B-3N7A3E> 3F& 7NWP3T6 7AKT+ICX+TCO+BCE7SKO3TSE2MNJ* B * B * B 2 J * B-3N7A3E> 3F& 7NWP7TZ 7ESC+OCR3W	H+CCH3C;O3T	A+NCS7SKO3T;I3G. E7Y*JCC* B * B * B * 
R2-: 3AWM2 [O2 ?S3RWT3D> 7UCT+UCT7MSA7RI2MNJ* B * B * B 2 : * B-3N7U7BKE2 [O2 ?R+WCS+ICN3AF +NCDR*M+CB * B * B * B +M6 6 WN3MWB3R> 3FN 7OWL7MON2 ;I* CA3ASN* CR3ASN2 WL7NSG3H> 3FJ 2MNJ* B * B * B 2 6 +SB 2-> +NCE3D
I+ICT3N7U7BKE2 ?F7RN 7TKO3AWG2 ?M+DCE+OCF7MSA7RI" 7A*JCC* B * B * B * B * B . B * B-3G;E3EGRL*M+CB * B * B * B * B * B * B16-N 3Y7M7EKTI7C*JCC* B * B * B * B * B . J * B-3DGI3G;OA7L"J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 GM3T	R7XJ 2 GC3N?N3TJ 3E& 7NR
+HCE3S7A3E2 3OGC3T?I3NF 3S6 7AKT+ICXA*M+CB * B * B * B 7MSA7RI* CR+ICS7A
L7AOY* CA3G;E3EGR3L6 7AKTI7X*JCC* B * B * B * CM7MOU3TJ 3E^ 3RGE7TKE2 T+ACN3OWN".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 2 O7C*JCC* B * B * B 2 OCP7Y"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3C3O3U;M
S> 3F& 7NWP3T6 7AKT+ICX3AF +RCE7SKO3TSE2 ?T2 ?F+RCM7OSU7PSU2 GM3T	RX*M+CB * B * B * B +RB.3TWH2 ?S3RWT3DN 7OWL+MCN7SGE3U;E+CCE+ICS7DSE3E7R3IWN3DJ 7YR +HCE3V3A7UOE2 [O2MNJ* B * B * B 2 V 3L7E7ESN3S& 7NJ +OCW3VOE7TKO* ;B2 T3E2 3OWW+SCT3V3A3USE2 3E3EWM+NCTI7
*JCC* B * B * B * CB3W3I3LN 7AOU7ER +HCE7CKO7ROE3P;O3D;I3GN 7OWL+MCN+OCF7AR 3OJ 7EB 3LOA+ECDI7N*JCC* B * B * B 2 T3EZ 7IOR3TN 7OWL+MCN+OCF+RB.3TWH2 	H3GWH+SCT3V3A3USE2 3E3EWM+NCT+OCF7B^ 3I3L2MNJ* B * B * B 2 N 7AOU7ER +HCE7CKO7ROE3P;O3D;I7GJ +OCW+OCF7AR 3
J 7EB 3LOA+ECD+ICN3TWH2 GLS7T*JCC* B * B * B 2 ?C3L7U3N> 7FJ 2.& 3FR 3U3P3IGC+TCE3V3A7UOE6 E7ISS2 ;I* 3B2 TE*M+CB * B * B * B 7CKO7ROE3P;O3D;I3GN 7OWL7MON2 [O* CA3AWR2 ?M3VSE2 ?T* CR+ICN3TWH2 GS+MCE3OSRE7R*JCC* B * B * B 6 OA2 ;I* ;A2MNJ2MNJ* B * : *.:.*.
.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE7CKS3TF(*,3B3R:,*,3M+M	S*MBJ* B 2 R 3IWM3N	S+OCN/AF(2)J,*(&1*,R"16)"J7C*JCC* B * B 2 ?M+VCE7SKO3T;I3G. +ECY3VOE7TKO2 ?T2 	F7RSS2 ?R3W> 3F> 7UCT+UC
7MSA7RI2MNJ* B * B 2 F +NCD3B	U+LCD3O	R3G;I+ACL7SGE3U;E+CCE7LOI3T& 7NN 3E?C+NCD7R
O2MNJ*MBJ* B 2 & /KF=*MBJ* B 2 R /OF 20* *=21M*M* B * B 3R&(/K6)3B*(")*M* B * B 3R&(/KF+2)*=*MBJ. F 20& 3K&=3K:+2MNJ2MNJ* B * B 6 N 7OSR2 3E3EWM7NOT2 ;I2 ?S3R	T+NCG7K	E2 WV3C?T+R" 3O	R3G;I+ACL7SGE3U;E+CCE7LOIT*M+CB * B * B +ICS7ROE7EWQ3EON+ECD3AOC3OSR3I
N+L	Y2MNJ*MBJ* B 2 2 *=/M"1*M* B *2B03I?S/R7T"0*M* B * B 3L2="-61*JB * B 6 CI"=61*JB * B 6 GI*=/N"1*M* B * B +DCO*5B0/JJ=",7L*JB * B 2 [I*(R+I	Q*-R+I	P.)N .0R,.0R,"0*M* B *3B03I?S/R7T"1*M* B * B 3RGS/V7E3R&(Q6)*JB * B * R+I	Q*=R+I	P*MBJ* B 6 J 6(CI6)J=7S[
E*M* B * B 7S[A/E7R3R&(/QF+")*M* B * B 3R&(/QF+6)J=6(CI*+&1*MBJ* B 6 J 6(CI*+&12=GS7VKE*MBJ. R 20& 3P&=3P:+*MBJ* B 2 & 3Q&=3Q:+*MBJ. V 20N 7OSN7IWNE*M* B * B +IF3I?S+R	T. B2.,B6.,B22MNJ2MNJ* B * B 2 6 3OWV2 ?C3L7U+NCS3F?R3M6 7AKT+ICX7AR 3O6 7AKT+ICX+R" 3N
U7BKE2 ;I2 WS3C;O7DJ O7W*JCC* B * B 2 [O* CR7RCE7ROE7ESN3SN 7OWL+MCN3N7U7BKE2 [O2 GM3T	R3XF 2 ?T2 WB2 ?M3VSE")*MC*M* B *6B0/I7Q"-7N*JB * B 2 ?D. B7. 7J216,*MBJ* B 2 & 3Q&=3Q:+2MNJ2MNJ* B * B 2 ^ +ECT3C3O3U;M6 WN3MWB3R& 3N6 7AKT+ICXA*MC*M* B * B /I62+I/Q"2
M* B * B /I7N3R&("26)"J7C*JCC* B * B 2 ?M+VCE3C3O3U;M2MNJ*MBJ* B 2 & 3R&=/QF+*MBJ* B 2 N 3A3L2 OC+PY3A&,7NJ,6(KI2):,*,3M+M	S*MBJ. ^ 20N 7OSN7IWNE*M* B * B 7RSE3U;R*MBJ* B 2 V N7D"JBZ"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"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