十六进制平方根程序设计 汇编语言

回车结束程序
这是输入十进制的,下面的是输入十六进制的
1十进制
DATAS SEGMENT
INFO1 DB 13,10,'PLEASE INPUT A NUM:$'
INFO2 DB 13,10,'THE SQRT IS:',13,10,'$'
BUFF DB 10,0,10 DUP (0)
NUM DW 0
RESULT DB 10 DUP (0)
DATAS ENDS

STACKS SEGMENT
DB 200 DUP (0)
STACKS ENDS

CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
MOV AX,DATAS
MOV DS,AX
ABD:MOV DX,OFFSET INFO1
MOV AH,9
INT 21H
MOV DX,OFFSET BUFF
MOV AH,0AH
INT 21H
CALL ABC
CMP CX,0
JZ LAST
MOV [NUM],AX
MOV DX,OFFSET INFO2
MOV AH,9
INT 21H
MOV BX,[NUM]
MOV CX,1
MOV DX,0
AG: SUB BX,CX
JB OVER
INC DX
ADD CX,2
JMP AG
OVER:MOV AX,DX
CALL DEF
JMP ABD
LAST:MOV AH,4CH
INT 21H
ABC PROC
MOV CH,0
MOV BX,OFFSET BUFF
MOV CL,[BX+1]
CMP CX,0
JZ ABCD