inciarmo

RESoff EQU 14
DIMoff EQU 12
V1off EQU 08
V2off EQU 04
RIToff EQU 00

*main:
ORG $8000
INIZIO ADDA #-4,SP
MOVE.W DIM,-(SP)
MOVE.L #V1,-(SP)
MOVE.L #V2,-(SP)

JSR PRODSCAL
MOVE.L (SP)+,RES
FINE JMP FINE


*sottoprog:

PRODSCAL MOVEA.L RIToff(SP),A2
MOVEA.L V2off(SP),A1
MOVEA.L V1off(SP),A0
MOVE.W DIMoff(SP),D0

CLR.L D7

SOMMA MOVE.B (A0)+,D1
MOVE.B (A1)+,D2
MULT MULU D1,D2
ADD.L D2,D7
CTRL SUB #1,D0
BNE SOMMA
ESCI MOVE.L D7,RESoff(SP)
ADDA.L #RESoff,SP

JMP (A2)
*dati:

ORG $8100
V1 DC.B 0,1,3,2
V2 DC.B 3,2,2,1
DIM DC.W 4
RES DS.L 1

END INIZIO