设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › MCU综合技术区 › 51单片机ds1302时钟lcd1602显示汇编程序
返回列表 发新帖
查看: 5990|回复: 3
收起左侧

51单片机ds1302时钟lcd1602显示汇编程序

[复制链接]
ID:83710 发表于 2015-6-23 20:39 | 显示全部楼层 |阅读模式


  3. ;时控开关项目起始时间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 ;分钟十位    缓冲区
  12. MINTE1 EQU 33H  ;分钟个位
  13. SCNEDS10 EQU 34H  ;秒十位
  14. SCNEDS1 EQU 35H    ;秒个位


  17. ;*****按键设置
  18. SCNEDS EQU 36H    ;秒
  19. MINTE EQU 37H    ;分
  20. HOUR EQU 38H    ;时
  21. SETMY1 EQU 39H    ;选择秒寄存器
  22. SETTM1 EQU 40H    ;选择秒设定时间
  23.     SETMY2 EQU 41H    ;选择分寄存器   缓冲区
  24. SETTM2 EQU 42H    ;选择分设定时间
  25.   SETMY3 EQU 43H    ;选择时寄存器
  26. SETTM3 EQU 44H    ;选择时设定时间
  27. ;按键设置用*********

  29. ;*****************闹钟设置用
  30. STARTHOUR10 EQU 45H
  31. STARTHOUR1 EQU 46H  
  32. STARTMINTE10 EQU 47H   ;闹钟开始时间
  33. STARTMINTE1 EQU 48H
  34. ;;*****************8                          区间有效缓冲区
  35. STOPHOUR10 EQU 49H
  36. STOPHOUR1 EQU 50H  ; 闹钟停止时间
  37. STOPMINTE10 EQU 51H
  38. STOPMINTE1 EQU 52H
  39. ;*****************闹钟设置用
  40. STARTMINTE EQU 53H
  41. STOPMINTE EQU 54H
  42. STARTHOUR EQU 55H
  43. STOPHOUR EQU 56H







  51. ;***1602端口定义结束
  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*******端口定义结束



  62. ORG 0030H
  63. MAIN:;主函数
  64. lcall SETTIME ;设置时钟
  65. LCALL SETCLOCK
  66. START:LCALL DATE1302 ; 读1302实时数据


  69. AJMP MAIN

  71. ;**************************************************************************************
  72.   ;S设置液晶                       *
  73. ;                       *
  74. ;**************************************************************************************
  75. INIT:; 液晶初始化开始                  /
  76. ;*********                     /

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

  81.   

  83. MOV P0,#38H ;设置61*2显示，5*7点阵，8位数据口
  84. LCALL PULSE;高脉冲

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

  89. MOV P0,#38H ;设置61*2显示，5*7点阵，8位数据口
  90. LCALL PULSE;高脉冲

  92. LCALL DELAY5MS

  94. MOV P0,#38H ;设置61*2显示，5*7点阵，8位数据口
  95. LCALL PULSE;高脉冲


  98. ;**************
  99. MOV P0,#06H ;设置1602为读写一个字符后地址指针加一，且光标加一
  100. LCALL PULSE;高脉冲
  101. ;*****
  102. LCALL DELAY5MS

  104. ;**************
  105. MOV P0,#0FH;设置1602位为开显示显示光标且闪烁
  106. LCALL PULSE;高脉冲
  107. ;*****
  108.   LCALL DELAY5MS

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

  115. LCALL DELAY5MS

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

  119. RET   ;    液晶初始化结束

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

  123. DATE1302:; 读1302实时数据开始

  125. LCALL REST
  126. lcall write1302 ;设置时钟写入1302芯片
  127.    nop
  128.   nop
  129.   nop
  130.   nop
  131.   nop
  132.   nop
  133.   nop
  134.   nop    ;哈哈哈原来如此！这里果然得加延时，不加的话1302反应不过来啊，哈哈哈
  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实时数据结束

  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;写数据

  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;写数据

  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. ;××××××××××××××××××××××以上是开始闹钟设置时间显示××××××××××××××××××××××××××××
  312. LCALL DELAY1MS

  314. LCALL WDATE;写数据

  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;显示定时结束小时十位；
  330. MOV P0,A
  331. LCALL PULSE;高脉冲

  333. LCALL DELAY1MS

  335. MOV A,STOPHOUR1;显示定时结束小时个位；
  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;显示定时结束分钟十位；
  348. MOVC A,@A+DPTR
  349. MOV P0,A
  350. LCALL PULSE;高脉冲
  351. LCALL DELAY1MS

  353. MOV A,STOPMINTE1;显示定时结束分钟个位；
  354. MOVC A,@A+DPTR
  355. MOV P0,A
  356. LCALL PULSE;高脉冲


















  375. RET;1602液晶显示结束

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

  379. SETTIME:  ;按键设置时间开始
  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转换是不对的|||||||=+++++++++++++++vvvvvvvvvvvvvvbbbbbbbbbb
  409. MOV A,SETTM1 ;设置加秒时间
  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. ;************************************已上是秒设置
  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转换是不对的|||||||=+++++++++++++++vvvvvvvvvvvvvvbbbbbbbbbb
  459. MOV A,SETTM2 ;设置加分时间
  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. ;**************************已上是分设置

  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转换是不对的妈个比我费了老大的时|||||||=+++++++++++++++vvvvvvvvvvvvvvbbbbbbbbbb
  505. MOV A,SETTM3
  506. INC A
  507. DA A
  508. MOV SETTM3,A ;设置加时时间


  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. ;******************************已上是时设置

  523. RET ;按键设置时间结束
  524. ;*************************************************************************************
  525. ;************************************************************************************

  527. SETCLOCK:  ;按键设置闹钟开始
  528.   UR1:JB P2.0,$
  529. LCALL DELAY20MS  ;进入定时器开始时间设制 ××设置完时间按下2.0则进入设置定时器模式，按2.1加2.2减设置想要退出则按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,$;很重要啊，关键啊，如果没有则直接向下了，正是他
  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 ;闹钟开始时间设置加分
  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,$;很重要啊，关键啊，如果没有则直接向下了，正是他
  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,$;很重要啊，关键啊，如果没有则直接向下了，正是他
  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 ;闹钟结束时间设置加分
  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,$;很重要啊，关键啊，如果没有则直接向下了，正是他
  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 ;闹钟结束时间设置加时
  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 ;按键设置闹钟结束
  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 ;写数据允许        1602使用区
  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:;注意这里啊，这里的读贝内置到肚里面，原因再与如果分开在时序上是不成立的，
  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;设分时间
  822.     LCALL WRITE2
  823.    LCALL  DELAY10US

  825.    mov a,SETMY3;时寄存器
  826.         LCALL WRITE1
  827.         mov a,SETTM3 ;设为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程序结束*********************************************************
  891. TAB:DB 30H,31H,32H,33H,34H,35H,36H,37H,38H,39H

  893. END;2015年8月30日于天津，完成主体9月1日完成初步修饰
复制代码


单片机, 寄存器, 缓冲区, 开关, 项目

相关帖子
回复

使用道具 举报

ID:204419 发表于 2017-5-25 20:15 | 显示全部楼层
#在请问楼主能给我发一份51单片机lcd1602和DS1302原理图吗，我最近一直在做这个程序可是做不出来，所以急需楼主程序相应原理图研究一下这里快速回复#
回复

使用道具 举报

ID:316515 发表于 2018-6-16 21:37 | 显示全部楼层
楼主求电路图
回复

使用道具 举报

ID:61140 发表于 2022-4-29 13:32 | 显示全部楼层
整个程序条理清楚,功能分明,看着一目了然
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表