Added further optimizations and unit tests.

2017-03-05 02:09:12 +01:00
parent 09de875330
commit 81115aa826
19 changed files with 327 additions and 177 deletions
--- a/libsrc/common/strchr.s
+++ b/libsrc/common/strchr.s
@@ -14,8 +14,12 @@ _strchr:
        jsr popax       ; get s
        tay             ; low byte of pointer to y
        stx ptr1+1
+.if (.cpu .bitand ::CPU_ISET_65SC02)
+        stz ptr1
+.else
        lda #0
-        sta ptr1        ; ptr access page wise
+        sta ptr1        ; access from page start, y contains low byte
+.endif        

 Loop:   lda (ptr1),y    ; Get next char
        beq EOS         ; Jump on end of string