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