* Calcola il prodotto scalare di due vettori
	ORG	 $8000	          Start at location 8000 Hex
* Initialize
START	
	MOVE.L #A,A0
	MOVE.L #B,A1
	MOVE   #N,D0
	
	CLR	 D2
LOOP  
    MOVE	(A0)+,D1
	MULS	(A1)+,D1
	ADD	 D1,D2
	SUBQ   #1,D0	
	BNE     LOOP
	MOVE	 D2,C
	SIMHALT
	
N	EQU	 $000A
	ORG	 $80B0
A	DC	 1,1,1,1,1,1,1,1,1,1
	ORG	 $80D0
B	DC	 1,1,1,1,1,1,1,1,1,1
C	DS.L	 1

	END START

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