Всё.....я уже ни чё не понимаю......(((((((((( как преобразовать двоичное число в десятичное(BCD)?размер двоичного 6 байт.....процессор 16разрядный..сопроцессор не использовать......
В упакованное
В виде вставок пойдёт?
Первый вариант (развёрнутые циклы):
program _bcd;
{$G+}
const
Hex: array[0..15] of Char = '0123456789ABCDEF';
var
bin: array[0..5] of Byte;
bcd: array[0..7] of Byte;
t: LongInt absolute bin;
i: Integer;
begin
t := 123456789;
{ t := 987654321; }
asm
call @@div10
mov dx,ax
call @@div10
shl ah,4
or ax,dx
mov byte ptr bcd[7],ah
call @@div10
mov dx,ax
call @@div10
shl ah,4
or ax,dx
mov byte ptr bcd[6],ah
call @@div10
mov dx,ax
call @@div10
shl ah,4
or ax,dx
mov byte ptr bcd[5],ah
call @@div10
mov dx,ax
call @@div10
shl ah,4
or ax,dx
mov byte ptr bcd[4],ah
call @@div10
mov dx,ax
call @@div10
shl ah,4
or ax,dx
mov byte ptr bcd[3],ah
call @@div10
mov dx,ax
call @@div10
shl ah,4
or ax,dx
mov byte ptr bcd[2],ah
call @@div10
mov dx,ax
call @@div10
shl ah,4
or ax,dx
mov byte ptr bcd[1],ah
call @@div10
mov dx,ax
call @@div10
shl ah,4
or ax,dx
mov byte ptr bcd[0],ah
jmp @@exit
@@div10:
mov cl,10
xor ax,ax
mov al,byte ptr bin[5]
div cl
mov byte ptr bin[5],al
mov al,byte ptr bin[4]
div cl
mov byte ptr bin[4],al
mov al,byte ptr bin[3]
div cl
mov byte ptr bin[3],al
mov al,byte ptr bin[2]
div cl
mov byte ptr bin[2],al
mov al,byte ptr bin[1]
div cl
mov byte ptr bin[1],al
mov al,byte ptr bin[0]
div cl
mov byte ptr bin[0],al
ret
@@exit:
end;
for i := 0 to 7 do
Write(Hex[bcd[i] shr 4], Hex[bcd[i] and $F]);
Writeln;
end.
program bcd2;
{$G+}
const
Hex: array[0..15] of Char = '0123456789ABCDEF';
var
bin: array[0..5] of Byte;
bcd: array[0..7] of Byte;
t: LongInt absolute bin;
i: Integer;
begin
t := 123456789;
{ t := 987654321; }
asm
push si
push di
push ds
pop es
std
lea di,bcd[7]
mov cx,8
@@store:
push cx
call @@div10
mov bx,ax
call @@div10
shl ah,4
or ax,bx
mov al,ah
stosb
pop cx
loop @@store
jmp @@exit
@@div10:
mov dl,10
xor ax,ax
lea si,bin[5]
mov cx,6
@@div:
lodsb
div dl
mov [si+1],al
loop @@div
ret
@@exit:
pop di
pop si
end;
for i := 0 to 7 do
Write(Hex[bcd[i] shr 4], Hex[bcd[i] and $F]);
Writeln;
end.
Я так понял что суть твоего решения заключается в том что ты каждый байт двоичного числа поочереди делишь на десятичное 10, тем самым остаток и является десятичным разрядом...но результат будет не один и тот же если делить побайтно и делить все 6 байт сразу на 10....или я не прав????
Расскажи мне лучше как мне разделить вс 6 байт сразу на 10d
ВСЁ понял.....спасибо
Это ещё возможно с использованием сопроцессора
М | невозможно, если читать первый пост |
Вот сам тут кое чё написал.....тока преобразование не в BCD а в ASCII....то из одного другое сделать не сложно.....
NAME
;...........................................
Data SEGMENT
X1 DQ 000012345678ABCDh
R DB 15 DUP(0)
Data ENDS
;...........................................
Code SEGMENT
ASSUME CS:Code,DS:Data
;...........................................
Start: MOV AX,Data
MOV DS,AX
LEA SI,X1
LEA BX,R
MOV DI,10
MOV BP,15
ADD SI,(type X1 -2)
M2: XOR Dl,DL
MOV CX,4
M1: MOV AX,[SI]
DIV DI
MOV [SI],AX
SUB SI,2
DEC CX
JNZ M1
MOV [BX],Dl
LEA SI,X1
ADD SI,(type X1-2)
INC BX
DEC BP
JNZ M2
Code ENDS
END Start