@OrkenWhite:
Egy hónap alatt megdupláztam a hozzászólásaim számát.

unsigned long int div10(unsigned long int n)
{
	n >>= 1;
	n += (n >> 1) + 2;
	n += n >> 4;
	n += n >> 8;
	n += n >> 16;
	return n >> 3;
}

lsrw .macro
		lsr \1
		ror \1+1
.endm

lsrw4 .macro
	#lsrw \1
	#lsrw \1
	#lsrw \1
	#lsrw \1
.endm

adcw .macro
		lda \1
		clc
		adc \2
		sta \1
		lda \1+1
		adc \2+1
		sta \1+1
.endm

movw .macro
		lda \1
		sta \2
		lda \1+1
		sta \2+1
.endm

div10b		lsr
		sta $02
		lsr
		clc
		adc $02
		clc
		adc #$02
		; n = (n >> 2) + (n >> 1) + 2;
		sta $02
		lsr
		lsr
		lsr
		lsr
		clc
		adc $02
		; n += n >> 4;
		lsr
		lsr
		lsr
		rts
		; return n >> 3;

div10w		#lsrw $02
		#movw $02 $04
		#lsrw $02
		#adcw $02 $04
		lda $02
		clc
		adc #$02
		sta $02
		lda $03
		adc #$00
		sta $03
		; n = (n >> 2) + (n >> 1) + 2;
		#movw $02 $04
		#lsrw4 $02
		#adcw $02 $04
		; n += n >> 4;
		#movw $02 $04
		#lsrw4 $02
		#lsrw4 $02
		#adcw $02 $04
		; n += n >> 8;
		#lsrw $02
		#lsrw $02
		#lsrw $02
		rts
		; return n >> 3;