RENAME ($ca88) 88C5: 20 0B 82 JSR $820B Drivenummer(n) testen 88C8: A5 F0 LDA $F0 Drivenummer des 2. Files 88CA: 29 01 AND #$01 88CC: 85 F0 STA $F0 88CE: C5 EF CMP $EF = Drivenummer des 1. Files ? 88D0: F0 02 BEQ $88D4 ja, ==> 88D2: 09 80 ORA #$80 Flag fuer unbestimmte Drivenummer setzen Einsprung von $88D0: 88D4: 85 EF STA $EF 88D6: 20 B9 82 JSR $82B9 alle angegebenen Dateien suchen 88D9: 20 1E 89 JSR $891E Existiert nur der 2. Name schon ? 88DC: A5 E6 LDA $E6 (Rueckkehr nur bei Ja) 88DE: 85 4E STA $4E 88E0: 20 94 9D JSR $9D94 Dir-Block mitdem gesuchten Eintrag einlesen 88E3: 20 ED 94 JSR $94ED Job abwarten 88E6: A5 EB LDA $EB Zeiger auf Dateieintrag 88E8: 18 CLC 88E9: 69 03 ADC #$03 +3 (Typ,T&S beruecksichtigen) 88EB: 20 22 94 JSR $9422 Pufferzeiger setzen 88EE: 20 11 9F JSR $9F11 Nummer des aktiven Puffers holen 88F1: A8 TAY 88F2: AE 91 02 LDX $0291 Position des neuen Dateinamens 88F5: A9 10 LDA #$10 und Maximallaenge holen 88F7: 20 EE 84 JSR $84EE Namen kopieren und mit $a0 auffuellen 88FA: 20 9A 9D JSR $9D9A Puffer schreiben 88FD: 20 ED 94 JSR $94ED Job abwarten 8900: 4C 4C 80 JMP $804C Previous Page / Next Page |