Dseg at 8 
	Xseg  at 0 
    Yy: ds 3
	Cseg at 0 
		
	Jmp start 
    Y: db "590"

	start:  clr a
	Mov DPL,#y  
	clr a
	movc a,@a + dptr
	Anl a,#0x0f
	jz Mark1
	Mov r0,a

	Cikl1:
	clr a
	Add a,r3
	Add a, #100
	Mov b,a
	Anl a,#0x0f
	Mov r3,a
	Mov a,b
	Anl a,#0xf0
	Swap a
	Add a,r2
	Mov b,a
	Anl a,#0x0f
	Mov r2,a
	Mov a,b
	Anl a,#0xf0
	Swap a
	Add a,r1
	Mov r1,a
	Djnz r0,cikl1

	Mark1:
	clr a
	Inc dptr
	movc a,@a + dptr
	Anl a,#0x0f
	jz Mark2
	Mov r0,a


	Cikl2: 
	clr a           
	Add a,r3
	Add a, #10
	Mov b,a
	Anl a,#0x0f
	Mov r3,a
	Mov a,b
	Anl a,#0xf0
	Swap a
	Add a,r2
	Mov b,a
	Anl a,#0x0f
	Mov r2,a
	Mov a,b
	Anl a,#0xf0
	Swap a
	Add a,r1
	Mov r1,a
	Djnz r0,cikl2

	Mark2:
	clr a
	Inc dptr
	movc a,@a + dptr
	Anl a,#0x0f
	jz Mark3
	Mov r0,a

	Cikl3:
	clr a
	Add a,r3
	Add a, #1
	Mov b,a
	Anl a,#0x0f
	Mov r3,a
	Mov a,b
	Anl a,#0xf0
	Swap a
	Add a,r2
	Mov b,a
	Anl a,#0x0f
	Mov r2,a
	Mov a,b
	Anl a,#0xf0
	Swap a
	Add a,r1
	Mov r1,a
	Djnz r0,cikl3

	Mark3:
	Mov DPL,#yy
	Mov a,r1
	movx @dptr,a
	Inc dptr
	Mov a,r2
	movx @dptr,a
	Inc dptr
	movx @dptr,a

	end