Feststellen, welcher Kanal schon am laengsten inaktiv ist
(legt Reihenfolge fest fuer das 'Stehlen' von Puffern) ($cefa)

Tabelle initialisieren

Einsprung von $8D76, $B068:

8D59: A2 00     LDX #$00         Bereich von $df-$e4

Einsprung von $8D61:

8D5B: 8A        TXA              mit 0-5 fuellen
8D5C: 95 DF     STA $DF,X
8D5E: E8        INX
8D5F: E0 05     CPX #$05
8D61: D0 F8     BNE $8D5B
8D63: A9 05     LDA #$05         [bei der 1581 unnoetig,
8D65: 95 DF     STA $DF,X         bei der 1541 wurde der Bereich
8D67: 60        RTS               mit 0-3, 6 gefuellt.]

Aktuelle Kanalnummer ans Tabellenende ruecken

Einsprung von $8D7D, $8E3C:

8D68: A0 05     LDY #$05         <-- regulaerer Einsprung
8D6A: A6 50     LDX $50          aktuelle Kanalnummer holen

Einsprung von $8D79:

8D6C: B9 DF 00  LDA $00DF,Y      alte Nummer aus der Tebelle merken
8D6F: 96 DF     STX $DF,Y        und durch die neue ersetzen
8D71: C5 50     CMP $50          ist die Kanalnummer gefunden ?
8D73: F0 07     BEQ $8D7C        ja, (Ende) ==>
8D75: 88        DEY              War die Kanalnummer nicht in der Tabelle,
8D76: 30 E1     BMI $8D59        wird diese neu initialisiert
8D78: AA        TAX              Kanalnummer nach x
8D79: 4C 6C 8D  JMP $8D6C        naechste Kanalnummer verschieben ==>

Einsprung von $8D73:

8D7C: 60        RTS
    Previous Page / Next Page