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

标题: STC15W4K32S4单片机汇编语言风筝彩灯控制程序 [打印本页]

作者: 我爱胆机妙音 时间: 2021-4-17 12:13
标题: STC15W4K32S4单片机汇编语言风筝彩灯控制程序
;          STC15W4K32S4单片机,采用SOP28封装
;采用内部时钟，工作频率24MHz用2平40点原点发送5位8路
;             DSEG    AT 30H
D_OUT       EQU    P1          ;LED控制数据输出
;D_OUT       EQU    P3          ;LED控制数据输出
LED_ZC3    EQU    30H          ;灯板数
LED_ZC4    EQU    31H          ;颜色组数
LED_ZC5    EQU    32H          ;每块板数组红，绿，蓝三基色
LED_ZC6    EQU    33H          ;单色数据位数
LEDR0       EQU    34H
LEDR1       EQU    35H
LEDR2       EQU    36H
LEDR3       EQU    37H
LEDR4       EQU    38H
LEDR5       EQU    39H
LEDR6       EQU    3AH
LEDR7       EQU    3BH
LEDR8       EQU    3CH
LEDR9       EQU    3DH

P1M1          EQU    91H
P1M0          EQU    92H
P2M1          EQU    95H
P2M0          EQU    96H

            ORG    0000H
            LJMP    MAINA
            ORG    0040H
MAINA:       MOV    SP,#60H
            MOV    P1M0,#0FFH             ;定义端口很重要
            MOV    P1M1,#00H
MAINB:       LCALL    CSHH
            LCALL    CSYH
            LCALL    CSBH
            LCALL    LEDLHA
            LCALL    LEDLH
            lcall    qqlha
            LCALL    QQLH                   ;示例礼花
            LCALL    LEDR60                ;红色60灯组
            LCALL    LEDG60                ;绿色60灯组
            LCALL    LEDB60                ;蓝色60灯组
;          ;  LCALL    LHR                   ;礼花
            LCALL    XZ
            LCALL    TAIJI                   ;太极
            LCALL    SX
            LCALL    JGB
            LJMP    MAINB
;=======================================
;-------------花环----------------------
;=======================================
CSHH:       MOV    LEDR3,#10
CSHH_F:    MOV    LEDR2,#07
CSHH_D:    MOV    LEDR1,#10
CSHH_B:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            lcall    colour
            lcall    colour
            MOV    LEDR0,#15
CSHH_1:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_1
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            lcall    colour
            lcall    colour
            MOV    LEDR0,#15
CSHH_2:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_2
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            lcall    colour
            lcall    colour
            MOV    LEDR0,#15
CSHH_3:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_3
            LCALL    YSA
;-------------
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            lcall    colour
            lcall    colour
            MOV    LEDR0,#15
CSHH_4:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_4
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            lcall    colour
            lcall    colour
            MOV    LEDR0,#15
CSHH_5:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_5
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            lcall    colour
            lcall    colour
            MOV    LEDR0,#10
CSHH_6:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_6
            LCALL    YSA
;------------
            MOV    LEDR0,#10
CSHH_7:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_7
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            lcall    colour
            lcall    colour
            MOV    LEDR0,#15
CSHH_8:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_8
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            lcall    colour
            lcall    colour
            MOV    LEDR0,#15
CSHH_9:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_9
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            lcall    colour
            lcall    colour
            MOV    LEDR0,#1
CSHH_10:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_10
            LCALL    YSA
;------------
            MOV    LEDR0,#15
CSHH_11:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_11
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            lcall    colour
            lcall    colour
            MOV    LEDR0,#15
CSHH_12:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_12
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            lcall    colour
            lcall    colour
            MOV    LEDR0,#15
CSHH_13:    LCALL    LEDBLACK
            DJNZ    LEDR0,CSHH_13
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            lcall    colour
            lcall    colour
            LCALL    YSA
            DJNZ    LEDR1,CSHH_A
            DJNZ    LEDR2,CSHH_C
            DJNZ    LEDR3,CSHH_E
            RET
