Dseg at 8
S: ds 2
Cseg at 0
Jmp start

start: clr a
Mov r0,#8
Mov r1,p1     //p2(B) - in Acc
Cikl:
Mov a,r1
Rrc a
jnc Nonadd
//Add SHigh <- a
Mov a,r2
Add a,p0      //p1(A) - in Acc
Mov r2,a
Mov a,r3
Addc a,#0
Mov r3,a
Nonadd:
//shift r3 -> r2
Mov a,r3
Rrc a
clr a
Mov r3,a
//shift r2
Addc a,#0
Rr a
Mov b,a
Mov a,r2
Rr a
Mov r4,a
Anl a,#7Fh
Add a,b
Mov r2,a
//shift r1
Mov a,r4
Anl a,#80h
Mov b,a
Mov a,r1
Rr a
Anl a,#7Fh
Add a,b
Mov r1,a
Djnz r0,cikl

Mov p2,r2
Mov p3,r1

Mov DPL,#S
Mov a,r2
Movx @dptr,a
Inc dptr
Mov a,r1
Movx @dptr,a 


end