;-------------------------------
; 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
}