6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2025-01-13 10:30:05 +00:00
Code Issues Projects Releases Wiki Activity

make dictionary names mixed-case, matching still case-insensitive

Browse Source
This commit is contained in:
mgcaret 2020-11-04 20:37:08 -08:00
parent 6a24020814
commit 66d571ca7d
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
asm/compiler.s
View File

@ -88,7 +88,7 @@ nextbank: stz DHERE ; move dictionary pointer to next bank
bcs done
lda [WR],y
and #$7F ; normalize
jsr _cupper ; and convert to upper case
; jsr _cupper ; and convert to upper case
jsr _cbytea
iny
bne :-

11
asm/interpreter.s
View File

@ -913,7 +913,7 @@ olp: lda YR
beq notfnd
ldy #$04 ; offset of length
lda [YR],y ; get name length (we pull in two bytes)
and #$7F ; mask in significant bits
and #NAMEMSK ; mask in significant bits
cmp XR ; compare to supplied
bne snext ; not the right word
; its the right length, compare name
@ -928,8 +928,12 @@ olp: lda YR
ldy #$05 ; offset of name
clp: lda [WR] ; char in the word we are searching for
jsr _cupper8 ; upper case it
cmp [YR],y ; compare to char in definition
pha ; save on stack
lda [YR],y ; compare to char in definition
jsr _cupper8 ; upper case it, too
cmp 1,s ; compare to saved
bne xsnext ; no match
pla ; drop char saved on stack
iny ; move to next char of name in def
rep #SHORT_A
jsr _incwr ; move to next char of word we are searching for
@ -951,7 +955,8 @@ clp: lda [WR] ; char in the word we are searching for
adc #$00 ; AY=XT
sec
rts
xsnext: rep #SHORT_A
xsnext: pla ; drop char saved on stack
rep #SHORT_A
.a16 ; good habit
plx
pla