    Gruppe anwaehlen, ggf. Side-Sektor laden ($def8)
    A: v: 0: gesuchter Record existiert; 1: Record nicht vorhanden

    Einsprung von $A1F0, $A426:

    9E32: 20 D3 9E  JSR $9ED3        Gruppe waehlen, Side-Sektor pruefen
    9E35: 30 0F     BMI $9E46        Record existiert nicht ?, ==>
    9E37: 50 14     BVC $9E4D        Record O.k. ?, ==>
    9E39: A6 50     LDX $50          Side-Sektor-Puffer holen
    9E3B: BD 65 02  LDA $0265,X
    9E3E: 20 56 9E  JSR $9E56        Side-Sektor laden
    9E41: 20 D3 9E  JSR $9ED3        existiert Record ?
    9E44: 10 07     BPL $9E4D        ja, ==>

    Einsprung von $9E35:

    9E46: 20 5C A1  JSR $A15C        Zeiger auf letzten Datenblock setzen
    9E49: 2C BF DB  BIT $DBBF        v=1:
    9E4C: 60        RTS              Record existiert nicht

    Einsprung von $9E37, $9E44:

    9E4D: A5 6A     LDA $6A          Side-Sektor-Pufferzeiger auf
    9E4F: 20 23 9E  JSR $9E23        Position der T&S im Side-Sektor setzen
    9E52: 2C BE DB  BIT $DBBE        n=0, v=0: O.k.
    9E55: 60        RTS

        Previous Page / Next Page