led广告ok.asm

这是“led广告屏”程序

        ORG 0000H

        
        MOV R4,#08H
        MOV P2,#0A0H
        MOV R1,#00H
        MOV A,#00H
        MOVX @R1,A
DIP:    MOV 60H,#40H
RD_DISP:
        MOV R3,#80H
        MOV R2,#00H

RDISP1: MOV A,#00H
        MOVX @R1,A
        MOV A,R3
        ACALL SEND164
        MOV A,R2
        MOV DPTR,#DIS_CODE
        MOVC A,@A+DPTR
        MOVX @R1,A
        ACALL DELAYT

        INC R2
        MOV A,R3
        RR A
        MOV R3,A
        DJNZ R4,RDISP1
        MOV R4,#08H
        DJNZ 60H,RD_DISP
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DIP2:    MOV 60H,#40H
RD_DISP2:
        MOV R3,#80H
        MOV R2,#00H

RDISP12: MOV A,#00H
        MOVX @R1,A
        MOV A,R3
        ACALL SEND164
        MOV A,R2
        MOV DPTR,#DIS_CODE1
        MOVC A,@A+DPTR
        MOVX @R1,A
        ACALL DELAYT

        INC R2
        MOV A,R3
        RR A
        MOV R3,A
        DJNZ R4,RDISP12
        MOV R4,#08H
        DJNZ 60H,RD_DISP2
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DIP3:    MOV 60H,#40H
RD_DISP3:
        MOV R3,#80H
        MOV R2,#00H

RDISP13: MOV A,#00H
        MOVX @R1,A
        MOV A,R3
        ACALL SEND164
        MOV A,R2
        MOV DPTR,#DIS_CODE2
        MOVC A,@A+DPTR
        MOVX @R1,A
        ACALL DELAYT

        INC R2
        MOV A,R3
        RR A
        MOV R3,A
        DJNZ R4,RDISP13
        MOV R4,#08H
        DJNZ 60H,RD_DISP3
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DIP4:    MOV 60H,#40H
RD_DISP4:
        MOV R3,#80H
        MOV R2,#00H

RDISP14: MOV A,#00H
        MOVX @R1,A
        MOV A,R3
        ACALL SEND164
        MOV A,R2
        MOV DPTR,#DIS_CODE3
        MOVC A,@A+DPTR
        MOVX @R1,A
        ACALL DELAYT

        INC R2
        MOV A,R3
        RR A
        MOV R3,A
        DJNZ R4,RDISP14
        MOV R4,#08H
        DJNZ 60H,RD_DISP4
        
        LJMP DIP



SEND164:MOV PCON,#80H
        MOV TMOD,#20H
        MOV TH1,#98H
        CLR ET1
        SETB TR1
        MOV SCON,#00H
        CLR ES
   
        MOV A,R3
        MOV SBUF,A
    W1: JNB TI,W1
        CLR TI

        RET

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

DELAYT:MOV R7,#01H
DLY1: MOV R6,#0FFH
DLY2: DJNZ R6,DLY2
      DJNZ R7,DLY1
      RET

DIS_CODE: DB 10H,0FEH,92H,0FEH,92H,0FEH,11H,1FH
DIS_CODE1:DB 0FFH,0FFH,18H,18H,18H,18H,0FFH,0FFH
DIS_CODE2: DB 10H,0FEH,92H,0FEH,92H,0FEH,11H,1FH
DIS_CODE3: DB 3EH,04H,08H,0FFH,08H,04H,14H,08H