$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 |