;本程序用于新数码灯灯控制,
;黑色----移位
;绿色----锁存
;黄色----数据
;红色----驶能

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
 ORG  0000h
 EN   EQU P1.0   ;  R
 DG   EQU P1.1   ;  Y  DIN
 RC   EQU P1.2   ;  G  LIN
 SC   EQU P1.3   ;  BL CLK
;//////////////
 AJMP  MAIN
;ORG   0003H  ;/外部中断/INT0入口地址
;ORG   000Bh  ;/定时器中断T0入口地址
;ORG   0013H  ;/外部中断/INT1入口地址
;ORG   001BH  ;/定时器中断T1入口地址
;ORG   0023H  ;/串行口中断地址
;DATA TABLE //////////////////////////////////////////////////////////

;SUBPROGRAM///////////////////////////////////////////////////////////
SCK:
   CLR    SC
   SETB   SC
   RET
RCK:               ;锁存
   CLR    RC;
   SETB   RC;
   MOV    A,R1
   JB     ACC.0,HSPEED   ;DALAY1
   CALL   DELAY
   RET
HSPEED:   ; 快速
   MOV    PSW,#00H
   CALL   DELAY1
   RET   ;锁存返回
;THE COLOR CHOOSE////////////////////////////////////////////////////////
COLOR:
        MOV   A, R5        ;R5的数值决定颜色效果, 跳转R2为PC偏移值，必须为2的倍数。
        MOV   DPTR,#TAB
        JMP  @A+DPTR
TAB:    LJMP COLOR1        ;0
        LJMP COLOR2        ;3
        LJMP COLOR3        ;6
        LJMP COLOR4        ;9
        LJMP COLOR5        ;C
        LJMP COLOR6        ;FH
        LJMP COLOR7        ;12H
;///////////////////////////////////////////
COLOR1:                   ;R
   MOV     A,R0;
   MOV     R0,A;
   SETB    DG;
   CALL    SCK
   CLR     DG;
   CALL    SCK
   CALL    SCK
   DJNZ    R0, COLOR1
   RET
COLOR2:                   ;G
   MOV     A,R0;
   MOV     R0,A;
   CLR      DG;
   CALL     SCK
   SETB     DG;
   CALL     SCK
   CLR      DG;
   CALL     SCK
   DJNZ     R0,COLOR2
   RET
COLOR3:                   ;B
   MOV     A,R0;
   MOV     R0,A;
   CLR      DG;
   CALL     SCK;
   CLR      DG
   CALL     SCK;
   SETB     DG;
   CALL     SCK;
   DJNZ     R0,COLOR3
   RET
COLOR4:                      ;RG
   MOV     A,R0;
   MOV     R0,A;
   SETB     DG;
   CALL     SCK
   CALL     SCK
   CLR      DG;
   CALL     SCK
   DJNZ    R0,COLOR4
   RET
COLOR5:                       ;BG
   MOV     A,R0;
   MOV     R0,A;
   CLR     DG;
   CALL    SCK
   SETB    DG;
   CALL    SCK
   CALL    SCK
   DJNZ    R0,COLOR5
   RET
COLOR6:                        ;RB
   MOV     A,R0;
   MOV     R0,A;
   SETB    DG;
   CALL    SCK;
   CLR     DG;
   CALL    SCK;
   SETB    DG;
   CALL    SCK;
   DJNZ   R0,COLOR6
   RET
COLOR7:                         ;RGB
   MOV     A,R0;
   MOV     R0,A;
   SETB    DG;
   CALL    SCK;
   CALL    SCK;
   CALL    SCK;
   DJNZ    R0,COLOR7
   RET

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
;/////////////////////////////////
BLACK:
        MOV   A,#00H          ;R5的数值决定颜色效果
        MOV   DPTR,#TAB1
        JMP   @A+DPTR
TAB1:   LJMP COLOR8          ;0H
COLOR8:
        CLR      DG;
        CALL     SCK;
        CALL     SCK;
        CALL     SCK;
        RET
;/////////////////////////////////////////////////
DELAY:
     MOV   PSW,#018H             ; 应用第2组寄存器
     MOV   A,#060H;
     MOV   R2,A;
