svi_kbdstick.asm
bitfixer_bitfixer/dg/z88dk/libsrc/msx/svi_kbdstick.asm
;
;	Spectravideo SVI specific routines
;	by Stefano Bodrato
;	MSX emulation layer
;
;	read keyboard line for cursor keys + space
;
;
;	$Id: svi_kbdstick.asm,v 1.2 2009/06/22 21:44:17 dom Exp $
;

	XLIB	svi_kbdstick
	
IF FORmsx
        INCLUDE "msx.def"
ELSE
        INCLUDE "svi.def"
ENDIF


svi_kbdstick:
	di
	in	a,(PPI_C)
	and	$f0
	add	8
	out	(PPI_C),a
	in	a,(PPI_B)	; bits: RDULxxxF  Fire is the SPACE key
	ei
	ret

