    Block-Write ($cd73)

    8BAE: 20 2F 8C  JSR $8C2F        Kanal oeffnen, Parameter holen
    8BB1: 20 42 94  JSR $9442        Pufferzeiger holen
    8BB4: A8        TAY
    8BB5: 88        DEY              auf letztes benutztes Byte setzen
    8BB6: C9 02     CMP #$02         Pufferzeiger <=2 ?
    8BB8: B0 02     BCS $8BBC        nein, ==>
    8BBA: A0 01     LDY #$01         Puffer muss mindestens 1 Datenbyte enthalten

    Einsprung von $8BB8:

    8BBC: A9 00     LDA #$00
    8BBE: 20 22 94  JSR $9422        Pufferzeiger auf 0 setzen
    8BC1: 98        TYA
    8BC2: 20 B1 8E  JSR $8EB1        Byte in Puffer schreiben
    8BC5: 8A        TXA              Puffernummer merken
    8BC6: 48        PHA
    8BC7: 20 C1 93  JSR $93C1        Puffer auf Disk schreiben
    8BCA: 68        PLA
    8BCB: AA        TAX              Puffernummer zurueckholen
    8BCC: A4 50     LDY $50
    8BCE: 4C 09 8C  JMP $8C09        Byte fuer Ausgabe bereitstellen
        Previous Page / Next Page