From 0d5c345b63bc83f5b186d14efa17971fde7e3d96 Mon Sep 17 00:00:00 2001 From: Peter Ferrie Date: Sun, 9 Jun 2019 21:18:42 -0700 Subject: [PATCH] correct tamper location reporting --- src/patchers/ea.a | 60 +++++++++++++++++++++++++++++++++++++++++++ src/patchers/sierra.a | 24 +++++++++++++++++ 2 files changed, 84 insertions(+) diff --git a/src/patchers/ea.a b/src/patchers/ea.a index 1903984..f3bbcb0 100644 --- a/src/patchers/ea.a +++ b/src/patchers/ea.a @@ -107,6 +107,9 @@ !byte $07,$01 ;SUB #$4d !byte $0F,$F5,$70 ;BNE $a9f6 bcs + + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID @@ -116,6 +119,9 @@ adc #4 sta .patch3 + 1 pla + ldy gSector + sta gSector + tya pha ldy #1 jsr modify @@ -137,6 +143,9 @@ !byte $D0,$7C ;BNE +$7C !byte $60 ;RTS bcs + + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID @@ -144,6 +153,9 @@ adc #11 tax pla + ldy gSector + sta gSector + tya ldy #1 jsr modify !byte $00 ;disable branch @@ -157,6 +169,9 @@ !byte $07,$1C ;SUB #$50 !byte $0F,$78,$60 ;BNE $B97B bcs + + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID @@ -164,6 +179,9 @@ adc #11 tax pla + ldy gSector + sta gSector + tya ldy #1 jsr modify !byte $4C ;new checksum value for sub @@ -177,10 +195,16 @@ !byte $20,$67,$67 ;JSR $6767 !byte $20,$AA,$BF ;JSR $BFAA bcs + + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID pla + ldy gSector + sta gSector + tya inx inx inx @@ -197,10 +221,16 @@ !byte $C9,$52 ;CMP #$52 !byte $F0,$03 ;BEQ +$03 bcs + + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID pla + ldy gSector + sta gSector + tya inx inx inx @@ -217,10 +247,16 @@ !byte $C9,$52 ;CMP #$52 !byte $D0,$DB ;BNE -$DB bcs + + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID pla + ldy gSector + sta gSector + tya inx inx inx @@ -364,10 +400,16 @@ !byte $E9,$00 ;SBC #$00 !byte $48 ;PHA bcs + + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID pla + ldy gSector + sta gSector + tya inx ldy #1 jsr modify @@ -383,6 +425,9 @@ !byte $C9,$A0 ;CMP #$A0 !byte $F0 ;BEQ *+xx bcs + + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID @@ -390,6 +435,9 @@ adc #12 tax pla + ldy gSector + sta gSector + tya ldy #1 jsr modify !byte $A1 ;new checksum value for eor @@ -406,6 +454,9 @@ !byte $04,$F1,$70 ;LDA $a9f2 !byte $07 ;CMP #$xx bcs + + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID @@ -413,6 +464,9 @@ adc #24 tax pla + ldy gSector + sta gSector + tya ldy #1 jsr compare !byte $AB @@ -480,10 +534,16 @@ !byte $5E,$00 !byte $5E,$0D bcs .exit + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID pla + ldy gSector + sta gSector + tya inx inx ldy #1 diff --git a/src/patchers/sierra.a b/src/patchers/sierra.a index 7c70375..7e3a9e3 100755 --- a/src/patchers/sierra.a +++ b/src/patchers/sierra.a @@ -86,10 +86,16 @@ !byte $C9,$1D ;CMP #$1D !byte $B0 ;BCS *+xx bcs + + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID pla + ldy gSector + sta gSector + tya inx inx inx @@ -325,6 +331,9 @@ !byte $AA ;TAX !byte $95,$00 ;STA $00,X bcs + + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID @@ -332,6 +341,9 @@ adc #9 tax pla + ldy gSector + sta gSector + tya ldy #$01 jsr modify !byte $DD ;checksum @@ -345,10 +357,16 @@ !byte $AA ;TAX !byte $95,$00 ;STA $00,X + bcs + + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID pla + ldy gSector + sta gSector + tya inx inx inx @@ -370,10 +388,16 @@ !byte $AA ;TAX !byte $9D,$00,$01 ;STA $0100,X bcs .jmpexit + ldy gSector + sta gSector + tya pha lda #s_tamper jsr PrintByID pla + ldy gSector + sta gSector + tya inx inx inx