设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › MCU综合技术区 › KSL8M161A单片机圣诞灯程序，含有开关和8模式变化闪烁彩 ...
返回列表 发新帖
查看: 6273|回复: 4
打印 上一主题 下一主题
收起左侧

KSL8M161A单片机圣诞灯程序，含有开关和8模式变化闪烁彩灯

[复制链接]
跳转到指定楼层
楼主
ID:383566 发表于 2018-8-6 22:23 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
圣诞灯程序，含有开关和8模式变化闪烁彩灯，汇编语言写的，晟矽微电子的开发软件
MN-NSTSUN8T产品功能说明
一、产品型号：MN-NSTSUN8T（输入1.2V升压到5V）
二、    功能：单轻触开关8功能
1、轻触开关控制
4、光控功能:
1) 当白天S+有高电平时，关闭输出，晚上S+为低电平时，打开输出
三、原理图如下：


单片机源程序如下:
  1. ;----------------------------------------------------
  2. ;Project: 圣诞灯
  3. ;Mcu    : KSL8M161A SOP8
  4. ;Editor : JAMES.LIN
  5. ;Version: V3.2
  6. ;       : 双脚驱动
  7. ;       ; 芯片引脚更改，使用新的封装，第4脚为复位，需要外部上来
  8. ;====================================================
  9. ;Spec   : - 1.PA1是按键输入    ;
  10. ;         - 2.PA4/PA5输出引脚  ;
  11. ;         - 3.模式可以记忆     ;
  12. ;====================================================
  13. ;             |----\/----|
  14. ;           1-|VDD    VSS|-8
  15. ;    KEY_PIN2-|PA2    PA4|-7LED_A_PIN
  16. ;    KEY_PIN3-|PA1    PA5|-6LED_B_PIN   
  17. ;        key -|PA3    PA0|-5 day_night
  18. ;             |----------|
  19. ;----------------------------------------------------
  20. #include "KSL8M161.inc"
  21. ;====================================================
  22. ;SRAM 0x40~0x7F
  23. ;====================================================
  24. Acc_buf           equ       0x040
  25. Pflag_buf         equ       0x041
  26. cnt_delay2_buf    equ       0x042
  27. cnt_delay1_buf    equ       0x043

  29. EEP_ADDR          equ       0x044 ;eeprom address register
  30. EEP_DATA          equ       0x045 ;eeprom data register
  31. cnt_dataL         equ       0x046
  32. step_buf          equ       0x047

  34. cyc_min_buf       equ       0x048
  35. pwm_cyc_buf       equ       0x049
  36. pwm_low_buf       equ       0x04a
  37. cyc_mid_buf       equ       0x04b ;
  38. cyc_max_buf       equ       0x04c ;大的循环次数
  39. incre_color_buf   equ       0x04d ;
  40. decre_color_buf   equ       0x04e



  44. ;cyc_delay_buf     equ       0x04f
  45. ;cnt_data_key2     equ       0x050


  48. Flag1_buf        equ            0x070
  49. ;=================FLAG BITS==========================
  50. #define  day_night_F         Flag1_buf,1 ; = 1 night | = 0 day
  51. #define  WRITE_FLAG          Flag1_buf,2 ;eeprom 写标志
  52. #define  key1_on_F           Flag1_buf,3 ;
  53. #define  key1_up_F           Flag1_buf,4 ;
  54. #define  key1_del_F          Flag1_buf,5 ;
  55. #define  xuexi_code_F        Flag1_buf,6 ;
  56. #define  sleep_f             Flag1_buf,7 ;学习完成标志
  57. mode_buf         equ     0x071   
  58. ;=================开始工作寄存器====================
  59. #define   mode1_all_f         mode_buf,0 ;模式1标志
  60. #define   mode2_jt_pao_f      mode_buf,1 ;模式2标志
  61. #define   mode3_jt_shan_f     mode_buf,2 ;模式3标志
  62. #define   mode4_jt_huxi_f     mode_buf,3 ;模式4标志
  63. #define   mode5_jt_2shan_f    mode_buf,4 ;模式5标志
  64. #define   mode6_ts_huxi_f     mode_buf,5 ;模式6标志
  65. #define   mode7_jt_ks3_f      mode_buf,6 ;模式7标志
  66. #define   mode8_ts_liang_f    mode_buf,7 ;模式8标志

  68. mode_pwm_buf     equ     0x072   
  69. #define   led2_open_f         mode_pwm_buf,0  

  71. ;====================================================
  72. ;Io spec
  73. ;====================================================
  74. ;;---------------IO BITS---------------------------
  75. #define key_pin       PORTA,3         ;继电器输出
  76. #define led_a_pin     PORTA,4         ;LED输出
  77. #define led_1_pin     PORTA,2   
  78. #define led_b_pin     PORTA,5         ;无线接收引脚
  79. #define led_2_pin     PORTA,1         ;
  80. #define key_day_pin   PORTA,0         ;白天晚上判断引脚
  81. ;====================================================

  83. ;====================================================
  84. ;main program start
  85. ;====================================================
  86.      org      0x00
  87.      ljump    start
  88.      org      0x04
  89.      ljump    intterupt
  90. ;====================================================
  91. start:
  92.      clrwdt
  93.      BANKSEL           MSCKCON
  94.      bset         MSCKCON,4                ;打开LVR
  95.      BANKSEL           INTCON                ;中断寄存器
  96.      bclr           INTCON,GIE               ;禁止外部中断
  97.      BANKSEL           WDTCON
  98.      bclr          WDTCON,SWDTEN            ;关闭开门狗寄存器  
  99.      BANKSEL           PORTA
  100.      clrr          PORTA
  101.      BANKSEL           TRISA
  102.      movai         00001001B                ;0为输出 1为输入
  103.      movra          TRISA                    ;IO输入输出寄存器

  105.      BANKSEL           WPUA
  106.      movai         00000001B                ;0 disable 1 enable
  107.      movra          WPUA                     ;端口弱上拉寄存器

  109.         
  110.      BANKSEL            OSCCON               ;16MHz 内部振荡器
  111.      movai    0x7f
  112.      movra    OSCCON
  113.         
  114.      BANKSEL            OPTION_REG
  115.      movai         00000110B                ;1:8 TIMER0 rate
  116.      movra         OPTION_REG

  118.      BANKSEL            TMR0             ;Timer0 计数结果寄存器
  119.      movai         63
  120.      movra         TMR0                     ;200us定时器
  121.      
  122.      ;lcall      int_ram
  123.      ;clrr       cnt_pwma
  124.      clrr       cyc_max_buf
  125.      clrr       cyc_mid_buf
  126.      clrr       pwm_low_buf
  127.      clrr       pwm_cyc_buf
  128.      clrr       cyc_min_buf


  131.      clrr       Flag1_buf
  132.      clrr       mode_buf


  135.      BANKSEL    INTCON
  136.      bset       INTCON,T0IE          ;允许T0中断
  137.      bset       INTCON,GIE           ;开启总中断
  138.      ;>>eeprom start run
  139.      movai        0x03
  140.      movra        EEP_ADDR
  141.      lcall        EEPROM_READ
  142.      movr          EEP_DATA,to_a

  144.     ;lcall   int_ram此处需要清   模式各种定时的寄存器

  146.      movai   10
  147.      subar   step_buf,to_a
  148.      jbclr   status,C
  149.      goto    start_19

  151.      movai   9
  152.      subar   step_buf,to_a
  153.      jbset   status,C
  154.      goto    start_12
  155.      clrr    step_buf         
  156.      bset    mode8_ts_liang_f     ;同时亮
  157.      goto    start_20
  158. start_12:               
  159.      movai   8
  160.      subar   step_buf,to_a
  161.      jbset   status,C
  162.      goto    start_13            
  163.      bset    mode7_jt_ks3_f       ;L1L2交替快闪3次   
  164.      goto    start_20     
  165. start_13:     
  166.      movai   7
  167.      subar   step_buf,to_a
  168.      jbset   status,C
  169.      goto    start_14         
  170.      bset    mode6_ts_huxi_f           ;L1L2同时呼吸灯   
  171.      bset    led_a_pin
  172.      goto    start_20                     
  173. start_14:            
  174.      movai   6
  175.      subar   step_buf,to_a
  176.      jbset   status,C  
  177.      goto    start_15      
  178.      bset    mode5_jt_2shan_f          ;L1L2交替 跑马 快闪3次  
  179.      goto    start_20
  180. start_15:            
  181.      movai   5
  182.      subar   step_buf,to_a
  183.      jbset   status,C
  184.      goto    start_16                 ;L1L2交替呼吸
  185.      bset    mode4_jt_huxi_f
  186.      goto    start_20
  187. start_16:            
  188.      movai   4
  189.      subar   step_buf,to_a
  190.      jbset   status,C  
  191.      goto    start_17                 ;L1L2跑马灯
  192.      bset    mode3_jt_shan_f      
  193.      goto    start_20
  194. start_17:            
  195.      movai   3
  196.      subar   step_buf,to_a
  197.      jbset   status,C
  198.      goto    start_18         
  199.      bset    mode2_jt_pao_f          ;1L2交替呼吸闪
  200.      goto    start_20
  201. start_18:            
  202.      movai   2
  203.      subar   step_buf,to_a
  204.      jbset   status,C
  205.      goto    start_19         
  206.      bset    mode1_all_f            ;全部模式跑起来

  208.      goto    start_20
  209. start_19:                           
  210.      bset    sleep_f                ;灭灯
  211. start_20:


  214.      bset    mode4_jt_huxi_f  

  216. ;-------            -----------
  217. ;--------主程序部分-------------
  218. main:
  219. sys_mode4_00:
  220.      jbset    mode4_jt_huxi_f
  221.      goto     sys_mode5_00

  223.      lcall    led_fir_off_pro
  224.      lcall    led_sec_off_pro
  225.      movai    2
  226.      movra    cyc_max_buf
  227.      movai    3
  228.      movra    cyc_mid_buf
  229. sys_mode4_01:
  230. ;灯1      第一次           
  231.      bclr     led2_open_f
  232.      call     huxi_pro      
  233.      jbset    mode4_jt_huxi_f
  234.      goto     sys_mode4_90
  235.      
  236.      lcall    led_fir_off_pro
  237.      lcall    led_sec_off_pro
  238.      movai    150
  239.      movra    cyc_min_buf
  240. sys_mode4_10:
  241.      call     Delay_1ms_pro
  242.      jbset    mode4_jt_huxi_f
  243.      goto     sys_mode4_90
  244.      decrsz   cyc_min_buf,to_r
  245.      goto     sys_mode4_10
  246.      
  247.      movai    150
  248.      movra    cyc_min_buf
  249. sys_mode4_11:
  250.      call     Delay_1ms_pro
  251.      jbset    mode4_jt_huxi_f
  252.      goto     sys_mode4_90
  253.      decrsz   cyc_min_buf,to_r
  254.      goto     sys_mode4_11
  255. ;灯2      第一次      
  256.      bset     led2_open_f
  257.      call     huxi_pro      
  258.      jbset    mode4_jt_huxi_f
  259.      goto     sys_mode4_90
  260.      
  261.      lcall    led_fir_off_pro
  262.      lcall    led_sec_off_pro
  263.      movai    150
  264.      movra    cyc_min_buf
  265. sys_mode4_20:
  266.      call     Delay_1ms_pro
  267.      jbset    mode4_jt_huxi_f
  268.      goto     sys_mode4_90
  269.      decrsz   cyc_min_buf,to_r
  270.      goto     sys_mode4_20
  271.      
  272.      movai    150
  273.      movra    cyc_min_buf
  274. sys_mode4_21:
  275.      call     Delay_1ms_pro
  276.      jbset    mode4_jt_huxi_f
  277.      goto     sys_mode4_90
  278.      decrsz   cyc_min_buf,to_r
  279.      goto     sys_mode4_21
  280.      
  281.      decrsz   cyc_max_buf,to_r
  282.      goto     sys_mode4_01

  284.      movai    4
  285.      movra    cyc_max_buf
  286.      movai    1
  287.      movra    cyc_mid_buf

  289. sys_mode4_31:
  290. ;灯1      第一次           
  291.      bclr     led2_open_f
  292.      call     huxi_pro      
  293.      jbset    mode4_jt_huxi_f
  294.      goto     sys_mode4_90
  295.      
  296.      lcall    led_fir_off_pro
  297.      lcall    led_sec_off_pro
  298.      movai    135
  299.      movra    cyc_min_buf
  300. sys_mode4_40:
  301.      call     Delay_1ms_pro
  302.      jbset    mode4_jt_huxi_f
  303.      goto     sys_mode4_90
  304.      decrsz   cyc_min_buf,to_r
  305.      goto     sys_mode4_40
  306.      
  307.      movai    135
  308.      movra    cyc_min_buf
  309. sys_mode4_41:
  310.      call     Delay_1ms_pro
  311.      jbset    mode4_jt_huxi_f
  312.      goto     sys_mode4_90
  313.      decrsz   cyc_min_buf,to_r
  314.      goto     sys_mode4_41
  315. ;灯2      第一次      
  316.      bset     led2_open_f
  317.      call     huxi_pro      
  318.      jbset    mode4_jt_huxi_f
  319.      goto     sys_mode4_90
  320.      
  321.      lcall    led_fir_off_pro
  322.      lcall    led_sec_off_pro
  323.      movai    135
  324.      movra    cyc_min_buf
  325. sys_mode4_50:
  326.      call     Delay_1ms_pro
  327.      jbset    mode4_jt_huxi_f
  328.      goto     sys_mode4_90
  329.      decrsz   cyc_min_buf,to_r
  330.      goto     sys_mode4_50
  331.      
  332.      movai    135
  333.      movra    cyc_min_buf
  334. sys_mode4_51:
  335.      call     Delay_1ms_pro
  336.      jbset    mode4_jt_huxi_f
  337.      goto     sys_mode4_90
  338.      decrsz   cyc_min_buf,to_r
  339.      goto     sys_mode4_51
  340.      
  341.      decrsz   cyc_max_buf,to_r
  342.      goto     sys_mode4_31

  344.      jbclr    mode1_all_f
  345.      lgoto    sys_mode5_00
  346. sys_mode4_90:
  347.      goto     sys_mode9_90
  348. sys_mode5_00:
  349.      goto     main














  364. sys_mode2_00:
  365.     jbset    mode2_jt_pao_f
  366.     goto     sys_mode3_00

  368.      movai    16
  369.      movra    cyc_mid_buf
  370.    
  371. sys_mode2_09:
  372.      bclr     led2_open_f
  373.      movai    5
  374.      movra    cyc_min_buf      
  375. sys_mode2_10:
  376.      movai    25
  377.      lcall    Tmin_time_pro

  379.      jbset    mode2_jt_pao_f
  380.      goto     sys_mode2_90
  381.      decrsz   cyc_min_buf,to_r
  382.      goto     sys_mode2_10

  384.      movai    5
  385.      movra    cyc_min_buf      
  386. sys_mode2_20:
  387.      movai    50
  388.      lcall    Tmin_time_pro
  389.      jbset    mode2_jt_pao_f
  390.      goto     sys_mode2_90
  391.      decrsz   cyc_min_buf,to_r
  392.      goto     sys_mode2_20

  394.      

  396.      lcall    led_sec_off_pro
  397.      lcall    led_fir_on_pro
  398.      movai    169
  399.      movra    cyc_min_buf
  400. sys_mode2_21:
  401.      call     Delay_1ms_pro
  402.      jbset    mode2_jt_pao_f
  403.      goto     sys_mode2_90
  404.      decrsz   cyc_min_buf,to_r
  405.      goto     sys_mode2_21



  409.      bset     led2_open_f     
  410.      movai    5
  411.      movra    cyc_min_buf      
  412. sys_mode2_30:
  413.      movai    25
  414.      lcall    Tmin_time_pro
  415.      jbset    mode2_jt_pao_f
  416.      goto     sys_mode2_90
  417.      decrsz   cyc_min_buf,to_r
  418.      goto     sys_mode2_30

  420.      movai    5
  421.      movra    cyc_min_buf      
  422. sys_mode2_40:
  423.      movai    50
  424.      lcall    Tmin_time_pro
  425.      jbset    mode2_jt_pao_f
  426.      goto     sys_mode2_90
  427.      decrsz   cyc_min_buf,to_r
  428.      goto     sys_mode2_40

  430.      
  431.      lcall    led_fir_off_pro
  432.      lcall    led_sec_on_pro
  433.      movai    169
  434.      movra    cyc_min_buf
  435. sys_mode2_41:
  436.      call     Delay_1ms_pro
  437.      jbset    mode2_jt_pao_f
  438.      goto     sys_mode2_90
  439.      decrsz   cyc_min_buf,to_r
  440.      goto     sys_mode2_41

  442.      decrsz   cyc_mid_buf,to_r
  443.      goto     sys_mode2_09

  445. ;------mode2 的第2种波形
  446.      
  447.      movai    8
  448.      movra    cyc_mid_buf
  449. sys_mode2_49:
  450.      bclr     led2_open_f
  451.      movai    10
  452.      movra    cyc_min_buf      
  453. sys_mode2_50:
  454.      movai    25
  455.      lcall    Tmin_time_pro
  456.      jbset    mode2_jt_pao_f
  457.      goto     sys_mode2_90
  458.      decrsz   cyc_min_buf,to_r
  459.      goto     sys_mode2_50

  461.      movai    10
  462.      movra    cyc_min_buf      
  463. sys_mode2_60:
  464.      movai    50
  465.      lcall    Tmin_time_pro
  466.      jbset    mode2_jt_pao_f
  467.      goto     sys_mode2_90
  468.      decrsz   cyc_min_buf,to_r
  469.      goto     sys_mode2_60

  471.      

  473.      lcall    led_sec_off_pro
  474.      lcall    led_fir_on_pro
  475.      movai    169
  476.      movra    cyc_min_buf
  477. sys_mode2_61:
  478.      call     Delay_1ms_pro
  479.      jbset    mode2_jt_pao_f
  480.      goto     sys_mode2_90
  481.      decrsz   cyc_min_buf,to_r
  482.      goto     sys_mode2_61

  484.      movai    169
  485.      movra    cyc_min_buf
  486. sys_mode2_62:
  487.      call     Delay_1ms_pro
  488.      jbset    mode2_jt_pao_f
  489.      goto     sys_mode2_90
  490.      decrsz   cyc_min_buf,to_r
  491.      goto     sys_mode2_62

  493.      bset     led2_open_f     
  494.      movai    10
  495.      movra    cyc_min_buf      
  496. sys_mode2_70:
  497.      movai    25
  498.      lcall    Tmin_time_pro
  499.      jbset    mode2_jt_pao_f
  500.      goto     sys_mode2_90
  501.      decrsz   cyc_min_buf,to_r
  502.      goto     sys_mode2_70

  504.      movai    10
  505.      movra    cyc_min_buf      
  506. sys_mode2_80:
  507.      movai    50
  508.      lcall    Tmin_time_pro
  509.      jbset    mode2_jt_pao_f
  510.      goto     sys_mode2_90
  511.      decrsz   cyc_min_buf,to_r
  512.      goto     sys_mode2_80

  514.      
  515.      lcall    led_fir_off_pro
  516.      lcall    led_sec_on_pro
  517.      movai    169
  518.      movra    cyc_min_buf
  519. sys_mode2_81:
  520.      call     Delay_1ms_pro
  521.      jbset    mode2_jt_pao_f
  522.      goto     sys_mode2_90
  523.      decrsz   cyc_min_buf,to_r
  524.      goto     sys_mode2_81

  526.      movai    169
  527.      movra    cyc_min_buf
  528. sys_mode2_82:
  529.      call     Delay_1ms_pro
  530.      jbset    mode2_jt_pao_f
  531.      goto     sys_mode2_90
  532.      decrsz   cyc_min_buf,to_r
  533.      goto     sys_mode2_82
  534.      
  535.      decrsz   cyc_mid_buf,to_r
  536.      goto     sys_mode2_49
  537.      jbclr    mode1_all_f
  538.      lgoto    sys_mode3_00   
  539. sys_mode2_90:   
  540.      goto     sys_mode9_90
  541.   

  543. ;--------mode3波形-----------------------
  544. sys_mode3_00:
  545.      jbset    mode3_jt_shan_f
  546.      goto     sys_mode4_00
  547. sys_mode3_01:
  548.      movai    8
  549.      movra    cyc_mid_buf

  551. sys_mode3_09:
  552.      lcall    led_sec_off_pro
  553.      lcall    led_fir_on_pro

  555.      movai    239
  556.      movra    cyc_min_buf
  557. sys_mode3_10:
  558.      call     Delay_1ms_pro
  559.      jbset    mode3_jt_shan_f
  560.      goto     sys_mode3_90
  561.      decrsz   cyc_min_buf,to_r
  562.      goto     sys_mode3_10

  564.      movai    239
  565.      movra    cyc_min_buf
  566. sys_mode3_11:
  567.      call     Delay_1ms_pro
  568.      jbset    mode3_jt_shan_f
  569.      goto     sys_mode3_90
  570.      decrsz   cyc_min_buf,to_r
  571.      goto     sys_mode3_11

  573.      lcall    led_fir_off_pro
  574.      lcall    led_sec_on_pro

  576.      movai    239
  577.      movra    cyc_min_buf
  578. sys_mode3_20:
  579.      call     Delay_1ms_pro
  580.      jbset    mode3_jt_shan_f
  581.      goto     sys_mode3_90
  582.      decrsz   cyc_min_buf,to_r
  583.      goto     sys_mode3_20

  585.      movai    239
  586.      movra    cyc_min_buf
  587. sys_mode3_21:
  588.      call     Delay_1ms_pro
  589.      jbset    mode3_jt_shan_f
  590.      goto     sys_mode3_90
  591.      decrsz   cyc_min_buf,to_r
  592.      goto     sys_mode3_21

  594.      decrsz   cyc_mid_buf,to_r
  595.      goto     sys_mode3_09

  597. ;-------mode3第二中波形------------------
  598. sys_mode3_31:
  599.      movai    16
  600.      movra    cyc_mid_buf

  602. sys_mode3_39:
  603.      lcall    led_sec_off_pro
  604.      lcall    led_fir_on_pro

  606.      movai    240
  607.      movra    cyc_min_buf
  608. sys_mode3_40:
  609.      call     Delay_1ms_pro
  610.      jbset    mode3_jt_shan_f
  611.      goto     sys_mode3_90
  612.      decrsz   cyc_min_buf,to_r
  613.      goto     sys_mode3_40

  615.    
  616.      lcall    led_fir_off_pro
  617.      lcall    led_sec_on_pro

  619.      movai    240
  620.      movra    cyc_min_buf
  621. sys_mode3_50:
  622.      call     Delay_1ms_pro
  623.      jbset    mode3_jt_shan_f
  624.      goto     sys_mode3_90
  625.      decrsz   cyc_min_buf,to_r
  626.      goto     sys_mode3_50
  627.    
  628.      decrsz   cyc_mid_buf,to_r
  629.      goto     sys_mode3_39
  630.      jbclr    mode1_all_f
  631.      lgoto    sys_mode4_00
  632. sys_mode3_90:
  633.      goto     sys_mode9_90


  636. ;--------mode4波形-----------------------

  638.      
  639.      




















  660. sys_mode9_90:
  661.      




  666.      jbclr     day_night_F
  667.      goto      main_sleep
  668. ;====================================================
  669. ;====================================================
  670. mstep_del_pro:
  671.      ;>>------------------------------
  672. mstep_del_00:  
  673.      jbset     key1_del_F
  674.      lgoto     mstep_del_90
  675.      bclr      key1_del_F           ;
  676. eeprom_cun_00:
  677.      BANKSEL   INTCON
  678.      bclr      INTCON,GIE           ;关闭总中断
  679.      movai     0x03
  680.      movra     EEP_ADDR
  681.      movr      step_buf,to_a
  682.      movra     EEP_DATA
  683.      lcall     eeprom_write
  684.      ;===========================================
  685.      BANKSEL   INTCON
  686.      bset      INTCON,GIE           ;关闭总中断
  687. eeprom_cun_09:
  688.      BANKSEL    PORTA                ;默认返回BANK0
  689.      
  690. mstep_del_90:
  691.    
  692.       ;bset       led_a_pin
  693.      ; movai      10
  694.      ; lcall      Delay_1ms_pro
  695.      ; bclr       led_a_pin
  696.      ; movai      10
  697.     ;  lcall      Delay_1ms_pro
  698.     ;  bset       led_a_pin
  699.    ;   movai      10
  700.     ;  lcall      Delay_1ms_pro
  701.     ;  bclr       led_a_pin
  702.     ;  movai      10
  703.     ;  lcall      Delay_1ms_pro
  704.     ;  bset       led_a_pin
  705.     ;  movai      10
  706.     ;  lcall      Delay_1ms_pro
  707.     ;  bclr       led_a_pin
  708.     ;  movai      10
  709.     ;  lcall      Delay_1ms_pro
  710.     ;  lgoto      main
  711.    
  712. ;====================================================






  719. ;====================================================

  721. ;====================================================
  722. main_sleep:
  723.      lcall      led_fir_off_pro
  724.      lcall      led_sec_off_pro     
  725.      lgoto      main
  726. ;====================================================
  727. led_fir_off_pro:
  728.       bset      led_a_pin
  729.       bset      led_1_pin
  730.       return
  731. led_fir_on_pro:
  732.       bclr      led_a_pin
  733.       bclr      led_1_pin
  734.       return
  735. led_sec_off_pro:
  736.       bset      led_b_pin
  737.       bset      led_2_pin
  738.       return
  739. led_sec_on_pro:
  740.       bclr      led_b_pin
  741.       bclr      led_2_pin
  742.       return
  743. ;;====================================================
  744. ;eeprom program start
  745. ;====================================================
  746. eeprom_write:
  747.           CLRWDT
  748.           BANKSEL                PIR1
  749.           bclr       PIR1,EEIF                                                                                                               
  750.           BANKSEL    EECON1
  751.           bset       EECON1,WREN1                                                                                                
  752.           bset       EECON1,WREN2
  753.           bset       EECON1,WREN3

  755.           BANKSEL          PORTA
  756.           movr                   EEP_ADDR,TO_A                                                                                                
  757.           BANKSEL          EEADR                                                                                                                        
  758.           movra                  EEADR

  760.           BANKSEL                PORTA
  761.           movr                 EEP_DATA,TO_A
  762.           BANKSEL    EEDAT
  763.           movra      EEDAT
  764.           bset       EECON2,WR
  765.       
  766.           BANKSEL                EECON2                                                                                       
  767.           jbclr           EECON2,WR                                                                                                        
  768.           lgoto      $-1
  769.           bclr       EECON1,WREN1
  770.           bclr       EECON1,WREN2
  771.           bclr       EECON1,WREN3
  772.           bclr                 WRITE_FLAG

  774.           BANKSEL    PORTA                                                                                                                        
  775.           ret        
  776.      ;>>write eeprom end
  777. eeprom_read:
  778.           CLRWDT
  779.           movr            EEP_ADDR,TO_A                                                                                                
  780.           BANKSEL           EEADR                                                                                                                        
  781.           movra           EEADR
  782.           bset            EECON1,RD                                                                                                               
  783.           movr            EEDAT,TO_A                                                                                                               

  785.           BANKSEL         PORTA                                                                                                                        
  786.           movra             EEP_DATA
  787.           ret
  788.      ;>>read eeprom end

  790. ;====================================================
  791. ;15.4ms-最小周期，占空比子程序
  792. ;====================================================
  793. Tmin_time_pro:
  794.        movra      pwm_low_buf
  795.        movra      pwm_cyc_buf      
  796. Tmin_time_10:
  797.        jbclr      led2_open_f
  798.        goto       Tmin_time_11
  799.        lcall      led_sec_off_pro
  800.        lcall      led_fir_on_pro      
  801.        goto       Tmin_time_12
  802. Tmin_time_11:      
  803.        lcall      led_fir_off_pro
  804.        lcall      led_sec_on_pro   
  805. Tmin_time_12:
  806.        lcall      Delay_154us_pro
  807.        decrsz     pwm_cyc_buf,to_r
  808.        lgoto      Tmin_time_12

  810.        jbclr      led2_open_f
  811.        goto       Tmin_time_13
  812.        lcall      led_fir_off_pro
  813.        lcall      led_sec_on_pro
  814.        lgoto      Tmin_time_14
  815. Tmin_time_13:
  816.        lcall      led_sec_off_pro
  817.        lcall      led_fir_on_pro   
  818. Tmin_time_14:
  819.        movr       pwm_low_buf,to_a           
  820.        subwi      100
  821.        movra      pwm_cyc_buf      
  822. Tmin_time_15:   
  823.        lcall      Delay_154us_pro   
  824.        decrsz     pwm_cyc_buf,to_r
  825.        lgoto      Tmin_time_15
  826.        ret
  827. ;====================================================
  828. ;交替呼吸   子程序
  829. ;====================================================
  830. huxi_pro:
  831.      movai    1
  832.      movra    incre_color_buf
  833.      movai    99
  834.      movra    decre_color_buf

  836.      movr     cyc_mid_buf,to_a
  837.      movra    pwm_low_buf   

  839. huxi_10:     
  840.      movr     incre_color_buf,to_a
  841.      movra    pwm_cyc_buf  
  842.      
  843.      jbclr    led2_open_f
  844.      goto     huxi_11        
  845.      lcall    led_fir_on_pro
  846.      goto     huxi_12
  847. huxi_11:
  848.      lcall    led_sec_on_pro
  849. huxi_12:     
  850.      call     Delay_154us_pro
  851.      jbset    mode4_jt_huxi_f
  852.      goto     huxi_90
  853.      decrsz   pwm_cyc_buf,to_r     
  854.      goto     huxi_12

  856.      lcall    led_fir_off_pro
  857.      lcall    led_sec_off_pro
  858.      movr     decre_color_buf,to_a  
  859.      movra    pwm_cyc_buf            
  860. huxi_13:     
  861.      call     Delay_154us_pro
  862.      jbset    mode4_jt_huxi_f
  863.      goto     huxi_90
  864.      decrsz   pwm_cyc_buf,to_r     
  865.      goto     huxi_13
  866.      
  867.      decrsz   pwm_low_buf,to_r     
  868.      goto     huxi_10
  869.      
  870.      movai    99
  871.      subar    incre_color_buf,to_a
  872.      jbclr    status,C
  873.      goto     huxi_20
  874.      incr     incre_color_buf,to_r     
  875.      decrsz   decre_color_buf,to_r        
  876.      movr     cyc_mid_buf,to_a
  877.      movra    pwm_low_buf   
  878.      goto     huxi_10

  880. huxi_20:      
  881.      jbclr    led2_open_f
  882.      goto     huxi_21        
  883.      lcall    led_fir_on_pro
  884.      goto     huxi_22
  885. huxi_21:
  886.      lcall    led_sec_on_pro
  887. huxi_22:
  888.      movai    3  
  889.      subar    cyc_mid_buf,to_a   
  890.      jbset    status,z
  891.      goto     huxi_23
  892.      movai    60
  893.      movra    cyc_min_buf
  894.      goto     huxi_24
  895. huxi_23:
  896.      movai    30
  897.      movra    cyc_min_buf
  898. huxi_24:  
  899.      call     Delay_1ms_pro   
  900.      jbset    mode4_jt_huxi_f
  901.      goto     huxi_90
  902.      decrsz   cyc_min_buf,to_r
  903.      goto     huxi_24

  905.      movai    1
  906.      movra    incre_color_buf
  907.      movai    99
  908.      movra    decre_color_buf

  910.      movr     cyc_mid_buf,to_a
  911.      movra    pwm_low_buf
  912. huxi_85:     
  913.      movr     decre_color_buf,to_a
  914.      movra    pwm_cyc_buf

  916.      jbclr    led2_open_f
  917.      goto     huxi_86           
  918.      lcall    led_fir_on_pro
  919.      goto     huxi_87
  920. huxi_86:
  921.      lcall    led_sec_on_pro
  922. huxi_87:      
  923.      call     Delay_154us_pro
  924.      jbset    mode4_jt_huxi_f
  925.      goto     huxi_90
  926.      decrsz   pwm_cyc_buf,to_r     
  927.      goto     huxi_87

  929.      lcall    led_fir_off_pro
  930.      lcall    led_sec_off_pro   
  931.      movr     incre_color_buf,to_a
  932.      movra    pwm_cyc_buf            
  933. huxi_88:     
  934.      call     Delay_154us_pro
  935.      jbset    mode4_jt_huxi_f
  936.      goto     huxi_90
  937.      decrsz   pwm_cyc_buf,to_r
  938.      goto     huxi_88
  939.      
  940.      decrsz   pwm_low_buf,to_r   
  941.      goto     huxi_85
  942.      
  943.      movai    99
  944.      subar    incre_color_buf,to_a
  945.      jbclr    status,C
  946.      goto     huxi_90
  947.      incr     incre_color_buf,to_r     
  948.      decrsz   decre_color_buf,to_r        
  949.      movr     cyc_mid_buf,to_a        
  950.      movra    pwm_low_buf   
  951.      goto     huxi_85     
  952. huxi_90:
  953.      lcall    led_fir_off_pro
  954.      lcall    led_sec_off_pro   
  955.      return

  957. ;====================================================
  958. ;delay 200us 子程序
  959. ;====================================================
  960. Delay_5us_pro:
  961.      nop
  962.      nop
  963.      nop
  964.      nop
  965.      nop
  966.      nop
  967.      ret
  968. ……………………

  970. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码



所有资料51hei提供下载:
63-MN-NSTSUN8T 圣诞灯程序.rar (4.02 MB, 下载次数: 33)


评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励！

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶顶 踩踩
回复

使用道具 举报

沙发
ID:413735 发表于 2018-10-22 21:41 | 只看该作者
学习，好东西，谢谢
回复

使用道具 举报

板凳
ID:535885 发表于 2019-5-12 02:23 | 只看该作者
找了好久，主要要这个芯片资料
回复

使用道具 举报

地板
ID:590709 发表于 2019-7-26 15:16 | 只看该作者
chengjj 发表于 2019-5-12 02:23
找了好久，主要要这个芯片资料

请问这是什么型号芯片
回复

使用道具 举报

5#
ID:739996 发表于 2020-4-29 10:53 | 只看该作者
请问一下，这是什么编译环境？
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表