    letzte existierende Gruppe ermitteln

    Einsprung von $A161:

    A5A9: A9 5A     LDA #$5A         90 (groesste moegliche Gruppennummer bei den
                                    verwendeten 24-Bit Rechnungen)
    A5AB: 8D 00 01  STA $0100        als gesuchte Gruppe merken
    A5AE: 20 C0 A5  JSR $A5C0        Gruppe anwaehlen
    A5B1: D0 01     BNE $A5B4        Gruppe existiert nicht, ==>
    A5B3: 60        RTS

    Einsprung von $A5B1, $A5BD:

    A5B4: CE 00 01  DEC $0100        Gruppennummer -1
    A5B7: AD 00 01  LDA $0100
    A5BA: 20 D2 A5  JSR $A5D2        Gruppe anwaehlen
    A5BD: D0 F5     BNE $A5B4        nicht vorhanden, ==>
    A5BF: 60        RTS

        Previous Page / Next Page