EEPW论坛

用程序实现c=a2+b2。设a、b均小于10，a存在31H单元，b存在32单元，并将c存在33单元。

主程序：

ORG 200H
MOV SP,#3FH        ；设堆栈指针
MOV A,31H            ；取a值          
LCALL SQR             ；求a2
MOV R1，A            ；a2值暂存R1
MOV A,32H            ；取b值
LCALL SQR             ；求b2
ADD A,R1              ；求a2+b2
MOV 33H,A            ；存入33H

子程序：

      ORG 400H
SQR:INC A
       MOVC A,@A+PC
       RET
TAB:DB 0,1,4,9,16
       DB 25,36,49
       DB 64,81