;從鍵盤輸入十進制數,輸出該十進制數的十進制,二進制(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
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 ;除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
ADD DL,30H
CMP DL,3AH
JL PRINT
ADD DL,07H
PRINT:PUSH DX
LOOP LP1
MOV CX,4
LP2:POP DX
MOV AH,02H
INT 21H
LOOP LP2
POP BX
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
MOV AX,BX
MOV CX,5
PUSH BX
MOV BX,8
LP1:XOR DX,DX
DIV BX
ADD DL,30H
PUSH DX
LOOP LP1
MOV CX,5
LP2:POP DX
MOV AH,02H
INT 21H
LOOP LP2
POP BX
SUB AX,AX ;輸出Q
ADD AL,51H
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
ADD DL,30H
PUSH DX
LOOP LP1
MOV CX,16
LP2:POP DX
MOV AH,02H
INT 21H
LOOP LP2
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
彙編語言:從鍵盤輸入十進制數,輸出該十進制數的十進制,二進制(B),十六進制(H),八進制(Q)表示
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.