.var
a 160
b 170
c 180
an 4
bn 6
cn 0
maska 4

.data 160
5 2 4 8

.data 170
7 9 3 2 5 7

.prg

mua a
aum 190
mua b
aum 191
mua c
aum 192

mua bn
cpl
add an
fua
and maska
jz minbn

mua an
shl #1
aum cn

minbn:
mua bn
shl #1
aum cn

petlja:
mua [190]
aum [192]
mua 190
add #1
mua 192
add #1
mua [191]
aum [192]
mua 191
add #1
aum 191
mua 192
add #1
aum 192
mua cn
add #-1
jz kraj
aum cn
mua #0
jz petlja

kraj:
halt