rrc a mov r2,a djnz r4,m1 jnb f0,m10 ret mov a,r2 cpl a addc a,#1 mov r2,a mov a,r3 cpl a addc a,#0 mov r3,a mov a,r2 mov @r1,a inc r1 mov a,r3 mov @r1,a exit: