code:

---

.binary		; new node in a4, used in .cmpnodes

		; get most left node to a2 and
		; most right node to d2

		move.l	(a7),a0
		move.l	oxO_list(a0),a2
		move.l	oxO_list+8(a0),d2

		; neue node links oder rechts aussen?

		move.l	a2,a5
		bsr	.cmpnodes
		bge	.linksaussen

		move.l	d2,a5
		bsr	.cmpnodes
		bgt	.schleife

		; rechtsaussen

		move.l	d2,a2
		bra	.add

.schleife	; folgt rechts auf links?

		cmp.l	(a2),d2
		beq	.add

		; wenn nur eine node zwischen liegt,
		; gehe nur eins vorwärts 

		move.l	a2,a5
		lsr.w	#1,d5
		move.w	d5,d0
		beq	.vorwaerts

		subq.w	#1,d0

.vorwaerts	move.l	(a5),a5
		dbf	d0,.vorwaerts

		; ist die neue node links oder rechts vom pivot?

		bsr	.cmpnodes
		bgt	.ist_links

		; ist rechts, ersetze linken rand durch pivot

		move.l	a5,a2
		bra	.schleife

.ist_links	; ersetze rechten rand durch pivot

		move.l	a5,d2
		bra	.schleife

.linksaussen	sub.l	a2,a2

.add		; einfügen nach node in a2

---

Zitat:

---

1. Du hast einen Anfang (erster Knoten) und ein Ende (letzter Knoten).
2. Du besorgst Dir den mittleren Knoten zwischen diesen beiden (Pivot)
3. Du vergleichst Deinen neuen Knoten mit dem Pivot
4. Ist der neue Knoten kleiner, ersetzt der Pivot Deinen Endknoten, ist er größer, ersetzt er Deinen Anfangsknoten. Gleichheit kann bei Dir nicht auftreten
5. Befinden sich zwischen Anfangs- und Endknoten noch andere Knoten, gehe zu Schritt 2.
6. Jetzt fügst Du den neuen Knoten zwischen A und E ein
fertig

---

code:

---

.cmploop	move.b  (a1)+,d1
		move.b  (a0)+,d0
		beq.s  .cmp
		cmp.b  d0,d1
		beq.s  .cmploop
.cmp		sub.b  d1,d0
.rts		rts

---

code:

---

add_sorted	; a0 list
		; a1 new node

		; a4 new node text (used in .cmpnodes)
		; d4 new node priority (used in .cmpnodes)

		; d5 number of nodes in list

		pushm	a0/a1

		; a2 is the node after which the new node is added,
		; if it remains 0 the new node is added at list head

		sub.l	a2,a2

.start		; get back pointer to list 

		move.l	(a7),a5

.half		lsr.w	#1,d5
		beq	.add_where
		bcc	.find_pivot

		addq.w	#1,d5

.find_pivot	move.w	d5,d0
		subq.w	#1,d0

.loop		; get first or next node

		move.l	(a5),a5
		dbf	d0,.loop

		bsr	.cmpnodes
		beq	.add
		bgt	.left

		; right (ble)

		move.l	a5,a2

		bra	.half

.left		move.l	a2,a5

		move.l	a5,d0 ; scratch to test for 0
		beq	.start

		bra	.half

.add_where	move.l	(a5),a5

		bsr	.cmpnodes
		bgt	.add	; before

		; after (ble)

		move.l	a5,a2

.add		popm	a0/a1
		jmp	_LVOoxAddMemberAfter(a6)

---

code:

---

.half		lsr.w	#1,d5
		beq	.add_where
		bcc	.find_pivot

		addq.w	#1,d5

.find_pivot

---

code:

---

.half		ext.l	d5

		divu.w	#2,d5

		tst.w	d5
		beq	.add_where

		move.l	d5,d0
		swap	d0
		tst.w	d0
		beq	.a

		addq.w	#1,d5
.a

---

code:

---

.binary_add	; a0 list
		; a1 new node
		; a2 noder after which to add

		; d4 new node priority
		; a4 new node text

		pushm	a0/a1	

		sub.l	a2,a2	; initially add at head

		; get number of rows, add at head if none

		move.w	oxLV_rowscount(a3),d5
		beq	.before

.start		; get back list pointer

		move.l	(a7),a5

		; get first node

		move.l	(a5),a5

.half		lsr.w	#1,d5
		beq	.add_where

		; find pivot, num is at least 1

		move.w	d5,d0
		subq.w	#1,d0

.findpivot	move.l	(a5),a5
		dbf	d0,.findpivot

		cmp.l	my_priority(a5),d4

		blt	.right
		bgt	.left

		move.l	my_text(a5),a0

		move.l	a4,a1
		bsr	.strcmp
		blt	.right
		bgt	.left

		; strings are equal here

		bra	.after

.right		move.l	a5,a2
		bra	.half

.left		move.l	a2,a5

		cmp.l	#0,a5
		beq	.start

		bra	.half

.add_where	; get node priority, higher means add before

		cmp.l	my_priority(a5),d4
		blt	.after
		bgt	.before

		move.l	my_text(a5),a0

		move.l	a4,a1
		bsr	.strcmp
		blt	.after
		bgt	.before

		; strings are equal here


.after		move.l	a5,a2

.before		popm	a0/a1
		jmp	_LVOoxAddMemberAfter(a6)


.strcmp		; a0 string1, a1, string2

		moveq  #0,d0
		moveq  #0,d1
.loop1		move.b  (a1)+,d1
		bclr	#5,d1	; case independent
		move.b  (a0)+,d0
		beq.s  .exit1
		bclr	#5,d0
		cmp.b  d0,d1
		beq.s  .loop1
.exit1		sub.l  d1,d0
		rts

---

Zitat:

---

Kannst du doch einfach berechnen
Bei linker Seite:
Neues Pivot = altes Pivot / 2
Bei rechter Seite:
Neues Pivot = Altes Pivot + ((Anzahl - Neues Pivot) / 2)

---