找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 7094|回復(fù): 3
打印 上一主題 下一主題
收起左側(cè)

51單片機ds1302時鐘lcd1602顯示匯編程序

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:83710 發(fā)表于 2015-6-23 20:39 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式


  3. ;時控開關(guān)項目起始時間2015、8、29
  4. ORG 0000H
  5. ;***1602端口定義開始
  6. RS EQU P1.0
  7. RW EQU P1.1
  8. E  EQU P1.2
  9. HOUR10 EQU 30H;小時十位
  10. HOUR1 EQU 31H  ;小時個位
  11. MINTE10 EQU 32H ;分鐘十位    緩沖區(qū)
  12. MINTE1 EQU 33H  ;分鐘個位
  13. SCNEDS10 EQU 34H  ;秒十位
  14. SCNEDS1 EQU 35H    ;秒個位


  17. ;*****按鍵設(shè)置
  18. SCNEDS EQU 36H    ;秒
  19. MINTE EQU 37H    ;分
  20. HOUR EQU 38H    ;時
  21. SETMY1 EQU 39H    ;選擇秒寄存器
  22. SETTM1 EQU 40H    ;選擇秒設(shè)定時間
  23.     SETMY2 EQU 41H    ;選擇分寄存器   緩沖區(qū)
  24. SETTM2 EQU 42H    ;選擇分設(shè)定時間
  25.   SETMY3 EQU 43H    ;選擇時寄存器
  26. SETTM3 EQU 44H    ;選擇時設(shè)定時間
  27. ;按鍵設(shè)置用*********

  29. ;*****************鬧鐘設(shè)置用
  30. STARTHOUR10 EQU 45H
  31. STARTHOUR1 EQU 46H  
  32. STARTMINTE10 EQU 47H   ;鬧鐘開始時間
  33. STARTMINTE1 EQU 48H
  34. ;;*****************8                          區(qū)間有效緩沖區(qū)
  35. STOPHOUR10 EQU 49H
  36. STOPHOUR1 EQU 50H  ; 鬧鐘停止時間
  37. STOPMINTE10 EQU 51H
  38. STOPMINTE1 EQU 52H
  39. ;*****************鬧鐘設(shè)置用
  40. STARTMINTE EQU 53H
  41. STOPMINTE EQU 54H
  42. STARTHOUR EQU 55H
  43. STOPHOUR EQU 56H







  51. ;***1602端口定義結(jié)束
  52. ;1302*****端口定義開始
  53. MOV DPTR,#TAB
  54. CE EQU P3.5
  55. IO EQU P3.3
  56. SCLK EQU P3.4
  57. AJMP MAIN
  58. ;1302*******端口定義結(jié)束



  62. ORG 0030H
  63. MAIN:;主函數(shù)
  64. lcall SETTIME ;設(shè)置時鐘
  65. LCALL SETCLOCK
  66. START:LCALL DATE1302 ; 讀1302實時數(shù)據(jù)


  69. AJMP MAIN

  71. ;**************************************************************************************
  72.   ;S設(shè)置液晶                       *
  73. ;                       *
  74. ;**************************************************************************************
  75. INIT:; 液晶初始化開始                  /
  76. ;*********                     /

  78. LCALL DELAY15MS
  79. LCALL WRINSTRUCT;寫指令

  81.   

  83. MOV P0,#38H ;設(shè)置61*2顯示，5*7點陣，8位數(shù)據(jù)口
  84. LCALL PULSE;高脈沖

  86. ;*****
  87. LCALL DELAY5MS

  89. MOV P0,#38H ;設(shè)置61*2顯示，5*7點陣，8位數(shù)據(jù)口
  90. LCALL PULSE;高脈沖

  92. LCALL DELAY5MS

  94. MOV P0,#38H ;設(shè)置61*2顯示，5*7點陣，8位數(shù)據(jù)口
  95. LCALL PULSE;高脈沖


  98. ;**************
  99. MOV P0,#06H ;設(shè)置1602為讀寫一個字符后地址指針加一，且光標加一
  100. LCALL PULSE;高脈沖
  101. ;*****
  102. LCALL DELAY5MS

  104. ;**************
  105. MOV P0,#0FH;設(shè)置1602位為開顯示顯示光標且閃爍
  106. LCALL PULSE;高脈沖
  107. ;*****
  108.   LCALL DELAY5MS

  110. ;**************
  111. MOV P0,#01H ;清屏
  112. LCALL PULSE;高脈沖
  113. ;**************

  115. LCALL DELAY5MS

  117. ;**************

  119. RET   ;    液晶初始化結(jié)束

  121. ;**********************************************************************************

  123. DATE1302:; 讀1302實時數(shù)據(jù)開始

  125. LCALL REST
  126. lcall write1302 ;設(shè)置時鐘寫入1302芯片
  127.    nop
  128.   nop
  129.   nop
  130.   nop
  131.   nop
  132.   nop
  133.   nop
  134.   nop    ;哈哈哈原來如此！這里果然得加延時，不加的話1302反應(yīng)不過來啊，哈哈哈
  135.   nop    ;至今天我終于把DS1302`搞定了，這也是努力得來的啊，我雖然笨，但別人做到了，我通過努力也一定辦得到。
  136.                       ;至今天板子上的器件都搞定了2010年8月1日，這個值得紀念的 日子，
  137.   nop     ;
  138.   nop
  139.   nop
  140.   nop
  141.   nop

  143. KK: MOV A,#81H
  144. LCALL READ1302
  145. MOV 55H,A
  146. ANL A,#0FH    ; 秒處理
  147. MOV SCNEDS1,A
  148. MOV A,55H
  149. SWAP A
  150. ANL A,#0FH
  151. MOV SCNEDS10,A

  153. MOV A,#83H
  154. LCALL READ1302
  155. MOV 55H,A
  156. ANL A,#0FH    ;分鐘處理
  157. MOV MINTE1,A
  158. MOV A,55H
  159. SWAP A
  160. ANL A,#0FH
  161. MOV MINTE10,A

  163.   MOV A,#85H
  164. LCALL READ1302
  165. MOV 55H,A
  166. ANL A,#0FH
  167. MOV HOUR1,A   ;小時處理
  168. MOV A,55H
  169. SWAP A
  170. ANL A,#03H
  171. MOV HOUR10,A
  172. LCALL DELAY900MS
  173. LCALL CLOCKS  ;定時器查詢
  174. LCALL DISPLAY1602;液晶顯示
  175. AJMP KK






  182. RET ; 讀1302實時數(shù)據(jù)結(jié)束

  184. ;***********************************************************************************

  186. DISPLAY1602:;1602液晶顯示開始
  187. LCALL INIT ;液晶初始化
  188. ;第一行顯示TIME**:**:
  189. LCALL WRINSTRUCT;寫指令
  190. MOV P0,#82H;從02號地址開始顯示
  191. LCALL PULSE;高脈沖

  193. LCALL DELAY1MS

  195. LCALL WDATE;寫數(shù)據(jù)

  197. MOV P0,#54H;顯示T；
  198. LCALL PULSE;高脈沖

  200. LCALL DELAY1MS
  201. MOV P0,#49H;顯示I；     TIME
  202. LCALL PULSE;高脈沖

  204. LCALL DELAY1MS
  205. MOV P0,#4DH;顯示M；
  206. LCALL PULSE;高脈沖

  208. LCALL DELAY1MS
  209. MOV P0,#45H;顯示E；
  210. LCALL PULSE;高脈沖

  212. LCALL DELAY1MS
  213. MOV A,HOUR10
  214. MOVC A,@A+DPTR;顯示小時十位；
  215. MOV P0,A
  216. LCALL PULSE;高脈沖

  218. LCALL DELAY1MS

  220. MOV A,HOUR1;顯示小時個位；
  221. MOVC A,@A+DPTR
  222. MOV P0,A
  223. LCALL PULSE;高脈沖

  225. LCALL DELAY1MS
  226.   
  227. MOV P0,#3AH;顯示:；
  228. LCALL PULSE;高脈沖

  230. LCALL DELAY1MS

  232. MOV A,MINTE10;顯示分鐘十位；
  233. MOVC A,@A+DPTR
  234. MOV P0,A
  235. LCALL PULSE;高脈沖
  236. LCALL DELAY1MS

  238. MOV A,MINTE1;顯示分鐘個位；
  239. MOVC A,@A+DPTR
  240. MOV P0,A
  241. LCALL PULSE;高脈沖
  242. LCALL DELAY1MS
  243.    
  244. MOV P0,#3AH;顯示:；
  245. LCALL PULSE;高脈沖

  247. LCALL DELAY1MS

  249. MOV A,SCNEDS10;顯示秒十位；
  250. MOVC A,@A+DPTR
  251. MOV P0,A
  252. LCALL PULSE;高脈沖

  254. LCALL DELAY1MS

  256. MOV A,SCNEDS1;顯示秒個位；
  257.   MOVC A,@A+DPTR
  258. MOV P0,A
  259. LCALL PULSE;高脈沖
  260. ;******************************************************第二行顯示，以上是第一行顯示
  261. LCALL DELAY20MS

  263. LCALL WRINSTRUCT;寫指令
  264. MOV P0,#0C0H;從第二行00號40H顯示地址開始顯示
  265. LCALL PULSE;高脈沖
  266. LCALL DELAY1MS

  268. LCALL WDATE;寫數(shù)據(jù)

  270. MOV P0,#53H;顯示S；
  271. LCALL PULSE;高脈沖

  273. LCALL DELAY1MS
  274. MOV P0,#54H;顯示T；     STR
  275. LCALL PULSE;高脈沖

  277. LCALL DELAY1MS
  278. MOV P0,#52H;顯示R；
  279. LCALL PULSE;高脈沖

  281. LCALL DELAY1MS
  282. MOV A,STARTHOUR10
  283. MOVC A,@A+DPTR;顯示定時開始小時十位；
  284. MOV P0,A
  285. LCALL PULSE;高脈沖

  287. LCALL DELAY1MS

  289. MOV A,STARTHOUR1;顯示定時開始小時個位；
  290. MOVC A,@A+DPTR
  291. MOV P0,A
  292. LCALL PULSE;高脈沖

  294. LCALL DELAY1MS
  295.   
  296. MOV P0,#3AH;顯示:；
  297. LCALL PULSE;高脈沖

  299. LCALL DELAY1MS

  301. MOV A,STARTMINTE10;顯示定時開始分鐘十位；
  302. MOVC A,@A+DPTR
  303. MOV P0,A
  304. LCALL PULSE;高脈沖
  305. LCALL DELAY1MS

  307. MOV A,STARTMINTE1;顯示定時開始分鐘個位；
  308. MOVC A,@A+DPTR
  309. MOV P0,A
  310. LCALL PULSE;高脈沖
  311. ;××××××××××××××××××××××以上是開始鬧鐘設(shè)置時間顯示××××××××××××××××××××××××××××
  312. LCALL DELAY1MS

  314. LCALL WDATE;寫數(shù)據(jù)

  316. MOV P0,#53H;顯示S；
  317. LCALL PULSE;高脈沖

  319. LCALL DELAY1MS
  320. MOV P0,#54H;顯示T；     STP
  321. LCALL PULSE;高脈沖

  323. LCALL DELAY1MS
  324. MOV P0,#50H;顯示P；
  325. LCALL PULSE;高脈沖

  327. LCALL DELAY1MS
  328. MOV A,STOPHOUR10
  329. MOVC A,@A+DPTR;顯示定時結(jié)束小時十位；
  330. MOV P0,A
  331. LCALL PULSE;高脈沖

  333. LCALL DELAY1MS

  335. MOV A,STOPHOUR1;顯示定時結(jié)束小時個位；
  336. MOVC A,@A+DPTR
  337. MOV P0,A
  338. LCALL PULSE;高脈沖

  340. LCALL DELAY1MS
  341.   
  342. MOV P0,#3AH;顯示:；
  343. LCALL PULSE;高脈沖

  345. LCALL DELAY1MS

  347. MOV A,STOPMINTE10;顯示定時結(jié)束分鐘十位；
  348. MOVC A,@A+DPTR
  349. MOV P0,A
  350. LCALL PULSE;高脈沖
  351. LCALL DELAY1MS

  353. MOV A,STOPMINTE1;顯示定時結(jié)束分鐘個位；
  354. MOVC A,@A+DPTR
  355. MOV P0,A
  356. LCALL PULSE;高脈沖


















  375. RET;1602液晶顯示結(jié)束

  377. ;************************************************************************************

  379. SETTIME:  ;按鍵設(shè)置時間開始
  380. MOV P2,#0FH
  381. LCALL DISPLAY1602
  382. pp:JB P2.0,$
  383. LCALL DELAY20MS
  384. JB P2.0,PP
  385. ;**************
  386. CLR P1.7
  387. LCALL DELAY20MS   ;蜂鳴器
  388. LCALL DELAY20MS
  389. SETB P1.7
  390. ;*****************
  391. MOV SETMY1,#80H;秒指令
  392. LCALL DISPLAY1602
  393. JB P2.1,$
  394. LCALL DELAY20MS
  395. L3:JB P2.1,YY1
  396.    LCALL DELAY20MS
  397.    JB P2.1,L3

  399.    MOV B,#10
  400.    MOV A,SCNEDS
  401.    DIV AB
  402.    CJNE A,#05,LINE1
  403.    MOV A,B
  404.    CJNE A,#09,LINE1
  405.    MOV SETTM1,#00H
  406.    MOV SCNEDS,#00H
  407.    AJMP O1
  408. LINE1:CLR C;#########################||||特別注意這里啊C一定要清零，負責DA轉(zhuǎn)換是不對的|||||||=+++++++++++++++vvvvvvvvvvvvvvbbbbbbbbbb
  409. MOV A,SETTM1 ;設(shè)置加秒時間
  410. INC A
  411. DA A
  412. MOV SETTM1,A


  415. ;*************************
  416. INC SCNEDS;用來同步顯示
  417. O1:MOV A,SCNEDS
  418. MOV B,#10
  419. DIV AB
  420. MOV SCNEDS10,A
  421. MOV SCNEDS1,B    ; 秒處理



  425. LCALL DISPLAY1602
  426. ;********************
  427. YY1: JB P2.0,L3
  428. ;************************************已上是秒設(shè)置
  429.   LCALL DISPLAY1602
  430. pp2:JB P2.0,$
  431. LCALL DELAY20MS
  432. JB P2.0,PP2

  434. ;**************
  435. CLR P1.7
  436. LCALL DELAY20MS
  437. LCALL DELAY20MS
  438. SETB P1.7
  439. ;*****************

  441. MOV SETMY2,#82H;分指令
  442. LCALL DISPLAY1602
  443. JB P2.1,$
  444. L32:JB P2.1,YY2
  445.    LCALL DELAY20MS
  446.    JB P2.1,L32

  448. MOV B,#10
  449.    MOV A,MINTE
  450.    DIV AB
  451.    CJNE A,#05,LINE2
  452.    MOV A,B
  453.    CJNE A,#09,LINE2
  454.    MOV SETTM2,#00H
  455.    MOV MINTE,#00H
  456.    AJMP O2
  457. LINE2:
  458. CLR C ;######################################||||特別注意這里啊C一定要清零，負責DA轉(zhuǎn)換是不對的|||||||=+++++++++++++++vvvvvvvvvvvvvvbbbbbbbbbb
  459. MOV A,SETTM2 ;設(shè)置加分時間
  460. INC A
  461. DA A
  462. MOV SETTM2,A

  464. ;*************************
  465. INC MINTE;用來同步顯示
  466. O2:MOV A,MINTE
  467. MOV B,#10
  468. DIV AB
  469. MOV MINTE10,A
  470. MOV MINTE1,B
  471.    LCALL DISPLAY1602
  472. ;********************
  473. YY2: JB P2.0,L32
  474. ;**************************已上是分設(shè)置

  476.   LCALL DISPLAY1602
  477. pp3:JB P2.0,$
  478. LCALL DELAY20MS
  479. JB P2.0,PP3
  480. ;**************
  481. CLR P1.7
  482. LCALL DELAY20MS
  483. LCALL DELAY20MS
  484. SETB P1.7
  485. ;*****************

  487. MOV SETMY3,#84H  ;小時指令
  488. LCALL DISPLAY1602
  489. JB P2.1,$
  490. LCALL DELAY20MS
  491. L33:JB P2.1,YY3
  492.    LCALL DELAY20MS;去抖動
  493.    JB P2.1,L33

  495. MOV B,#10
  496.    MOV A,HOUR
  497.    DIV AB
  498.    CJNE A,#02,LINE3
  499.    MOV A,B
  500.    CJNE A,#03,LINE3
  501.    MOV SETTM3,#00H
  502.    MOV HOUR,#00H
  503.    AJMP O3
  504. LINE3:CLR C;################################# ||||特別注意這里啊C一定要清零，負責DA轉(zhuǎn)換是不對的媽個比我費了老大的時|||||||=+++++++++++++++vvvvvvvvvvvvvvbbbbbbbbbb
  505. MOV A,SETTM3
  506. INC A
  507. DA A
  508. MOV SETTM3,A ;設(shè)置加時時間


  511. ;*************************
  512. INC HOUR;用來同步顯示
  513. O3:MOV A,HOUR
  514. MOV B,#10
  515. DIV AB
  516. MOV HOUR10,A
  517. MOV HOUR1,B
  518. LCALL DISPLAY1602
  519. ;********************
  520. YY3: JB P2.0,L33
  521. ;******************************已上是時設(shè)置

  523. RET ;按鍵設(shè)置時間結(jié)束
  524. ;*************************************************************************************
  525. ;************************************************************************************

  527. SETCLOCK:  ;按鍵設(shè)置鬧鐘開始
  528.   UR1:JB P2.0,$
  529. LCALL DELAY20MS  ;進入定時器開始時間設(shè)制 ××設(shè)置完時間按下2.0則進入設(shè)置定時器模式，按2.1加2.2減設(shè)置想要退出則按2.0鍵
  530. JB P2.0,UR1

  532. ;**************
  533. CLR P1.7
  534. LCALL DELAY20MS
  535. LCALL DELAY20MS

  537. SETB P1.7
  538. ;*****************

  540.   LCALL DISPLAY1602
  541.   JB P2.1,$;很重要啊，關(guān)鍵啊，如果沒有則直接向下了，正是他
  542.   LCALL DELAY20MS
  543. UR2:JB P2.1,YF
  544.    LCALL DELAY20MS;去抖動
  545.    JB P2.1,UR2
  546.    ;********************

  548. MOV B,#10
  549.    MOV A,STARTMINTE
  550.    DIV AB
  551.    CJNE A,#05,LINE21
  552.    MOV A,B
  553.    CJNE A,#09,LINE21
  554.    MOV STARTMINTE,#00H
  555.    AJMP O21
  556. LINE21:INC STARTMINTE ;鬧鐘開始時間設(shè)置加分
  557.   O21:MOV A,STARTMINTE
  558. MOV B,#10
  559. DIV AB
  560. MOV STARTMINTE10,A
  561. MOV STARTMINTE1,B

  563. LCALL DISPLAY1602
  564. ;********************

  566. YF: JB P2.0,UR2

  568. ;**************
  569. CLR P1.7
  570. LCALL DELAY20MS
  571. LCALL DELAY20MS
  572. SETB P1.7
  573. ;*****************


  576. JB P2.1,$;很重要啊，關(guān)鍵啊，如果沒有則直接向下了，正是他
  577.   LCALL DELAY20MS
  578. UR22:JB P2.1,YF2
  579.    LCALL DELAY20MS;去抖動
  580.    JB P2.1,UR22

  582.    MOV B,#10
  583.    MOV A,STARTHOUR
  584.    DIV AB
  585.    CJNE A,#02,LINE22
  586.    MOV A,B
  587.    CJNE A,#03,LINE22
  588.    MOV STARTHOUR,#00H
  589.    SJMP O22
  590. LINE22:INC STARTHOUR ;鬧鐘開始時間置加時
  591. O22:MOV A,STARTHOUR
  592. MOV B,#10
  593. DIV AB
  594. MOV STARTHOUR10,A
  595. MOV STARTHOUR1,B

  597. LCALL DISPLAY1602
  598. ;********************
  599. YF2: JB P2.0,UR22
  600. ;***************
  601. ;******************************************************************************
  602.   ;**************
  603. CLR P1.7
  604. LCALL DELAY20MS
  605. LCALL DELAY20MS

  607. SETB P1.7
  608. ;*****************


  611. JB P2.1,$;很重要啊，關(guān)鍵啊，如果沒有則直接向下了，正是他
  612.   LCALL DELAY20MS
  613. UR23:JB P2.1,YF3
  614.    LCALL DELAY20MS;去抖動
  615.    JB P2.1,UR23

  617.    MOV B,#10
  618.    MOV A,STOPMINTE
  619.    DIV AB
  620.    CJNE A,#05,LINE23
  621.    MOV A,B
  622.    CJNE A,#09,LINE23
  623.    MOV STOPMINTE,#00H
  624.    SJMP O23
  625. LINE23:INC STOPMINTE ;鬧鐘結(jié)束時間設(shè)置加分
  626. O23:MOV A,STOPMINTE
  627. MOV B,#10
  628. DIV AB
  629. MOV STOPMINTE10,A
  630. MOV STOPMINTE1,B

  632. LCALL DISPLAY1602
  633. ;********************
  634. YF3: JB P2.0,UR23
  635. ;***************
  636. ;**************
  637. CLR P1.7
  638. LCALL DELAY20MS
  639. LCALL DELAY20MS

  641. SETB P1.7
  642. ;*****************


  645. JB P2.1,$;很重要啊，關(guān)鍵啊，如果沒有則直接向下了，正是他
  646.   LCALL DELAY20MS
  647. UR24:JB P2.1,YF4
  648.    LCALL DELAY20MS;去抖動
  649.    JB P2.1,UR24

  651.    MOV B,#10
  652.    MOV A,STOPHOUR
  653.    DIV AB
  654.    CJNE A,#02,LINE24
  655.    MOV A,B
  656.    CJNE A,#03,LINE24
  657.    MOV STOPHOUR,#00H
  658.    SJMP O24
  659. LINE24:INC STOPHOUR ;鬧鐘結(jié)束時間設(shè)置加時
  660. O24:MOV A,STOPHOUR
  661. MOV B,#10
  662. DIV AB
  663. MOV STOPHOUR10,A
  664. MOV STOPHOUR1,B

  666. LCALL DISPLAY1602
  667. ;********************
  668. YF4: JB P2.0,UR24
  669. ;***************

  671. RET



  675. CLOCKS:                      ;定時器查詢
  676. MOV A,HOUR10
  677. CJNE A,STARTHOUR10,ED
  678. MOV A,HOUR1
  679. CJNE A,STARTHOUR1,ED
  680. MOV A,MINTE10      ;鬧鐘開始時間
  681. CJNE A,STARTMINTE10,ED
  682. MOV A,MINTE1
  683. CJNE A,STARTMINTE1,ED
  684. clr P1.7

  686. ED:
  687. MOV A,HOUR10
  688. CJNE A,STOPHOUR10,EN
  689. MOV A,HOUR1
  690. CJNE A,STOPHOUR1,EN
  691. MOV A,MINTE10    ;鬧鐘停止時間
  692. CJNE A,STOPMINTE10,EN
  693. MOV A,MINTE1
  694. CJNE A,STOPMINTE1,EN
  695. setb P1.7

  697. EN:RET ;按鍵設(shè)置鬧鐘結(jié)束
  698. ;*************************************************************************************
  699. DELAY5MS:MOV R6,#0FH
  700. DL1:
  701.     MOV R5,#98H
  702.     DJNZ R5,$  ;延時5ms
  703.     DJNZ R6,DL1
  704. RET
  705. DELAY20MS:  MOV R7,#01H
  706. DL111:
  707.     MOV R6,#0DEH
  708. DL011:
  709.     MOV R5,#28H
  710.     DJNZ R5,$
  711.     DJNZ R6,DL011
  712.     DJNZ R7,DL111
  713.     RET


  716. WRINSTRUCT :
  717. CLR RS
  718. CLR RW ;寫指令允許
  719. CLR E
  720. RET
  721. WDATE:
  722. SETB RS
  723. CLR RW ;寫數(shù)據(jù)允許        1602使用區(qū)
  724. CLR E
  725. RET
  726. PULSE:;高脈沖
  727. SETB E
  728. NOP
  729. NOP
  730. NOP
  731. CLR E
  732. RET
  733. DELAY1MS:
  734.   MOV R6,#66H
  735. DL10:
  736.     MOV R5,#03H
  737.     DJNZ R5,$    ;延時1ms
  738.     DJNZ R6,DL10
  739.     RET
  740. DELAY15MS:

  742.   
  743.     MOV R6,#33H    ;延時15ms
  744. DL20:
  745.     MOV R5,#86H
  746.     DJNZ R5,$
  747.     DJNZ R6,DL20
  748.     RET
  749. DELAY900MS:
  750.   MOV R7,#7FH
  751. DL1E:
  752.     MOV R6,#80H
  753. DL0E:
  754.     MOV R5,#18H
  755.     DJNZ R5,$
  756.     DJNZ R6,DL0E
  757.     DJNZ R7,DL1E
  758.     RET

  760. ;********以下是1302時鐘程序開始***********************以下是1302時鐘程序開始 ***********************************
  761. deley:mov r0,#001h
  762. loop:mov r1,#0ffh

  764. lo:nop
  765.     nop
  766.     nop    ;延時子程序
  767.     NOP
  768.     NOP
  769. NOP
  770.     djnz r1,lo
  771.     djnz r0,loop
  772.     ret
  773. ;**********1302
  774. READ1302:;注意這里啊，這里的讀貝內(nèi)置到肚里面，原因再與如果分開在時序上是不成立的，
  775.         CLR SCLK
  776.         SETB CE
  777.         SETB IO
  778.         NOP
  779.         NOP
  780.       CLR C
  781.            NOP
  782.         NOP
  783.       MOV R1,#08
  784.    Ro:
  785.    CLR SCLK
  786.     RRC A
  787.     MOV IO,C
  788.     NOP
  789.     SETB SCLK
  790.     NOP
  791.     NOP
  792.     DJNZ R1,Ro



  796.       mov r1,#08
  797.        RUD:
  798.        setb sclk
  799.          NOP
  800.          NOP
  801.          CLR SCLK
  802.          NOP
  803.          NOP
  804.          MOV C,IO
  805.                   NOP
  806.          RRC A
  807.          DJNZ R1,RUD
  808.          CLR SCLK
  809.          CLR CE
  810.          RET
  811.          ;************1302
  812. write1302:LCALL DELAY5MS
  813.          mov a,SETMY1;選擇秒寄存器
  814.          LCALL WRITE1
  815.          mov a,SETTM1;選擇秒時間
  816.   LCALL WRITE2
  817.    LCALL  DELAY10US

  819.    mov a,SETMY2;分寄存器
  820.          LCALL WRITE1
  821.          mov a,SETTM2;設(shè)分時間
  822.     LCALL WRITE2
  823.    LCALL  DELAY10US

  825.    mov a,SETMY3;時寄存器
  826.         LCALL WRITE1
  827.         mov a,SETTM3 ;設(shè)為20，am,24小時制  
  828.        LCALL WRITE2
  829.          RET

  831.           WRITE1:clr sclk
  832.            SETB CE
  833.    
  834.     MOV R1,#08
  835.    WUR: RRC A
  836.     MOV IO,C
  837.     NOP
  838.     NOP
  839.    
  840.     SETB SCLK
  841.     NOP
  842.     NOP
  843.     CLR SCLK
  844.     DJNZ R1,WUR
  845.    RET
  846.   
  847. WRITE2:      MOV R1,#08
  848.    WURt: RRC A
  849.     MOV IO,C
  850.     NOP
  851.     NOP
  852.     NOP
  853.     SETB SCLK
  854.     NOP
  855.     NOP
  856.     CLR SCLK
  857.     DJNZ R1,WURt

  859.     CLR SCLK
  860.     NOP
  861.     NOP
  862.     NOP
  863.     CLR CE
  864.     RET
  865.     ;********1302
  866.    
  867. REST:CLR SCLK
  868.    CLR CE
  869.    clr io
  870.    clr c
  871.        NOP
  872.     NOP
  873.     NOP
  874.    NOP
  875.    NOP
  876.    RET
  877.    ;********1302
  878.    DELAY10US:
  879.    NOP
  880.    NOP
  881.    NOP
  882.    NOP    ;延時10us
  883.    NOP
  884.    NOP
  885.    NOP
  886.    NOP
  887.    NOP
  888.    NOP
  889.    RET
  890. ;1302程序結(jié)束*********************************************************
  891. TAB:DB 30H,31H,32H,33H,34H,35H,36H,37H,38H,39H

  893. END;2015年8月30日于天津，完成主體9月1日完成初步修飾
復(fù)制代碼


分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏2 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報

沙發(fā)
ID:204419 發(fā)表于 2017-5-25 20:15 | 只看該作者
#在請問樓主能給我發(fā)一份51單片機lcd1602和DS1302原理圖嗎，我最近一直在做這個程序可是做不出來，所以急需樓主程序相應(yīng)原理圖研究一下這里快速回復(fù)#
回復(fù)

使用道具 舉報

板凳
ID:316515 發(fā)表于 2018-6-16 21:37 | 只看該作者
樓主求電路圖
回復(fù)

使用道具 舉報

地板
ID:61140 發(fā)表于 2022-4-29 13:32 | 只看該作者
整個程序條理清楚,功能分明,看著一目了然
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復(fù) 返回頂部 返回列表