File DATSM.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 GD3T7S2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 : 3D7I2 ?P7ISN3S> 3FF 2 	G3V;E2 GT3BWL2 	W+TCH3M;O3O?T3NOI6 KA3G7U7ESN
SF R7E*JCC* B * B * B 2 WS3LOE3TSE2 ;A3D> 3RWD3RSE6 WS+CCH3TGHT*M+CB * B * B * B 7AOB6(KA3G&(6)"-2)^.3EF.+BS3A
R*(	J*-	X2 [I* ;I+G;TJ6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 GD3T7S6 "(*,3Z3F&,7R
O2,OI+O3L3A
R2,GV3L:,3D7I")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +XB * B * B-7DWO3BWL6 KP3E	C3S?I7NN 7EKA+CCH3A
R3UWM+N;T2MNJ* B * B * B 6 * * B * B 2-R 3OKU+LCE3PWR7COI3I;O2 WV3C?T3R> 3FF 7RWG3M;E7TZ 7AWL+ECS2(	D3M;E"-*M+CB * B * B * B * B * B * B 3S?I3N& 7R
O*)B.3TWH6 KA3G7U7ESN2 GV3LWU3S6 7USS2 WB6 SS3OWR3D& N*M+CB * B * B * B * B * B * B 3ION3RGE3S;I3G> 3RR 7EKC7EOA3I
N2 WS3QWU3NWC".*M+CB * B * B * B +FB * B * B-+ICN7COA3E& 3C3O*=21* CF+ICS3TWH2 ?D3U3B7EB 3ROE3I	S+OCN3VOE7TKO2MNJ* B * B * B * B * B * B 2 > 3FZ 3UON3T?I7NZ 7AWL+ECS2(	D3M;E3S?I3N& 7R
O")6.*JCC* B * B * B * B * B * B 2 ;I2 GC+SCE3I?C/LJ=2,Z 6 OI* CA7DWO3BWL6 KP3E	C3S?I3N& 7R
O6 	B" 62*JCC* B * B * B * B * B * B 2 GM3T	R+XB.3TWH2 	F7RSS2 ?C3L7U7NN 3POE3I	F+ECS3VOE7TKO2 [O6 WF+N7C2MNJ* B * B * B * B * B * B 2 	T+OCN3V3A7UOE2 ;A7DR +HCE3SOE3OSN2 WV3C?T3R> 3FR 3E	R7VSA3IWVS6.*JCC* B * B * B 6 KI+OCW* 6 2 T3ER 3IWM3N	S+OCN+OCF3VOE
TKO* CZ3ASN2 [O2 GE+CCH3C3O3U;M2MNJ* B * B * B * B * B * B 2 & 3N6 7AKT+ICXF6.*JCC* B * B * B 2 OI+OCL* 6 2 T3E: 3UKM+ECR+OCF3C3O3U;M3S& 3NZ 2 &(*.;E* B1+OCR*2:)2MNJ* B * B * B 2 F +RCG* B 6-J 7EWS3L	T+NCG7DWO3BWL6 KP3E	C3S?I7NZ 7ESC+OCR+OCF3S3E7ESC+ECD3A
N2MNJ* B * B * B * B * B * B 2 > 3RWD3RSE6 KA3G7U7ESN2 GV3LWU+S" 3D7I7EON3I;O2 SN+I	M".*M+CB * B * B * B 3V3A* B * B-7ROE7USL3I
N2 ?D3U3B7EB 3ROE3I	S+OCN3VOE7TKO2 [O2 WS3LOE3TSE2MNJ* B * B * B * B * B * B 2 Z 3UON3T?I7NZ 7AWL+ECS2(	D3M;E3S?I3N: 3D7I2)& 3NN 3AWS2 OI/O7L"16.*JCC* B * B * B * B * B * B 2 ;I2 GC+SCE3I?C/LJ=6,Z +ACL+ICS3TWH2 ?D3U3B7EB 3ROE3I	S+OCN3VOE7TKO2MNJ* B * B * 
 * B * B * B 2 > 3FZ 3UON3T?I3NF +NCD7DKE3IGV7T[I7EZ 7AWL+ECS2(	D3M;E3S?IN*M+CB * B * B * B * B * B * B 22:*3D7I6)^ 3HOI3HF +RCE3S?T3RSE2 ;I2 GP7IOR2 &(*.;E2 GE+CCH3F;UC6-*JCC* B * B * B * B * B * B 2 	T+OCN3V3A+UCE+ICS3F3O7L
O+ECD+BCY7IOT2 WD7R[I3A	T+VCE3V3A+U	E".*M+CB * B * B * B 3N	D+MB * B-3TWH6 WN3MWB3R> 7FB 3O;I+TCS3W	H+CCH7MOU3TJ 7EN 3EWL3CWT3D> +UCTO7F*JCC* B * B * B * B * B * B 2 T3E^ 3IWV7NR 3A3B+E" 3ZZ,")6."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 ?N2 OA3T?I3N& 3
N 3AWS6 KI+OCW7LOE7SR 3H;A* :12MNJ* B * B * B 2 & 3F& 7NWP7TZ 7AWL3E: 3D7I6 OI6 KG7ESA+ECR3TGH3N& 7R
O6,R +HCE3P?R3GGRM*M+CB * B * B * B 3S3E7ESC3S> 7N	L* CA7MA7IWM7MR 3A3B3E> 3F& 7R
O2 ?P7ISN+SB.2 T3EWR7FKO7ER H7E*JCC* B * B * B 6 OU+ECR3O
U+HCT+TCO3CWH+CCK7CKO7ROE3P;O3D;E+CCE7BSE3WWE7NR 3A3B+E" 3A
R2,GVL6)*JCC* B * B * B 2 ;A3D& +TCS3D7I7EON3I;O6 	B2 ?C3MGP7ROI+OCN+OCF3N	D3MF +NCD3I?R+WB,+ICN3OSRE7R*JCC* B * B * B 2 ?T2 WG3TN 7OKR7ESC2 WR3S3U+TCS+ICN7FKU3TWH7R^ 3O/R2 	W+TCH3TKA+LCE6(KA7GZ,+A	L".*M+CB * B * B * B 3T	H7SR 7ESS2 GM3YJ 3ER 3OWN2 WB7FKO
E> 3RF 3FWT3RN 3A3L3I
N2MNJ* B * B * B 6 N 7UKB7OSU3IWN2 GD3T7S".*M+CB * B * B * B 3SKU7RWO3T;I3ER 7AOT3MV 3SWP3CGI7L	L2 GC3NJ 7EV 3SSE2 ?F3R^ 3EWN7RSA3I
N2 TE*M+CB * B * B * B 3TKA+LCE6(KA7GZ,+A	L2 WN3EWD3D& 7NN 7UKB7OSU3IWN3SR 3A	L2,R 3A	H2,F +NCD3DOA+F;I2MNJ2MNJ* 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 3S3E7ES
3I;O6 OI2 ?D+NCE+BCY3SGE3RC3I
N2 T7EN 7UOB3C	R+PCT3J> 7FR 7HSA2MNJ* B * B * B 2 F 7RWG3M;E+TB,3W	H+CCH+ICS7NE7TR 7O" 2 J(3IGN+RCY3SGE3RC")6.*JCC* B * B * B 2 [A7TKE7WKA+DCS3N	E3GKH7OKU3I
N6 KA3G7U7ESN2 GV3LWU3SF +RCE7TOE3TSE2 ;AD*M+CB * B * B * B 3S3E7ESC+ECD+ICN3TWH2 KA3OWV2 WS3NWS".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 GD3T7S*(3X3ZZ,6,KI+O3W3I?C
LF,+R3G3V3A2,SN+I	M2MNJ2MNJ*MBJ* B 2 R 3IWM3N	S+OCN/ZF(2)Z,*(&16,KA/GF(6)Z,+AL"16)*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN7X*,*,3F3A
R2,GVL*MC*M+CB * B 7COA3E& 7R
O*=B1+ICS3CWH3CWK3D> U7T*JB * B 2 [I6(KI+O7W.1J).3J,.1F,*MBJ* B 21: 2=SNI7M"J7C*JCC* B 2 [I* CN+ICS3GWR3AWT7RR 3H;A6 KI+O3W* CN+ICS7SSE6 GE3U3A2 ?T6 KI+O;W*MBJ* B 2 & 3F:(6-KI+O	W.3N,",62*JB . J . 7N3I?RW*MC*M+CB * B 7COA3E& 7R
O2.WG".62*JCC* B 2 WS3AOR3H;I3GZ +OCR3SKU7SKC7ISP* CJ3SOU7HR 7HSA* Z+JB)+ICS7NE7TR 7O" ".*M* B * B3+IF3Z&(7R
O6)*-*(&1*)25.4R,*MBJ* B 24* 6=KIO7W*JB * B . 7I"1*M* B * B 7GSO/OZ *MBJ* B 25& 6=KIO7W*JB * B . 7J"1*M* B * B6+K"=3J&+.)J/*MBJ* B 2 & 7F"(*-Z+K&).7^,",68*JB . ^ . 7JK*M* B * B 7GSO/O& *MBJ* B 28& "=7K*JB . & 2 [I2(GI+BS3J&-.)F-.)B1.,B1",66*JB . B12 [I2(G
+BS3Z*(6)"-2)R-7AOB*(Z+I6)+X&)*122*122"161*JB . F1. 7JI*MC*M+CB * B 3TKA+LCE3S3E7ESC3I;O*MBJ. F 22. "=7J*JB * B 2 3J"=60*JB * B 6 KJ"=60*JB * B 2 ?D. B2. 7I21:,*MBJ* B 2 F +RG/I6)3Z.(")*M* B * B +IF3I?C/LF-.)R1.,R1.,N1*MBJ. F 63Z +AL22&**-&1*=FK6)*JB * B 
 /K*=/K3I?RW*M* B * B 3V3A*(*2/I6)3F.(K6)*JB * B 2 ?G+TCO"165*JB . R12 GV3L&(2)Z=*(	K*MBJ. F 25* /J7R3J*+R*M* B * B +IF7JKJ6-KI+O	W*126*128"168*JB . Z12 +J3L*=2-3J*MBJ* B 2 & 3F*(+J7L.1F).9F,.9F,"7*M* B *1B7+IF3DKA7S*(2(+J/RF+6)"-2)R-7AOB*(Z3J3J*-&1*-	X.)
1.,&1.,"1*MBJ. F 28* 3L*=/LF+*MBJ* B 2 . *=7JJ7L*JB * B 2 ?G+TCO"260*JB . &16 KJ6=KJ"+61*JB * B . 7K3J*+R*M* B *2B03C;O3T;IU7E*JB * B 2 WR7TKUN*MC*M+CB * B 7COA3E& 7R
O"=61*JB . F26 KA/GF(6)*=*(&1*MBJ* B 6 Z +AL.16)/FF(")*M* B * B +IF3I?C/LJ-.)N2.,J2.,N2*MBJ. J 62Z +AL.26)/FJ(")*M* B *2B37RSE3U;R*MBJ* B 2 V N7D"JBZ"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