f_ansi_scrollup.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/ansi/c128/f_ansi_scrollup.asm
;
; 	ANSI Video handling for the Commodore 128 (Z80 mode)
;	By Stefano Bodrato - 22/08/2001
;
;	Scrollup
;
;
;	$Id: f_ansi_scrollup.asm,v 1.5 2015/01/19 01:33:18 pauloscustodio Exp $
;

	PUBLIC	ansi_SCROLLUP


.ansi_SCROLLUP
	ld	hl,$2000+40	; Text
	ld	de,$2000
	ld	bc,40*24
	ldir
	ld	h,d
	ld	l,e
	ld	b,40
.reslloop
	ld	(hl),32
	inc	hl
	djnz	reslloop

	ld	hl,$1000+40	; Color attributes
	ld	de,$1000
	ld	bc,40*24
	ldir
	ld	h,d
	ld	l,e
	ld	b,40
.reslloop2
	ld	(hl),1
	inc	hl
	djnz	reslloop2

	ret

