mirror of
https://github.com/a2-4am/passport.git
synced 2024-08-31 23:30:37 +00:00
add support for ATILA variants of LSR 6A and CMP 08 RWTS
This commit is contained in:
parent
8a746d084f
commit
c525e8c708
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user