087	1	0000		
500	1	0007   		-- mov a,00
7d9	1	0008   		-- mov c,a
509	1	0009   		-- mov a,09
7e1	1	000a   		-- mov d,a
7c8	1	000b		-- mov a,xin
4f9	1	000c		-- store a
6a4	1	000d		-- inc d
508	1	000e		-- mova,08
4f9	1	000f		-- store a
6a4	1	0010		-- inc d	
7c8	1	0011		-- mov a,xin 
4f9	1	0012		-- store a
6ff	1	0013		-- inc d
504	1	0014		-- mov a,04
7d1	1	0015		-- mov b,a
48f	1	0016		-- load a
67a	1	0017		-- cmp b
184	1	0018  		-- jz
5FF	1	0019  		-- mov a,FF
7C1	1	001a  		-- mov xout,a
000	1	001b  		-- halt
6E4	1	001c  		-- dec d
48F	1	001d  		-- load a
7D1	1	001e            -- mov b,a
6E4	1	001f  		-- dec d
48F	1	0020  		-- load a
67A	1	0021  		-- cmp b
184	1	0022  		-- jz
5FF	1	0023  		-- mov a,ff
7C1	1	0024  		-- mov xout,a
000	1	0025  		-- halt
500	1	0026  		-- mov a,00
7C1	1	0027  		-- mov xout,a
500	1	0028		-- mov a,00
7d9	1	0029		-- mov c,a
540 	1 	002a		-- mov a,40
7e1	1	002b		-- mov d,a
200	1	002c		-- call [cd]
000	1	002d		-- halt
# subroutine check up
279	1	0040		-- push a
503	1	0041		-- mov a,03
27a	1	0042		-- push b
2df	1	0043		-- pop b
2d7	1	0044		-- pop a
300	1	0045		-- ret
# program to swap 2 nos. without using a third
508     1       0050		-- mov a,08
7d1     1	0051		-- mov b,a
51f	1	0052		-- mov a,1f
612	1	0053		-- add b,b
64a	1	0054		-- sub a,b
652	1	0055		-- sub b,b
000	1	0056		-- hlt