6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-03-27 03:31:48 +00:00
Code Issues Projects Releases Wiki Activity

Fix '_' in variable names

Browse Source
This commit is contained in:
David Schmenk 2014-11-27 21:14:51 -08:00
parent 626274d100
commit 97bddb2724
1 changed files with 14 additions and 24 deletions

38
src/toolsrc/sb.pla

@ -811,21 +811,17 @@ end
asm isalpha asm isalpha
LDY #$00 LDY #$00
LDA ESTKL,X LDA ESTKL,X
CMP #'_'
BEQ ISALTRU
CMP #'A' CMP #'A'
BCC ISALRET BCC ISALRET
CMP #'Z'+1 CMP #'Z'+1
BCS + BCC ISALTRU
DEY CMP #'a'
BNE ISALRET
+ CMP #'a'
BCC ISALRET BCC ISALRET
CMP #'z'+1 CMP #'z'+1
BCS + BCS ISALRET
DEY ISALTRU DEY
BNE ISALRET
+ CMP #'_'
BNE ISALRET
DEY
ISALRET STY ESTKL,X ISALRET STY ESTKL,X
STY ESTKH,X STY ESTKH,X
RTS RTS
@ -863,27 +859,21 @@ end
asm isalphanum asm isalphanum
LDY #$00 LDY #$00
LDA ESTKL,X LDA ESTKL,X
CMP #'_'
BEQ ISANTRU
CMP #'0' CMP #'0'
BCC ISANRET BCC ISANRET
CMP #'9'+1 CMP #'9'+1
BCS + BCC ISANTRU
DEY CMP #'A'
BNE ISANRET
+ CMP #'A'
BCC ISANRET BCC ISANRET
CMP #'Z'+1 CMP #'Z'+1
BCS + BCC ISANTRU
DEY CMP #'a'
BNE ISANRET
+ CMP #'a'
BCC ISANRET BCC ISANRET
CMP #'z'+1 CMP #'z'+1
BCS + BCS ISANRET
DEY ISANTRU DEY
BNE ISANRET
+ CMP #'_'
BNE ISANRET
DEY
ISANRET STY ESTKL,X ISANRET STY ESTKL,X
STY ESTKH,X STY ESTKH,X
RTS RTS