46r47_1606_led.asm

一个用HT46R47驱动HL1606控制的LED软灯条程序

                      mov     Rt_Data,A    
                      call    JM_wt_HL1606  
                      jmp     Main_prog
Main_Green:
                      clr     fg_Li
                      mov     A,81h
                      mov     Rt_Data,A    
                      call    JM_wt_HL1606  
                      jmp     Main_prog
Main_Blue:
                      clr     fg_Li
                      mov     A,90h
                      mov     Rt_Data,A    
                      call    JM_wt_HL1606  
                      jmp     Main_prog
Main_White:
                      clr     fg_Li
                      mov     A,95h
                      mov     Rt_Data,A    
                      call    JM_wt_HL1606  
                      jmp     Main_prog
                      
                  
                  ;    nop
                  ;    call     JJ_Mode01_Pro  ;正,反 向 刷 色 程 序 
                  ;    call     JJ_Mode02_Pro  ;正,反 向 老 鼠 跑 程 序
                  ;    call     JJ_Mode03_Pro  ;闭 幕 程 序
                  ;    call  test
                  ;    call     JJ_Mode04_Pro  ;开 幕 程 序
                  ;    nop
                  ;    jmp      Main_prog


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++;
;======================================================================;
;######################################################################;


;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;
;---------------------------------------------------------------;
;                      HL1606 开 幕 程 序                       ;
;                    8个HL1606,16个三色灯                       ;
;---------------------------------------------------------------;
JJ_Mode04_Pro:
                      ;clr     R_RegS
                      clr     R_RegB
JW_Mode04_RUN:                    
                      clr     R_RegK
                      clr     R_RegM
                      clr     R_RegJ
                     
                      clr     fg_Li
                      clr     Rt_Data
                      set     FangXiang
                      mov     A,8
                      mov     R_RegK,A
;--------------------------------------------------------;                         
JJ_Mode04_RUN:
                      dec     R_RegK
                      mov     A,R_RegK
                      mov     R_RegM,A
                      sz      ACC
                      jmp     JJ_send4_01
                      jmp     JJ_send4_02 
;--------------------------------------------------------;                         
JJ_send4_01:                      
                      set     fg_Li
                     ;mov     A,84h
                     ;mov     Rt_Data,A            
                      mov     A,R_RegS         ;0~6     
                      add     A,LED_tab_01   
                      mov     tblp,A         
                      tabrdl  Rt_Data    
                 
                      call    JM_wt_HL1606 
                      sdz     R_RegM
                      jmp     JJ_send4_01
;--------------------------------------------------------;                         
JJ_send4_02:                   
                      mov     A,R_RegJ
                      add     A,2
                      mov     R_RegJ,A
                      mov     R_RegM,A     
;--------------------------------------------------------;                         
JJ_send4_03:
                      set     fg_Li
                      mov     A,80h       
                      mov     Rt_Data,A            
                      call    JM_wt_HL1606 
                      sdz     R_RegM
                      jmp     JJ_send4_03
;--------------------------------------------------------;                         
JJ_send4_04:                    
                      mov     A,R_RegK
                      mov     R_RegM,A
                      sz      ACC
                      jmp     JJ_send4_05
                      jmp     JJ_set_LI4
JJ_send4_05:                      
                      set     fg_Li
                     ; mov     A,84h
                     ; mov     Rt_Data,A            
                     
                      mov     A,R_RegS        
                      add     A,LED_tab_01   
                      mov     tblp,A         
                      tabrdl  Rt_Data    
                      call    JM_wt_HL1606 
                      sdz     R_RegM
                      jmp     JJ_send4_05
;--------------------------------------------------------;                         
JJ_set_LI4:                      
                      set     B_LI
                      nop
                      clr     B_LI
                      nop
;--------------------------------------------------------;                         
                      call    Delay
