From d9e26d4467fcb3c027f4868bd1f9bf72eae05843 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Fri, 22 Mar 2024 21:10:33 -0500
Subject: [PATCH] Small optimizations related to 8/16-bit register switching.

---
 signal.asm |  5 ++---
 string.asm | 49 ++++++++++++++++++++++++-------------------------
 2 files changed, 26 insertions(+), 28 deletions(-)

diff --git a/signal.asm b/signal.asm
index 93222e5..82b1d91 100644
--- a/signal.asm
+++ b/signal.asm
@@ -107,9 +107,8 @@ lb2      asl   A                        get the signal handler address
          tay
          lda   >subABRT-2,X
          bmi   lb3                      skip if it is SIG_DFL or SIG_IGN
-         short M                        set up the call address
-         sta   >jsl+3
-         long  M
+         xba                            set up the call address
+         sta   >jsl+2
          tya
          sta   >jsl+1
          ph2   <sig                     call the user signal handler
diff --git a/string.asm b/string.asm
index 46a568e..1fe86a3 100644
--- a/string.asm
+++ b/string.asm
@@ -253,9 +253,9 @@ lb4      blt   less                     memory differs - set the result
 
 less     ldx   #-1
 
-lb5      long  M
-         lda   rtl                      remove the parameters from the stack
+lb5      lda   rtl                      remove the parameters from the stack
          sta   len+1
+         long  M
          lda   rtl+1
          sta   len+2
          pld
@@ -436,11 +436,11 @@ lb10     lda   [p2],Y
          dex
          bne   lb9
 
-lb11     long  M
-         ply                            get the original source pointer
+lb11     ply                            get the original source pointer
          plx
          lda   rtl                      remove the parameters from the stack
          sta   len+1
+         long  M
          lda   rtl+1
          sta   len+2
          pld
@@ -629,9 +629,9 @@ lb3      lda   [s2],Y
          inc   s2+2
          bra   lb3
 
-lb4      long  M                        return to the caller
-         lda   rtl
+lb4      lda   rtl                      return to the caller
          sta   s2+1
+         long  M
          lda   rtl+1
          sta   s2+2
          ldx   rval+2
@@ -751,9 +751,9 @@ less     ldx   #-1                      It wasn't, so *s1 < *s2
 lb3      blt   less                     the strings differ - set the result
          ldx   #1
 
-lb4      long  M
-         lda   rtl                      remove the parameters from the stack
+lb4      lda   rtl                      remove the parameters from the stack
          sta   s2+1
+         long  M
          lda   rtl+1
          sta   s2+2
          pld
@@ -830,9 +830,9 @@ lb1      lda   [s2],Y
          inc   s2+2
          bra   lb1
 
-lb2      long  M                        return to the caller
-         lda   rtl
+lb2      lda   rtl                      return to the caller
          sta   s2+1
+         long  M
          lda   rtl+1
          sta   s2+2
          ldx   rval+2
@@ -971,10 +971,10 @@ lb1      lda   [str],Y
          inc   str+2
          bra   lb1
 
-lb2      long  M
-         pld                            remove str from the stack
-         lda   2,S
-         sta   6,S
+lb2      pld                            remove str from the stack
+         lda   3,S
+         sta   7,S
+         long  M
          pla
          sta   3,S
          pla
@@ -1203,14 +1203,13 @@ lb1      lda   [s],Y
          short M
          bra   lb1
 
-lb2      long  I,M                      no match found -> return NULL
-         ldx   #0
+lb2      ldx   #0                       no match found -> return NULL
          txy
+         long  I,M
          bra   lb4
 
 lb3      long  I,M                      increment s by Y and load the value
          tya
-         and   #$00FF
          clc
          adc   s
          tay
@@ -1266,10 +1265,10 @@ lb1      lda   [str],Y
 
 lb2      ldy   #-1                      no match found -> return -1
 
-lb3      long  M
-         pld                            remove parameters from the stack
-         lda   2,S
-         sta   8,S
+lb3      pld                            remove parameters from the stack
+         lda   3,S
+         sta   9,S
+         long  M
          pla
          sta   5,S
          pla
@@ -1377,10 +1376,10 @@ lb2      cmp   #0
          iny
          bpl   lb1
 
-lb3      long  M
-         pld                            remove parameters from the stack
-         lda   2,S
-         sta   8,S
+lb3      pld                            remove parameters from the stack
+         lda   3,S
+         sta   9,S
+         long  M
          pla
          sta   5,S
          pla