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

Выпуск № 929
от 17.12.2007, 20:35

Вопрос № 113.540

Здравствуйте. В задаче:'Вывести приглашение к вводу символа, ввести символ, вывести введенный символ в центре очищенного экрана.'-как ввести символ с клавиатуры? Приложение: data segment mes db 'Vvedite simvol:$ ' mes1 db ' $' data ends code segment start: assume cs:code,ds:data mov ax,data mov ds,ax mov ah, 0fh int 10h mov ah, 0 int 10h mov ah,09 lea dx,mes int 21h mov ah, 01 mov al, mes1 int 21h mov ah,09 lea dx, mes1 int 21h mov ah, 0fh int 10h mov ah, 0 int 10h mov ah, 02 mov dh, 13 mov dl,35 int 10h mov ah, 9 lea dx, mes1 int 21h mov ax,4c00h int 21h code ends end start

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Полоротова Ксения Борисовна! Смотрите приложение. Удачи! Приложение: data segment mes db 'Vvedite simvol:$ ' mes1 db ' $' data ends stac segment stack 'stack' dw 50 dup(?) stac ends code segment start: assume cs:code,ds:data mov ax,data mov ds,ax ;выводим сообщение mov ah,09 lea dx,mes int 21h ;вводим символ mov ah, 01 int 21h mov mes1,al ;прокручиваем окно вверх, 07-вниз mov ah,06h xor al,al; mov dx,2580h; xor cx,cx; mov bh,0fh; int 10h ;устанавливаем курсор mov ah,02 mov dh,13 mov dl,35 xor bx,bx int 10h ;выводим строку? mov ah, 9 lea dx, mes1 int 21h ;выход mov ax,4c00h int 21h code ends end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 12.12.2007, 12:16

Вопрос № 113.578

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

Отправлен: 12.12.2007, 12:55 Вопрос задал: Genia007 (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Tamashev Denis M Здравствуйте, Genia007! Что за материнка? На сайте фирмы должны быть драйвера для работ с этим железом если я не ошибаюсь! На форуме www.forum.vingrad.ru обсуждались подобные темы и не раз посмотрите там. С наступающим новым годом =)

Ответ отправил: Tamashev Denis M (статус: 4-ый класс) Ответ отправлен: 12.12.2007, 13:34 Оценка за ответ: 4 Комментарий оценки: Спасибо за ответ. дрова у меня от моей материнки есть на диске, но дело в том что я делаю универсальную прогу, которая должна определять напругу на любой машине, например как прога Everest. запрос WMI не работает.

Вопрос № 113.598

