passport/src/id/quickdos.a

;-------------------------------
; IDQuickDOS
; identify Quick-DOS bootloader
;
; in:    $0800..$08FF contains T00,S00
;        first page of track buffer also contains T00,S00
;        A = 0
;        X = 0
; out:   C clear if Quick-DOS bootloader found
;        C set otherwise
;        A = 0
;        X = 0
;        all other registers & flags clobbered
;-------------------------------
!macro IDQuickDOS {
         ldy   #$0B
         jsr   compare    ; if T00,S00,$01 ==
         !byte $01
         !byte $A5,$27    ; LDA $27
         !byte $C9,$09    ; CMP #$09
         !byte $D0,$27    ; BNE +$27
         !byte $78        ; SEI
         !byte $AD,$83,$C0; LDA $C083
                          ; passport-test-suite/Kid Niki.woz [C=0] matches
}