Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

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

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

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

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

Airyashov Статус: Студент Рейтинг: 9 ∙ повысить рейтинг >>

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

Выпуск № 1178
от 09.02.2009, 01:05

Вопрос № 159414: <b>Здравствуйте уважаемые эксперты!</b> Помогите пожалуйста с такой задачкой! Скопировать вторую половину ASCIIZ-строки, расположенную по адресу в AX, в буфер с адресом в BX. Признак чётности/нечётности элементов строки сохранить для её второй пол...

Вопрос № 159.414

Здравствуйте уважаемые эксперты! Помогите пожалуйста с такой задачкой! Скопировать вторую половину ASCIIZ-строки, расположенную по адресу в AX, в буфер с адресом в BX. Признак чётности/нечётности элементов строки сохранить для её второй половины. Заранее спасибо за любую помощь!

Отправлен: 02.02.2009, 16:57 Вопрос задал: Artem--ua (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 9)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Artem--ua! Программа в приложении. Чтобы сохранить "признак чётности/нечётности элементов строки для её второй половины", высчитываем длину первой половины такой, чтобы она была четной Приложение: ;tasm copy.asm ;tlink copy /t ;Копируем вторую половину строки (по адресу в AX) в буфер (по адресу BX) ;Первая половина имеет четное число байт, ;чтобы сохранить "признак чётности/нечётности" для второй половины .model tiny .data sFirst db 'Before: ',0 sSecond db 0dh, 0ah,'After : ',0 string db '123456789',0 second db 5 dup (?) .code .startup lea ax, string lea bx, second call CopySecondPart lea si, sFirst call PrintASCIIZ lea si, string call PrintASCIIZ lea si, sSecond call PrintASCIIZ lea si, second call PrintASCIIZ mov ax, 4c00h int 21h CopySecondPart proc mov si, ax ;адрес строки mov di, ax mov al, 0 mov cx, 0ffffh repne scasb ;ищем конечный 0 lea ax, [di-1] ;адрес конечного 0 sub ax, si ;длина строки shr ax, 1 ;половина длины строки and ax, 0fffeh ;вторая половина на границе слова add si, ax ;адрес второй половины CLoop: ;копируем, включая завершающий 0 lodsb mov [bx], al ;адрес выходного буфеа inc bx cmp al, 0 jne CLoop ret CopySecondPart endp PrintASCIIZ proc ;вывод на экран ASCIIZ строки lodsb cmp al, 0 jz PARet int 29h jmp PrintASCIIZ PARet: ret PrintASCIIZ endp end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Профессионал) Украина, Кировоград ICQ: 234137952 ---- Ответ отправлен: 03.02.2009, 00:32 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242760 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасибо большее!

Вопрос № 159.426

Здравствуйте, уважаемые эксперты низкоуровневого программирования . Недавно обратились люди, просили помочь с асмом, точнее с заданиями для экзамена. Обратились "во-время"....как говорится нужно вчера. Я согласился посмотреть, как бы ни к чему себя не обязывая, то есть что -то подсказать, объяснить если что-то непонятно, при условии, что мне предоставят инфу, которая давалась во время данного курса, что бы самому ее не искать. Информация действительно была "информативная" (пардон за тавтологию) - это само задание Отказывать уже поздно, и времени нет всвязи с работой. В приложении приведу сами задания. Не могли бы вы подсказать некоторые основные моменты для решения этой задачи? По большому счету я думаю программа (-мы) элементарная (-ые), только есть кое какие не совсем понятные моменты, а именно: 1) 13h- я так понимаю режим текстов ый, то есть минимальная выводимая единица на монитор - это знакоместо а не пиксель (точка). Просто было все таки немного времени порыться в инете и кое что нашел, но это ввело меня в заблуждение: если это текстовый режим получается 2 этих задания придется "рисовать" в псевдографике? И если честно я вообще не помню что при изучении асма в институте мы что-то рисовали пикселями, поэтому почему то сложилось у меня мнение что асм, точнее рижимы биоса (если не ошибаюсь 10h прерывание) кроме текстового режим не поддерживают больше никакие другие, хотя я понимаю что это глупость 2) и вторая непонятная штука для меня - это таблица цветов ЦАП - ну не помню я ее Не могли бы, уважаемые эксперты навести на "путь истинный"? Буду очень признателен как за ссылки, так и за простое объяснение, в частности о структуре данной таблице цветов и е е смещении (как ее найти), и пожалуйста немного о графическом режиме 13h. Заранее благодарен Приложение: Требуется продемонстрировать следующие знания, умения, навыки. 1. Создать программу (TurboPascal с ассемблерными вставками или ассемблер), которая переключает экран в режим 13h, устанавливает для кода цвета 100 в таблице цветов ЦАП (цифро-аналогового преобразователя) зеленый цвет максимальной интенсивности, и рисует вертикаль цветом с кодом 100. 2. Создать программу (TurboPascal с ассемблерными вставками или ассемблер), которая переключает экран в режим 13h, и рисует на экране простейший узор (например, шахматная доска)

