conport.pas

这是小弟下载的控制并口的程序

//    http://fdlweb.myrice.com
unit conport;

interface

const portn=$378;     //并行端口
{*******************************************************
    LPT（共三个io：378H，379H，37AH）
    378H (SEND)
    D7    D6    D5    D4    D3    D2    D1    D0
    9     8     7     6     5     4     3     2
    379H (REN)
    /d7    D6    D5    D4    D3    D2    D1    D0
    11     10    12    13    15    X     X     X
    37AH (SEND)
    D7    D6    D5    D4    /d3    D2    /d1    /d0
    X     X     X     X     17     16    14     1
********************************************************}

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

implementation
function ReadPort:BYTE;
var
  a:BYTE;
begin
  ASM
    MOV DX, portn;
    IN AL, DX;
    MOV a, AL;
  END;
  ReadPort:=a;
end;

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

end.