img364

mit: loop:

1 oonbodv:

loco	0
stod	i
lodd	X
stod	rem
loco	0
stod	z	/z	= 0
lodd	rem
subd	y
jpos	loopbody	1	(rem
jump	end	l	(rem
1 oco	1

-    y) >= O so we loop again

-    y) < 0, so we’re finished