;點陣式LED實驗：
;實驗連線：P1.0------CIN    ;   P1.1-----SIN;CS0-----YC2


CLK		EQU	P1.0
DINA	EQU	P1.1

MIAN:   MOV SP,#60H
        CLR C   
        
SEND1:  MOV R0,#080H
        MOV DPTR,#CODEd1
SEND:   CLR A
        MOVC A,@A+DPTR
        push dph
        push dpl
        mov dptr,#0a000h
        MOVX @dptr,a
        MOV A,R0         
        ACALL sendto        
        pop dpl
        pop dph
        INC DPTR
        MOV A,R0
        RRC A
        MOV R0,A
        LCALL DELAY        
        JB ACC.0, SEND1
        SJMP SEND

DELAY:  MOV     R7,#01
DELAY0: MOV     R4,#40
DELAY1: MOV     R3,#28
        DJNZ    R3,$
        DJNZ    R4,DELAY1
        DJNZ    R7,DELAY0
        RET	
CODEd1: DB 03eh,063h,003h,07Eh,060h,060h,07fh,000H ;"5

sendto:
	PUSH	ACC
	CLR	CLK
SENDTIME:
	MOV	R3,#08H
	MOV	A,R0
	clr	c
SENDCY:

	RLC	A
	MOV	DINA,C
	SETB CLK
     CLR	CLK
	DJNZ	R3,SENDCY
	POP	ACC
	RET

	  end