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