안녕 하세요?

BacTeria 박종민입니다.

제가 알기론 Port[]는 과거 터보파스칼 시절 부터 있던 함수로 알고 있습니다.

16비트의 델파이 그러니깐 델파이 1.0 버전까지만 존재 했구요.

32비트 환경인 버전 2부턴 없어졌더라구요. 참 편리한 함수 였는데...

그런데 버전 2에서 쓰셨다니 쩝...

할 수 없이 인라인 어셈블을 사용해 포트 In, Out 함수를 만들어 써야합니다.

아래에 인라인 어셈을 사용한 함수들을 올려 드립니다.

참고 하세요~

이만... - 박종민...

--------------------------------------------------------------------------------

function InPortb(Addr: Word): Byte;
var
  Value: Byte;
begin
  asm
    mov DX, Addr
    in  AL, DX
    mov Value, AL
  end;

  Result := Value;
end;


procedure OutPortb(Addr: Word; Value: Byte);
begin
  asm
    mov DX, Addr
    mov AL, Value
    out DX, AL
  end;
end;