*	$Id: box.asm,v 1.1 1998/02/02 08:17:52 taubert Exp $
**************************************************************************
*
* The GNO Shell Project
*
* Developed by:
*   Jawaid Bazyar
*   Tim Meekins
*   Derek Taubert
*
**************************************************************************
*
* BOX.ASM
*   By Jawaid Bazyar
*
* Contains routines for drawing boxes using MouseText
*
**************************************************************************

	case	on
	mcopy	../drivers/box.mac
	copy	../drivers/console.equates

* EraseBox takes the same parameters as DrawBox, except the Accum
*  is the character to fill the box with.

EraseBox	START

	sta	EraseChar
	lda	<IODP_CV	; save cursor location
	pha
	lda	<IODP_CH
	pha

	lda	<IODP_TopMar
	sta	CurCV
	lda	<IODP_RightMar
	sec
	sbc	<IODP_LeftMar
	ina
	sta	TempWidth
VLoop	lda	CurCV
	sta	<IODP_CV
	jsr	VTAB
	lda	<IODP_LeftMar
	sta	<IODP_CH

HLoop	lda	EraseChar
	ora	#$80
	ldy	<IODP_CH
	jsr	StorChar
	iny
	sty	<IODP_CH
	cpy	<IODP_RightMar
	beq	HLoop
	bcc	HLoop

	inc	CurCV
	lda	CurCV
	cmp	<IODP_BotMar
	beq	VLoop
	bcc	VLoop

	pla
	sta	<IODP_CH
	pla
	sta	<IODP_CV
	jsr	VTAB        ;restore cursor location
	rts
EraseChar	dc  i2'0'
TempWidth	dc  i2'0'
CurCV	dc  i2'0'
	END