Added "popptr1" which is of common use to save some bytes.

2018-05-20 15:30:18 +02:00
parent 3a6430b13d
commit c95ed4b8b5
35 changed files with 113 additions and 151 deletions
--- a/libsrc/common/strpbrk.s
+++ b/libsrc/common/strpbrk.s
@@ -5,17 +5,15 @@
 ;

        .export         _strpbrk
-        .import         popax, return0
+        .import         popax, popptr1, return0
        .importzp       ptr1, ptr2, tmp1, tmp2, tmp3

 _strpbrk:
        jsr     popax           ; get s2
        sta     ptr2
        stx     ptr2+1
-        jsr     popax           ; get s1
-        sta     ptr1
-        stx     ptr1+1
-        ldy     #$00
+        jsr     popptr1         ; get s1
+        ; ldy     #$00           Y=0 guaranteed by popptr1

 L1:     lda     (ptr1),y        ; get next char from s1
        beq     L9              ; jump if done