🚀 go-pugleaf

Hi,
    in delphi1 u can use port[] or portw[] to access them, but it is not
supported by d2 and d3, u need to write asm to do that as bellow

procedure OutPort( PortNo : Word ; Value : Byte );
begin
    asm
        mov dx , PortNo
        mov al ,  Value
        out dx , al
    end;
end;

procedure OutPortW( PortNo : Word ; Value : Word )
begin
    asm
        mov dx , PortNo
        mov ax , Value
        out   dx , ax
    end;
end;

function ReadPort( PortNo : Word ) : Byte ;
var
       RetByte : Byte ;
begin
      asm
        mov dx , PortNo
        in   al , dx
        mov RetByte , al
      end;
      ReadPort := RetByte ;
end;

I used these in my own program, wish it will be helpful.
Mr.J wrote:

> as title
>
> --
> �� ��Դ:���������� BBS bbs.nease.net��[FROM: ab-2-221.bta.ne]