2017-12-06 19:12:45 +00:00
|
|
|
;-------------------------------
|
|
|
|
|
; IDDinkeyDOS
|
|
|
|
|
; identify Dinkey-DOS by filename in ProDOS catalog
|
|
|
|
|
;
|
2021-06-20 04:18:55 +00:00
|
|
|
; in: track buffer contains T00,S0B
|
|
|
|
|
; out: C clear if Dinkey-DOS found
|
|
|
|
|
; C set otherwise
|
|
|
|
|
; A = #$0B
|
|
|
|
|
; all other registers & flags clobbered
|
2017-12-06 19:12:45 +00:00
|
|
|
;-------------------------------
|
2021-06-19 02:06:12 +00:00
|
|
|
!macro IDDinkeyDOS {
|
2017-12-06 19:12:45 +00:00
|
|
|
lda #$0B
|
|
|
|
|
ldx #$2B
|
2021-06-19 01:32:58 +00:00
|
|
|
tay
|
2017-12-06 19:12:45 +00:00
|
|
|
jsr compare ; if T00,S0B,$2B ==
|
|
|
|
|
!byte $29,$44,$49,$4E,$4B,$45,$59,$44,$4F,$53,$00
|
2021-06-19 02:06:12 +00:00
|
|
|
; passport-test-suite/Ultima V.woz [C=0] matches
|
2017-12-06 19:12:45 +00:00
|
|
|
}
|
