; Faire une crolling vertical de en utilisant le byte en argument (registre a)
; Cela permet de faire un effet de style 
SCROLL_BYTE_EFFECT:
	ld	b, 64 
	ld	hl, 8e29h

sbe_loop:
	push	bc
	ld	b, 12

sbe_loop2:
	ld	(hl), a
	inc 	hl
	djnz	sbe_loop2

	push	af
	push	hl
	call	FASTCOPY
	pop	hl
	pop	af
	pop	bc
	djnz	sbe_loop

	ret

; Remplir tout l'ecran avec le byte du registre a
; Cela peut permettre de faire un effet de clignotement (en fait pas sur)
FILL_BYTE_EFFECT:
	ld	b, 64 
	ld	hl, 8e29h

fbe_loop:
	push	bc
	ld	b, 12

fbe_loop2:
	ld	(hl), a
	inc 	hl
	djnz	fbe_loop2

	pop	bc
	djnz	fbe_loop

	call	FASTCOPY
	ret