smaller alpha detection

2025-01-22 23:29:55 +00:00 · 2016-03-22 21:27:43 -07:00 · 2016-03-22 21:27:43 -07:00 · 28ea563039
commit 28ea563039
parent 39d5c185a6
1 changed files with 3 additions and 9 deletions
--- a/src/toolsrc/swyftcode.pla
+++ b/src/toolsrc/swyftcode.pla
@ -687,8 +687,8 @@ asm rdstr
        STA     $01FF,X
        DEX
        BPL     -
+        TAX
        LDX     ESP
-        LDA     #$FF
        STA     ESTKL,X
        LDA     #$01
        STA     ESTKH,X
@ -828,11 +828,8 @@ asm isalpha
        BEQ     ISALTRU
        CMP     #'A'
        BCC     ISALRET
+        AND     #$DF
        CMP     #'Z'+1
-	BCC	ISALTRU
-        CMP     #'a'
-        BCC     ISALRET
-        CMP     #'z'+1
        BCS	ISALRET
 ISALTRU DEY
 ISALRET STY     ESTKL,X
@ -880,11 +877,8 @@ asm isalphanum
        BCC	ISANTRU
        CMP     #'A'
        BCC     ISANRET
+        AND     #$DF
        CMP     #'Z'+1
-        BCC	ISANTRU
-        CMP     #'a'
-        BCC     ISANRET
-        CMP     #'z'+1
        BCS	ISANRET
 ISANTRU DEY
 ISANRET STY     ESTKL,X