🚀 go-pugleaf

witam serdecznie,
czy ktoś może pomóc mi przerobić wstawkę assemblerową na taką, która 
skompiluje się i zwróci prawidłowe wartości, albo w TP 5.5, albo we FPC.

oryginalna wstawka w BP:

  asm {get port base address}
   mov bx,40h
   mov es,bx
   mov bx,comport
   dec bx
   shl bx,1
   mov ax,es:[bx]
   mov bas,ax
  end;

mój odpowiednik we FPC (kompiluje się, ale wywala Runtime Error..):

asm {get port base address}
   mov bx,40h
   mov es,bx
   mov bx,comport
   dec bx
   shl bx,1
   mov eax,es:[bx]   {dużo nie poprawiłem, as na eax  :-)}
   mov bas,ax
  end;


odpowiednik w TP 5.5 (kompiluje się, ale niestety nie zwraca poprawnej 
wartości) :
tak przy okazji, czy TP 5.5 ma możliwość wstawiania kodu z asseblera?

uses Dos;
var r:registers;
...
with r do begin
  bx:=$40;
  es:=bx;
  bx:=comport;
  dec(bx);
  bx:=(bx shl 1);  {pewnie ta linia jest zła}
  ax:=mem[es:bx];  {albo ta}
  bas:=ax;
end;


jeśli ktoś potrafi przerobić kod w BP, na FPC lub TP 5.5, będę bardzo 
wdzięczny.

pozdrawiam,
Saper