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

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

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

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

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

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

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

Выпуск № 1136
от 18.12.2008, 01:05

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

Вопрос № 154.012

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

Отправлен: 11.12.2008, 22:31 Вопрос задал: Токарев Дмитрий Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Токарев Дмитрий Сергеевич! Предлагаю построить изображение на странице №1, а потом просто переключить... Если так не устраивает, можно легко переделать... Смена кодов реализована командой xor ax, 1303h. Посмотрите в отладчике, как это работает. Удачи! Приложение: .model tiny .code .startup mov ah, 3 ; сначала сохраним позицию курсора и размер курсора mov bh, 0 int 10h push dx ; позиция курсора push cx ; форма курсора mov ax, 0083h ; установим режим 3 без очистки экрана! int 10h mov ax, 0b800h ; сегмент видеопамяти mov es, ax mov di, 1000h ; построим изображение на странице 1 mov cx, 25*80 ; 25 строк по 80 символов mov ax, 0131h ; атрибут 01h - синим по черному, код - 31h = '1' setLoop: ; цикл формирования изображения stosw ; запишем xor ax, 1303h ; самая "хитрая" команда. Она превращает 0131h в 1232h и обратно! ; 12h - зеленым по синему, 32h - '2' loop setLoop ; заполняем всю страницу mov ax, 0501h ; переходим на страницу №1 int 10h mov ah, 01h ; прячем курсор mov cx, 2000h int 10h mov ah, 0 ; ждем нажатия на клавишу int 16h mov ax, 0500h ; переходим обратно на страницу №0 int 10h pop cx ; восстанавливаем форму курсора mov ah, 01h int 10h pop dx ; восстанавливаем позицию курсора в 0 странице mov ah, 2 ; (после установки видеорежима, курсор перемещается в начало) mov bh, 0 int 10h mov ax, 4c00h int 21h end --------- Удачи!

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

Вопрос № 154.030

Здравствуйте, недавно начали изучать асемблер, дали задание написать прогу: Из массива А(10) образовать масив Б(5) таким образом: b1=a1*a10. b2=a2*a9,..... b5=a5*a6, помогите пожалуйста в написании данной проги

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Volk1290! Предположим, что a - массив из байт, а b - из слов (байт*байт даст, вообще говоря, слово) Можно сделать так: Код: .mode tiny .data a db 0,1,2,3,4,5,6,7,8,9 b dw 5 dup (?) .code .startup mov si, offset a ; адрес первого байта массива А mov bx, offset a+9 ; адрес последнего байта массива А mov di, offset b ; адрес массива Б mov cx, 5 ; должны сформировать 5 элементов Б fLoop: ; начало цикла lodsb ; al = [si], si = si+1 mul byte ptr [bx] ; ax = al * [bx] dec bx ; подготовим адресацию для следующего шага stosw ; [di] = ax, di = di+2 loop fLoop ; зациклим mov ax,4c00h int 21h end --------- Удачи!

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

Вопрос № 154.081

Доброго вермени суток! Начал изучать ассемблер по книге Калашникова "Ассемблер Это просто! Учимся программировать". Столкнулся с такой проблемой - практически одна из первых программ у меня не работает. Если у Вас есть эта книга, то программа содержится в разделе 3.4>листинг 3.2 (если нет привожу текст ниже). Программа должна выводить символ ASCII путем прямого отображения в видеобуфер. В моем случае все корректно компилируется и работает, но при запуске программа только ожидает нажатия клавиши и все. У меня Celeron 1.7, если это важно, в книге ведь все время приводят пример старых процессоров. Заранее спасибо! Приложение: cseg segment org 100h proga: mov ax, 0B800h mov es, ax mov di, 0 mov ah, 31 mov al, 1 mov es:[di], ax mov ah, 10h int 16h int 20h cseg ends end proga

Отправлен: 12.12.2008, 13:29 Вопрос задал: Корнатовский Лев Игоревич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 10)

