РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Лысков Игорь Витальевич Статус: Профессионал Рейтинг: 165 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Модератор Рейтинг: 147 ∙ повысить рейтинг >>

_Ayl_ Статус: 2-й класс Рейтинг: 79 ∙ повысить рейтинг >>

∙ / КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке:
оценить выпуск >>

Вопрос № 168376: Доброго времени суток! Вопрос таков. В регистре eax имею число 1178 в 16 - 0х049A. Как мне его посмотреть в окне Windows? mov [result],eax invoke MessageBox,0,result,caption,MB_ICONQUESTION+MB_YESNO ...

Доброго времени суток!
Вопрос таков.
В регистре eax имею число 1178 в 16 - 0х049A.
Как мне его посмотреть в окне Windows?
mov [result],eax
invoke MessageBox,0,result,caption,MB_ICONQUESTION+MB_YESNO
выдает 2 символа с кодами 0х04 и 0х9A
Мне нужно, чтобы в окне было написано "1178" т.е. символы 0х31,0х31,0х37,0х38
Как это сделать?

Отправлен: 27.05.2009, 11:36
Вопрос задал: Игорь К., Студент
Всего ответов: 2
Страница вопроса >>

Приложение:
title DB \'EAX =\',0 EAX_value_str DB 11 DUP (?) .. lea edx,[EAX_value_str] stdcall bin32_to_decim_ascii, eax,edx invoke MessageBoxA, 0,EAX_value_str,title,MB_OK .. ;-------------------------------------------------------------------------- ;подпрограмма перевода двоичного числа в десятичное текстовое представление ;uint - двоичное число, p_result_buf - указатель буфера строки результата ;-------------------------------------------------------------------------- proc bin32_to_decim_ascii, uint:DWORD,p_result_buf:DWORD push ebx ecx edx edi mov ebx,[p_result_buf] add ebx,0Ah mov BYTE [ebx],0 dec ebx mov edi,0Ah ;делитель ;счетчик mov eax,[uint] cmp eax,10 jb .cnt_1 cmp eax,100 jb .cnt_2 cmp eax,1000 jb .cnt_3 cmp eax,10000 jb .cnt_4 cmp eax,100000 jb .cnt_5 cmp eax,1000000 jb .cnt_6 cmp eax,10000000 jb .cnt_7 cmp eax,100000000 jb .cnt_8 cmp eax,1000000000 jb .cnt_9 mov ecx,0Ah jmp .div10_loop cnt_1: mov ecx,01h jmp .div10_loop cnt_2: mov ecx,02h jmp .div10_loop cnt_3: mov ecx,03h jmp .div10_loop cnt_4: mov ecx,04h jmp .div10_loop cnt_5: mov ecx,05h jmp .div10_loop cnt_6: mov ecx,06h jmp .div10_loop cnt_7: mov ecx,07h jmp .div10_loop cnt_8: mov ecx,08h jmp .div10_loop cnt_9: mov ecx,09h div10_loop: test ecx,ecx jz .exit xor edx,edx div edi ;EAX=частное, EDX=остаток or dl,110000b mov [ebx],dl dec ebx dec ecx jmp .div10_loop exit: mov eax,ebx inc eax pop edi edx ecx ebx ret endp

Ответ отправил: Trulala, 7-й класс
Ответ отправлен: 27.05.2009, 12:42

