Neuen Block an das Directory anhaengen ($d48d)

Einsprung von $95F5:

93E7: 20 79 9D  JSR $9D79        T&S der aktuellen Datei holen
93EA: A9 01     LDA #$01         nur eine Suchphase ausfuehren (s. $b668)
93EC: 85 40     STA $40
93EE: A5 2E     LDA $2E          Sektorversatz merken
93F0: 48        PHA
93F1: A9 01     LDA #$01         Sektorversatz auf 1 setzen
93F3: 85 2E     STA $2E
93F5: 20 75 B6  JSR $B675        freien Block suchen
93F8: 68        PLA
93F9: 85 2E     STA $2E          alten Sektorversatz zurueckholen
93FB: A9 00     LDA #$00         Pufferzeiger auf Verkettungsbytes setzen
93FD: 20 22 94  JSR $9422
9400: A5 4D     LDA $4D          T&S des Folgeblocks im aktuellen Block
9402: 20 B1 8E  JSR $8EB1        eintragen
9405: A5 4E     LDA $4E
9407: 20 B1 8E  JSR $8EB1
940A: 20 02 90  JSR $9002        alten Directory-Block schreiben
940D: 20 ED 94  JSR $94ED        Jobausfuehrung pruefen
9410: A9 00     LDA #$00
9412: 20 22 94  JSR $9422        Pufferzeiger auf 0 setzen

Einsprung von $9418:

9415: 20 B1 8E  JSR $8EB1        Puffer mit $00 fuellen
9418: D0 FB     BNE $9415        (z=1: Puffer voll)
941A: 20 B1 8E  JSR $8EB1        Kennzeichen fuer 'letzter Sektor'
941D: A9 FF     LDA #$FF         und aktuelle Blocklaenge setzen
941F: 4C B1 8E  JMP $8EB1        [Die ist im Directory immer 255.]

    Previous Page / Next Page