LD     equ   P1.0
DAT    equ   P1.1
CLK    equ   P1.2

       setb  CLK
       clr   LD
       setb  LD

       mov   r7, #8
Next:
       rr    a
       mov   c, DAT
       mov   ACC.7, c
       clr   CLK
       setb  CLK
       djnz  r7, Next

       ljmp  $
       end