shorter ClearScreen

2026-05-20 22:33:43 +02:00 · 2022-08-05 23:56:27 -04:00
parent 2bec64c38e
commit 312bca4866
2 changed files with 8 additions and 9 deletions
@@ -464,17 +464,16 @@ endcircleloop
 ;--------------------------------------------------
 .proc ClearScreen
 ;--------------------------------------------------
-
-    lda #$ff
-    ldx #0
-@
-    :31 sta display+($100*#),x
-    sta display+$1e50,x  ; this is so no space outside of the screen is cleared
-                         ; of course we are clearing $100 instead of $50, but who cares :]
-    inx
+    mwa #display temp
+    ldy #0
+@     lda #$ff
+      sta (temp),y
+      inw temp
+      cpw temp #display+screenheight*screenBytes+1
    bne @-
-    rts
+   rts 
 .endp
+
 ;-------------------------------*------------------
 .proc placetanks
 ;--------------------------------------------------