AddNumber:
  mov  r0,#Num1
  mov  r1,#Num2
  mov  r2,#NumLen
  clr  c
AddNumber_1:
  mov  a,@r0
  addc a,@r1
  mov  @r1,a
  inc  r0
  inc  r1
  djnz r2,AddNumber_1
  ret