VPF::Перевод из HEX в BIN систему счисления

Vinnety

Дата 19.4.2003, 00:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 8.4.2003

Репутация: нет
Всего: нет

Народ!!! Please. подскажите как написать на Асме прогу перевода из шестнадцатиричной системы счисления в двоичную. Если можно приведите код.

Chingachguk

Дата 19.4.2003, 09:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1232
Регистрация: 25.3.2002
Где: Москва

Репутация: нет
Всего: 18

Примерно так:

Цитата

.286
text segment byte public
assume cs:text,ds:text
org 100h
begin:
mov dx,offset Start
call @@Message
; Read Command Line
mov bx,80h
; cx= lenght of CMD
xor cx,cx
mov cl,[bx]
; check lenght
test cx,cx
jnz @@CommLineSet
mov dx,offset NoCmd
call @@Message
jmp @@Exit
@@CommLineSet:
; put number to dx
dec cx
cld
lea si,[bx+2]
xor dx,dx
@@PutNumbToAX:
shl dx,4
lodsb
sub al,'0'
cmp al,9
jbe @@TransDone
sub al,('A'-'0')-10
@@TransDone:
or dl,al
loop @@PutNumbToAX
; Conver to digit and display
push dx
mov dx,offset ResPrompt
call @@Message
pop ax
mov cx,5
mov bx,10000
mov di,offset Symbols
@@GetDigit:
xor dx,dx
div bx
add al,'0'
stosb
push dx
mov ax,bx
xor dx,dx
mov bx,10
div bx
mov bx,ax
pop ax
loop @@GetDigit
mov dx,offset Symbols
call @@Message
@@Exit:
mov dx,offset Finish
call @@Message
retn
@@Message:
mov ah,09h
int 21h
retn
Start db 'Start !',13,10,'$'
NoCmd db 'No specified symbols in CMD !',13,10,'$'
ResPrompt db 'Result in digit:','$'
Symbols db '?

?',13,10,'$'
Finish db 'Finish !',13,10,'$'
Text Ends
end begin

--------------------

I don't like the drugs (but the drugs like me). M.Manson.

Chingachguk

Дата 19.4.2003, 09:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1232
Регистрация: 25.3.2002
Где: Москва

Репутация: нет
Всего: 18

Блин, извини. Выше было в десятичную. Вот в двоичную:

Цитата

.286
text segment byte public
assume cs:text,ds:text
org 100h
begin:
mov dx,offset Start
call @@Message
; Read Command Line
mov bx,80h
; cx= lenght of CMD
xor cx,cx
mov cl,[bx]
; check lenght
test cx,cx
jnz @@CommLineSet
mov dx,offset NoCmd
call @@Message
jmp @@Exit
@@CommLineSet:
; put number to dx
dec cx
cld
lea si,[bx+2]
xor dx,dx
@@PutNumbToAX:
shl dx,4
lodsb
sub al,'0'
cmp al,9
jbe @@TransDone
sub al,('A'-'0')-10
@@TransDone:
or dl,al
loop @@PutNumbToAX
; Conver to bin and display
push dx
mov dx,offset ResPromptBin
call @@Message
pop dx
mov cx,16
mov di,offset SymbolsBin
@@GetBin:
xor ax,ax
shl dx,1
adc al,'0'
stosb
loop @@GetBin
mov dx,offset SymbolsBin
call @@Message
@@Exit:
mov dx,offset Finish
call @@Message
retn
@@Message:
mov ah,09h
int 21h
retn
Start db 'Start !',13,10,'$'
NoCmd db 'No specified symbols in CMD !',13,10,'$'
ResPromptBin db 'Result in bin:','$'
SymbolsBin db '?

b',13,10,'$'
Finish db 'Finish !',13,10,'$'
Text Ends
end begin

--------------------

I don't like the drugs (but the drugs like me). M.Manson.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Asm: Общие вопросы \| Следующая тема »