File DATSG.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 GD3T
S2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 : 3D7I2 ?P7ISN3S> 3FF 2 	G3V;E2 WG7NKE+ACL3TKA+LCE3AWR2 WS3LOE3TSE2 ;AD*M+CB * B * B * B 3OSR3EWR7DN 3UC2 T+ACT7AOB6(KA3G&(6)"-2)^.3EF.+BS3A
R*(	J*-	X2 [I* ;I+G;TJ6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 GD3T
S6 "(*,3Z7F^,3O/R6,KI+O3W3I?C3LF,+R3G3V3A2,SN+I	M2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 6 " * B * B 2-R 3OKU+LCE3PWR7COI3I;O2 WS3AOR3HF 7RWG3M;ET6.*JCC* B * B * B * CZ* B * 6 2 ?D3U3B7EB 3ROE3I	S+OCN3VOE7TKO2 SO6 KA3G7U7ESN2 G
3LWUS*M+CB * B * B * B * B * B * B 2(	D3M;E3S?I3N& 7R
O")6.*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+OCN3V3A7UOE2 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 7WKO+KB * B-7DWO3BWL6 KP3E	C3S
I7N^ 3O/R3I
N6 SS3OGR+GCE2(	D3M;E3S?I3N& 7R
O")6.*JCC* B * B * B 6 KI+OCW* 6 2 T3ER 3IWM3N	S+OCN+OCF3VOE7TKO7S* 2 ;A7D^ 3O/R2 ;A3D> 3FV 3AC2MNJ* B * B * B * B * B * B 2 N 7OWL+MCN+ICN7MSA7RI* ;F2MNJ* B * B * B 2 & 3C3O* B 6-R +HCE3N7U7BKE2 [O2 ?C3L7U+NCS+ICN+F" 3IV...F 6 KO* &2".*M+CB * B * B * B 3

R* B * B-7ROE7USL3I
N2 ?D3U3B7EB 3ROE3I	S+OCN3VOE7TKO2 [O2 WS3LOE3TSE2 ;AD*M+CB * B * B * B * B * B * B 3OSR3EWR3DF 7RWG3M;E7TZ 7AWL+ECS2(	D3M;E3S?I3N: 3D7I")6.*JCC* B * B * B 2 GV+LB * 6 2 WR3S3U3T;I3GR 3OKU+LCE3PWR7COI3I;O2 WV3C?T3R> 7FN 3EWL3CWTD*M+CB * B * B * B * B * B 
 B 3F;U3C	T+OCN3V3A7UOE2 R(3IWM3N	S+OCN3N	D+MB)+ICN7COA3E& 3C3O*=:12MNJ* B * B * B * B * B * B 2 & 3NN 3AWS2 OI/O7L*2B,3V3A6 OI2 T3ER 3OKU+LCE3PWR7COI3I;O2 WV3C?TR*M+CB * B * B * B * B * B * B +OCF3F;U3C	T+OCN3ASN2 WD7R[I3A	T+VCE3V3A7UOE2 R(3IWM3N	SO7N*JC
* B * B * B * B * B * B * *23N	D+MB)3W	H+CCH3AWR6 SS3OWR3D& 7NB 7AKI+S" 3IV.2.V 3AC6 WF+N7C2MNJ* B * B * B * B * B * B 6 R 3I;O2 GV3LWU6 OI2 ?F3L?L3WSE6 	B6 SI3SR 3E	R7VSA3IWV2 GV3LWU")6.*JCC* B * B * B 2 SN+ICM* 6 2 T3E: 3UKM+ECR+OCF3P	O7NOT2 W3IC6 WM+SC
+BCE3S3E7ESC+ECD7OSU2 [O2MNJ* B * B * B * B * B * B 6 R +HCE7G[I+ECN3TKA+LCE*(3Z+F:)2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 : 3OF 3C	T+OCN+ICN7COA3E& 7R
O2 WL+SCS3TGH/NF ".*M+CB * B * B * B +ICF7ICN+UCT3V3A+UCE3N	D3M& 3S^ 3RGE7TKE2 T+ACN3I?R+WB,3TWH6 KP7OKGA7M*JCC* B * B * B 2 WS3LOE+TCS3O3N3YF 2 GM3X7I+UCM3TKA+LCE+OCF3I?R7WB 3O;I+T;S6 R 7HKE3E?F+RCE3TWH2MNJ* B * B * B 6 V 7SKE6 WO7GSH2 ?T2 C3E/C2 ?C3RWR3
?P3NWD3NWC2 WB3TWW+ECN3TKA+LCE6(KA7GZ,+A	L2MNJ* B * B * B 2 F +NCD7IOT2 	D3M;E3S?I3NJ 3YN 7OCM3A	R3S;O2 [O2 SN+ICM3ASN6 KI+O3W2 ;I6 KO7DKE2MNJ* B * B * B 6 R 3O^ +ECT7CKO3ROE7TJ 7EWS7LOT2 ;I6 WF3RT+ECR7WKO7K^ 3IT2 GT3BWL2 F(+R3G3V3A")6.*JCC* B * B * B 2 T
ICS7TOE3T6 +ACY+BCE3D;O3EJ 3E?F+RCE+OCR7ASF+ECR3C3A3L;IG*M+CB * B * B * B 3SKU7RWO3T;I3ER 7AOTG6.*JCC* B * B * B 6 WS3B?R3U	T+NCE7DSA+SCG7ECS3E	C3A3L3YN +ACN+BCE3UWS3DZ +OCR3G;E3EGR3T;I7GR H7E*JCC* B * B * B 2 GT3BWL2 F(+R3G3V3A2): 3ESE+ECD+ICN3SKU7RWO3T;
+ECS3D3A+IB,3DA+IB,3ASN2 GD3C	F".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 WS3LOE3T?I3N& 3SR 3OWN6 	B2 WG7NKE3A	T+NCG3TWH2 WV3C?T7R^ 3O/R2 	WT7H*JCC* B 
 B * B 2 ?C3M?P3N;E+TCS7WKO3K&(2)F=+BS3Z&(6)"-2)F +NCD+ACT3EOA3H> 7FR +HCE3N	D7MN 7TCES*M+CB * B * B * B 6(KO6 KI+OCW3SWT+PCS+ICF3N	D3M& 3S^ 3RGE7TKE2 T+ACN3I?RW6)*JCC* B * B * B 2 WS3AOR3H;I3GZ +OCR3TWH6 WS3BOS7RCI3T> 7FR +HCE3SGM3LWL+SCT3C7O3P;O7ESN6,^ 
HOIH*M+CB * B * B * B +ICS7ASF7E
R3ASR7SJ 3E3P3AWC3DJ 3YF 6 WN3MWB3R^ 3RGE7TKE2 TA7N*JCC* B * B * B 2 GM7X^(3O/R*(	I")6."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER 7AOT7G"(*,3Z7F^,3O/R6,KI+O3W3I?C3LF,+
3G3V3A2,SN+I	M2MNJ2MNJ*MBJ* B 2 R 3IWM3N	S+OCN/ZF(2)Z,*(&12,?W+RK*12)3A
R*(&12,GV/LF(")*M* B * B 7DWO3BWL6 KP3E	C3S?I7N" *,3Z7F^,3O/R6,KA7GZ,+A3L3BR,7ESLA*M* B * B +IF3I?R/WF).1F,.1F,*MBJ* B 21: 2=SNI7M*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 3G;E3EGR3T?I3N> 7FZ 7ESC+OCR7WKO3KF +NCD3C7O7PSU3A	T+OCN+OCF7IOT6 KG7ESA7ESS2 3E3EWM+N;T*MBJ* B 23J *=:0D60*JB * B 2 ?D* B5/IF=6,KIO7W*JB * B 2 WD3LGT2=GD+BS3Z&(6)"-")*M* B * B +IF3D3E+T7A/BV)*,25"4*M* B * B43BR=7ESLA*M* B * B57WKO3K&(2)R=7ESL
*MC*M+CB * B 3G;E3EGR3T?I3N> 7FR 3A3B+E" 3A
R2,GVL6)*JB * B . 7B/BF+..CD*MBJ* B 2 R /OF 20* *=21N*M* B * B 3D3E/T7AB*M* B * B +DCO27& *=213I?RW*M* B * B +IF7WKO3K&(2)R-7ESL/AZ)*,27"7*M* B * B6/I7II*M* B * B 3D3E/T7A7WKO3K&(")*M* B * B73C;O3T;IU7E*JB * B 6 KA3G*(6)*=2(	I")*M* B * B +IF3I?C/LF-*)28.9
,*MBJ* B 68Z +AL22***-&1*=F+I	I*MBJ* B 2 & /I7I+I/I3I?RW*M* B * B 3V3A*(*2/J6)3F&(+I	I*MBJ* B 2 ^ 3O?T. B1*MBJ* B 69Z +AL/J6)3F&(I6)*JB . B12 ?W+RK+I	I"=7B*JB . F12 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

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