# HG changeset patch
# User David Ladd <drencor-xeen@users.sourceforge.net>
# Date 1516495858 21600
# Node ID da0076266ab0bd18c01aae30a14cc1abc9f06641
# Parent  343b7428ff23a0a8124f26e1deacabec72ab42c1
Did some more cycle optimizations in co42.asm

diff -r 343b7428ff23 -r da0076266ab0 level1/modules/co42.asm
--- a/level1/modules/co42.asm	Sat Jan 20 18:23:55 2018 -0600
+++ b/level1/modules/co42.asm	Sat Jan 20 18:50:58 2018 -0600
@@ -179,12 +179,12 @@
          jmp   [V.51CtrlDispatch,u]
                          
 DoNormalChar                 
-         pshs  y,a       
+*         pshs  y,a       
 *         lbsr  DoEraseCursor
-         puls  y,a       
+*         puls  y,a       
          inc   V.51CursorChanged,u
          bsr   DrawCharacter
-         tst   V.51UnderlineFlag,u * Are we underlining ?
+         lda   V.51UnderlineFlag,u * Are we underlining ?
          beq   L0185      * no : update cursor
          lda   #$FC       * Yes : do underline, then update cursor
          leay  <-$20,y   
@@ -238,9 +238,12 @@
          rorb            
          lsra            
          rorb            
-         puls  a          * restore pixel X
+         lda   ,s
          anda  #$07       * Calculate offset within byte where character begins
-         pshs  b         
+         stb   ,s
+*         puls  a          * restore pixel X
+*         anda  #$07       * Calculate offset within byte where character begins
+*         pshs  b         
          sta   V.51BytePixOffset,u
          tst   V.51XORFlag,u
          bne   L01FF