Здраствуйте уважаемые эксперты.У меня вопрос связанный с работой с файлами.Пишу программу которая открывает bmp файл, изменяет его, и сохраняет в другом фаиле.Файл в памяти сохраняеться сразу после кода. Программировал изначально под DOS, сейчас столкнулся с проблемой: при открытие фаила и его сохранения, фаил обрезается по 65к.Как правильно расширить сегменты до 32bit?Заранее спасибо. Приложение: .model small .data handle dw 0 handle2 dw 0 filename db 'my_file.bmp',0 filename2 db 'my_file2.bmp',0 point_fname dd filename size_f dw 0 size_f2 dw 0 buffer2 dw 0 mas db 0 message db 'Error with open file $' mes2 db 13,10,'File is open $',10,13 message2 db 13,10,'File is close $' mes db 13,10,'error with close the file $' mes3 db 13,10,'Can not delete the file $' mes4 db 13,10,'Can not save information in memory from the file $ ' mes5 db 13,10,'Cannot calculate a size of file $' mes6 db 13,10,'Cannot open file2 $' mes7 db 13,10,'Cannot close file2 $' Buffer equ $ ;.stack 256 .486 .code main: mov ax,@data ;адрес сегмента данных в регистр ax mov ds,ax ;ax в ds open: ;режим доступа mov dx,offset filename;формируем указатель на имя файла mov ax,3D02h ;номер функции DOS int 21h ;открываем файл jc error ;переход, в случае ошибки ;------------------------------------------------------------------- ;действия при успешном открытии файла: mov handle,ax ;сохраним дескриптор файла mess: mov ah,09h lea dx,mes2 int 21h V: mov bx,handle xor cx,cx xor dx,dx mov al,2 mov ah,42h int 21h jc error5 mov size_f,ax vozvrat: mov ah,42h mov bx,handle mov al,0 xor cx,cx xor dx,dx int 21h jc error5 saveinmemmory: xor ax,ax mov ah,3Fh mov bx,handle mov cx,size_f mov bp,handle mov dx,offset buffer int 21h jc error4 vozvrat3: mov ah,42h mov bx,handle mov al,0 xor cx,cx xor dx,dx int 21h jc error4 maska: lea di,buffer mov cx,size_f cycl: mov ax,56[di] add ax,053Bh mov 56[di],ax inc di dec cx jnz cycl jmp open2 open2: jc error7 xor ax,ax mov dx,offset filename2 mov ax,3d02h int 21h jc error7 mov handle2,ax mes21: mov ah,09h lea dx,mes2 int 21h ;saveinmemmory2: ; xor ax,ax ; mov ah,3Fh ; mov bx,handle2 ; mov cx,size_f ; mov dx, buffer2 ; int 21h jc error4 ; ;vozvrat7: ; mov ah,42h ; mov bx,handle2 ; mov al,0 ; xor cx,cx ; xor dx,dx ; int 21h ; jc error4 write: mov bx,handle2 mov ah,40h mov dx,offset buffer mov cx,size_f int 21h jc error4 close2: mov bx,handle2 mov ah,3Eh int 21h jc error2 mes22: mov ah,09h lea dx,message2 int 21h close: mov handle,bp mov bx,handle mov ah,3Eh int 21h jc error2 mess2: mov ah,09h lea dx,message2 int 21h jc error3 exit: ;выход из программы mov ax,4c00h int 21h error: mov ah,09h lea dx,message int 21h jmp exit error2: mov ah,09h lea dx,mes int 21h jmp exit error3: mov ah,09h lea dx,mes3 int 21h jmp exit error4: mov ah,09h lea dx,mes4 int 21h jmp exit error5: mov ah,09h lea dx,mes5 int 21h jmp exit error6: mov ah,09h lea dx,mes6 int 21h jmp exit error7: mov ah,09h lea dx,mes7 int 21h jmp exit end main

Отправлен: 12.12.2007, 14:37 Вопрос задал: Максим Олегович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Овчинников Алексей Здравствуйте, Максим Олегович! посмотрите здесь копирование файла с помощью XMS http://kalashnikoff.ru/Assembler/issues/030.htm

Ответ отправил: Овчинников Алексей (статус: 2-ой класс) Ответ отправлен: 12.12.2007, 23:22 Оценка за ответ: 5 Комментарий оценки: Большое спасибо Алексей, будем разбираться :)

Вопрос № 113.604

Добрый день! Не могли бы вы мне помочь& Я начала изучать Ассемблер по книжке, но плохо, когда нет людей? которые могут тебе объяснить все в живую. Не могли бы вы мне какой-нибудь примерчик показать, где сравниваются два числа, например, например, если Y<0, то выводится сообщение Yes, а если больше, то No. Что-то вроде этого.

Отправлен: 12.12.2007, 15:05 Вопрос задала: Izolda (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 10)

Отвечает: Boriss Здравствуйте, Izolda! Ну вот простейший пример того, о чем Вы спрашиваете. Давайте обсуждать в минифоруме все, что не понятно - я живой :)) Приложение: .model tiny .code org 100h start: mov ax, 3 int 10h mov ah, 9 cmp y, 0 jb @@1 lea dx, ms_yes jmp @@2 @1: lea dx, ms_no @2: int 21h int 20h y dw -12 ms_yes db 'YES$' ms_no db 'NO$' end start --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники WWW: Программирование на Паскале ---- Ответ отправлен: 12.12.2007, 15:51 Оценка за ответ: 5 Комментарий оценки: Вы живой?:-) Ну тогда ждите вопросов!;-) Спасибо за пример!

