ReadChar PROC

   Reads a single character from standard input and returns the character in the AL register.
   The character is not echoed on the screen.
   Waits for the character if none is currently in the input buffer.

Call args:  None

Return arg: AL = ACSII code

Example:

.data
charIn BYTE ?

.code
      call ReadChar
      mov  charIn,al