1; $Header: /lapis_d/minshall/src/misc/minshall/src/netsys/RCS/support.asm,v 1.5 87/01/14 11:29:19 minshall Exp $ 2 3 4_TEXT segment byte public 'CODE' 5_TEXT ends 6 7_DATA segment word public 'DATA' 8_DATA ends 9 10CONST segment word public 'CONST' 11CONST ends 12 13_BSS segment word public 'BSS' 14_BSS ends 15 16DGROUP group CONST, _BSS, _DATA 17 18 assume cs:_TEXT, ds:DGROUP, ss:DGROUP, es:DGROUP 19 20_TEXT segment 21 22 public dirconio 23 24dirconio proc near 25 push bp 26 mov bp,sp 27 28 mov ah,01H ; test input 29 int 16H 30 mov ax,0ffffH ; nothing read 31 jz dirconiodone 32 mov ah,00H ; consume the input 33 int 16H 34 35dirconiodone: 36 37 mov sp,bp 38 pop bp 39 ret 40dirconio endp 41 42_TEXT ends 43 44 end 45