RFpro.ru: Ассемблер? Это просто! Учимся программировать

Если выпуск не отображается корректно, то вы можете прочесть его на сайте

Реклама Отказаться от рекламы Rottweiler 26 Adult Корм для собак породы Ротвейлер старше 18 месяцев   DIM. Скидки 30-50% Зимняя распродажа. Узнайте первыми о новых предложения, скидках и распродажах.   Скачай журнал Stereo&Video High End - наушники высокого класса. HDI Show 2010. 6 CD-плейров.

RFpro.ru: Ассемблер? Это просто! Учимся программировать     Мои подписки     Мои группы     Мои новости     Друзья     Избранное Хостинг портала RFpro.ru: Московский хостер Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64 РАССЫЛКИ ПОРТАЛА RFPRO.RU Лучшие эксперты данной рассылки Boriss Статус: Академик Рейтинг: 2666 • повысить рейтинг » Абаянцев Юрий Леонидович aka Ayl Статус: Профессионал Рейтинг: 2275 • повысить рейтинг » vladisslav Статус: 8-й класс Рейтинг: 1318 • повысить рейтинг » / КОМПЬЮТЕРЫ И СОФТ / Программирование / Assembler (Ассемблер) Номер выпуска: 1417 Дата выхода: 15.01.2011, 16:00 Администратор рассылки: Лысков Игорь Витальевич (Старший модератор) Подписчиков / экспертов: 217 / 67 Вопросов / ответов: 1 / 1 Вопрос № 181806: Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос или решить срочно такую задачу: вывести на экран матрицу символов таблицы ASCII размером 16х16, чередуя выводимые символы пробелами. Размер матрицы, цвет симв... Вопрос № 181806: Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос или решить срочно такую задачу: вывести на экран матрицу символов таблицы ASCII размером 16х16, чередуя выводимые символы пробелами. Размер матрицы, цвет символов, а также подсветка вводятся с клавиатуры. Место вывода матрицы на экран определяется с помощью указателя устройства "мышь". Спасибо Отправлен: 10.01.2011, 06:25 Вопрос задал: Посетитель - 337532 (Посетитель) Всего ответов: 1 Страница вопроса » Отвечает Зенченко Константин Николаевич (Модератор) : Здравствуйте, Посетитель - 337532! Смотрите приложение. TASM, MS-DOS, 3-й текстовый режим. Выбор фона и цвета выводимых символов производится с помощью мыши, я думаю так наглляднее, чем простой ввод данных с клавиатуры. Удачи! Приложение: model tiny,pascal code org 100h 286 ;уставливаем текстовый режим begin: mov ax,3 int 10h ;инициализируем мышу xor ax,ax int 33h ;устанавливаем сегментный режим для строковых команд mov ax,0b800h mov es,ax ;получаем цвет фона call GetData ,0,offset dbEnterFon,szEnterFon ;переводим в координату shr cx,3 sub cx,13 ;получаем соответсвующий цвет and cl,07h mov dbFon,cl ;получаем цвет символов CALL GetData ,0,offset dbEnterColor,szEnterColor ;переводим в координату shr cx,3 sub cx,13 ;получаем соответсвующий цвет and cl,0Fh mov dbColor,cl ;чистим экран xor di,di xor ax,ax mov cx,25*80 rep stosw ;получаем позицию вывода CALL GetData ,0,offset dbEnterPosition,szEnterPosition ;преводим в координаты shr cx,2 shr dx,2 ;считаем смещение для строковых команд mov di,cx mov ax,dx mov cx,80 xor dx,dx mul cx add di,ax ;формируем атрибут вывода mov ah,dbFon shl ah,4 mov al,dbColor or ah,al xor al,al ;внешний цикл по строкам mov cx,16 @08: push cx push di ;внутренний цикл в строке mov cx,16 @09: stosw ;записываем пробел push ax mov ax,20h stosw pop ax ;следующий символ в таблице inc al loop @@09 ;адрес следующей строки pop di add di,320 pop cx loop @@08 ;возвращаемся в ДОС xor ax,ax int 16h ret ;данные пользователя dbFon db 6 dbColor db 15 ;подпрограмма ввода данных GetData proc GD_a:word , GD_b:word , GD_c:word ;вывод названия параметра mov di,GD_a mov si,GD_b mov cx,GD_c rep movsb ;показываем и гасим мышу GD_0: mov ax,1 int 33h mov ax,2 int 33h ;получаем состояние и координаты мыши mov ax,5 xor bx,bx int 33h ;проверяем нажатие нужной клавиши or bx,bx jz GD_0 ret endp ; ;макрогенератор формирования строки байтов Generator macro m_a , m_b irpc simb,<m_a> db \'&simb&\',0Fh endm IndexColor = 0 rept m_b db 20h,IndexColor IndexColor = indexColor + 10h endm endm ;формируем строку байтов фона dbEnterFon label byte Generator <select fon :>,8 szEnterFon equ $ - dbEnterFon ; ;формируем строку байтов цвета dbEnterColor label byte Generator <select color:>,16 szEnterColor equ $ - dbEnterColor ; ;формруем строку байтов позиции dbEnterPosition label byte Generator <select positions>,1 szEnterPosition equ $ - dbEnterPosition end begin ----- Итерация от человека. Рекурсия — от Бога. — Л. Питер Дойч Ответ отправил: Зенченко Константин Николаевич (Модератор) Ответ отправлен: 10.01.2011, 15:50 Номер ответа: 265327 Украина, Киев Тел.: +38-097-238-60-03 Адрес: Украина, Киев Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"? Отправить SMS #thank 265327 на номер 1151 (Россия) | Еще номера » Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.) Ответ поддержали (отметили как правильный): 1 чел. Оценить выпуск » Нам очень важно Ваше мнение об этом выпуске рассылки! Задать вопрос экспертам этой рассылки » Скажите "спасибо" эксперту, который помог Вам! Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА на короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа. Полный список номеров » * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов) ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются. *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании. © 2001-2011, Портал RFPRO.RU, Россия Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.26 от 05.01.2011 Обсудить выпуск

Как вам этот выпуск ?  Дайте свой отзыв  или  Оцените   5    4    3    2    1,   можно письмом:  5    4    3    2    1

Рассылки Новости сайта "Упражнения по SQL" (http://www.sql-ex.ru) Сертификация по SQL. Операторы SELECT, INSERT, UPDATE, DELETE. Базы данных, язык манипуляции данными, дистанционное обучение. Запросы онлайн. Рейтинг участников. Форум. Подписаться:   на сайте    по почте

Группы «Единство всего мира и понимание его» Единство всего мира - это идея признанная наукой экологией более полувека. Однако, впервые эта идея была обнародована более 3300 лет тому назад в пятикн... «Полезные статьи о строительстве» Уважаемые друзья! Группа предназначена для людей, которые делают ремонт в своей квартире/доме, а так же для компаний которые продают качественные строит... «Глупые, но не дающие покоя вопросы» Вы ни когда не задумывались над какой-нибудь мелочью, которая никак не может выйти у Вас из головы или когда совсем не о чем подумать появляются мысли "а...

Подписан адрес: admin10383.deep@blogger.com Код этой рассылки: comp.prog.assembler Архив рассылки Отписаться:  На сайте  Почтой Поддержка подписчиков Убрать рекламу Другие рассылки этой тематики Другие рассылки этого автора Рассылка производится: Subscribe.Ru / ЗАО «Интернет-Проекты» / О компании / Политика конфиденциальности