svi_ldirmv.asm
bitfixer_bitfixer/dg/z88dk/libsrc/msx/svi_ldirmv.asm
;
;	Spectravideo SVI specific routines
;	by Stefano Bodrato
;	MSX emulation layer
;
;	LIDRMV
;
;
;	$Id: svi_ldirmv.asm,v 1.3 2015/01/19 01:32:57 pauloscustodio Exp $
;

	PUBLIC	LIDRMV
	
        INCLUDE "svi.def"
	
LIDRMV:
	call	$3747	;SETRD
	ex	(sp),hl
	ex	(sp),hl

loop:
	in	a,(VDP_DATAIN)
	ld	(de),a
	inc	de
	dec	bc
	ld	a,b
	or	c
	jr	nz,loop
	ret
