    u1 ($cd5f)

    8B9A: 20 9F 8A  JSR $8A9F        Kanal oeffnen, Parameter holen
    8B9D: 20 71 8B  JSR $8B71        Block einlesen

    Einsprung von $8B97:

    8BA0: B9 42 02  LDA $0242,Y      Anzahl zu uebertragender Bytes [dies ist ja
                                     das 1. Byte des gelesenen Blocks !]
    8BA3: 99 3B 02  STA $023B,Y      in Ausgabepuffer (als Datenbyte) schreiben
    8BA6: A9 FF     LDA #$FF         Blocklaenge setzen (ganzen Block ausgeben)
    8BA8: 99 42 02  STA $0242,Y
    8BAB: 4C 4C 80  JMP $804C

        Previous Page / Next Page