NAME
        DGetChar - get a character from the parallel port

   SYNOPSIS
        char = DGetChar()
        D0

   FUNCTION
        get the next character from the parallel port.