swapgfxbk.asm
bitfixer_bitfixer/dg/z88dk/libsrc/graphics/osca/swapgfxbk.asm
;
;       Z88 Graphics Functions - Small C+ stubs
;
;       Written around the Interlogic Standard Library
;
;       Stubs Written by D Morris - 15/10/98
;
;
;       Page the graphics bank in/out - used by all gfx functions
;       Simply does a swap...
;
;
;       Stefano - Sept 2011
;
;
;	$Id: swapgfxbk.asm,v 1.3 2015/01/19 01:32:49 pauloscustodio Exp $
;

;    INCLUDE "flos.def"
    INCLUDE "osca.def"

		PUBLIC    swapgfxbk
		PUBLIC	swapgfxbk1



.swapgfxbk
		;call kjt_wait_vrt		; wait for last line of display
		;call kjt_page_in_video	; page video RAM in at $2000-$3fff
		;di
		in a,(sys_mem_select)	
		or $40
		out (sys_mem_select),a	; page in video RAM
		ret

.swapgfxbk1
		in a,(sys_mem_select)	; page in video RAM
		and $bf
		out (sys_mem_select),a
		;call kjt_page_out_video	; page video RAM out of $2000-$3fff
		;ei
		ret






