Zahl der Bytes bis zum gesuchten Record berechnen ($ce2c)
(Recordnummer * Recordlaenge + Position im Record)

Einsprung von $8C89:

8CC1: 20 38 8D  JSR $8D38        Rechenregister 1 loeschen
8CC4: 85 62     STA $62          Recordnummer in Rechenregister 2 schreiben
8CC6: A6 50     LDX $50
8CC8: BD 49 02  LDA $0249,X      (aktuelle Recordnummer Lo)
8CCB: 85 60     STA $60
8CCD: BD 50 02  LDA $0250,X      (Hi)
8CD0: 85 61     STA $61
8CD2: D0 04     BNE $8CD8        Recordnummer = 0 ?
8CD4: A5 60     LDA $60
8CD6: F0 0B     BEQ $8CE3        ja, ==>

Einsprung von $8CD2:

8CD8: A5 60     LDA $60          Recordnummer -1 nehmen
8CDA: 38        SEC
8CDB: E9 01     SBC #$01
8CDD: 85 60     STA $60
8CDF: B0 02     BCS $8CE3
8CE1: C6 61     DEC $61

Einsprung von $8CD6, $8CDF:

8CE3: BD 5E 02  LDA $025E,X      Recordlaenge holen
    Previous Page / Next Page