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