浮点数乘法.txt

je kout;
cmp al,13; ///回车
je kout;
cmp al,'-';
jne nextb1;
inc [sign];
jmp errorb;
nextb1:
cmp al,'.';
jne nextb2;
jmp errorb;
;///浮点数a调整为整数
kout:
mov bl,[ca];
cmp bl,0;
je a_over;
a_again:
mov dx,[aint];
mov cl,3;
shl dx,cl;
shl [aint],1;
mov bx,1000;
jmp int_num_over;
d2:
cmp [aint],100;
jb d1
mov dl,3;
mov bx,100;
jmp int_num_over;
d1:
cmp [aint],10;
inc [dotb];
call errorb;
nextb2:
cmp al,'0'
jb errorb;
cmp al,'9';
ja errorb;
and ah,00h;
sub ax,48;
cmp [dotb],0;
add dl,[ca];
add dl,[cb];
mov [ca],dl;
mov bx,1;
dec dl;
auto2:
mov ax,bx;
mov cl,3;
shl ax,cl;
shl bx,1;
add bx,ax;
;//////由整数调整为小数
mov bx,1;
mov dl,0;
add dl,[ca];
add dl,[cb];
cmp dl,0;
je l_over;
l_again:
mov ax,bx;
mov cl,3;
cmp al,13; ///回车
je inputb;
cmp al,'-'; /判断正负符号
jne nexta1;
inc [sign];
jmp errora;
nexta1:
cmp al,'.'; /判断小数点
jne nexta2;
start:
mov ax,data_seg
mov ds,ax
mov es,ax
errora:
mov ah,01h; //输入一个字符
int 21h;
cmp al,32; /// 空格
je inputb;
mov dx,0;
mov ax,[aint];
div bx;
push ax;
push dx;
int_over:
add al,48;
mov dl,al
mov ah,02h;
int பைடு நூலகம்1h;
jb d0
mov dl,2
mov bx,10;
d0:mov dl,1
int_num_over:
mov [act],dl; //确定整 //数的位数
mov cl,[act];
shift1:
mov bx,1;
cmp [aint],10000;
jb d3;
mov dl,5;
mov bx,10000;
jmp int_num_over;
d3:
cmp [aint],1000;
jb d2;
mov dl,4;
int 21h;
mov dx,0;
mov ax,bx;
mov bx,10;
div bx;
mov bx,ax
pop dx;
mov [aflt],dx;
dec cl;
jnz shift2;
all_dis_over:
mov ax,4c00h
int 21h
jnz shift1;
;//小数点的显示
cmp [aflt],0;
je all_dis_over;
//小数部分为0，显示结束
mov dl,46;
mov ah,02h;
int 21h;
;//小数部分
mov dl,0;
dota db 0;//数a的小数点标志值位
ca db 0; //数a的小数位个数位
dotb db 0; //数b的小数点标志值位
cb db 0; //数b的小数位个数位
sign db 0; //数a、b的符号个之和
segment code_seg
je intb;
inc [cb];
mov bx,[bflt];
mov dx,bx;
mov cl,3;
shl dx,cl;
shl bx,1;
add bx,dx;
add bx,ax;
mov [bflt],bx;
format MZ
entry code_seg:start;
stack 256
segment data_seg
act db 0;
aint dw 0;//数a的整数部分
aflt dw 0;//数a的小数部分
bint dw 0;//数b的整数部分
bflt dw 0;//数b的小数部分
;///ASCII码转换及显示部分
;///符号部分
cmp [sign],1; //符号三种可能：0、1、2
jne sign_over
mov dl,45; //‘-’
mov ah,02h;
int 21h;
;//整数部分的显示
sign_over:
je inta;
inc [ca];//是小数部分，则输入一位，标志位加1，记录小数位数
mov bx,[aflt]; 小数的存储
mov dx,bx;
mov cl,3;
shl dx,cl;
shl bx,1;
add bx,dx;
add [aint],dx; //数a放大十倍
dec bl;
jnz a_again;
a_over:
mov ax,[aint];
add ax,[aflt];
mov [aint],ax;
;//////// 浮点数b调整为整数
mov bl,[cb];
dec dl ;
jnz auto2;
mov cl,[ca];
shift2:
mov dx,0;
mov ax,[aflt];
div bx;
push dx;
add al,48;
mov dl,al
mov ah,02h;
add bx,dx;
add bx,ax;
mov [aint],bx;
jmp errora;
;////数字b的输入
inputb:
errorb:
mov ah,01h;
int 21h;
cmp al,32; /// 空格
pop dx;
pop ax;
mov ax,dx;
mov [aint],ax;
dec cl;
mov dx,0;
mov ax,bx;
mov bx,10;
div bx;
mov bx,ax;
shl bx,cl;
shl ax,1;
add bx,ax;
dec dl;
jnz l_again;
l_over:
pop dx;
pop ax;
div bx;
mov [aint],ax; //整数部分
mov [aflt],dx; //小数部分
inc [dota];
jmp errora;
nexta2:
cmp al,'0'; /判断是否在0-9
jb errora;
cmp al,'9';
ja errora;
and ah,00h;
sub ax,48;
cmp [dota],00h; //以小数点为标志判断是整数部分还是小数部分
add bx,ax;
mov [aflt],bx;
jmp errora;
inta:
mov bx,[aint]; 整数的存储
mov dx,bx;
mov cl,3;
shl dx,cl;
shl bx,1;
jmp errorb;
intb:
mov bx,[bint];
mov dx,bx;
mov cl,3;
shl dx,cl;
shl bx,1;
add bx,dx;
add bx,ax;
mov [bint],bx;
cmp bl,0;
je b_over;
b_again:
mov dx,[bint];
mov cl,3;
shl dx,cl;
shl [bint],1;
add [bint],dx;
dec bl;
jnz b_again;
b_over:
mov ax,[bint];