    logischen Folgesektor holen (bei der 1571: $886c)

    Einsprung von $BAEE, $BBED:

    C07A: A5 75     LDA $75          Anzahl Sektoren pro Spur
    C07C: 38        SEC
    C07D: E9 01     SBC #$01         -1
    C07F: 85 3D     STA $3D          = letzte Sektornummer
    C081: AD 04 02  LDA $0204        aktuellen Sektor holen
    C084: C5 3D     CMP $3D          ist der letzte Sektor des Tracks erreicht ?
    C086: F0 06     BEQ $C08E        ja, ==>
    C088: 18        CLC              Sektornummer erhoehen
    C089: 69 01     ADC #$01
    C08B: 4C 93 C0  JMP $C093

    Einsprung von $C086:

    C08E: EE 03 02  INC $0203        Tracknummer erhoehen
    C091: A9 00     LDA #$00         Sektornummer auf 0 setzen

    Einsprung von $C08B:

    C093: 8D 04 02  STA $0204
    C096: 60        RTS

        Previous Page / Next Page