     $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