set_kempston.asm
bitfixer_bitfixer/dg/z88dk/libsrc/spectrum/opus/set_kempston.asm
;
;	ZX Spectrum OPUS DISCOVERY specific routines
;
; 	This routine sets the kempston joystick emulation mode.
;
;	$Id: set_kempston.asm,v 1.2 2015/01/19 01:33:11 pauloscustodio Exp $
;

		PUBLIC	set_kempston
	
set_kempston:

		pop	hl
		pop	bc
		ld	a,c
		push	bc
		push	hl
		call	$1708		; page_in
		ld	hl,$3000
		set	7,(hl)
		and	a
		jr	z,pageout
		res	7,(hl)
.pageout
		jp	$1748
