查表求平方值

DATA SEGMENT
BUF DB 0,1,4,9,16,25,36,49,64,81,100
RESULT DB ?
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
BEGIN: MOV AX,DATA
MOV DS,AX
MOV AH,1
INT 21H
AND AX,000F
MOV BL,BUF[AL]
MOV RESULT,BL
MOV AH,4CH
INT 21H
CODE ENDS
END BEGIN