Nhan lan 1 chop tat
lan 2 sang don
lan 3 chop tat
lan 4 dừng (tắt ko hiễn thị) nhấn 1 lan nua thi quay ve buoc 1
nhung ma sau khi minh nhan lan 4 (dừng ) thì chuong trinh ko chay dc nua.co ban nao giup mjnh tim loi voi.
Ct minh day:
Include 89c51.mc
org 0000h
tg equ 20h
sldl equ 21h
ck equ 22h
kq equ 23h
ljmp chinh
org 0003h
sjmp tang
org 0030h
chinh: Mov tmod,#01h
mov ie,#81h
mov p1,#00h
mov r0,#00h
sjmp $
tang: Jnb p3.2,$
inc r0
cjne r0,#1,main1
lcall choptat
main1: Cjne r0,#2,main2
lcall sangdon
main2: Cjne r0,#3,main3
lcall sangchay
main3: Cjne r0,#4,main4
lcall dung
sjmp chinh
main4: Reti
choptat: Mov p1,#00h
lcall delay
mov p1,#0ffh
lcall delay
sjmp choptat
sangchay: Mov p1,#00h
lcall delay
mov a,#00h
setb c
x11: Rlc a
mov p1,a
lcall delay
jnc x11
sjmp sangchay
sangdon: Mov p1,#00h
lcall delay
mov kq,#00h
mov ck,#8
x19: Mov sldl,ck
mov tg,#00h
setb c
x18: Mov a,tg
rlc a
mov tg,a
orl a,kq
mov p1,a
lcall delay
djnz sldl,x18
mov kq,p1
djnz ck,x19
sjmp sangdon
dung: Mov p1,#00h
lcall delay
ljmp chinh
delay: Mov r1,#5
del: Mov th0,#3ch
mov tl0,#0b0h
setb tr0
del2: Jnb p3.2,main4
jnb tf0,del2
clr tr0
clr tf0
djnz r1,del
ret
end
lan 2 sang don
lan 3 chop tat
lan 4 dừng (tắt ko hiễn thị) nhấn 1 lan nua thi quay ve buoc 1
nhung ma sau khi minh nhan lan 4 (dừng ) thì chuong trinh ko chay dc nua.co ban nao giup mjnh tim loi voi.
Ct minh day:
Include 89c51.mc
org 0000h
tg equ 20h
sldl equ 21h
ck equ 22h
kq equ 23h
ljmp chinh
org 0003h
sjmp tang
org 0030h
chinh: Mov tmod,#01h
mov ie,#81h
mov p1,#00h
mov r0,#00h
sjmp $
tang: Jnb p3.2,$
inc r0
cjne r0,#1,main1
lcall choptat
main1: Cjne r0,#2,main2
lcall sangdon
main2: Cjne r0,#3,main3
lcall sangchay
main3: Cjne r0,#4,main4
lcall dung
sjmp chinh
main4: Reti
choptat: Mov p1,#00h
lcall delay
mov p1,#0ffh
lcall delay
sjmp choptat
sangchay: Mov p1,#00h
lcall delay
mov a,#00h
setb c
x11: Rlc a
mov p1,a
lcall delay
jnc x11
sjmp sangchay
sangdon: Mov p1,#00h
lcall delay
mov kq,#00h
mov ck,#8
x19: Mov sldl,ck
mov tg,#00h
setb c
x18: Mov a,tg
rlc a
mov tg,a
orl a,kq
mov p1,a
lcall delay
djnz sldl,x18
mov kq,p1
djnz ck,x19
sjmp sangdon
dung: Mov p1,#00h
lcall delay
ljmp chinh
delay: Mov r1,#5
del: Mov th0,#3ch
mov tl0,#0b0h
setb tr0
del2: Jnb p3.2,main4
jnb tf0,del2
clr tr0
clr tf0
djnz r1,del
ret
end
