$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