* Si scriva un programma assembly che calcoli il prodotto degli elementi di valore dispari di un vettore di interi.
*
* Il calcolo deve essere effettuato attraverso un sottoprogramma PRODDISP, che riceve l'indirizzo del
* vettore ed il suo riempimento come parametro sullo stack e restituisce come parametro di uscita il valore PROD.
* 
* Si supponga di chiamare VETT l'etichetta relativa all'indirizzo di partenza del vettore.
* Il codice C++ del sottoprogramma sarà allora:
*
*	void PRODDISP(int VETT[], int RIEMP, int & PROD){
*   		PROD=1;
*   		int i=0;
*   		while(i<RIEMP){
*     		   if (VETT[i]%2!=0)
*     		       PROD=PROD*VETT[i];
*		   i++;
*   		}
*   	}
*
* Si provi il programma con il vettore [-1 5 6 -3 -7 4 2].

	ORG	$8000
MAIN	PEA	VETT
	MOVE.W RIEMP,-(SP)         
	PEA	PROD
	JSR	PRODDISP
	ADDA	#10,SP
	STOP	#$2000

	ORG	$8400
VETT	DC.W	-1,5,6,-3,-7,4,2
RIEMP DC.W	7
PROD	DS.W	1

OFF_VETT	EQU	14
OFF_RIEMP	EQU	12
OFF_PROD	EQU 	8

	ORG	$8600
PRODDISP	LINK	A6,#0
		MOVEM.L	A0-A1/D0-D2,-(SP)
		MOVEA.L	OFF_VETT(A6),A0	
		MOVEA.L	OFF_PROD(A6),A1
		MOVE.W	OFF_RIEMP(A6),D0
            	MOVE.L #1,D1
		SUBQ #1,D0
		BMI	FINE
CICLO		MOVE.W (A0),D2 
		BTST   #0,D2
		BEQ	INC
		MULS	(A0),D1
INC		ADDQ #2,A0
		DBRA D0,CICLO
FINE		MOVE.W	D1,(A1)
		MOVEM.L	(SP)+,A0-A1/D0-D3
		UNLK	A6
		RTS
	
	END	MAIN