     $DAC0/56000:   Close routine

    Jump from $E8CE:

    DAC0: A9 00     LDA #$00
    DAC2: 8D F9 02  STA $02F9
    DAC5: A5 83     LDA $83         ; secondary address
    DAC7: D0 0B     BNE $DAD4       ; not zero?
    DAC9: A9 00     LDA #$00        ; secondary address 0, LOAD
    DACB: 8D 54 02  STA $0254
    DACE: 20 27 D2  JSR $D227       ; close channel

    Jump from $DADF:

    DAD1: 4C DA D4  JMP $D4DA       ; close internal channels 17 & 18

    Jump from $DAC7:

    DAD4: C9 0F     CMP #$0F        ; 15
    DAD6: F0 14     BEQ $DAEC       ; yes, close all channels
    DAD8: 20 02 DB  JSR $DB02       ; close file
    DADB: A5 83     LDA $83         ; secondary address
    DADD: C9 02     CMP #$02
    DADF: 90 F0     BCC $DAD1       ; smaller than 2?
    DAE1: AD 6C 02  LDA $026C
    DAE4: D0 03     BNE $DAE9
    DAE6: 4C 94 C1  JMP $C194       ; termination

    Jump from $DAE4:

    DAE9: 4C AD C1  JMP $C1AD

    Jump from $DAD6:

    DAEC: A9 0E     LDA #$0E        ; 14
    DAEE: 85 83     STA $83         ; secondary address

    Jump from $DAF5:

    DAF0: 20 02 DB  JSR $DB02       ; close file
    DAF3: C6 83     DEC $83         ; next secondary address
    DAF5: 10 F9     BPL $DAF0
    DAF7: AD 6C 02  LDA $026C
    DAFA: D0 03     BNE $DAFF
    DAFC: 4C 94 C1  JMP $C194       ; termination

    Jump from $DAFA:

    DAFF: 4C AD C1  JMP $C1AD

        Previous Page / Next Page