fix the offsets

This commit is contained in:
Peter Ferrie 2019-04-18 21:14:50 -07:00
parent 6c8ecc6498
commit 6ceb65808d

View File

@ -36,16 +36,16 @@
lda .findmatch1+1 lda .findmatch1+1
asl asl
adc .findmatch1+1 adc .findmatch1+1
adc #4
tay tay
lda .table2+1,y ldx #$04
pha - lda .table2+2-1,y
tax sta .cmpbytes2-1,x
- lda .table2+2,x dey
sta .cmpbytes2,x
dex dex
bpl - bne -
ldx .table2,y ldx .table2,y
pla lda .table2+1,y
tay tay
pla pla
jsr compare jsr compare
@ -81,21 +81,13 @@
ldx .table5+1,y ldx .table5+1,y
stx .cmpbyte5+1 stx .cmpbyte5+1
ldx .table5,y ldx .table5,y
tay
txa
pha
tya
ldy #2 ldy #2
jsr compare jsr compare
.cmpbyte5 .cmpbyte5
!byte $20,$D1 ; SMC !byte $20,$D1 ; SMC
tay
pla
bcs + bcs +
tax
dex dex
tya
pha pha
lda .findmatch1+1 lda .findmatch1+1
lsr lsr
@ -103,7 +95,7 @@
lda .table6,y lda .table6,y
sta .cmpbyte6 sta .cmpbyte6
sta .modify6 sta .modify6
tya pla
ldy #1 ldy #1
jsr compare jsr compare
.cmpbyte6 .cmpbyte6
@ -118,7 +110,7 @@
+ ldy .findmatch1+1 + ldy .findmatch1+1
iny iny
iny iny
cpy #(.table1_e-.table1)*2/3 cpy #.table1_e-.table1
beq .jmpexit2 beq .jmpexit2
jmp .initmatch jmp .initmatch