{AD9833-FPGA-Konstanten für Frequenzen, addiert für FPGA, abhängig von CLK, hier 48 Mhz
894784853.3, 89478485.33, 8947848.533, 894784.8533, 89478.48533, 8947.848533, 894.7848533, 89.47848533, 8.947848533}
  fhz            : Array[0..8] of Float =
  (858993459.2, 85899345.92, 8589934.592, 858993.4592, 85899.34592, 8589.934592, 858.9934592, 85.89934592, 8.589934592);



    TerzArray      : table[0..31] of LongInt =
 (
  10,
  20,
  50,
  100,
  200,
  500,
  1000,
  2000,
  5000, //9
  10000, //0
  20000,
  50000,
  100000,
  200000,
  500000,
  1000000,
  2000000,
  5000000,
  10000000, //9
  20000000, //0
  50000000,
  80000000,
  100000000,
  18432000,
  24576000,
  35795450,
  41943040,
  44336817,
  49152000,
  65536000, //9
  73728000, //0
  0);

  procedure SetFrequFPGA;
//Pegelsteller und Relais setzen, Frequenz einstellen; Float-Berechnung für SQG
var
  acc : LongInt;
  accF,addF:Float;
  freqHi, freqLo : word;

begin
  SwitchState:=0;
//DSS-Frequenz einstellen
  addF:=0;
  FreqStr:= longtostr(Frequenz : 9:'0'); // mit führenden Nullen, bis 10 MHz
  for i := 0 to 8 do                //Einzelne Stellen aufaddieren
    k:= byte(FreqStr[i+1])-48;
    accF:= fhz[i];
    addF:= addF + (accF*float(k));
  endfor;
  FPGAreg:=0;
  SendFPGA8;
  FPGAparam:=LongInt(addF);
  SendFPGA32;
end;