LOOP:
     MOV   R0,A;
LOOP1:
     MOV   R1,A
LOOP2:
     DJNZ  R1,LOOP2;   /*减一不为零循环*/
     DJNZ  R0,LOOP1
     DJNZ  R2,LOOP;
     MOV   PSW,#000H
     RET ;
DELAY1:
   MOV   PSW,#018H             ; 应用第2组寄存器
     MOV   A,#033H;
     MOV   R2,A;
LOOPA:
     MOV   R0,A;
LOOP1A:
     MOV   R1,A
LOOP2A:
           DJNZ  R1,LOOP2A;   /*减一不为零循环*/
     DJNZ  R0,LOOP1A;
     DJNZ  R2,LOOPA;
     MOV   PSW,#000H
     RET ;
DELAY2:   ;/*USE TO SHENYANG*/
     MOV   PSW,#018H             ; 应用第2组寄存器
     MOV   A,#090H;
     MOV   R2,A;
LOOPA2:
     MOV   R0,A;
LOOP1A2:
     MOV   R1,A
LOOP2A2:
     DJNZ  R1,LOOP2A2;   /*减一不为零循环*/
     DJNZ  R0,LOOP1A2;
     DJNZ  R2,LOOPA2
     MOV   PSW,#000H
     RET

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
;SENCE//////////////////////////////////////////////////////
scene_1:   ;整体七色变化
   MOV   R0 ,#160D            ;每一次只传送R0个TRUE位数据。
   CALL  COLOR1               ;COLOR
   MOV   R1 ,#00H             ;HIGHT SPEED
   CALL  RCK
   ;/////////////////
   MOV   R0 ,#160D            ;每一次只传送R0个TRUE位数据。
   CALL  COLOR2               ;COLOR
   MOV   R1 ,#00H             ;HIGHT SPEED
   CALL  RCK
   ;/////////////////
   MOV   R0 ,#160D            ;每一次只传送R0个TRUE位数据。
   CALL  COLOR3               ;COLOR
   MOV   R1 ,#00H             ;HIGHT SPEED
   CALL  RCK
   ;/////////////////
   MOV   R0 ,#160D            ;每一次只传送R0个TRUE位数据。
   CALL  COLOR4               ;COLOR
   MOV   R1 ,#00H             ;HIGHT SPEED
   CALL  RCK
   ;/////////////////
   MOV   R0 ,#160D            ;每一次只传送R0个TRUE位数据。
   CALL  COLOR5               ;COLOR
   MOV   R1 ,#00H             ;HIGHT SPEED
   CALL  RCK
   ;/////////////////
   MOV   R0 ,#160D            ;每一次只传送R0个TRUE位数据。
   CALL  COLOR6               ;COLOR
   MOV   R1 ,#00H             ;HIGHT SPEED
   CALL  RCK
   ;/////////////////
   MOV   R0 ,#160D            ;每一次只传送R0个TRUE位数据。
   CALL  COLOR7               ;COLOR
   MOV   R1 ,#00H             ;HIGHT SPEED
   CALL  RCK
   RET
SCENE_2:  ;R/黑/G/黑/B/黑。。。。。白/黑
   MOV   R0,#2D     ;SEND 数据的位数。
   MOV   R1,#01H
   CALL  COLOR1
;   CALL  BLACK
   CALL  RCK
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR2
;   CALL  BLACK
   CALL  RCK
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR3
;   CALL  BLACK
   CALL  RCK
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR4
 ;  CALL  BLACK
   CALL  RCK
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR5
;   CALL  BLACK
   CALL  RCK
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR6
  ; CALL  BLACK
   CALL  RCK
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR7
  ; CALL  BLACK
   CALL  RCK
   RET

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
;//////////////////////////////////////
SCENE_3:
   MOV   R0,#1D     ;SEND 数据的位数。
   MOV   R1,#01H
   CALL  COLOR1
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR1
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR1
   CALL  RCK
   MOV   R0,#1D     ;SEND 数据的位数。
   MOV   R1,#01H
   CALL  COLOR1
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR1
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR1
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR1
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR1
   CALL  RCK
