Mov R5,#8
HERE: Mov C,P3.0 ;bring in bit on P3.0
      RRC A      ;rotate right through carry 
      nop
      nop       
      DJNZ R5, HERE
      Mov R3,A  ; put byte in R3