Оценка ответа: 5
Комментарий к оценке:
Спасибо! Как раз на fasm и нужно было, но уже ответ Лыскова Игоря Витальевича приспособил.

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 249910 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Приложение:
.386 ;работаем с 32-битными регистрами, и, вообще, создаем программу под Windows .model flat,stdcall ;необходимая модел памяти под Windows option casemap:none ;чтобы различать большие и малые буковки ;подключим необходимые файлы include /masm32/include/windows.inc include /masm32/include/user32.inc include /masm32/include/kernel32.inc includelib /masm32/lib/user32.lib includelib /masm32/lib/kernel32.lib itoa PROTO :DWORD,:DWORD ;прототип нашей функции .data ;сегмент инициированных данных caption db \'Value\',0 .data? buffer db 256 dup(?) .code ;сегмент кода start: ;точка входа .code mov eax, 1178 invoke itoa,addr buffer,eax ;преобразуем число в строку invoke MessageBox,0,addr buffer,addr caption,MB_ICONQUESTION+MB_YESNO invoke ExitProcess,eax ;выход из программы с кодом в EAX itoa proc uses edi ebx pStr:DWORD,iValue:DWORD mov edi, pStr xor ecx, ecx ; счетчик цифр mov ebx, 10 ; будем делить на 10 div_loop: ; цикл получения десятичных разрядов xor edx, edx ; подготовимся для очередного деления div ebx ; в edx остаток - очередной десятичный разряд push edx ; сохраним в стеке (от младшего к старшему) inc ecx ; посчитаем test eax, eax ; есть еще десятичные разряды? jnz div_loop ; продолжим pr_loop: ; цикл вывода десятичных цифр-символов pop eax ; востановим очередной разряд (от старшего к младшему) add al, \'0\' ; символ цифры stosb ; сохраним цифру loop pr_loop ; по всем цифрам mov byte ptr[edi],0 ;закроем строку нулем ret itoa endp end start ;задаем точку входа
-----
Удачи!

Ответ отправил: Лысков Игорь Витальевич, Профессионал
Ответ отправлен: 27.05.2009, 13:08

Оценка ответа: 5
Комментарий к оценке:
Отлично, все получилось, спасибо

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 249911 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Уважаемые Эксперты.Подскажите пожалуйста ответ на такой вопрос.
Ввести строку символов. Заменить одинаковые символы, стоящие рядом (сколько бы их не было) на один такой символ.

Отправлен: 27.05.2009, 13:51
Вопрос задал: Ink0git0, Посетитель
Всего ответов: 2
Страница вопроса >>

Приложение:
; model tiny 186 code org 100h ;переходим в текстовый режим begin: mov ax,3 int 10h ;выводим приглашение к вводу mov ah,09h mov dx,offset dbEnter int 21h ;вводим строку mov ah,0ah mov dx,offset dbStringMax int 21h ;настраиваем индексные регистры mov si,offset dbString mov di,si lodsb ;определяем длину введенной строки mov cl,dbStringSize xor ch,ch ;считываем очередной символ isLoop: lodsb cmp al,[di] jz noSave ;записываем не оинаковый символ inc di mov [di],al noSave: loop isLoop ;записываем маркер конца строки mov al,\'$\' stosb ;записываем пробелы mov al,20h mov dbStringMax,al mov dbStringSize,al ;выводим результат mov ah,09; mov dx,offset dbResult int 21h ;ожидаем любую клавишу xor ax,ax int 16h ;выход в дос ret dbResult db 10,13,\'Result:\' dbStringMax db 200 dbStringSize db ? dbString db 200 dup(?) dbEnter db 10,13,\'Enter string:$\' end begin Украина, Киев
Тел.: +38-097-953-66-19
Адрес: Украина, Киев

-----
Итерация от человека. Рекурсия — от Бога. — Л. Питер Дойч

Ответ отправил: Зенченко Константин Николаевич, Модератор
Ответ отправлен: 27.05.2009, 15:02

Оценка ответа: 3
Комментарий к оценке:
Огромное Вам спасибо.

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 249913 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Приложение:
; Делаем COM-файл: ; tasm name.asm ; tlink name /t .model tiny .data sInput db \'Enter string: $\' sResult db 0dh, 0ah, \'Result string: $\' sPress db 0dh, 0ah, \'Press any key$\' buf label byte ; буфер для приема строки с клавиатуры (по ф-и 0ah) max db 128 ; максимальная длина строки len db 0 ; реальная длина введенной строки string db 128 dup (?) ; сама строка .code .startup lea dx, sInput mov ah, 9 int 21h ; приглашение на экран lea dx, buf mov ah, 0ah int 21h ; вводим строку lea dx, sResult mov ah, 9 int 21h ; Result string lea si, string ; адрес строки mov dh, 0 ; предыдущий символ MLoop: lodsb ; очередной cmp al, 0dh ; введенная строка заканчивается кодом 0dh je exit cmp al, dh ; совпадает с предыдущим? je MLoop mov dh, al ; сохраним int 29h ; и выведем jmp MLoop exit: lea dx, sPress mov ah, 9 int 21h ; press any key mov ah, 0 ; ждем нажатие клавиши, чтобы не ушло сразу int 16h mov ax, 4c00h int 21h end
-----
Удачи!

