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

Выпуск № 771
от 06.06.2007, 18:35

Вопрос № 89.474

Помогите! Уже неделю бьюсь! Это ассемблер встроеный в Паскаль. В процедуру входит 2 переменные! Одна с строкой ( типа '00100'), второе значение пустое (Y = 0). BaseAdr - это адрес порта! На строке {Cbw B , Y} выдает ошибку (Error 155: Invalid combination of opcode and operands.) Ожидаемый результат: Хочу, чтоб строка ('00100') в процедуре переводилась в число (Y) и передавалось в порт уже в виде Y = 00100. Заранее спасибо. Приложение: procedure WriteCOM (B : string; Y : word); assembler; Asm Mov Dx , BaseAdr Cbw B , Y Mov Al , Y Out Dx , Al end;

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Евгений! Команда CBW конвертирует байт в слово (из 8bit в 16bit) т.е. дополняет по старшему биту исходного байта. Преобразование строки в байт Вам нужно делать самому. В приложении описание ошибки. Удачи! Приложение: Недопустимая комбинация кода операции и операндов Код операции ассемблера не принимает эту комбинацию операндов. Возможные причины: - Имеются слишком много или слишком мало операндов для этой операции ассемблера. Например, INC AX, BX или MOV AX. -Число операндов правильно, но их типы или порядок не соответствует коду операции. Например: DEC 1, MOV AX, CL или MOV 1, AX Также возможны такие ситуации: Var B : Byte; W : Word; Begin W:=12345; Asm mov B, ax mov ah, W End; End. --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 31.05.2007, 19:29

Вопрос № 89.498

Ребя, кто может помогите пожалуйста с такой задачей : Ввести строку из произвольного числа символов и произвести в ней поиск подстроки SYMBOL. Если подстрока найдена, то её необходимо удалить. Вновь полученную строку вывести на экран. Если подстрока не найдена, вывести сообщение NOT_FOUND. Программу защитить паролем. Заранее благодарен!!! Приложение: Ввести строку из произвольного числа символов и произвести в ней поиск подстроки SYMBOL. Если подстрока найдена, то её необходимо удалить. Вновь полученную строку вывести на экран. Если подстрока не найдена, вывести сообщение NOT_FOUND. Программу защитить паролем.

Отправлен: 31.05.2007, 21:18 Вопрос задал: Торовик Иван Александрович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Коваленко Дмитро Олександрович Ответ удален, т.к. не содержал ответа. Перенесен в ветку форума "Удаленные ответы для обсуждения". ------------- =Alexey G. Gladenyuk= (*Мастер-Эксперт)

Ответ отправил: Коваленко Дмитро Олександрович (статус: 1-ый класс) Ответ отправлен: 01.06.2007, 00:11 Оценка за ответ: 3

