;Déplace l'écran vericalement à l'aide des touches
;Par Eric Piel en Juillet 98
;The scroll function is explain in the 'ports-82.txt' written by Mattias Lindqvist & Dines Justesen
;in port 10h send how many lines to scroll up and add 40h.

#INCLUDE "CRASH82.INC"

.db "BougEcran",0

	ld	b,0
key:
	call	GET_KEY
	cp	G_ENTER
	ret	z
	dec	a			;YES, IT IS
	jr	z,down
	cp	G_UP-1
	jr	nz,key
up:
	inc	b
	jr	move
down:
	dec	b

move:
	ld	a,b
	and	%00111111			;mod	64
	add	a,40h
	out	($10),a
	call	$7F3
	jr	key