汇编语言十六进制转bcd

汇编语言中，可以使用一些指令将十六进制数转换为BCD码。下面是一些示例代码：

1. 16位十六进制转BCD码：

MOV AX, 0x1234
MOV BX, 10
MOV CX, 4
MOV DX, 0

LOOP:
DIV BX
ADD DL, 0x30
PUSH DX
MOV DX, 0
DEC CX
JNZ LOOP

MOV CX, 4
POP DX
MOV AH, 0x02

PRINT_LOOP:
INT 21h
POP DX
INT 21h
DEC CX
JNZ PRINT_LOOP

这段代码将16位的十六进制数0x1234转换为BCD码，并通过INT 21h打印出来。具体实现过程是使用DIV指令将AX寄存器中的数除以10，余数存入DX寄存器中，然后将余数加上0x30即可得到对应的BCD码。将得到的BCD码压入栈中，最后再通过POP指令逆序输出即可。

2. 8位十六进制转BCD码：

MOV AL, 0x7F
MOV BL, 10
MOV CL, 2
MOV DL, 0

LOOP:
DIV BL
ADD DL, 0x30
DEC CL
JNZ LOOP

MOV AH, 0x02
INT 21h
MOV AH, 0x02
MOV DL, DH
INT 21h

这段代码将8位的十六进制数0x7F转换为BCD码，并通过INT 21h打印出来。具体实现过程类似于上面的代码，只是这里使用AL寄存器存储数值。输出时需要将高四位和低四位分别输出，因为它们对应的BCD码不一样。

相关问题

DOSbox通过masm和link编写汇编语言程序实现输入一个十进制数得到它对应的二进制数，十六进制数与BCD码，其中该程序包括四个子程序，分别为“readchar读取输入的字符；convert_2 将十进制数转化为二进制数；convert_16 将十进制数转化为十六进制数；convert_BCD 将十进制数转化为BCD码”，其中三个转化结果都需要输出

这是一个很有趣的问题！下面是用MASM和LINK编写的汇编语言程序，实现输入一个十进制数并输出对应的二进制数、十六进制数和BCD码的过程：

.model small
.stack 100h

.data
    decimal db ?
    binary db 9 dup('$')
    hexa db 3 dup('$')
    bcd db 6 dup('$')
    newline db 0Dh, 0Ah, '$'
    
.code
main proc
    mov ax, @data
    mov ds, ax
    
    ; 读取输入的字符
    call readchar
    
    ; 将十进制数转化为二进制数
    mov al, decimal
    call convert_2
    mov binary, al
    
    ; 将十进制数转化为十六进制数
    mov al, decimal
    call convert_16
    mov hexa, al
    
    ; 将十进制数转化为BCD码
    mov al, decimal
    call convert_BCD
    mov bcd, al
    
    ; 输出结果
    mov ah, 09h
    mov dx, offset binary
    int 21h
    
    mov dx, offset newline
    int 21h
    
    mov dx, offset hexa
    int 21h
    
    mov dx, offset newline
    int 21h
    
    mov dx, offset bcd
    int 21h
    
    mov ah, 4Ch
    int 21h
    
main endp

; 子程序：读取输入的字符
readchar proc
    mov ah, 01h
    int 21h
    
    sub al, 30h ; 将ASCII码转化为十进制数
    
    mov decimal, al
    
    ret
readchar endp

; 子程序：将十进制数转化为二进制数
convert_2 proc
    mov bl, 2 ; 除数为2
    
    xor bh, bh
    
    mov cl, 7 ; 循环7次，处理8位二进制数
    
    mov si, 0 ; 存储结果的偏移地址
    
convert_2_loop:
    mov ah, 0 ; 清空高位字节
    
    div bl ; 除法运算
    
    add ah, 30h ; 结果转化为ASCII码
    
    mov [binary+si], ah ; 存储结果
    
    inc si
    
    loop convert_2_loop
    
    ret
convert_2 endp