Отвечает: Зенченко Константин Николаевич Здравствуйте, Торовик Иван Александрович! Смотрите приложение. В строках где ;+ отмечены эквиваленты строковых команд. Удачи! Приложение: MASM;IDEAL or MASM MODEL small stack 100 .186 DATASEG entrStr db 13,10,'please enter you string:$' entrSStr db 13,10,'please enter you substring:$' entrPass db 13,10,'password:$' outNot db 13,10,'not found you substring$' password db 'ku-ku',0 count db ? inpStr db 200 inpStrLen db ? inpStrDat db 200 dup(?) inpSStr db 200 inpSStrLen db ? inpSStrDat db 200 dup(?) CODESEG start: mov ax,@DATA mov ds,ax mov es,ax ;выводим password: enterPass: mov ah,09h mov dx,offset entrPass int 21h ;готвимся к вводу пароля максимум 20 символов xor ax,ax mov count,al mov di,20 mov si,offset password ;ввод без эхо newKey: mov ah,07h int 21h ;если enter переход cmp al,13 jz checkPass ;проверяем пароль cmp al,[si] mov al,'*' jz inpPass ;несовпало меняем флаг mov count,al ;вывод звездочки inpPass: int 29h ;если счетчик 0 переходим dec di jz enterPass ;следующая буква пароля inc si jmp short newKey ;если флаг не 0 переходим checkPass: cmp count,0 jnz enterPass ;вводим строку mov ah,09h mov dx,offset entrStr int 21h ;читаем строку mov ah,0ah mov dx,offset inpStr int 21h ;записываем '$' для 09 функции mov di,offset inpStrDat xor ch,ch mov cl,inpStrLen add di,cx mov byte ptr[di],'$' ;вводим под строку mov ah,09h mov dx,offset entrSStr int 21h ;читаем подстроку mov ah,0ah mov dx,offset inpSStr int 21h ;настраиваемся для поиска xor cx,cx mov count,cl mov di,offset inpStrDat mov si,offset inpSStrDat mov cl,inpStrLen ;ищем первый символ под строки findFirst: mov al,[di] ;+scasb inc di ;+ cmp al,[si] ;+ ;нашли переход jz beginCompare nextCompare: loop findFirst ;перход на новую строку mov al,13 int 29h mov al,10 int 29h ;проверяем счетчик замен mov al,count or al,al mov dx,offset outNot ;если замен небыло переход jz outStr mov dx,offset inpStrDat ;выводим строку и выход outStr: mov ah,09h int 21h mov ah,4ch int 21h ;не совпало - дальше noCompare: pop di;string pop si;substring pop cx;index jmp short nextCompare ;настраиваемся для проверки beginCompare: push cx;index push si;substring push di;string dec di;correction mov cl,inpSStrLen ;проверяем подстроку yesCompare: mov al,[di] ;+cmpsb inc di ;+ cmp al,[si] ;+ ;не совпало переход jnz noCompare inc si ;+ loop yesCompare ;совпало настраиваемся на удаление mov bx,di pop di;string pop ax;substring pop cx;index sub cl,inpSStrLen push cx;index push ax;substring dec di push di;string mov si,bx ;удаляем подстроку в строке yesDelete: mov al,[si] ;+movsb mov [di],al ;+ inc si ;+ inc di ;+ loop yesDelete ;востанавливаем параметры pop di;string pop si;substring pop cx ;плюс одна замена inc byte ptr[count] jmp short findFirst end start --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 01.06.2007, 15:20 Оценка за ответ: 5

Вопрос № 89.520

Хочю занятся асмом правда дуб в програмировании но очень хочется с чего начать книг по асму штук 15 ничего непонимаю какие программы нужны что делать в них хотя байты и биты выучил наизусть даже кника Калашникова непомогла что подскажите с уважением Леонид

Отправлен: 01.06.2007, 01:05 Вопрос задал: Lord7 (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Tamashev Denis M Здравствуйте, Lord7! Смотря подо что ты хочешь программы писать под Windows или под DOS... Windows использует WinAPI, DOS прерывания =) на www.wasm.ru www.cracklab.ru Есть хорошие статьи по программирования на ASM. + rusfaq - тоже очень много интересного можно найти!!! Почитай Калашникова с самой первой главы! Выучи что такое СТЕК и Шестнадцатиричная система. Удачи ;)

Ответ отправил: Tamashev Denis M (статус: 4-ый класс) Ответ отправлен: 01.06.2007, 09:49

Отвечает: Зенченко Константин Николаевич Здравствуйте, Lord7! Вам необходимо скачать компилятор, есть MASM, TASM, FASM и NASM у каждого свои плюсы и минусы. Программы пишут в любом редакторе (типа блокнот), очень много примеров в книге Зубкова начиная с главы 4-ой. С компиляторами MASM, TASM работают в командной строке (есть версии для дос-16 и "окон"-32), у FASM есть своя оболчка(отличается синтаксис языка, но обе версии в одном "флаконе"). версии для дос: MASM 6.11, 6.12 TASM 4.1 Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 01.06.2007, 10:58

Вопрос № 89.597

