banz end,*AR3-
		stm #0ah,AR3		;AR3 viiverekisteriksi
		LD AR4,A			;edellinen ulostulon arvo ladataan akkuun
		banz rise,*AR1		;AR1=1 => nousevaa
		b down				;AR1=0 => laskevaa

rise:
		add #3e8h,A			;kasvatetaan akun arvoa (32000/32=3e8h)
		stl A,DXR12
		stl A,AR4
		banz end,*AR2-		;kun 32 x nousevaa ulos siirrytään laskevaan osuuteen
		stm #1fh,AR2
		stm #0h,AR1			;siirrytään laskevaan osuuteen
		b end

down:
		sub #3e8h,A
		stl A,DXR12
		stl A,AR4
		banz end,*AR2-
		stm #1fh,AR2
		stm #1h,AR1

end:

		RSBX INTM
		nop
		nop
		ret
		nop
		nop