$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