;This program will show you cycle glitter between 8 led lamps
; maker:Chen Weiwu
; date:2012-11-08
; version:1.0.0
;————————————————————-
;Define
Ledprt equ p0
SegDisPlay equ p2
L1 equ 30h
l3 equ 32h
button1 equ p1.0
button2 equ p1.2
button3 equ p1.4
button4 equ p1.6
;———————-
;Set the initiation address which the program runing
;———————-
org 0
ajmp main
;———————-
Pattern1:
mov a,#11111110B
Cycle1: mov Ledprt,a
rl a
acall delay
jnb button1,cycle1
mov Ledprt,#11111111B
ret
;———————–
Pattern2:
mov a,#01111111B
mov l1,#00000001B
Cycle2: mov l3,a
xrl a,l1
mov Ledprt,a
mov a,l3
rl a
mov l3,a
mov a,l1
rr a
mov l1,a
mov a,l3
acall delay
jnb button2,cycle2
mov Ledprt,#11111111B
ret
;———————–
Pattern3:
mov a,#10101010B
Cycle3: mov l1,a
mov Ledprt,a
acall delay
mov a,#11111111B
mov Ledprt,a
acall delay
mov a,l1
rl a
jnb button3,cycle3
mov Ledprt,#11111111B
ret
;———————–
Pattern4:
mov a,#11111110B
mov l1,#00000001B
Cycle4: mov Ledprt,a
acall delay
rl a
xrl a,l1
jnb button4,cycle4
mov Ledprt,#11111111B
ret
;———————–
;———————–
;delay section
delay: mov r5,#50
delay1: mov r6,#100
DELAY2: mov r7,#10
djnz r7,$
djnz r6,delay2
djnz r5,delay1
ret
;———————–
main: mov SegDisPlay,#00H
jb button1,To2
mov SegDisPlay,#01H
Acall Pattern1
To2:
jb button2,To3
mov SegDisPlay,#02H
Acall Pattern2
To3:
jb button3,To4
mov SegDisPlay,#03H
Acall Pattern3
To4:
jb button4,main
mov SegDisPlay,#04H
Acall Pattern4
ajmp Main
;———————–
end
;————————————————————-
