代码转换汇编

二进制编码的十进制数，简称BCD码(Binarycoded Decimal). 这种方法是用4位二进制码的组合代表十进制数的0，1，2，3，4，5，6 ，7，8，9 十个数符。4位二进制数码有16种组合，原则上可任选其中的10种作为代码，分别代表十进制中的0，1，2，3，4，5，6，7，8，9 这十个数符。最常用的BCD码称为8421BCD码，8.4.2.1 分别是4位二进数的位取值。点击此处将给出十进制数和8421BCD编码的对应关系表。

1、BCD码与十进制数的转换

BCD码与十进制数的转换.关系直观，相互转换也很简单，将十进制数75.4转换为BCD码如:

75.4=(0111 (0101.0100)BCD 若将BCD码1000 0101.0101转换为十进制数如: (1000 0101.0101)BCD＝85.5

注意:同一个8位二进制代码表示的数，当认为它表示的是二进制数和认为它表示的是二进制编码的十进制数时，数值是不相同的。

例如：00011000，当把它视为二进制数时，其值为24；但作为2位BCD码时，其值为18。

又例如00011100，如将其视为二进制数，其值为28，但不能当成BCD码，因为在8421BCD 码中，它是个非法编码 .

2、BCD码的格式

计算机中的BCD码，经常使用的有两种格式，即分离BCD码，组合BCD码。

所谓分离BCD码，即用一个字节的低四位编码表示十进制数的一位，例如数82的存放格式为：

_ _ _1 0 0 0 _ _ _ _0 0 1 0 其中_表示无关值。

组合BCD码，是将两位十进制数，存放在一个字节中，例82的存放格式是1000 0010 3、BCD码的加减运算

由于编码是将每个十进制数用一组4位二进制数来表示，因此，若将这种BCD码直接交计算机去运算，由于

计算机总是把数当作二进制数来运算，所以结果可能会出错。例：用BCD码求38+49。

解决的办法是对二进制加法运算的结果采用"加6修正,这种修正称为BCD调整。即将二进制加法运算的结果修正为BCD码加法运算的结果,两个两位BCD数相加时,对二进制加法运算结果采用修正规则进行修正。修正规则：

(1)如果任何两个对应位BCD数相加的结果向高一位无进位，若得到的结果小于或等于9,

则该不需修正;若得到的结果大于9且小于16时,该位进行加6修正。

(2)如果任何两个对应位BCD数相加的结果向高一位有进位时(即结果大于或等于16),该位进行加6修正.

(3)低位修正结果使高位大于9时,高位进行加6修正。

下面通过例题验证上述规则的正确性。

用BCD码求35+21 BCD码求25+37 用BCD码求38+49 用BCD码求42+95

用BCD码求91+83 用BCD码求94+7 用BCD码求76+45

两个组合BCD码进行减法运算时,当低位向高位有借位时,由于"借一作十六"与"借一作十"的差别,将比正确的结果多6,所以有借位时,可采用"减6修正法"来修正.两个BCD码进行加减时,先按二进制加减指令进行运算,再对结果用BCD调整指令进行调整,就可得到正确的十进制运算结果。实际上，计算机中既有组合BCD数的调整指令，也有分离BCD数的调整指

令。另外,BCD码的加减运算,也可以在运算前由程序先变换成二进制数,然后由计算机对二进制数运算处理,运算以后再将二进制数结果由程序转换为BCD码

13

1 将ASCII码表示的十进制数转换为二进制数汇编代码

1．将ASCII码表示的十进制数转换为二进制数

十进制数可以表示为：Dn×10n+Dn-1×10n-1+…+D0×100

=Di×10i 其中Di代表十进制数1、2、3…9、0。

上式可以转换为：

ΣDi×10i=((…(Dn×10+Dn-1)×10)+Dn-2)×10+…+D1)×10+D0

由上式可归纳十进制数转换为二进制的方法：从十进制数的最高位Dn开始作乘10加次位的操作，依次类推，则可求出二进制数结果。

本实验要求将缓冲区中的一个五位十进制数00012的ASCII码转换成二进制数，并将转换结果按位显示在屏幕上。

;***********************************************************************

data SEGMENT ;定义数据段

msg DB ' hua xian asks you to input ASCLL numbers:$'

msg2 DB 0DH,0AH,'OverFlow!!$',0DH,0AH

msg3 DB 0DH,0AH,'The Binary number:$'

array DW 100 dup(0)

TEN DW 10

TAB DB 4

data ENDS

;*********************************************************************** STACK SEGMENT PARA STACK ;定义堆栈段

DW 64 DUP(?)

STACK ENDS

;***********************************************************************

code SEGMENT ;定义代码段

;-------------------------------------------------------------------

MAIN PROC FAR

ASSUME CS:code,DS:data,SS:STACK

