Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2025-08-09 22:25:12 +00:00
Code Issues Projects Releases Wiki Activity

add support for ATILA variants of LSR 6A and CMP 08 RWTS

Browse Source
This commit is contained in:
4am
2022-11-29 13:59:13 -05:00
parent 8a746d084f
commit c525e8c708
1 changed files with 32 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
src/patchers/t00_rwtslog.a
View File

@@ -14,13 +14,27 @@ _rwtslog_start
; to reduce duplicated code ; to reduce duplicated code
; ;
@compare_lsr6a @compare_lsr6a
ldy #$0A ldy #$09
jsr compare jsr compare
!byte $BD,$8C,$C0 !byte $BD,$8C,$C0
!byte $10,$FB !byte $10,$FB
!byte $4A !byte $4A
!byte WILDCARD,$6A !byte WILDCARD,$6A
!byte $D0,$EF !byte $D0
rts
@compare_cmp08
ldy #$11
jsr compare
!byte $BD,$8C,$C0
!byte $10,$FB
!byte $C9,$DE
!byte $F0,$0A
!byte $48
!byte $68
!byte $BD,$8C,$C0
!byte $C9,$08
!byte $B0
rts rts
@compare_bne0 @compare_bne0
@@ -49,9 +63,15 @@ _rwtslog_start
jsr @compare_lsr6a jsr @compare_lsr6a
bcc @print_lsr6a ; passport-test-suite/Roadwar 2000.woz [C=0] matches bcc @print_lsr6a ; passport-test-suite/Roadwar 2000.woz [C=0] matches
; ATILA variant
lda #$04 ; or T00,S04,$A5 ==
ldx #$A5
jsr @compare_lsr6a
bcc @print_lsr6a ; passport-test-suite/The Treasure of Forest Isle.woz [C=0] matches
; Pascal variant ; Pascal variant
lda #$0D lda #$0D
ldx #$05 ; oro T00,S0D,$05 == ldx #$05 ; or T00,S0D,$05 ==
jsr @compare_lsr6a jsr @compare_lsr6a
bcs @lsr6a_end ; passport-test-suite/GATO v1.3.woz [C=0] matches bcs @lsr6a_end ; passport-test-suite/GATO v1.3.woz [C=0] matches
@@ -67,22 +87,9 @@ _rwtslog_start
; for the first address epilogue nibble ; for the first address epilogue nibble
;------------------------------- ;-------------------------------
; DOS 3.3 variant ; DOS 3.3 variant
lda #$03 lda #$03 ; if T00,S03,$8B ==
ldx #$8B ldx #$8B
ldy #$15 jsr @compare_cmp08
jsr compare ; if T00,S03,$8B ==
!byte $BD,$8C,$C0
!byte $10,$FB
!byte $C9,$DE
!byte $F0,$0A
!byte $48
!byte $68
!byte $BD,$8C,$C0
!byte $C9,$08
!byte $B0,$A5
!byte $EA
!byte $18
!byte $60
bcc @print_bcs08 ; passport-test-suite/The Seasons.woz [C=0] matches bcc @print_bcs08 ; passport-test-suite/The Seasons.woz [C=0] matches
; RDOS variant ; RDOS variant
@@ -98,7 +105,13 @@ _rwtslog_start
!byte $BD,$8C,$C0 !byte $BD,$8C,$C0
!byte $C9,$80 !byte $C9,$80
!byte $B0 !byte $B0
bcs @bcs08_end ; passport-test-suite/Roadwar 2000.woz [C=0] matches bcc @print_bcs08 ; passport-test-suite/Roadwar 2000.woz [C=0] matches
; ATILA variant
lda #$04
ldx #$E6 ; or T00,S04,$E6 ==
jsr @compare_cmp08
bcs @bcs08_end ; passport-test-suite/The Treasure of Forest Isle.woz [C=0] matches
@print_bcs08 @print_bcs08
jsr PrintByID jsr PrintByID