Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;Eseguito da: Mariano Aponte
- ;A.A.: 2019/2020
- X DC.W 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
- Y DC.W 2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40
- J DC.W 5
- SUM DS.W 1
- START *************************************************************
- LEA.L X,A0 ;Carico l'indirizzo base di X in A0
- LEA.L Y,A1 ;Carico l'indirizzo base di Y in A1
- MOVE.W J,D0 ;Inizializzo l'indice J in D0
- MULU #2,D0 ;Converto l'indice
- MOVE.W 0(A0,D0),D2 ;Sposto l'elemento di X al passo J in D2
- MULU 0(A1,D0),D2 ;Moltiplico l'elemento al passo j di Y a D2
- MOVE.W D2,D3 ;D3 registro che contiene la somma
- FOR ADD.W #2,D0 ;Incremento l'indice
- MOVE.W 0(A0,D0),D2 ;Sposto l'elemento al passo j di X in D2
- MULU 0(A1,D0),D2 ;Moltiplico l'elemento al passo j di Y a D2
- ADD.W D2,D3 ;Aggiungo D2 a D3
- CMP.W #38,D0 ;Controllo se l'indice J ha raggiunto il 19esimo elemento e...
- BNE FOR ;...continuo a ciclare se J<38.
- MOVE.W D3,SUM ;Sposto il contenuto di D3 nella variabile SUM
- END START
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement