原创 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
            
PARTNER CONTENT

文章评论0条评论)

登录后参与讨论
我要评论
0
0
关闭 站长推荐上一条 /4 下一条