Отвечает: Зенченко Константин Николаевич Здравствуйте, Izolda! Как вариант с проверкой знака. Удачи! Приложение: model tiny .code org 100h ;число от -128 до 127 или от 0 до 255 start: mov al,15 ;сравниваем само с собой or al,al ;переходим если число отрицательное ;т.е. установлен флаг знака js isMinus ;это положительное значение mov dx,offset dbPlus jmp short toAll ;это отрицательное значение isMinus: mov dx,offset dbMinus ;выводим сообщение toAll: mov ah,9 int 21h ret dbMinus db 'Yes$' dbPlus db 'No$' end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 12.12.2007, 16:40 Оценка за ответ: 4 Комментарий оценки: Спасибо, но вот только программка эта в tasm'е у меня не компелируется - 14 ошибок находит:-(

Отвечает: Стас Здравствуйте, Izolda! .MODEL TINY .CODE org 100h Start: lea dx,NoMes mov al,Y test al,80h jz No lea dx,YesMes No: mov ah,9 int 21h mov ax,4c00h int 21h YesMes: db "Yes!$" NoMes: db "No!$" Y db -125 End Start

Ответ отправил: Стас (статус: Специалист) Ответ отправлен: 13.12.2007, 14:35 Оценка за ответ: 5

Вопрос № 113.657

Подскажите, пожалуйста, как написать программу на ассемблере, в которой пользователь вводит строку символов, а программа их преобразовывает так, что все большие буквы становятся маленькими. На экране должна выводиться только одна строка-с результатом. Преобразования выполняются программой автоматически. Зараннее спасибо!

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

Отвечает: Verena Здравствуйте, Nataffka! Насколько я поняла Вашу задачу, пользователь вводит строку и она сразу автоматически вводится в нижнем регистре (т.е. мы вводим QWERTY, а на экране отображается qwerty). Для этого мы будем считывать символ из стандартного ввода без эха (т.е. без его отображения на экране), преобразовывать необходимым образом и выводить уже преобразованным. Программа будет выглядеть так (во избежание искажения, продублированно в приложении): title MainProg .MODEL SMALL .STACK 100h .CODE main: ;Сегмент данных не настраиваю, поскольку переменные нам не нужны mov ah,02h ;Функция вывода (из 21-го прерывания) символа на экран (символ берётся из dl) mov dl,'>' ;Выведем приглашение к вводу int 21h impt: mov ah,08h ;Функция 21-го прерывания получения символа из станддартного ввода без эха (т.е. введённый символ на экране не отображается) int 21h cmp al,13 ;Завершение программы будет происходить по наж атию enter je done cmp al,'Z' ;Проверяем, лежит ли заданный символ в диапазоне больших латинских букв ja viv ;Если нет - выводим на экран введённый символ без изменений cmp al,'A' jb viv add al,20h ;Если да - приводим к нижнему регистру (коды символов в верхнем регистре на 20h меньше кодов в нижнем viv: mov ah,02h ;Собственно, вывод символа mov dl,al int 21h jmp impt ;Идём на следующий символ done: mov ah,4ch ;Выход из программы int 21h END Main Удачи! Исправлено по поросьбе автора ответа. ----- ∙ Отредактировал: Зенченко Константин Николаевич (Профессионал) ∙ Дата редактирования: 12.12.2007, 21:06 Приложение: title MainProg .MODEL SMALL .STACK 100h .CODE main: ;Сегмент данных не настраиваю, поскольку переменные нам не нужны mov ah,02h ;Функция вывода (из 21-го прерывания) символа на экран (символ берётся из dl) mov dl,'>' ;Выведем приглашение к вводу int 21h impt: mov ah,08h ;Функция 21-го прерывания получения символа из станддартного ввода без эха (т.е. введённый символ на экране не отображается) int 21h cmp al,13 ;Завершение программы будет происходить по нажатию enter je done cmp al,'Z' ;Проверяем, лежит ли заданный символ в диапазоне больших латинских букв ja viv ;Если нет - выводим на экран введённый символ без изменений cmp al,'A' jb viv add al,20h ;Если да - приводим к нижнему регистру (коды символов в верхнем регистре на 20h меньше кодов в нижнем viv: mov ah,02h ;Собственно, вывод символа mov dl,al int 21h jmp impt ;Идём на следующий символ done: mov ah,4ch ;Выход из программы int 21h END Main --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Студент) Ответ отправлен: 12.12.2007, 19:38

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