File DATSE.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 GD3TWS2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 : 3D7I2 ?P7ISN3S> 3FF 2 	G3V;E2 GT3BWL2 	W+TCH7EWQ3I	D3SGT+NCT3A
R3UWM7NOT6 KAE*M+CB * B * B * B 3S3E7ESC+ECD3ASN6 KO7DKE+ECD3SOU7HR 7HSA2MNJ* B * B * B 2 F +BS3A
R*(	I*-	X2.WG2.KA3SF(+RG+J6)+XB)+ICF3I^.3T*.".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7DSA+SCE*(3X+Z3S+D3Z3F&,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 * +SB * B 2-R 3OKU+LCE3PWR7COI3I;O6 SS7ASR3I
N2 GV3LWU2 [O6 KA3G7U7ESNS6.*JCC* B * B * B 6 +D* B * 6 2 ?D3U3B7EB 3ROE3I	S+OCN3ION3R7E7ESN2 [O6 KA3G7U7ESN2 GV3LWUS6.*JCC* B * B * B * CF* B * 6 2 ;I2 GC+SCE3I?C/LF=2,Z 6 OI2 T3ER 3OKU+LCE3PWR7COI3I;O2 WV3C?TR*M+CB * B * B * B * B * B * B +OCF3F;U3C	T+O
N3V3A7UOE2 R(3IWM3N	S+OCN3I?R+W:)2MNJ* B * B * B * B * B * B 2 & 3NN 3AWS2 OI/O7L*2B,3F& 3SF 2 ?D3U3B7EB 3ROE3I	S+OCN3I?R3WJ /YJ 2MNJ* B * B * B * B * B * B 2 6 7AKT+I;X2 T3EZ 7IOR3TN 7OWL+MCN3SWP3C[I7IOE2 WV3C?T3R> 3FZ 3UON"-*M+CB * B * B * B * B * B * B
3T?I7NZ 7AWL+ECS3ASN2 T7EN 3E?C+NCD3VOE7TKO2 [O2 WD7R[I3A	T7VOE".*M+CB * B * B * B 3I?R+WB * B-3TWH2 	D3M;E3S?I3N> 3FV 3AC2 ?C3L7U3N& 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 +RC
* B 6-J 7EWS3L	T+NCG7DWO3BWL6 KP3E	C3S?I7NZ 7ESC+OCR+OCF3S3E7ESC+ECD3ASN2MNJ* 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 3A3BE6."J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 ?N2 OA3T?I3N& 3NN 3AWS6 
I+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 GD3TWS".*M+CB * B * B * B 3SKU7RWO3T;I3ER 7AOT3EV 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+BCY3C7O7PSU3I
N2 T7EN 7UOB3C	R+PCT3J> 7FR 7HSA2MNJ* B * B * B 2 F 7RWG3M;E+TB,3W	H+CCH+ICS7NE7TR 7O" ".*M+CB * B * B * B 7ASF7E
R3ASR3S: 3E
I3H?B3U	R+NCG3A
R3UWM+NCT3V3A7UOE6 KA7ER 7ESS+ECD3ASN2MNJ* B * B * B 6 N 3EWL3CWT3D& 7NR +HCE3A?B+VCE3S;E+S;E2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE7DSA+SE7X*,3SR,3ZZ,6,KI+O3W3I?
3LF,+R3G3V3A2,SN+I	M2MNJ2MNJ*MBJ* B 2 R 3IWM3N	S+OCN/FF(2)F,+RG*12)3V3A*(&1*MBJ* B 2 R 3OKU+LCE3PWR7COI3I;O* 3X+Z3S+D3Z3FF,+R3G3V3A*MBJ* B 2 & 3F&(7R
O*-&1*129*127"1*MC*M+CB * B 7COA3ER /ZB=6 OI2 C3E/C+ECD7OSU*MBJ* B 21& 3FR(/ZJ).,^1",62*JB . J . 7N3N	DM*MC*M+CB * B +ICF3N& 3S^ 3RGE7TKE2 T+ACN3I?R+WB,3N& 7SN +ECT7EWQ+ACL+TCO3I?RW6.*JB * B 2 [I*(7N3I?R/WR)*,24"3*M* B * B33N&=7R
O2MNJ2MNJ* B 2 N 7OCM3UGT3T?I3N> 7FN 7TKA3T;I7GN 7UOB3C	R+PCTJ6.*JB . R . 7J*(7X+Z	S6/+D*+:1.5CD*MBJ* B 2 & 3F*(*)25.5Z,*MBJ* B 25* "=61*JB . Z 2 [I*(7J3I?R/W")*,28"7*M* B * B73J&=7R
O2MNJ2MNJ* B 2 ^ 3EWN7RSA3I;O2 [O2 GT3BWL6 KA7GZ,+ACL+ICN7COA3ER 3Z:./EB.".*M* B * B8/I7IJ*M* B * B /J7L"0*M* B * B /J7R"0*M* B * B +DCO*1B6/IF=",7N*JB * B 6 KA3G&(6)*=3SR+3F?L+AT+I7I*1*)D7Z*JB * B 2 [I2(OI+O7L.2&).,B1.,B1*MBJ* B 69Z +AL/I6)3F&(I6)*JB * B
2 ?G+TCO"161*JB . B12 GV/LJ(**7I.16)3F&(I6)*JB * B 2 	I3I&=3I&+7R
O*MBJ* B 6 Z +AL22&*2)Z=2(	II6)*JB . F12 [I*(/J+J7R3I?R/WF).2F,.5F,"2*M* B *1B2+IF3J*-/LF-.)N1.,R1.,N1*MBJ. F 23& +F"(3A
R*(	I*-	X6*+D.)R1.,V1.,V1*MBJ. F 24* 3R*=/RF+*MBJ* B 2 & 3I*=6+KJ*MBJ* B 2 ^ 3O?T. Z1*MBJ. F 25* 3L*=/LF+*MBJ* B 2 & 3I*=2-3J*MBJ. F 26N 7OSN7IWNE*M* B * B 7RSE3U;R2MNJ2MNJ* B 2 N 3AWS6 +D"=60*JB . ^16 KA/GF(6)*=S*M* B * B 3V3A*(&1*=F"16)*JB * B 2 [I2(OI+
7L.2F).9F,.9F,"8*M* B *1B83V3A*(&2*=F"26)*JB . &12 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"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