Date   : Thu, 30 Oct 1986 19:29:00 MST
From   : Keith Petersen <W8SDZ@SIMTEL20.ARPA>
Subject: Flushing the one-character BDOS console input buffer

Russ, this works for my programs that use function 6 for portability.
This will flush the BDOS buffer if there are any characters waiting.

       MVI     C,CONSTAT       ;BDOS console status function
       CALL    BDOS
       ORA     A               ;check for character pending
       JZ      SKIPIT          ;zero means nothing there
       MVI     C,CONIN         ;BDOS console input function
       CALL    BDOS            ;go get it
;
SKIPIT:        (do your next task here, ignoring any character gathered above)

--Keith