dồng hồ vi xử lý

tiến làm xong bài đồng hồ rồi ne.co 1 so cho chơi tiengs anh cho nó choáng, nhưng hok hiểu cái lệnh delay1s sai chỗ nào mà chạy nhanh thế... anh em xem dum nha

org 0h
sec equ 30h
min equ 31h
secp25 equ 32h
secp24 equ 33h
minp27 equ 34h
minp26 equ 35h
mov dptr,#maled
mov sec,#0
mov min,#0
begin:
lcall breaksec
lcall display
lcall breakmin
lcall display
lcall delay1s
inc sec
mov r3,sec
cjne r3,#60,begin
mov sec,#0
inc min
mov r4,min
cjne r4,#60,begin
mov min,#0

breaksec:
mov a,sec
mov b,#10
div ab
mov secp25,a
mov secp24,b
ret
breakmin:
mov a,min
mov b,#10
div ab
mov minp27,a
mov minp26,b
ret
delay1s:
mov r0,#100
mov tmod,10h
meo: mov th1,#high(-10000)
mov tl1,#low(-10000)
setb tr1
jnb tf1,$
clr tr1
clr tf1
djnz r0,meo
ret
delay:
mov r1,#50
loop: mov r2,#50
loop1: djnz r2,loop1
djnz r1,loop
ret

display:
mov a,secp25
movc a,@a+dptr
mov p0,a
clr p2.5
lcall delay
setb p2.5
mov a,secp24
movc a,@a+dptr
mov p0,a
clr p2.4
lcall delay
setb p2.4
mov a,minp27
movc a,@a+dptr
mov p0,a
clr p2.7
lcall delay
setb p2.7
mov a,minp26
movc a,@a+dptr
mov p0,a
clr p2.6
lcall delay
setb p2.6
ret
maled:
db 64,121,36,48,25,18,2,120,0,16
end

tiến khác phục được lỗi rồi vào xem thử nha...trong lúc đang chạy delay1s thì cho display lun

org 0h
sec equ 30h
min equ 31h
secp25 equ 32h
secp24 equ 33h
minp27 equ 34h
minp26 equ 35h
mov dptr,#maled
mov sec,#0
mov min,#0
begin:
lcall breaksec
lcall display
lcall breakmin
lcall display
lcall delay1s
inc sec
mov r3,sec
cjne r3,#60,begin
mov sec,#0
inc min
mov r4,min
cjne r4,#60,begin
mov min,#0
breaksec:
mov a,sec
mov b,#10
div ab
mov secp25,a
mov secp24,b
ret
breakmin:
mov a,min
mov b,#10
div ab
mov minp27,a
mov minp26,b
ret
delay1s:
mov r0,#200
mov tmod,10h
meo: mov th1,#high(-5000)
mov tl1,#low(-5000)
setb tr1
jnb tf1,display
clr tr1
clr tf1
djnz r0,meo
ret
delay:
mov r1,#50
loop: mov r2,#200
loop1: djnz r2,loop1
djnz r1,loop
ret
display:
mov a,secp25
movc a,@a+dptr
mov p0,a
clr p2.5
lcall delay
setb p2.5
mov a,secp24
movc a,@a+dptr
mov p0,a
clr p2.4
lcall delay
setb p2.4
mov a,minp27
movc a,@a+dptr
mov p0,a
clr p2.7
lcall delay
setb p2.7
mov a,minp26
movc a,@a+dptr
mov p0,a
clr p2.6
lcall delay
setb p2.6
ret
maled:
db 64,121,36,48,25,18,2,120,0,16
end
http://www.mediafire.com/myfiles.php dơ 4led7 ve thử nha

link khacs ne....may ngu ah
http://www.mediafire.com/?notzzntw1kn

ai vào topic này cho hỏi luôn... chân txd, rxd nối từ 98c51 vào lcd nối vào cái chân chết tiệt nào vậy

sao ma may up link ng_ wa z may?
link do chi co may dang nhap moi zo duoc thoi, con bon tao lam sao ma zo duoc
xem lai di !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
gui file dinh kem cho no nhanh
de download nua.

dc ma

day la mach ne
http://www.mediafire.com/?notzzntw1kn

Chương trình delay1s của pa viết không đúng rồi. CT đó chỉ delay 0,5s thôi, bạn thử thay = CT delay1s này xem:
delay:
Mov r0,#255
loop:Mov r1,#255
loop1:Djnz r1,loop1
Djnz r0,loop
Ret

bạn nên thêm CT display để LED được sáng rõ hơn !!!
:3D_25:

CT này nhiều lỗi quá . . . . led hiển thị Min chạy ko đúng Zzzz :3D_50:

hok phải đâu do proteus đó