; multiply vectors

:start
ld 0 @512
ld 1 @513
ld 2 @514
ld 3 @515
ldr 0
ld 0 @516
ld 1 @517
ld 2 @518
ld 3 @519
ldr 1
mul 2 0 1  ; v0 * v1  -> v2
str 2
st 0 @640
st 1 @641
st 2 @642
st 3 @643
sys 4
jmp @start
.end
@512
1 2 3 4   ; v0
2 3 4 5   ; v1
.end
