$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