ORG $8100

v   		DC.B 1,4,5,6,4
somma       DS.B 1



START	LEA     v,(A0) 	
		CLR.B   D0
		MOVE.B  #5, D1
LOOP   ADD.B   (A0)+,D0
		SUB.B   #1,D1
		BNE     LOOP
		MOVE.B  D0,somma
		STOP	#$00
		END	START














*~Font name~Courier New~
*~Font size~18~
*~Tab type~1~
*~Tab size~4~