<b>
START_IN : 
     MOV    A, #001H
CON_IN: 
     MOV    C, P0.0 
     RLC    A
     JNC    CON_IN 
</b>