code:

---

.start		move.l	xuiFd_wrappedtext(a3),a5

		; d7 width of space 
		; d6 width of textfield

		tst.b	(a5)
		beq.b	.rts

.while_words	bsr	.get_word	; first of a line

		; SpaceLeft := LineWidth - Width(word)

		move.w	d6,d5
		sub.w	d0,d5

.while_misc	; while( ( word:=next() ) AND char<>$a AND Width(word)+SpaceWidth<SpaceLeft)

		tst.b	-1(a5)
		beq.b	.rts

		move.l	a5,a4
		bsr	.get_word

		cmp.b	#$a,-1(a4)
		beq.b	.while_words

		add.w	d7,d0
		sub.w	d0,d5
		bgt.b	.while_misc

		move.b	#$a,-1(a4)
		move.l	a4,a5
		bra.b	.while_words

.rts		rts

.get_word	; a5 *word, >a5 *after word+space

		move.l	a5,a0		; word pointer
		moveq	#0,d0		; word lenght in chars
.gw_loop	move.b	(a5)+,d1
		beq.b	.textlength
		cmp.b	#$a,d1
		beq.b	.textlength
		cmp.b	#" ",d1
		beq.b	.textlength
		addq	#1,d0
		bra.b	.gw_loop

.textlength	move.l	a2,a1
		jmp	_LVOTextLength(a6)

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]