;//////////////////////////
   MOV   R0,#1D     ;SEND 数据的位数。
   MOV   R1,#01H
   CALL  COLOR2
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR2
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR2
   CALL  RCK
   MOV   R0,#1D     ;SEND 数据的位数。
   MOV   R1,#01H
   CALL  COLOR2
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR2
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR2
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR2
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR2
   CALL  RCK
;//////////////////////////////////
   MOV   R0,#1D     ;SEND 数据的位数。
   MOV   R1,#01H
   CALL  COLOR3
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR3
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR3
   CALL  RCK
   MOV   R0,#1D     ;SEND 数据的位数。
   MOV   R1,#01H
   CALL  COLOR3
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR3
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR3
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR3
   CALL  RCK
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR3
   CALL  RCK
   RET

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
SCENE_4:
   MOV   R0,#3D
   MOV   R1,#01H
   CALL  COLOR3
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR2
   MOV   R0,#3D
   MOV   R1,#01H
   CALL  COLOR3
   CALL   RCK
;/////////////////////////////  
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR3
   MOV   R0,#4D
   MOV   R1,#01H
   CALL  COLOR2
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR3
   CALL  RCK
;/////////////////////////////  
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR3
   MOV   R0,#6D
   MOV   R1,#01H
   CALL  COLOR2
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR3
   CALL  RCK
;/////////////////////////////  
   MOV   R0,#8D
   MOV   R1,#01H
   CALL  COLOR2
   CALL  RCK
;////////////////////////////////////
   MOV   R0,#3D
   MOV   R1,#01H
   CALL  COLOR2
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR1
   MOV   R0,#3D
   MOV   R1,#01H
   CALL  COLOR2
   CALL   RCK
;/////////////////////////////  
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR2
   MOV   R0,#4D
   MOV   R1,#01H
   CALL  COLOR1
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR2
   CALL  RCK
;/////////////////////////////  
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR2
   MOV   R0,#6D
   MOV   R1,#01H
   CALL  COLOR1
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR2
   CALL  RCK
;/////////////////////////////  
   MOV   R0,#8D
   MOV   R1,#01H
   CALL  COLOR1
   CALL  RCK
;////////////////////////////////////
   MOV   R0,#3D
   MOV   R1,#01H
   CALL  COLOR1
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR3
   MOV   R0,#3D
   MOV   R1,#01H
   CALL  COLOR1
   CALL   RCK
;/////////////////////////////  
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR1
   MOV   R0,#4D
   MOV   R1,#01H
   CALL  COLOR3
   MOV   R0,#2D
   MOV   R1,#01H
   CALL  COLOR1
   CALL  RCK
;/////////////////////////////  
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR1
   MOV   R0,#6D
   MOV   R1,#01H
   CALL  COLOR3
   MOV   R0,#1D
   MOV   R1,#01H
   CALL  COLOR1
   CALL  RCK
;/////////////////////////////  
   MOV   R0,#8D
   MOV   R1,#01H
   CALL  COLOR3
   CALL  RCK
   RET

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
;////////////////////////////////////////////////////////////
MAIN:
;///////////////////////////////|七色|///////////////////////
A1:
  MOV    R3,#02H
A1_1:
  CALL   SCENE_4
  DJNZ   R3,A1_1
A2:
  MOV    R3,#0FH
A2_1:
  CALL   SCENE_2
  DJNZ   R3,A2_1
A4:
  CALL   SCENE_1
  CALL   SCENE_3
;/////////////////////////////////////////////////////////////
   AJMP   MAIN
END

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com

工作累了,轻松一下,看看电影吧:

 优动免费电影  http://www.60film.cn  

或者听听音乐: 优动音乐厅  http://www.longtoo.com/music/  

祝你愉悦每一天！

;89c2051数码灯带演示

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com

ORG  00H
    SD  EQU  P1.7;  数据
    OE  EQU  P1.6;  锁存     上升沿有效
    RC  EQU  P1.5;  使能     低电平有效
    CK  EQU  P1.4;  移位     上升沿有效
