Commit | Line | Data |
---|---|---|
34bfe048 GM |
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 | ||
10 | CONST segment word public 'CONST' | |
11 | CONST ends | |
12 | ||
13 | _BSS segment word public 'BSS' | |
14 | _BSS ends | |
15 | ||
16 | DGROUP group CONST, _BSS, _DATA | |
17 | ||
18 | assume cs:_TEXT, ds:DGROUP, ss:DGROUP, es:DGROUP | |
19 | ||
20 | _TEXT segment | |
21 | ||
a94e4f19 | 22 | public _dirconio |
34bfe048 | 23 | |
a94e4f19 | 24 | _dirconio proc near |
34bfe048 GM |
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 | ||
35 | dirconiodone: | |
36 | ||
37 | mov sp,bp | |
38 | pop bp | |
39 | ret | |
a94e4f19 | 40 | _dirconio endp |
34bfe048 GM |
41 | |
42 | _TEXT ends | |
43 | ||
44 | end |