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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 非技术区 › 电子工程师杂谈 › 单片机数码管加减程序 汇编语言
返回列表 发新帖
查看: 3242|回复: 3
打印 上一主题 下一主题
收起左侧

单片机数码管加减程序 汇编语言

[复制链接]
跳转到指定楼层
楼主
ID:83710 发表于 2015-6-23 22:04 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
ORG 0000H
ajmp main
org 000bh
AJMP PDF   ;TR0中断入口                                            
org 0030h
MAIN:clr  f0   ;触发标志位 ****************************************
MOV DPTR,#TAB01
MOV 32H,#10H;预设定
MOV 31H,#60H;预设定
MOV 30H,#003H;预设定；
MOV R1,#32H;设定指针与R0配合，很重要值不能改；而且是工作是的指针，最重要
MOV TMOD,#01H;定时器设定
MOV TH0,#0BH  
MOV TL0,#0DCH  
mov r7,#20h  
SETB ea
setb et0 ;开中断 ****************** ***************************************
STA:MOV R0,#30H; ***************************** 以下是显示程序
mov p2,#80h;显示字
hgfd:jb f0,s;判是否触发
cvbn:mov 40h,r1
mov a,r0
cjne a,40h,kz ;进行比较R1和R0相等时便是设定状态可以通过加减修改30H,31H,32H,
jnb p3.4,INCr1
JNB P3.5,DECR1
JNB P1.5,INCR0 ;按键检测，在设定状态有效工做状态无效
JNB P1.6,DECR0
JNB P1.7,CFKS
S:CJNE R0,#31H,XX ;显示31H是要加小数点
MOV A,@R0
ANL A,#0FH
MOVC A,@A+DPTR
MOV P0,A   ; ；显示高BCD
MOV A,P2
RL A
MOV P2,A
LCALL YS
MOV DPTR,#TAB
MOV A,@R0
SWAP A
ANL A,#0FH
MOVC A,@A+DPTR
MOV P0,A  ;显示低BCD
MOV A,P2
RL A
MOV P2,A
MOV DPTR,#TAB01
AJMP ER ;............................................
DECR0:AJMP ECR0
INCR0:AJMP NCR0
CFKS:AJMP FKS    ;中转战因为程序太长
DECR1:AJMP ECR1
INCR1:AJMP NCR1
XX: MOV A,@R0;.30H，32H显示   
ANL A,#0FH           
MOVC A,@A+DPTR
MOV P0,A  
MOV A,P2
RL A
MOV P2,A
LCALL YS
MOV A,@R0
SWAP A
ANL A,#0FH
MOVC A,@A+DPTR
MOV P0,A
MOV A,P2
RL A
MOV P2,A
ER:LCALL  YS  ;延时可设定
jb f0,kdm ;判设定还是工作状态
ajmp sta  ;若是设定状态则返回
kdm:JB ACC.5,STA;吃大亏了和下面的DJNZ R7,S矛盾改STA的位置就行
kz:INC R0 ;显示用指针
js:AJMP hgfd ;**************以上是显示程序*****************************.
  
