MOV  R7,#84       ;84 pixels to be shifted (80...87 actu.)

Pix_Loop:   MOV  R6,#11       ;11 pixel bytes to be shifted
            MOV  R0,#127      ;pixel bytes reside in "117"..."127"
 
Byt_Loop:   MOV  A,@R0        ;11 pix. bytes get shifted by 1 bit to the left
            RLC  A
            MOV  @R0,A
            DEC  R0

            DJNZ R6,Byt_Loop

            MOV  DATA,C       ;"Dropped out" bit gets shifted into the 4094
            SETB CLOCK
            CLR  COCK

            DJNZ R7,Pix_Loop  ;repeat until the whole pixel row is shifted
                              ;into the 4094