File DTCSP.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 SD7CCS2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 F 2 WS3RWI3SV 3XGP3N	S+OCN+ICN3S	H3FWT3DN 3HKE3YS+ECV3P3O3Y?N3MGI+LCS7
SIH*M+CB * B * B * B 3ISN3EWP3NWD+NCT7VKA3IKA+LCE3X& 7SR 3R;A3S?F3RWM7DR 3OF 2 ?P3L;Y3O	M+ACL7WSIH*M+CB * B * B * B 3ISN3EWP3NWD+NCT7VKA3IKA+LCE+ZB,3WWH+RCE3XF=**/ZB6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 SD7CCS*(3A7BB,+O3L3NN,2,?W+R	K2MNJ2MNJ
 B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 2 F * B * 6 2 GF3C?T3R> 3F2 3IWN+ACR7TKE3M& 3N^ 3IWV3N2 3IWN+ACR3TGR3N[S3O7R3A	TO7N*JCC* B * B * B * B * B * B 7DWO3BWL6 KP3E	C3S?I7NZ 3A	R3A3BE*M+CB * B * B * B +BB * B 2-N 7OON3T;A7TR 3E7R2 ;I2 
G3V;E2 	L3NGE7RR 3R;A3S?F3RGM3T?IN*M+CB * B * B * B * B * B 2 R 3OKU+LCE3PWR7COI3I;O2 GV3RGI3BWL2MNJ* B * B * B 6 B +OCL* 6 2 ?C3E[F3I	C7ESN2 WV3C?T3R> 7FB 7O	L3N7O3I3A6 J(7EWS3LGT+NCT3V3A+U	E2MNJ* B * B * B * B * B * B 2 ?C3E[F3I	C7ESN3SF +RCE3OSR3EWR3DZ
3R7O2 ?L7WR 3O" 3IG2MNJ* B * B * B * B * B * B 2 ?D3U3B7EB 3ROE3I	S+OCN3VOE7TKO2MNJ* B * B * B 2 : * B * 6 2 	D3M;E3S?I3N> 3FN 3O[E3FOI3I;E7TZ 7ESC7OOR2 ?P3LF +NCDC*M+CB * B * B * B +CB * B 2-^ 3IWV3NN 3O[E3FOI3I;E7TZ 7ESC+OCR+OCF7ECX7AON3I;O2MNJ* B * B *
B * B * B * B 2 ?P3LF +NCD3C6 +ACY+BCE3IWD3N	T3C3A+LCY3LOO3AWTD*M+CB * B * B * B * B * B 2 N 3O[E3FOI3I;E+TCS3AWR6 KO7DKE+ECD3F?R3M2 +OCW+TCO3H
IH*M+CB * B * B * B * B * B 2 R 3OKU+LCE3PWR7COI3I;O2 WV3C?TR*M+CB * B * B * B 7WKO+KB 6-^ 3O/R3I
N6 SS3OGR+GCE+OCF3D7I7EON3I;O* *2N*M+CB * B * B * B * B * B 2 R 3OKU+LCE3PWR7COI3I;O6 KA7R	A2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 N 3O[E3FOI3I;E7TZ 7ESC+OCR7CJ 3EGM7ION2 ;U3CGH3NWG3D& 3F: +OCT3C	O3N	C3D;IG*M+CB * B * B * B 7WSI3HN 3O[E3FOI3I;E7TZ 
ESC+OCR3P3O".*M+CB * B * B * B 3OWP7RSA3I;O6 OI6 	B7POA3SSE2 ;I2 GC+SCE3N2 7EOS2 T+ACN"16.*JCC* B * B * B 2 T3E2 3IWN+ACR3TGR3N[S3O7R3A	T+OCN3XF=**/Z3B> 7R* .=F(*/	A*(7X+BB)3TGR3N[S3O7RS*M+CB * B * B * B 3TWH2 GR3NWG. B(*,&12 ;I* CX+TCO3TWH2 GR3NWG6 *(7L*
+RB)+ICN+ZB,3WWHR7E*JCC* B * B * B 2 3Z2=J-*/CA3ASN6 KZ.=F(*-	B*/;A2MNJ* B * B * B 2 Z +OCR7G[I+ECN+Z3L6 KZ2 WW2 GH+VCE/AF=6/*(7R*-+LB)3ASN. 7B2-3Z6/*(7R*-+L:)2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2
?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3TWH6 KT7AON7FKO7MSA3I;O6 OI2 GB3SSE2 ;O2 T7EJ 7EWC3RWR3NWC6 GE7USA3I;O2 ?FR*M+CB * B * B * B 3S	H3FWT3DN 3HKE3YS+ECV3P3O3Y?N3MGI+LCS+TS7N",")*M+CB * B * B * B +TS/NF+*,	X.=R(**7X*2*)+TS7N",6)R-3S:(*-21+X2)2
NJ* B * B * B 6 ^ 7HKE7ER +HCE7FKI+SCT7TKE3M& 3NJ 3ROA7KSE3S& 7SR +HCE3ISN+E3X2MNJ* B * B * B 6 R +HCE3SOE3OSN6 OI2 T3EF 7RWG3M;ET6.*JCC* B * B * B 6 SS7ASR3I
N2 GV3LWU3SF +RCE+TS60",.)F=6,R /SF(*,	X*=*2/XF-".*M+CB * B * B * B 3TWH6 KT7AON7FKO7MSA3I;O6 OI2 7I3P	L7CSI+LCY3D[E3IWN3DJ 3Y6 3E;A3S> F*M+CB * B * B * B 3XF=**/Z7BR 3OWG3TWH7R^ 3IT2MNJ* B * B * B 6 N +UM3P3O*(	I**+Z2*&(*-&16,N 3U7M+ECD3OWV3R& 6 KF+OCM61
 3O: ")*M+CB * B * B * B 6=WS3MN(*(	I6*OT*(7I61",*)B,3S7U3MSE6 [O+ECR3IZ 3R7O* B1+TCO+N:)2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE3DOT+SP3AJ,2,?P3L:,*,3C7WKOK6)"J7C
JB * B 2 	D3M;E3S?I7NB +OL*12)/CF(6)^,3O/R*(&1*MBJ* B 2 R 3OKU+LCE3PWR7COI3I;O* 3A7BB,+O3L7C^,3O/R*,3H7P",7D","0*MC*M+CB * B * B 7TOE3T> 3FR 3IWM3N	SO7N*JB * B 2 [I*(7N.1J)*,21"3*MC*M+CB * B * B 3D7I7EON3I;O2 WL+SCS3TGH/NJ *MBJ* B 61B +OL.16)/CF(")*M* B *
B27RSE3U;R2MNJ*MBJ* B 63" 3DF="+7A*JB * B . CX*=/B/BF-..CD*MBJ* B 6 B +OL.16)/CF(2)N+*(&2.*CX*MBJ* B 6 B +OL.26)/CJ(6)"*D*M* B * B +IF/NJ-*)22.2R,2MNJ2MNJ* B * B 2 & 7NSI3I3A3IGZ3T?IN*M* B * B47WKO/KF(.)F=..CD*MBJ* B 6 ^ 3O/R*(&2.=CX*MBJ* B 6 ^ 3O/R*(&3*=
0D60*JB * B 2 ?W+RK.46)X7D*JB * B 2 SX2=SX2+SX*MBJ* B 6 " 60"=60"+"0*MC*M+CB * B * B 3C3A3C3U3AWT2 ?C3E[F3I	C7ESN2 WV3C?T3R> 3F: 7ESX2 S7ISF+ECD3CWH7BOY7H[E2MNJ* B * B 6 B 7O	L3N7O3I3A2 ;A3DF +DCD3M3U7TCI+LCE+OCF3T	H7SZ 7ESC+OCR+TCO3P3O3Y?N3MGI7LB O7L*JB 
 B 2 ?D* B6/JN=",7N*JB * B . 7P20R."0*MC*M* B * B +DCO25. *=22J*M* B * B 7HB=2-?W+RK22.**-&3.+CX2*?W+RK22.**-&2*MBJ* B 6 B 2=?W+RK22.**-&2*MBJ* B 6 ^ 3O/R*(*2/KJ-2)"=*MBJ* B 6 ^ 3O/R*(*2/KN-6)B=*MBJ* B 6 B +OL/KF-6)B=+OL/KF-2)"+**CJ6)*JB . V . 7P+X+DP*M* 
 * B 7WKO/KJ(**7J.16)20R."0*M* B * B 7WKO/KJ(**	J"=7P*JB . Z 2 ?P3L*(2)N=*(	J"*7P*JB * B 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

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