    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