    Validate-Befehl ($ed84)

    B262: 20 85 80  JSR $8085        Drivenummer holen
    B265: 20 03 8F  JSR $8F03        Partition initialisieren
    B268: 20 4A B4  JSR $B44A        neue BAM erzeugen, BAM-Blocks belegen
    B26B: A9 00     LDA #$00         Flag fuer Suche nach benutzten Directory-
    B26D: 85 73     STA $73          Eintraegen setzen
    B26F: 20 24 84  JSR $8424        1. Directory-Eintrag suchen
    B272: D0 38     BNE $B2AC        gefunden, ==>

    Directory-Blocks belegen

    Einsprung von $B2AA:

    B274: A9 00     LDA #$00         1. Directory-Sektor holen
    B276: 85 4E     STA $4E
    B278: AD 2B 02  LDA $022B
    B27B: 85 4D     STA $4D
    B27D: 20 C7 B2  JSR $B2C7        Blocks belegen
    B280: 20 15 B5  JSR $B515        BAM abspeichern
    B283: 4C 4C 80  JMP $804C        Ende

    Datei-Blocks (incl. Side-Sektoren) belegen

    Einsprung von $B2B6:

    B286: C8        INY              y=1
    B287: B1 64     LDA ($64),Y      Track- &
    B289: 48        PHA
    B28A: C8        INY
    B28B: B1 64     LDA ($64),Y      Sektornummer
    B28D: 48        PHA              merken
    B28E: A0 13     LDY #$13
    B290: B1 64     LDA ($64),Y      sind Side-Sektoren vorhanden ?
    B292: F0 0A     BEQ $B29E        nein, ==>
    B294: 85 4D     STA $4D          T&S des ersten Side-Sektors
    B296: C8        INY              setzen
    B297: B1 64     LDA ($64),Y
    B299: 85 4E     STA $4E
    B29B: 20 C7 B2  JSR $B2C7        Blocks belegen

    Einsprung von $B292:

    B29E: 68        PLA
    B29F: 85 4E     STA $4E          T&S des Datenbereichs zurueckholen
    B2A1: 68        PLA
    B2A2: 85 4D     STA $4D
    B2A4: 20 C7 B2  JSR $B2C7        und Blocks belegen
    naechstes File holen

    Einsprung von $B2BE, $B2C4:

    B2A7: 20 77 84  JSR $8477        Naechstes File suchen
    B2AA: F0 C8     BEQ $B274        Directory-Ende, ==>

    Einsprung von $B272:

    B2AC: A0 00     LDY #$00
    B2AE: B1 64     LDA ($64),Y      Filetyp holen
    B2B0: 10 0F     BPL $B2C1        File nicht geschlossen, ==>
    B2B2: 29 07     AND #$07         Filetyp = CBM ?
    B2B4: C9 05     CMP #$05
    B2B6: D0 CE     BNE $B286        nein, ==>

    Partitions in BAM belegen

    B2B8: 20 23 B3  JSR $B323        Partition-Parameter holen
    B2BB: 20 3C B3  JSR $B33C        Partition in BAM belegen
    B2BE: 4C A7 B2  JMP $B2A7

    offene Files loeschen

    Einsprung von $B2B0:

    B2C1: 20 3B 87  JSR $873B        Filetyp = 0 (DEL) setzen
    B2C4: 4C A7 B2  JMP $B2A7        naechstes File suchen

        Previous Page / Next Page