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