;--------------------------------------------------------;                         
                      mov     A,R_RegK
                      sz      ACC
                      jmp     JJ_Mode04_RUN
                   
                      inc     R_RegS
                      mov     A,R_RegS
                      sub     A,7
                      snz     c
                      jmp     JJ_Mode03_Pro ;JW_Mode04_RUN
                      clr     R_RegS
                      ret
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;
;---------------------------------------------------------------;
;                      HL1606 闭 幕 程 序                       ;
;                    8个HL1606,16个三色灯                       ;
;---------------------------------------------------------------;
JJ_Mode03_Pro:
                      clr     R_RegK
                      clr     R_RegM
                      clr     R_RegJ
                      clr     fg_Li
                      clr     Rt_Data
                      set     FangXiang
                      mov     A,16
                      mov     R_RegJ,A
;--------------------------------------------------------;                         
JJ_Mode03_RUN:
                      inc     R_RegK
                      mov     A,R_RegK
                      mov     R_RegM,A
JJ_send3_01:                      
                      set     fg_Li
                      ;mov     A,84h
                      ;mov     Rt_Data,A            
                    
                      mov     A,R_RegS        
                      add     A,LED_tab_01   
                      mov     tblp,A         
                      tabrdl  Rt_Data   
                      call    JM_wt_HL1606 
                      sdz     R_RegM
                      jmp     JJ_send3_01
;--------------------------------------------------------;                         
JJ_send3_02:                   
                      mov     A,R_RegJ
                      sub     A,2
                      mov     R_RegJ,A
                      mov     R_RegM,A     
;--------------------------------------------------------;                         
                      mov     A,R_RegM
                      sz      R_RegM
                      jmp     JJ_send3_03
                      jmp     JJ_send3_04                      
;--------------------------------------------------------;                         
JJ_send3_03:
                      set     fg_Li
                      mov     A,00h         ;80h,反复闭幕
                      mov     Rt_Data,A     ;00h,闭幕一次         
                      call    JM_wt_HL1606 
                      sdz     R_RegM
                      jmp     JJ_send3_03
;--------------------------------------------------------;                         
JJ_send3_04:                    
                      mov     A,R_RegK
                      mov     R_RegM,A
JJ_send3_05:                      
                      set     fg_Li
                      ;mov     A,84h
                      ;mov     Rt_Data,A            
                      mov     A,R_RegS        
                      add     A,LED_tab_01   
                      mov     tblp,A         
                      tabrdl  Rt_Data  
                      call    JM_wt_HL1606 
                      sdz     R_RegM
                      jmp     JJ_send3_05
;--------------------------------------------------------;                         
                      set     B_LI
                      nop
                      clr     B_LI
                      nop
;--------------------------------------------------------;                         
                      call    Delay
;--------------------------------------------------------;                         
                      mov     A,R_RegK
                      sub     A,8
                      sz      ACC
                      jmp     JJ_Mode03_RUN
                      ret
                      
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;
;---------------------------------------------------------------;
;                HL1606 正,反 向 老 鼠 跑 程 序                 ;
;                    8个HL1606,16个三色灯                       ;
;---------------------------------------------------------------;
;   0,红底跑白   95H + 84H    |    6,绿底跑白   95H + 81H       ;
;   1,红底跑黄   85H + 84H    |    7,绿底跑黄   85H + 81H       ;
;   2,红底跑蓝   90H + 84H    |    8,绿底跑蓝   90H + 81H       ;
;   3,红底跑绿   81H + 84H    |    9,绿底跑红   84H + 81H       ;
;   4,红底跑青   91H + 84H    |   10,绿底跑青   91H + 81H       ;
;   5,红底跑紫   94H + 84H    |   11,绿底跑紫   94H + 81H       ;
;---------------------------------------------------------------;
JJ_Mode02_Pro:
                      clr     R_RegK
                      clr     R_RegM
                      clr     R_RegJ
                      clr     fg_Li
                      clr     Rt_Data
                      set     FangXiang
                      mov     A,4
                      mov     R_RegS,A
JJ_Mode02_RUN:
                      sz      R_RegS
                      jmp     JW_Mode02_RUN
                      ret
JW_Mode02_RUN:                      
                      mov     A,R_RegK            
                      xor     A,R_RegM             
                      snz     z            
                      jmp     JJ_send2_00