Отправлен: 02.02.2009, 20:34 Вопрос задал: Arshvin (статус: Студент) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Arshvin! Шахматная доска в приложении (задание №2). По программе: программа написана для встроенного ассемблера ТР 7.0. Использованна прямая запись в видеобуфер. Скачайте книгу: Кулаков В. - Программирование на аппаратном уровне. В ней Вы найдете много полезной информации по программированию железа, в том числе и программирование ЦАП видеокотролера. Удачи! Приложение: begin asm {сохраняем ссегментный регистр и ставим режим} push es mov ax,13h int 10h {будем писать прямо в видео-буфер} mov ax,0a000h mov es,ax cld {пропускаем нулевую строку} mov di,320 mov bx,0ffffh mov cx,8 {количество строк по 16-ть пикселей по вертикали} 001: push cx mov cx,16 {количество пикселей в одной строке по вертикали} 002: push cx mov cx,8 {количество клеток в одной строке} 003: mov dx,bx push cx mov cx,16 {количество пикселей в одной клетке, по горизонтали} 004: xor ax,ax shr dx,1 jc @005 add al,100 005: stosb loop @004 {меняем цвет} xor bx,0ffffh pop cx loop @003 {корректируем на начало экрана} add di,192 pop cx loop @002 {меняем цвет повторно} xor bx,0ffffh pop cx loop @001 pop es {нажмите любую клавишу} xor ax,ax int 16h end; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 02.02.2009, 22:37 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242756 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Большое спасибо!!! Очень полезная литература и информация, что в ней. А так же благодарен вам за предложенное вами решение задачи. Аппаратное программирование будет жить вечно :) !!!

Вопрос № 159.433