MOV AX,data ;data送到DS中

MOV DS,AX

LEA DX,msg ;输出要求

MOV AH,9H

INT 21H

LEA BX,array ;array数组的地址传送到BX中

SUB CX,CX ;使CX = 0

CALL INPUT ;调用INPUT子程序

CALL CONVERT ;调用CONVERT子程序

PUSH AX ;保护AX中的数据因为AX中的数据有用，但在此后又；必须用到ax

LEA DX,msg3 ;输出“The Binary number:”

MOV AH,9H ;

INT 21H ;中断

POP AX ;返回受保护的AX中的数据

CALL DISPLAY ;输出二进制数

OUT0:

MOV AX,4C00h ;返回DOS

INT 21h

MAIN ENDP

;-------------------------------------------------------------------

INPUT PROC NEAR

WAIT_HERE:

MOV AH,7 ;等待输入

INT 21H

CMP AL,0DH ;是否是回车键

JE OUT1 ;如果是则跳转道OUT1否则继续执行

CMP AL,'0' ;AL < '0'?

JL WAIT_HERE ;如果是则跳转到WAIT_HERE否则继续执行

CMP AL,'9' ;AL > '9'?

JG WAIT_HERE ;如果是则跳转到WAIT_HERE否则继续执行

MOV [BX],AL ;把键盘输入的数字送到array[bx]中

ADD BX,2 ;增加bx的值，能够使得下一个数存放到array 数组中的下；一个位置, 因为是字节型所以加2

INC CX ;增加计数器的值

MOV AH,2H ;输出刚刚输入的数字，若不是数字则永远不会到此步MOV DL,AL ;dl中存放要显示的值

INT 21H ;中断

JMP WAIT_HERE ;显示完后跳转到WAIT_HERE

OUT1:

ret ;退出次过程

INPUT ENDP

;-----------------------------------------------------------------

CONVERT PROC NEAR

SUB CX,1 ;计数器减1

LEA BX,array ;bx为array数组的首地址

MOV AX,[BX] ;把数组中的值送到ax中

SUB AX,30H ;减30h是将ascll码转换为十进制数

CMP CX,0 ;如果仅仅输入了一个数字则跳出

JE OUT3

LOOP1: ;否则就开始运行

MUL TEN ;把刚才的十进制数*10，再加下一位数

ADD BX,2

ADD AX,[BX]

SUB AX,30H

LOOP LOOP1

OUT3:

ret

CONVERT ENDP

;-----------------------------------------------------------------

DISPLAY PROC NEAR

MOV BX,AX ;ax中存放着答案，但是因为后面要用到ax所以把值放到；bx中

MOV CX,16 ;计数器设置为16

MOV AH,2H ;为输出作准备此处用到ax,若不做上面的处理

LOOP2:

ROL BX,1 ;把bx左移1位，若有进位cf=1

JC PRINT1 ;监测cf如果是1,则跳转道print1

MOV DX,'0' ;到这说明他不是，则把‘0’送入dx.dx为输出的内容

JMP PRINT0 ;然后跳转道print0

PRINT1:

MOV DX,'1'

PRINT0:

PUSH AX ;判断如果cx能被4整除，则输出空格

PUSH DX ;这里是保护ax dx cx让他们进栈。

PUSH CX

MOV AL,CL

DIV TAB

CMP AH,0

JNE OUT4

MOV AH,2H

MOV DX,' '

INT 21H

OUT4:

POP CX

POP DX

POP AX ;栈的特点是先进后出，所以要反序出栈

INT 21H ;中断，跳转到dos所提供的功能，输出

LOOP LOOP2 ;cx-1 然后进行循环，直到cx==0终止

; LEA BX,array

;LOOP2:

; MOV DX,[BX]

; MOV AH,2H ;print the number

; INT 21H

; INC BX

; LOOP LOOP2

ret

DISPLAY ENDP

;-------------------------------------------------------------------

code ENDS

END MAIN

2 十进制ASCII码转BCD码

code segment

assume cs:code

start:

push cs

pop ds

mov dx,offset tips

mov ah,9

int 21h

mov si,3500h;十进制ASCII存于3500H起单元

mov di,350ah;BCD后再存于350AH起内存

mov cx,10;只够输入10个字符

Q0:mov ah,1

int 21h

cmp al,'0'

jb Q1

cmp al,'9'

ja Q1

mov [si],al

sub al,30h

mov [di],al

jmp Q2

Q1:mov al,0ffh

mov [si],al

mov [di],al

Q2:inc si

inc di

Q3:loop Q0

mov ah,0

int 16h

mov ah,4ch

int 21h

tips db 'Press any key...',0dh,0ah,'$'

code ends

end start

3从键盘输入一个16进制数，转换成十进制数然后输出，汇编程序实现

DATA SEGMENT

DATA1 DB ?

