LED LPT - Pascal Quelltext:


{================================================================================}     
{                                                                                }
{ PROGRAM : Einfaches Testprogramm f?r den Printerport des Rechners              }
{                                                                                }
{ AUTHOR  : M. Anders, 12.2006                                                   }
{                                                                                }
{================================================================================}

program DigiPoti;

uses Crt;

const
  LPT1= 1;
  LPT2= 2;
  LPT3= 3;

var
  LPT_Addr : Word;
  Count : Byte;

procedure LPTOpenPort(lptnr:Byte);
begin
  LPT_Addr := MemW[$40 : 6 + lptnr * 2];
end;

procedure LPTSendData(P:Byte);
begin
  Port[LPT_Addr] := P;
{  Write('  C:',P);}
end;

begin
  ClrScr;
  WriteLn('LPTTEST.PAS - LPT Test Programm ');
  WriteLn;
  LPTOpenPort(LPT1);
  Count := 0;

  repeat

    LPTSendData(Count);
    Inc(Count);

    Delay(100);

  until KeyPressed;

  WriteLn('EXIT');
end.
Nach oben