    Dateien einzeln suchen ($c48b)
    A: n: 1: Keine Datei mehr gefunden; 0: Suche war erfolgreich
       Filetabellen $e5-$f8
       Filebeginn   $0297-$02a1

    naechste Datei suchen (vorher den Direktory-Block neu einlesen)

    Einsprung von $8703:

    82E6: 20 77 84  JSR $8477        naechsten Dir-Eintrag holen
    82E9: F0 0E     BEQ $82F9        noch eine Datei gefunden ? nein, ==>
    82EB: D0 1C     BNE $8309        ja ==>

    1. Datei suchen

    Einsprung von $8301, $8695, $9705, $9945:

    82ED: A9 00     LDA #$00         Flag fuer 'Suche nach belegten Eintraegen'
    82EF: 85 73     STA $73          setzen
    82F1: 20 24 84  JSR $8424        1. Directory-Eintrag suchen
    82F4: D0 13     BNE $8309        gefunden ? ja, ==>
    82F6: 8D A5 02  STA $02A5        a=0: Noch Dateien nicht gefunden
                                    (n=1 setzen und Ende)

    Einsprung von $82E9, $8307:

    82F9: AD A5 02  LDA $02A5        Alle Dateien gefunden ?
    82FC: D0 28     BNE $8326        ja, (endgueltig Ende der Suche)==>
    82FE: CE A3 02  DEC $02A3        Anzahl der Laufwerke -1 = $ff
    8301: 10 EA     BPL $82ED        (wird nie ausgefuehrt)
    8303: 60        RTS              n=1, Ende ==>

    naechste Datei suchen (Direktory-Block ist noch im Puffer)

    Einsprung von $8314, $8324, $8617:

    8304: 20 89 84  JSR $8489        <-- naechsten Dir-Eintrag holen
    8307: F0 F0     BEQ $82F9        keiner mehr da ? ja, ==>

    Einsprung von $82EB, $82F4:

    8309: 20 27 83  JSR $8327        Eintrag mit gesuchten vergleichen
    830C: AE 6D 02  LDX $026D        War es ein gesuchter Eintrag ?
    830F: 10 07     BPL $8318        ja, ==>
    8311: AD A5 02  LDA $02A5        Existieren noch nicht gefundene Dateinamen?
    8314: F0 EE     BEQ $8304        ja, ==>
    8316: D0 0E     BNE $8326        nein, n=1, Ende ==>

    Einsprung von $830F:

    8318: AD 33 02  LDA $0233        Wird ein bestimmter Filetyp gesucht ?
    831B: F0 09     BEQ $8326        nein, (0 waere DEL) ==>
    831D: B5 F4     LDA $F4,X        Filetyp vergleichen
    831F: 29 07     AND #$07
    8321: CD 33 02  CMP $0233
    8324: D0 DE     BNE $8304        ungleich, ==>

    Einsprung von $82FC, $8316, $831B:

    8326: 60        RTS              File gefunden (n=0), Ende ==>

        Previous Page / Next Page