From f2826159c48f15d3312b05120eee5f7253f6cdb7 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Tue, 6 Jun 2023 13:03:59 +0200
Subject: [PATCH] And faster clearscreen :)

---
 Atari/gr_basics.asm |   9 ++++-----
 C64/gr_basics.asm   |  18 ++++--------------
 scorch.xex          | Bin 56332 -> 56332 bytes
 3 files changed, 8 insertions(+), 19 deletions(-)

diff --git a/Atari/gr_basics.asm b/Atari/gr_basics.asm
index 5bd09ea..7b30739 100644
--- a/Atari/gr_basics.asm
+++ b/Atari/gr_basics.asm
@@ -646,16 +646,15 @@ EndPut4x4
     sta temp
     lda #>display
     sta temp+1
-Go
-loop  lda #$ff
-      sta (temp),y
+Go  lda #$ff
+loop  sta (temp),y
       iny
       bne @+
       inc temp+1
 @     cpy #<(display+screenheight*screenBytes+1)
       bne loop
-      lda temp+1
-      cmp #>(display+screenheight*screenBytes+1)
+      ldx temp+1
+      cpx #>(display+screenheight*screenBytes+1)
       bne loop
    rts
 .endp
diff --git a/C64/gr_basics.asm b/C64/gr_basics.asm
index a95d2f7..5750d8c 100644
--- a/C64/gr_basics.asm
+++ b/C64/gr_basics.asm
@@ -590,30 +590,20 @@ EndPut4x4
 ;--------------------------------------------------
 .proc ClearScreen
 ;--------------------------------------------------
-    mwa #displayC64 temp
-    ldy #0
-@     lda #$ff
-      sta (temp),y
-      inw temp
-      cpw temp #displayC64+screenheight*screenBytes+1
-    bne @-
-   rts
-   
     ldy #<displayC64
     lda #0
     sta temp
     lda #>displayC64
     sta temp+1
-Go
-loop  lda #$ff
-      sta (temp),y
+Go  lda #$ff
+loop  sta (temp),y
       iny
       bne @+
       inc temp+1
 @     cpy #<(displayC64+screenheight*screenBytes+1)
       bne loop
-      lda temp+1
-      cmp #>(displayC64+screenheight*screenBytes+1)
+      ldx temp+1
+      cpx #>(displayC64+screenheight*screenBytes+1)
       bne loop
    rts
 .endp
diff --git a/scorch.xex b/scorch.xex
index 00371694d7d8563497ae58a8b361d32ff7e68f51..ca27340b67bb8f396e45b3f237105c5299fe3ff2 100644
GIT binary patch
delta 22
ecmeC#!Q8Whc>~XE_OHu|9@t-azgc+pPX_>dgbQ*2

delta 22
ecmeC#!Q8Whc>~XE_RmX;PTF61yIFYlPX_>ch6`2z