gen_setrd.asm
bitfixer_bitfixer/dg/z88dk/libsrc/msx/gen_setrd.asm
;
; z88dk library: Generic VDP support code
;
; $Id: gen_setrd.asm,v 1.2 2015/01/19 01:32:57 pauloscustodio Exp $
;

	PUBLIC	SETRD

	INCLUDE	"msx/vdp.inc"

;==============================================================
; VRAM to HL
;==============================================================
; Sets VRAM read address to hl
;==============================================================
.SETRD
	di
	ld      a,l
	out     (VDP_CMD),a
	ld      a,h
	and     $3F
	out     (VDP_CMD),a
	ei
	ret
