lpt_ready.asm
bitfixer_bitfixer/dg/z88dk/libsrc/enterprise/lpt_ready.asm
;
;	Enterprise 64/128 specific routines
;	by Stefano Bodrato, March 2011
;
;	int lpt_ready();
;
;	Check if the line printer is ready (1=ready, 0 if not)
;
;	$Id: lpt_ready.asm,v 1.2 2015/01/19 01:32:43 pauloscustodio Exp $
;

	PUBLIC	lpt_ready
	
lpt_ready:
	in	a,($b5)
	bit	3,a
	ld	hl,0
	ret	nz
	inc	l
	ret
