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

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

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

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

Бородин Константин Игоревич Статус: 8-й класс Рейтинг: 45 ∙ повысить рейтинг >>

Евгений Иванов Статус: Профессор Рейтинг: 14 ∙ повысить рейтинг >>

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

Выпуск № 1192
от 13.03.2009, 11:53

Вопрос № 161688: Здравствуйте! Помогите мне, пожалуйста, решить два примера на Ассемблере: У=(а*а*а)-(в/2), если в>0 и У=а+(в*2), если в<=0. У меня что-то получилось, но я не уверен в правильности. По возможности, посмотрите его, пожалуйта, если он невере...

Вопрос № 161.688

Здравствуйте! Помогите мне, пожалуйста, решить два примера на Ассемблере: У=(а*а*а)-(в/2), если в>0 и У=а+(в*2), если в<=0. У меня что-то получилось, но я не уверен в правильности. По возможности, посмотрите его, пожалуйта, если он неверен, напишите, пожалуйста, свой. Мой код в приложении. ОЧЕНЬ надеюсь на помощь, спасибо! Приложение: код первого примера: xor ax,ax key_2$bin mov bl, al cmp bl, 0 jg M1 M1: xor ax,ax key_2bin mov cl,al imul al imul cl mov dl,al mov al, bl mov bh, 2 div bh sub dl, al print_number Второй решил аналогично, если что, могу код прислать.

Отправлен: 01.03.2009, 13:57 Вопрос задал: AkaProc (статус: 4-й класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 10)

Отвечает: Лысков Игорь Витальевич Здравствуйте, AkaProc! Все таки обобщу. Будем считать, что числа такие, что а3 помещается в слово, а не в байт Если надо, можете самостоятельно переделать на работу с байтами. Кроме того, умножение/ деление на 2 лучше делать сдвигом на 1 бит Ну и добавил подпрограмму вывода числа. Удачи! Приложение: ;У=(а*а*а)-(в/2), если в>0 и У=а+(в*2), если в<=0 .model tiny .data a db 4 b db 6 .code .startup mov al,'Y' int 29h mov al,'=' ;'Y=' int 29h mov al, a mov ah, b call calc_y ;посчитаем call print_number ;выведем число mov al,0ah ;перевод на следующую строку int 29h mov ax, 4c00h int 21h calc_y proc xor bx, bx mov bl, ah ;bx = числу в cmp bl, 0 ;проверим условие jg M1 ;если в > 0, то идем на У=(а*а*а)-(в/2) ;У=а+(в*2) sal bx, 1 ;умножим на 2 сдвигом влево на 1 бит mov ah, 0 ;сделаем из байта слово add ax, bx ;y=ax=а+(в*2) jmp M2 ;У=(а*а*а)-(в/2) M1: sar bx, 1 ;разделим на 2 сдвигом на 1 бит вправо (bx = в/2) xor cx, cx ;сохраним а в слове cx mov cl, al imul al ;ax = al * al imul cx ;dx:ax = ax * cx = al * al * al = a * a * a (считаем, что dx=0) sub ax, bx ;y = a*a*a - в/2 M2: ret calc_y endp print_number proc ;вывод числа из ax mov bx,10 ;десятичная система xor cx,cx ;счетчик цифр в числе isDiv: xor dx,dx ;подготовим число - будем делить dx:ax на bx div bx ;делим число на 10 push dx ;запоминаем в стеке остаток от деления inc cx ;считаем количество запоминаемых символов or ax,ax ;продолжаем пока АХ не равно 0 jnz isDiv isOutNum: ;выводим из стека цифры в нужном порядке pop ax or al,30h ;переводим цифру в символ int 29h ;выводим в режиме телетайпа loop isOutNum;повторяем вывод в цикле ret print_number endp end --------- Удачи!

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

Вопрос № 161.859

