Untitled

*
*Programma per il calcolo della somma degli elementi di un vettore
*la somma viene effettuata mediante un sottoprogramma 
*

	ORG $8000
MAIN	
	MOVE.L	#V,A0	; carica l'indirizzo del vettore V in A0
	MOVE.B	dim,D0	; carica dim in $t1
		
	CLR	D1	;metto 0 in D1 che sarà il contatore degli elementi
	CLR	D2	;metto 0 in D2 che sarà la somma
ciclo
	MOVE.B	(A0)+,D3	;carica l'elemento i-esimo di V in D3
	ADD	D3,D2			;aggiunge l'elemento i-esimo D3 alla somma parziale D2 
	ADDI	#1,D1		;aggiunge 1 al contatore
	CMP	D1,D0			;confronta il contatore con dim per vedere se ha scorso tutto l'array
						
	BNE	ciclo			;se D0-D1 diverso da zero salta a ciclo
	
	*scrittura del risultato in RIS
	move	D2,RIS		;sposta il risultato da D2 a RIS
			
	
	ORG $8100
V	DC.B	5,0,1,3
dim	DC.B	4
RIS	DS.W	1
	END MAIN