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 |