led灯.asm

LED灯

SCL                 BIT                  P2.5
SDA                 BIT                  P2.6
SC                  BIT                  P2.7
K1                  BIT                  P1.1
K2                  BIT                  P1.2
K3                  BIT                  P1.3
K4                  BIT                  P1.4
K5                  BIT                  P1.5
K6                  BIT                  P1.0
AX1                 EQU                  30H
AX2                 EQU                  31H
AX3                 EQU                  32H
AX4                 EQU                  33H
Q1                  EQU                  34H
Q2                  EQU                  35H
Q3                  EQU                  36H
Q4                  EQU                  37H
QA5                 EQU                  38H
QA6                 EQU                  39H
;///////////////////////////////////////////////////////////////
                    ORG                  0000H
                    SETB                 SCL
                    SETB                 SDA
                    CLR                  SC
                    MOV                  R0,#00H
                    MOV                  R1,#00H
                    MOV                  R5,#00H
                    MOV                  R6,#00H
                    MOV                  Q1,#00H
                    MOV                  Q2,#0AH
                    MOV                  QA5,#00H
                    MOV                  QA6,#00H
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
SSX:                JB                   K1,AAS
                    LCALL                SY
A1:                 JNB                  K1,A1
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
A2:                 JB                   K2,L2
                    LCALL                SY
C1:                 JNB                  K2,C1
                    MOV                  A,Q1
                    INC                  A
                    MOV                  Q1,A
                    CJNE                 A,#04H,A2
                    MOV                  Q1,#00H
                    AJMP                 A2
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
AAS:                JB                   K6,SSX
                    NOP
                    NOP
                    NOP
YYX:                JNB                  K6,YYX
                    MOV                  A,QA5
                    INC                  A
                    MOV                  QA5,A
                    CJNE                 A,#180,SSX
                    MOV                  QA5,#00H
                    MOV                  A,QA6
                    INC                  A
                    MOV                  QA6,A
                    CJNE                 A,#20,SSX
                    LCALL                AA
                    LCALL                CCX
                    JMP                  SSX
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
L2:                 MOV                  Q3,#00H
                    MOV                  A,Q1
                    CJNE                 A,#00H,Y1
                    MOV                  Q3,R0
                    LCALL                CCX
                    LCALL                SS
                    MOV                  R0,Q2
                    LCALL                CCX
                    LCALL                SS
                    MOV                  R0,Q3
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
                    JB                   K3,LLL
                    LCALL                SY
C2:                 JNB                  K3,C2
                    INC                  R0
                    CJNE                 R0,#0AH,L2
                    MOV                  R0,#00H
                    AJMP                 L2
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Y1:                 MOV                  Q3,#00H
                    MOV                  A,Q1
                    CJNE                 A,#01H,Y2
                    MOV                  Q3,R1
                    LCALL                CCX
                    LCALL                SS
                    MOV                  R1,Q2
                    LCALL                CCX
                    LCALL                SS
                    MOV                  R1,Q3
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
                    JB                   K3,LLL
                    LCALL                SY
C3:                 JNB                  K3,C3
                    INC                  R1
                    CJNE                 R1,#0AH,L2
                    MOV                  R1,#00H
L3:                 AJMP                 L2
SA:                 AJMP                 A2
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Y2:                 MOV                  Q3,#00H
                    MOV                  A,Q1
                    CJNE                 A,#02H,Y3
                    MOV                  Q3,R5
                    LCALL                CCX
                    LCALL                SS
                    MOV                  R5,Q2
                    LCALL                CCX
                    LCALL                SS
                    MOV                  R5,Q3
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
                    JB                   K3,LLL
                    LCALL                SY
C4:                 JNB                  K3,C4
                    INC                  R5
                    CJNE                 R5,#0AH,L2
                    MOV                  R5,#00H
L4:                 AJMP                 L2
LLL:                AJMP                 LL
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Y3:                 MOV                  Q3,#00H
                    MOV                  A,Q1
                    CJNE                 A,#03H,L4
                    MOV                  Q3,R6
                    LCALL                CCX
                    LCALL                SS
                    MOV                  R6,Q2
                    LCALL                CCX
                    LCALL                SS
                    MOV                  R6,Q3
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
                    JB                   K3,LLL
                    LCALL                SY
C5:                 JNB                  K3,C5
                    INC                  R6
                    CJNE                 R6,#0AH,L3
                    MOV                  R6,#00H
                    AJMP                 L4
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
LL:                 JB                   K4,SA
                    LCALL                SY
C6:                 JNB                  K4,C6
                    MOV                  Q1,#00H
                    AJMP                 SSX
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
AA:                 INC                  R0
                    CJNE                 R0,#0AH,CCX
                    MOV                  R0,#00H
                    INC                  R1
                    CJNE                 R1,#0AH,CCX
                    MOV                  R1,#00H
                    INC                  R5
                    CJNE                 R5,#0AH,CCX
                    MOV                  R5,#00H
                    INC                  R6
                    CJNE                 R6,#0AH,CCX
                    MOV                  R6,#00H
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
CCX:                MOV                  A,R1
                    SWAP                 A
                    MOV                  AX2,R0
                    ADD                  A,R0
                    MOV                  AX1,A
                    MOV                  R0,AX2
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
                    MOV                  A,R6
                    SWAP                 A
                    MOV                  AX4,R5
                    ADD                  A,R5
                    MOV                  AX3,A
                    MOV                  R5,AX4
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
                    MOV                  A,AX3
                    LCALL                CC
                    MOV                  A,AX1
                    LCALL                CC
                    LCALL                DDD
                    RET
;\\\\\\\\\\\\\\\\\/////////////////////////////////////////////////////
CC:                 MOV                  R7,#08h
WWW:                RLC                  A
                    MOV                  SDA,C
                    NOP
                    NOP
                    CLR                  SCL
                    NOP
                    NOP
                    SETB                 SCL
                    DJNZ                 R7,WWW
                    RET
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DDD:                SETB                SC
                    NOP
                    NOP
                    CLR                 SC
                    RET
;/////////////////////////////////////////////////////////////////
SS:                 MOV                 R4,#10
SS1:                MOV                 R3,#30
SS2:                MOV                 R2,#200
SS3:                DJNZ                R2,SS3
                    DJNZ                R3,SS2
                    DJNZ                R4,SS1
                    RET
;//////////////////////////////////////////////////////////////////
SY:                 MOV                 R4,10
XZ:                 NOP
                    NOP
                    NOP
                    DJNZ                R4,XZ
                    RET
                    END