Советы по Delphi

         

Работа с портами микропроцессора


Пришло мне письмо от Pavlo Zolotarenki, где он пишет:

Модуль для работы с портами микропроцессора с сохранением синтаксиса.
Работает под Win9x.
НЕ работает под WinNT.

    //Copyright(c) 1998 Zolotarenko P.V pvz@mail.univ.kiev.ua

unit Ports;
interface
Type


TPort=class


private
procedure
Set_(index_:word;value:byte);register;
function Get_(index_:word):byte;register;
public
property
Element[index_ :word]:byte read Get_ write Set_ ;default;
end;

TPortW=class
private
procedure
Set_(index_:word;value:Word);register;
function Get_(index_:word):word;register;
public
property
Element[index_ :word]:word read Get_ write Set_ ;default;
end;

Var Port  :TPort;
PortW :TportW;
implementation
procedure
TPort.Set_(index_:word;value:byte);
begin
asm
mov dx,index_ mov al,value out dx,al end; end;
function TPort.Get_(index_:word):byte;
begin
asm
mov dx,index_ in al,dx mov @Result,al end; end;
procedure TPortW.Set_(index_:word;value:word);
begin
asm
mov dx,index_ mov ax,value out dx,ax end; end;
function TPortW.Get_(index_:word):word;
begin
asm
mov dx,index_ in ax,dx mov @Result,ax end; end;

initialization
Port:=TPort.Create; PortW:=TPortW.Create;
finalization
Port.free; PortW.free; end.
[000083]



Содержание раздела