15.asm

15路LED灯源程序 可用在电子灯箱等.

call delay
mov p0,#01111111b;全亮，追逐亮完成
call delay;=============================================

;================================================================================
mov r7,#50
call delay1
sm:
mov a,#11111110b
mov r3,#7
loop:
rl a
mov p2,a
mov r7,#2
call delay
djnz r3,loop
mov p2,#11111111b
mov r7,#2
call delay
xu:
mov a,#11111110b
mov r3,#7
loop1:
rl a
mov p0,a
mov r7,#2
call delay
djnz r3,loop1
mov p0,#11111111b
qiang:
mov a,#01111111b
mov r3,#7
loop2:
rr a
mov p0,a
mov r7,#2
call delay
djnz r3,loop2
mov p0,#11111111b
mov r7,#2
call delay
lu:
mov a,#01111111b
mov r3,#7
loop3:
rr a
mov p2,a
mov r7,#3
call delay
djnz r3,loop3
mov p2,#11111111b
mov r7,#50
call delay1

;+++++++++++++++++++++++++++++++
mov p2,#11111110b
call delay
mov p2,#11111100b
call delay
mov p2,#11111000b
call delay
mov p2,#11110000b
call delay
mov p2,#11100000b
call delay
mov p2,#11000000b
call delay
mov p2,#10000000b
call delay
mov p2,#00000000b

call delay
mov p0,#11111110b
call delay
mov p0,#11111100b
call delay
mov p0,#11111000b
call delay
mov p0,#11110000b
call delay
mov p0,#11100000b
call delay
mov p0,#11000000b
call delay
mov p0,#10000000b;以上全灭
call delay


;+++++++++++++++++++++++++++++++







;+++++++++++++++++++++++++++++++
ss:
mov a,#00000001b
mov r3,#7
loop4:
rl a
mov p2,a
mov r7,#2
call delay
djnz r3,loop4
mov p2,#00000000b
call delay
xx:
mov a,#00000001b
mov r3,#7
loop5:
rl a
mov p0,a
mov r7,#2
call delay
djnz r3,loop5
mov p0,#10000000b
call delay
;======================
ss1:
mov a,#00000001b
mov r3,#7
loop6:
mov p2,a
rl a
call delay
djnz r3,loop6
mov p2,#00000000b
call delay
mov p0,#11000001b
call delay
mov p0,#11000010b
call delay
mov p0,#11000100b
call delay
mov p0,#11001000b
call delay
mov p0,#11010000b
call delay
mov p0,#11100000b
call delay

;==================
ss2:
mov a,#00000001b
mov r3,#7
loop8:
mov p2,a
rl a
call delay
djnz r3,loop8
mov p2,#00000000b
call delay
mov p0,#11100001b
call delay
mov p0,#11100010b
call delay
mov p0,#11100100b
call delay
mov p0,#11101000b
call delay
mov p0,#11110000b
call delay


;==========
ss3:
mov a,#00000001b
mov r3,#7
loop9:
mov p2,a
rl a
call delay
djnz r3,loop9
mov p2,#00000000b
call delay
mov p0,#111100001b
call delay
mov p0,#11110010b
call delay
mov p0,#11110100b
call delay
mov p0,#11111000b
call delay

;=============
ss4:
mov a,#00000001b
mov r3,#7
lp1:
mov p2,a
rl a
call delay
djnz r3,lp1
mov p2,#00000000b
call delay
mov p0,#11111001b
call delay
mov p0,#11111010b
call delay
mov p2,#11111100b
call delay

ss5:
mov a,#00000001b
mov r3,#7
lp2:
mov p2,a
rl a
call delay
djnz r3,lp2
mov p2,#00000000b
call delay
mov p0,#11111101b
call delay
mov p0,#11111110b
call delay

ss6:
mov a,#00000001b
mov r3,#7
lp3:
mov p2,a
rl a
call delay
djnz r3,lp3
mov p2,#00000000b
call delay
mov p0,#11111111b
call delay


ss7:
mov a,#00000001b
mov r3,#7
lp4:
mov p2,a
rl a
call delay
djnz r3,lp4
mov p2,#10000000b
call delay

mov p2,#10000001b
call delay
mov p2,#10000010b
call delay
mov p2,#10000100b
call delay
mov p2,#10001000b
call delay
mov p2,#10010000b
call delay
mov p2,#10100000b
call delay
mov p2,#11000000b
call delay
mov p2,#11000001b
call delay
mov p2,#11000010b
call delay
mov p2,#11000100b
call delay
mov p2,#11001000b
call delay
mov p2,#11010000b
call delay
mov p2,#11100000b
call delay
mov p2,#11100001b
call delay
mov p2,#11100010b
call delay
mov p2,#11100100b
call delay
mov p2,#11101000b
call delay
mov p2,#11110000b
call delay
mov p2,#11110001b
call delay
mov p2,#11110010b
call delay
mov p2,#11110100b
call delay
mov p2,#11111000b
call delay
mov p2,#11111001b
call delay
mov p2,#11111010b
call delay
mov p2,#11111100b
call delay
mov p2,#11111101b
call delay
mov p2,#11111110b
call delay
mov p2,#11111111b
mov r7,#50
call delay1

