usr/src/usr.bin/tn3270/distribution/sys_dos/support.asm

; $Header: /lapis_d/minshall/src/misc/minshall/src/netsys/RCS/support.asm,v 1.5 87/01/14 11:29:19 minshall Exp $


_TEXT   segment byte public 'CODE'
_TEXT   ends

_DATA   segment word public 'DATA'
_DATA   ends

CONST   segment word public 'CONST'
CONST   ends

_BSS    segment word public 'BSS'
_BSS    ends

DGROUP  group   CONST, _BSS, _DATA

        assume  cs:_TEXT, ds:DGROUP, ss:DGROUP, es:DGROUP

_TEXT   segment

        public  _dirconio

_dirconio       proc    near
        push    bp
        mov     bp,sp

        mov     ah,01H          ; test input
        int     16H
        mov     ax,0ffffH       ; nothing read
        jz      dirconiodone
        mov     ah,00H          ; consume the input
        int     16H

dirconiodone:

        mov     sp,bp
        pop     bp
        ret
_dirconio       endp

_TEXT   ends

        end