AJMP  MAIN
DELAYA:
     MOV   PSW,#18H
     MOV   R0,#09H
LOOP:
     MO

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.comV   R1,#2FH
LOOP1:
     MOV   R2,#2FH
LOOP2:
     DJNZ   R2,LOOP2;
     DJNZ   R1,LOOP1;
     DJNZ   R0,LOOP;
     MOV    PSW,#00H
     RET
DELAY:
     MOV    PSW,#18H
     MOV    R0,#1AH
LOOP3:
     DJNZ   R0,LOOP3
     MOV    PSW,#00H
     RET
;////////////////////////////
RCK:
    CLR   RC
    SETB  RC
    RET
SCK:
    CLR   CK
    SETB  CK
    RET
;////////////////////////////

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
COLOR_B:   ;////L2=0////
    CLR    SD
    CALL   SCK
    SETB   SD
    CALL   SCK
    CALL   SCK
    RET
COLOR_G:   ;////L1=0////
    SETB    SD
    CALL   SCK
    CLR    SD
    CALL   SCK
    SETB   SD
    CALL   SCK
    RET
COLOR_R:   ;////L0=0////
    SETB    SD
    CALL   SCK
    SETB    SD
    CALL   SCK
    CLR     SD
    CALL   SCK
    RET
COLOR_RG:   ;//////L2=L1=0/L0=1//////
    SETB    SD
    CALL   SCK
    CLR    SD
    CALL   SCK
    CLR    SD
    CALL   SCK
    RET
COLOR_BG:   ;//////L2=1/L1=L0=0//////
    CLR    SD
    CALL   SCK
    CLR    SD
    CALL   SCK
    SETB    SD
    CALL   SCK
    RET
COLOR_RB:   ;//////L0=L2=0/ L1=1//////
    CLR    SD
    CALL   SCK
    SETB    SD
    CALL   SCK
    CLR    SD
    CALL   SCK
    RET
COLOR_RGB:   ;//////L0=L1=L2=0///////
    CLR    SD
    CALL   SCK
    CLR    SD
    CALL   SCK
    CLR    SD
    CALL   SCK
    RET
COLOR_BLK:   ;//////L0=L1-L2=1///////
    SETB    SD
    CALL   SCK
    SETB    SD
    CALL   SCK
    SETB    SD
    CALL   SCK
    RET
;//////////////////
effect1: ;color_r up;红色渐亮蓝色渐暗,               绿色渐亮渐暗，白色渐亮渐暗，
    MOV   R0,#01H
    MOV   R1,#0FFH
    MOV   R4,#01H     ;fade stay_time
;////////////////////

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
DIMMER1:
    MOV   A,R4
    MOV   R5,A
DIMMER1_1:
    MOV   A,R0
    MOV   R2,A
    MOV   A,R1
    MOV   R3,A
UP_R:
    CALL   COLOR_R
    CALL   RCK
    DJNZ   R2,UP_R
UP_BLK:
    CALL   COLOR_B
    CALL   RCK
    DJNZ   R3,UP_BLK
;///////////////////////////
    DJNZ   R5,DIMMER1_1       ;Control the color fade stay_time
;///////////////////////////
    INC    R0
    DJNZ   R1,DIMMER1
    ;RET
;///////////////////////////////////////////////
;EFFECT2:  ;COLOR_G  UP  RED  DOWN
    MOV   R0,#01H
    MOV   R1,#0FFH
    MOV   R4,#01H     ;fade stay_time
;////////////////////

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
DIMMER_G:
    MOV   A,R4
    MOV   R5,A
DIMMER_G_1:
    MOV   A,R0
    MOV   R2,A
    MOV   A,R1
    MOV   R3,A
UP_G:
    CALL   COLOR_G
    CALL   RCK
    DJNZ   R2,UP_G
UP_BLK2:
    CALL   COLOR_R
    CALL   RCK
    DJNZ   R3,UP_BLK2
;///////////////////////////
    DJNZ   R5,DIMMER_G_1       ;Control the color fade stay_time
;///////////////////////////
    INC    R0
    DJNZ   R1,DIMMER_G
