DIN  EQU P1.0
CLK  EQU P1.1
LOAD EQU P1.2

org    0000H
LJMP   START

START:
    MOV R0,#0CH
    LCALL Send_Data
    MOV R0,#01H
    LCALL Send_Data
    SETB LOAD
    NOP
    NOP
    MOV R0,#0BH
    LCALL Send_Data
    MOV R0,#03H
    LCALL Send_Data
    SETB LOAD
    NOP
    NOP
    MOV R0,#0AH
    LCALL Send_Data
    MOV R0,#05H
    LCALL Send_Data
    SETB LOAD
    NOP
    NOP
    MOV R0,#09H
    LCALL Send_Data
    MOV R0,#00H
    LCALL Send_Data
    SETB LOAD
    NOP
    NOP
    MOV R3,#01H
RESTART:

    MOV R0,#01H
    LCALL Send_Data
    MOV R0,#70H
    LCALL Send_Data
    SETB LOAD
    NOP
    NOP
    LCALL Delay

    MOV R0,#02H
    LCALL Send_Data
    MOV R0,#6DH
    LCALL Send_Data
    SETB LOAD
    NOP
    NOP
    LCALL Delay

     
    MOV R0,#04H
    LCALL Send_Data
    MOV R0,#5BH
    LCALL Send_Data
    SETB LOAD
    NOP
    NOP
    LCALL Delay

    MOV R0,#03H
    LCALL Send_Data
    MOV R0,#5FH
    LCALL Send_Data
    SETB LOAD
    NOP
    NOP
    LCALL Delay
    LJMP RESTART


Send_Data:
    MOV R1,#08H
    MOV A,R0
    CLR LOAD
LP0:RLC A
    CLR CLK
    JNC LB0
    SETB DIN
    LJMP LP8
LB0:CLR  DIN
    NOP
LP8:SETB CLK
    DJNZ R1,LP0
    CLR CLK
    RET

Delay:
    MOV R3,#0FFH
LP7:MOV R2,#0FFH
LP6:NOP
    NOP
    NOP
    NOP
    nop
    nop
    nop
    DJNZ R2,LP6
    DJNZ R3,LP7
    RET
    END