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