mirror of
https://github.com/a2-4am/passport.git
synced 2024-06-16 19:29:38 +00:00
23 lines
755 B
Plaintext
23 lines
755 B
Plaintext
;-------------------------------
|
|
; IDPronto
|
|
; identify Pronto-DOS bootloader
|
|
;
|
|
; in: $0800..$08FF contains T00,S00
|
|
; first page of track buffer also contains T00,S00
|
|
; bootloader was identified as DOS 3.3-shaped (IDDOS33 returned success)
|
|
; A = 0
|
|
; out: C clear if Pronto-DOS bootloader found
|
|
; C set otherwise
|
|
; A = 0
|
|
; all other flags clobbered
|
|
;-------------------------------
|
|
!macro IDPronto {
|
|
ldx #$5E
|
|
ldy #$07
|
|
jsr compare ; if T00,S00,$5E ==
|
|
!byte $B0,$50 ; BCS +$50
|
|
!byte $AD,$CB,$B5; LDA $B5CB
|
|
!byte $85,$42 ; STA $42
|
|
; passport-test-suite/America Coast to Coast.woz [C=0] matches
|
|
}
|