get_kempston.asm
bitfixer_bitfixer/dg/z88dk/libsrc/spectrum/opus/get_kempston.asm
;
;	ZX Spectrum OPUS DISCOVERY specific routines
;
;	Stefano Bodrato - Jun. 2006
;
; 	This routine get the kempston joystick emulation status.
;
;	$Id: get_kempston.asm,v 1.2 2015/01/19 01:33:10 pauloscustodio Exp $
;

	PUBLIC	get_kempston
	
get_kempston:

	call	$1708		; page_in
	ld	a,($3000)
	and	128
	ld	hl,0
	and	a
	jr	z,pageout
	inc	hl
.pageout
	jp	$1748
