done:
setb c
mov a,r6
mov unit,a
mov count1,a
xch a,count1
mov count1,a
xch a,count2
mov count2,a
mov a,count2
xch a,count3
mov count3,a
mov a,count3
xch a,count4
mov count4,a
exit:
ret