Advertisement
Guest User

Es 11-2 Lezione 9

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