Neuen Bereich anlegen

Einsprung von $B7BC:

B88D: 20 11 B8  JSR $B811        Sind Blocks fuer die Partition noch frei ?
B890: A9 05     LDA #$05         ja:
B892: 8D 2D 02  STA $022D
B895: A9 12     LDA #$12         internen Schreibkanal anwaehlen
B897: 85 52     STA $52
B899: 20 5F B8  JSR $B85F        Parameter aus der Kommandozeile holen
B89C: 20 C6 9B  JSR $9BC6        File zum Schreiben oeffnen
B89F: 20 AB 95  JSR $95AB        Neue Partition im Directory eintragen
B8A2: 20 5F B8  JSR $B85F        Parameter aus der Kommandozeile holen

Einsprung von $B8B0:

B8A5: 20 B5 94  JSR $94B5        T&S auf gueltigen Bereich testen
B8A8: A5 4D     LDA $4D          [wird nicht gebraucht]
B8AA: 20 72 B5  JSR $B572        Block in BAM belegen
B8AD: 20 EF B2  JSR $B2EF        naechsten Block der Partition holen
B8B0: D0 F3     BNE $B8A5        noch nicht Partition-Ende, ==>
B8B2: 20 5F B8  JSR $B85F        Parameter aus der Kommandozeile holen
B8B5: A6 50     LDX $50
B8B7: AD EE 01  LDA $01EE        Dateilaenge setzen
B8BA: 9D 49 02  STA $0249,X
B8BD: AD ED 01  LDA $01ED
B8C0: 9D 50 02  STA $0250,X
B8C3: A9 00     LDA #$00         ein Byte in Puffer schreiben [sonst wuerde
B8C5: 20 B1 8E  JSR $8EB1         der Block von der Datei wieder abgezogen.
B8C8: A9 12     LDA #$12          (s. $9a47)]
B8CA: 85 52     STA $52          internen Schreibkanal anwaehlen
B8CC: 20 9F 99  JSR $999F        Datei schliessen
B8CF: 4C 4C 80  JMP $804C

DOS 8

    Previous Page / Next Page