$CACC/51916:   Check if file present

Jump from $CAE7, $C96E:

CACC: A5 E8     LDA $E8         ; file type
CACE: 29 07     AND #$07
CAD0: 8D 4A 02  STA $024A       ; save
CAD3: AE 78 02  LDX $0278

Jump from $CADF:

CAD6: CA        DEX
CAD7: EC 77 02  CPX $0277
CADA: 90 0A     BCC $CAE6
CADC: BD 80 02  LDA $0280,X     ; track number
CADF: D0 F5     BNE $CAD6       ; not zero?
CAE1: A9 62     LDA #$62
CAE3: 4C C8 C1  JMP $C1C8       ; 62, 'file not found'

Jump from $CADA:

CAE6: 60        RTS

Jump from $C9A7, $CA9C:

CAE7: 20 CC CA  JSR $CACC       ; does file exist with old name?

Jump from $CAF5:

CAEA: BD 80 02  LDA $0280,X     ; track number of new file
CAED: F0 05     BEQ $CAF4       ; file erased?
CAEF: A9 63     LDA #$63
CAF1: 4C C8 C1  JMP $C1C8       ; 63, 'file exists'

Jump from $CAED:

CAF4: CA        DEX
CAF5: 10 F3     BPL $CAEA
CAF7: 60        RTS

    Previous Page / Next Page