;////////////////////////////COLOR_R DOWN
    MOV   R0,#01H
    MOV   R1,#0FFH
    MOV   R4,#01H     ;fade stay_time
;////////////////////

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
DIMMER_G2:
    MOV   A,R4
    MOV   R5,A
DIMMER_G_2:
    MOV   A,R0
    MOV   R2,A
    MOV   A,R1
    MOV   R3,A
DOWN_BLK2:
    CALL   COLOR_B
    CALL   RCK
    DJNZ   R2,DOWN_BLK2
DOWN_G:
    CALL   COLOR_G
    CALL   RCK
    DJNZ   R3,DOWN_G
;///////////////////////////
    DJNZ   R5,DIMMER_G_2       ;Control the color fade stay_time
;///////////////////////////
    INC    R0
    DJNZ   R1,DIMMER_G2
    RET

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
;;////////////////////////////////////////////;;;
SCANA:
;32 dot as a group
SCAN_RE1:;Background color is green,red changing
    MOV  R1,#01D
    MOV  R2,#31D
;;;;;;;;;;;;;;;;;
SCAN_RE1_0:
    MOV  R0,#50D
SCAN_RE1_1:
    MOV  A,R1
    MOV  R3,A
    MOV  A,R2
    MOV  R4,A
SCAN1:
    CALL  COLOR_BG
    DJNZ  R4,SCAN1
SCAN1_0:
    CALL  COLOR_R
    DJNZ  R3,SCAN1_0
    DJNZ  R0,SCAN_RE1_1
    CALL   RCK
    INC   R1
    DJNZ  R2,SCAN_RE1_0
    ;RET
;/////////////////////////////////
SCAN_RE2:
    MOV  R1,#01D
    MOV  R2,#31D
;;;;;;;;;;;;;;;;;
SCAN_RE2_0:
    MOV  R0,#50D
SCAN_RE2_1:
    MOV  A,R1
    MOV  R3,A
    MOV  A,R2
    MOV  R4,A
SCAN2:
    CALL  COLOR_R
    DJNZ  R4,SCAN2
SCAN2_0:
    CALL  COLOR_G
    DJNZ  R3,SCAN2_0
    DJNZ  R0,SCAN_RE2_1
    CALL   RCK
    INC   R1
    DJNZ  R2,SCAN_RE2_0
    ;RET
    ;///////////////////////////
SCAN_RE3:
    MOV  R1,#01D
    MOV  R2,#31D
;;;;;;;;;;;;;;;;;
SCAN_RE3_0:
    MOV  R0,#50D
SCAN_RE3_1:
    MOV  A,R1
    MOV  R3,A
    MOV  A,R2
    MOV  R4,A
SCAN3:
    CALL  COLOR_G
    DJNZ  R4,SCAN3
SCAN3_0:
    CALL  COLOR_B
    DJNZ  R3,SCAN3_0
    DJNZ  R0,SCAN_RE3_1
    CALL   RCK
    INC   R1
    DJNZ  R2,SCAN_RE3_0
;////////////////////////////////////

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com

SCAN_RE4:
    MOV  R1,#01D
    MOV  R2,#31D
;;;;;;;;;;;;;;;;;
SCAN_RE4_0:
    MOV  R0,#50D
SCAN_RE4_1:
    MOV  A,R1
    MOV  R3,A
    MOV  A,R2
    MOV  R4,A
SCAN4:
    CALL  COLOR_B
    DJNZ  R4,SCAN4
SCAN4_0:
    CALL  COLOR_RG
    DJNZ  R3,SCAN4_0
    DJNZ  R0,SCAN_RE4_1
    CALL   RCK
    INC   R1
    DJNZ  R2,SCAN_RE4_0
;///////////////////////////////////
SCAN_RE5:
    MOV  R1,#01D
    MOV  R2,#31D
;;;;;;;;;;;;;;;;;
SCAN_RE5_0:
    MOV  R0,#50D
SCAN_RE5_1:
    MOV  A,R1
    MOV  R3,A
    MOV  A,R2
    MOV  R4,A
