1个回答

;从键盘输入十进制数，输出该十进制数的十进制，二进制（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 ;用于结束MAIN过程

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

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

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 ;除16取余法输出十六进制

LEA DX,INFO3

MOV AH,09H

INT 21H

MOV AX,BX

MOV CX,4

PUSH BX

MOV BX,16

LP1:XOR DX,DX

DIV BX

CMP DL,3AH

JL PRINT

PRINT:PUSH DX

LOOP LP1

MOV CX,4

LP2:POP DX

MOV AH,02H

INT 21H

LOOP LP2

POP BX

SUB AX,AX ;输出H

MOV DL,AL

MOV AH,02H

INT 21H

RET

BINIHEX ENDP

BINIQEC PROC NEAR ;除八取余法输出八进制

LEA DX,INFO4

MOV AH,09H

INT 21H

MOV AX,BX

MOV CX,5

PUSH BX

MOV BX,8

LP1:XOR DX,DX

DIV BX

PUSH DX

LOOP LP1

MOV CX,5

LP2:POP DX

MOV AH,02H

INT 21H

LOOP LP2

POP BX

SUB AX,AX ;输出Q

MOV DL,AL

MOV AH,02H

INT 21H

RET

BINIQEC ENDP

BINIBIN PROC NEAR ;除2取余法输出二进制

LEA DX,INFO5

MOV AH,09H

INT 21H

MOV CX,16

MOV AX,BX

PUSH BX

MOV BX,2

LP1:XOR DX,DX

DIV BX

PUSH DX

LOOP LP1

MOV CX,16

LP2:POP DX

MOV AH,02H

INT 21H

LOOP LP2

POP BX

SUB AX,AX ;输出B

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