fgetc_cons.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/cpm/fgetc_cons.asm
;
;	CPM Stdio
;
;	getkey() Wait for keypress
;
;	Stefano Bodrato - Apr. 2000
;	Stefano Bodrato - Mar. 2004 - removed the BS trick
;
;
;	$Id: fgetc_cons.asm,v 1.6 2015/01/19 01:33:20 pauloscustodio Exp $
;

	PUBLIC	fgetc_cons

.fgetc_cons

	LD 	c,6
	ld	e,255
	call	5
	and	a
	jr	z,fgetc_cons

	ld	l,a
	ld	h,0
	ret
