三元基本不等式公式十六进制数转换为二进制数

2020年10月26日发(作者：郭祝官)
CRLF MACRO
PUSH AX ；将AX,DX压栈
PUSH DX
MOV AH,02H ；输出回车
MOV DL,0DH
INT 21H
MOV AH,02H ；输出换行
MOV DL,0AH
INT 21H



DATA
MESS
ERROR
DATA
STACK
STA
TOP
STACK
CODE

START:



LLL:





GGG:









POP DX ；弹出DX,AX
POP AX
ENDM
SEGMENT
DB 'INPUT HEXNUMBER:','$$'
DB 'INPUT ERROR',0DH,0AH,'$$'
ENDS
SEGMENT
DW 32 DUP(?)
DW ?
ENDS
SEGMENT
ASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACK
MOV AX,DATA
MOV DS,AX
MOV ES,AX
MOV SP,TOP
MOV AH,09H
MOV DX,OFFSET MESS
INT 21H ；显示提示信息
CRLF ；调用宏
XOR DX,DX ；DX清零
MOV BL,04H ；设置接收字符位数
MOV AH,01H ；键盘输入并显示
INT 21H
CMP AL,0DH ；判断输入是否为空格或回车
JZ PPP ；是，转到PPP
CMP AL,20H
JZ PPP
CMP AL,30H ；输入数的ASCII码小于30H，
JB KKK ；跳到KKK
SUB AL,30H ；AL=AL-30H

CMP AL,0AH ；AL小于0AH，跳到GETS
(即判断是否为0到9的数）

































JB GETS
CMP AL,11H ；AL小于11H跳转到KKK
(即判断是否为A到F的数)
JB KKK
SUB AL,07H ；AL=AL-07H
CMP AL,0FH ；AL小于等于0FH跳转到GETS
JBE GETS
CMP AL,2AH ；AL小于2AH跳到KKK
JB KKK
CMP AL,2FH
JA KKK
SUB AL,20H
GETS: MOV CL,04H
SHL DX,CL
XOR AH,AH
ADD DX,AX
DEC BL
JNZ GGG
CRLF
CALL ZHXS
CRLF
JMP LLL
KKK: PUSH DX
CRLF
MOV AH,09H
MOV DX,OFFSET
INT 21H
POP DX
PPP: CRLF
CALL ZHXS
MOV AX,4C00H
INT 21H
ZHXS PROC
MOV CX,0010H
MOV BX,DX
TTT: ROL BX,1
MOV DL,BL
AND DL,01H
ADD DL,30H
MOV AH,02H
INT 21H
LOOP TTT
RET
ZHXS ENDP
；AL大于2FH跳到KKK
；(即判断是否为a到f的数）
；AL=AL-20H
；令CL=04H
；逻辑左移四次
；AX清零
；DX=DX+AX(即将二进制数送DX)
；BL=BL-1
；不为零，跳转到GGG，继续接收
；回车换行
；调用子程序ZHXS
；回车换行
；跳转到LLL，继续接收下一个十六进制数
；回车换行

ERROR ；显示出错信息
；调用ZHXS,显示转换结果
；显示子程序
；CX=0010H(即循环6次）
；循环右移





















CODE ENDS
END START