ld m8002
set s0
stl s0
ld x0
set s20
stl s20
out t1 k80
ld x0
out y1
ld t1
set s21
stl s21
out t2 k60
ldi t3
out t4 k10
ld t4
out t3 k10
and x0
out y1
ld t
set s22
stl s22
out y2
out t5 k20
ld t5
set s23
stl s23
out y3
out t6 k20
out t7 k100]
ldi t5
and x5
out y2
ld t7
set s0
ret
end