qiang1:
mov a,#01111111b
mov r3,#7
l2:
rr a
mov p0,a
call delay
djnz r3,l2
mov p0,#11111111b
call delay
l:
mov a,#01111111b
mov r3,#7
l3:
rr a
mov p2,a
mov r7,#3
call delay
djnz r3,l3
mov p2,#11111111b
mov r7,#50
call delay1;全亮
;====================================================================================

ssq:
mov a,#111111110b
mov r3,#7
loop4q:
rl a
mov p2,a
mov r7,#2
call delay
djnz r3,loop4q
mov p2,#11111111b
mov r7,#2
call delay
xxq:
mov a,#11111110b
mov r3,#7
loop5q:
rl a
mov p0,a
mov r7,#2
call delay
djnz r3,loop5q
mov p0,#00111111b
;=======================================================
ss1q:
mov a,#11111110b
mov r3,#7
loop6q:
rl a
mov p2,a
call delay
djnz r3,loop6q
mov p2,#11111111b
call delay
mov p0,#00111110b
call delay
mov p0,#00111101b
call delay
mov p0,#00111011b
call delay
mov p0,#00110111b
call delay
mov p0,#00101111b
call delay
mov p0,#00011111b
call delay

;==================
ss2q:
mov a,#11111110b
mov r3,#7
loop8q:
rl a
mov p2,a
call delay
djnz r3,loop8q
mov p2,#11111111b
call delay
mov p0,#00011110b
call delay
mov p0,#00011101b
call delay
mov p0,#00011011b
call delay
mov p0,#00010111b
call delay
mov p0,#00001111b
call delay


;==========
ss3q:
mov a,#11111110b
mov r3,#7
loop9q:
rl a
mov p2,a
call delay
djnz r3,loop9q
mov p2,#11111111b
call delay
mov p0,#10001110b
call delay
mov p0,#10001101b
call delay
mov p0,#10001011b
call delay
mov p0,#10000111b
call delay

;=============
ss4q:
mov a,#10000000b
mov r3,#7
lp1q:
rl a
mov p2,a
call delay
djnz r3,lp1q
mov p2,#11111111b
call delay
mov p0,#10000110b
call delay
mov p0,#10000101b
call delay
mov p0,#10000011b
call delay

ss5q:
mov a,#111111110b
mov r3,#7
lp2q:
rl a
mov p2,a
call delay
djnz r3,lp2q
mov p2,#11111111b
call delay
mov p0,#10000010b
call delay
mov p0,#10000001b
call delay

ss6q:
mov a,#11111110b
mov r3,#7
lp3q:
rl a
mov p2,a
call delay
djnz r3,lp3q
mov p2,#11111111b
call delay
mov p0,#10000000b
call delay


ss7q:
mov a,#11111110b
mov r3,#7
lp4q:
rl a
mov p2,a
call delay
djnz r3,lp4q
mov p2,#01111111b
call delay

mov p2,#01111110b
call delay
mov p2,#01111101b
call delay
mov p2,#01111011b
call delay
mov p2,#01110111b
call delay
mov p2,#01101111b
call delay
mov p2,#01011111b
call delay
mov p2,#00111111b
call delay
mov p2,#00111110b
call delay
mov p2,#00111101b
call delay
mov p2,#00111011b
call delay
mov p2,#00110111b
call delay
mov p2,#00101111b
call delay
mov p2,#00011111b
call delay
mov p2,#00011110b
call delay
mov p2,#00011101b
call delay
mov p2,#00011011b
call delay
mov p2,#00010111b
call delay
mov p2,#00001111b
call delay
mov p2,#00001110b
call delay
mov p2,#00001101b
call delay
mov p2,#00001011b
call delay
mov p2,#00000111b
call delay
mov p2,#00000110b
call delay
mov p2,#00000101b
call delay
mov p2,#00000011b
call delay
mov p2,#00000010b
call delay
mov p2,#00000001b
call delay
mov p2,#00000000b










;===========================================================================================

















;=====================
mov p0,#00111111b
call delay
mov p0,#00011111b
call delay
mov p0,#00001111b
call delay
mov p0,#00000111b
call delay
mov p0,#00000011b
call delay
mov p0,#00000001b
call delay
mov p0,#00h
call delay
mov p2,#01111111b
call delay
mov p2,#00111111b
call delay
mov p2,#00011111b
call delay
mov p2,#00001111b
call delay
mov p2,#00000111b
call delay
mov p2,#00000011b
call delay
mov p2,#00000001b
call delay
mov p2,#00H
jmp star
delay:
mov r5,#240
d:mov r6,#215
d1:djnz r6,d1
djnz r5,d
ret
delay1:
mov r5,#245
k:mov r6,#215
k1:djnz r6,k1
djnz r5,k
djnz r7,delay1
ret
end