     $D7C7/55239:   -Check '*' Last file

    D7C7: E0 2A     CPX #$2A        ; '*'
    D7C9: D0 28     BNE $D7F3
    D7CB: A5 7E     LDA $7E         ; last track number
    D7CD: F0 4D     BEQ $D81C
    D7CF: 85 80     STA $80         ; track number
    D7D1: AD 6E 02  LDA $026E       ; last drive number
    D7D4: 85 7F     STA $7F         ; drive number
    D7D6: 85 E2     STA $E2
    D7D8: A9 02     LDA #$02
    D7DA: 85 E7     STA $E7         ; set data type to program
    D7DC: AD 6F 02  LDA $026F       ; last sector number
    D7DF: 85 81     STA $81         ; sector
    D7E1: 20 00 C1  JSR $C100       ; turn LED on
    D7E4: 20 46 DC  JSR $DC46       ; allocate buffer, read block
    D7E7: A9 04     LDA #$04        ; file type
    D7E9: 05 7F     ORA $7F         ; drive number

    Jump from $D812:

    D7EB: A6 82     LDX $82         ; channel number
    D7ED: 99 EC 00  STA $EC,Y       ; set flag
    D7F0: 4C 94 C1  JMP $C194       ; done

        Previous Page / Next Page