CSHH_A:    LJMP    CSHH_B
CSHH_C:    LJMP    CSHH_D
CSHH_E:    LJMP    CSHH_F
;=======================================
;-------------彩色园环------------------
;=======================================
CSYH:       MOV    LEDR1,#10
CSYH_A:    MOV    LEDR0,#12
CSYH_1:    LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRG
            DJNZ    LEDR0,CSYH_1
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_2:    LCALL    LEDG
            LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRG
            DJNZ    LEDR0,CSYH_2
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_3:    LCALL    LEDB
            LCALL    LEDG
            LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDRG
            DJNZ    LEDR0,CSYH_3
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_4:    LCALL    LEDRB
            LCALL    LEDB
            LCALL    LEDG
            LCALL    LEDR
            LCALL    LEDRG
            DJNZ    LEDR0,CSYH_4
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_5:    LCALL    LEDBLACK
            LCALL    LEDRB
            LCALL    LEDB
            LCALL    LEDG
            LCALL    LEDRG
            DJNZ    LEDR0,CSYH_5
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_6:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRB
            LCALL    LEDB
            LCALL    LEDRB
            DJNZ    LEDR0,CSYH_6
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_7:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRB
            LCALL    LEDRG
            DJNZ    LEDR0,CSYH_7
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_8:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRG
            DJNZ    LEDR0,CSYH_8
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_11:    LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRB
            DJNZ    LEDR0,CSYH_11
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_12:    LCALL    LEDG
            LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRB
            DJNZ    LEDR0,CSYH_12
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_13:    LCALL    LEDB
            LCALL    LEDG
            LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDRB
            DJNZ    LEDR0,CSYH_13
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_14:    LCALL    LEDRG
            LCALL    LEDB
            LCALL    LEDG
            LCALL    LEDR
            LCALL    LEDRB
            DJNZ    LEDR0,CSYH_14
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_15:    LCALL    LEDBLACK
            LCALL    LEDRG
            LCALL    LEDB
            LCALL    LEDG
            LCALL    LEDRB
            DJNZ    LEDR0,CSYH_15
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_16:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRG
            LCALL    LEDB
            LCALL    LEDRB
            DJNZ    LEDR0,CSYH_16
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_17:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRG
            LCALL    LEDRB
            DJNZ    LEDR0,CSYH_17
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_18:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRB
            DJNZ    LEDR0,CSYH_18
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_21:    LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRGB
            DJNZ    LEDR0,CSYH_21
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_22:    LCALL    LEDG
            LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRGB
            DJNZ    LEDR0,CSYH_22
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_23:    LCALL    LEDB
            LCALL    LEDG
            LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDRGB
            DJNZ    LEDR0,CSYH_23
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_24:    LCALL    LEDRB
            LCALL    LEDB
            LCALL    LEDG
            LCALL    LEDR
            LCALL    LEDRGB
            DJNZ    LEDR0,CSYH_24
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_25:    LCALL    LEDBLACK
            LCALL    LEDRB
            LCALL    LEDB
            LCALL    LEDG
            LCALL    LEDRGB
            DJNZ    LEDR0,CSYH_25
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_26:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRB
            LCALL    LEDB
            LCALL    LEDRGB
            DJNZ    LEDR0,CSYH_26
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_27:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRB
            LCALL    LEDRGB
            DJNZ    LEDR0,CSYH_27
            LCALL    YSB
            MOV    LEDR0,#12
CSYH_28:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRGB
            DJNZ    LEDR0,CSYH_28
            LCALL    YSB
            MOV    LEDR0,#12
            DJNZ    LEDR1,CSYH_B
            RET
CSYH_B:    LJMP    CSYH_A
;=======================================
;--------------示例礼花---------------------
;=======================================
qqlh:       MOV    LEDR3,#10    ;七色重复次数
qqlhqq:    mov    ledr2,#7       ;颜色组红，绿，蓝，黄，粉，青，白
qqlhq:       MOV    LEDR1,#10    ;单色重复次数
qqlhy:       mov    ledr0,#12    ;12组
qqlhy1:    lcall    colour       ;颜色显示1
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            djnz    ledr0,qqlhy1
            lcall    ysa
            mov    ledr0,#12
qqlhe:       lcall    ledblack
            lcall    colour       ;2
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            djnz    ledr0,qqlhe
            lcall    ysa
            mov    ledr0,#12
qqlhs:       lcall    ledblack
            lcall    ledblack
            lcall    colour       ;3
            lcall    ledblack
            lcall    ledblack
            djnz    ledr0,qqlhs
            lcall    ysa
            mov    ledr0,#12
qqlhss:    lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            lcall    colour       ;4
            lcall    ledblack
            djnz    ledr0,qqlhss
            lcall    ysa
            mov    ledr0,#12
qqlhw:       lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            lcall    colour       ;5
            djnz    ledr0,qqlhw
            lcall    ysa
            djnz    ledr1,QQLHQ0
            DJNZ    LEDR2,QQLHQ1
            DJNZ    LEDR3,QQLHQ2
            ret
QQLHQ0:    LJMP    QQLHY
QQLHQ1:    LJMP    QQLHQ
QQLHQ2:    LJMP    QQLHQQ
;--------------------------------------
CSBH:       MOV    LEDR3,#10
CSBHA_4:    MOV    LEDR2,#08
CSBHA_2:    MOV    LEDR1,#01
CSBH_1:    lcall    CSBH1          ;颜色显示1
            DJNZ    LEDR1,CSBH_1
            MOV    LEDR1,#11
CSBH_2:    LCALL    CSBH2
            DJNZ    LEDR1,CSBH_2
            lcall    ysb
            MOV    LEDR1,#02
CSBH_3:    lcall    CSBH1          ;颜色显示1
            DJNZ    LEDR1,CSBH_3
            MOV    LEDR1,#10
CSBH_4:    LCALL    CSBH2
            DJNZ    LEDR1,CSBH_4
            lcall    ysb
            MOV    LEDR1,#03
CSBH_5:    lcall    CSBH1          ;颜色显示1
            DJNZ    LEDR1,CSBH_5
            MOV    LEDR1,#9
CSBH_6:    LCALL    CSBH2
            DJNZ    LEDR1,CSBH_6
            lcall    ysb
            MOV    LEDR1,#04
