MCS-51 单片机设计应用程序实例 - Read
MCS-51 单片机设计应用程序实例 - Read
MCS-51 单片机设计应用程序实例 - Read
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
;<br />
MOV A,KEYY<br />
<strong>MCS</strong>-<strong>51</strong> 系 列 单 片 机 设 计 实 例<br />
CJNE A,#0FFH,KEYVAL0<br />
SETB KEYX0<br />
CLR KEYX1<br />
MOV A,KEYY<br />
CJNE A,#0FFH,KEYVAL1<br />
SETB KEYX1<br />
CLR KEYX2<br />
MOV A,KEYY<br />
CJNE A,#0FFH,KEYVAL2<br />
SETB KEYX2<br />
CLR KEYX3<br />
MOV A,KEYY<br />
CJNE A,#0FFH,KEYVAL3<br />
LJMP KEYOUT<br />
KEYVAL0: MOV R2,#00H<br />
;<br />
LJMP KEYVAL4<br />
KEYVAL1: MOV R2,#08H<br />
;<br />
LJMP KEYVAL4<br />
KEYVAL2: MOV R2,#10H<br />
;<br />
LJMP KEYVAL4<br />
KEYVAL3: MOV R2,#18H<br />
;<br />
LJMP KEYVAL4<br />
KEYVAL4: MOV DPTR,#KEYVALTAB ;键 值翻译成连续数字<br />
MOV B,A<br />
CLR A<br />
MOV R0,A<br />
KEYVAL5: MOV A,R0<br />
SUBB A,#08H<br />
JNC KEYOUT<br />
MOV A,R0<br />
MOVC A,@A+DPTR<br />
INC R0<br />
CJNE A,B,KEYVAL5<br />
DEC R0<br />
MOV A,R0<br />
ADD A,R2 ;连 接 成 连续数字<br />
MOV B,A<br />
RL A<br />
PDF created with FinePrint pdfFactory trial version http://www.fineprint.com<br />
38