原创力文档- 1、本文档共4页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
基于单片机的红外门控系统源程序
程序的具体内容如下：
$MOD52?
?ORG??0000H
????????LJMP?MAIN
????????ORG??0003H
????????LJMP?0100H
????????ORG??0013H
????????LJMP?0150H
????????ORG??0050H
MAIN:???CLR??A
????????MOV??30H,A??????????;初始化缓存区
????????MOV??31H,A
????????MOV??32H,A
????????MOV??33H,A
????????MOV??R6?,A
????????MOV??R7?,A
?SETB?EA
?SETB?EX0
?SETB?EX1
?SETB?IT0
?SETB?IT1
?SETB?PX1
NEXT1:??ACALLHEXTOBCDD???????;调用数制转换子程序
????????ACALLDISPLAY?????????;调用显示子程序
????????LJMP?NEXT1
????????ORG??0100H?;中断0服务程序
?LCALL?DELY
?mov70h,#2
?djnz70h,next
?JBC?F0,NEXT
???????SETBF0
???????CLRP0.0
?LCALL?DELY0
?SETB??P0.0????????
????????MOV??A,R7
??ADD??A,#1
??MOV??R7,A
??MOV??A,R6
????????ADDC?A,#0
?MOV??R6,A
?CJNE?R6,#07H,NEXT
?CLR??A
?MOV??R6,A
?MOV??R7,A
NEXT:?RETI
?ORG??0150H???;中断1服务程序
?LCALL?DELY
?mov70h,#2
?djnz70h,next2
?JBC?F0,NEXT2
?SETB?F0
?CLRP0.0
?LCALL?DELY0
?SETB??P0.0??
?CLRC???????????
????????MOV??A,R7
?
?SUBB??A,#1
?MOV??R7,A
?MOV??A,R6
??SUBB?A,#0
?MOV??R6,A
?CJNE?R6,#07H,NEXT2
?CLR??A
?MOV??R6,A
?MOV??R7,A
NEXT2:?RETI
?ORG??0200H
HEXTOBCDD:MOV?A,R6??????????????;由十六进制转化为十进制
????????PUSH?ACC
????????MOV??A,R7
????????PUSH?ACC
?MOV??A,R2
????????PUSH?ACC
?CLR??A
????????MOV??R3,A
?MOV??R4,A
?MOV??R5,A
?MOV??R2,#10H
HB3:????MOV??A?,R7?????????????;将十六进制中最高位移入进位位中
????????RLC??A
?MOV??R7,A
?MOV??A?,R6
?RLC??A
?MOV??R6,A
?MOV??A?,R5?????????????;每位数加上本身相当于将这个数乘以2
?ADDC?A?,R5
?DA???A
?MOV??R5,A
?MOV??A?,R4
?ADDC?A?,R4
?DA???A??????????????????;十进制调整
?MOV??R4,A
?MOV??A?,R3
?ADDC?A?,R3
?DJNZ?R2,HB3
?POP??ACC
?MOV??R2,A
?POP??ACC
?MOV??R7,A
?POP??ACC
?MOV??R6,A
?RET
?ORG??0250H
DISPLAY:
?MOV??R0,#30H
????????MOV??A?,R5
?ANL??A?,#0FH
?MOV??@R0,A
?MOV??A?,R5
?S
文档评论（0）