CSBH_7:    lcall    CSBH1          ;颜色显示1
            DJNZ    LEDR1,CSBH_7
            MOV    LEDR1,#8
CSBH_8:    LCALL    CSBH2
            DJNZ    LEDR1,CSBH_8
            lcall    ysb
            MOV    LEDR1,#05
CSBH_9:    lcall    CSBH1          ;颜色显示1
            DJNZ    LEDR1,CSBH_9
            MOV    LEDR1,#7
CSBH_A:    LCALL    CSBH2
            DJNZ    LEDR1,CSBH_A
            lcall    ysb
            MOV    LEDR1,#06
CSBH_B:    lcall    CSBH1          ;颜色显示1
            DJNZ    LEDR1,CSBH_B
            MOV    LEDR1,#6
CSBH_C:    LCALL    CSBH2
            DJNZ    LEDR1,CSBH_C
            lcall    ysb
            MOV    LEDR1,#07
CSBH_D:    lcall    CSBH1          ;颜色显示1
            DJNZ    LEDR1,CSBH_D
            MOV    LEDR1,#05
CSBH_E:    LCALL    CSBH2
            DJNZ    LEDR1,CSBH_E
            lcall    ysb
            MOV    LEDR1,#08
CSBH_F:    lcall    CSBH1          ;颜色显示1
            DJNZ    LEDR1,CSBH_F
            MOV    LEDR1,#04
CSBH_G:    LCALL    CSBH2
            DJNZ    LEDR1,CSBH_G
            lcall    ysb
            MOV    LEDR1,#09
CSBH_H:    lcall    CSBH1          ;颜色显示1
            DJNZ    LEDR1,CSBH_H
            MOV    LEDR1,#03
CSBH_I:    LCALL    CSBH2
            DJNZ    LEDR1,CSBH_I
            lcall    ysb
            MOV    LEDR1,#10
CSBH_J:    lcall    CSBH1          ;颜色显示1
            DJNZ    LEDR1,CSBH_J
            MOV    LEDR1,#02
CSBH_K:    LCALL    CSBH2
            DJNZ    LEDR1,CSBH_K
            lcall    ysb
            MOV    LEDR1,#11
CSBH_L:    lcall    CSBH1          ;颜色显示1
            DJNZ    LEDR1,CSBH_L
            MOV    LEDR1,#1
CSBH_N:    LCALL    CSBH2
            DJNZ    LEDR1,CSBH_N
            lcall    ysb
            lcall    ysb
            lcall    ysb
            lcall    ysb
            lcall    ysb
            lcall    ysb
;             MOV    LEDR1,#12
;CSBH_M:    lcall    CSBH1          ;颜色显示1
;             lcall    ysb
;             DJNZ    LEDR1,CSBH_M
            DJNZ    LEDR2,CSBHA_1
            MOV    LEDR2,#08
            DJNZ    LEDR3,CSBHA_1
            RET
CSBHA_1:    LJMP    CSBHA_2
CSBHA_3:    LJMP    CSBHA_4
;-------------
CSBH1:       MOV    LEDR0,#05
            MOV    A,LEDR2
            PUSH    ACC
            DEC    A
            JNZ    CSBH1_2
            MOV    A,#08
CSBH1_2:    MOV    LEDR2,A
CSBH1_1:    lcall    colour       ;颜色显示1
            DJNZ    LEDR0,CSBH1_1
            POP    ACC
            MOV    LEDR2,A
            RET
CSBH2:       MOV    LEDR0,#05
CSBH2_1:    lcall    colour
            DJNZ    LEDR0,CSBH2_1
            RET
;-------------七彩礼花------------------
qqlha:       MOV    LEDR3,#3    ;七色重复次数
            mov    ledr2,#7       ;颜色组红，绿，蓝，黄，粉，青，白
qqlhqa:    MOV    LEDR1,#10    ;单色重复次数
qqlhya:    mov    ledr0,#12    ;12组
            LCALL    LED_LH       ;颜色组红，绿，蓝，黄，粉，青，白
qqlhy1a:    lcall    colour       ;颜色显示1
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            djnz    ledr0,qqlhy1A
            lcall    ysa
            mov    ledr0,#12
            LCALL    LED_LH       ;颜色组红，绿，蓝，黄，粉，青，白
qqlheA:    lcall    ledblack
            lcall    colour       ;2
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            djnz    ledr0,qqlheA
            lcall    ysa
            mov    ledr0,#12
            LCALL    LED_LH       ;颜色组红，绿，蓝，黄，粉，青，白qqlhsA:    lcall    ledblack
qqlhsA:    lcall    ledblack
            lcall    ledblack
            lcall    colour       ;3
            lcall    ledblack
            lcall    ledblack
            djnz    ledr0,qqlhsA
            lcall    ysa
            mov    ledr0,#12
            LCALL    LED_LH       ;颜色组红，绿，蓝，黄，粉，青，白qqlhssA:    lcall    ledblack