PDF:DJNZ R7,PT01 ;*********以下是中断和工作减一 程序*******************
BN:CJNE R1,#32H,KJ
AJMP HG
KJ:CJNE R1,#31H,SF
AJMP FS
SF:CJNE R1,#30H,BN
AJMP XW
HG:MOV A,32H
CJNE A,#00H,V  ;判32
CLR P1.0
DEC R1
FS:MOV A,31H
CJNE A,#00H,DDJY;判31
CLR P1.3
DEC R1
XW:MOV A,30H
CJNE A,#00H,V ;判30
CLR P1.4
MOV R1,#32H
CLR TR0
AJMP STA;............................
V: MOV A,@R1
ANL A,#0FH
CJNE A,#00h,k
MOV A,@R1
swap a
anl a,#0fh
CJNE A,#00H,h
MOV @R1,#00H
MOV R7,#20H  ;设定
CLR TR0
reti
K:MOV A,@R1
DEC A
MOV @R1,A
MOV R7,#20H  ;设定
reti
h: dec A
SWAP A
add A,#09H
mov @R1,A
MOV R7,#20H  ;设定
PT01:reti;...................................................................
SWG:AJMP S
DDJY: MOV A,@R1
ANL A,#0FH
CJNE A,#00h,XA
MOV A,@R1
swap a
anl a,#0fh
CJNE A,#00H,CQ
MOV R7,#20H   ;设定
reti
XA:MOV A,@R1
DEC A
MOV @R1,A
MOV R7,#01H ;设定
reti
CQ: dec A
SWAP A
add A,#09H
mov @R1,A
MOV R7,#01H ;设定
RETI ;****************************8以上是中断和工作减一 程序***********
NCR1:MOV R5,#099H ;*************以下是工作在设定状态时的按键选单元****
Z:MOV R6,#0FFH     
X:NOP         
DJNZ R6,X
DJNZ R5,Z;去抖动
JB P3.4,SWG
MOV A,R1
CJNE A,#32H,TQ
MOV R1,#32H
AJMP STA
TQ:INC R1
AJMP STA ;********************
ECr1: mov r5,#99h ;******************************
cv:mov r6,#0FFh
os:nop
djnz r6,os
djnz r5,cv
JB P3.5,SWG;注意这里要重复检查
mov a,r1
cjne a,#30h,QT
mov r1,#30h
ajmp sta
QT:DEC R1
AJMP STA;**************以上是工作在设定状态时的按键选单元********************************
NCR0:MOV R5,#0F9H;************以下是单元加减键*************************
ZCP:MOV R6,#0FFH
XMQ:NOP
DJNZ R6,XMQ
DJNZ R5,ZCP;去抖动
MOV A,@R1
ANL A,#0FH
CJNE A,#09h,DAMQ
MOV A,@R1
swap a
anl a,#0fh
CJNE A,#09H,FUL
MOV @R1,#99H
AJMP S
DAMQ:MOV A,@R0
INC A
MOV @R1,A
AJMP S
FUL: INC A
SWAP A
mov @R1,a
AJMP S;******************************************
ECR0:MOV R5,#0F9H;***************************************
Zh:MOV R6,#0FFH
Xj:NOP
DJNZ R6,Xj
DJNZ R5,Zh;去抖动
MOV A,@R1
ANL A,#0FH
CJNE A,#00h,kWS
MOV A,@R1
swap a
anl a,#0fh
CJNE A,#00H,hIV
MOV @R1,#00H
AJMP S
KWS:MOV A,@R1
DEC A
MOV @R1,A
AJMP S
hIV: dec A
SWAP A
add A,#09H
mov @R1,A
AJMP S;*****************以上是单元加减键****************************
FKS:SETB F0
SETB TR0
MOV R1,#32H;工作重装！
AJMP STA ;**
ys:mov r3,#05h ;******************************
l:mov r4,#056h
lo:nop
djnz r4,lo   
djnz r3,l
ret ; ***************************************
TAB01: DB  03H,9FH,25H,0DH,99H,49H,41H,1FH,01H,09H  
TAB: DB 02H,9EH,24H,0CH,98H,48H,40H,1EH,00H,08H
END

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶顶 踩踩
回复

使用道具 举报

