$F7EA/63466:   Find Specific Tape Header

F7EA: 20 2C F7  JSR $F72C
F7ED: B0 1D     BCS $F80C
F7EF: A0 05     LDY #$05
F7F1: 84 9F     STY $9F
F7F3: A0 00     LDY #$00
F7F5: 84 9E     STY $9E
F7F7: C4 B7     CPY $B7
F7F9: F0 10     BEQ $F80B
F7FB: B1 BB     LDA ($BB),Y
F7FD: A4 9F     LDY $9F
F7FF: D1 B2     CMP ($B2),Y
F801: D0 E7     BNE $F7EA
F803: E6 9E     INC $9E
F805: E6 9F     INC $9F
F807: A4 9E     LDY $9E
F809: D0 EC     BNE $F7F7
F80B: 18        CLC
F80C: 60        RTS

    Previous Page / Next Page