qqlhssA:    lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            lcall    colour       ;4
            lcall    ledblack
            djnz    ledr0,qqlhssA
            lcall    ysa
            mov    ledr0,#12
            LCALL    LED_LH       ;颜色组红，绿，蓝，黄，粉，青，白qqlhwA:    lcall    ledblack
qqlhwA:    lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            lcall    colour       ;5
            djnz    ledr0,qqlhwA
            lcall    ysa
            djnz    ledr1,QQLHQ0A
            DJNZ    LEDR3,QQLHQ2A
            ret
QQLHQ0A:    LJMP    QQLHYA
QQLHQ2A:    LJMP    QQLHQA
;-------------
LED_LH:    MOV    A,LEDR2
            DEC    A
            JZ       LED_LHH
            MOV    LEDR2,A
            RET
LED_LHH:    MOV    LEDR2,#07H
            RET

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

COLOUH:    CJNE    A,#07H,COLOUG
            lcall    ledr                   ;红
            RET
coloug:    CJNE    A,#06H,COLOUB
            lcall    ledg                   ;绿
            RET
coloub:    CJNE    A,#05H,COLOURG
            lcall    ledb                   ;蓝
            RET

colourg:    CJNE    A,#04H,COLOURB
            lcall    ledrg                   ;黄
            RET

colourb:    CJNE    A,#03H,COLOUGB
            lcall    ledrb                   ;粉红
            RET

colougb:    CJNE    A,#02H,COLOURGB
            lcall    ledgb                   ;青
            ret
colourgb:    CJNE    A,#01H,COLOURET
            lcall    ledrgb                ;白
COLOURET:    ret
;--------------------------------------------------
ledlh:       mov    ledr1,#30
            mov    ledr0,#12
led_lh1:    lcall    ledr
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            djnz    ledr0,led_lh1
            lcall    ysb
            mov    ledr0,#12

led_lh2:    lcall    ledg
            lcall    ledr
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            djnz    ledr0,led_lh2
            lcall    ysb
            mov    ledr0,#12

led_lh3:    lcall    ledb
            lcall    ledg
            lcall    ledr
            lcall    ledblack
            lcall    ledblack
            djnz    ledr0,led_lh3
            lcall    ysb
            mov    ledr0,#12

led_lh4:    lcall    ledrg
            lcall    ledb
            lcall    ledg
            lcall    ledr
            lcall    ledblack
            djnz    ledr0,led_lh4
            lcall    ysb
led_lhe:    mov    ledr0,#12

led_lh5:    lcall    ledrb
            lcall    ledrg
            lcall    ledb
            lcall    ledg
            lcall    ledr
            djnz    ledr0,led_lh5
            lcall    ysb
            mov    ledr0,#12

led_lh6:    lcall    ledgb
            lcall    ledrb
            lcall    ledrg
            lcall    ledb
            lcall    ledg
            djnz    ledr0,led_lh6
            lcall    ysb
            mov    ledr0,#12

led_lh7:    lcall    ledrgb
            lcall    ledgb
            lcall    ledrb
            lcall    ledrg
            lcall    ledb
            djnz    ledr0,led_lh7
            lcall    ysb
            mov    ledr0,#12

led_lh8:    lcall    ledr
            lcall    ledrgb
            lcall    ledgb
            lcall    ledrb
            lcall    ledrg
            djnz    ledr0,led_lh8
            lcall    ysb
            mov    ledr0,#12

led_lh9:    lcall    ledg
            lcall    ledr
            lcall    ledrgb
            lcall    ledgb
            lcall    ledrb
            djnz    ledr0,led_lh9
            lcall    ysb
            mov    ledr0,#12

led_lha:    lcall    ledb
            lcall    ledg
            lcall    ledr
            lcall    ledrgb
            lcall    ledgb
            djnz    ledr0,led_lha
            lcall    ysb
            mov    ledr0,#12

led_lhb:    lcall    ledrg
            lcall    ledb
            lcall    ledg
            lcall    ledr
            lcall    ledrgb
            djnz    ledr0,led_lhb
            lcall    ysb
            djnz    ledr1,led_lhd
            ret
led_lhd:    ljmp    led_lhe

;--------------------------------------------------
ledlha:    mov    ledr3,#30
led_lha7:    mov    ledr2,#7
led_lha6:    mov    ledr0,#12
led_lha1:    lcall    colour
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            djnz    ledr0,led_lha1
            lcall    ysb
            mov    ledr0,#12

led_lha2:    lcall    colour
            lcall    colour
            lcall    ledblack
            lcall    ledblack
            lcall    ledblack
            djnz    ledr0,led_lha2
            lcall    ysb
            mov    ledr0,#12

led_lha3:    lcall    colour
            lcall    colour
            lcall    colour
            lcall    ledblack
            lcall    ledblack
            djnz    ledr0,led_lha3
            lcall    ysb
            mov    ledr0,#12

led_lha4:    lcall    colour
            lcall    colour
            lcall    colour
            lcall    colour
            lcall    ledblack
            djnz    ledr0,led_lha4
            lcall    ysb
            mov    ledr0,#12

led_lha5:    lcall    colour
            lcall    colour
            lcall    colour
            lcall    colour
            lcall    colour
            djnz    ledr0,led_lha5
            lcall    ysb
            djnz    ledr2,led_lha6
            djnz    ledr3,led_lh7a
            ret
