Kanal zum Schreiben holen und pruefen ($d107)
E: $52   : Sekundaeradresse
A: $50, x: Kanalnummer

Einsprung von $88AB, $8E60, $99B7, $9B0A, $A82E, $AEB9:

9042: A5 52     LDA $52          Sekundaeradresse holen
9044: C9 13     CMP #$13         >18 ?
9046: 90 02     BCC $904A
9048: 29 0F     AND #$0F         ja, auf 15 begrenzen

Einsprung von $9046:

904A: AA        TAX              entsprechende Kanalnummer aus
904B: B5 A8     LDA $A8,X        Sekundaeradressentabelle holen
904D: A8        TAY
904E: 0A        ASL
904F: 90 0A     BCC $905B        b7=1: Schreibkanal ? nein, ==>
9051: 30 0A     BMI $905D        b76=11: (ungueltig) ? ja, ==>

Einsprung von $905B:

9053: 98        TYA              Schreib- bzw. Schreib/Lesekanal
9054: 29 0F     AND #$0F         Kanalnummer isolieren
9056: 85 50     STA $50          und als aktuelle Kanalnummer merken
9058: AA        TAX
9059: 18        CLC              O.k. Flag
905A: 60        RTS

Einsprung von $904F:

905B: 30 F6     BMI $9053        b76=01: Schreib/Lesekanal? ja,==>

Einsprung von $9051:

905D: 38        SEC              Fehlerflag setzen
905E: 60        RTS

    Previous Page / Next Page