2017-05-05 00:25:34 +00:00
|
|
|
;-------------------------------
|
2017-05-05 00:36:48 +00:00
|
|
|
; IDDiversi
|
2017-05-05 00:25:34 +00:00
|
|
|
; identify Diversi-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 Diversi-DOS bootloader found
|
|
|
|
; C set otherwise
|
|
|
|
; A = 0
|
|
|
|
; all other registers & flags clobbered
|
2017-05-05 00:25:34 +00:00
|
|
|
;-------------------------------
|
2021-06-19 01:41:37 +00:00
|
|
|
!macro IDDiversi {
|
2017-05-05 00:25:34 +00:00
|
|
|
ldx #$F1
|
|
|
|
ldy #$0B
|
|
|
|
jsr compare ; if T00,S00,$F1 ==
|
|
|
|
!byte $B3,$A3,$A0,$D2,$CF,$D2,$D2,$C5,$8D,$87,$8D
|
2021-06-19 01:41:37 +00:00
|
|
|
bcs + ; passport-test-suite/Moon Bingo.woz [C=0] matches
|
2019-10-11 20:50:31 +00:00
|
|
|
sta gIsDiversi
|
2021-06-19 01:41:37 +00:00
|
|
|
+
|
2017-05-05 00:25:34 +00:00
|
|
|
}
|