mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
31 lines
735 B
Plaintext
Executable File
31 lines
735 B
Plaintext
Executable File
;-------------------------------
|
|
; #PRODOSRWTS
|
|
; patch ProDOS RWTS
|
|
; e.g. ProDOS-based MECC disks
|
|
;-------------------------------
|
|
!zone {
|
|
_prodosrwts
|
|
; gIsProDOS is TRUE here
|
|
|
|
ldy #$14
|
|
jsr SearchTrack
|
|
!byte $29,$FC
|
|
!byte $5D,WILDCARD,WILDCARD
|
|
!byte $D0,$0C
|
|
!byte $A6,WILDCARD
|
|
!byte $BD,$8C,$C0
|
|
!byte $10,$FB
|
|
!byte $C9,WILDCARD
|
|
!byte $18
|
|
!byte $F0,$01
|
|
!byte $38
|
|
bcs .exit ; passport-test-suite/Mystery Objects v1.1.woz [C=0] matches
|
|
jsr inx0F
|
|
jsr compare1
|
|
!byte $DE
|
|
bcc .exit
|
|
jsr modify1
|
|
!byte $DE
|
|
.exit
|
|
}
|