led_lh7a:    ljmp    led_lha7
;==================================================
;---------------60块2811显示,----------------------
;==================================================
LEDR60:       MOV    R0,#60                   ;起始不点亮数60－N=59
            MOV    R1,#01H                   ;起始点亮数N=1更改此数据可以每次点亮多个灯板
            MOV    R3,#00H
LEDR60_3:    CLR    C                         ;但必须能被60整除
            MOV    A,R0
            SUBB    A,R1
            MOV    R0,A
            MOV    R2,A
            MOV    A,R1
            ADD    A,R3
            MOV    R3,A
            MOV    R4,A
LEDR60_1:    LCALL LEDR
            DJNZ    R4,LEDR60_1
LEDR60_2:    LCALL LEDBLACK
            DJNZ    R2,LEDR60_2
            LCALL YSA
            MOV    B,#00H
            MOV    A,R0
            CJNE    A,B,LEDR60_3
            LCALL YS
            RET
;-------------------------外面粉红里面旋转-------------
WFLZ:  MOV LEDR0,#39
WFLZ0:

WFLZ01:
WFLZ02:    LCALL    WFLZ1
            LCALL    WFLZ11
            LCALL    WFLZ12
            LCALL    WFLZ13
            LCALL    WFLZ14
            LCALL    WFLZ14
            RET

WFLZ1:       LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRB
            RET

WFLZ11:    LCALL    LEDBLACK
            LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRB
            RET

WFLZ12:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDRB
            RET

WFLZ13:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDR
            LCALL    LEDRB
            RET

;--------COPY------
WFLZ14:    LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDRB
            RET

;---------------------礼花-------------------------------
LHR:       MOV    LEDR0,#12             ;礼花红
LH1:       LCALL    ledBLACK                ;第一灯位
            LCALL    ledBLACK
            LCALL    ledBLACK
            LCALL    ledBLACK                ;第四灯位
            LCALL    LEDR                   ;第五灯位
            DJNZ    LEDR0,LH1             ;共十二组
            LCALL    YSA
            MOV    LEDR0,#12

LH2:       LCALL    ledBLACK
            LCALL    ledBLACK
            LCALL    ledBLACK
            LCALL    ledr
            LCALL    ledBLACK
            DJNZ    LEDR0,LH2
            LCALL    YSA
            MOV    LEDR0,#7

LH3:
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledr
   LCALL ledBLACK
   LCALL ledBLACK
      DJNZ    LEDR0,LH3
   LCALL  YSA
      MOV    LEDR0,#12
LH4:
   LCALL ledBLACK
   LCALL ledr
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
      DJNZ    LEDR0,LH4
   LCALL  YSA
      MOV    LEDR0,#12
LH5:
   LCALL ledr
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
      DJNZ    LEDR0,LH5
   LCALL  YSA
LHB: MOV    LEDR0,#12;兰
LHB1:
   LCALL ledB
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
      DJNZ    LEDR0,LHB1
   LCALL  YSA
MOV    LEDR0,#12

LHB2:
   LCALL ledBLACK
   LCALL ledB
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
      DJNZ    LEDR0,LHB2
   LCALL  YSA
MOV    LEDR0,#12

LHB3:
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledB
   LCALL ledBLACK
   LCALL ledBLACK
      DJNZ    LEDR0,LHB3
   LCALL  YSA
      MOV    LEDR0,#12
LHB4:
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledB
   LCALL ledBLACK
      DJNZ    LEDR0,LHB4
   LCALL  YSA
      MOV    LEDR0,#12
LHB5:
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledB
      DJNZ    LEDR0,LHB5
   LCALL  YSA

LHG: MOV    LEDR0,#121;绿
LHG1:
   LCALL ledG
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
      DJNZ    LEDR0,LHG1
   LCALL  YSA
MOV    LEDR0,#12

LHG2:
   LCALL ledBLACK
   LCALL ledG
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   DJNZ    LEDR0,LHG2
   LCALL  YSA
MOV    LEDR0,#12

LHG3:
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledG
   LCALL ledBLACK
   LCALL ledBLACK
      DJNZ    LEDR0,LHG3
   LCALL  YSA
      MOV    LEDR0,#12
LHG4:
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledG
   LCALL ledBLACK
   DJNZ    LEDR0,LHG4
   LCALL  YSA
      MOV    LEDR0,#12
LHG5:
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledG
      DJNZ    LEDR0,LHG5
   LCALL  YSA
LHRB: MOV    LEDR0,#12;粉
LHRB1:
   LCALL ledRB
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
      DJNZ    LEDR0,LHRB1
   LCALL  YSA
MOV    LEDR0,#12

LHRB2:
   LCALL ledBLACK
   LCALL ledG
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
      DJNZ    LEDR0,LHRB2
   LCALL  YSA
MOV    LEDR0,#12

LHRB3:
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledG
   LCALL ledBLACK
   LCALL ledBLACK
      DJNZ    LEDR0,LHRB3
   LCALL  YSA
      MOV    LEDR0,#12
