Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ORG $8800
- MAIN
- ADDA #-4,SP
- PEA VET_1
- PEA VET_2
- JSR PRO_SCA
- MOVE.L 8(SP),RES
- ADDA #12,SP
- STOP #$2000
- PRO_SCA
- LINK A6,#0
- MOVEM.L A0/A1/D0/D1/D2/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/D1/D2
- UNLK A6
- RTS
- *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
Add Comment
Please, Sign In to add comment