SCAN5:
    CALL  COLOR_RG
    DJNZ  R4,SCAN5
SCAN5_0:
    CALL  COLOR_RB
    DJNZ  R3,SCAN5_0
    DJNZ  R0,SCAN_RE5_1
    CALL   RCK
    INC   R1
    DJNZ  R2,SCAN_RE5_0

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
;///////////////////////////
SCAN_RE6:
    MOV  R1,#01D
    MOV  R2,#31D
;;;;;;;;;;;;;;;;;
SCAN_RE6_0:
    MOV  R0,#50D
SCAN_RE6_1:
    MOV  A,R1
    MOV  R3,A
    MOV  A,R2
    MOV  R4,A
SCAN6:
    CALL  COLOR_RB
    DJNZ  R4,SCAN6
SCAN6_0:
    CALL  COLOR_BG
    DJNZ  R3,SCAN6_0
    DJNZ  R0,SCAN_RE6_1
    CALL   RCK
    INC   R1
    DJNZ  R2,SCAN_RE6_0
    RET
    ;//////////////////////////
SCANB:
;38 dot as a group
SCAN_B0:;
    MOV  R1,#05D
;;;;;;;;;;;;;;;;;
SCAN_B0_0:
    MOV  R0,#50D
SCAN_B0_1:
    MOV  A,R1
    MOV  R2,A
SCAN_B0_3:
    CALL  COLOR_R
    CALL  RCK
        CALL   DELAYA
    DJNZ  R2,SCAN_B0_3
    ;//////////////////////////
SCAN_B0_4:
    MOV  A,R1
    MOV  R2,A
SCAN_B0_5:
    CALL  COLOR_RG
    CALL  RCK
        CALL   DELAYA
    DJNZ  R2,SCAN_B0_5
SCAN_B0_6:
    MOV  A,R1
    MOV  R2,A
SCAN_B0_7:
    CALL  COLOR_G
    CALL  RCK
        CALL   DELAYA
    DJNZ  R2,SCAN_B0_7
SCAN_B0_8:
    MOV  A,R1
    MOV  R2,A
SCAN_B0_9:
    CALL  COLOR_BG
    CALL   RCK
        CALL   DELAYA
    DJNZ  R2,SCAN_B0_9
SCAN_B0_10:
    MOV  A,R1
    MOV  R2,A
SCAN_B0_11:
    CALL  COLOR_B
    CALL  RCK
        CALL   DELAYA
    DJNZ  R2,SCAN_B0_11
SCAN_B0_12:
    MOV  A,R1
    MOV  R2,A
SCAN_B0_13:
    CALL  COLOR_RB
    CALL  RCK
        CALL   DELAYA
    DJNZ  R2,SCAN_B0_13
    ;////////////////////
    DJNZ  R0,SCAN_B0_1
    RET
;//////////////////////////////////////////////////////////

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
;/////////////////////////////////////////////////
C3840R:
 MOV   R6,#0FFH
COLOR_R_1:
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     CALL  COLOR_R
     DJNZ   R6,COLOR_R_1
          CALL  RCK
     RET
C3840RG:
     MOV   R6,#0FFH
COLOR_RG_1:
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          CALL  COLOR_RG
          DJNZ  R6,COLOR_RG_1
          CALL    RCK
          RET
C3840G:
     MOV   R6,#0FFH
COLOR_G_1:
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     CALL  COLOR_G
     DJNZ  R6,COLOR_G_1
     CALL    RCK
     RET
C3840BG:
     MOV   R6,#0FFH
COLOR_BG_1:
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     CALL  COLOR_BG
     DJNZ  R6,COLOR_BG_1
     CALL    RCK
     RET
C3840RB:
     MOV   R6,#0FFH
COLOR_RB_1:
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     CALL  COLOR_RB
     DJNZ  R6,COLOR_RB_1
     CALL    RCK
     RET
C3840B:
     MOV   R6,#0FFH
COLOR_B_1:
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     CALL  COLOR_B
     DJNZ  R6,COLOR_B_1
     CALL    RCK
     RET
C3840BLK:
     MOV   R6,#0FFH
