[Back to HARDWARE SWAG index] [Back to Main SWAG index] [Original]

    {
    > I would like to send one byte of data to the parallel port so I can test
    > an interface.  What is the easiest way to do this?
    }

    Program Send_A_To_LPT1;
    Var
      PrinterPort:Array[1..4] Of Byte Absolute $40:$8;
    Begin
      Port[PrinterPort[1]]:=Ord('A');
    End.

[Back to HARDWARE SWAG index] [Back to Main SWAG index] [Original]