查表程序
相关主题
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
程序1:
BUF1 equ 30h
BUF2 equ 40h
N equ 0AH
Org 0000h
CLR A
MOV R0,#BUF1
MOV R1,#N
Loop1:MOV @R0,A
INC R0
INC A
DJNZ R1,Loop1
MOV R7,#N
MOV R0,#BUF1
MOV R1,#BUF2 LOOP:
MOV A,@R0
ADD A,#0BCH
MOVC A,@A+PC
MOV @R1,A
INC R1
INC R0
DJNZ R7,LOOP
ORG 00D0H
DB 00H,01H,04H,09H,16H DB 25H,36H,49H,64H,81H END
程序2:
BUF1 equ 30h
BUF2 equ 50h
N equ 0AH
Org 0000h
CLR A
MOV R0,#BUF1
MOV R1,#N
Loop1:MOV @R0,A
INC R0
INC A
DJNZ R1,Loop1
MOV R7,#N
MOV R0,#BUF1
MOV R1,#BUF2
MOV DPTR,#TABLE
LOOP:
MOV A,@R0
MOV B,#2
MUL AB
MOV R5,A
MOVC A,@A+DPTR
MOV @R1,A
INC R1
MOV A,R5
INC A
MOVC A,@A+DPTR
MOV @R1,A
INC R0
INC R1
DJNZ R7,LOOP
TABLE: DW 00H,01H,08H,27H,64H
DW 0125H,0216H,0343H,0672H,0729H END