Уважаемые эксперты, напишите, пожалуйста, на tasm под dos следующую программку: Какой-нибудь символ должен двигаться по периметру прямоугольника.

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Pavlodudch! Программа в приложении рисует двигающуюся по часовой стрелке звездочку с заданной скоростью по прямоугольнику с заданными в тексте программы координатами Начало движения по пробелу, останов по Enter-у, выход по Esc Если что не понятно, милости просим в мини-форум Приложение: .model tiny .code .186 .startup jmp main ; TIMER_COUNT equ 3 ;задает скорость рисования (раз в TIMER_COUNT/18 секунды) LEFT equ 20 ;позиция прямоугольника RIGHT equ 59 TOP equ 5 BOTTOM equ 19 SYMBOL equ '*' ;выводимый символ int08old dd ? ;адрес старого обработчика вектора 08 count_ticks dw 0 ;будем считать с TIMER_COUNT до 0 dwXY label word ;позиция символа dbX db LEFT dbY db TOP flag db 0 ;флаг движения ; int08new proc ;прерывание таймера pushf call cs:[int08old] ;отработаем старое прерывание sub cs:count_ticks, 1 jns int08iret mov cs:count_ticks, TIMER_COUNT call print_ball ;будем вызывать раз в TIMER_COUNT/18 секунды int08iret: iret int08new endp ; print_ball proc push ax di es mov ax, 0b800h mov es, ax cmp cs:flag, 0 ;проверим флаг je print_o ;на вывод в старой позиции call GetOff ;в di старая позиция mov al, ' ' ;затираем пробелом stosb call SetNew ;вычислим новую позицию print_o: call GetOff ;в di новая позиция mov ax,0bh*256+SYMBOL ;рисуем символ stosw pop es di ax ret print_ball endp ; GetOff proc ;вычисляем смещение исходя из координат mov al, 80 mul cs:dbY ;ax=80*Y add al, cs:dbX adc ah, 0 ;ax=80*Y+X shl ax, 1 ;ax=2*(80*Y+X) mov di, ax ;di - смещение символа ret GetOff endp ; SetNew proc mov ax, cs:dwXY ;старая позиция cmp al, RIGHT ;на правой грани? je SN_right cmp al, LEFT ;на левой грани? je SN_left cmp ah, BOTTOM ;внизу? je SN_bottom jmp SN_top ;вверху SN_left: sub ah, 1 ;идем вверх cmp ah, TOP jae SN_set ;если не дошли до верха mov ah, TOP ;остаемся вверху SN_top: inc al ;идем вправо (проверка на правый край уже была) jmp SN_set SN_right: inc ah ;идем вниз cmp ah, BOTTOM ;если не дошли до низа jb SN_set mov ah, BOTTOM ;остаемся внизу SN_bottom: dec al ;идем влево SN_set: mov cs:dwXY, ax ;запомнили новую позицию ret SetNew endp ; main: mov ax, 3 ;установили режим 25*80 int 10h ;обязательно при прямой записи в видеобуфер под ХР mov cx, 2000h ;спрячем курсор mov ah, 1 ;после выхода из программы и переинициализации видеорежима int 10h ;он опять появится mov ax,3508h ; получить адрес 08h int 21h mov word ptr int08old, bx mov word ptr int08old+2, es mov ax,2508h ; установить новый обработчик lea dx, int08new int 21h MLoop: ;основной цикл mov ah, 0 int 16h cmp ah,1 je exit ;выходим по ESC cmp al,' ' jne cmp_enter mov flag, 1 ;по пробелу взводим флаг движения jmp MLoop cmp_enter: cmp al,0dh jne MLoop mov flag, 0 ;по enter-у сбрасываем флаг jmp MLoop exit: lds dx, cs:int08old mov ax,2508h ; вернем обратно адрес 08h int 21h mov ax, 0003h int 10h ;переинициализируем видеорежим, чтобы очистить экран .exit 0 end --------- Удачи!

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

Вопрос № 162.032

