    Position des naechsten Records berechnen ($e304)
    A: a: Position des naechsten Records

    Einsprung von $9F87, $A2A4, $A2AF:

    A2BC: A6 50     LDX $50
    A2BE: BD 57 02  LDA $0257,X      'Zeiger auf naechsten Record' =0 ?
    A2C1: 38        SEC
    A2C2: F0 0E     BEQ $A2D2        ja, (Zeiger auf 2 setzen) ==>
    A2C4: 18        CLC
    A2C5: 7D 5E 02  ADC $025E,X      Recordlaenge zum Zeiger addieren
    A2C8: 90 0B     BCC $A2D5        Record passt in den Block, ==>
    A2CA: D0 06     BNE $A2D2        Record steht in zwei Bloecken, ==>
    A2CC: A9 02     LDA #$02         Record passt genau in den Block
    A2CE: 2C BD DB  BIT $DBBD        z-Flag setzen
    A2D1: 60        RTS

    Einsprung von $A2C2, $A2CA:

    A2D2: 69 01     ADC #$01         Blockverkettung ueberspringen
    A2D4: 38        SEC              c=1: Zeiger steht im neuen Block

    Einsprung von $A2C8:

    A2D5: 60        RTS

        Previous Page / Next Page