чо-нить типа:


Код:
; hl = from_scraddr
; de = to_scraddr
; b = yr_znm
; c = xr_znm

Roller1    ;up/left

	ld	a,#20
	sub	c
	add	a,a
	ld	(ch_jr+1),a

lp2
	push	bc

	ld	a,#08

lp1
	push	de
	push	hl

ch_jr	jr	$

 dup 32 : ldi : edup

	pop	hl
	pop	de
	inc	h
	inc	d
	dec	a
	jr	nz,lp1

	ld	a,l
	add	a,#20
	ld	l,a
	jr	c,$+6
	ld	a,h
	sub	#08
	ld	h,a

	ld	a,e
	add	a,#20
	ld	e,a
	jr	c,$+6
	ld	a,d
	sub	#08
	ld	d,a

	pop	bc
	djnz	lp2

	ret


Roller2    ;down/right

	;...

 dup 32 : ldd : edup

	;... 
	
	ret

и всего делов