0000	d0	--	setixh
0001	80	--	80
0002	d1	--	setixl
0003	01	--	01
0004	e0	--	ldda
0005	84	--	nota
0006	50	--	jpz	to end
0007	00	--	00
0008	28	--	28
0009	d9	--	ldib
000a	80	--	80
000b	92	--	andb
000c	50	--	jpz	to dec
000d	00	--	00
000e	17	--	17
000f	85	--	inca
0010	f0	--	stda
0011	d1	--	setixl
0012	00	--	00
0013	e1	--	lddb
0014	98	--	notb
0015	99	--	incb
0016	f4	--	stdb
0017	86	--	deca	dec
0018	50	--	jpz	to end
0019	00	--	00
001a	28	--	28
001b	d1	--	setixl
001c	01	--	01
001d	f0	--	stda
001e	d1	--	setixl
001f	00	--	00
0020	e0	--	ldda
0021	90	--	addb
0022	d1	--	setixl
0023	01	--	01
0024	e0	--	ldda
0025	60	--	jp	to dec
0026	00	--	00
0027	17	--	17
0028	d1	--	setixl	end
0029	02	--	02
002a	f4	--	stdb
8000	05
8001	06