From 30debf1373cfcce3ad3ffe89dfd215d6ae5e07bc Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Mon, 28 Mar 2022 01:16:55 -0400
Subject: [PATCH] lemm: properly remove background for miner

---
 games/lemm/move_lemming.s | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/games/lemm/move_lemming.s b/games/lemm/move_lemming.s
index 0c0bcb66..7ef63dd9 100644
--- a/games/lemm/move_lemming.s
+++ b/games/lemm/move_lemming.s
@@ -301,11 +301,26 @@ mining_mining:
 	and	#$f
 	bne	no_mining_this_frame
 
+	ldx	#0
+	stx	HGR_COLOR
+
+	; (X,A) to (X,A+Y) where X is xcoord/7
+	jsr	hgr_box_page_toggle
 	ldy	CURRENT_LEMMING
 	lda	lemming_x,Y
-	tay
-	lda	#$0			; clear out dirt (FIXME: block?)
-	sta	(GBASL),Y
+	tax
+	lda	lemming_y,Y
+	ldy	#9
+	jsr	hgr_box
+
+	jsr	hgr_box_page_toggle
+	ldy	CURRENT_LEMMING
+	lda	lemming_x,Y
+	tax
+	lda	lemming_y,Y
+	ldy	#9
+	jsr	hgr_box
+
 
 	ldx	CURRENT_LEMMING
 	inc	lemming_y,X