mov  dptr,#PINSA 
mov  r0,#10000000b ; temporal register with terminate bit 
loop: 
movx a,@dptr 
rrc  a 
mov  a,r0 
rrc  a 
mov  r0,a 
inc  dptr ; select pin PINSB, PINSC etc... 
jnc  loop 
mov  dptr,#OUTB 
movx @dptr,a