COLOR_BLK_1:
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     CALL  COLOR_BLK
     DJNZ  R6,COLOR_BLK_1
     CALL    RCK
     RET

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
;////////////////////////////
MAIN:
    CLR    OE
    CALL   BUTTON1    ;渐变
    CALL   BUTTON2
    AJMP   MAIN
;///////////////////////////////
BUTTON1:
    MOV    R6,#0aH     ;渐变循环的次数
NUNBER1:
    CALL   EFFECT1
    DJNZ   R6,NUNBER1
    RET
;///////////////////////////////////
BUTTON2:
    MOV    R6,#2H          ;扫描的次数
NUNBER3:
    CALL   SCANB           ;50循环，5粒颜色走动。
    DJNZ   R6,NUNBER3
;////////////////////////
    MOV    R5,#2D
NUNBER4:
    CALL   SCANA
    DJNZ   R5,NUNBER4
    MOV    R7,#4H
NUNBER5:
    CALL    C3840R
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    C3840RG
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    C3840G
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    C3840BG
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    C3840B
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    C3840RB
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    CALL    DELAYA
    DJNZ    R7,NUNBER5
    ;//////////////////
    MOV    R7,#05H
NUNBER6:
    CALL    C3840R
    CALL    DELAYA
    CALL    C3840BLK
    CALL    DELAYA
    CALL    C3840R
    CALL    DELAYA
    CALL    C3840BLK
    CALL    DELAYA
    CALL    C3840G
    CALL    DELAYA
    CALL    C3840BLK
    CALL    DELAYA
    CALL    C3840G
    CALL    DELAYA
    CALL    C3840BLK
    CALL    DELAYA
    CALL    C3840B
    CALL    DELAYA
    CALL    C3840BLK
    CALL    DELAYA
    CALL    C3840B
    CALL    DELAYA
    CALL    C3840BLK
    CALL    DELAYA
    DJNZ    R7,NUNBER6
    RET
;/////////////////////////////////
    END

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com

ORG  00H
AJMP  MAIN
    RR1 EQU  P1.7;
    GG1 EQU  P1.6;
    BB1 EQU  P1.5;
    RR2 EQU  P1.4;
    GG2 EQU  P1.3;
    BB2 EQU  P1.2;
DELAY:
     MOV   R0,#2EH
LOOP:
     MOV   R1,#2FH
LOOP1:
     MOV   R2,#2FH
LOOP2:
     DJNZ   R2,LOOP2;
     DJNZ   R1,LOOP1;
     DJNZ   R0,LOOP;
     RET
DELAYA:
     MOV    R0,#1AH
LOOP3:
     DJNZ   R0,LOOP3
     RET
;//////////////////////////渐变///////////////////////////////////////////
jianbian1:   ;///绿变红
   MOV   R0,#01H     ;R0=R3
   MOV   R1,#0FFH    ;R1=R4
DMXAA:
   MOV   A,R5       ;R5为FADE停留的次数。
   MOV   R2,A
DMXA:
;//////////////////////////////////////////////1
   MOV   A,R0
   MOV   R3,A
dmxA_1:
   SETB   RR1
   SETB   RR2
   CLR    GG1
   CLR    GG2
   CLR    BB1
   CLR    BB2
   DJNZ  R3,DMXA_1
;//////////////////////////////////////////////

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
   MOV   A,R1
   MOV   R4,A
DMXA_2:
   CLR    RR1
   CLR    RR2
   SETB    GG1
   SETB    GG2
   CLR    BB1
   CLR    BB2
   DJNZ   R4,DMXA_2
   DJNZ   R2,DMXA
;   JB     P3.0,DMXAA
;///////////////////////////////////////////////
   INC   R0
   DJNZ  R1,DMXAA
;////////////////////////////////////////////
STAYR:
   SETB   RR1
   SETB   RR2
   CLR    GG1
   CLR    GG2
   CLR    BB1
   CLR    BB2
   CALL   DELAY
   CALL   DELAY
   ;/////////
;   JB     P3.0,STAYR
;////////////////////////////////////////////

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
jianbian2:   ;红变蓝
   MOV   R0,#01H     ;R0=R3
   MOV   R1,#0FFH    ;R1=R4
