汇编语言（二）：从键盘输入十进制数，输出该十进制数的十进制，二进制（B)，十六进制(H)，八进制(Q)表示

;从键盘输入十进制数，输出该十进制数的十进制，二进制（B)，十六进制(H)，八进制(Q)
;用循环左移指令做的输出函数
DATA SEGMENT ;此处输入数据段代码
INFO1   DB   0DH,0AH,'INPUT A NUMBER:$'
INFO2   DB   0DH,0AH,'THE DECIMAL OF THIS NUMBER IS:$'
INFO3   DB   0DH,0AH,'THE HEXIMAL OF THIS NUMBER IS:$'
INFO4   DB   0DH,0AH,'THE QECIMAL OF THIS NUMBER IS:$'
INFO5   DB   0DH,0AH,'THE BINIMAL OF THIS NUMBER IS:$'
DATA ENDS
ZHUANHUA SEGMENT
ASSUME CS:ZHUANHUA,DS:DATA

MAIN PROC FAR
MOV AX,DATA
MOV DS,AX
REPET:
CALL DECIBIN    ;十进制转化到二进制，输入函数
CALL BINIDEC    ;二进制转化到十进制输出
CALL CRLF       ;输出换行
CALL BINIHEX    ;二进制转化到十六进制输出
CALL CRLF
CALL BINIQEC    ;二进制转化到八进制输出
CALL CRLF
CALL BINIBIN    ;二进制转到二进制并输出
CALL CRLF
CALL STOP
JMP REPET
MAIN ENDP

DECIBIN PROC NEAR      ;十进制转化到二进制函数
LEA  DX,INFO1
MOV  AH,09H
INT  21H
MOV BX,0
NEWCHAR:MOV AH,01H
INT 21H
SUB AL,30H
JL EXIT
CMP AL,9D
JG EXIT
CBW
XCHG AX,BX
MOV CX,10D
MUL CX
XCHG AX,BX
ADD BX,AX
JMP NEWCHAR
EXIT:
RET

DECIBIN ENDP

BINIDEC PROC NEAR      ;用除10取余法输出十进制

LEA  DX,INFO2
MOV  AH,09H
INT  21H
MOV CX,3
MOV AX,BX
PUSH BX
MOV BX,10
LP1: XOR DX,DX
DIV BX
ADD DL,30H
PUSH DX
LOOP LP1
MOV CX,3
LP2: POP DX
MOV AH,02H
INT 21H
LOOP LP2
POP BX
RET
BINIDEC ENDP

BINIHEX PROC NEAR   ;输出十六进制
LEA  DX,INFO3
MOV  AH,09H
INT  21H
MOV CH,4
ROTATE: MOV CL,4
ROL BX,CL
MOV AL,BL
AND AL,0FH
ADD AL,30H
CMP AL,3AH
JL  PRINTIT
ADD AL,7H
PRINTIT:MOV DL,AL
MOV AH,02H
INT 21H
DEC CH
JNZ  ROTATE
SUB AX,AX   ;输出H
ADD AL,48H
MOV DL,AL
MOV AH,02H
INT 21H
RET
BINIHEX ENDP

BINIQEC PROC NEAR  ;输出八进制
LEA  DX,INFO4
MOV  AH,09H
INT  21H
PUSH BX
SHL BX,1
MOV CH,5
ROTATE: MOV CL,3
ROL BX,CL
MOV AL,BL
AND AL,07H
ADD AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
DEC CH
JNZ  ROTATE
POP BX
SUB AX,AX  ;输出Q
ADD AL,51H
MOV DL,AL
MOV AH,02H
INT 21H
RET
BINIQEC ENDP

BINIBIN PROC NEAR       ;输出二进制
LEA  DX,INFO5
MOV  AH,09H
INT  21H
PUSH BX
MOV CH,16
ROTATE: MOV CL,1
ROL BX,CL
MOV AL,BL
AND AL,01H
ADD AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
DEC CH
JNZ  ROTATE
POP BX
SUB AX,AX     ;输出B
ADD AL,42H
MOV DL,AL
MOV AH,02H
INT 21H
RET
BINIBIN ENDP

CRLF   PROC NEAR    ;输出换行符
MOV DL,0DH
MOV AH,2
INT 21H
MOV DL,0AH
MOV AH,2
INT 21H
RET
CRLF  ENDP
STOP PROC NEAR         ;用于结束MAIN过程
MOV AX,4C00H
INT 21H
RET
STOP ENDP
ZHUANHUA    ENDS
END MAIN