Tym razem Sunday chciał się podzielić nieco szpanerskim wynalazkiem. Cóż miałem zrobić - umieściłem go na blogu :) Czy i jak to działa - "nie wiem, nie znam, nie pamiętam". Ale z pewnością jakiś kod Asemblera i Delphi tam jest.

Procek

Operacje na portach w delphi z użyciem asemblera:

 
Odczyt z portu:
function Czytaj( wPort : Word ) : Byte;
begin
asm
mov dx, wPort
in al, dx
mov result, al
end;
end;
 
Zapis do portu: 
procedure Wpisz( wPort : Word; bValue : Byte );
begin
asm
mov dx, wPort
mov al, bValue
out dx, al
end;
end;
 

Sunday