DMXBB:
   MOV   A,R5          ;R5为FADE停留的次数。
   MOV   R2,A
DMXB:
;//////////////////////////////////////////////1
   MOV   A,R0
   MOV   R3,A
dmxB_1:
   CLR    RR1
   CLR    RR2
   CLR    GG1
   CLR    GG2
   SETB    BB1
   SETB    BB2
   DJNZ  R3,DMXB_1
;//////////////////////////////////////////////
   MOV   A,R1
   MOV   R4,A
DMXB_2:
   SETB    RR1
   SETB    RR2
   CLR    GG1
   CLR    GG2
   CLR    BB1
   CLR    BB2
   DJNZ   R4,DMXB_2
   DJNZ   R2,DMXB
  ; JB     P3.0,DMXBB
;///////////////////////////////////////////////
   INC   R0
   DJNZ  R1,DMXBB
;///////////////////////////////

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
STAYG:
   CLR    RR1
   CLR    RR2
   CLR    GG1
   CLR    GG2
   SETB    BB1
   SETB    BB2
   CALL   DELAY
   CALL   DELAY
   ;/////////
 ;  JB     P3.0,STAYG
;//////////////////////////////////////////////
jianbian3: ;蓝变绿
   MOV   R0,#01H     ;R0=R3
   MOV   R1,#0FFH    ;R1=R4
DMXCC:
   MOV   A,R5         ;R5为FADE停留的次数。
   MOV   R2,A
DMXC:
;//////////////////////////////////////////////1
   MOV   A,R0
   MOV   R3,A
dmxC_1:
   CLR    RR1
   CLR    RR2
   SETB    GG1
   SETB    GG2
   CLR    BB1
   CLR     BB2
   DJNZ  R3,DMXC_1
;//////////////////////////////////////////////
   MOV   A,R1
   MOV   R4,A
DMXC_2:
   CLR    RR1
   CLR    RR2
   CLR    GG1
   CLR    GG2
   SETB    BB1
   SETB    BB2
   DJNZ   R4,DMXC_2
   DJNZ   R2,DMXC
 ;  JB     P3.0,DMXCC
;///////////////////////////////////////////////
   INC   R0
   DJNZ  R1,DMXCC
;///////////////////////////////////////////////

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com
STAYB:
   CLR    RR1
   CLR    RR2
   SETB    GG1
   SETB    GG2
   CLR    BB1
   CLR     BB2
   CALL   DELAY
   CALL   DELAY
   ;/////////
  AJMP  JIANBIAN1
;////////////////////////////
SAN_SE:
     SETB   RR1
     SETB   RR2
     CLR    GG1
     CLR    GG2
     CLR    BB1
     CLR    BB2
     CALL   DELAY
     JB     P3.0,$
     CLR    RR1
     CLR    RR2
     SETB   GG1
     SETB   GG2
     CLR    BB1
     CLR    BB2
     CALL   DELAY
     JB     P3.0,$
     CLR    RR1
     CLR    RR2
     CLR    GG1
     CLR    GG2
     SETB   BB1
     SETB   BB2
     CALL   DELAY
     JNB    P3.0,SAN_SE
;////////////////////////////
MAIN: 
    CALL   DELAY
    JNB    P3.0,SAN_SE
    NOP
    NOP
    JNB    P3.1,S_SPEED
    NOP
    NOP
    JNB    P3.2,M_SPEED
    NOP
    NOP
    JNB    P3.3,HI_SPEED
    NOP
    NOP
    JNB    P3.4,HHI_SPEED
    NOP
    NOP
    AJMP   MAIN
HHI_SPEED:
    MOV    R5,#02D
    CALL   JIANBIAN1
HI_SPEED:
    MOV    R5,#10D
    CALL   JIANBIAN1
M_SPEED:
    MOV    R5,#20D
    CALL   JIANBIAN1
S_SPEED:
    MOV    R5,#40D
    CALL   JIANBIAN1
    END

;原创程序,转载请注明出处

;龙图开发网:  http://www.longtoo.com