program Test;

Uses Crt, c_Bus, c_Volts, c_Roll, MiscFunc;

var
  c:c_Roll.tCtrl;
  v:c_Volts.tCtrl;
  bs:c_Bus.tCtrl;

  b:boolean;
  bt:byte;
  i:longint;

begin
  writeln;
  writeln('Тестирование контроллера развертки');
  bs.InitDefault;
  c.InitDefault(bs);
  v.InitDefault(bs);
  v.exInit;
  i:=v.exVoltage(Magnet);

  write('Инициализация...');
  c.exInit;
  if c.ErrorCode=0 then begin
    writeln('закончена. Дипазон счетчика импульсов: 0..', c.MaxTotalCounter);
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
EXIT;

  write('Проверка симметрии...');

  c.exScrollToLowLimit;
  c.exScroll(50000);
  c.exAutoTuning(False);
  c.exCurAutoTuning;

  i:=100;
  repeat
  c.exScroll(-i);
  if c.ErrorCode<>0 then begin
    writeln('- ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
  c.exScroll(i);
  if c.ErrorCode<>0 then begin
    writeln('+ ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
  write('!')
  until c.ErrorCode<>0;
exit;

  write('Проверка точной установки...');
  c.FineTune(20000, 100, True);

  c.exScroll(100);
  i:=100000;
  c.SetNoError;
  c.exScroll(i);
  if c.ErrorCode=0 then begin
    writeln('закончена.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
  readln;
  c.SetNoError;
  c.exScroll(-i);
  if c.ErrorCode=0 then begin
    writeln('закончена.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;

  exit;

{  c.Step(100000);
  c.exStep;}

(*  c.exScroll(-10000);
  writeln(c.ErrorMessage(c.ErrorCode));
  c.SetErrorCode(0);
  bt:=c.exCurFlags or (1 shl 7);
  writeln(c.exFlags, ' ',Word2BinaryStr(c.exFlags));
*)
END.