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