; 子程序：将十进制数转化为十六进制数
convert_16 proc
    mov bl, 16 ; 除数为16
    
    xor bh, bh
    
    mov cl, 2 ; 循环2次，处理两位十六进制数
    
    mov si, 0 ; 存储结果的偏移地址
    
convert_16_loop:
    mov ah, 0 ; 清空高位字节
    
    div bl ; 除法运算
    
    cmp ah, 9 ; 判断余数是否大于9
    
    jbe convert_16_digit ; 如果余数小于等于9，直接转化为ASCII码
    add ah, 07h ; 如果余数大于9，转化为字母的ASCII码
    
convert_16_digit:
    add ah, 30h ; 结果转化为ASCII码
    
    mov [hexa+si], ah ; 存储结果
    
    inc si
    
    loop convert_16_loop
    
    ret
convert_16 endp

; 子程序：将十进制数转化为BCD码
convert_BCD proc
    xor ah, ah ; 清空高位字节
    xor si, si ; 初始化偏移地址
    
convert_BCD_loop:
    mov al, decimal ; 将十进制数复制到al
    
    aam ; 将al中的十位和个位分别存放在ah和al中
    
    add ah, 30h ; 十位转化为ASCII码
    
    mov [bcd+si], ah ; 存储十位
    
    add al, 30h ; 个位转化为ASCII码
    
    mov [bcd+si+1], al ; 存储个位
    
    add si, 2 ; 偏移地址增加2个字节
    
    cmp ah, 0 ; 判断十位是否为0
    
    jne convert_BCD_loop
    
    ret
convert_BCD endp

end main

这个程序使用DOSbox来运行，可以输入一个十进制数，然后输出对应的二进制数、十六进制数和BCD码。希望对你有帮助！

试将8位二进制数据转换为十进制 (BCD码)数据，并改写为子程序，输入30H,输出31H。写出汇编语言代码

将8位二进制数据转换为BCD码：

1. 将二进制数的每个十六进制位分别转换为它所表示的十进制数，然后将十进制数转换为BCD码。

例如：二进制数11010010，转换为BCD码后为0001 1000 0010。

2. 将所有的BCD码连接在一起，得到最终的BCD码。

例如：11010010转换为BCD码后为0001 1000 0010。

改写为子程序：

BCD转换的过程中需要对每个十六进制位进行转换，因此可以将转换一个十六进制位的代码封装成一个子程序。

输入30H，输出31H的代码：

MOV AL, 30H  ;将二进制数110000转换为十进制数30
CALL BCD_CONV ;调用BCD转换子程序
MOV DL, AH    ;将高四位存入DL
MOV DH, AL    ;将低四位存入DH

MOV AH, 02H   ;显示数字
MOV DL, DH    ;显示高四位
ADD DL, 30H   ;转换为ASCII码
INT 21H

MOV AH, 02H   ;显示数字
MOV DL, DL    ;显示低四位
ADD DL, 30H   ;转换为ASCII码
INT 21H

MOV AH, 4CH   ;退出程序
INT 21H

BCD_CONV PROC
  MOV BL, AL    ;保存原始数据
  SHR AL, 4     ;将高四位移到低四位
  AND AL, 0FH   ;清除高四位值
  CALL HEX_CONV ;转换为BCD码
  MOV AH, AL    ;将结果存入AH

  MOV AL, BL    ;恢复原始数据
  AND AL, 0FH   ;清除低四位值
  CALL HEX_CONV ;转换为BCD码
  SHL AL, 4     ;将结果移到高四位
  OR AH, AL     ;将低四位和高四位合并为一个字节

  RET
BCD_CONV ENDP

HEX_CONV PROC
  CMP AL, 10H   ;如果小于10，直接转换为BCD
  JB NO_ADJUST
  ADD AL, 7     ;否则添加偏移值
NO_ADJUST:
  ADD AL, 30H   ;转换为ASCII码
  RET
HEX_CONV ENDP