     $D313/54035:   Close all channels of other drives

    Jump from $D045, $EC55, $EC66:

    D313: A9 0E     LDA #$0E        ; 14
    D315: 85 83     STA $83         ; secondary address

    Jump from $D336:

    D317: A6 83     LDX $83
    D319: BD 2B 02  LDA $022B,X     ; association table
    D31C: C9 FF     CMP #$FF        ; channel associated?
    D31E: F0 14     BEQ $D334       ; no
    D320: 29 3F     AND #$3F
    D322: 85 82     STA $82         ; channel number
    D324: 20 93 DF  JSR $DF93       ; get buffer number
    D327: AA        TAX
    D328: BD 5B 02  LDA $025B,X     ; drive number
    D32B: 29 01     AND #$01        ; isolate
    D32D: C5 7F     CMP $7F         ; equal to actual drive number
    D32F: D0 03     BNE $D334       ; no
    D331: 20 27 D2  JSR $D227       ; close channel

    Jump from $D31E, $D32F:

    D334: C6 83     DEC $83         ; next channel
    D336: 10 DF     BPL $D317
    D338: 60        RTS

        Previous Page / Next Page