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