音影先锋亚洲天堂网|电影世界尽头的爱完整版播放|国产熟女 91|高清无码免费观看欧美日韩|韩国一区二区三区黄色录像|美女亚洲加勒比在线|亚洲综合网开心五月|7x成人在线入口|成人网站免费日韩毛片区|国产黄片?一级?二级?三级

<fieldset id="kopyi"></fieldset>

首頁 | 行業(yè)黑名單 | 幫助

電子元器件

電子資訊

技術(shù)資料

[原創(chuàng)]匯編1602時鐘程序

作者：飄零　欄目：單片機(jī)

匯編1602時鐘程序

沒有加控制程序

不過沒多少說明

對有點(diǎn)基礎(chǔ)的應(yīng)該都能看懂

2樓：

>>參與討論

作者：飄零于 2007/3/31 3:54:23 發(fā)布：

rs equ p2.0
rw equ p2.1
en equ p2.2
org  0h
jmp begin
org 0bh
jmp to_int
begin:mov r0,#70h
      mov r7,#10h
again:mov @r0,#0h
      inc r0
      djnz r7,again
      mov tmod,#0h
      mov ie,#10000010b
      mov tl0,#24
      mov th0,#99
      setb tr0
      mov r2,#200
loop: jmp loop

;;;;;;定時器1S定時;;;;;;;
to_int:
      PUSH a
      PUSH psw
      clr et0
      clr tr0
      mov tl0,#24
      mov th0,#99
      setb tr0
      djnz r2,out
      mov r2,#200
      call DISPLAY        ;;;;;;ASC碼轉(zhuǎn)換;;;;;;

call lcd ;;;;;;LCD顯示;;;;;;;;

      mov r0,#74h
      call jia1
      mov a,r4
      cjne a,#60h,out
      call clean
      mov r0,#72h
      call jia1
      mov a,r4
      cjne a,#60h,out
      call clean
      mov r0,#70h
      call jia1
      mov a,r4
      cjne a,#24h,out
      call clean
out:  pop psw
      pop a
      setb et0
      reti

jia1:
      mov a,@r0
      inc r0
      swap a
      orl a,@r0
      inc a
      da a
      mov r4,a
      anl a,#0fh
      mov @r0,a
      mov a,r4
      dec r0
      anl a,#0f0h
      swap a
      mov @r0,a
      ret

clean:mov a,#0
      mov @r0,a
      dec r0
      mov @r0,a
      ret

;;;;;;;;;;;;;ASC碼轉(zhuǎn)換;;;;;;;;;;;;;;;
DISPLAY:
      mov r5,#08h
      mov r1,#70h
      mov r0,#7ah
play:
      mov a,@r1
      add a,#30h
      mov @r0,a
      inc r0
      inc r1
      djnz r5,play
      ret

;;;;;;;;;;;;LCD顯示;;;;;;;;;;;;;;;;;;
table:db "made by piaoling"

enable:
      clr rs
      clr rw
      clr en
      call delay
      setb en
      ret

lcd:
      mov p0,#01h
      acall enable
      mov p0,#02h
      acall enable
      mov p0,#06h
      acall enable
      mov p0,#0ch
      acall enable
      mov p0,#38h
      acall enable
      mov p0,#18h
      acall enable
;;;;;;;;;;;寫數(shù)據(jù);;;;;;;
      mov p0,#80h
      call enable
      call line1
      mov p0,#0c0h
      call enable
      mov dptr,#table
      mov r5,#16
      mov r1,#0
again2:
      mov a,r1
      movc a,@a+dptr
      call write
      inc r1
      djnz r5,again2
      ret

line1:mov a,#'T'
      call write
      mov a,#'I'
      call write
      mov a,#'M'
      call write
      mov a,#'E'
      call write
      mov a,#'-'
      call write
      mov a,7ah
      call write
      mov a,7bh
      call write
      MOV A,#':'
      CALL WRITE
      mov a,7ch
      call write
      mov a,7dh
      call write
      MOV A,#':'
      CALL WRITE
      mov a,7eh
      call write
      mov a,7fh
      call write
      ret

delay:
      mov r7,#10
delay1:
      mov r6,#10
      djnz r6,$
      djnz r7,delay1
      ret

write:
      mov p0,a
      setb rs
      clr rw
      clr en
      call delay
      setb en
      ret
      end

3樓：

>>參與討論

作者：飄零于 2007/3/31 4:52:23 發(fā)布：

非常抱歉

上面程序中CLEAN子程序出現(xiàn)錯誤

現(xiàn)在重新發(fā)一遍

clean:mov a,#0
      mov @r0,a
      inc r0
      mov @r0,a
      ret

完整程序

call lcd ;;;;;;LCD顯示;;;;;;;;

      mov r0,#74h
      call jia1
      mov a,r4
      clr c
      cjne a,#60h,out1
out1: jc out
      call clean
      mov r0,#72h
      call jia1
      mov a,r4
      clr c
      cjne a,#60h,out1
out2: jc out
      call clean
      mov r0,#70h
      call jia1
      mov a,r4
      clr c
      cjne a,#24h,out3
out3: jc out
      call clean
out:  pop psw
      pop a
      setb et0
      reti

clean:mov a,#0
      mov @r0,a
      inc r0
      mov @r0,a
      ret

;;;;;;;;;;;;LCD顯示;;;;;;;;;;;;;;;;;;
table:db "made by piaoling"

enable:
      clr rs
      clr rw
      clr en
      call delay
      setb en
      ret

delay:
      mov r7,#10
delay1:
      mov r6,#10
      djnz r6,$
      djnz r7,delay1
      ret

write:
      mov p0,a
      setb rs
      clr rw
      clr en
      call delay
      setb en
      ret
      end

4樓：	>>參與討論
作者： mio 于 2007/3/31 10:37:09 發(fā)布：好人

參與討論

相關(guān)帖子

求助大俠

[求助]8051F320的相關(guān)程序

用單片機(jī)和D/A芯片做可調(diào)電壓源

找個PLL（鎖相環(huán)）的原理電路

今年電子設(shè)計(jì)大賽有誰參加?

免費(fèi)注冊為維庫電子開發(fā)網(wǎng)會員，參與電子工程師社區(qū)討論，點(diǎn)此進(jìn)入