LHRB4:
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledG
   LCALL ledBLACK
   DJNZ    LEDR0,LHRB4
   LCALL  YSA
      MOV    LEDR0,#12
LHRB5:
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledBLACK
   LCALL ledG
      DJNZ    LEDR0,LHRB5
   LCALL  YSA
RET
;-----------------太极---------------------
TAIJI: MOV LEDR1,#20
TAIJIII:LCALL  TJ00
      LCALL  TJ01
      LCALL  TJ02
      LCALL  TJ03
      LCALL  TJ04
      LCALL  TJ05
      LCALL  TJ06
      LCALL  TJ07
      LCALL  TJ08
      LCALL  TJ09
      LCALL  TJ010
      LCALL  TJ011
DJNZ  LEDR1,TAIJIII
RET
TJ0: LCALL LEDB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDRB
RET
TJ1: LCALL LEDB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDRB
   LCALL LEDRB
RET
TJ2: LCALL LEDB
   LCALL LEDB
   LCALL LEDRB
   LCALL LEDRB
   LCALL LEDRB
RET

TJ3: LCALL LEDB
   LCALL LEDRB
   LCALL LEDRB
   LCALL LEDRB
   LCALL LEDRB
RET
TJ4: LCALL LEDRB
   LCALL LEDRB
   LCALL LEDRB
   LCALL LEDRB
   LCALL LEDRB
RET

RET
TJ5: LCALL LEDRB
   LCALL LEDRB
   LCALL LEDRB
   LCALL LEDRB
   LCALL LEDB
   LCALL LEDB
RET
TJ6: LCALL LEDRB
   LCALL LEDRB
   LCALL LEDRB
   LCALL LEDB
   LCALL LEDB
RET
TJ7: LCALL LEDRB
   LCALL LEDRB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDB
RET
TJ8: LCALL LEDRB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDB
RET

TJ9: LCALL LEDB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDB
RET

TAIJIX1: LCALL TJ0
      LCALL TJ1
      LCALL TJ2
      LCALL TJ3
      LCALL TJ4
      LCALL TJ5
      LCALL TJ6
      LCALL TJ7
      LCALL TJ8
      LCALL TJ9
LCALL YSA
RET
TJ00: LCALL  TAIJIX1
RET

TJ01: LCALL TJ9
   LCALL TJ00
RET
TJ02: LCALL TJ9
   LCALL TJ01
RET
TJ03: LCALL TJ8
   LCALL TJ02
RET
TJ04: LCALL TJ7
   LCALL TJ03
RET
TJ05: LCALL TJ6
   LCALL TJ04
RET
TJ06: LCALL TJ5
   LCALL TJ05
RET
TJ07: LCALL TJ4
   LCALL TJ06
RET
TJ08: LCALL TJ4
   LCALL TJ07
RET
TJ09: LCALL TJ3
   LCALL TJ08
RET
TJ010: LCALL TJ2
   LCALL TJ09
RET
TJ011: LCALL TJ1
   LCALL TJ010
RET
;-----------------旋转-------------
XZ: MOV  LEDR1,#30

XZ99:LCALL XZ01
   LCALL XZ02
   LCALL XZ03
   LCALL XZ04
   LCALL XZ05
   LCALL XZ06
LCALL YSA
DJNZ LEDR1,XZ99
RET

XZ01:LCALL XZ0
RET
XZ02:LCALL XZ6
   LCALL XZ01
RET
XZ03:LCALL XZ5
   LCALL XZ02
RET
XZ04:LCALL XZ4
   LCALL XZ03
RET
XZ05:LCALL XZ3
   LCALL XZ04
RET
XZ06:LCALL XZ2
   LCALL XZ05
RET

XZ0: LCALL XZ1
   LCALL XZ2
   LCALL XZ3
   LCALL XZ4
   LCALL XZ5
   LCALL XZ6
   LCALL XZ1
   LCALL XZ2
   LCALL XZ3
   LCALL XZ4
   LCALL XZ5
   LCALL XZ6
LCALL YSA
RET

XZ1:  LCALL LEDB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDRB
RET
XZ2:  LCALL LEDB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDRB
   LCALL LEDB
RET
XZ3:  LCALL LEDB
   LCALL LEDB
   LCALL LEDRB
   LCALL LEDB
   LCALL LEDB
RET
XZ4:  LCALL LEDB
   LCALL LEDRB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDB
RET
XZ5:  LCALL LEDRB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDB
RET
XZ6:  LCALL LEDB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDB
   LCALL LEDB
RET
;================================================
;----------三旋------------------
;================================================
SX:          MOV    LEDR0,#30
SX0:       LCALL    SX02
            LCALL    SX03
            LCALL    SX04
            LCALL    SX05
            LCALL    SX06
            LCALL    SX07
            LCALL    SX08
            LCALL    SX09
            LCALL    SX010
            LCALL    SX011
            LCALL    SX012
            LCALL    SX013
            LCALL    YSA
            DJNZ    LEDR0,SX0
            RET
;-------------
SX02:       LCALL    SX01
            RET
;-------------
SX03:       LCALL    SX12
            LCALL    SX02
            RET
