     $C312/49938:   Preserve drive number

    Jump from $D84C, $EE0D:

    C312: AD 78 02  LDA $0278       ; number of commas
    C315: 8D 77 02  STA $0277       ; save
    C318: A9 01     LDA #$01
    C31A: 8D 78 02  STA $0278       ; number of drive numbers
    C31D: 8D 79 02  STA $0279

    Jump from $C826, $C90F, $CA88, $DA9B:

    C320: AC 8E 02  LDY $028E       ; last drive number
    C323: A2 00     LDX #$00

    Jump from $C339:

    C325: 86 D3     STX $D3
    C327: BD 7A 02  LDA $027A,X     ; position of the colon
    C32A: 20 3C C3  JSR $C33C       ; get drive number before colon
    C32D: A6 D3     LDX $D3
    C32F: 9D 7A 02  STA $027A,X     ; save exact position
    C332: 98        TYA
    C333: 95 E2     STA $E2,X       ; drive number in table
    C335: E8        INX
    C336: EC 78 02  CPX $0278       ; got all drive numbers?
    C339: 90 EA     BCC $C325       ; no, continue
    C33B: 60        RTS

        Previous Page / Next Page