VPF::вывод на экран - Форум программистов

Loki_

Дата 19.4.2004, 23:24 (ссылка)

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

Загрузка ...

Новичок

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

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

1. Как после арифметических операций вывести результат(числом), а не скан-код?
2. Как вывести значение скан-кода в hex.

Chingachguk

Дата 20.4.2004, 08:46 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата

; ************* DecChar: Подпрограмма форматирования строки из числа ***********
; eax=number to digit, edi=offset result string in format 00000000(@n[ebx])
; ebx=начальный делитель
DecChar proc
pushad
pushfd
cld
@GetDec:
xor edx,edx
div ebx
add al,'0'
stosb
push edx
mov eax,ebx
xor edx,edx
mov ebx,10
div ebx
mov ebx,eax
pop eax
test ebx,ebx
jnz @GetDec
popfd
popad
ret
DecChar endp
;
; Форматировать число в EAX в строку
;
HexChar proc
pushad
cld
mov ecx,8
mov ebx,offset TabHex
@GetHex:
rol eax,4
push eax
and al,0fh
xlat
stosb
pop eax
loop @GetHex
popad
ret
HexChar endp
TabHex db '0123456789abcdef'
; Форматировать число в AX в строку
HexWORD proc
pushad
cld
mov ecx,4
mov ebx,offset TabHex
@GetWORD:
rol ax,4
push eax
and al,0fh
xlat
stosb
pop eax
loop @GetWORD
popad
ret
HexWORD endp
; Форматировать число в AL в строку
HexBYTE proc
pushad
cld
mov ecx,2
mov ebx,offset TabHex
@GetBYTE:
rol al,4
push eax
and al,0fh
xlat
stosb
pop eax
loop @GetBYTE
popad
ret
HexBYTE endp

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

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

oleg1973

Дата 21.4.2004, 00:35 (ссылка)

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

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

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

вындос версия

.code
mov eax,тут число которое будем печатать в дес виде
cinvoke printf,pr,eax
invoke ExitProcess,0
.data
pr:
db '%d',0,0dh,0ah

для hex вида заменить %d на %l вроде

точно не помню в апи написано

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

SST 465555
icq 200-512-712

Jin X

Дата 25.4.2004, 22:39 (ссылка)

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

Загрузка ...

Бывалый

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

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

http://pascal.sources.ru/asm/faq/index.htm#shownum

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

Бойся своей мечты, ибо она осуществима!

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