fgetc_cons.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/spectrum/fgetc_cons.asm
;
;	Devilishly simple Spectrum Routines
;
;	getkey() Wait for keypress
;
;	17/5/99 djm
;
;	22/3/2000 djm Rechristened getchar
;	1/4/2000  djm Rechristened fgetc_cons
;
;
;	$Id: fgetc_cons.asm,v 1.3 2015/01/19 01:33:21 pauloscustodio Exp $
;


		PUBLIC	fgetc_cons

.fgetc_cons
	xor	a
	ld	(23560),a
.getkey1
	ld	a,(23560)
	and	a
	jr	z,getkey1
	ld	l,a
	ld	h,0
	ret
