mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
27 lines
661 B
Plaintext
27 lines
661 B
Plaintext
;-------------------------------
|
|
; #RDOS format interception
|
|
; support disk tools that format 13-sectors
|
|
;
|
|
; module by qkumba
|
|
;-------------------------------
|
|
!zone {
|
|
lda gIsRDOS13
|
|
bne .exit
|
|
|
|
ldy #$0E
|
|
jsr SearchTrack
|
|
!byte $20,$A0,$08; JSR $08A0
|
|
!byte $B0,WILDCARD; BCS +
|
|
!byte $20,WILDCARD,$08; JSR $08xx
|
|
!byte $BD,WILDCARD,$08; LDA $08xx,X
|
|
!byte $9D,$00,$02; STA $0200,X
|
|
bcs .exit ; passport-test-suite/Epidemic.woz [Z=1] matches
|
|
|
|
ldy #4
|
|
jsr modify
|
|
!byte $BD,$88,$C0;LDA $C088,X
|
|
!byte $90 ;BCC ...
|
|
|
|
.exit
|
|
}
|