changeset 3225:da0076266ab0

Did some more cycle optimizations in co42.asm
author David Ladd <drencor-xeen@users.sourceforge.net>
date Sat, 20 Jan 2018 18:50:58 -0600
parents 343b7428ff23
children 9749d0dfc4a2
files level1/modules/co42.asm
diffstat 1 files changed, 8 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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