Здраствуйте, незнаю или задаю данный вопрос там где надо, но немогу разобратся как связать свой исходник на асме с файлом ресурсов. В приложении файл ресурсов(зделан использую ResEd) из ассемблерских компиляторов использую masm32, в приложении также кусочек исходника на асме(взят из интернета). Может ктонибуть могбы подправить этот исходник, чтобы при нажатии кнопки на форме, чтонибуть вписалось в Edit поле. как что компилировать я вроде как знаю сразу русурсы rc resurs.rc потом ml /c /coff kod.asm и в конце link resurs.res kod.obj Проблема заключается именно в исправлении кода :( покачто rc resurs.rc тоже неполучается выполнить, пишет: error RC2104 : undefined keyword or key name: WS_VISIBLE Помогите пожалуйста исправить этот код Заранее Спасибо. Приложение: #define Frame 1000 #define IDC_BTN1 1001 #define IDC_BTN2 1002 #define IDC_CHK1 1003 #define IDC_EDT1 1004 Frame DIALOGEX 6,6,194,102 CAPTION "IDD_DLG" FONT 8,"MS Sans Serif",0,0,0 STYLE WS_VISIBLE|WS_OVERLAPPEDWINDOW BEGIN CONTROL "Button 1",IDC_BTN1,"Button",WS_CHILD|WS_VISIBLE|WS_TABSTOP,8,5,54,13 CONTROL "Button 2",IDC_BTN2,"Button",WS_CHILD|WS_VISIBLE|WS_TABSTOP,8,22,54,13 CONTROL "IDC_CHK",IDC_CHK1,"Button",WS_CHILD|WS_VISIBLE|WS_TABSTOP|BS_AUTOCHECKBOX,12,40,54,9 CONTROL "",IDC_EDT1,"Edit",WS_CHILD|WS_VISIBLE|WS_TABSTOP,90,7,54,13,WS_EX_CLIENTEDGE END ------------------------------------------------------------------------------------------------------------------------------- 386 model flat, stdcall option casemap:none include masm32includewindows.inc include masm32includeuser32.inc includelib masm32libuser32.lib include masm32includekernel32.inc includelib masm32libkernel32.lib WinMain proto :DWORD, :DWORD, :DWORD, :DWORD const IDM_OPEN equ 1 IDM_SAVE equ 2 IDM_EXIT equ 3 MAXSIZE equ 260 data ClassName db "ExeCryptClass", 0 AppName db "ExeCrypt", 0 ofn OPENFILENAME <> FilterString db "Exe files",0,"*.exe",0 buffer db MAXSIZE dup(0) hMapFile HANDLE 0 data? hInstance HINSTANCE ? ;handle progi CommandLine LPSTR ? hFileRead HANDLE ? hFileWrite HANDLE ? hMenu HANDLE ? pMemory DWORD ? code start: invoke GetModuleHandle, NULL mov hInstance, eax invoke GetCommandLine mov CommandLine, eax invoke WinMain, hInstance, NULL, CommandLine, SW_SHOWDEFAULT invoke ExitProcess, eax WinMain proc hInst: HINSTANCE, hPrevInst: HINSTANCE, CmdLine: LPSTR, CmdShow: DWORD LOCAL wc:WNDCLASSEX LOCAL msg:MSG LOCAL hwnd:HWND mov wc.cbSize, SIZEOF WNDCLASSEX mov wc.style, CS_HREDRAW or CS_VREDRAW mov wc.lpfnWndProc, offset WndProc mov wc.cbClsExtra, NULL mov wc.cbWndExtra, NULL push hInstance pop wc.hInstance mov wc.hbrBackground, COLOR_WINDOW+8 mov wc.lpszMenuName, NULL mov wc.lpszClassName, offset ClassName invoke LoadIcon, NULL, IDI_APPLICATION mov wc.hIcon, eax mov wc.hIconSm, eax invoke LoadCursor, NULL, IDC_ARROW mov wc.hCursor, eax invoke RegisterClassEx, addr wc ;invoke CreateWindowEx, NULL, ADDR ClassName, ADDR AppName, WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, NULL, NULL, hInst, NULL mov hwnd, eax invoke ShowWindow, hwnd, SW_SHOWNORMAL invoke UpdateWindow, hwnd .WHILE TRUE invoke GetMessage, ADDR msg, NULL,0,0 .BREAK .IF(!eax) invoke TranslateMessage, ADDR msg invoke DispatchMessage, ADDR msg .ENDW mov eax, msg.wParam ret WinMain endp WndProc proc hWnd:HWND, uMsg: UINT, wParam: WPARAM, lParam:LPARAM .IF uMsg==WM_DESTROY invoke PostQuitMessage, NULL ;.ENDIF ;.IF uMsg==WM_RBUTTONDOWN ; invoke Beep, 15000d, 600 ;.ENDIF ;.IF uMsg==WM_LBUTTONDOWN ; invoke Beep, 10000d, 500 .ELSE invoke DefWindowProc, hWnd, uMsg, wParam, lParam ret .ENDIF xor eax, eax ret WndProc endp end start

Отправлен: 02.02.2009, 22:28 Вопрос задал: Станислав (статус: 1-й класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Станислав! Вы задали вопрос туда, куда надо Мы всегда рады помочь ищущим знания! В приложении подправленная программа, которая по первой кнопке "рисует" в edit-е строку "Нажали на кнопочку..." По второй выходим из программы Чтобы диалог из ресурсов начал работать как основное окно необходимо в диалоге указать класс такой же, как и зарегистрированный. Плюс необходимо задать поле WNDCLASSEX.cbWndExtra равным DLGWINDOWEXTRA Для файла ресурсов надо было подключить файл resource.h Удачи! Приложение: #include "masm32includeesource.h" #define Frame 1000 #define IDC_BTN1 1001 #define IDC_BTN2 1002 #define IDC_CHK1 1003 #define IDC_EDT1 1004 Frame DIALOGEX 6,6,194,102 CAPTION "IDD_DLG" CLASS "ExeCryptClass" FONT 8,"MS Sans Serif",0,0,0 STYLE WS_VISIBLE|WS_OVERLAPPEDWINDOW BEGIN CONTROL "Button 1",IDC_BTN1,"Button",WS_CHILD|WS_VISIBLE|WS_TABSTOP,8,5,54,13 CONTROL "Button 2",IDC_BTN2,"Button",WS_CHILD|WS_VISIBLE|WS_TABSTOP,8,22,54,13 CONTROL "IDC_CHK",IDC_CHK1,"Button",WS_CHILD|WS_VISIBLE|WS_TABSTOP|BS_AUTOCHECKBOX,12,40,54,9 CONTROL "",IDC_EDT1,"Edit",WS_CHILD|WS_VISIBLE|WS_TABSTOP,90,7,54,13,WS_EX_CLIENTEDGE END ;-------------------------------- 386 model flat, stdcall option casemap:none include masm32includewindows.inc include masm32includeuser32.inc includelib masm32libuser32.lib include masm32includekernel32.inc includelib masm32libkernel32.lib include masm32macrosmacros.asm ;для макро szText WinMain proto :DWORD, :DWORD, :DWORD, :DWORD const IDM_OPEN equ 1 IDM_SAVE equ 2 IDM_EXIT equ 3 MAXSIZE equ 260 Frame equ 1000 ;ресурсы IDC_BTN1 equ 1001 IDC_BTN2 equ 1002 IDC_CHK1 equ 1003 IDC_EDT1 equ 1004 data ClassName db "ExeCryptClass", 0 AppName db "ExeCrypt", 0 ofn OPENFILENAME <> FilterString db "Exe files",0,"*.exe",0 buffer db MAXSIZE dup(0) hMapFile HANDLE 0 data? hInstance HINSTANCE ? ;handle progi CommandLine LPSTR ? hFileRead HANDLE ? hFileWrite HANDLE ? hMenu HANDLE ? pMemory DWORD ? code start: invoke GetModuleHandle, NULL mov hInstance, eax invoke GetCommandLine mov CommandLine, eax invoke WinMain, hInstance, NULL, CommandLine, SW_SHOWDEFAULT invoke ExitProcess, eax WinMain proc hInst: HINSTANCE, hPrevInst: HINSTANCE, CmdLine: LPSTR, CmdShow: DWORD LOCAL wc:WNDCLASSEX LOCAL msg:MSG LOCAL hwnd:HWND mov wc.cbSize, SIZEOF WNDCLASSEX mov wc.style, CS_HREDRAW or CS_VREDRAW mov wc.lpfnWndProc, offset WndProc mov wc.cbClsExtra, NULL mov wc.cbWndExtra, DLGWINDOWEXTRA ;важно, чтобы запустить главное окно из ресурсов push hInstance pop wc.hInstance mov wc.hbrBackground, COLOR_WINDOW+8 mov wc.lpszMenuName, NULL mov wc.lpszClassName, offset ClassName invoke LoadIcon, NULL, IDI_APPLICATION mov wc.hIcon, eax mov wc.hIconSm, eax invoke LoadCursor, NULL, IDC_ARROW mov wc.hCursor, eax invoke RegisterClassEx, addr wc ;создаем главное окно из ресурсов ;важно, чтобы в диалоге был указан класс, такой же как и зарегистрированный invoke CreateDialogParam, hInstance, Frame, 0, NULL, NULL mov hwnd, eax invoke ShowWindow, hwnd, SW_SHOWNORMAL invoke UpdateWindow, hwnd .WHILE TRUE invoke GetMessage, ADDR msg, NULL,0,0 .BREAK .IF(!eax) invoke TranslateMessage, ADDR msg invoke DispatchMessage, ADDR msg .ENDW mov eax, msg.wParam ret WinMain endp WndProc proc hWnd:HWND, uMsg: UINT, wParam: WPARAM, lParam:LPARAM .IF uMsg==WM_DESTROY invoke PostQuitMessage, NULL ;.ENDIF ;.IF uMsg==WM_RBUTTONDOWN ; invoke Beep, 15000d, 600 ;.ENDIF ;.IF uMsg==WM_LBUTTONDOWN ; invoke Beep, 10000d, 500 .ELSEIF uMsg==WM_COMMAND .IF wParam==IDC_BTN1 szText TestString, "Нажали на кнопочку..." invoke GetDlgItem, hWnd, IDC_EDT1 invoke SetWindowText, EAX, ADDR TestString .ELSEIF wParam==IDC_BTN2 invoke SendMessage, hWnd, WM_CLOSE, 0, 0 .ENDIF .ELSE invoke DefWindowProc, hWnd, uMsg, wParam, lParam ret .ENDIF xor eax, eax ret WndProc endp end start --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Профессионал) Украина, Кировоград ICQ: 234137952 ---- Ответ отправлен: 03.02.2009, 02:07 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242762 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасибо :)

Вопрос № 159.543

Доброго времени суток, уважаемые эксперты! Помогите решить задачу: "составить пограмму производящую копирование строки из 15 символов в стоящую рядом область памяти". В апреле 2008 эта тема поднималась в рассылке, пример решения ниже, но я так и не понял как описать эту самую "рядом стоящую область памяти"? Приложение: Data SEGMENT ;Открыть сегмент данных strin DB 'KalininllinKamil$',0 Data ENDS ;Закрыть сегмент данных Ourstack SEGMENT Stack ;Открыть сегмент стека DB 100h DUP (?) ;Отвести под стек 256 байт Ourstack ENDS ;Закрыть сегмент стека ASSUME CS:Code, DS:Data, SS:Ourstack ;Назначить сегментные регистры Code SEGMENT ;Открыть сегмент кодов Start: mov AX, Data ;Инициализировать mov DS, AX ;сегментный регистр DS mov DI, 16 ;сохраняем в DI счётчик mov strin[DI+16], 0 Next: dec DI ;переход к след. элементу xor BX, BX ;очищаем BX mov BH, strin[DI] ;сдвигаем символы на BH mov strin[DI+15], BH jnz Pass ; Pass: or DI, DI ;если счетчик не обнулился, jnz Next ; то переходим к следующему mov AH, 09h mov DX, OFFSET strin int 21h mov AL, 0 mov AH, 4Ch ;Завершить программу int 21h ;с помощью DOS Code ENDS ;Закрыть сегмент кодов END Start ;Конец исходного модуля.

Отправлен: 03.02.2009, 22:16 Вопрос задал: Гранков Николай Александрович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Гранков Николай Александрович! Вариантов реализации масса! Мне лично нравится писать так, как в приложении. Как бонус даю еще один вариант, который закомментирован. Можете выбрать любой, какой нравится. Описывать "рядом стоящую область памяти" просто: надо буквально выделить буфер следом за исходной строкой... Обратите внимание, хоть строка имеет длину 15 байт, надо учитывать еще один байт - завершающий $, Т.о. имеем фактическую длину 16 байт. Приложение: Data SEGMENT ;Открыть сегмент данных strin DB 'KalininllinKami$' ;исходная строка длины 15 байт + $ strout db 16 dup (0) ;сюда будем писать Data ENDS ;Закрыть сегмент данных Ourstack SEGMENT Stack ;Открыть сегмент стека DB 100h DUP (?) ;Отвести под стек 256 байт Ourstack ENDS ;Закрыть сегмент стека ASSUME CS:Code, DS:Data, ES:Data, SS:Ourstack ;Назначить сегментные регистры Code SEGMENT ;Открыть сегмент кодов Start: mov AX, Data ;Инициализировать mov DS, AX ;сегментный регистр DS mov ES, AX ;сегментный регистр ES lea si, strin ;адрес (DS:SI) откуда брать lea di, strout ;адрес (ES:DI) куда писать mov cx, 16 ;длина строки + завершающий $ rep movsb ;копируем cx байт ds:si -> es:di ; mov cx, 16 ;длина строки ; xor si, si ;индекс ;CLoop: ;цикл ; mov al, strin[si] ;читаем байт ; mov strin[si+16],al ;пишем со смещением 16, как раз в strout ; inc si ;индекс следующего байта ; loop CLoop ;cx=cx-1, если не 0, то повторяем mov AH, 09h mov DX, OFFSET strout int 21h mov ax, 4C00h ;Завершить программу int 21h ;с помощью DOS Code ENDS ;Закрыть сегмент кодов END Start ;Конец исходного модуля. --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Профессионал) Украина, Кировоград ICQ: 234137952 ---- Ответ отправлен: 04.02.2009, 00:57 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242841 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Большое спасибо. Теперь всё понятно, Вы мчень помогли!

© 2001-2009, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru