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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libc/] [sys/] [go32/] [getkey.s] - Rev 1765

Compare with Previous | Blame | View Log

/* This is file GETKEY.S */
/*
** Copyright (C) 1993 DJ Delorie, 24 Kirsten Ave, Rochester NH 03867-2954
**
** This file is distributed under the terms listed in the document
** "copying.dj", available from DJ Delorie at the address above.
** A copy of "copying.dj" should accompany this file; if not, a copy
** should be available from where this file was obtained.  This file
** may not be distributed without a verbatim copy of "copying.dj".
**
** This file is distributed WITHOUT ANY WARRANTY; without even the implied
** warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
Modified by J. Alan Eldridge, Liberty Brokerage, 77 Water St, NYC 10005
 
Changed handling of characters starting with 0xE0:
	Now calls interrupt 16, function 10
	if leading byte was 0x00, ah = 0x01
	if leading byte was 0xE0, ah = 0x02
 
	The main function is now called getxkey()...
	getkey is provided to maintain compatibility with
	already written software
*/
 
	.globl	_getxkey
_getxkey:
	pushl	%ebx
	pushl	%esi
	pushl	%edi
	movb	$0x10,%ah
	int	$0x16
	mov	$1,%bl
	cmpb	$0,%al
	je	L0
	cmpb	$0xE0,%al
	jne	L1
	inc	%bl
L0:
	movb	%ah,%al
	movb	%bl,%ah
	jmp	L2
L1:
	movb	$0,%ah
L2:
	andl	$0xffff,%eax
	popl	%edi
	popl	%esi
	popl	%ebx
	ret
 
	.globl	_getkey
_getkey:
	call	_getxkey
	testb	$0x02,%ah
	jz	L3
	movb	$0x01,%ah
L3:
	ret
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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