ORG     $8800

PRO_SCA
    LINK        A6,#0
    MOVEM.L A0/A1/D0-D3,-(SP)
    CLR     D2
    CLR     D3

    MOVEA.L 12(A6),A0
    MOVEA.L 8(A6),A1
LOOP    MOVE.W  (A0)+,D0
    MOVE.W  (A1)+,D1
    MULS        D1,D0
    ADD     D0,D2
    ADDQ        #1,D3
    CMP     DIM,D3
    BEQ     FINE
    BRA     LOOP

FINE    MOVE.L  D2,16(A6)
    MOVEM.L (SP)+,A0/A1/D0-D3
    UNLK        A6
    RTS

MAIN
    ADDA        #-4,SP
    PEA         VET_1
    PEA     VET_2
    JSR     PRO_SCA
    MOVE.L  8(SP),RES
    ADDA        #12,SP
    STOP        #$2000


*AREA DATI
RES     DS.L    1
VET_1       DC.W    1,2,3,4,-6
VET_2       DC.W    0,5,-3,7,24
DIM     DC.W    5

    END     MAIN