原创力文档- 1、本文档共69页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
单片机相关所有实验
实验一算术运算程序
//实验一 算术运算程序
//多字节（2字节）压缩型BCD码减法
ORG 0000H
AJMP MAIN
ORG 0030H
MAIN:
MOV R2,#2
MOV R0,#30H
MOV R1,#38H
CLR C
SUBBCD1:
MOV A,@R0
ADDC A,@R1
DA A
MOV @R0,A
INC R0
INC R1
DJNZ R2,SUBBCD1
SJMP $
END
实验二代码转换程序
;先得个位再得十位再得百位
CSEG AT 0
LJMP PRG
VAR SEGMENT DATA
PRG SEGMENT CODE
RSEG VAR
HEX: DS 1
HUND: DS 1
TEN: DS 1
ONE: DS 1
RSEG PRG
MOV A,HEX
MOV B,#0AH
DIV AB
MOV ONE,B
MOV B,#0AH
DIV AB
MOV TEN,B
MOV HUND,A
SJMP $
END
实验三表处理程序
Ⅰ;改为用MOVC A,@A+PC实现
SQUARE MACRO
XX SET 0
REPT 128
DW XX*XX
XX SET XX+1
ENDM
ENDM
DSEG AT 20H
X: DS 1
Y: DS 2
CSEG AT 0
AJMP MAIN
CSEG AT 30H
MAIN:
MOV A,X
RL A
MOV B,A
ADD A,#TAB-NEXT1
NEXT1:
MOVC A,@A+PC
MOV Y+1,A
MOV A,B
INC A
ADD A,#TAB-NEXT2
NEXT2:
MOVC A,@A+PC
MOV Y,A ;
SJMP $
TAB:
SQUARE
END
Ⅱ将内容①改为0=X=255
SQUARE MACRO
XX SET 0
REPT 256
DW XX*XX
XX SET XX+1
ENDM
ENDM
DSEG AT 20H
X: DS 1
Y: DS 2
CSEG AT 0
AJMP MAIN
CSEG AT 30H
MAIN:
MOV DPTR,#TAB
CLR C
MOV A,X
RLC A
JNC NEXT
INC DPH
NEXT:
MOV B,A
MOVC A,@A+DPTR
MOV Y,A
文档评论（0）