    Gruppe anwaehlen
    E: a: gewuenschte Gruppennummer

    Einsprung von $9EDB, $A5AE:

    A5C0: A6 50     LDX $50
    A5C2: DD 02 01  CMP $0102,X      Ist richtige Gruppe bereits gewaehlt ?
    A5C5: D0 01     BNE $A5C8        nein, ==>
    A5C7: 60        RTS

    Einsprung von $A5C5:

    A5C8: 48        PHA              Gruppennummer merken
    A5C9: 20 74 A5  JSR $A574        Super-Side-Sektor laden

    Einsprung von $A519:

    A5CC: A9 03     LDA #$03         Zeiger auf Tabelle mit T&S der
    A5CE: 20 15 9E  JSR $9E15        Gruppenanfaenge setzen
    A5D1: 68        PLA

    Einsprung von $A5BA:

    A5D2: AA        TAX              Gruppennummer nach x
    A5D3: 0A        ASL              (2-Byte Tabelle)
    A5D4: A8        TAY
    A5D5: B1 64     LDA ($64),Y      Eintrag vorhanden (Track>0) ?
    A5D7: D0 03     BNE $A5DC        ja, ==>
    A5D9: 09 FF     ORA #$FF         Fehler-Ende
    A5DB: 60        RTS

    Einsprung von $A5D7:

    A5DC: 85 4D     STA $4D          T&S des 1. Side-Sektors als aktuelle T&S
    A5DE: C8        INY              merken
    A5DF: B1 64     LDA ($64),Y
    A5E1: 85 4E     STA $4E
    A5E3: 8A        TXA              Gruppennummer merken
    A5E4: 48        PHA
    A5E5: A9 FF     LDA #$FF
    A5E7: A6 50     LDX $50          Flag: 'Kein Side-Sektor geladen' setzen
    A5E9: 9D 02 01  STA $0102,X
    A5EC: BD 65 02  LDA $0265,X      Puffer fuer Side-Sektor holen
    A5EF: 85 6C     STA $6C
    A5F1: 20 88 95  JSR $9588        T&S an DC uebergeben
    A5F4: A9 80     LDA #$80
    A5F6: 20 E4 94  JSR $94E4        1. Side-Sektor der Gruppe lesen
    A5F9: A6 50     LDX $50
    A5FB: 68        PLA
    A5FC: 9D 02 01  STA $0102,X      aktuelle Gruppennummer merken
    A5FF: A9 00     LDA #$00         O.k. Ende
    A601: 60        RTS

        Previous Page / Next Page