原创
51简易时间显示(汇编)
2008-7-25 17:02
740
0
分类:
工程师职场
org 0000h
ljmp mian
org 001bh
ljmp lt1
org 0100h
mian:mov sp,#60h
mov tmod,#10h
mov tl1,#0b0h
mov th1,#3ch
setb pt1
mov ie,#88h
setb tr1
mov dptr,#abc
mov 31h,#0f0h
mov r0,#0f9h
mov r1,#0a4h
mov r2,#0c0h
mov r3,#0c0h
mov r4,#01h
mov r5,#0ch
mov r6,#00h
mov r7,#00h
loop:lcall yan
mov p0,r0
mov p2,#0feh
lcall yan
mov p0,r1
mov p2,#0fdh
lcall yan
mov p0,r2
mov p2,#0fbh
lcall yan
mov p0,r3
mov p2,#0f7h
ljmp loop
org 0200h
lt1:mov tl1,#0b0h
mov th1,#3ch
djnz 31h,loop1
mov 31h,#0f0h
mov a,r7
movc a,@a+dptr
mov r3,a
mov a,r6
movc a,@a+dptr
mov r2,a
mov a,r5
movc a,@a+dptr
mov r1,a
mov a,r4
movc a,@a+dptr
mov r0,a
inc r7
cjne r7,#0ah,loop1
mov r7,#00h
inc r6
cjne r6,#06h,loop1
mov r6,#00h
inc r5
cjne r5,#0ah,loop2
inc r4
ljmp loop1
loop2:cjne r5,#0dh,loop1
mov r5,#01h
inc r4
cjne r4,#02h,loop1
mov r4,#00h
loop1:reti
yan:mov 30h,#200
djnz 30h,$
ret
abc:db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h
db 0c0h,0f9h,0a4h
end
文章评论(0条评论)
登录后参与讨论