;-------------
SX04:       LCALL    SX11
            LCALL    SX03
            RET
;-------------
SX05:       LCALL    SX10
            LCALL    SX04
            RET
;-------------
SX06:       LCALL    SX9
            LCALL    SX05
            RET
;-------------
SX07:       LCALL    SX8
            LCALL    SX06
            RET
;-------------
SX08:       LCALL    SX7
            LCALL    SX07
            RET
;-------------
SX09:       LCALL    SX6
            LCALL    SX08
            RET
;-------------
SX010:       LCALL    SX5
            LCALL    SX09
            RET
;-------------
SX011:       LCALL    SX4
            LCALL    SX010
            RET
;-------------
SX012:       LCALL    SX3
            LCALL    SX011
            RET
;-------------
SX013:       LCALL    SX2
            LCALL    SX012
            RET
;-------------
SX01:       LCALL    SX1
            LCALL    SX2
            LCALL    SX3
            LCALL    SX4
            LCALL    SX5
            LCALL    SX6
            LCALL    SX7
            LCALL    SX8
            LCALL    SX9
            LCALL    SX10
            LCALL    SX11
            LCALL    SX12
            LCALL    YSA
            RET
;-------------
SX1:       LCALL    LEDR
            LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
RET
SX2:       LCALL    LEDR
            LCALL    LEDR
            LCALL    LEDR
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            RET
;-------------
SX3:       LCALL    LEDR
            LCALL    LEDR
            LCALL    LEDR
            LCALL    LEDR
            LCALL    LEDBLACK
            RET
;-------------
SX4:       LCALL    LEDR
            LCALL    LEDR
            LCALL    LEDR
            LCALL    LEDR
            LCALL    LEDR
            RET
;-------------
SX5:       LCALL    LEDG
            LCALL    LEDG
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            RET
;-------------
SX6:       LCALL    LEDG
            LCALL    LEDG
            LCALL    LEDG
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            RET
;-------------
SX7:       LCALL    LEDG
            LCALL    LEDG
            LCALL    LEDG
            LCALL    LEDG
            LCALL    LEDBLACK
            RET
;-------------
SX8:       LCALL    LEDG
            LCALL    LEDG
            LCALL    LEDG
            LCALL    LEDG
            LCALL    LEDG
            RET
;-------------
SX9:       LCALL    LEDB
            LCALL    LEDB
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            RET
;-------------
SX10:       LCALL    LEDB
            LCALL    LEDB
            LCALL    LEDB
            LCALL    LEDBLACK
            LCALL    LEDBLACK
            RET
;-------------
SX11:       LCALL    LEDB
            LCALL    LEDB
            LCALL    LEDB
            LCALL    LEDB
            LCALL    LEDBLACK
            RET
;-------------
SX12:       LCALL    LEDB
            LCALL    LEDB
            LCALL    LEDB
            LCALL    LEDB
            LCALL    LEDB
            RET
;================================================
;-------------金箍棒-----------------------------
;================================================
JGB:       MOV    LEDR0,#43
JGB0:       LCALL    JGB01
            LCALL    JGB02
            LCALL    JGB03
            LCALL    JGB04
            LCALL    JGB05
            LCALL    JGB06
            DJNZ    LEDR0,JGB0
            RET
;-------------
JGB01:       LCALL    JGB1
            LCALL    JGB11
            LCALL    JGB1
            LCALL    JGB11
            LCALL    YSA
            RET
;-------------
JGB02:       LCALL    JGB12
            LCALL    JGB01
            RET
;-------------
JGB03:       LCALL    JGB12
            LCALL    JGB02
            RET
;-------------
JGB04:       LCALL    JGB12
            LCALL    JGB03
            RET
;-------------
JGB05:       LCALL    JGB12
            LCALL    JGB04
            RET
;-------------
JGB06:       LCALL    JGB12
            LCALL    JGB05
            RET
;-------------
JGB1:       LCALL    LEDRGB
            LCALL    LEDRGB
            LCALL    LEDRGB
            LCALL    LEDRGB
            LCALL    LEDRGB
            RET
;-------------
JGB11:       MOV    LEDR1,#25
JGB111:    LCALL    LEDBLACK
            DJNZ    LEDR1,JGB111
            RET
;-------------
JGB12:       MOV    LEDR2,#5
JGB121:    LCALL    LEDBLACK
            DJNZ    LEDR1,JGB121
            RET
;================================================
;--------------绿色*60--------------------------
;================================================
LEDG60:       MOV    R0,#60                   ;起始不点亮数60－N=59
            MOV    R1,#01H                   ;起始点亮数N=1更改此数据可以每次点亮多个灯板
            MOV    R3,#00H
LEDG60_3:    CLR    C                         ;但必须能被60整除
            MOV    A,R0
            SUBB    A,R1
            MOV    R0,A
            MOV    R2,A
            MOV    A,R1
            ADD    A,R3
            MOV    R3,A
            MOV    R4,A
LEDG60_1:    LCALL LEDG
            DJNZ    R4,LEDG60_1
