|
功能說明:輸入兩組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,如果一門語言不能影響你對編程的想法，那它就不值得去學
>>>
|
