parafunc.~pas

LOM-ARM7的Flash烧写的windows版程序

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.