Ответ отправил: Лысков Игорь Витальевич, Профессионал
Ответ отправлен: 27.05.2009, 15:19

Оценка ответа: 5
Комментарий к оценке:
Спасибо большое, так как на форуме первый день поставил оценку 3 которая стоит по умолчанию, Зенченко Константину Николаевичу,исправьте на 5 :)

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 249914 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

помогите с курсовой??? в долгу не останусь!!!! Разработать ассемблер-программу,выводящую в файл номера свободных кластеров логического диска "А". Для вывода использовать handle-ориентированные системные функции обработки файлов. Формат вывода - символьно-шестнадцатеричный. Пояснить назначение выводимых объектов и их отдельных полей.
Для поиска объектов использовать только прерывания 13h.
заранее спасибо если что ответ пиши в асю 436253800

Отправлен: 27.05.2009, 22:47
Вопрос задал: gnom19, Посетитель
Всего ответов: 1
Страница вопроса >>

Приложение:
.model tiny ;буддем создавать com-файл .186 ;чтобы можно было было использовать команды shr ax,4 BOOT_STRUCTURE struc ;структура данных бутовой записи Jmp_Command db 3 dup (?) ;jmp Company_Name db 8 dup (?) ;производитель Sector_Size dw ? ;размер сектора в байтах Cluster_Size db ? ;размер кластера в секторах Reserved_Sectors dw ? ;количество резервных секторов (после бутовой записи и до FAT-а) FAT_Count db ? ;количество FAT-ов Root_Size dw ? ;размер корневого каталога в 32-байтных записях (в секторе 16 штук) Total_Sectors dw ? ;общее число секторов Media db ? ;тип носителя FAT_Size dw ? ;размер одного FAT-а в секторах Track_Sectors dw ? ;количество секторов на дорожке Heads_Count dw ? ;количество головок Hidden_Sectors dw ? ;невидимые сектора (на флоппи их нет) BOOT_STRUCTURE ends .data output_name db \'free.dat\',0 ;имя файла first_string db \'Номера свободных кластеров диска A:\',0dh,0ah ;заголовок в файле len_first_string equ $-first_string ;длина заголовка .data? boot db 512 dup (?) ;буфер для приема бутовой записи (и для вывода в файл) fat label byte ;начиная с этого адреса запишем все сектора FAT-а .code .startup lea bx, boot ;прочитаем бутовую запись mov cx, 1 ;0 дорожка, 1-й сектор mov dx, 0 ;0 головка, первый флоп mov ax, 0201h ;читаем один сектор int 13h mov si, bx ;будем адресовать бутовую запись через si ;число секторов одного FAT-а mov cx, [BOOT_STRUCTURE ptr si].FAT_size ;адрес буфера для FAT-а lea bx, fat ;определим первый сектор первого FAT-а ;будем хранить в di номер считываемого сектора + дорожка (в формате регистра cx) mov di, 2 ;1-й - boot, ищем, начиная со 2-го ;а вдруг есть невидимые (на флоппи их обычно нет) add di, [BOOT_STRUCTURE ptr si].Hidden_Sectors xor dx, dx ;0 головка, первый флоп sectors_loop: push cx mov cx,di ;зададим сектор+дорожку mov ax,0201h;читаем один сектор int 13h inc di ;инкремент номера сектора ;проверим, дошли ли до края дорожки? cmp di, [BOOT_STRUCTURE ptr si].Track_Sectors jbe next ;все ок, на следующий сектор ;переходим на другую головку mov di, 1 ;с первого сектора inc dh ;увеличиваем номер головки ;проверим, прошли ли все головки? cmp dh, byte ptr [BOOT_STRUCTURE ptr si].Heads_Count jb next ;переходим на следующий цилиндр (дорожку) mov dh, 0 ;с 0-й дорожки add di, 100h;инкремент цилиндра next: add bx, 200h;адрес буфера для следующего сектора pop cx loop sectors_loop ;по всем секторам ;Определим, сколько у нас есть кластеров ;Сначала посчитаем, сколько секторов использовано mov di, 2 ;начинаем со второго (первый - Boot) add di, [BOOT_STRUCTURE ptr si].Hidden_Sectors ;невидимые xor ax, ax mov al, [BOOT_STRUCTURE ptr si].FAT_Count ;количество FAT-ов mul [BOOT_STRUCTURE ptr si].FAT_size ;размер всех FAT-ов add di, ax ;накапливаем mov ax, [BOOT_STRUCTURE ptr si].Root_Size ;размер Root-а в записях shr ax, 4 ;всего в одном секторе 16 записей - делим на 16 add di, ax ;накапливаем mov ax, [BOOT_STRUCTURE ptr si].Total_Sectors;общее число секторов sub ax, di ;отнимем использованные mov cl, [BOOT_STRUCTURE ptr si].Cluster_Size;число секторов в кластере dec cl shr ax, cl ;ax = числу кластеров dec ax ;отнимем 1, т.к. первого нет, счет идет с 2 ;просмотрим считанную FAT и найдем все свободные кластера mov cx, ax ;счетчик кластеров mov bp, bx ;где закончили писать сектора FAT-а - буфер для номеров ; свободных кластеров xor di, di ;индекс в буфере свободных кластеров mov si, 2 ;в si - номер очередного кластера lea bx, fat+3 ;пропустим первые 3 байта search_free_loop: mov ax, [bx] ;"четный" номер and ax, 0fffh ;выделяем его jnz next_odd ;не 0 - занят mov [bp+di], si ;0 - свободен - сохраняем его номер add di, 2 ;для следующего next_odd: inc si ;номер следующего кластера loop cmp_odd ;циклим по cx jmp output_data ;если пройдем по всем, то на формирование файла cmp_odd: mov ax, [bx+1] ;"нечетный" номер shr ax, 4 ;выделяем его jnz next_both ;не 0 - занят mov [bp+di], si ;0 - свободен - сохраняем его номер add di, 2 next_both: inc si add bx, 3 ;на следующую пару loop search_free_loop output_data: ;сформируем файл с информацией lea dx, output_name ;создадим файл mov ah, 3ch mov cx, 0 int 21h mov bx, ax ;handle файла lea dx, first_string ;выведем заголовок mov cx, len_first_string mov ah, 40h int 21h mov si, bp ;адрес буфера номеров mov cx, di ;конечный использованный адрес shr cx, 1 ;число слов new_row: xor bp, bp ;будем выводить по 16 значений в строке, ; bp - счетчик в строке lea di, boot ;адрес буфера для формирования очередной строки row_loop: push cx lodsw ;читаем очередное слово call PrintWordHex ;сформируем в буфере hex-строку inc bp ;считаем число величин в строке cmp bp, 16 ;16 - максимум jb output_next ;меньше - добавим запятую и пробел mov ax, 0a0dh ;иначе - добавим перевод строки stosw mov cx, di ;адрес, куда дописали lea dx, boot ;адрес буфера sub cx, dx ;длина mov ah, 40h ;и выведем int 21h pop cx loop new_row ;на новую строку jmp close_file ;попадем сюда, если будут ровно по 16 output_next: mov ax, \' ,\' ;разделим величины stosw pop cx loop row_loop ;на следующее значение cmp di, offset boot ;проверим, если есть незаконченная строка jne close_file mov word ptr [di-2],0a0dh ;закроем ее mov cx, di ;и выведем lea dx, boot sub cx, dx mov ah, 40h int 21h close_file: mov ah, 3eh ;закроем файл int 21h .exit 0 ;выход в ДОС PrintWordHex proc ;слово в hex push ax ;сохраним al в стеке mov al,ah ;выведем старший байт call PrintByteHex pop ax ;восстановим младший PrintByteHex proc ;выводим байт в hex push ax ;сохраним младшую тетраду shr al,4 ;старшая тетрада 00-0f call PrintHexDigit ;выводим hex цифру pop ax ;восстановим младшую тетраду and al,0fh ;выделим PrintHexDigit proc ;выводим hex цифру add al,90h ;последующие 4 команды преобразовывают daa ;число 00-0f в символы \'0\'-\'9\',\'A\'-\'F\' adc al,040h daa stosb ret PrintHexDigit endp PrintByteHex endp PrintWordHex endp ret end
-----
Удачи!

Ответ отправил: Лысков Игорь Витальевич, Профессионал
Ответ отправлен: 01.06.2009, 17:59

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 250196 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

подать вопрос экспертам этой рассылки >>