//Hilfsroutine zum Kalibrieren des LM1972

procedure ShowAdjust;
//Menüseite für LM1972-Adjust anzeigen
begin
  WriteLeveldB;
  LCD1x0y0;
  WriteLCD(@AdjustStr);
  i:= EEdBadj[AttnAdjIndex];
  WriteItem(i);
  LCDout_M(#0);
  LCD1x0y1;
  LCDclrEOL_M(LCD_m1);
  LCDout_M(#35);   //#
  LCDout_M(#32);
  WriteItem(AttnAdjIndex);
  ShowLevelmV;
end;

procedure adjustloop;
//beim Einschalten gedrückte Aux-Taste: Setup mit dB-Adjust-Loop
begin
  ShowAdjust;
  SlowRepeatRelease; // auf Loslassen oder Autorepeat warten
//Hauptschleife, wird bei jedem Druck eines Aux- oder Navi-Buttons durchlaufen
//sonst innerhalb der Up-Down-Button-Schleife
  loop
    ItemLowerLimit:= 0;
    ItemUpperLimit:= 99;
    SetLevelDDS(c_sinw);
    EditValue:= integer(EEdBadj[AttnAdjIndex]);
    ShowAdjust;
    SlowRepeatRelease; // auf Loslassen oder Autorepeat warten
//Up-Down-Unterschleife
    repeat
      if UpDownbutton then
        if not b_TasteAuf then
          inc(EditValue);
        endif;
        if not b_TasteAb then
          dectolim(EditValue, 0);
        endif;
        CheckItemLimits;
        EEdBadj[AttnAdjIndex]:= byte(EditValue);
        SetLevelDDS(c_sinw);
        ShowAdjust;
        FastRepeatRelease;
      endif;
    until NaviButton;
    if not b_TasteLinks then
      dectolim(AttnStep, 16);
    endif;
    if not b_TasteRechts then
      inctolim(AttnStep, 80);
    endif;
  endloop;
end;