Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2025-01-18 00:32:37 +00:00
Code Issues Projects Releases Wiki Activity

simplify

Browse Source
This commit is contained in:
Peter Ferrie 2019-06-10 09:50:54 -07:00
parent 0d5c345b63
commit f2e6b21cd4
2 changed files with 14 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
src/patchers/ea.a
View File

@ -107,9 +107,7 @@
!byte $07,$01 ;SUB #$4d !byte $07,$01 ;SUB #$4d
!byte $0F,$F5,$70 ;BNE $a9f6 !byte $0F,$F5,$70 ;BNE $a9f6
bcs + bcs +
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
@ -119,9 +117,6 @@
adc #4 adc #4
sta .patch3 + 1 sta .patch3 + 1
pla pla
ldy gSector
sta gSector
tya
pha pha
ldy #1 ldy #1
jsr modify jsr modify
@ -143,9 +138,7 @@
!byte $D0,$7C ;BNE +$7C !byte $D0,$7C ;BNE +$7C
!byte $60 ;RTS !byte $60 ;RTS
bcs + bcs +
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
@ -153,9 +146,6 @@
adc #11 adc #11
tax tax
pla pla
ldy gSector
sta gSector
tya
ldy #1 ldy #1
jsr modify jsr modify
!byte $00 ;disable branch !byte $00 ;disable branch
@ -169,9 +159,7 @@
!byte $07,$1C ;SUB #$50 !byte $07,$1C ;SUB #$50
!byte $0F,$78,$60 ;BNE $B97B !byte $0F,$78,$60 ;BNE $B97B
bcs + bcs +
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
@ -179,9 +167,6 @@
adc #11 adc #11
tax tax
pla pla
ldy gSector
sta gSector
tya
ldy #1 ldy #1
jsr modify jsr modify
!byte $4C ;new checksum value for sub !byte $4C ;new checksum value for sub
@ -195,16 +180,11 @@
!byte $20,$67,$67 ;JSR $6767 !byte $20,$67,$67 ;JSR $6767
!byte $20,$AA,$BF ;JSR $BFAA !byte $20,$AA,$BF ;JSR $BFAA
bcs + bcs +
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
pla pla
ldy gSector
sta gSector
tya
inx inx
inx inx
inx inx
@ -221,16 +201,11 @@
!byte $C9,$52 ;CMP #$52 !byte $C9,$52 ;CMP #$52
!byte $F0,$03 ;BEQ +$03 !byte $F0,$03 ;BEQ +$03
bcs + bcs +
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
pla pla
ldy gSector
sta gSector
tya
inx inx
inx inx
inx inx
@ -247,16 +222,11 @@
!byte $C9,$52 ;CMP #$52 !byte $C9,$52 ;CMP #$52
!byte $D0,$DB ;BNE -$DB !byte $D0,$DB ;BNE -$DB
bcs + bcs +
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
pla pla
ldy gSector
sta gSector
tya
inx inx
inx inx
inx inx
@ -400,16 +370,11 @@
!byte $E9,$00 ;SBC #$00 !byte $E9,$00 ;SBC #$00
!byte $48 ;PHA !byte $48 ;PHA
bcs + bcs +
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
pla pla
ldy gSector
sta gSector
tya
inx inx
ldy #1 ldy #1
jsr modify jsr modify
@ -425,9 +390,7 @@
!byte $C9,$A0 ;CMP #$A0 !byte $C9,$A0 ;CMP #$A0
!byte $F0 ;BEQ *+xx !byte $F0 ;BEQ *+xx
bcs + bcs +
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
@ -435,9 +398,6 @@
adc #12 adc #12
tax tax
pla pla
ldy gSector
sta gSector
tya
ldy #1 ldy #1
jsr modify jsr modify
!byte $A1 ;new checksum value for eor !byte $A1 ;new checksum value for eor
@ -454,9 +414,7 @@
!byte $04,$F1,$70 ;LDA $a9f2 !byte $04,$F1,$70 ;LDA $a9f2
!byte $07 ;CMP #$xx !byte $07 ;CMP #$xx
bcs + bcs +
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
@ -464,9 +422,6 @@
adc #24 adc #24
tax tax
pla pla
ldy gSector
sta gSector
tya
ldy #1 ldy #1
jsr compare jsr compare
!byte $AB !byte $AB
@ -534,16 +489,11 @@
!byte $5E,$00 !byte $5E,$00
!byte $5E,$0D !byte $5E,$0D
bcs .exit bcs .exit
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
pla pla
ldy gSector
sta gSector
tya
inx inx
inx inx
ldy #1 ldy #1

28
src/patchers/sierra.a
View File

@ -86,16 +86,11 @@
!byte $C9,$1D ;CMP #$1D !byte $C9,$1D ;CMP #$1D
!byte $B0 ;BCS *+xx !byte $B0 ;BCS *+xx
bcs + bcs +
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
pla pla
ldy gSector
sta gSector
tya
inx inx
inx inx
inx inx
@ -331,9 +326,7 @@
!byte $AA ;TAX !byte $AA ;TAX
!byte $95,$00 ;STA $00,X !byte $95,$00 ;STA $00,X
bcs + bcs +
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
@ -341,9 +334,6 @@
adc #9 adc #9
tax tax
pla pla
ldy gSector
sta gSector
tya
ldy #$01 ldy #$01
jsr modify jsr modify
!byte $DD ;checksum !byte $DD ;checksum
@ -357,16 +347,11 @@
!byte $AA ;TAX !byte $AA ;TAX
!byte $95,$00 ;STA $00,X !byte $95,$00 ;STA $00,X
+ bcs + + bcs +
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
pla pla
ldy gSector
sta gSector
tya
inx inx
inx inx
inx inx
@ -388,16 +373,11 @@
!byte $AA ;TAX !byte $AA ;TAX
!byte $9D,$00,$01 ;STA $0100,X !byte $9D,$00,$01 ;STA $0100,X
bcs .jmpexit bcs .jmpexit
ldy gSector sta gDisplayBytes
sta gSector
tya
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
pla pla
ldy gSector
sta gSector
tya
inx inx
inx inx
inx inx