    Groesste/kleinste Sektornummer suchen (bei der 1571: $8961)

    kleinste Sektornummer suchen

    Einsprung von $BE79:

    C097: A4 92     LDY $92
    C099: 88        DEY
    C09A: A9 FF     LDA #$FF         groesstmoegliche Sektornummer

    Einsprung von $C0A5:

    C09C: D9 0B 02  CMP $020B,Y      ist Sektornummer in der Tabelle kleiner ?
    C09F: 90 03     BCC $C0A4        nein, ==>
    C0A1: B9 0B 02  LDA $020B,Y      ja, Nummer merken

    Einsprung von $C09F:

    C0A4: 88        DEY
    C0A5: 10 F5     BPL $C09C        alle Sektornummern vergleichen, ==>
    C0A7: 8D EF 01  STA $01EF        kleinste Nummer merken

    groesste Sektornummer suchen

    C0AA: A4 92     LDY $92          Anzahl der Sektoren
    C0AC: 88        DEY
    C0AD: A9 00     LDA #$00         kleinstmoegliche Sektornummer

    Einsprung von $C0B8:

    C0AF: D9 0B 02  CMP $020B,Y      Sektornummer groesser ?
    C0B2: B0 03     BCS $C0B7        nein, ==>
    C0B4: B9 0B 02  LDA $020B,Y      ja, Nummer merken

    Einsprung von $C0B2:

    C0B7: 88        DEY
    C0B8: 10 F5     BPL $C0AF        alle Sektornummern vergleichen
    C0BA: 8D F0 01  STA $01F0        groesste Nummer merken
    C0BD: 60        RTS

    Controller-Programm 1

        Previous Page / Next Page