Здравствуйте уважаемые эксперты. Я пытаюсь написать окошко с кнопкой и статус баром. При вызове CreateWindowEx почему-то возникает ошибка. Скажите пожалуйста, почему так происходит? Приложение: .386 model flat,stdcall option casemap:none include masm32includecomctl32.inc include C:masm32includekernel32.inc include C:masm32includeuser32.inc include C:masm32includewindows.inc includelib C:masm32libkernel32.lib includelib C:masm32libuser32.lib includelib C:masm32libcomctl32.lib .data ClassName db 'Superwindow',0 WindowName db 'Херня какая-то',0 ButtonClass db 'button',0 ButtonName db 'Не нажимай',0 StatusString db 'Прога работает!!!',0 boxtext db ' БЛЯ!!!',0 boxname db 'Fatal Error',0 .data? hInstance HINSTANCE ? wc WNDCLASSEX <> hwnd HWND ? msg MSG <> x_coor dd ? y_coor dd ? Statushwnd HWND ? .const ID_BUTTON equ 1 ID_STATUS equ 2 .code Start: invoke GetModuleHandle,0 mov hInstance,eax mov wc.cbSize, SIZEOF WNDCLASSEX mov wc.style, CS_HREDRAW or CS_VREDRAW mov wc.lpfnWndProc, offset WinProc push hInstance pop wc.hInstance invoke LoadIcon,NULL, IDI_APPLICATION mov wc.hIcon, eax mov wc.hIconSm, eax invoke LoadCursor,0, IDC_ARROW mov wc.hCursor, eax mov wc.hbrBackground, COLOR_WINDOW+1 mov wc.lpszClassName, offset ClassName mov wc.cbClsExtra,NULL mov wc.cbWndExtra,NULL mov wc.lpszMenuName,0 invoke RegisterClassEx, offset wc invoke CreateWindowEx,WS_EX_CONTROLPARENT, addr ClassName, addr WindowName,WS_CAPTION+WS_OVERLAPPED,CW_USEDEFAULT,CW_USEDEFAULT,300,200,0,0,hInstance,0 mov hwnd, eax procedure: invoke GetMessage, addr msg, hwnd,0,0 test eax,eax jz exit invoke TranslateMessage,offset msg invoke DispatchMessage, offset msg jmp procedure exit: invoke ExitProcess,0 invoke InitCommonControls WinProc proc hwnd1:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM begin: cmp uMsg,WM_CREATE jnz mess2 invoke CreateWindowEx, WS_EX_CLIENTEDGE, addr ButtonClass, addr ButtonName, BS_DEFPUSHBUTTON+WS_VISIBLE+WS_CHILD,100,87,100,25,hwnd, ID_BUTTON,hInstance,0 invoke CreateStatusWindowA ,WS_CHILD+WS_VISIBLE,0,hwnd,ID_STATUS mov Statushwnd, eax jmp begin mess2: cmp uMsg, WM_MOUSEMOVE jnz mess3 mov eax, lParam and eax, 0ffffh mov x_coor, eax mov eax, lParam shr eax,16 mov y_coor, eax cmp x_coor,100 jna mess3 cmp x_coor,200 ja mess3 cmp y_coor,87 jna mess3 cmp y_coor,112 ja mess3 invoke SendMessage, Statushwnd,SB_SETTEXT,0, addr StatusString jmp begin mess3: cmp uMsg, WM_COMMAND mov eax, wParam cmp ax, ID_BUTTON jnz mess4 shr eax,16 cmp ax, BN_CLICKED jnz mess4 invoke MessageBox, hwnd, addr boxtext, addr boxname, MB_ICONWARNING or MB_OK jmp begin mess4: cmp uMsg, WM_DESTROY jnz mess5 invoke PostQuitMessage,0 ret mess5: invoke DefWindowProc,hwnd,uMsg,wParam,lParam ret WinProc endp

Отправлен: 01.06.2007, 14:41 Вопрос задал: Мясников Антон Евгеньевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евгений Иванов Здравствуйте, Мясников Антон Евгеньевич! Применяй не +, а команду OR (WS_CAPTION OR WS_OVERLAPPED). --------- Знания - сила

Ответ отправил: Евгений Иванов (статус: Профессор) Россия, Нижний Новгород Тел.: +79519145721 Организация: M2Media.ru Адрес: Нижний Новгород, ул.Малая Ямская WWW: Eugene Ivanov ICQ: 214889076 ---- Ответ отправлен: 01.06.2007, 14:48