Отвечает: Airyashov cseg segment org 100h proga: mov ax,00003 int 10h mov ax, 0B800h mov es, ax ....

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

Отвечает: an42 Здравствуйте, Корнатовский Лев Игоревич! Необходимо перейти в текстовый режим. В приложении добавлена 4-я и 5-я строка, это переход в текстовый режим. Удачи Приложение: cseg segment org 100h proga: mov ax,0003h ;функция выбора режима(текстовый) int 10h ;выбор режима mov ax, 0B800h mov es, ax mov di, 0 mov ah, 31 mov al, 1 mov es:[di], ax mov ah, 10h int 16h int 20h cseg ends end proga

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

Вопрос № 154.082

Дорогие эксперты решите пожалуйста на Турбо Ассемблере в DOS: В отдельном каталоге создано несколько текстовых файлов (как минимум 4), с однотипными именами, отличающимися одной цифрой, например, File1.LAB, File2.LAB, File3.LAB, File4.LAB. Эти файлы следует предварительно создать при помощи редактора текстов. Желательно создавать их не в порядке номеров, чтобы положение файлов в каталоге не совпадало с порядком номеров. Такое задание: Создать новый файл, содержащий по 10 последних байтов из каждого исходного файла.

Отправлен: 12.12.2008, 13:35 Вопрос задала: Громова Валентина Ивановна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Громова Валентина Ивановна! Решение в приложении Если что непонятно, задавайте вопросы в мини-форуме Приложение: .model tiny count equ 4 ; число файлов .data NameIn db 'File' ; имя входного файла num db '1.lab',0 ; адрес отличающихся циферек в именах файлах NameOut db 'out.dat',0 ; выходной файл ;сообщения об ошибках ;num1, num2, num3 - уточнение имени ошибочного файла close_message db 'Ошибка закрытия файла out.dat$' create_message db 'Ошибка создания файла out.dat$' seek_message db 'Ошибка установка позиции на последние 10 байт в файле File' num1 db '1.lab (возможно, длина < 10 байт)$' read_message db 'Ошибка чтения из файла File' num2 db '1.lab$' write_message db 'Ошибка записи в файл out.dat$' open_message db 'Ошибка открытия файла File' num3 db '1.lab$' buffer db 10 dup (?) ; буфер для чтения последних 10 байт FileOut dw ? ; описатель выходного файла .code .startup lea dx, NameOut ; создадим выходной файл mov ah, 3ch mov cx, 20h int 21h jc create_error mov FileOut, ax ; сохраним описатель mov cx, count ; число файлов file_loop: push cx ; сохраним lea dx, NameIn mov ax, 3d00h int 21h ; открываем файл jc open_error mov bx, ax ; описатель (действует на все последующие операции с файлом, включая закрытие) mov ax, 4202h ; становимся на позицию -10 от конца! mov cx, -1 mov dx, -10 int 21h jc seek_error mov ah, 3fh ; читаем 10 байт в буфер mov cx, 10 lea dx, buffer int 21h jc read_error mov cx, ax ; число прочитанных байт mov ah, 3eh ; закрываем файл int 21h mov bx, FileOut ; описатель выходного файла mov ah, 40h ; пишем int 21h jc write_error file_next: inc num ; меняем имя следующего файла pop cx ; востанавливаем счетчик файлов loop file_loop ; циклим mov ah, 3eh ; закрываем выходной файл int 21h jc close_error exit: mov ax, 4c00h int 21h ;далее - обработка ошибок close_error: lea dx, close_message jmp print_last_message create_error: lea dx, create_message print_last_message: int 21h jmp exit ; на выход seek_error: mov al, num mov num1, al lea dx, seek_message jmp close_file read_error: mov al, num mov num2, al lea dx, read_message close_file: mov ah, 3eh ; при некоторых ошибках необходимо сначала закрыть входной файл int 21h jmp print_message write_error: lea dx, write_message jmp print_message open_error: mov al, num mov num3, al lea dx, open_message print_message: mov ah, 9 int 21h jmp file_next ; если ошибки с некоторым входным файлом, то продолжим со следующего end --------- Удачи!

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

