10进制转16进制汇编语言.pdfVIP

; （2 ）数制转换 ;将输入的一个数据以不同进制形式输出。 ;要求： ; （a）所有数字从键盘输入； ; （b）输入数据为任意一个小于十万的十进制数据； ; （c）将所输入数据以十六进制在屏幕显示输出（即十进制转十六进制） 。 DATA SEGMENT KEYBUFFER DB 100 DB 0 DB 100 DUP(0) STRING1 DB Please input decimal data:, $ DATA ENDS CODE SEGMENT ASSUME CS:CODE,DS:DA TA,ES:DA TA START: MOV AX,DATA MOV DS,AX MOV ES,AX LEA DX,STRING1 ; 显示提示输出 MOV AH,09H INT 21H MOV AH,0AH LEA DX,KEYBUFFER INT 21H LEA SI,KEYBUFFER+1 CALL TRANS10TO16 CALL DISPCR CALL DISPAX CALL DISPCR MOV AX,BX CALL DISPAX MOV AH,4CH INT 21H DISPAL PROC NEAR PUSH AX PUSH CX PUSH DX PUSH AX MOV CL,4 ; 处理高位十六进制数 SHR AL,CL CALL CHANG ; 十六进制数变换成 ASCII 码 MOV AH,02 MOV DL,AL INT 21H POP AX AND AL,0FH ; 处理低位十六进制数 CALL CHANG ; 同上解释 MOV AH,02 MOV DL,AL INT 21H POP DX POP CX POP AX RET DISPAL ENDP CHANG PROC NEAR ; 数码转换 CMP AL,10 JNGE CHANG1 ADD AL,7 CHANG1: ADD AL,30H RET CHANG ENDP DISPAX PROC NEAR XCHG AL,AH CALL DISPAL XCHG AH,AL CALL DISPAL RET DISPAX ENDP DISPCR PROC NEAR PUSH AX PUSH DX MOV AH,2 MOV DL,0AH INT 21H MOV AH,2 MOV DL,0DH INT 21H POP DX POP AX RET DISPCR ENDP ;将输入缓冲区中以 ASCII 码表示的十进制数转换成 16 位二进制数 TRANS10TO16 PROC NEAR PUSH CX PUSH DX PUSH SI XOR AX,AX XOR CX,CX MOV CL,[SI] INC SI MOV AL,[SI] INC SI SUB AL,30H DEC CX JCXZ TRANSF2 MOV BX,10 TRANSF1: MUL BX JC TRANSF_ERR MOV DL,[SI] INC SI SUB DL,30H ADD AL,DL ADC AH,0 JC TRANSF_ERR LOOP TRANSF1 MOV BX,0 TRANSF2: JMP TRANSF_OK TRANSF_ERR: MOV BX,-1 TRANSF_OK: POP SI POP DX POP CX RET TRANS10TO16 ENDP CODE ENDS END START