OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libc/] [sys/] [go32/] [kbhit.s] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 39 lampret
/* This is file KBHIT.S */
2
/*
3
** Copyright (C) 1993 DJ Delorie, 24 Kirsten Ave, Rochester NH 03867-2954
4
**
5
** This file is distributed under the terms listed in the document
6
** "copying.dj", available from DJ Delorie at the address above.
7
** A copy of "copying.dj" should accompany this file; if not, a copy
8
** should be available from where this file was obtained.  This file
9
** may not be distributed without a verbatim copy of "copying.dj".
10
**
11
** This file is distributed WITHOUT ANY WARRANTY; without even the implied
12
** warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13
*/
14
 
15
        .globl  _kbhit
16
_kbhit:
17
        pushl   %ebp
18
        movl    %esp,%ebp
19
        pushl   %ebx
20
        pushl   %esi
21
        pushl   %edi
22
 
23
try_again:
24
        movl    $0x41a,%eax
25
        call    dosmemsetup
26
        movzwl  %gs:(%eax),%ebx
27
        movzwl  %gs:2(%eax),%ecx
28
        cmp     %ebx,%ecx
29
        je      key_not_hit
30
 
31
        movb    $0x11,%ah
32
        int     $0x16
33
        jz      key_not_hit
34
        cmp     $0,%eax
35
        jne     key_hit
36
        movb    $0x10,%ah
37
        int     $0x16
38
        jmp     try_again
39
 
40
key_not_hit:
41
        movl    $0,%eax
42
        jmp     L1
43
 
44
key_hit:
45
        movl    $1,%eax
46
L1:
47
        popl    %edi
48
        popl    %esi
49
        popl    %ebx
50
        leave
51
        ret

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.