File DTCNP.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 SD7CCN2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 F 2 WS3RWI3SV 3XGP3N	S+OCN+ICN3CWH7BOY7H[E2 ?P3L;Y3O	M7AOL2 	W+TCH3ISN
EWP3NWDN7T*JCC* B * B * B 2 GV3RGI3BWL* CX+ICS3TGR3N[S3O7R+ECD+TCO7AB 7O	L3N7O3I3A2 	W+TCH3ISN3EWP3NWDN7T*JCC* B * B * B 2 GV3RGI3BWL* 3Z2 W3EWR. 7X7A***+;B2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LR 3T;C3PF(*,3B3P3O*,3N7C^,3O/R")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +AB * B 2-Z 7ASC+OCR+OCF3L;I7EKA2 WT+RCM+ICN7G[I+ECN3L;I7EKA6 KT7AON7FKO7MSA3I;O2MNJ* B * B * B * B * B * B 2 ?D3U3B7EB 3ROE3I	S+
CN7VKA3IKAL7E*JCC* B * B * B * CB* B * B-3C;O3SGT+NCT7TKE3M& 3N^ 3IWV3N2 3IWN+ACR3TGR3N[S3O7R3A	TO7N*JCC* B * B * B * B * B * B 7DWO3BWL6 KP3E	C3S?I7NZ 3A	R3A3BE*M+CB * B * B * B 3P3O* B 2-N 3O[E3FOI3I;E7TZ 7ESC+OCR+OCF3P3O3Y?N3MGI+L" 7ROE7USL7ASN2 GV3LWU
)*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 +NB * B 2-R 3IWM3N	S+OCN+OCF3CWO3F	F3CWI+NCT3VOE7TKO7SB +OCL3ASN" 7C*JCC* B * B * B * CC* B * B-7G[I+ECN3CWO3F	F3CWI+NCT3VOE7TKO2 [O6 E3P;A3S?IN*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 6 B +OCL3ASN* CC7M	A2 WB2 SI7ESN3IGC7L	L2 ?L7CSAE7D*JCC* B * B * B * B * B * B 7DWO3BWL6 KP3E	C3S?I7NZ 7ESCO7R*JCC* B * B * B 2 ?W+RCK* B-7WKO3K;I7GN 7TKO3AWG2 [O2 	D3M;E3S?I/NJ "*7N*JCC* B * B * B * B * B * B 7DWO3BWL6 KP3E	C3
?I3NF 3RGRY*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3CWO3F	F3CWI+NCT3VOE7TKO* CC3R7E3A;I7SV 3NC3A
N+ECD+ICF7NSO2 ?C3ION3I	DN7G*JCC* B * B * B 2 	W+TCH3CWO3F	F3CWI+NCT3VOE7TKO2 ?PL6.*JCC* B * B * B 6 CO3EGR3T?I3N& 3SJ 3YGP3SWS3D& 3NN 3AWS* CN7LOE7SR 3H;A* :12MNJ* B * B * B 6 R +HCE3L;I7EKA6 KT7AON7FKO7MSA3I;O. 7X7A***+CB+OCR+Z"=21F/6)"(*-	B6 KT7AON7FKO
7S*JCC* B * B * B 2 T7EJ 3A
N+E" *-21*+&12 ;I* CX+TCO3TWH2 GR3NWG6 *(7L*,+RB)+ICN+ZB,3WWHR7E*JCC* B * B * B 2 3Z*="-21J+2)F/2 ;A7D* +R"=21J-2)F/".*M+CB * B * B * B 7FKO2 	G3V;E2 3Z6,* 7R^ 3E" 3AWV. 7A*2"/+Z7R+Z	L2 ;A3DJ *="-+Z/R+Z	L6/*(7R*-L6)"J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 
UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 6 R +HCE3TGR3N[S3O7R3A	T+OCN+ICS7BOA+ECD+OCN3TWH2 WR7CKU3R;E+CCE7EWQ3A	TO7N*JCC* B * B * B 2 ?F3RN 3HKE3YS+ECV3P3O3Y?N3MGI+LCS3T:(*,	X2MNJ* B * B * B 6 R *(/N61",.)J=**+X3T:
*,	X*-T/NF-*,	X",*M+CB * B * B * B 3WWH+RCE3TWH2 	F7RSS2 WT+RCM+ICN3BGR3CWK+TCS+ICS3TWH2 ;I7DE",*M+CB * B * B * B 3TWH2 WS3C;O3D& 7SR +HCE3A
R3UWM+N;T2MNJ* B * B * B 6 N 7TKA3T;I7GZ 7AWL+ECS3AWR* T60",.)F=6,R *(21/X6)X6.*JCC* B * B * B 2 T7ER 3R;A3S?F3RGM3T?I3N& 3S& 3M3P3I	C7T	L2 WD3F;I+ECD+BCY3MGE+NCSO7F*JCC* B * B * B * CX2=F **/Z7BR 3OWG3TWH7R^ 3IT2MNJ* B * B * B 6 N +UM3P3O*(	I**+Z2*&(*-&1
,N 3U7M+ECD3OWV3R& 6 KF+OCM61R 3O: ")*M+CB * B * B * B 6=WS3MN(*(	I**T/IF-*,	X6,N 3U7M+ECD3OWV3R& 6 KF+OCM61R 3O: ")6."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER 3T;C3P
(*,3B3P3O*,3N7C^,3O/R")*MC*M* B * B 3D7I7EON3I;O2 ?P/LF(2)N,*(&12,?W+RK"16)*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN3AJ,2,?P3LN,2,?W+R3K7HB,2,SX.,CX2MNJ2MNJ* B * B 6 R 7ESS2 [O2 	D3M;E3S?IN*M* B * B +IF/NF-*)22.1N,2MNJ2MNJ* B * B 2 R 3IWM3N	S+OCN7LOE7SR 3H;A" 62*J
 . F 2 ?P/LF(2)N=*(&1*MBJ* B 62J 7EWTR7N"J7C*JB . N 2 ?P/LF(2)N=*(&1*+C*2*)B*M* B * B 3P3O*(&2*=C*2*)A*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"=7B*JB * B 2 ?W+RK.36)20R."0*M* B * B 7WKO/K
(2)F=*MBJ* B 6 " 3DF="+7A*JB * B . CX*=/BB*MC*M+CB * B * B 3C3A3C3U3AWT2 ?C3E[F3I	C7ESN2 WV3C?T3R> 3F: 7ESX2 C7E	B3SWH7VB 7O	L3N7O3I3A2MNJ* B * B 2 F +NCD3ASD6 WM3L	T3PWL2 [O2 T+ICS3VOE7TKO2 ?T2 ?P3L;Y3O	M+ACL3P3O*MBJ* B 2 R /OZ . 7J23:,*MBJ* B 6 B *=:0D6
"J7C*JB * B 2 ?D* B5/KJ=",7J*JB * B . 7H7P^-3O/R*(*2/KN-6)"+60^*3O/R*(*2/KJ-")*M* B * B 7P^=3O/R*(*2/KJ-")*M* B * B 7WKO/KJ(**7K.26)H*M* B * B 7WKO/KJ(**7K.36)P*M* B * B 3P3O*(7K.16)3P3O*(7K*1.)3HN**(	J*MBJ* B 65B 2=SX"*7P*JB * B 2 ?W+RK22***-&1*=:0D60*JB
* B 2 ?W+RK22**6)B=*MBJ* B 66B +OL/J6)3C*(6)B**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"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