mirror of
https://github.com/a2-4am/passport.git
synced 2025-01-28 05:31:35 +00:00
26 lines
789 B
Plaintext
26 lines
789 B
Plaintext
;-------------------------------
|
|
; #ZOOMGRAFIX
|
|
; secondary protection expects
|
|
; disk volume number 0
|
|
;
|
|
; tested on
|
|
; - Zoom Grafix (Phoenix Software) multiple versions
|
|
;-------------------------------
|
|
!zone {
|
|
lda gIsPhoenix ; only if we found Phoenix boot sector earlier
|
|
bne .exit
|
|
ldy #$0C
|
|
jsr SearchTrack
|
|
!byte $4C,$4D,$D0,$E2,$28,$4B,$42,$C9 ; 'LM = PEEK(KB - 2058)' in BASIC
|
|
!byte $32,$30,$35,$38
|
|
bcs .exit ; passport-test-suite/Zoom Grafix 26-JAN-82.woz [C=0] matches
|
|
ldy #$00
|
|
sty gDisplayBytes+1
|
|
jsr PrintByID
|
|
!byte s_diskvol0x
|
|
jsr inx0B
|
|
jsr modify1
|
|
!byte $35 ; 'LM = PEEK(KB - 2055)' instead
|
|
.exit
|
|
}
|