Отвечает: Лысков Игорь Витальевич Здравствуйте, Мясников Антон Евгеньевич! Ошибки: 1) InitCommonControls надо вызвать до создания органов управления (статуса в нашем случае) из CommonControls. 2) Основное окно надо отобразить либо задав стиль окна WS_VISIBLE, либо вызвав ShowWindow с соответствующими параметрами (после создания) 3) Отработка сообщений в ф-и окна получилась зацикленной begin: jmp begin 3) В ф-и окна везде вместо hwnd надо, чтобы было hwnd1 (параметр ф-и) 4) В конце отсутствует end Start И еще, почему бы не заменить WS_CAPTION+WS_OVERLAPPED на WS_OVERLAPPEDWINDOW (там все включено...) Неудобно как-то без кнопочек. Удачи! Приложение: .386 .model flat,stdcall option casemap:none include masm32includecomctl32.inc include C:masm32includekernel32.inc include C:masm32includeuser32.inc include C:masm32includewindows.inc includelib C:masm32libkernel32.lib includelib C:masm32libuser32.lib includelib C:masm32libcomctl32.lib .data ClassName db 'Superwindow',0 WindowName db 'Херня какая-то',0 ButtonClass db 'button',0 ButtonName db 'Не нажимай',0 StatusString db 'Прога работает!!!',0 boxtext db ' БЛЯ!!!',0 boxname db 'Fatal Error',0 .data? hInstance HINSTANCE ? wc WNDCLASSEX <> hwnd HWND ? msg MSG <> x_coor dd ? y_coor dd ? Statushwnd HWND ? .const ID_BUTTON equ 10000 ID_STATUS equ 10001 .code Start: invoke GetModuleHandle,0 mov hInstance,eax mov wc.cbSize, SIZEOF WNDCLASSEX mov wc.style, CS_HREDRAW or CS_VREDRAW mov wc.lpfnWndProc, offset WinProc push hInstance pop wc.hInstance invoke LoadIcon,NULL, IDI_APPLICATION mov wc.hIcon, eax mov wc.hIconSm, eax invoke LoadCursor,0, IDC_ARROW mov wc.hCursor, eax mov wc.hbrBackground, COLOR_WINDOW+1 mov wc.lpszClassName, offset ClassName mov wc.cbClsExtra,NULL mov wc.cbWndExtra,NULL mov wc.lpszMenuName,0 invoke RegisterClassEx, offset wc invoke CreateWindowEx,WS_EX_CONTROLPARENT, addr ClassName, addr WindowName,WS_VISIBLE+WS_CAPTION+WS_OVERLAPPED,CW_USEDEFAULT,CW_USEDEFAULT,300,200,0,0,hInstance,0 mov hwnd, eax procedure: invoke GetMessage, addr msg, hwnd,0,0 test eax,eax jz exit invoke TranslateMessage,offset msg invoke DispatchMessage, offset msg jmp procedure exit: invoke ExitProcess,0 WinProc proc hwnd1:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM begin: cmp uMsg,WM_CREATE jnz mess2 invoke InitCommonControls invoke CreateWindowEx, WS_EX_CLIENTEDGE, addr ButtonClass, addr ButtonName, BS_DEFPUSHBUTTON or WS_VISIBLE or WS_CHILD,100,87,100,25,hwnd1, ID_BUTTON,hInstance,0 invoke CreateStatusWindowA ,WS_CHILD+WS_VISIBLE,0,hwnd1,ID_STATUS mov Statushwnd, eax jmp rett mess2: cmp uMsg, WM_MOUSEMOVE jnz mess3 mov eax, lParam and eax, 0ffffh mov x_coor, eax mov eax, lParam shr eax,16 mov y_coor, eax cmp x_coor,100 jna mess3 cmp x_coor,200 ja mess3 cmp y_coor,87 jna mess3 cmp y_coor,112 ja mess3 invoke SendMessage, Statushwnd,SB_SETTEXT,0, addr StatusString jmp rett mess3: cmp uMsg, WM_COMMAND mov eax, wParam cmp ax, ID_BUTTON jnz mess4 shr eax,16 cmp ax, BN_CLICKED jnz mess4 invoke MessageBox, hwnd1, addr boxtext, addr boxname, MB_ICONWARNING or MB_OK jmp rett mess4: cmp uMsg, WM_DESTROY jnz mess5 invoke PostQuitMessage,0 rett: xor eax,eax jmp short finish mess5: invoke DefWindowProc,hwnd1,uMsg,wParam,lParam finish: ret WinProc endp end Start --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Практикант) Ответ отправлен: 05.06.2007, 16:16

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