标题: KSL8M161A单片机圣诞灯程序，含有开关和8模式变化闪烁彩灯 [打印本页]

---

作者: pannygg    时间: 2018-8-6 22:23
标题: KSL8M161A单片机圣诞灯程序，含有开关和8模式变化闪烁彩灯
圣诞灯程序，含有开关和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
    
28. 
    
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
    
33. 
    
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
    
41. 
    
42. 
    
43. 
    
44. ;cyc_delay_buf     equ       0x04f
    
45. ;cnt_data_key2     equ       0x050
    
46. 
    
47. 
    
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标志
    
67. 
    
68. mode_pwm_buf     equ     0x072   
    
69. #define   led2_open_f         mode_pwm_buf,0  
    
70. 
    
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. ;====================================================
    
82. 
    
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输入输出寄存器
     
104. 
     
105.      BANKSEL           WPUA
     
106.      movai         00000001B                ;0 disable 1 enable
     
107.      movra          WPUA                     ;端口弱上拉寄存器
     
108. 
     
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
     
117. 
     
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
     
129. 
     
130. 
     
131.      clrr       Flag1_buf
     
132.      clrr       mode_buf
     
133. 
     
134. 
     
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
     
143. 
     
144.     ;lcall   int_ram此处需要清   模式各种定时的寄存器
     
145. 
     
146.      movai   10
     
147.      subar   step_buf,to_a
     
148.      jbclr   status,C
     
149.      goto    start_19
     
150. 
     
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            ;全部模式跑起来
     
207. 
     
208.      goto    start_20
     
209. start_19:                           
     
210.      bset    sleep_f                ;灭灯
     
211. start_20:
     
212. 
     
213. 
     
214.      bset    mode4_jt_huxi_f  
     
215. 
     
216. ;-------            -----------
     
217. ;--------主程序部分-------------
     
218. main:
     
219. sys_mode4_00:
     
220.      jbset    mode4_jt_huxi_f
     
221.      goto     sys_mode5_00
     
222. 
     
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
     
283. 
     
284.      movai    4
     
285.      movra    cyc_max_buf
     
286.      movai    1
     
287.      movra    cyc_mid_buf
     
288. 
     
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
     
343. 
     
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
     
350. 
     
351. 
     
352. 
     
353. 
     
354. 
     
355. 
     
356. 
     
357. 
     
358. 
     
359. 
     
360. 
     
361. 
     
362. 
     
363. 
     
364. sys_mode2_00:
     
365.     jbset    mode2_jt_pao_f
     
366.     goto     sys_mode3_00
     
367. 
     
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
     
378. 
     
379.      jbset    mode2_jt_pao_f
     
380.      goto     sys_mode2_90
     
381.      decrsz   cyc_min_buf,to_r
     
382.      goto     sys_mode2_10
     
383. 
     
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
     
393. 
     
394.      
     
395. 
     
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
     
406. 
     
407. 
     
408. 
     
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
     
419. 
     
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
     
429. 
     
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
     
441. 
     
442.      decrsz   cyc_mid_buf,to_r
     
443.      goto     sys_mode2_09
     
444. 
     
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
     
460. 
     
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
     
470. 
     
471.      
     
472. 
     
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
     
483. 
     
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
     
492. 
     
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
     
503. 
     
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
     
513. 
     
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
     
525. 
     
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.   
     
542. 
     
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
     
550. 
     
551. sys_mode3_09:
     
552.      lcall    led_sec_off_pro
     
553.      lcall    led_fir_on_pro
     
554. 
     
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
     
563. 
     
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
     
572. 
     
573.      lcall    led_fir_off_pro
     
574.      lcall    led_sec_on_pro
     
575. 
     
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
     
584. 
     
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
     
593. 
     
594.      decrsz   cyc_mid_buf,to_r
     
595.      goto     sys_mode3_09
     
596. 
     
597. ;-------mode3第二中波形------------------
     
598. sys_mode3_31:
     
599.      movai    16
     
600.      movra    cyc_mid_buf
     
601. 
     
602. sys_mode3_39:
     
603.      lcall    led_sec_off_pro
     
604.      lcall    led_fir_on_pro
     
605. 
     
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
     
614. 
     
615.    
     
616.      lcall    led_fir_off_pro
     
617.      lcall    led_sec_on_pro
     
618. 
     
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
     
634. 
     
635. 
     
636. ;--------mode4波形-----------------------
     
637. 
     
638.      
     
639.      
     
640. 
     
641. 
     
642. 
     
643. 
     
644. 
     
645. 
     
646. 
     
647. 
     
648. 
     
649. 
     
650. 
     
651. 
     
652. 
     
653. 
     
654. 
     
655. 
     
656. 
     
657. 
     
658. 
     
659. 
     
660. sys_mode9_90:
     
661.      
     
662. 
     
663. 
     
664. 
     
665. 
     
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. ;====================================================
     
713. 
     
714. 
     
715. 
     
716. 
     
717. 
     
718. 
     
719. ;====================================================
     
720. 
     
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
     
754. 
     
755.           BANKSEL          PORTA
     
756.           movr                   EEP_ADDR,TO_A                                                                                                
     
757.           BANKSEL          EEADR                                                                                                                        
     
758.           movra                  EEADR
     
759. 
     
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
     
773. 
     
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                                                                                                               
     
784. 
     
785.           BANKSEL         PORTA                                                                                                                        
     
786.           movra             EEP_DATA
     
787.           ret
     
788.      ;>>read eeprom end
     
789. 
     
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
     
809. 
     
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
     
835. 
     
836.      movr     cyc_mid_buf,to_a
     
837.      movra    pwm_low_buf   
     
838. 
     
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
     
855. 
     
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
     
879. 
     
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
     
904. 
     
905.      movai    1
     
906.      movra    incre_color_buf
     
907.      movai    99
     
908.      movra    decre_color_buf
     
909. 
     
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
     
915. 
     
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
     
928. 
     
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
     
956. 
     
957. ;====================================================
     
958. ;delay 200us 子程序
     
959. ;====================================================
     
960. Delay_5us_pro:
     
961.      nop
     
962.      nop
     
963.      nop
     
964.      nop
     
965.      nop
     
966.      nop
     
967.      ret
     
968. ……………………
     
969. 
     
970. …………限于本文篇幅 余下代码请从51黑下载附件…………
     

复制代码

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

2018-8-6 22:23 上传

点击文件名下载附件
下载积分: 黑币 -5

---

作者: lzsky    时间: 2018-10-22 21:41
学习，好东西，谢谢

---

作者: chengjj    时间: 2019-5-12 02:23
找了好久，主要要这个芯片资料

---

作者: tianyitianyang    时间: 2019-7-26 15:16

chengjj 发表于 2019-5-12 02:23
找了好久，主要要这个芯片资料

请问这是什么型号芯片

---

作者: 15797906963    时间: 2020-4-29 10:53
请问一下，这是什么编译环境？

---

欢迎光临 (http://www.51hei.com/bbs/)

Powered by Discuz! X3.1