Вопрос № 154.118

Здравствуйте, уважаемые эксперты. Помогите пожалуйста чайнику разобраться . Почему mov sp,offset Lab_1 влияет на появление строки на экране? Приложение: CSEG segment assume cs:CSEG, es:CSEG, ds:CSEG, ss:CSEG org 100h Begin: mov sp,offset Lab_1 mov ax,9090h push ax int 20h Lab_1: mov ah,9 mov dx,offset Mess int 21h int 20h Mess db 'Ђ ўбҐ-в ЄЁ ®­  ўлў®¤Ёвбп!$' CSEG ends end Begin

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, васильев максим! В приложении листинг компиляции Вашей программы. Команда mov sp,offset Lab_1 перемещает указатедь стека на метку Lab_1, после неё идут две команды mov ax,9090h и push ax, начнем с первой: код команды NOP(ничего не делать) - 90h, т.е. это два байта с командой NOP, при выполнении второй команды(push ax) будут затерты два байта 9 0107 CD 20 int 20h. При выполнении программы в памяти вместо функции завершить программу(int 20h) будут стоять две команды NOP, т.е. Ваш код в памяти будет выглядеть так: © Цитата: push ax nop nop Lab_1: mov ah,9 Удачи! Приложение: Turbo Assembler Version 2.0 12/12/08 19:42:46 Page 1 q154118.ASM 1 0000 CSEG segment 2 assume cs:CSEG, es:CSEG, ds:CSEG, ss:CSEG 3 org 100h 4 5 0100 Begin: 6 0100 BC 0109r mov sp,offset Lab_1 7 0103 B8 9090 mov ax,9090h 8 0106 50 push ax 9 0107 CD 20 int 20h 10 11 0109 Lab_1: 12 0109 B4 09 mov ah,9 13 010B BA 0112r mov dx,offset Mess 14 010E CD 21 int 21h 15 16 0110 CD 20 int 20h 17 18 0112 80 20 A2 E1 A5 2D E2+ Mess db 'Ђ ўбҐ-в ЄЁ ®­ ўлў®¤Ёвбп!$' 19 20 AA A8 20 AE AD 20+ 20 20 A2 EB A2 AE A4 A8+ 21 E2 E1 EF 21 24 22 23 012C CSEG ends 24 end Begin Turbo Assembler Version 2.0 12/12/08 19:42:46 Page 2 Symbol Table Symbol Name Type Value ??DATE Text "12/12/08" ??FILENAME Text "q154118 " ??TIME Text "19:42:46" ??VERSION Number 0200 CPU Text 0101H CURSEG Text CSEG FILENAME Text Q154118 WORDSIZE Text 2 BEGIN Near CSEG:0100 LAB_1 Near CSEG:0109 MESS Byte CSEG:0112 Groups & Segments Bit Size Align Combine Class CSEG 16 012C Para none --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Отвечает: an42 Здравствуйте, васильев максим! Команда mov sp,offset Lab_1, изменяет вершину стека. sp ---> 09b4 ;это mov ah,09h и дальше будет расположены команды для вывода строки и завершение программы, после этой программы. Область стека перешла в программу. Любые команды push, начнут изменять программный код. Этого в обычных программах стараются не допускать. После команда push ax, картина в стеке будет следующая sp ---> 9090 ;адрес вершины стека уменьшился на 2, и в стек поместили 2 команды nop sp+2-->09b4 ;это mov ah,09h Блок программы будет в памяти выглядеть следующим образом: … Begin: mov sp,offset lab_1 mov ax,9090h push ax nop ;здесь стояла двух байтовая команда nop ;int 20h Lab_1: nov ah,09h … Удачи

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

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