From d92d5dd6cd0b1162d67424e8b5114a3097c05b34 Mon Sep 17 00:00:00 2001
From: Dave Schmenk <dschmenk@gmail.com>
Date: Wed, 8 Jan 2020 14:33:49 -0800
Subject: [PATCH] A wee'er bit faster

---
 src/libsrc/apple/hgrtile.pla | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/libsrc/apple/hgrtile.pla b/src/libsrc/apple/hgrtile.pla
index 2bd7e45..f947268 100644
--- a/src/libsrc/apple/hgrtile.pla
+++ b/src/libsrc/apple/hgrtile.pla
@@ -262,9 +262,7 @@ asm     _tileDrawStr
         ADC     $2000,Y     ; SCANBTTMH
         STA     ESTKL+3,X
         LDY     #$00
-;        STY     ESTKH+1,X   ; USE STRLENH AS COUNT
 --      STY     SRCH
-;        LDY     ESTKH+1,X
         LDY     ESTKL+1,X   ; STRLEN
         LDA     (TMP),Y     ; TILE INDEX * 8
         ASL
@@ -273,7 +271,7 @@ asm     _tileDrawStr
         ROL     SRCH
         ASL
         ROL     SRCH
-;        CLC
+;        CLC                 ; CARRY IS CLEAR FROM ABOVE
         ADC     ESTKL+0,X   ; ADD TO TILESETPTR
         STA     SRCL
         LDA     SRCH
@@ -290,15 +288,12 @@ asm     _tileDrawStr
         BNE     -
         LDA     (SRC),Y
         STA     (ESTKL+2,X)
-;        INC     ESTKL+2,X   ; RESET SCREEN PTR TO NEXT TILE POS
         DEC     ESTKL+2,X   ; RESET SCREEN PTR TO NEXT TILE POS
         LDA     ESTKL+3,X
 ;        CLC
 ;        ADC     #$1C
         ADC     #$1B        ; CARRY STILL SET FROM ABOVE
         STA     ESTKL+3,X
-;        INC     ESTKH+1,X   ; COUNT++
-;        BNE     --
         DEC     ESTKL+1,X   ; STRLEN--
         BPL     --
 +       INX