沙发
ID:83710 发表于 2015-6-23 22:07 | 只看该作者
改进版：


  3. ORG 0000H
  4. ajmp main
  5. org 000bh
  6. AJMP PDF                                             
  7. org 0030h
  8. main:MOV DPTR,#TAB01
  9. MOV 32H,#10H;设定
  10. MOV 31H,#60H;设定
  11. MOV 30H,#10H;设定；
  12. MOV R1,#32H;..................................................................
  13. MOV TMOD,#01H
  14. MOV TH0,#0BH
  15. MOV TL0,#0DCH
  16. mov r7,#20h
  17. SETB ea
  18. setb et0
  19. setb tr0;*******************************************

  21. STA:MOV R0,#30H;.....................................................
  22. mov p2,#80h  
  23. S:CJNE R0,#31H,XX
  24. MOV A,@R0
  25. ANL A,#0FH
  26. MOVC A,@A+DPTR
  27. MOV P0,A
  28. MOV A,P2
  29. RL A
  30. MOV P2,A
  31. LCALL YS
  32. MOV DPTR,#TAB
  33. MOV A,@R0
  34. SWAP A
  35. ANL A,#0FH
  36. MOVC A,@A+DPTR
  37. MOV P0,A
  38. MOV A,P2
  39. RL A
  40. MOV P2,A
  41. MOV DPTR,#TAB01
  42. AJMP ER ;............................................

  44. XX: MOV A,@R0;.........................   
  45. ANL A,#0FH           
  46. MOVC A,@A+DPTR
  47. MOV P0,A
  48. MOV A,P2
  49. RL A
  50. MOV P2,A
  51. LCALL YS
  52. MOV A,@R0
  53. SWAP A
  54. ANL A,#0FH
  55. MOVC A,@A+DPTR
  56. MOV P0,A
  57. MOV A,P2
  58. RL A
  59. MOV P2,A
  60. ER:LCALL  YS
  61. JB ACC.5,STA

  63. INC R0

  65. AJMP S ;.........................................................
  66. PDF:DJNZ R7,PT01
  67. BN:CJNE R1,#32H,KJ
  68. AJMP HG
  69. KJ:CJNE R1,#31H,SF
  70. AJMP FS
  71. SF:CJNE R1,#30H,BN
  72. AJMP XW
  73. HG:MOV A,32H
  74. CJNE A,#00H,V  ;判32
  75. CLR P1.0
  76. DEC R1
  77. FS:MOV A,31H
  78. CJNE A,#00H,DDJY;判31
  79. CLR P1.3
  80. DEC R1
  81. XW:MOV A,30H
  82. CJNE A,#00H,V ;判30
  83. CLR P1.4
  84. MOV R1,#32H
  85. CLR TR0
  86. AJMP STA;................................................................
  87. V: MOV A,@R1
  88. ANL A,#0FH
  89. CJNE A,#00h,k
  90. MOV A,@R1
  91. swap a
  92. anl a,#0fh
  93. CJNE A,#00H,h
  94. MOV @R1,#00H
  95. MOV R7,#20H
  96. CLR TR0
  97. reti
  98. K:MOV A,@R1
  99. DEC A
  100. MOV @R1,A
  101. MOV R7,#20H
  102. reti
  103. h: dec A
  104. SWAP A
  105. add A,#09H
  106. mov @R1,A
  107. MOV R7,#20H
  108. PT01:reti;...................................................................

  110. DDJY: MOV A,@R1
  111. ANL A,#0FH
  112. CJNE A,#00h,XA
  113. MOV A,@R1
  114. swap a
  115. anl a,#0fh
  116. CJNE A,#00H,CQ
  117. MOV R7,#20H
  118. reti
  119. XA:MOV A,@R1
  120. DEC A
  121. MOV @R1,A
  122. MOV R7,#01H
  123. reti
  124. CQ: dec A
  125. SWAP A
  126. add A,#09H
  127. mov @R1,A
  128. MOV R7,#01H
  129. RETI


  132. ys:mov r3,#05h
  133. l:mov r4,#02h
  134. lo:nop
  135. djnz r4,lo
  136. djnz r3,l
  137. ret
  138. TAB01: DB  03H,9FH,25H,0DH,99H,49H,41H,1FH,01H,09H  

  140. TAB: DB 02H,9EH,24H,0CH,98H,48H,40H,1EH,00H,08H

  142. END
复制代码
回复

使用道具 举报

板凳
ID:84465 发表于 2015-7-2 14:02 | 只看该作者
我正在学习数码管操作，楼主有这个加减程序的电路图吗
回复

使用道具 举报

地板
ID:74784 发表于 2015-7-12 09:53 | 只看该作者
玩汇编的
没有电路图配合
等于零
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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