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