parafunc.~pas

来自「LOM-ARM7的Flash烧写的windows版程序」· ~PAS 代码 · 共 32 行

unit ParaFunc;

interface

function ReadPort(Port:WORD):BYTE;
procedure WritePort(Port:WORD;ConByte:BYTE);

implementation

function ReadPort(Port:WORD):BYTE;
var
  B:BYTE;
begin
       ASM
               MOV DX, Port;
               IN AL, DX;
              MOV B, AL;
      END;
     Result:=B;
end;

procedure WritePort(Port:WORD;ConByte:BYTE);
begin
       ASM
               MOV DX, Port;
               MOV AL, ConByte;
              OUT DX, AL;
       END;
end;

end.