From da200058da4717eaca09b979aeb43e1612ac6180 Mon Sep 17 00:00:00 2001
From: IIMarckus <iimarckus@gmail.com>
Date: Fri, 19 Nov 2010 23:30:32 -0700
Subject: add ClearScreen function

hg-commit-id: 4f32cac305e9
---
 pokered.asm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'pokered.asm')

diff --git a/pokered.asm b/pokered.asm
index 2ccf98a0..c524b2ec 100644
--- a/pokered.asm
+++ b/pokered.asm
@@ -337,7 +337,24 @@ incbin "baserom.gbc",$39E,$1627 - $39E
 .GotBank\@
 	jp $24FD
 
-INCBIN "baserom.gbc",$1665,$20AF - $1665
+INCBIN "baserom.gbc",$1665,$190F - $1665
+
+ClearScreen: ; 190F
+; clears all tiles in the tilemap,
+; then (writes 1 to $FFD3, waits for it to become 0) three times (XXX why?)
+	ld bc,$0168 ; tilemap size
+	inc b
+	ld hl,$C3A0 ; TILEMAP_START
+	ld a,$7F    ; $7F is blank tile
+.loop\@
+	ld [hli],a
+	dec c
+	jr nz,.loop\@
+	dec b
+	jr nz,.loop\@
+	jp Delay3
+
+INCBIN "baserom.gbc",$1922,$20AF - $1922
 
 ConserveBattery: ; 20AF
 ; loads 1 into $FFD6 and returns when $FFD6 == 0
-- 
cgit v1.2.3