    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