Доброго времени суток! Как мне в цикле занести значения в массив от 1 до 10? А потом вывести это все дело? Вот что у меня получается но ничего не рабоатет :( Приложение: .686 model flat, stdcall include windows.inc includelib kernel32.lib ExitProcess PROTO: DWORD data mas db 10 DUP(?) i db 1 code WinMain PROC xor ax,ax mov cx,10 mov si,1 mov dl,1 nn: xor ax,ax mov al, dl mov mas[si],al xor ax,ax inc i inc dl inc si loop nn INVOKE ExitProcess,0 WinMain ENDP end

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Timer! Исходя из приведенного текста, видим, что пишем программу в GUI (можно было сделать в консоли) Пишем программу под Windows, поэтому и регистры должны использоваться 32-битные! Вывод результата реализовал в виде вывода MessageBox Удачи! Приложение: .686 model flat, stdcall option casemap :none ; чтобы различать большие и малые буковки include masm32includewindows.inc include masm32includekernel32.inc ;ExitProcess include masm32includeuser32.inc ;MessageBox includelib masm32libkernel32.lib includelib masm32libuser32.lib data bCaption db 'Массив',0 bFormat db '%d, %d, %d, %d, %d, %d, %d, %d, %d, %d',0 mas db 10 DUP(?) bMessage db 64 dup (?) code WinMain PROC mov ecx,10 ;mov cx,10 Мы же работаем в 32-битном сегменте! xor esi,esi ;mov si,1 Адресация с 0! mov al,1 ;mov dl,1 Зачем лишние присваивания? nn: ;xor ax,ax Лишнее ;mov al, dl Лишнее mov mas[esi],al ;mov mas[si],al Индексация по 32-битному регистру ;xor ax,ax Лишнее ;inc i Лишнее inc al ;inc dl Это, надеюсь, понятно и так... inc esi ;inc si И это тоже... loop nn ;мы работаем в GUI, поэтому будем выводить в каком-то окне, например, в MessageBox ;сначала преобразуем 10 чисел в строку при помощи ф-и wsprintf ;т.к. параметрами надо отправлять dword-ы, а у нас байты, то будем отправлять их ;в стек параметрами, предварительно преобразуя их в dword-ы ;причем будем отправлять в стек, начиная с последнего ;обратим внимание, что esi после формирования является индексом байта за последним! ;не забываем после использования подправить стек (сами записали - сами должны и убрать) mov ecx,10 ;10 параметров FParmLoop: dec esi ;esi-индекс очередного байта movzx eax,byte ptr mas[si] ;eax-байт, расширенный до dword push eax ;в стек loop FParmLoop invoke wsprintf,ADDR bMessage,ADDR bFormat ;кроме того в стек отправятся адреса буфера и формата ;после возврата из стека удалятся только последние 2 параметра! add esp,10*4 ;подправим указатель стека, чтобы удалить остальные 10 dword-ов! invoke MessageBox,0,ADDR bMessage, ADDR bCaption, MB_OK ;выведем сообщение INVOKE ExitProcess,0 WinMain ENDP end WinMain ;у нас своя точка входа! --------- Удачи!

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

Вопрос № 162.110

Как обработать отжатие клавиши клавиатуры? У меня есть в паскале массив с булевским типом. Кол-во елементов массива равно кол-ву интересующих меня клавиш. С нажатием клавиши все ясно, но как узнать какие отжаты

Отправлен: 05.03.2009, 15:42 Вопрос задал: Борисенко Сергей Владимирович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 13)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Борисенко Сергей Владимирович! Программа в приложении на ТР 7.0. Устанавливается свой обработчик прерывания, который обрабатывает контролер клавиатуры и записывает в два логических массива значение истина или ложь, в зависимости от того какая клавиша нажата или отпущена. Длина массивов выбрана 128 байт для обработки всех возможных скан-кодов, а в самой программе Вы используете только нужные. Выход из цикла нажатая и отпущенная клавиша ESC. После этого востанавливается старый обработчик прерываний. Вопросы задавайте в мини-форум. Удачи! Приложение: uses crt; var ArrayKeyUp,ArrayKeyDown:word; ArrayUp,ArrayDown:array[0..127]of boolean; Old09s,Old09o:word; tempA,tempB:^word; procedure myInterrupt;interrupt; begin asm {запрещаем аппаратные прерывания} cli xor bx,bx{сбрасываем результат} in al,60h{читаем сканкод} shl al,1{получаем старший бит в флаг CF} adc bx,0{суммируем с результатом} xor ah,ah{сбрасываем старший байт} shr al,1{востанавливаем сканкод клавиши} mov si,ArrayKeyUp{указатель на логический массив отпущенных клавиш} mov di,ArrayKeyDown{указатель на логический массив нажатых клавиш} or bx,bx jz @@001 xchg si,di{меняем указатели} @001: mov bl,1{принудительно истина} add si,ax{укуазатель на логическое значение клавиш} mov [si],bh{записываем результат} add di,ax{укуазатель на логическое значение клавиш} mov [di],bl{записываем результат} {стандартный выход из обработчика клавиатуры} in al,61h push ax or al,80h out 61h,al pop ax out 61h,al mov al,20h out 20h,al sti{разрешаем прерывания} end; end; begin {сбрасываем логические массивы} for old09o:=0 to 127 do begin ArrayUp[old09o]:=false; ArrayDown[old09o]:=false; end; {получаем указатель на логический массив} ArrayKeyUp:=ofs(ArrayUp); ArrayKeyDown:=ofs(ArrayDown); {устанавливаем указатель на нужный вектор таблицы прерываний и запоминаем старый обработчик} tempA:=ptr(0,36); old09o:=tempA^;{смещение обработчика} tempB:=ptr(0,38); old09s:=tempB^;{сегмент обработчика} asm cli{запрещаем прерывания} end; tempA^:=ofs(myInterrupt);{записываем своё смещение} tempB^:=seg(myInterrupt);{записываем свой сегмент} asm sti{разрешаем прерывания} end; {сам цикл обработки клавиш} repeat clrscr; writeln('a:',arrayUp[30]:7,'s:':4,arrayUp[31]:7,'d:':4,arrayUp[32]:7); writeln('a:',arrayDown[30]:7,'s:':4,arrayDown[31]:7,'d:':4,arrayDown[32]:7); delay(1000); until ArrayUp[1]; {востанавливаем старый обработчик} asm cli{запрещаем прерывания} end; tempA^:=old09o; tempB^:=old09s; asm sti{разрешаем прерывания} end; end.

Ответ отправил: Зенченко Константин Николаевич (статус: Посетитель) Ответ отправлен: 06.03.2009, 17:14 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 245220 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 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