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

another JMPBB03 variant [fixes Pacific 231]

Browse Source
This commit is contained in:
4am 2022-06-26 21:19:56 -04:00
parent 4029dfbeac
commit 950fdf73fd
1 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/patchers/t00_bb03.a
View File

@ -15,17 +15,22 @@
; - Mrs. Wigglesworth's Secret ; - Mrs. Wigglesworth's Secret
; - Mystery of the Witch's Shoes ; - Mystery of the Witch's Shoes
; ;
; variant 3 (JMP $BB03) ; variant 3a (JMP $BB03)
; - Alice in Wonderland (some versions) ; - Alice in Wonderland (some versions)
; - Sum Ducks ; - Sum Ducks
; - Trivia Fever ; - Trivia Fever
;
; variant 3b (JMP $BB03 but no whole track count)
; - Pacific 231
;------------------------------- ;-------------------------------
!zone { !zone {
lda #$07 ; sector to check for David-DOS variant lda #$07 ; sector to check for David-DOS variant
ldy gIsDavidDOS ldy gIsDavidDOS
beq .check beq .check
ldy gIsBoot0 ; if DOS 3.3 boot0 loader ldy gIsBoot0 ; if DOS 3.3 boot0 loader
bne .exit beq +
jmp .exit
+
lda #$05 ; sector to check for DOS 3.3 variant lda #$05 ; sector to check for DOS 3.3 variant
.check ldx #$03 .check ldx #$03
jsr compare3 ; if T00,S0(5|7),$03 == jsr compare3 ; if T00,S0(5|7),$03 ==
@ -52,8 +57,22 @@
jsr compare ; and T00,S05,$6B == jsr compare ; and T00,S05,$6B ==
!byte $06,$26,$7D; encrypted, decrypts to 'LDA $C08C,X / BPL -' !byte $06,$26,$7D; encrypted, decrypts to 'LDA $C08C,X / BPL -'
!byte $39,$41 !byte $39,$41
bcc .variant3a
ldx #$65
jsr compare ; or T00,S05,$65 ==
!byte $A3,$BC
!byte $BD,$30,$99; encrypted, decrypts to 'LDY #$05 / LDA $C08C,X'
bcs .exit bcs .exit
;variant3 .variant3b
inx
jsr modify3 ; then set T00,S05,$66 =
!byte $B9,$F0,$85; encrypted, decrypts to '#$00 / BEQ +$39'
; which will set Y to 0 (required) and branch to $BBA2
; to finish setting side effects and continue on success path
; passport-test-suite/Pacific 231.woz [V=0] reaches here
bvc .exit ; always branches
.variant3a
jsr modify2 ; then set T00,S05,$6B = jsr modify2 ; then set T00,S05,$6B =
!byte $6B,$F6 ; encrypted, decrypts to 'BNE +$5C' which will unconditionally branch to success path at $BBC9 !byte $6B,$F6 ; encrypted, decrypts to 'BNE +$5C' which will unconditionally branch to success path at $BBC9
lda #$06 lda #$06