mirror of
https://github.com/a2-4am/passport.git
synced 2024-06-17 10:29:30 +00:00
26 lines
776 B
Plaintext
26 lines
776 B
Plaintext
;-------------------------------
|
|
; 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
|
|
}
|