     $CA35/51765:   ?

    Jump from $C9D8, $E81B, $E839:

    CA35: A9 11     LDA #$11        ; 11
    CA37: 85 83     STA $83

    Jump from $DA2A:

    CA39: 20 9B D3  JSR $D39B       ; open channel and get byte
    CA3C: 85 85     STA $85
    CA3E: A6 82     LDX $82         ; channel number
    CA40: B5 F2     LDA $F2,X
    CA42: 29 08     AND #$08        ; isolate end marker
    CA44: 85 F8     STA $F8
    CA46: D0 0A     BNE $CA52       ; not set?
    CA48: 20 25 D1  JSR $D125       ; get data type
    CA4B: F0 05     BEQ $CA52       ; rel-file?
    CA4D: A9 80     LDA #$80
    CA4F: 20 97 DD  JSR $DD97       ; set bit 7

    Jump from $CA46, $CA4B:

    CA52: 60        RTS

    Jump from $C9CB:

    CA53: 20 D3 D1  JSR $D1D3       ; set drive number
    CA56: 20 CB E1  JSR $E1CB
    CA59: A5 D6     LDA $D6
    CA5B: 48        PHA
    CA5C: A5 D5     LDA $D5
    CA5E: 48        PHA
    CA5F: A9 12     LDA #$12        ; 18
    CA61: 85 83     STA $83
    CA63: 20 07 D1  JSR $D107       ; open write channel
    CA66: 20 D3 D1  JSR $D1D3       ; set drive number
    CA69: 20 CB E1  JSR $E1CB
    CA6C: 20 9C E2  JSR $E29C
    CA6F: A5 D6     LDA $D6
    CA71: 85 87     STA $87
    CA73: A5 D5     LDA $D5
    CA75: 85 86     STA $86
    CA77: A9 00     LDA #$00
    CA79: 85 88     STA $88
    CA7B: 85 D4     STA $D4
    CA7D: 85 D7     STA $D7
    CA7F: 68        PLA
    CA80: 85 D5     STA $D5
    CA82: 68        PLA
    CA83: 85 D6     STA $D6
    CA85: 4C 3B E3  JMP $E33B

        Previous Page / Next Page