功能说明:输入两组16位二进制代码模拟两为16位二进制整数,对其求差并以16进制输出.
基本算法:采用补码,模拟二机制减法(加法类同),得到差(补码)转换成原码后,转化成十六进制并输出.16为二进制转换成4为十六进制数的方法是采用:将16位二进制分成4组,每组由连续4位二进制组成,模拟4位二进制到一位十六进制转换,将每组转换成16进制数并输出.详见代码
本代码在MASM.5调试通过
运行界面：
如
binary(YuanMa) num1=1000000000001011 ;被减数原码
binary(YuanMa) num2=1000000000001101 ;减数原码
binary(Buma) num1 BM=1111111111110101 ;被减数补码
binary(Buma) num2 BM=1111111111110011 ;减数补码
binary(Buma) diff sub=0000000000000010 ;差补码
binary(YuanMa)diffsub=0000000000000010 ;差原码
hex sumHEX=0002
;/************************************************/
;
;bsub.asm
;hbyufan@163.com
;
TSOUT MACRO dx0
mov ah,09h
mov dx,offset dx0
int 21h
ENDM
data segment
num1 db 19 dup(''$'')
num2 db 19 dup(''$'')
sum db 19 dup(''$'')
hexsum db 5 dup(''$'')
tsnum1 db 0ah,0dh,''binary(YuanMa) num1=$''
tsnum2 db 0ah,0dh,''binary(YuanMa) num2=$''
tssum db 0ah,0dh,''binary(Buma) diff sub=$''
tsnum11 db 0ah,0dh,''binary(Buma) num1 BM=$''
tsnum22 db 0ah,0dh,''binary(Buma) num2 BM=$''
tssum33 db 0ah,0dh,''binary(YuanMa)diffsub=$''
tssumhex db 0ah,0dh,''hex sumHEX=$''
data ends
code segment
assume ds:data,cs:code
start:
mov ax,data
mov ds,ax
re:
TSOUT tsnum1
mov si,0
n1roat:
mov ah,01h
int 21h
cmp al,''0'' ;对NUM1输入错误简单处理---重新输入
jl re
cmp al,''1''
ja re
mov num1[si],al
inc si
cmp si,16
jl n1roat
re2:
TSOUT tsnum2
mov si,0
n2roat:
mov ah,01h
int 21h
cmp al,''0'' ;对NUM1输入错误简单处理---重新输入
jl re2
cmp al,''1''
ja re2
mov num2[si],al
inc si
cmp si,16
jl n2roat
mov bx,offset num1
call questBuma
mov bx,offset num2
call questBuma
TSOUT tsnum11;//
TSOUT num1;//
TSOUT tsnum22;//
TSOUT num2;//
call bsubproc
TSOUT tssum;
TSOUT sum ;//test
lea bx,sum
call questBuma
TSOUT tssum33;//
TSOUT sum;//
lea bx,sum
call BinaryToHexAndOut
TSOUT tssumhex;//
TSOUT hexsum;//
;******************************
mov ah,4ch
int 21h
;*******************************************
questBuma proc near ;功能:求补码
;算法:模拟求补码运算,如二进制求补码方法一致.
;bx ;bx作为参数,传入NUM1或NUM2内存空间首地址
mov al,[bx+0]
cmp al,''0''
jz qbret ;如果是正整数,函数返回;如果是负数,符号位不变,其余位取反加1.
mov si,1
qbroat:
mov al,[bx][si]
cmp al,''0''
jz qb1
mov al,''0''
mov [bx][si],al
jmp qb2
qb1:
mov al,''1''
mov [bx][si],al
qb2:
inc si
cmp si,16
jl qbroat
qnext:
mov dh,1 ;加1处理.方法类似减法
mov si,15
qbincre:
mov al,[bx][si]
sub al,''0''
add al,dh
mov dh,0
cmp al,2
jnz qbi1
mov al,0
mov dh,1
qbi1:
add al,''0''
mov [bx][si],al
dec si
cmp si,0
jnl qbincre
qbret:
ret
questBuma endp
;*******************************************
bsubproc proc near ;功能:16位二进制数减法模拟.
;算法:逐位相减,flag为借位标志(BX)
push ax
push bx
push cx
push si
mov bx,0 ;//flag
mov si,15
broat: mov al,num1[si]
add al,bh
mov bh,0 ;//clear bh
cmp al,num2[si]
jnl bnext
add al,2
dec bh
bnext:
sub al,num2[si]
add al,''0''
mov sum[si],al
dec si
cmp si,0
jnl broat
pop si
pop cx
pop bx
pop ax
ret
bsubproc endp
;*******************************************
BinaryToHexAndOut proc near ;功能如函数名
;bx ;bx作为参数,传入NUM1或NUM2内存空间首地址
mov dh,2
mov si,0
bth1:
mov al,0 ;分组转换,模拟4为二进制到1为16进制数的转换
mov di,0
bth2:
mul dh
add al,[bx][di]
sub al,''0''
inc di
cmp di,4
jl bth2
cmp al,9
jna bth3
sub al,10
add al,''A''
jmp bth4
bth3:
add al,''0''
bth4:
mov hexsum[si],al
inc si
add bx,4
cmp si,4
jl bth1
ret
BinaryToHexAndOut endp
;*******************************************
code ends
end start
<<<<
学习箴言:
1,一知半解是危险的
2,如果一门语言不能影响你对编程的想法，那它就不值得去学
>>>
……