标题: 基于单片机ADC0808的数字电压表，汇编语言程序 [打印本页]
作者: 新宇@y    时间: 2020-7-23 18:31
标题: 基于单片机ADC0808的数字电压表，汇编语言程序
八路循环显示数字电压表

  1. TEMP EQU 60H
  2. ORG 0000H
  3. LJMP START
  4. ORG 0003H
  5. RETI
  6. ORG 000BH
  7. LJMP INT
  8. ORG 0013H
  9. RETI
  10. ORG 001BH
  11. RETI
  12. ORG 0023H
  13. RETI
  14. ORG 002BH
  15. RETI
  16. CLEARMENIO:
  17. CLR 00H
  18. MOV  P2,A
  19. MOV  R0,#30H
  20. MOV  R2,#0DH
  21. LOOPMEM:MOV  @R0,A
  22. INC R0
  23. DJNZ  R2,LOOPMEM ;地址30H到3DH清零
  24. MOV  20H,#00H   ;20H清零
  25. MOV  A,#0FFH
  26. MOV  P0,A
  27. MOV  P1,A      ;P0,P1,P3置位
  28. MOV  P3,A
  29. RET

  31. START:
  32. LCALL CLEARMENIO  ;初始化
  33. MOV TMOD,#02H
  34. MOV TH0,#255
  35. MOV TL0,#255
  36. MOV IE,#82H
  37. SETB TR0
  38. LCALL CLEARMENIO  ;初始化
  39. DISPLAY:
  40. MOV R3,#08H   ;八路循环显示
  41. MOV R0,#30H    ;数据地址在70H-77H
  42. MOV R1,#30H
  43. MOV 3BH,#00H   ;显示路初值
  44. ANL P2,#11111000B
  45. DISLOOP1:
  46. LCALL TEST  
  47. LCALL TUNBCD    ;显示数据转化为3位BCD码存7AH,79H,78H
  48. MOV R2,#071H     ;每路显示时间为4ms*255,约为1s
  49. DISLOOP2:
  50. CLR A
  51. CLR 00H
  52. MOV DPTR,#TABLE
  53. LCALL DISP    ;调用四位显示程序
  54. LCALL KEYWORK1
  55. JMP Q1
  56. TZ3:
  57. LJMP DISP11
  58. Q1:
  59. JB 00H,TZ3
  60. DJNZ R2,DISLOOP2   
  61. INC R1     ;显示下一路
  62. INC 3BH   ;通道显示数加1
  63. CJNE R3,#08H,M1
  64. JMP N1
  65. M1:
  66. CJNE R3,#07H,M2
  67. JMP N2
  68. M2:
  69. CJNE R3,#06H,M3
  70. JMP N3
  71. M3:
  72. CJNE R3,#05H,M4
  73. JMP N4
  74. M4:
  75. CJNE R3,#04H,M5
  76. JMP N5
  77. M5:
  78. CJNE R3,#03H,M6
  79. JMP N6
  80. M6:
  81. CJNE R3,#02H,M7
  82. JMP N7
  83. M7:
  84. CJNE R3,#01H,M8
  85. JMP N8
  86. M8:LJMP DISPLAY
  87. N1:
  88. ANL P2,#11111000B
  89. ORL P2,#00000001B
  90. JMP TZ
  91. N2:
  92. ANL P2,#11111000B
  93. ORL P2,#00000010B
  94. JMP TZ
  95. N3:
  96. ANL P2,#11111000B
  97. ORL P2,#00000011B
  98. JMP TZ
  99. N4:
  100. ANL P2,#11111000B
  101. ORL P2,#00000100B
  102. JMP TZ
  103. N5:
  104. ANL P2,#11111000B
  105. ORL P2,#00000101B
  106. JMP TZ
  107. N6:
  108. ANL P2,#11111000B
  109. ORL P2,#00000110B
  110. JMP TZ
  111. N7:
  112. ANL P2,#11111000B
  113. ORL P2,#00000111B
  114. JMP TZ
  115. N8:
  116. ANL P2,#11111000B
  117. ORL P2,#00000111B
  118. JMP TZ
  119. TZ1:
  120. LJMP DISLOOP1
  121. TZ:
  122. DJNZ R3,TZ1   ;显示八路
  123. LJMP START
  124. DISP11:
  125. MOV R2,#0FH
  126. DISLOOP11:
  127. LCALL TEST
  128. LCALL TUNBCD
  129. DISLOOP22:
  130. LCALL DISP
  131. LCALL KEYWORK2
  132. MOV R3,3BH
  133. Z0:
  134. CJNE R3,#00H,D0
  135. JMP O0
  136. D0:
  137. CJNE R3,#01H,D1
  138. JMP O1
  139. D1:
  140. CJNE R3,#02H,D2
  141. JMP O2
  142. D2:
  143. CJNE R3,#03H,D3
  144. JMP O3
  145. D3:
  146. CJNE R3,#04H,D4
  147. JMP O4
  148. D4:
  149. CJNE R3,#05H,D5
  150. JMP O5
  151. D5:
  152. CJNE R3,#06H,D6
  153. JMP O6
  154. D6:
  155. CJNE R3,#07H,D7
  156. JMP O7
  157. D7:LJMP DISLOOP11
  158. O0:
  159. ANL P2,#11111000B
  160. ORL P2,#00000001B
  161. JMP TZ5
  162. O1:
  163. ANL P2,#11111000B
  164. ORL P2,#00000001B
  165. JMP TZ5
  166. O2:
  167. ANL P2,#11111000B
  168. ORL P2,#00000010B
  169. JMP TZ5
  170. O3:
  171. ANL P2,#11111000B
  172. ORL P2,#00000011B
  173. JMP TZ5
  174. O4:
  175. ANL P2,#11111000B
  176. ORL P2,#00000100B
  177. JMP TZ5
  178. O5:
  179. ANL P2,#11111000B
  180. ORL P2,#00000101B
  181. JMP TZ5
  182. O6:
  183. ANL P2,#11111000B
  184. ORL P2,#00000110B
  185. JMP TZ5
  186. O7:
  187. ANL P2,#11111000B
  188. ORL P2,#00000111B
  189. JMP TZ5
  190. TZ5:
  191. JNB 00H,TZ2
  192. DJNZ R2,TZ4
  193. LJMP DISLOOP11

  195. INT:
  196. CPL P3.7
  197. RETI

  199. TZ2:
  200. MOV 3BH,#00H
  201. LJMP DISLOOP1
  202. TZ4:
  203. LJMP DISLOOP11

  205. TUNBCD:
  206. MOV A,@R1
  207. MOV B,#51
  208. DIV AB
  209. MOV 3AH,A
  210. MOV A,B
  211. CLR F0
  212. SUBB A,#1AH
  213. MOV F0,C
  214. MOV A,#10
  215. MUL AB
  216. MOV B,#51
  217. DIV AB
  218. JB F0,LOOP2
  219. ADD A,#5
  220. LOOP2:   
  221. MOV 39H,A
  222. MOV A,B
  223. CLR F0
  224. SUBB A,#1AH
  225. MOV F0,C
  226. MOV A,#10
  227. MUL AB
  228. MOV B,#51
  229. DIV AB
  230. JB F0,LOOP3
  231. ADD A,#5
  232. LOOP3:      
  233. MOV 38H,A
  234. RET


  237. TEST:
  238. MOV R0,#30H
  239. SETB P2.6
  240. CLR P2.6
  241. JNB P2.7,$
  242. SETB P3.4    ;30H
  243. MOV @R0,P0
  244. CLR P3.4
  245. INC R0
  246. SETB P2.6
  247. CLR P2.6
  248. JNB P2.7,$
  249. SETB P3.4    ;31H
  250. MOV @R0,P0
  251. CLR P3.4
  252. INC R0
  253. SETB P2.6
  254. CLR P2.6
  255. JNB P2.7,$
  256. SETB P3.4   ;32H
  257. MOV @R0,P0
  258. CLR P3.4
  259. INC R0
  260. SETB P2.6
  261. CLR P2.6
  262. JNB P2.7,$
  263. SETB P3.4    ;33H
  264. MOV @R0,P0
  265. CLR P3.4
  266. INC R0
  267. SETB P2.6
  268. CLR P2.6
  269. JNB P2.7,$
  270. SETB P3.4     ;34H
  271. MOV @R0,P0
  272. CLR P3.4
  273. INC R0
  274. SETB P2.6
  275. CLR P2.6
  276. JNB P2.7,$
  277. SETB P3.4    ;35H
  278. MOV @R0,P0
  279. CLR P3.4
  280. INC R0
  281. SETB P2.6
  282. CLR P2.6
  283. JNB P2.7,$
  284. SETB P3.4      ;36H
  285. MOV @R0,P0
  286. CLR P3.4
  287. INC R0
  288. SETB P2.6
  289. CLR P2.6
  290. JNB P2.7,$
  291. SETB P3.4      ;37H
  292. MOV @R0,P0
  293. CLR P3.4
  294. RET



  298. DISP:
  299. MOV 70H,R1
  300. PUSH 70H
  301. MOV P3,#01100001B
  302. MOV R1,#38H
  303. MOV A,@R1
  304. MOVC A,@A+DPTR
  305. MOV P1,A
  306. CALL DL10MS
  307. MOV P3,#01100010B
  308. MOV R1,#39H
  309. MOV A,@R1
  310. MOVC A,@A+DPTR
  311. MOV P1,A
  312. CALL DL10MS
  313. MOV P3,#01100100B
  314. MOV R1,#3AH
  315. MOV A,@R1
  316. MOVC A,@A+DPTR
  317. ADD A,#10000000B
  318. MOV P1,A
  319. CALL DL10MS
  320. MOV P3,#01101000B
  321. MOV R1,#3BH
  322. MOV A,@R1
  323. MOVC A,@A+DPTR
  324. MOV P1,A
  325. POP 70H
  326. MOV R1,70H
  327. CALL DL10MS
  328. RET
  329. DL10MS:MOV R6,#0FH     
  330. DL1:
  331. MOV R7,#0FH
  332. DL2:     
  333. DJNZ R7,DL2
  334. DJNZ R6,DL1
  335. RET
  336. DL1MS:MOV R4,#0FFH
  337. LOOP11:DJNZ R4,LOOP11               
  338.        MOV R4,#0FFH
  339. LOOP22:DJNZ R4,LOOP22         
  340. RET
  341. TABLE:
  342. DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH

  344. KEYWORK1:         
  345. JNB P3.5,KEY1
  346. KEYOUT:
  347. RET
  348. KEY1:      
  349. LCALL DISP    ;延时消抖
  350. JB         P3.5,KEYOUT
  351. WAIT11:
  352. JNB P3.5,WAIT12
  353. CPL 00H
  354. RET
  355. WAIT12:
  356. LCALL DISP
  357. AJMP WAIT11


  360. KEYWORK2:        
  361. JNB P3.5,KEY1
  362. JNB P3.6, KEY2
  363. RET
  364. KEY2:                  
  365. LCALL DISP     ;延时消抖
  366. JB P3.6,KEYOUT
  367. WAIT22:                  
  368. JNB P3.6,WAIT21
  369. INC 3BH
  370. MOV A,3BH
  371. CJNE A,#08H,KEYOUT11
  372. KEYOUT11:        
  373. JC KEYOUT1
  374. MOV 3BH,#00H
  375. KEYOUT1: RET
  376. WAIT21:
  377. LCALL DISP        ;键释放时等待
  378. AJMP WAIT22
  379. END
复制代码






欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1