@loop:
subleq @tmp, @IN
subleq @tmp2, @tmp, @done
subleq @count, @one
@loop_reset:
subleq @tmp2, @tmp2
subleq @tmp, @tmp, @loop
@done:
subleq @OUT, @count
subleq @count, @count, @loop_reset
@tmp: .data 0
@tmp2: .data 0
@count: .data 0
@one: .data 1