:AddDWAdr2Adr
;	r0	=	ptr_SUMME
;	r1	=	ptr_SUMAND1
;	r3	=	ptr_SUMAND2

	ldx	#4
	ldy	#0
	clc
::loop
	lda	(r3),y
	adc	(r1),y
	sta	(r0),y
	iny
	dex
	bne	:loop
	rts

:AddDWVal2Adr
;	r0	=	ptr_SUMME
;	r1	=	ptr_SUMAND1
;	r3/r4	=	SUMAND2

	ldx	#4
	ldy	#0
	clc
::loop
	lda	r3,y
	adc	(r1),y
	sta	(r0),y
	iny
	dex
	bne	:loop
	rts

:AddDWVal2Val
;	r0	=	ptr_SUMME
;	r1/r2	=	SUMAND1
;	r3/r4	=	SUMAND2

	ldx	#4
	ldy	#0
	clc
::loop
	lda	r3,y
	adc	r1,y
	sta	(r0),y
	iny
	dex
	bne	:loop
	rts