another fix

This commit is contained in:
Peter Ferrie 2023-09-03 14:42:51 -07:00
parent 3f359cf3ff
commit c540527370
1 changed files with 3 additions and 3 deletions

View File

@ -389,8 +389,8 @@ export asm memset(pDst, val, len)#0
lda evalStkL,x ; len lo
pha
lda evalStkH,x ; len hi
tax
beq +
tax
lda tmp
- sta (pTmp),y
iny
@ -487,11 +487,11 @@ export asm finishString(isPlural)#1
dey ; undo copy of the paren
stx tmp+1 ; save position in input
bcs .done ; failsafe: handle missing end-paren
bit tmp ; set copy flag (V) initially to same as isPlural flag
.findsl ; see if there's a slash within the parens
inx
cpx inbuf
bcs .done ; failsafe: handle missing end-paren
lda inbuf,x
ora #$80 ; normalize hi-bit for comparisons below
cmp #"/"
@ -989,8 +989,8 @@ export asm streqi(a, b)#1
lda evalStkL+1,x
sta pTmp
lda evalStkH+1,x
sta pTmp+1
beq .null
sta pTmp+1
ldy #0
lda (tmp),y
cmp (pTmp),y