mirror of
https://github.com/badvision/lawless-legends.git
synced 2024-06-25 09:29:30 +00:00
another fix
This commit is contained in:
parent
3f359cf3ff
commit
c540527370
|
@ -389,8 +389,8 @@ export asm memset(pDst, val, len)#0
|
||||||
lda evalStkL,x ; len lo
|
lda evalStkL,x ; len lo
|
||||||
pha
|
pha
|
||||||
lda evalStkH,x ; len hi
|
lda evalStkH,x ; len hi
|
||||||
tax
|
|
||||||
beq +
|
beq +
|
||||||
|
tax
|
||||||
lda tmp
|
lda tmp
|
||||||
- sta (pTmp),y
|
- sta (pTmp),y
|
||||||
iny
|
iny
|
||||||
|
@ -487,11 +487,11 @@ export asm finishString(isPlural)#1
|
||||||
|
|
||||||
dey ; undo copy of the paren
|
dey ; undo copy of the paren
|
||||||
stx tmp+1 ; save position in input
|
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
|
bit tmp ; set copy flag (V) initially to same as isPlural flag
|
||||||
.findsl ; see if there's a slash within the parens
|
.findsl ; see if there's a slash within the parens
|
||||||
inx
|
inx
|
||||||
cpx inbuf
|
cpx inbuf
|
||||||
|
bcs .done ; failsafe: handle missing end-paren
|
||||||
lda inbuf,x
|
lda inbuf,x
|
||||||
ora #$80 ; normalize hi-bit for comparisons below
|
ora #$80 ; normalize hi-bit for comparisons below
|
||||||
cmp #"/"
|
cmp #"/"
|
||||||
|
@ -989,8 +989,8 @@ export asm streqi(a, b)#1
|
||||||
lda evalStkL+1,x
|
lda evalStkL+1,x
|
||||||
sta pTmp
|
sta pTmp
|
||||||
lda evalStkH+1,x
|
lda evalStkH+1,x
|
||||||
sta pTmp+1
|
|
||||||
beq .null
|
beq .null
|
||||||
|
sta pTmp+1
|
||||||
ldy #0
|
ldy #0
|
||||||
lda (tmp),y
|
lda (tmp),y
|
||||||
cmp (pTmp),y
|
cmp (pTmp),y
|
||||||
|
|
Loading…
Reference in New Issue
Block a user