2017-05-05 00:36:48 +00:00
|
|
|
;-------------------------------
|
|
|
|
; IDPronto
|
|
|
|
; identify Pronto-DOS bootloader
|
|
|
|
;
|
2021-06-19 23:42:56 +00:00
|
|
|
; 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
|
2017-05-05 00:36:48 +00:00
|
|
|
;-------------------------------
|
2021-06-19 01:41:37 +00:00
|
|
|
!macro IDPronto {
|
2017-05-05 00:36:48 +00:00
|
|
|
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
|
2021-06-19 01:41:37 +00:00
|
|
|
; passport-test-suite/America Coast to Coast.woz [C=0] matches
|
2017-05-05 00:36:48 +00:00
|
|
|
}
|