WAP for 8051 to transfer letter 'A' serially continuously

START : MOV A, #'A' ; ASSIGN A WITH SERIAL DATA
; P1.1 IS USED
MOV R7, #08H ; COUNTER OF 8 AS ACCUMULATOR OF 8 BIT
BACK : RRC A ; ROTATE BITS THROUGH CY
MOV P1.1, C ; TRANSFER CONTENTS OF CARRY TO PORT PIN
DJNZ R7, BACK ;
SJMP START ;
END