设为首页收藏本站找回密码

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
ELEOK»首页 › 电子技术 › 51单片机 › STC15W4K32S4单片机汇编语言风筝彩灯控制程序 ...
返回列表 发新帖

STC15W4K32S4单片机汇编语言风筝彩灯控制程序

[复制链接]
coolfire 发表于 2021-4-21 03:05:36 | 显示全部楼层 |阅读模式
  1. ;             STC15W4K32S4单片机,采用SOP28封装
  2. ;采用内部时钟，工作频率24MHz用2平40点原点发送5位8路
  3. ;              DSEG      AT   30H  
  4. D_OUT         EQU       P1             ;LED控制数据输出
  5. ;D_OUT         EQU       P3             ;LED控制数据输出
  6. LED_ZC3       EQU       30H            ;灯板数
  7. LED_ZC4       EQU       31H            ;颜色组数
  8. LED_ZC5       EQU       32H            ;每块板数组 红，绿，蓝三基色
  9. LED_ZC6       EQU       33H            ;单色数据位数
  10. LEDR0         EQU       34H
  11. LEDR1         EQU       35H
  12. LEDR2         EQU       36H
  13. LEDR3         EQU       37H
  14. LEDR4         EQU       38H
  15. LEDR5         EQU       39H
  16. LEDR6         EQU       3AH
  17. LEDR7         EQU       3BH
  18. LEDR8         EQU       3CH
  19. LEDR9         EQU       3DH

  21. P1M1           EQU      91H
  22. P1M0           EQU      92H
  23. P2M1           EQU      95H
  24. P2M0           EQU      96H

  26.               ORG       0000H
  27.               LJMP      MAINA
  28.               ORG       0040H
  29. MAINA:        MOV       SP,#60H
  30.               MOV       P1M0,#0FFH                ;定义端口很重要
  31.               MOV       P1M1,#00H
  32. MAINB:        LCALL     CSHH
  33.               LCALL     CSYH
  34.               LCALL     CSBH
  35.               LCALL     LEDLHA
  36.               LCALL     LEDLH
  37.               lcall     qqlha
  38.               LCALL     QQLH                     ;示例礼花
  39.               LCALL     LEDR60                   ;红色60灯组
  40.               LCALL     LEDG60                   ;绿色60灯组
  41.               LCALL     LEDB60                   ;蓝色60灯组
  42. ;            ;  LCALL     LHR                      ;礼花
  43.               LCALL     XZ
  44.               LCALL     TAIJI                    ;太极
  45.               LCALL     SX
  46.               LCALL     JGB
  47.               LJMP      MAINB
  48. ;=======================================
  49. ;-------------花环----------------------
  50. ;=======================================
  51. CSHH:         MOV       LEDR3,#10
  52. CSHH_F:       MOV       LEDR2,#07
  53. CSHH_D:       MOV       LEDR1,#10
  54. CSHH_B:       LCALL     LEDBLACK
  55.               LCALL     LEDBLACK
  56.               LCALL     LEDBLACK
  57.               lcall     colour
  58.               lcall     colour
  59.               MOV       LEDR0,#15
  60. CSHH_1:       LCALL     LEDBLACK
  61.               DJNZ      LEDR0,CSHH_1
  62.               LCALL     LEDBLACK
  63.               LCALL     LEDBLACK
  64.               LCALL     LEDBLACK
  65.               lcall     colour
  66.               lcall     colour
  67.               MOV       LEDR0,#15
  68. CSHH_2:       LCALL     LEDBLACK
  69.               DJNZ      LEDR0,CSHH_2
  70.               LCALL     LEDBLACK
  71.               LCALL     LEDBLACK
  72.               LCALL     LEDBLACK
  73.               lcall     colour
  74.               lcall     colour
  75.               MOV       LEDR0,#15
  76. CSHH_3:       LCALL     LEDBLACK
  77.               DJNZ      LEDR0,CSHH_3
  78.               LCALL     YSA
  79. ;-------------
  80.               LCALL     LEDBLACK
  81.               LCALL     LEDBLACK
  82.               LCALL     LEDBLACK
  83.               LCALL     LEDBLACK
  84.               LCALL     LEDBLACK
  85.               LCALL     LEDBLACK
  86.               LCALL     LEDBLACK
  87.               LCALL     LEDBLACK
  88.               lcall     colour
  89.               lcall     colour
  90.               MOV       LEDR0,#15
  91. CSHH_4:       LCALL     LEDBLACK
  92.               DJNZ      LEDR0,CSHH_4
  93.               LCALL     LEDBLACK
  94.               LCALL     LEDBLACK
  95.               LCALL     LEDBLACK
  96.               lcall     colour
  97.               lcall     colour
  98.               MOV       LEDR0,#15
  99. CSHH_5:       LCALL     LEDBLACK
  100.               DJNZ      LEDR0,CSHH_5
  101.               LCALL     LEDBLACK
  102.               LCALL     LEDBLACK
  103.               LCALL     LEDBLACK
  104.               lcall     colour
  105.               lcall     colour
  106.               MOV       LEDR0,#10
  107. CSHH_6:       LCALL     LEDBLACK
  108.               DJNZ      LEDR0,CSHH_6
  109.               LCALL     YSA
  110. ;------------
  111.               MOV       LEDR0,#10
  112. CSHH_7:       LCALL     LEDBLACK
  113.               DJNZ      LEDR0,CSHH_7
  114.               LCALL     LEDBLACK
  115.               LCALL     LEDBLACK
  116.               LCALL     LEDBLACK
  117.               lcall     colour
  118.               lcall     colour
  119.               MOV       LEDR0,#15
  120. CSHH_8:       LCALL     LEDBLACK
  121.               DJNZ      LEDR0,CSHH_8
  122.               LCALL     LEDBLACK
  123.               LCALL     LEDBLACK
  124.               LCALL     LEDBLACK
  125.               lcall     colour
  126.               lcall     colour
  127.               MOV       LEDR0,#15
  128. CSHH_9:       LCALL     LEDBLACK
  129.               DJNZ      LEDR0,CSHH_9
  130.               LCALL     LEDBLACK
  131.               LCALL     LEDBLACK
  132.               LCALL     LEDBLACK
  133.               lcall     colour
  134.               lcall     colour
  135.               MOV       LEDR0,#1
  136. CSHH_10:      LCALL     LEDBLACK
  137.               DJNZ      LEDR0,CSHH_10
  138.               LCALL     YSA
  139. ;------------
  140.               MOV       LEDR0,#15
  141. CSHH_11:       LCALL     LEDBLACK
  142.               DJNZ      LEDR0,CSHH_11
  143.               LCALL     LEDBLACK
  144.               LCALL     LEDBLACK
  145.               LCALL     LEDBLACK
  146.               lcall     colour
  147.               lcall     colour
  148.               MOV       LEDR0,#15
  149. CSHH_12:       LCALL     LEDBLACK
  150.               DJNZ      LEDR0,CSHH_12
  151.               LCALL     LEDBLACK
  152.               LCALL     LEDBLACK
  153.               LCALL     LEDBLACK
  154.               lcall     colour
  155.               lcall     colour
  156.               MOV       LEDR0,#15
  157. CSHH_13:       LCALL     LEDBLACK
  158.               DJNZ      LEDR0,CSHH_13
  159.               LCALL     LEDBLACK
  160.               LCALL     LEDBLACK
  161.               LCALL     LEDBLACK
  162.               lcall     colour
  163.               lcall     colour
  164.               LCALL     YSA
  165.               DJNZ      LEDR1,CSHH_A
  166.               DJNZ      LEDR2,CSHH_C
  167.               DJNZ      LEDR3,CSHH_E
  168.               RET
  169. CSHH_A:       LJMP      CSHH_B
  170. CSHH_C:       LJMP      CSHH_D
  171. CSHH_E:       LJMP      CSHH_F
  172. ;=======================================
  173. ;-------------彩色园环------------------
  174. ;=======================================
  175. CSYH:         MOV       LEDR1,#10
  176. CSYH_A:       MOV       LEDR0,#12
  177. CSYH_1:       LCALL     LEDR
  178.               LCALL     LEDBLACK
  179.               LCALL     LEDBLACK
  180.               LCALL     LEDBLACK
  181.               LCALL     LEDRG
  182.               DJNZ      LEDR0,CSYH_1
  183.               LCALL     YSB
  184.               MOV       LEDR0,#12
  185. CSYH_2:       LCALL     LEDG
  186.               LCALL     LEDR
  187.               LCALL     LEDBLACK
  188.               LCALL     LEDBLACK
  189.               LCALL     LEDRG
  190.               DJNZ      LEDR0,CSYH_2
  191.               LCALL     YSB
  192.               MOV       LEDR0,#12
  193. CSYH_3:       LCALL     LEDB
  194.               LCALL     LEDG
  195.               LCALL     LEDR
  196.               LCALL     LEDBLACK
  197.               LCALL     LEDRG
  198.               DJNZ      LEDR0,CSYH_3
  199.               LCALL     YSB
  200.               MOV       LEDR0,#12
  201. CSYH_4:       LCALL     LEDRB
  202.               LCALL     LEDB
  203.               LCALL     LEDG
  204.               LCALL     LEDR
  205.               LCALL     LEDRG
  206.               DJNZ      LEDR0,CSYH_4
  207.               LCALL     YSB
  208.               MOV       LEDR0,#12
  209. CSYH_5:       LCALL     LEDBLACK
  210.               LCALL     LEDRB
  211.               LCALL     LEDB
  212.               LCALL     LEDG
  213.               LCALL     LEDRG
  214.               DJNZ      LEDR0,CSYH_5
  215.               LCALL     YSB
  216.               MOV       LEDR0,#12
  217. CSYH_6:       LCALL     LEDBLACK
  218.               LCALL     LEDBLACK
  219.               LCALL     LEDRB
  220.               LCALL     LEDB
  221.               LCALL     LEDRB
  222.               DJNZ      LEDR0,CSYH_6
  223.               LCALL     YSB
  224.               MOV       LEDR0,#12
  225. CSYH_7:       LCALL     LEDBLACK
  226.               LCALL     LEDBLACK
  227.               LCALL     LEDBLACK
  228.               LCALL     LEDRB
  229.               LCALL     LEDRG
  230.               DJNZ      LEDR0,CSYH_7
  231.               LCALL     YSB
  232.               MOV       LEDR0,#12
  233. CSYH_8:       LCALL     LEDBLACK
  234.               LCALL     LEDBLACK
  235.               LCALL     LEDBLACK
  236.               LCALL     LEDBLACK
  237.               LCALL     LEDRG
  238.               DJNZ      LEDR0,CSYH_8
  239.               LCALL     YSB
  240.               MOV       LEDR0,#12
  241. CSYH_11:       LCALL     LEDR
  242.               LCALL     LEDBLACK
  243.               LCALL     LEDBLACK
  244.               LCALL     LEDBLACK
  245.               LCALL     LEDRB
  246.               DJNZ      LEDR0,CSYH_11
  247.               LCALL     YSB
  248.               MOV       LEDR0,#12
  249. CSYH_12:       LCALL     LEDG
  250.               LCALL     LEDR
  251.               LCALL     LEDBLACK
  252.               LCALL     LEDBLACK
  253.               LCALL     LEDRB
  254.               DJNZ      LEDR0,CSYH_12
  255.               LCALL     YSB
  256.               MOV       LEDR0,#12
  257. CSYH_13:       LCALL     LEDB
  258.               LCALL     LEDG
  259.               LCALL     LEDR
  260.               LCALL     LEDBLACK
  261.               LCALL     LEDRB
  262.               DJNZ      LEDR0,CSYH_13
  263.               LCALL     YSB
  264.               MOV       LEDR0,#12
  265. CSYH_14:       LCALL     LEDRG
  266.               LCALL     LEDB
  267.               LCALL     LEDG
  268.               LCALL     LEDR
  269.               LCALL     LEDRB
  270.               DJNZ      LEDR0,CSYH_14
  271.               LCALL     YSB
  272.               MOV       LEDR0,#12
  273. CSYH_15:       LCALL     LEDBLACK
  274.               LCALL     LEDRG
  275.               LCALL     LEDB
  276.               LCALL     LEDG
  277.               LCALL     LEDRB
  278.               DJNZ      LEDR0,CSYH_15
  279.               LCALL     YSB
  280.               MOV       LEDR0,#12
  281. CSYH_16:       LCALL     LEDBLACK
  282.               LCALL     LEDBLACK
  283.               LCALL     LEDRG
  284.               LCALL     LEDB
  285.               LCALL     LEDRB
  286.               DJNZ      LEDR0,CSYH_16
  287.               LCALL     YSB
  288.               MOV       LEDR0,#12
  289. CSYH_17:       LCALL     LEDBLACK
  290.               LCALL     LEDBLACK
  291.               LCALL     LEDBLACK
  292.               LCALL     LEDRG
  293.               LCALL     LEDRB
  294.               DJNZ      LEDR0,CSYH_17
  295.               LCALL     YSB
  296.               MOV       LEDR0,#12
  297. CSYH_18:       LCALL     LEDBLACK
  298.               LCALL     LEDBLACK
  299.               LCALL     LEDBLACK
  300.               LCALL     LEDBLACK
  301.               LCALL     LEDRB
  302.               DJNZ      LEDR0,CSYH_18
  303.               LCALL     YSB
  304.               MOV       LEDR0,#12
  305. CSYH_21:       LCALL     LEDR
  306.               LCALL     LEDBLACK
  307.               LCALL     LEDBLACK
  308.               LCALL     LEDBLACK
  309.               LCALL     LEDRGB
  310.               DJNZ      LEDR0,CSYH_21
  311.               LCALL     YSB
  312.               MOV       LEDR0,#12
  313. CSYH_22:       LCALL     LEDG
  314.               LCALL     LEDR
  315.               LCALL     LEDBLACK
  316.               LCALL     LEDBLACK
  317.               LCALL     LEDRGB
  318.               DJNZ      LEDR0,CSYH_22
  319.               LCALL     YSB
  320.               MOV       LEDR0,#12
  321. CSYH_23:       LCALL     LEDB
  322.               LCALL     LEDG
  323.               LCALL     LEDR
  324.               LCALL     LEDBLACK
  325.               LCALL     LEDRGB
  326.               DJNZ      LEDR0,CSYH_23
  327.               LCALL     YSB
  328.               MOV       LEDR0,#12
  329. CSYH_24:       LCALL     LEDRB
  330.               LCALL     LEDB
  331.               LCALL     LEDG
  332.               LCALL     LEDR
  333.               LCALL     LEDRGB
  334.               DJNZ      LEDR0,CSYH_24
  335.               LCALL     YSB
  336.               MOV       LEDR0,#12
  337. CSYH_25:       LCALL     LEDBLACK
  338.               LCALL     LEDRB
  339.               LCALL     LEDB
  340.               LCALL     LEDG
  341.               LCALL     LEDRGB
  342.               DJNZ      LEDR0,CSYH_25
  343.               LCALL     YSB
  344.               MOV       LEDR0,#12
  345. CSYH_26:       LCALL     LEDBLACK
  346.               LCALL     LEDBLACK
  347.               LCALL     LEDRB
  348.               LCALL     LEDB
  349.               LCALL     LEDRGB
  350.               DJNZ      LEDR0,CSYH_26
  351.               LCALL     YSB
  352.               MOV       LEDR0,#12
  353. CSYH_27:       LCALL     LEDBLACK
  354.               LCALL     LEDBLACK
  355.               LCALL     LEDBLACK
  356.               LCALL     LEDRB
  357.               LCALL     LEDRGB
  358.               DJNZ      LEDR0,CSYH_27
  359.               LCALL     YSB
  360.               MOV       LEDR0,#12
  361. CSYH_28:       LCALL     LEDBLACK
  362.               LCALL     LEDBLACK
  363.               LCALL     LEDBLACK
  364.               LCALL     LEDBLACK
  365.               LCALL     LEDRGB
  366.               DJNZ      LEDR0,CSYH_28
  367.               LCALL     YSB
  368.               MOV       LEDR0,#12
  369.               DJNZ      LEDR1,CSYH_B
  370.               RET
  371. CSYH_B:       LJMP      CSYH_A   
  372. ;=======================================
  373. ;--------------示例礼花---------------------
  374. ;=======================================
  375. qqlh:         MOV       LEDR3,#10       ;七色重复次数
  376. qqlhqq:       mov       ledr2,#7        ;颜色组红，绿，蓝，黄，粉，青，白
  377. qqlhq:        MOV       LEDR1,#10       ;单色重复次数
  378. qqlhy:        mov       ledr0,#12       ;12组
  379. qqlhy1:       lcall     colour          ;颜色显示1
  380.               lcall     ledblack
  381.               lcall     ledblack
  382.               lcall     ledblack
  383.               lcall     ledblack
  384.               djnz      ledr0,qqlhy1
  385.               lcall     ysa
  386.               mov       ledr0,#12
  387. qqlhe:        lcall     ledblack           
  388.               lcall     colour          ;2
  389.               lcall     ledblack
  390.               lcall     ledblack
  391.               lcall     ledblack
  392.               djnz      ledr0,qqlhe
  393.               lcall     ysa
  394.               mov       ledr0,#12
  395. qqlhs:        lcall     ledblack
  396.               lcall     ledblack
  397.               lcall     colour          ;3
  398.               lcall     ledblack
  399.               lcall     ledblack
  400.               djnz      ledr0,qqlhs
  401.               lcall     ysa
  402.               mov       ledr0,#12
  403. qqlhss:       lcall     ledblack
  404.               lcall     ledblack
  405.               lcall     ledblack
  406.               lcall     colour          ;4
  407.               lcall     ledblack
  408.               djnz      ledr0,qqlhss
  409.               lcall     ysa
  410.               mov       ledr0,#12
  411. qqlhw:        lcall     ledblack
  412.               lcall     ledblack
  413.               lcall     ledblack
  414.               lcall     ledblack
  415.               lcall     colour          ;5
  416.               djnz      ledr0,qqlhw
  417.               lcall     ysa
  418.               djnz      ledr1,QQLHQ0
  419.               DJNZ      LEDR2,QQLHQ1
  420.               DJNZ      LEDR3,QQLHQ2
  421.               ret
  422. QQLHQ0:       LJMP      QQLHY
  423. QQLHQ1:       LJMP      QQLHQ
  424. QQLHQ2:       LJMP      QQLHQQ
  425. ;--------------------------------------
  426. CSBH:         MOV       LEDR3,#10
  427. CSBHA_4:      MOV       LEDR2,#08
  428. CSBHA_2:      MOV       LEDR1,#01
  429. CSBH_1:       lcall     CSBH1           ;颜色显示1
  430.               DJNZ      LEDR1,CSBH_1
  431.               MOV       LEDR1,#11
  432. CSBH_2:       LCALL     CSBH2
  433.               DJNZ      LEDR1,CSBH_2
  434.               lcall     ysb
  435.               MOV       LEDR1,#02
  436. CSBH_3:       lcall     CSBH1           ;颜色显示1
  437.               DJNZ      LEDR1,CSBH_3
  438.               MOV       LEDR1,#10
  439. CSBH_4:       LCALL     CSBH2
  440.               DJNZ      LEDR1,CSBH_4
  441.               lcall     ysb
  442.               MOV       LEDR1,#03
  443. CSBH_5:       lcall     CSBH1           ;颜色显示1
  444.               DJNZ      LEDR1,CSBH_5
  445.               MOV       LEDR1,#9
  446. CSBH_6:       LCALL     CSBH2
  447.               DJNZ      LEDR1,CSBH_6
  448.               lcall     ysb
  449.               MOV       LEDR1,#04
  450. CSBH_7:       lcall     CSBH1           ;颜色显示1
  451.               DJNZ      LEDR1,CSBH_7
  452.               MOV       LEDR1,#8
  453. CSBH_8:       LCALL     CSBH2
  454.               DJNZ      LEDR1,CSBH_8
  455.               lcall     ysb
  456.               MOV       LEDR1,#05
  457. CSBH_9:       lcall     CSBH1           ;颜色显示1
  458.               DJNZ      LEDR1,CSBH_9
  459.               MOV       LEDR1,#7
  460. CSBH_A:       LCALL     CSBH2
  461.               DJNZ      LEDR1,CSBH_A
  462.               lcall     ysb
  463.               MOV       LEDR1,#06
  464. CSBH_B:       lcall     CSBH1           ;颜色显示1
  465.               DJNZ      LEDR1,CSBH_B
  466.               MOV       LEDR1,#6
  467. CSBH_C:       LCALL     CSBH2
  468.               DJNZ      LEDR1,CSBH_C
  469.               lcall     ysb
  470.               MOV       LEDR1,#07
  471. CSBH_D:       lcall     CSBH1           ;颜色显示1
  472.               DJNZ      LEDR1,CSBH_D
  473.               MOV       LEDR1,#05
  474. CSBH_E:       LCALL     CSBH2
  475.               DJNZ      LEDR1,CSBH_E
  476.               lcall     ysb
  477.               MOV       LEDR1,#08
  478. CSBH_F:       lcall     CSBH1           ;颜色显示1
  479.               DJNZ      LEDR1,CSBH_F
  480.               MOV       LEDR1,#04
  481. CSBH_G:       LCALL     CSBH2
  482.               DJNZ      LEDR1,CSBH_G
  483.               lcall     ysb
  484.               MOV       LEDR1,#09
  485. CSBH_H:       lcall     CSBH1           ;颜色显示1
  486.               DJNZ      LEDR1,CSBH_H
  487.               MOV       LEDR1,#03
  488. CSBH_I:       LCALL     CSBH2
  489.               DJNZ      LEDR1,CSBH_I
  490.               lcall     ysb
  491.               MOV       LEDR1,#10
  492. CSBH_J:       lcall     CSBH1           ;颜色显示1
  493.               DJNZ      LEDR1,CSBH_J
  494.               MOV       LEDR1,#02
  495. CSBH_K:       LCALL     CSBH2
  496.               DJNZ      LEDR1,CSBH_K
  497.               lcall     ysb
  498.               MOV       LEDR1,#11
  499. CSBH_L:       lcall     CSBH1           ;颜色显示1
  500.               DJNZ      LEDR1,CSBH_L
  501.               MOV       LEDR1,#1
  502. CSBH_N:       LCALL     CSBH2
  503.               DJNZ      LEDR1,CSBH_N
  504.               lcall     ysb
  505.               lcall     ysb
  506.               lcall     ysb
  507.               lcall     ysb
  508.               lcall     ysb
  509.               lcall     ysb
  510. ;              MOV       LEDR1,#12
  511. ;CSBH_M:       lcall     CSBH1           ;颜色显示1
  512. ;              lcall     ysb
  513. ;              DJNZ      LEDR1,CSBH_M
  514.               DJNZ      LEDR2,CSBHA_1
  515.               MOV       LEDR2,#08
  516.               DJNZ      LEDR3,CSBHA_1
  517.               RET
  518. CSBHA_1:      LJMP      CSBHA_2
  519. CSBHA_3:      LJMP      CSBHA_4
  520. ;-------------
  521. CSBH1:        MOV       LEDR0,#05
  522.               MOV       A,LEDR2
  523.               PUSH      ACC
  524.               DEC       A
  525.               JNZ       CSBH1_2
  526.               MOV       A,#08
  527. CSBH1_2:      MOV       LEDR2,A
  528. CSBH1_1:      lcall     colour          ;颜色显示1
  529.               DJNZ      LEDR0,CSBH1_1
  530.               POP       ACC
  531.               MOV       LEDR2,A
  532.               RET
  533. CSBH2:        MOV       LEDR0,#05
  534. CSBH2_1:      lcall     colour
  535.               DJNZ      LEDR0,CSBH2_1
  536.               RET
  537. ;-------------七彩礼花------------------
  538. qqlha:        MOV       LEDR3,#3       ;七色重复次数
  539.               mov       ledr2,#7        ;颜色组红，绿，蓝，黄，粉，青，白
  540. qqlhqa:       MOV       LEDR1,#10       ;单色重复次数
  541. qqlhya:       mov       ledr0,#12       ;12组
  542.               LCALL     LED_LH          ;颜色组红，绿，蓝，黄，粉，青，白
  543. qqlhy1a:      lcall     colour          ;颜色显示1
  544.               lcall     ledblack
  545.               lcall     ledblack
  546.               lcall     ledblack
  547.               lcall     ledblack
  548.               djnz      ledr0,qqlhy1A
  549.               lcall     ysa
  550.               mov       ledr0,#12
  551.               LCALL     LED_LH          ;颜色组红，绿，蓝，黄，粉，青，白           
  552. qqlheA:       lcall     ledblack
  553.               lcall     colour          ;2
  554.               lcall     ledblack
  555.               lcall     ledblack
  556.               lcall     ledblack
  557.               djnz      ledr0,qqlheA
  558.               lcall     ysa
  559.               mov       ledr0,#12
  560.               LCALL     LED_LH          ;颜色组红，绿，蓝，黄，粉，青，白qqlhsA:       lcall     ledblack
  561. qqlhsA:       lcall     ledblack
  562.               lcall     ledblack
  563.               lcall     colour          ;3
  564.               lcall     ledblack
  565.               lcall     ledblack
  566.               djnz      ledr0,qqlhsA
  567.               lcall     ysa
  568.               mov       ledr0,#12
  569.               LCALL     LED_LH          ;颜色组红，绿，蓝，黄，粉，青，白qqlhssA:      lcall     ledblack
  570. qqlhssA:      lcall     ledblack
  571.               lcall     ledblack
  572.               lcall     ledblack
  573.               lcall     colour          ;4
  574.               lcall     ledblack
  575.               djnz      ledr0,qqlhssA
  576.               lcall     ysa
  577.               mov       ledr0,#12
  578.               LCALL     LED_LH          ;颜色组红，绿，蓝，黄，粉，青，白qqlhwA:       lcall     ledblack
  579. qqlhwA:       lcall     ledblack
  580.               lcall     ledblack
  581.               lcall     ledblack
  582.               lcall     ledblack
  583.               lcall     colour          ;5
  584.               djnz      ledr0,qqlhwA
  585.               lcall     ysa
  586.               djnz      ledr1,QQLHQ0A
  587.               DJNZ      LEDR3,QQLHQ2A
  588.               ret
  589. QQLHQ0A:      LJMP      QQLHYA
  590. QQLHQ2A:      LJMP      QQLHQA
  591. ;-------------
  592. LED_LH:       MOV       A,LEDR2
  593.               DEC       A
  594.               JZ        LED_LHH
  595.               MOV       LEDR2,A
  596.               RET
  597. LED_LHH:      MOV       LEDR2,#07H
  598.               RET

  600. ;-------------根据颜色参数选择-------------------
  601. colour:       MOV       A,LEDR2
  602.               CJNE      A,#08H,COLOUH
  603.               lcall     ledblack                 ;黑
  604.               RET

  606. COLOUH:       CJNE      A,#07H,COLOUG
  607.               lcall     ledr                     ;红
  608.               RET
  609. coloug:       CJNE      A,#06H,COLOUB
  610.               lcall     ledg                     ;绿
  611.               RET
  612. coloub:       CJNE      A,#05H,COLOURG
  613.               lcall     ledb                     ;蓝
  614.               RET

  616. colourg:      CJNE      A,#04H,COLOURB
  617.               lcall     ledrg                    ;黄
  618.               RET

  620. colourb:      CJNE      A,#03H,COLOUGB
  621.               lcall     ledrb                    ;粉红
  622.               RET

  624. colougb:      CJNE      A,#02H,COLOURGB
  625.               lcall     ledgb                    ;青
  626.               ret
  627. colourgb:     CJNE      A,#01H,COLOURET
  628.               lcall     ledrgb                   ;白
  629. COLOURET:     ret
  630. ;--------------------------------------------------
  631. ledlh:        mov       ledr1,#30
  632.               mov       ledr0,#12
  633. led_lh1:      lcall     ledr
  634.               lcall     ledblack
  635.               lcall     ledblack
  636.               lcall     ledblack
  637.               lcall     ledblack
  638.               djnz      ledr0,led_lh1
  639.               lcall     ysb
  640.               mov       ledr0,#12


  643. led_lh2:      lcall     ledg
  644.               lcall     ledr
  645.               lcall     ledblack
  646.               lcall     ledblack
  647.               lcall     ledblack
  648.               djnz      ledr0,led_lh2
  649.               lcall     ysb
  650.               mov       ledr0,#12

  652. led_lh3:      lcall     ledb
  653.               lcall     ledg
  654.               lcall     ledr
  655.               lcall     ledblack
  656.               lcall     ledblack
  657.               djnz      ledr0,led_lh3
  658.               lcall     ysb
  659.               mov       ledr0,#12

  661. led_lh4:      lcall     ledrg
  662.               lcall     ledb
  663.               lcall     ledg
  664.               lcall     ledr
  665.               lcall     ledblack
  666.               djnz      ledr0,led_lh4
  667.               lcall     ysb
  668. led_lhe:      mov       ledr0,#12

  670. led_lh5:      lcall     ledrb
  671.               lcall     ledrg
  672.               lcall     ledb
  673.               lcall     ledg
  674.               lcall     ledr
  675.               djnz      ledr0,led_lh5
  676.               lcall     ysb
  677.               mov       ledr0,#12

  679. led_lh6:      lcall     ledgb
  680.               lcall     ledrb
  681.               lcall     ledrg
  682.               lcall     ledb
  683.               lcall     ledg
  684.               djnz      ledr0,led_lh6
  685.               lcall     ysb
  686.               mov       ledr0,#12

  688. led_lh7:      lcall     ledrgb
  689.               lcall     ledgb
  690.               lcall     ledrb
  691.               lcall     ledrg
  692.               lcall     ledb
  693.               djnz      ledr0,led_lh7
  694.               lcall     ysb
  695.               mov       ledr0,#12

  697. led_lh8:      lcall     ledr
  698.               lcall     ledrgb
  699.               lcall     ledgb
  700.               lcall     ledrb
  701.               lcall     ledrg
  702.               djnz      ledr0,led_lh8
  703.               lcall     ysb
  704.               mov       ledr0,#12

  706. led_lh9:      lcall     ledg
  707.               lcall     ledr
  708.               lcall     ledrgb
  709.               lcall     ledgb
  710.               lcall     ledrb
  711.               djnz      ledr0,led_lh9
  712.               lcall     ysb
  713.               mov       ledr0,#12

  715. led_lha:      lcall     ledb
  716.               lcall     ledg
  717.               lcall     ledr
  718.               lcall     ledrgb
  719.               lcall     ledgb
  720.               djnz      ledr0,led_lha
  721.               lcall     ysb
  722.               mov       ledr0,#12

  724. led_lhb:      lcall     ledrg
  725.               lcall     ledb
  726.               lcall     ledg
  727.               lcall     ledr
  728.               lcall     ledrgb
  729.               djnz      ledr0,led_lhb
  730.               lcall     ysb
  731.               djnz      ledr1,led_lhd
  732.               ret
  733. led_lhd:      ljmp      led_lhe

  735. ;--------------------------------------------------
  736. ledlha:       mov       ledr3,#30
  737. led_lha7:     mov       ledr2,#7
  738. led_lha6:     mov       ledr0,#12
  739. led_lha1:     lcall     colour
  740.               lcall     ledblack
  741.               lcall     ledblack
  742.               lcall     ledblack
  743.               lcall     ledblack
  744.               djnz      ledr0,led_lha1
  745.               lcall     ysb
  746.               mov       ledr0,#12


  749. led_lha2:     lcall     colour
  750.               lcall     colour
  751.               lcall     ledblack
  752.               lcall     ledblack
  753.               lcall     ledblack
  754.               djnz      ledr0,led_lha2
  755.               lcall     ysb
  756.               mov       ledr0,#12

  758. led_lha3:     lcall     colour
  759.               lcall     colour
  760.               lcall     colour
  761.               lcall     ledblack
  762.               lcall     ledblack
  763.               djnz      ledr0,led_lha3
  764.               lcall     ysb
  765.               mov       ledr0,#12

  767. led_lha4:     lcall     colour
  768.               lcall     colour
  769.               lcall     colour
  770.               lcall     colour
  771.               lcall     ledblack
  772.               djnz      ledr0,led_lha4
  773.               lcall     ysb
  774.               mov       ledr0,#12

  776. led_lha5:     lcall     colour
  777.               lcall     colour
  778.               lcall     colour
  779.               lcall     colour
  780.               lcall     colour
  781.               djnz      ledr0,led_lha5
  782.               lcall     ysb
  783.               djnz      ledr2,led_lha6
  784.               djnz      ledr3,led_lh7a
  785.               ret
  786. led_lh7a:     ljmp      led_lha7
  787. ;==================================================
  788. ;---------------60块2811显示,----------------------
  789. ;==================================================
  790. LEDR60:        MOV      R0,#60                     ;起始不点亮数60－N=59
  791.                MOV      R1,#01H                    ;起始点亮数N=1更改此数据可以每次点亮多个灯板
  792.                MOV      R3,#00H
  793. LEDR60_3:      CLR      C                          ;但必须能被60整除
  794.                MOV      A,R0
  795.                SUBB     A,R1
  796.                MOV      R0,A
  797.                MOV      R2,A
  798.                MOV      A,R1
  799.                ADD      A,R3
  800.                MOV      R3,A
  801.                MOV      R4,A
  802. LEDR60_1:      LCALL    LEDR
  803.                DJNZ     R4,LEDR60_1
  804. LEDR60_2:      LCALL    LEDBLACK
  805.                DJNZ     R2,LEDR60_2
  806.                LCALL    YSA
  807.                MOV      B,#00H
  808.                MOV      A,R0
  809.                CJNE     A,B,LEDR60_3
  810.                LCALL    YS
  811.                RET
  812. ;-------------------------外面粉红里面旋转-------------
  813. WFLZ:  MOV   LEDR0,#39
  814. WFLZ0:




  819. WFLZ01:
  820. WFLZ02:       LCALL     WFLZ1
  821.               LCALL     WFLZ11
  822.               LCALL     WFLZ12
  823.               LCALL     WFLZ13
  824.               LCALL     WFLZ14
  825.               LCALL     WFLZ14
  826.               RET

  828. WFLZ1:        LCALL     LEDR
  829.               LCALL     LEDBLACK
  830.               LCALL     LEDBLACK
  831.               LCALL     LEDBLACK
  832.               LCALL     LEDRB
  833.               RET

  835. WFLZ11:       LCALL     LEDBLACK
  836.               LCALL     LEDR
  837.               LCALL     LEDBLACK
  838.               LCALL     LEDBLACK
  839.               LCALL     LEDRB
  840.               RET

  842. WFLZ12:       LCALL     LEDBLACK
  843.               LCALL     LEDBLACK
  844.               LCALL     LEDR
  845.               LCALL     LEDBLACK
  846.               LCALL     LEDRB
  847.               RET

  849. WFLZ13:       LCALL     LEDBLACK
  850.               LCALL     LEDBLACK
  851.               LCALL     LEDBLACK
  852.               LCALL     LEDR
  853.               LCALL     LEDRB
  854.               RET

  856. ;--------COPY------
  857. WFLZ14:       LCALL     LEDBLACK
  858.               LCALL     LEDBLACK
  859.               LCALL     LEDBLACK
  860.               LCALL     LEDBLACK
  861.               LCALL     LEDRB
  862.               RET

  864. ;---------------------礼花-------------------------------
  865. LHR:          MOV       LEDR0,#12                ;礼花红
  866. LH1:          LCALL     ledBLACK                 ;第一灯位
  867.               LCALL     ledBLACK
  868.               LCALL     ledBLACK
  869.               LCALL     ledBLACK                 ;第四灯位
  870.               LCALL     LEDR                     ;第五灯位
  871.               DJNZ      LEDR0,LH1                ;共十二组
  872.               LCALL     YSA
  873.               MOV       LEDR0,#12

  875. LH2:          LCALL     ledBLACK
  876.               LCALL     ledBLACK
  877.               LCALL     ledBLACK
  878.               LCALL     ledr
  879.               LCALL     ledBLACK
  880.               DJNZ      LEDR0,LH2
  881.               LCALL     YSA
  882.               MOV      LEDR0,#7

  884. LH3:  
  885.        LCALL    ledBLACK
  886.        LCALL    ledBLACK
  887.        LCALL    ledr
  888.        LCALL    ledBLACK
  889.        LCALL    ledBLACK
  890.         DJNZ      LEDR0,LH3
  891.        LCALL  YSA
  892.         MOV      LEDR0,#12
  893. LH4:  
  894.        LCALL    ledBLACK
  895.        LCALL    ledr
  896.        LCALL    ledBLACK
  897.        LCALL    ledBLACK
  898.        LCALL    ledBLACK
  899.         DJNZ      LEDR0,LH4
  900.        LCALL  YSA
  901.         MOV      LEDR0,#12
  902. LH5:  
  903.        LCALL    ledr
  904.        LCALL    ledBLACK
  905.        LCALL    ledBLACK
  906.        LCALL    ledBLACK
  907.        LCALL    ledBLACK
  908.          DJNZ      LEDR0,LH5
  909.        LCALL  YSA
  910. LHB:    MOV      LEDR0,#12;兰
  911. LHB1:  
  912.        LCALL    ledB
  913.        LCALL    ledBLACK
  914.        LCALL    ledBLACK
  915.        LCALL    ledBLACK
  916.        LCALL    ledBLACK
  917.         DJNZ      LEDR0,LHB1
  918.        LCALL  YSA
  919.     MOV      LEDR0,#12

  921. LHB2:  
  922.        LCALL    ledBLACK
  923.        LCALL    ledB
  924.        LCALL    ledBLACK
  925.        LCALL    ledBLACK
  926.        LCALL    ledBLACK
  927.         DJNZ      LEDR0,LHB2
  928.        LCALL  YSA
  929.     MOV      LEDR0,#12

  931. LHB3:  
  932.        LCALL    ledBLACK
  933.        LCALL    ledBLACK
  934.        LCALL    ledB
  935.        LCALL    ledBLACK
  936.        LCALL    ledBLACK
  937.         DJNZ      LEDR0,LHB3
  938.        LCALL  YSA
  939.         MOV      LEDR0,#12
  940. LHB4:  
  941.        LCALL    ledBLACK
  942.        LCALL    ledBLACK
  943.        LCALL    ledBLACK
  944.        LCALL    ledB
  945.        LCALL    ledBLACK
  946.         DJNZ      LEDR0,LHB4
  947.        LCALL  YSA
  948.         MOV      LEDR0,#12
  949. LHB5:  
  950.        LCALL    ledBLACK
  951.        LCALL    ledBLACK
  952.        LCALL    ledBLACK
  953.        LCALL    ledBLACK
  954.        LCALL    ledB
  955.         DJNZ      LEDR0,LHB5
  956.        LCALL  YSA

  958. LHG:    MOV      LEDR0,#121;绿
  959. LHG1:  
  960.        LCALL    ledG
  961.        LCALL    ledBLACK
  962.        LCALL    ledBLACK
  963.        LCALL    ledBLACK
  964.        LCALL    ledBLACK
  965.         DJNZ      LEDR0,LHG1
  966.        LCALL  YSA
  967.     MOV      LEDR0,#12

  969. LHG2:  
  970.        LCALL    ledBLACK
  971.        LCALL    ledG
  972.        LCALL    ledBLACK
  973.        LCALL    ledBLACK
  974.        LCALL    ledBLACK
  975.        DJNZ      LEDR0,LHG2
  976.        LCALL  YSA
  977.     MOV      LEDR0,#12

  979. LHG3:  
  980.        LCALL    ledBLACK
  981.        LCALL    ledBLACK
  982.        LCALL    ledG
  983.        LCALL    ledBLACK
  984.        LCALL    ledBLACK
  985.         DJNZ      LEDR0,LHG3
  986.        LCALL  YSA
  987.         MOV      LEDR0,#12
  988. LHG4:  
  989.        LCALL    ledBLACK
  990.        LCALL    ledBLACK
  991.        LCALL    ledBLACK
  992.        LCALL    ledG
  993.        LCALL    ledBLACK
  994.        DJNZ      LEDR0,LHG4
  995.        LCALL  YSA
  996.         MOV      LEDR0,#12
  997. LHG5:  
  998.        LCALL    ledBLACK
  999.        LCALL    ledBLACK
  1000.        LCALL    ledBLACK
  1001.        LCALL    ledBLACK
  1002.        LCALL    ledG
  1003.         DJNZ      LEDR0,LHG5
  1004.        LCALL  YSA
  1005. LHRB:    MOV      LEDR0,#12;粉
  1006. LHRB1:  
  1007.        LCALL    ledRB
  1008.        LCALL    ledBLACK
  1009.        LCALL    ledBLACK
  1010.        LCALL    ledBLACK
  1011.        LCALL    ledBLACK
  1012.         DJNZ      LEDR0,LHRB1
  1013.        LCALL  YSA
  1014.     MOV      LEDR0,#12

  1016. LHRB2:  
  1017.        LCALL    ledBLACK
  1018.        LCALL    ledG
  1019.        LCALL    ledBLACK
  1020.        LCALL    ledBLACK
  1021.        LCALL    ledBLACK
  1022.         DJNZ      LEDR0,LHRB2
  1023.        LCALL  YSA
  1024.     MOV      LEDR0,#12

  1026. LHRB3:  
  1027.        LCALL    ledBLACK
  1028.        LCALL    ledBLACK
  1029.        LCALL    ledG
  1030.        LCALL    ledBLACK
  1031.        LCALL    ledBLACK
  1032.         DJNZ      LEDR0,LHRB3
  1033.        LCALL  YSA
  1034.         MOV      LEDR0,#12
  1035. LHRB4:  
  1036.        LCALL    ledBLACK
  1037.        LCALL    ledBLACK
  1038.        LCALL    ledBLACK
  1039.        LCALL    ledG
  1040.        LCALL    ledBLACK
  1041.        DJNZ      LEDR0,LHRB4
  1042.        LCALL  YSA
  1043.         MOV      LEDR0,#12
  1044. LHRB5:  
  1045.        LCALL    ledBLACK
  1046.        LCALL    ledBLACK
  1047.        LCALL    ledBLACK
  1048.        LCALL    ledBLACK
  1049.        LCALL    ledG
  1050.         DJNZ      LEDR0,LHRB5
  1051.        LCALL  YSA
  1052. RET
  1053. ;-----------------太极---------------------
  1054. TAIJI: MOV LEDR1,#20
  1055. TAIJIII:LCALL  TJ00
  1056.         LCALL  TJ01
  1057.         LCALL  TJ02
  1058.         LCALL  TJ03
  1059.         LCALL  TJ04
  1060.         LCALL  TJ05
  1061.         LCALL  TJ06
  1062.         LCALL  TJ07
  1063.         LCALL  TJ08
  1064.         LCALL  TJ09
  1065.         LCALL  TJ010
  1066.         LCALL  TJ011
  1067. DJNZ  LEDR1,TAIJIII
  1068. RET
  1069. TJ0:   LCALL    LEDB
  1070.        LCALL    LEDB
  1071.        LCALL    LEDB
  1072.        LCALL    LEDB
  1073.        LCALL    LEDRB
  1074. RET
  1075. TJ1:   LCALL    LEDB
  1076.        LCALL    LEDB
  1077.        LCALL    LEDB
  1078.        LCALL    LEDRB
  1079.        LCALL    LEDRB
  1080. RET
  1081. TJ2:   LCALL    LEDB
  1082.        LCALL    LEDB
  1083.        LCALL    LEDRB
  1084.        LCALL    LEDRB
  1085.        LCALL    LEDRB
  1086. RET

  1088. TJ3:   LCALL    LEDB
  1089.        LCALL    LEDRB
  1090.        LCALL    LEDRB
  1091.        LCALL    LEDRB
  1092.        LCALL    LEDRB
  1093. RET
  1094. TJ4:   LCALL    LEDRB
  1095.        LCALL    LEDRB
  1096.        LCALL    LEDRB
  1097.        LCALL    LEDRB
  1098.        LCALL    LEDRB
  1099. RET

  1101. RET
  1102. TJ5:   LCALL    LEDRB
  1103.        LCALL    LEDRB
  1104.        LCALL    LEDRB
  1105.        LCALL    LEDRB
  1106.        LCALL    LEDB
  1107.        LCALL    LEDB   
  1108. RET
  1109. TJ6:   LCALL    LEDRB
  1110.        LCALL    LEDRB
  1111.        LCALL    LEDRB
  1112.        LCALL    LEDB
  1113.        LCALL    LEDB
  1114. RET
  1115. TJ7:   LCALL    LEDRB
  1116.        LCALL    LEDRB
  1117.        LCALL    LEDB
  1118.        LCALL    LEDB
  1119.        LCALL    LEDB
  1120. RET
  1121. TJ8:   LCALL    LEDRB
  1122.        LCALL    LEDB
  1123.        LCALL    LEDB
  1124.        LCALL    LEDB
  1125.        LCALL    LEDB
  1126. RET

  1128. TJ9:   LCALL    LEDB
  1129.        LCALL    LEDB
  1130.        LCALL    LEDB
  1131.        LCALL    LEDB
  1132.        LCALL    LEDB
  1133. RET






  1140. TAIJIX1: LCALL TJ0
  1141.          LCALL TJ1
  1142.          LCALL TJ2
  1143.          LCALL TJ3
  1144.          LCALL TJ4
  1145.          LCALL TJ5
  1146.          LCALL TJ6
  1147.          LCALL TJ7
  1148.          LCALL TJ8
  1149.          LCALL TJ9
  1150. LCALL YSA
  1151. RET
  1152. TJ00: LCALL  TAIJIX1
  1153. RET

  1155. TJ01: LCALL TJ9
  1156.       LCALL TJ00
  1157. RET
  1158. TJ02: LCALL TJ9
  1159.       LCALL TJ01
  1160. RET
  1161. TJ03: LCALL TJ8
  1162.       LCALL TJ02
  1163. RET
  1164. TJ04: LCALL TJ7
  1165.       LCALL TJ03
  1166. RET
  1167. TJ05: LCALL TJ6
  1168.       LCALL TJ04
  1169. RET
  1170. TJ06: LCALL TJ5
  1171.       LCALL TJ05
  1172. RET
  1173. TJ07: LCALL TJ4
  1174.       LCALL TJ06
  1175. RET
  1176. TJ08: LCALL TJ4
  1177.       LCALL TJ07
  1178. RET
  1179. TJ09: LCALL TJ3
  1180.       LCALL TJ08
  1181. RET
  1182. TJ010: LCALL TJ2
  1183.       LCALL TJ09
  1184. RET
  1185. TJ011: LCALL TJ1
  1186.       LCALL TJ010
  1187. RET
  1188. ;-----------------旋转-------------
  1189. XZ:   MOV  LEDR1,#30

  1191. XZ99:LCALL XZ01
  1192.      LCALL XZ02
  1193.      LCALL XZ03
  1194.      LCALL XZ04
  1195.      LCALL XZ05
  1196.      LCALL XZ06
  1197. LCALL   YSA
  1198. DJNZ LEDR1,XZ99
  1199. RET

  1201. XZ01:LCALL XZ0
  1202. RET
  1203. XZ02:LCALL XZ6
  1204.      LCALL XZ01
  1205. RET
  1206. XZ03:LCALL XZ5
  1207.      LCALL XZ02
  1208. RET
  1209. XZ04:LCALL XZ4
  1210.      LCALL XZ03
  1211. RET
  1212. XZ05:LCALL XZ3
  1213.      LCALL XZ04
  1214. RET
  1215. XZ06:LCALL XZ2
  1216.      LCALL XZ05
  1217. RET

  1219. XZ0: LCALL XZ1
  1220.      LCALL XZ2
  1221.      LCALL XZ3
  1222.      LCALL XZ4
  1223.      LCALL XZ5
  1224.      LCALL XZ6
  1225.      LCALL XZ1
  1226.      LCALL XZ2
  1227.      LCALL XZ3
  1228.      LCALL XZ4
  1229.      LCALL XZ5
  1230.      LCALL XZ6
  1231. LCALL YSA
  1232. RET




  1237. XZ1:  LCALL   LEDB
  1238.       LCALL   LEDB
  1239.       LCALL   LEDB
  1240.       LCALL   LEDB
  1241.       LCALL   LEDRB
  1242. RET
  1243. XZ2:  LCALL   LEDB
  1244.       LCALL   LEDB
  1245.       LCALL   LEDB
  1246.       LCALL   LEDRB
  1247.       LCALL   LEDB
  1248. RET
  1249. XZ3:  LCALL   LEDB
  1250.       LCALL   LEDB
  1251.       LCALL   LEDRB
  1252.       LCALL   LEDB
  1253.       LCALL   LEDB
  1254. RET
  1255. XZ4:  LCALL   LEDB
  1256.       LCALL   LEDRB
  1257.       LCALL   LEDB
  1258.       LCALL   LEDB
  1259.       LCALL   LEDB
  1260. RET
  1261. XZ5:  LCALL   LEDRB
  1262.       LCALL   LEDB
  1263.       LCALL   LEDB
  1264.       LCALL   LEDB
  1265.       LCALL   LEDB
  1266. RET
  1267. XZ6:  LCALL   LEDB
  1268.       LCALL   LEDB
  1269.       LCALL   LEDB
  1270.       LCALL   LEDB
  1271.       LCALL   LEDB
  1272. RET
  1273. ;================================================
  1274. ;----------三旋------------------
  1275. ;================================================
  1276. SX:           MOV       LEDR0,#30
  1277. SX0:          LCALL     SX02
  1278.               LCALL     SX03
  1279.               LCALL     SX04
  1280.               LCALL     SX05
  1281.               LCALL     SX06
  1282.               LCALL     SX07
  1283.               LCALL     SX08
  1284.               LCALL     SX09
  1285.               LCALL     SX010
  1286.               LCALL     SX011
  1287.               LCALL     SX012
  1288.               LCALL     SX013
  1289.               LCALL     YSA
  1290.               DJNZ      LEDR0,SX0
  1291.               RET
  1292. ;-------------
  1293. SX02:         LCALL     SX01  
  1294.               RET
  1295. ;-------------
  1296. SX03:         LCALL     SX12
  1297.               LCALL     SX02  
  1298.               RET
  1299. ;-------------
  1300. SX04:         LCALL     SX11
  1301.               LCALL     SX03  
  1302.               RET
  1303. ;-------------
  1304. SX05:         LCALL     SX10
  1305.               LCALL     SX04  
  1306.               RET
  1307. ;-------------
  1308. SX06:         LCALL     SX9
  1309.               LCALL     SX05  
  1310.               RET
  1311. ;-------------
  1312. SX07:         LCALL     SX8
  1313.               LCALL     SX06  
  1314.               RET
  1315. ;-------------
  1316. SX08:         LCALL     SX7
  1317.               LCALL     SX07  
  1318.               RET
  1319. ;-------------
  1320. SX09:         LCALL     SX6
  1321.               LCALL     SX08  
  1322.               RET
  1323. ;-------------
  1324. SX010:        LCALL     SX5
  1325.               LCALL     SX09  
  1326.               RET
  1327. ;-------------
  1328. SX011:        LCALL     SX4
  1329.               LCALL     SX010  
  1330.               RET
  1331. ;-------------
  1332. SX012:        LCALL     SX3
  1333.               LCALL     SX011  
  1334.               RET
  1335. ;-------------
  1336. SX013:        LCALL     SX2
  1337.               LCALL     SX012  
  1338.               RET
  1339. ;-------------
  1340. SX01:         LCALL     SX1
  1341.               LCALL     SX2
  1342.               LCALL     SX3
  1343.               LCALL     SX4
  1344.               LCALL     SX5
  1345.               LCALL     SX6
  1346.               LCALL     SX7
  1347.               LCALL     SX8
  1348.               LCALL     SX9
  1349.               LCALL     SX10
  1350.               LCALL     SX11
  1351.               LCALL     SX12
  1352.               LCALL     YSA
  1353.               RET
  1354. ;-------------
  1355. SX1:          LCALL     LEDR
  1356.               LCALL     LEDR
  1357.               LCALL     LEDBLACK
  1358.               LCALL     LEDBLACK
  1359.               LCALL     LEDBLACK
  1360. RET
  1361. SX2:          LCALL     LEDR
  1362.               LCALL     LEDR
  1363.               LCALL     LEDR
  1364.               LCALL     LEDBLACK
  1365.               LCALL     LEDBLACK
  1366.               RET
  1367. ;-------------
  1368. SX3:          LCALL     LEDR
  1369.               LCALL     LEDR
  1370.               LCALL     LEDR
  1371.               LCALL     LEDR
  1372.               LCALL     LEDBLACK
  1373.               RET
  1374. ;-------------
  1375. SX4:          LCALL     LEDR
  1376.               LCALL     LEDR
  1377.               LCALL     LEDR
  1378.               LCALL     LEDR
  1379.               LCALL     LEDR
  1380.               RET
  1381. ;-------------
  1382. SX5:          LCALL     LEDG
  1383.               LCALL     LEDG
  1384.               LCALL     LEDBLACK
  1385.               LCALL     LEDBLACK
  1386.               LCALL     LEDBLACK
  1387.               RET
  1388. ;-------------
  1389. SX6:          LCALL     LEDG
  1390.               LCALL     LEDG
  1391.               LCALL     LEDG
  1392.               LCALL     LEDBLACK
  1393.               LCALL     LEDBLACK
  1394.               RET
  1395. ;-------------
  1396. SX7:          LCALL     LEDG
  1397.               LCALL     LEDG
  1398.               LCALL     LEDG
  1399.               LCALL     LEDG
  1400.               LCALL     LEDBLACK
  1401.               RET
  1402. ;-------------
  1403. SX8:          LCALL     LEDG
  1404.               LCALL     LEDG
  1405.               LCALL     LEDG
  1406.               LCALL     LEDG
  1407.               LCALL     LEDG
  1408.               RET
  1409. ;-------------
  1410. SX9:          LCALL     LEDB
  1411.               LCALL     LEDB
  1412.               LCALL     LEDBLACK
  1413.               LCALL     LEDBLACK
  1414.               LCALL     LEDBLACK
  1415.               RET
  1416. ;-------------
  1417. SX10:         LCALL     LEDB
  1418.               LCALL     LEDB
  1419.               LCALL     LEDB
  1420.               LCALL     LEDBLACK
  1421.               LCALL     LEDBLACK
  1422.               RET
  1423. ;-------------
  1424. SX11:         LCALL     LEDB
  1425.               LCALL     LEDB
  1426.               LCALL     LEDB
  1427.               LCALL     LEDB
  1428.               LCALL     LEDBLACK
  1429.               RET
  1430. ;-------------
  1431. SX12:         LCALL     LEDB
  1432.               LCALL     LEDB
  1433.               LCALL     LEDB
  1434.               LCALL     LEDB
  1435.               LCALL     LEDB
  1436.               RET
  1437. ;================================================
  1438. ;-------------金箍棒-----------------------------
  1439. ;================================================
  1440. JGB:          MOV       LEDR0,#43
  1441. JGB0:         LCALL     JGB01
  1442.               LCALL     JGB02
  1443.               LCALL     JGB03
  1444.               LCALL     JGB04
  1445.               LCALL     JGB05
  1446.               LCALL     JGB06
  1447.               DJNZ      LEDR0,JGB0
  1448.               RET
  1449. ;-------------
  1450. JGB01:        LCALL     JGB1
  1451.               LCALL     JGB11
  1452.               LCALL     JGB1  
  1453.               LCALL     JGB11
  1454.               LCALL     YSA
  1455.               RET
  1456. ;-------------
  1457. JGB02:        LCALL     JGB12
  1458.               LCALL     JGB01
  1459.               RET
  1460. ;-------------
  1461. JGB03:        LCALL     JGB12
  1462.               LCALL     JGB02
  1463.               RET
  1464. ;-------------
  1465. JGB04:        LCALL     JGB12
  1466.               LCALL     JGB03
  1467.               RET
  1468. ;-------------
  1469. JGB05:        LCALL     JGB12
  1470.               LCALL     JGB04
  1471.               RET
  1472. ;-------------
  1473. JGB06:        LCALL     JGB12
  1474.               LCALL     JGB05
  1475.               RET
  1476. ;-------------
  1477. JGB1:         LCALL     LEDRGB
  1478.               LCALL     LEDRGB
  1479.               LCALL     LEDRGB
  1480.               LCALL     LEDRGB
  1481.               LCALL     LEDRGB
  1482.               RET
  1483. ;-------------
  1484. JGB11:        MOV       LEDR1,#25
  1485. JGB111:       LCALL     LEDBLACK
  1486.               DJNZ      LEDR1,JGB111
  1487.               RET
  1488. ;-------------
  1489. JGB12:        MOV       LEDR2,#5
  1490. JGB121:       LCALL     LEDBLACK
  1491.               DJNZ      LEDR1,JGB121
  1492.               RET
  1493. ;================================================
  1494. ;--------------绿色*60--------------------------
  1495. ;================================================
  1496. LEDG60:        MOV      R0,#60                     ;起始不点亮数60－N=59
  1497.                MOV      R1,#01H                    ;起始点亮数N=1更改此数据可以每次点亮多个灯板
  1498.                MOV      R3,#00H
  1499. LEDG60_3:      CLR      C                          ;但必须能被60整除
  1500.                MOV      A,R0
  1501.                SUBB     A,R1
  1502.                MOV      R0,A
  1503.                MOV      R2,A
  1504.                MOV      A,R1
  1505.                ADD      A,R3
  1506.                MOV      R3,A
  1507.                MOV      R4,A
  1508. LEDG60_1:      LCALL    LEDG
  1509.                DJNZ     R4,LEDG60_1
  1510. LEDG60_2:      LCALL    LEDBLACK
  1511.                DJNZ     R2,LEDG60_2
  1512.                LCALL    YSA
  1513.                MOV      B,#00H
  1514.                MOV      A,R0
  1515.                CJNE     A,B,LEDG60_3
  1516.                LCALL    YS
  1517.                RET
  1518. ;--------------蓝色*60---------------------------------
  1519. LEDB60:        MOV      R0,#60
  1520.                MOV      R1,#01H
  1521.                MOV      R3,#00H
  1522. LEDB60_3:      CLR      C
  1523.                MOV      A,R0
  1524.                SUBB     A,R1
  1525.                MOV      R0,A
  1526.                MOV      R2,A
  1527.                MOV      A,R1
  1528.                ADD      A,R3
  1529.                MOV      R3,A
  1530.                MOV      R4,A
  1531. LEDB60_1:      LCALL    LEDB
  1532.                DJNZ     R3,LEDB60_1
  1533. LEDB60_2:      LCALL    LEDBLACK
  1534.                DJNZ     R2,LEDB60_2
  1535.                INC      R1
  1536.                LCALL    YSA
  1537.                MOV      B,#00H
  1538.                MOV      A,R0
  1539.                CJNE     A,B,LEDB60_3
  1540.                LCALL    YS
  1541.                RET
  1542. ;-------------其它颜色程序相同----------------





  1548. ;-------------以下是单块板的八色子程序-------------
  1549. LEDBLACK:     MOV       DPTR,#LED_DATABLACK      ;显示1块板黑色
  1550.               SJMP      LED_R5
  1551. LEDRGB:       MOV       DPTR,#LED_DATARGB        ;显示1块板白色
  1552.               SJMP      LED_R5
  1553. LEDGB:        MOV       DPTR,#LED_DATAGB         ;显示1块板青色
  1554.               SJMP      LED_R5
  1555. LEDRB:        MOV       DPTR,#LED_DATARB         ;显示1块板粉色
  1556.               SJMP      LED_R5
  1557. LEDRG:        MOV       DPTR,#LED_DATARG         ;显示1块板黄色
  1558.               SJMP      LED_R5
  1559. LEDB:         MOV       DPTR,#LED_DATAB          ;显示1块板蓝色
  1560.               SJMP      LED_R5
  1561. LEDG:         MOV       DPTR,#LED_DATAG          ;显示1块板绿色
  1562.               SJMP      LED_R5
  1563. LEDR:         MOV       DPTR,#LED_DATAR          ;显示1块板红色
  1564. ;-------------
  1565. LED_R5:       MOV       LED_ZC5,#03              ;每块LED板字节数RGB
  1566. LED_R3:       MOV       LED_ZC6,#08              ;每字节数据位数
  1567.               MOV       A,#00H
  1568.               MOVC      A,@A+DPTR
  1569.               INC       DPTR
  1570. LED_R1:       RLC       A
  1571.               JNC       LED_R2
  1572.               LCALL     OUT_1                    ;输出"1"
  1573.               DJNZ      LED_ZC6,LED_R1
  1574.               SJMP      LED_R4
  1575. LED_R2:       LCALL     OUT_0                    ;输出"0"
  1576.               DJNZ      LED_ZC6,LED_R1           ;发送一个字节
  1577. LED_R4:       DJNZ      LED_ZC5,LED_R3           ;单个灯板3字节数据没发完继续
  1578.               RET                                ;子程序时用返回

  1580. LED_DATAR:    DB       0FFH,00H,00H       ;红
  1581. LED_DATAG:    DB       00H,00H,0FFH       ;绿
  1582. LED_DATAB:    DB       00H,0FFH,00H       ;蓝
  1583. LED_DATARG:   DB       0FFH,00H,0FFH      ;黄
  1584. LED_DATARB:   DB       0FFH,0FFH,00H      ;粉
  1585. LED_DATAGB:   DB       00H,0FFH,0FFH      ;青
  1586. LED_DATARGB:  DB       0FFH,0FFH,0FFH     ;白
  1587. LED_DATABLACK:DB       00H,00H,00H        ;黑

  1589. ;-------------WS2811B高速模式输出脉冲------------------------------
  1590. OUT_0:        MOV       D_OUT,#00H         ;输出0脉冲
  1591.               CLR       P2.6
  1592.               NOP
  1593.               NOP
  1594.               NOP
  1595.               NOP
  1596.               NOP
  1597.               NOP
  1598.               NOP
  1599.               MOV       D_OUT,#0FFH
  1600.               SETB      P2.6
  1601.               NOP
  1602.               NOP
  1603.               NOP
  1604.               NOP
  1605.               NOP
  1606.               NOP
  1607.               NOP
  1608.               NOP
  1609.               NOP
  1610.               NOP
  1611.               NOP
  1612.               NOP
  1613.               NOP
  1614.               NOP
  1615.               NOP
  1616.               NOP
  1617.               NOP
  1618.               NOP
  1619.               RET
  1620. ;
  1621. OUT_1:        MOV       D_OUT,#00H         ;输出1脉冲
  1622.               CLR       P2.6
  1623.               NOP
  1624.               NOP
  1625.               NOP
  1626.               NOP
  1627.               NOP
  1628.               NOP
  1629.               NOP
  1630.               NOP
  1631.               NOP
  1632.               NOP
  1633.               NOP
  1634.               NOP
  1635.               NOP
  1636.               NOP
  1637.               NOP
  1638.               NOP
  1639.               NOP
  1640.               NOP
  1641.               MOV       D_OUT,#0FFH
  1642.               SETB      P2.6
  1643.               NOP
  1644.               NOP
  1645.               NOP
  1646.               NOP
  1647.               NOP
  1648.               NOP
  1649.               NOP
  1650.               RET
  1651. ;------------------------------------------
  1652. RET_0:        MOV       D_OUT,#0FFH        ;输出0脉冲
  1653.               CLR       P2.6               ;用于测量脉冲
  1654.               NOP
  1655.               NOP
  1656.               NOP
  1657.               NOP
  1658.               NOP
  1659.               NOP
  1660.               NOP
  1661.               NOP
  1662.               NOP
  1663.               NOP
  1664.               MOV       D_OUT,#00H
  1665.               SETB      P2.6
  1666.               NOP
  1667.               NOP
  1668.               NOP
  1669.               NOP
  1670.               NOP
  1671.               NOP
  1672.               NOP
  1673.               NOP
  1674.               NOP
  1675.               NOP
  1676.               NOP
  1677.               NOP
  1678.               NOP
  1679.               NOP
  1680.               NOP
  1681.               RET
  1682. ;
  1683. YSB:          MOV       R4,#03H
  1684. YSB1:         LCALL     YSA
  1685.               DJNZ      R4,YSB1
  1686.               RET
  1687. YSA:          MOV       R5,#05H
  1688.               MOV       R6,#00H
  1689.               MOV       R7,#00H
  1690. YSA1:         DJNZ      R7,YSA1
  1691.               DJNZ      R6,YSA1
  1692.               DJNZ      R5,YSA1
  1693.               RET

  1695. YS:           MOV       R5,#20H
  1696.               MOV       R6,#00H
  1697.               MOV       R7,#00H
  1698. YS1:          DJNZ      R7,YS1
  1699.               DJNZ      R6,YS1
  1700.               DJNZ      R5,YS1
  1701.               RET
  1702. END
复制代码


彩灯, 汇编, asm, 51单片机

相关帖子
回复

举报

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

本版积分规则

QQ|手机版|小黑屋|ELEOK |网站地图

GMT+8, 2024-12-22 12:11

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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