LED点阵左移显示-单片机示范程序

;port 3.0~3.6 connect to column
;port 1.0~1.4 connect to row
;delay=0.2s

;==========
;=  Main  =
;==========
        .ORG    0000H
START:  MOV     DPTR, #DATA
        MOV     R3, #OK-DATA-4
LOOP:   MOV     R2, #20
SCAN:   ACALL   SCAN1
        DJNZ    R2, SCAN
        INC     DPTR
        DJNZ    R3, LOOP
        MOV     DPTR, #LOGO
NEXT:   ACALL   SCAN1
        AJMP    NEXT
;==========
;=  SCAN  =        
;==========
SCAN1:  MOV     R1, #00H
        MOV     R5, #11111110B
        MOV     R4, #05
LOOP1:  MOV     A, R1
        MOVC    A, @A+DPTR
        MOV     P3, A
        MOV     P1, R5
        MOV     R6, #5
DL1:    MOV     R7, #200
DL2:    DJNZ    R7, DL2
        DJNZ    R6, DL1
        ORL     P1, #11111111B
        MOV     A, R5
        RL      A
        MOV     R5, A
        INC     R1
        DJNZ    R4, LOOP1
        RET
;==========
;=  DATA  =
;==========
;       <% 0=OFF ; 1=ON %>
DATA:
        .DB     00H
        .DB     00H
        .DB     00H
        .DB     00H
        .DB     00H
        .DB     01000010B       ;2
        .DB     01100001B
        .DB     01010001B
        .DB     01001001B
        .DB     01000110B
        .DB     00H
        .DB     00H
        .DB     00H
        .DB     00H
        .DB     00H
        .DB     00111100B       ;6
        .DB     01001010B
        .DB     01001001B
        .DB     01001001B
        .DB     00110000B
        .DB     00H
        .DB     00H
        .DB     00H
        .DB     00H
OK:     .DB     00H        
LOGO:   .DB     00100110B       ;S
        .DB     01001001B
        .DB     01001001B
        .DB     01001001B
        .DB     00110010B
        .END