@----------------------------------------------------------------------------
@
@ \Source /usr/local/cvsroot/gccsdk/unixlib/source/scl/_kosrdch.s,v $
@ \Date: 2002/09/24 21:0237 $
@ \Revision 1.3 $
@ \State Exp $
@ \Author admin $
@
@----------------------------------------------------------------------------

	.include	"clib/unixlib/asm_dec.s"



	@ int _kernel_osrdch (void)
	.global	_kernel_osrdch
	NAME	_kernel_osrdch
_kernel_osrdch:
	STMFD	sp!, {lr}
	SWI	XOS_ReadC
	BVS	error
	stackreturn	CC, "pc"
	@ Escape has been seen.
	CMP	a1, #27
	MOVEQ	a1, #-27
	MOVNE	a1, #-1
	stackreturn	AL, "pc"

error:
	BL	__seterr
	MOV	a1, #-2
	stackreturn	AL, "pc"

