$F72C/63276: Find Any Tape Header Jump from $F749, $F3AF, $F556, $F7EA: F72C: A5 93 LDA $93 ; Flag: 0 = Load, 1 = Verify F72E: 48 PHA F72F: 20 41 F8 JSR $F841 ; Initiate Tape Read F732: 68 PLA F733: 85 93 STA $93 ; Flag: 0 = Load, 1 = Verify F735: B0 32 BCS $F769 F737: A0 00 LDY #$00 F739: B1 B2 LDA ($B2),Y ; Pointer: Start Address of Tape Buffer F73B: C9 05 CMP #$05 F73D: F0 2A BEQ $F769 F73F: C9 01 CMP #$01 F741: F0 08 BEQ $F74B F743: C9 03 CMP #$03 F745: F0 04 BEQ $F74B F747: C9 04 CMP #$04 F749: D0 E1 BNE $F72C Jump from $F741, $F745: F74B: AA TAX F74C: 24 9D BIT $9D ; Error-Mode-Flag F74E: 10 17 BPL $F767 F750: A0 63 LDY #$63 F752: 20 2F F1 JSR $F12F ; Print Message F755: A0 05 LDY #$05 Jump from $F75F: F757: B1 B2 LDA ($B2),Y ; Pointer: Start Address of Tape Buffer F759: 20 D2 FF JSR $FFD2 ; Output Vector, chrout F75C: C8 INY F75D: C0 15 CPY #$15 F75F: D0 F6 BNE $F757 F761: A5 A1 LDA $A1 ; Real-time jiffy Clock F763: 20 E0 E4 JSR $E4E0 ; Pause After Finding Tape File F766: EA NOP Jump from $F74E: F767: 18 CLC F768: 88 DEY Jump from $F735, $F73D: F769: 60 RTS Previous Page / Next Page |