Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-11-19 03:06:34 +00:00
Code Issues Projects Releases Wiki Activity

add support for another MECC RWTS swapper [fixes Zoyon Patrol]

Browse Source
This commit is contained in:
4am 2021-03-01 12:22:46 -05:00
parent 198b432bc6
commit 13a6e3928b
4 changed files with 35 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/passport.a
View File

@ -792,9 +792,8 @@ _applyToAll
!source "patchers/bbf9.a" ; gIsProDOS only
!source "patchers/memory.config.a" ; gIsProDOS only
!source "patchers/origin.a" ; gIsProDOS only
!source "patchers/rwtsswapmecc.a" ; gMECCFastloadType || gPossibleMECCSwapper only
!source "patchers/meccdqc.a" ; gMECCFastloadType==1 && gT07 only
!source "patchers/rwtsswapmecc.a" ; gMECCFastloadType only
!source "patchers/rwtsswapmecc2.a" ; gPossibleMECCSwapper only
!source "patchers/rwtsswappenguin.a" ; T01 only
!source "patchers/protecteddos.a" ; gIsProtDOS only
!source "patchers/fbff.a"

37
src/patchers/rwtsswapmecc.a
View File

@ -1,14 +1,42 @@
;-------------------------------
; #RWTSSWAPMECC
; post-boot RWTS swapper in MECC
; fastloader disks
; post-boot RWTS swappers in
; various MECC disks
;-------------------------------
!zone {
bit gMode ; nothing to do here in verify-only mode
bpl .exit
lda gPossibleMECCSwapper
beq +
ldy #$08
jsr SearchTrack
!byte $A9,$AA
!byte $2C
!byte $A9,$D5
!byte $8D,$7A,$BC
bcs + ; passport-test-suite/Word Wizards v1.0.woz [C=0] matches
sta gDisplayBytes
jsr inx5
ldy #$01
jsr modify
!byte $60
+
lda gMECCFastloadType
beq .exit
ldy #$06
jsr SearchTrack
!byte $8A
!byte $F0,$02
!byte $A2,$06
!byte $BD
bcs + ; passport-test-suite/Zoyon Patrol v1.0.woz [C=0] matches
sta gDisplayBytes
jsr inx4
ldy #$01
jsr modify
!byte $00
+
ldy #$08
jsr SearchTrack
!byte $A0,$02
@ -32,11 +60,12 @@
!byte $8D,$8B,$C0
!byte $B9,WILDCARD,WILDCARD
!byte $8D,$AC,$D5
bcs .exit ; passport-test-suite/MECC Dataquest - Europe and Soviet Union.woz [C=0] matches
bcs + ; passport-test-suite/MECC Dataquest - Europe and Soviet Union.woz [C=0] matches
sta gDisplayBytes
ldy #$03
jsr modify
!byte $A9,$00
!byte $24
+
.exit
}

25
src/patchers/rwtsswapmecc2.a
View File

@ -1,25 +0,0 @@
;-------------------------------
; #RWTSSWAPMECC2
; post-boot RWTS swapper in MECC
; DOS disks
;-------------------------------
!zone {
bit gMode ; nothing to do here in verify-only mode
bpl .exit
lda gPossibleMECCSwapper
beq .exit
ldy #$08
jsr SearchTrack
!byte $A9,$AA
!byte $2C
!byte $A9,$D5
!byte $8D,$7A,$BC
bcs .exit ; passport-test-suite/Word Wizards v1.0.woz [C=0] matches
sta gDisplayBytes
jsr inx5
ldy #$01
jsr modify
!byte $60
.exit
}

2
src/strings/en.a
View File

@ -284,7 +284,7 @@ StringTableHigh
; can be set directly before calling PrintByID.
;
.header
!text "Passport by 4am 2021-02-28",$00
!text "Passport by 4am 2021-03-01",$00
.mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " "