6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-07-05 04:28:57 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/toolsrc/sb.pla
View File

@ -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