fgetc_cons.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/abc80/fgetc_cons.asm
;
;	ABC80 Routines
;
;	getkey() Wait for keypress
;
;	Maj 2000 - Stefano Bodrato
;
;
;	$Id: fgetc_cons.asm,v 1.4 2015/01/19 01:33:17 pauloscustodio Exp $
;

	PUBLIC	fgetc_cons
	
.fgetc_cons
	ld	a,(65013)
	and 127
	jr	z,fgetc_cons
	ld	l,a
	xor a
	ld (65013),a
	ld	h,a
	ret
