Use the RRC or RLC instructions, count the number of times through your loop and act on the count value as you loop around.
MOV ctr,#0
MOV A,yourdata
RRC A
MOV yourbit,C


Steve