RusFAQ.ru: программирование на языке Assembler

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler

Выпуск № 350
от 23.01.2006, 00:54

Вопрос № 33.430

Здравствуйте, товарищи эксперты. Не подскажите ли Вы, где можно достать информацию о передаче параметров для ассемблерных процедур в Delphi.

Отправлен: 17.01.2006, 12:13 Вопрос задал: Solodov Evgeniy Vladimirovich (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: Seamanmur Здравствуйте, Solodov Evgeniy Vladimirovich! Почитай: http://www.megalib.com/books/923/77755.htm По моему там очень подробно

Ответ отправил: Seamanmur (статус: 1-ый класс) Отправлен: 19.01.2006, 15:56

Вопрос № 33.474

Здраствуйте Уважаемые Господа эксперты! Я прочитал несколько статей про VESA и решил написать программу которая бы перешла в режим 1024X765 и заполнила бы весь экран белам цветом (mov byte ptr es:[bx],0FFh). Всё бы хорошо, только я не пойму - где взять адрес видеопамяти? Я записал в A000:0000 - A000:FFFF, но на экран выводится только белая полоска (подозреваю, что из-за того, что в этом сегменте только 64кб). Вообщем как исправить код, чтобы весь экран заполнить и есть ли какойнибудь справочник по VESA? Приложение: .model tiny .code org 100h start: mov ax,04f02h mov bx,118h int 10h push 0a000h pop es xor bx,bx cycle: mov byte ptr es:[bx],0FFh inc bx jmp cycle ret end start

Отправлен: 17.01.2006, 20:47 Вопрос задал: Zloy_pes (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: newinfo2005 Здравствуйте, Zloy_pes! Это у тя даже не VESA-режим. Я могу выслать книгу про ВЕЗА-режим почтой. А вот пока кое-что из примеров нашел. Приложение: scrolls.asm ; Изображает в разрешении 1024x768x64К окрашенный конус, который можно ; плавно перемещать по экрану стрелками вверх и вниз. ; .model tiny .code .386 ; используется команда shrd org 100h ; СОМ-файл start: mov ax,4F01h ; получить информацию о видеорежиме mov cx,116h ; 1024x768x64К mov di,offset vbe_mode_buffer int 10h ; здесь для простоты опущена проверка наличия режима mov ax,4F02h ; установить режим mov bx,116h int 10h push word ptr [vbe_mode_buffer+8] pop es ; поместить в ES адрес начала видеопамяти ; (обычно A000h) cld ; вывод конуса на экран mov cx,-1 ; начальное значение цвета (белый) mov si,100 ; начальный радиус mov bx,300 ; номер столбца mov ax,200 ; номер строки main_loop: inc si ; увеличить радиус круга на 1 inc ax ; увеличить номер строки inc bx ; увеличить номер столбца call fast_circle ; нарисовать круг sub cx,0000100000100001b ; изменить цвет cmp si,350 ; если еще не нарисовано 250 кругов, jb main_loop ; продолжить, xor сх,сх ; иначе: выбрать черный цвет, call fast_circle ; нарисовать последний круг ; плавное перемещение изображения по экрану с помощью функции 4F07 xor bx,bx ; ВХ = 0 - установить начало экрана xor dx,dx ; номер строки = 0 ; номер столбца в СХ уже ноль main_loop_2: mov ax,4F07h int 10h ; переместить начало экрана mov ah,7 ; считать нажатую клавишу с ожиданием, без эха int 21h ; и без проверки на Ctrl-Break, test al,al ; если это обычная клавиша - jnz exit_loop_2 ; завершить программу, int 21h ; иначе: получить расширенный ASCII-код, cmp al,50h ; если это стрелка вниз je key_down cmp al,48h ; или вверх - вызвать обработчик, je key_up exit_loop_2: ; иначе - завершить программу mov ах,З ; текстовый режим int 10h ret ; завершить СОМ-программу key_down: ; обработчик нажатия стрелки вниз dec dx ; уменьшить номер строки начала экрана, jns main_loop_2 ; если знак не изменился - продолжить цикл, ; иначе (если номер был 0, а стал -1) - ; увеличить номер строки key_up: ; обработчик нажатия стрелки вверх inc dx ; увеличить номер строки начала экрана jmp short main_loop_2 ; Процедура вывода точки на экран в 16-битном видеорежиме ; Ввод: DX = номер строки, ВХ = номер столбца, ES = А000, СХ = цвет ; модифицирует АХ putpixel16b: push dx push di хоr di,di shrd di,dx,6 ; DI = номер строки * 1024 mod 65 536 shr dx,5 ; DX = номер строки / 1024 * 2 inc dx cmp dx,current_bank ; если номер банка для выводимой точки jne bank_switch ; отличается от текущего - переключить банки switched: add di,bx ; добавить к DI номер столбца mov ax,cx ; цвет в АХ shl di,1 ; DI = DI * 2, так как адресация идет в словах stosw ; вывести точку на экран pop di ; восстановить регистры pop dx ret bank_switch: ; переключение банка push bx xor bx,bx ; BX = 0 -> Установить начало экрана mov current_bank,dx ; сохранить новый номер текущего банка call dword ptr [vbe_mode_buffer+0Ch] ; переключить ; банк pop bx jmp short switched ; Алгоритм рисования круга, используя только сложение, вычитание и сдвиги ; (упрощенный алгоритм промежуточной точки). ; Ввод: SI = радиус, СХ = цвет, АХ = номер столбца центра круга, ; ВХ = номер строки центра круга модифицирует DI, DX fast_circle: push si push ax push bx xor di,di ; DI - относительная Х-координата текущей точки dec di ; (SI - относительная Y-координата, начальное mov ax,1 ; значение - радиус) sub ax,si ; AX - наклон (начальное значение 1-Радиус) circle_loop: inc di ; следующий X (начальное значение - 0) cmp di,si ; цикл продолжается, пока X < Y ja exit_main_loop pop bx ; BX = номер строки центра круга pop dx ; DX = номер столбца центра круга push dx push bx push ax ; сохранить АХ (putpixel16b его изменяет) add bx,di ; вывод восьми точек на окружности: add dx,si call putpixel16b ; центр_Х + X, центр_Y + Y sub dx,si sub dx,si call putpixel16b ; центр_X + X, центр_Y - Y sub bx,di sub bx,di call putpixel16b ; центр_Х - X, центр_Y - Y add dx,si add dx,si call putpixel16b ; центр_Х - X, центр_Y + Y sub dx,si add dx,di add bx,di add bx,si call putpixel16b ; центр_Х + Y, центр_Y + X sub dx,di sub dx,di call putpixel16b ; центр_Х + Y, центр_Y - X sub bx,si sub bx,si call putpixel16b ; центр_Х - Y, центр_Y - X add dx,di add dx,di call putpixel16b ; центр_Х - Y, центр_Y + X pop ax test ax,ax ; если наклон положительный js slop_negative mov dx,di sub dx,si shl dx,1 inc dx add ax,dx ; наклон = наклон + 2(Х - Y) + 1 dec si ; Y = Y - 1 jmp circle_loop slop_negative: ; если наклон отрицательный mov dx,di shl dx,1 inc dx add ax,dx ; наклон = наклон + 2X + 1 jmp circle_loop ; и Y не изменяется exit_main_loop: pop bx pop ax pop si ret current_bank dw 0 ; номер текущего банка vbe_mode_buffer: ; начало буфера данных о видеорежиме end start --------- "Спасибо" - нет такой валюты.

Ответ отправил: newinfo2005 (статус: 6-ой класс) Отправлен: 18.01.2006, 10:46 Оценка за ответ: 5

Вопрос № 33.488

zdrastvuiti! gde mojno naidi dokumentarziiu Assembler katoraia ucit rabotati v Assembler s nulea??? (prosto mne on nujen nu ia nicivo ne znaiu v neom!)

Отправлен: 17.01.2006, 23:13 Вопрос задал: spider (статус: 8-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Aleksey A Здравствуйте, spider! На сайте http://www.Kalashnikoff.ru рассылка для начала потом сайт Wasm.ru

Ответ отправил: Aleksey A (статус: 3-ий класс) Отправлен: 18.01.2006, 09:29 Оценка за ответ: 5 Комментарий оценки: Sposiba!!!

Отвечает: Sager Здравствуйте, spider! http://cracklab.ru/rar/dl/CRACKLAB.rU_8.rar http://cracklab.ru/kid.php (cracklab.ru) http://rusfaq.ru/?Step=info&Action=Question&ID=33399 kalashnikoff.ru learnasm.narod.ru asm.shadrinsk.net wasm.ru

Ответ отправил: Sager (статус: Студент) Отправлен: 18.01.2006, 13:47 Оценка за ответ: 5 Комментарий оценки: thx!!

Вопрос № 33.490

Коллеги! Возможно кто-нибудь подскажет где найти русскоязычный help по AFD PRО?

Отправлен: 17.01.2006, 23:34 Вопрос задал: Бочкарёв Алексей (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Sager Здравствуйте, Бочкарёв Алексей! Посмотри вот это: http://kis-kiev.narod.ru/lab/tasm/tsm1.htm

Ответ отправил: Sager (статус: Студент) Отправлен: 18.01.2006, 08:07

Отвечает: Boriss Здравствуйте, Бочкарёв Алексей! Ну и прислать можно. Если нужно - напишите, куда --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Отправлен: 18.01.2006, 09:33

Вопрос № 33.491

Здавствуйте,уважаемые эксперты. Ecь программа exe-ная запускается. При попытке дизассемблирования любым дизасмом говорится что это ни исполняемый файл. Наверное дело в PE заголовке. Можно как нибудь это исправить?

Отправлен: 17.01.2006, 23:40 Вопрос задал: Ua4aqc (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Ua4aqc! Есть большие подозрения, что программа просто-напросто упакована программами типа UPX, PECOMPACT и другими. Есть и программы, которые показывают метод паковки... Где взять нужный распаковщик не скажу, ссылок не осталось. Ищи в инете... Или кто-то подскажет... Для начала можно посоветовать заглянуть в заголовок любым вьювером РЕ заголовка и посмотреть на имена секций и вообще проанализировать заголовок... Может навести на мысли... PS. Будь готов к тому, что подобным образом распаковать может не удастся :( Очень часто после сжатия программы обрабатываются программами, которые прячут точку входа, переименовывают секции, т.о. становится невозможно распаковать стандартными методами. В таком случае один метод - берешь микроскоп, в виде отладчика, и вперед! --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: 10-ый класс) Отправлен: 18.01.2006, 10:07

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале

---

Subscribe.Ru Поддержка подписчиков Другие рассылки этой тематики Другие рассылки этого автора

Подписан адрес: Код этой рассылки: comp.soft.prog.faq Архив рассылки

Отписаться Вебом Почтой Вспомнить пароль

---

В избранное