LEDG60_2:    LCALL LEDBLACK
            DJNZ    R2,LEDG60_2
            LCALL YSA
            MOV    B,#00H
            MOV    A,R0
            CJNE    A,B,LEDG60_3
            LCALL YS
            RET
;--------------蓝色*60---------------------------------
LEDB60:       MOV    R0,#60
            MOV    R1,#01H
            MOV    R3,#00H
LEDB60_3:    CLR    C
            MOV    A,R0
            SUBB    A,R1
            MOV    R0,A
            MOV    R2,A
            MOV    A,R1
            ADD    A,R3
            MOV    R3,A
            MOV    R4,A
LEDB60_1:    LCALL LEDB
            DJNZ    R3,LEDB60_1
LEDB60_2:    LCALL LEDBLACK
            DJNZ    R2,LEDB60_2
            INC    R1
            LCALL YSA
            MOV    B,#00H
            MOV    A,R0
            CJNE    A,B,LEDB60_3
            LCALL YS
            RET
;-------------其它颜色程序相同----------------

;-------------以下是单块板的八色子程序-------------
LEDBLACK:    MOV    DPTR,#LED_DATABLACK    ;显示1块板黑色
            SJMP    LED_R5
LEDRGB:    MOV    DPTR,#LED_DATARGB       ;显示1块板白色
            SJMP    LED_R5
LEDGB:       MOV    DPTR,#LED_DATAGB       ;显示1块板青色
            SJMP    LED_R5
LEDRB:       MOV    DPTR,#LED_DATARB       ;显示1块板粉色
            SJMP    LED_R5
LEDRG:       MOV    DPTR,#LED_DATARG       ;显示1块板黄色
            SJMP    LED_R5
LEDB:       MOV    DPTR,#LED_DATAB       ;显示1块板蓝色
            SJMP    LED_R5
LEDG:       MOV    DPTR,#LED_DATAG       ;显示1块板绿色
            SJMP    LED_R5
LEDR:       MOV    DPTR,#LED_DATAR       ;显示1块板红色
;-------------
LED_R5:    MOV    LED_ZC5,#03             ;每块LED板字节数RGB
LED_R3:    MOV    LED_ZC6,#08             ;每字节数据位数
            MOV    A,#00H
            MOVC    A,@A+DPTR
            INC    DPTR
LED_R1:    RLC    A
            JNC    LED_R2
            LCALL    OUT_1                   ;输出"1"
            DJNZ    LED_ZC6,LED_R1
            SJMP    LED_R4
LED_R2:    LCALL    OUT_0                   ;输出"0"
            DJNZ    LED_ZC6,LED_R1          ;发送一个字节
LED_R4:    DJNZ    LED_ZC5,LED_R3          ;单个灯板3字节数据没发完继续
            RET                               ;子程序时用返回

LED_DATAR: DB    0FFH,00H,00H    ;红
LED_DATAG: DB    00H,00H,0FFH    ;绿
LED_DATAB: DB    00H,0FFH,00H    ;蓝
LED_DATARG: DB    0FFH,00H,0FFH    ;黄
LED_DATARB: DB    0FFH,0FFH,00H    ;粉
LED_DATAGB: DB    00H,0FFH,0FFH    ;青
LED_DATARGB:  DB    0FFH,0FFH,0FFH    ;白
LED_DATABLACK:DB    00H,00H,00H       ;黑

;-------------WS2811B高速模式输出脉冲------------------------------
OUT_0:       MOV    D_OUT,#00H       ;输出0脉冲
            CLR    P2.6
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            MOV    D_OUT,#0FFH
            SETB    P2.6
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            RET
;
OUT_1:       MOV    D_OUT,#00H       ;输出1脉冲
            CLR    P2.6
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            MOV    D_OUT,#0FFH
            SETB    P2.6
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            RET
;------------------------------------------
RET_0:       MOV    D_OUT,#0FFH       ;输出0脉冲
            CLR    P2.6             ;用于测量脉冲
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            MOV    D_OUT,#00H
            SETB    P2.6
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            NOP
            RET
;
YSB:       MOV    R4,#03H
YSB1:       LCALL    YSA
            DJNZ    R4,YSB1
            RET
YSA:       MOV    R5,#05H
            MOV    R6,#00H
            MOV    R7,#00H
YSA1:       DJNZ    R7,YSA1
            DJNZ    R6,YSA1
            DJNZ    R5,YSA1
            RET

YS:          MOV    R5,#20H
            MOV    R6,#00H
            MOV    R7,#00H
YS1:       DJNZ    R7,YS1
            DJNZ    R6,YS1
            DJNZ    R5,YS1
            RET
END

作者: 51hei团团 时间: 2021-4-17 17:43
厉害,楼主能分享一下原理图吗?

作者: madell 时间: 2021-4-18 09:39
不错，功底很深。

作者: heiheihei12 时间: 2021-4-19 12:48
太厉害了，佩服佩服

作者: 烁烁烁 时间: 2021-6-7 13:10
你好，你能发一下你风筝彩灯的实物图吗？感谢！

作者: lake2021 时间: 2022-3-28 22:20
这个搞得不错 Mark这慢慢来研究一下先赞一个

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