f_ansi_dline.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/ansi/aquarius/f_ansi_dline.asm
;
;
; 	ANSI Video handling for the Mattel Aquarius
;
;
; 	Clean a text line
;
;	Stefano Bodrato - Dec. 2001
;
; in:	A = text row number
;
;
;	$Id: f_ansi_dline.asm,v 1.2 2015/01/19 01:33:18 pauloscustodio Exp $
;


	PUBLIC	ansi_del_line
	EXTERN	aquarius_attr

.ansi_del_line
	ld	hl,$3000
	inc	a
.sum_loop
	ld	de,40
	add	hl,de
	dec	a
	jr	nz,sum_loop
	push	hl

	ld	(hl),32 ;' '
	ld	d,h
	ld	e,l
	inc	de
	ld	bc,39
	ldir

	pop	hl
	ld	de,$400
	add	hl,de

	;ld	a,(aquarius_attr)
	ld	a,$70
	ld	(hl),a
	ld	d,h
	ld	e,l
	inc	de
	ld	bc,39
	ldir
	
	ret
