Перевод кода с Pascal в Delphi

[Rin]

в Pascal есть такой тип registers. этот тип использует регистры процессора
и обращение к регистрам идёт так: reg.ax или reg.dx
чем заменить тип registers в delphi?
так же непонятна процедура intr? что она cделает, вызвав прерывание $33?

var
reg:registers
..................
]intr($33, reg);

[Alex Defsen]

Какой модуль вы добавляли в uses чтобы появился тип Registers ?
Его добавьте и в Delphi.

[Человек_Борща]

хм, если я правлено понял Registers это ассемблерна вставка для паскаля. То в делфи это заменяет блок:

procedure someproc;
begin

asm
{Ваша ессемблерная вставка}
//мб это call,$33 ?
end;

end;

p.S. в делфи нет класса registers

intr - что это?

[Rin]

intr - это вызов прерывания . только что вычитал.

про

asm

end;

мне известно. но дело то не в этом.
вся эта штука работает в связке.
вот отрывок кода

   reg.ax := 0;
  intr($33, reg);
   reg.ax := 1;
   intr($33, reg);
   reg.ax := 3;
   down:=true;
   i:=1;
   ring:=nil;
   repeat
    intr($33, reg);
   case reg.bx of
     1 : begin
          if down then begin
           draw(clYellow);
           Ins(ring,reg.cx,reg.dx);
           if i=1 then begin x:=reg.cx; y:=reg.dx;  end;
           if i>1 then begin
             reg.ax := 2;
             intr($33, reg);
             canvas.MoveTo(x,y);
             canvas.lineTo(reg.cx,reg.dx);
             x:=reg.cx; y:=reg.dx;
             reg.ax := 1;
             intr($33, reg);
             reg.ax := 3;
             intr($33, reg);
           end;
           i:=i+1;
           down:=false;
           end;
         end;
     0: down:=true;
     2: Break;
    end;

я исходники качаю по графике и просматриваю их. через год диплом писать.

[GunSmoker]

В Delphi (ещё точнее - в Win32 вообще) это делается совершенно не так. Для консольного ввода-вывода не используются прерывания, а используются обычные функци.

Если хотите - можно найти модуль, который делает работу с консолью максимально похожей на работу с консолью в Turbo Pascal.

[Rin]

Не, ребят. Спасибо. Не люблю напрягать людей. Думал, что кто-то с этим сталкивался. Если не сталкивался, то ни не морочте голову. Если что-то выйдет, то отпишу.