@start:
subleq @count, @IN
@loop:
subleq @count, @n_one, @continue
@done:
subleq @OUT, @zero
subleq @count, @count, @start
@continue:
subleq @OUT, @n_one
subleq @zero, @zero, @loop
@zero: .data 0
@n_one: .data -1
@count: .data 0