DATA2 DB 2 DUP(?)

DATA20 DB 2 DUP(?)

DATA3 DB 'Input Error, Please Enter Again!','$'

DATA ENDS

STACK SEGMENT

DB 5 DUP(?)

STACK ENDS

CODE SEGMENT

ASSUME CS:CODE, DS:DATA,SS:STACK

START:MOV AX,DATA

MOV DS,AX

MOV AX,STACK

MOV SS,AX

MOV BX,0

INPUT:MOV AH,01H

INT 21H

CMP AL,51H；判断输入的字符是否为Q

JE EXIT ；如果是Q就退出

CMP AL,71H；判断输入的字符是否为q

JE EXIT ；如果是Q就退出

PUSH AX ；把从键盘输入的字符的ASCII存到堆栈段

SUB AL,30H ；判断是否为数字

CMP AL,00H

JL INDI ；如果不是就提示错误

CMP AL,09H ；

MOV BL,AL ；

JLE OUTPUT2；如果是数字就输出

POP AX ；把AL的值取出来

PUSH AX ；

MOV BL,AL

SUB AL,41H；判断是否为大写字母A到F

CMP AL,00H

JL INDI ；如果不是就提示错误

CMP AL,06H

JL CHANGE

POP AX

PUSH AX

MOV BL,AL

SUB AL,61H；判断是否为小写字母a到f

CMP AL,00H

JL INDI ；如果不是就提示错误

CMP AL,06H

JL CHANGE

POP AX

JMP INDI

CHANGE:MOV SI,0

MOV DI,0

MOV CL,4

MOV AL,BL

AND AL,11011111B；统一换为大写字母再转换，如果是大写字母就不变

SUB AL,31H

MOV BL,AL

AND AL,0FH ；与运算，取低位

MOV [DATA2+SI],AL ；把个位数存到DATA2中

MOV AL,BL

SAR AL,CL ；算术右移，取高位

MOV[DATA20+DI],AL；把十位数存到DATA20中

OUTPUT1: MOV DL,48H；输出十六进制符号H

MOV AH,02H

INT 21H

MOV DL,3DH ；输出等号‘=’

MOV AH,02H

INT 21H

MOV DL,[DATA20+DI]；输出十位数

ADD DL,30H

MOV AH,02H

INT 21H

MOV DL,[DATA2+SI]；输出个位数

ADD DL,30H

MOV AH,02H

INT 21H

MOV DL,20H

MOV AH,02H

INT 21H

JMP INPUT；跳到输入数字

OUTPUT2: MOV DL,48H ；输出数字

MOV AH,02H

INT 21H

MOV DL,3DH

MOV AH,02H

INT 21H

MOV DL,BL

ADD DL,30H

MOV AH,02H

INT 21H

MOV DL,20H

MOV AH,02H

INT 21H

JMP INPUT

INDI:MOV DL,20H ；提示子程序

MOV AH,02H

INT 21H

MOV DX,OFFSET DATA3 ；显示提示信息

MOV AH,09H

INT 21H

JMP INPUT

EXIT:MOV AH,4CH

INT 21H

CODE ENDS

END START

4 用汇编语言将BCD码转换成二进制码，并以二进制串的形式输出，在屏幕上显示出来

DATAS SEGMENT

buffer1 dw 1657h

buffer2 dw ? ;分配两个字节的空间

DATAS ENDS

CODES SEGMENT

ASSUME CS:CODES,DS:DATAS

START:

MOV AX,DATAS

MOV DS,AX

mov ax,[buffer1]

and ax,0f000h

mov cl,12

shr ax,cl

mov dx,ax ;至此，已将5678h(BCD)中的5(十进制）取出，并放入dx中call change ;调用chang,将5乘以10

mov ax,dx

mov bx,[buffer1]

and bx,0f00h

mov cl,8

shr bx,cl

add ax,bx

mov dx,ax

call change

mov ax,dx

mov bx,[buffer1]

and bx,00f0h

mov cl,4

shr bx,cl

add ax,bx

mov dx,ax

call change

mov ax,dx

mov bx,[buffer1]

and bx,000fh

add ax,bx ;至此，ax中的值已是5678（十进制），但电脑是将其以二进制的形式存储的，故应是0679h，二进制就是0000011001111001

mov buffer2,ax ;因为后面会用到ah,为避免在其过程中丢失ax中的数据，故将ax中的数据放入buffer2中

mov cx,16

again:shl buffer2,1 ;将已经转换成二进制的数逐个显示出来

mov dl,0

adc dl,30h

mov ah,2

int 21h

loop again

MOV AH,4CH

INT 21H

change proc ;子程序change的功能是实现dx乘以10 add dx,dx

mov cx,dx

add dx,dx

add dx,dx

add dx,cx

ret

change endp

CODES ENDS

END START