    APPEND: Fileende suchen und auf Schreiben umschalten ($da2a)

    Einsprung von $98D4, $87E3, $9847:

    98CC: 20 7A 88  JSR $887A        Byte aus aktuellem File holen
    98CF: A9 80     LDA #$80
    98D1: 20 E4 9C  JSR $9CE4        Status testen
    98D4: F0 F6     BEQ $98CC        noch kein Fileende, ==>
    98D6: 20 CE 9D  JSR $9DCE        Blocklaenge holen
    98D9: A6 4E     LDX $4E
    98DB: E8        INX              +1 (1. unbenutztes Byte)
    98DC: 8A        TXA
    98DD: D0 05     BNE $98E4        <>0, (Block noch nicht voll) ==>
    98DF: 20 18 91  JSR $9118        neuen Folgeblock suchen
    98E2: A9 02     LDA #$02         Pufferzeiger auf 2 setzen

    Einsprung von $98DD:

    98E4: 20 22 94  JSR $9422
    98E7: A6 50     LDX $50
    98E9: A9 01     LDA #$01         auf Schreiben umschalten
    98EB: 9D 34 02  STA $0234,X      Kanalstatus setzen
    98EE: A9 80     LDA #$80
    98F0: 05 50     ORA $50          Aktuelle Kanalnummer + Kennzeichen fuer
    98F2: A6 52     LDX $52          Schreibkanal
    98F4: 95 A8     STA $A8,X        in Kanalnummertabelle ablegen
    98F6: 60        RTS

        Previous Page / Next Page