;-------------------------------
; #C9FF
; a custom RWTS-like routine to
; position the disk for an E7
; protection check
;
; tested on
; Bank Street Writer II
; Fact and Fiction Toolkit
; Mr. Pixel's Cartoon Kit
; Mr. Pixel's Programming Paint Set
; Story Maker
; Swiss Family Robinson
;-------------------------------
!zone {
         ldy   #$1A
         jsr   SearchTrack
         !byte $A8        ; TAY
         !byte $D0,$15    ; BNE +$15
         !byte $BD,$8C,$C0; LDA $C08C,X
         !byte $10,$FB    ; BPL -$FB
         !byte $C9,$FF    ; CMP #$FF
         !byte $D0,$0C    ; BNE +$0C
         !byte $EA        ; NOP
         !byte $BD,$8C,$C0; LDA $C08C,X
         !byte $10,$FB    ; BPL -$FB
         !byte $C9,$FF    ; CMP #$FF
         !byte $D0,$02    ; BNE +$02
         !byte $18        ; CLC
         !byte $60        ; RTS
         !byte $38        ; SEC
         !byte $60        ; RTS
         bcs   .exit      ; passport-test-suite/Mr. Pixel's Programming Paint Set.woz [C=0] matches
         sta   gDisplayBytes
         pha
         txa
         clc
         adc   #$09
         tax
         stx   gDisplayBytes+1
         pla
         pha
         ldy   #$01
         jsr   modify
         !byte $DE
         lda   gDisplayBytes+1
         clc
         adc   #$0A
         tax
         pla
         ldy   #$01
         jsr   modify
         !byte $AA
.exit
}