    Freien Kanal suchen ($d37f)

    Einsprung von $9161:

    92DB: A0 00     LDY #$00         Byte ($70) nach einem gesetzten Bit
    92DD: A9 01     LDA #$01         durchsuchen

    Einsprung von $92E5:

    92DF: 24 70     BIT $70          (der entsprechende Kanal ist frei)
    92E1: D0 09     BNE $92EC        Kanal gefunden, ==>
    92E3: C8        INY              Kanalnummer +1
    92E4: 0A        ASL              naechstes Bit probieren
    92E5: D0 F8     BNE $92DF        noch ein Bit zu ueberpruefen, ==>
    92E7: A9 70     LDA #$70         70, NO CHANNEL
    92E9: 4C 7C 80  JMP $807C

    Einsprung von $92E1:

    92EC: 49 FF     EOR #$FF         entsprechendes Bit loeschen
    92EE: 25 70     AND   70       UND $DADURCH  den Kanal belegen
    92F0: 85 70     STA $70
    92F2: 98        TYA              Kanalnummer nach A
    92F3: 60        RTS

        Previous Page / Next Page