     $DA2A/55850:   Preparation for append

    Jump from $DA32, $C996, $D99A:

    DA2A: 20 39 CA  JSR $CA39       ; open channel to read, get byte
    DA2D: A9 80     LDA #$80
    DA2F: 20 A6 DD  JSR $DDA6       ; last byte?
    DA32: F0 F6     BEQ $DA2A       ; no
    DA34: 20 95 DE  JSR $DE95       ; get track and sector number
    DA37: A6 81     LDX $81         ; sector number
    DA39: E8        INX
    DA3A: 8A        TXA
    DA3B: D0 05     BNE $DA42       ; not $FF?
    DA3D: 20 A3 D1  JSR $D1A3       ; close buffer, write block
    DA40: A9 02     LDA #$02

    Jump from $DA3B:

    DA42: 20 C8 D4  JSR $D4C8       ; buffer pointer to 2
    DA45: A6 82     LDX $82         ; channel number
    DA47: A9 01     LDA #$01
    DA49: 95 F2     STA $F2,X       ; set flag for WRITE
    DA4B: A9 80     LDA #$80
    DA4D: 05 82     ORA $82
    DA4F: A6 83     LDX $83
    DA51: 9D 2B 02  STA $022B,X     ; channel number in table
    DA54: 60        RTS

        Previous Page / Next Page