mirror of
https://github.com/a2-4am/passport.git
synced 2024-09-28 08:54:53 +00:00
25 lines
744 B
Plaintext
25 lines
744 B
Plaintext
;-------------------------------
|
|
; IDQuickDOS
|
|
; identify Quick-DOS bootloader
|
|
;
|
|
; in: $0800..$08FF contains T00,S00
|
|
; first page of track buffer also contains T00,S00
|
|
; out: C clear if Quick-DOS bootloader found
|
|
; C set otherwise
|
|
; all registers clobbered
|
|
; all other flags clobbered
|
|
;-------------------------------
|
|
!zone {
|
|
IDQuickDOS
|
|
lda #$00
|
|
ldx #$01
|
|
ldy #$0A
|
|
jsr compare ; if T00,S00,$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
|
|
rts ; passport-test-suite/Kid Niki.woz [C=0] matches
|
|
}
|