$F8E2/63714:   Set Read Timing

Jump from $F9CB, $FA0A, $FA2A, $FA67:

F8E2: 86 B1     STX $B1       ; Tape timing Constants
F8E4: A5 B0     LDA $B0       ; Tape timing Constants
F8E6: 0A        ASL
F8E7: 0A        ASL
F8E8: 18        CLC
F8E9: 65 B0     ADC $B0       ; Tape timing Constants
F8EB: 18        CLC
F8EC: 65 B1     ADC $B1       ; Tape timing Constants
F8EE: 85 B1     STA $B1       ; Tape timing Constants
F8F0: A9 00     LDA #$00
F8F2: 24 B0     BIT $B0       ; Tape timing Constants
F8F4: 30 01     BMI $F8F7
F8F6: 2A        ROL

Jump from $F8F4:

F8F7: 06 B1     ASL $B1       ; Tape timing Constants
F8F9: 2A        ROL
F8FA: 06 B1     ASL $B1       ; Tape timing Constants
F8FC: 2A        ROL
F8FD: AA        TAX

Jump from $F903:

F8FE: AD 06 DC  LDA $DC06     ; CIA1: Timer B Low-Byte  (Tape, Serial Port)
F901: C9 16     CMP #$16
F903: 90 F9     BCC $F8FE
F905: 65 B1     ADC $B1       ; Tape timing Constants
F907: 8D 04 DC  STA $DC04     ; CIA1: Timer A Low-Byte  (Kernal-IRQ, Tape)
F90A: 8A        TXA
F90B: 6D 07 DC  ADC $DC07     ; CIA1: Timer B High-Byte (Tape, Serial Port)
F90E: 8D 05 DC  STA $DC05     ; CIA1: Timer A High-Byte (Kernal-IRQ, Tape)
F911: AD A2 02  LDA $02A2     ; TOD sense during Tape I/O
F914: 8D 0E DC  STA $DC0E     ; CIA1: Control Register A
F917: 8D A4 02  STA $02A4     ; Temporary D1IRQ Indicator during Tape READ
F91A: AD 0D DC  LDA $DC0D     ; CIA1: Interrupt (IRQ) Control Register
F91D: 29 10     AND #$10
F91F: F0 09     BEQ $F92A
F921: A9 F9     LDA #$F9
F923: 48        PHA
F924: A9 2A     LDA #$2A
F926: 48        PHA
F927: 4C 43 FF  JMP $FF43     ; Fake IRQ Entry

Jump from $F91F:

F92A: 58        CLI
F92B: 60        RTS

    Previous Page / Next Page