因为和最大只到1000,项数必定在99以内,故程序中用了AAM
CSEG SEGMENT
ASSUME CS:CSEG
MAIN: MOV BX,0
MOV CX,0
NEXT: MOV AX,0
INC CL ;以CL作因子,且先加比较容易判断项数,楼主可以自行测试
MOV AL,CL
MUL CL
ADD BX,AX ;这里用BX存放各数平方的和
CMP BX,1000
JB NEXT
MOV AL,CL ;存放的项数在99内,所以用二-十进制(BCD码)转换
AAM
MOV DX,AX
MOV AH,2
OR DX,3030H
XCHG DH,DL
INT 21H
XCHG DH,DL
INT 21H
MOV AX,4C00H
INT 21H
CSEG ENDS
END MAIN