从键盘输入０－２０之间一个自然数Ｎ，将其平方值送显示器．
例如：提示：
ＩＮＰＵＴ　ＢＹＴＥ　ＢＣＤ：
输入：９
输出：８１

stack segment stack'stack'
dw 32 dup(0)
stack ends
data segment
INPUT DB'PLEASE INPUT N(0-2O):$'
LFB DB'0$ 1$ 4$ 9$ 16$ 25$ 36$ 49$ 64$ 81$ 100$ 121$ 144$ 169$ 196$ 225$ 256$ 289$ 328$ 361$ 400$'
N DW 6,0,6 DUP(0)

data ends
code segment
begin proc far
assume ss: stack,cs: code,ds: data
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax

MOV DX,OFFSET INPUT
MOV AH,9
INT 21H
MOV DX,OFFSET N
MOV AH,10
INT 21H

MOV AX,WORD PTR N
AND AX,0F0FH
MOV CL,2
SHL AH,1
MOV BYTE PTR N,AH
SHL AH,CL
ADD AH,BYTE PTR N
ADD AL,AH

SHL AL,CL
MOV AH,0
ADD AX,OFFSET LFB
MOV AH,9
INT 21H


ret
begin endp
code ends
end begin

程序运行出现乱码 是哪的问题啊 高手指点下 谢谢哦

谢谢你哦 我把程序改了下 我用的查表法做的 现在是不出现乱码了 但是调用不出LFB中的结果
stack segment stack'stack'
dw 32 dup(0)
stack ends
data segment
INPUT DB'PLEASE INPUT N(0-2O):$'
LFB DB '0,1,4,9,16,25,36,49,64,81,100,121,144,169,196,225,256,289,324,361,400'
N DW 6,0,6 DUP(?)

data ends
code segment
begin proc far
assume ss: stack,cs: code,ds: data
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax

MOV DX,OFFSET INPUT
MOV AH,9
INT 21H
MOV DX,OFFSET N
MOV AH,10
INT 21H
MOV DL,0AH
MOV AH,2
INT 21H

MOV AX,WORD PTR N
AND AX,0F0FH
MOV CL,2
SHL AH,1
MOV BYTE PTR N,AH
SHL AH,CL
ADD AH,BYTE PTR N
ADD AL,AH


SHL AL,CL
MOV AH,0
ADD AX,OFFSET LFB
MOV AH,9
INT 21H


ret
begin endp
code ends
end begin