$D042/53314:   Load BAM

Jump from $C666, $D008, $D828, $E63E, $ED87, $EE46:

D042: 20 D1 F0  JSR $F0D1
D045: 20 13 D3  JSR $D313
D048: 20 0E D0  JSR $D00E       ; read block
D04B: A6 7F     LDX $7F         ; drive number
D04D: A9 00     LDA #$00
D04F: 9D 51 02  STA $0251,X     ; reset flag for "BAM changed'
D052: 8A        TXA
D053: 0A        ASL
D054: AA        TAX
D055: A5 16     LDA $16
D057: 95 12     STA $12,X
D059: A5 17     LDA $17         ; save ID
D05B: 95 13     STA $13,X
D05D: 20 86 D5  JSR $D586
D060: A5 F9     LDA $F9         ; buffer number
D062: 0A        ASL
D063: AA        TAX
D064: A9 02     LDA #$02        ; buffer pointer to $200
D066: 95 99     STA $99,X
D068: A1 99     LDA ($99,X)     ; get character from buffer
D06A: A6 7F     LDX $7F         ; drive number
D06C: 9D 01 01  STA $0101,X
D06F: A9 00     LDA #$00
D071: 95 1C     STA $1C,X       ; flag for write protect
D073: 95 FF     STA $FF,X       ; flag for read error

    Previous Page / Next Page