fix Berzap grader speech

This commit is contained in:
Peter Ferrie 2020-03-02 09:58:43 -08:00
parent eb7c01c3d5
commit c4eedb55bc

View File

@ -35,29 +35,55 @@
cpx #$C4
beq skipmb
txa
ldx $3FCD ;find #$C4s
cpx #$C4
bne ++
ldy #0
- ldx $3FCD,Y ;find #$C4s
cpx #$C4
bne +
sta $3FCD,Y ;Replace #$C4 with detected slot
+ ldx $9743,Y ;find #$C4s
+ iny
bne -
++ ldx $9743 ;find #$C4s
cpx #$C4
bne ++
- ldx $9743,Y ;find #$C4s
cpx #$C4
bne +
sta $9743,Y ;Replace #$C4 with detected slot
+ ldx $988D,Y ;find #$C4s
ldx $988D,Y ;find #$C4s
cpx #$C4
bne +
sta $988D,Y ;Replace #$C4 with detected slot
+ ldx $ACE0,Y ;find #$C4s
ldx $ACE0,Y ;find #$C4s
cpx #$C4
bne +
sta $ACE0,Y ;Replace #$C4 with detected slot
+ iny
bne -
sta $9A63
sta $9A6B
sta $AB1D
++ ldx $89D5 ;find #$C4s
cpx #$C4
bne ++
ldy #0
- ldx $89D5,Y ;find #$C4s
cpx #$C4
bne +
sta $89D5,Y ;Replace #$C4 with detected slot
+ ldx $9464,Y ;find #$C4s
cpx #$C4
bne +
sta $9464,Y ;Replace #$C4 with detected slot
+ iny
bne -
++
skipmb
jmp ($b2ce)