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

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

Мои подписки      Мои группы      Мои новости              Автор  Калашников О.А.           Компьютеры и интернет   →   Софт   →   Программирование   →   RFpro.ru: Ассемблер? Это просто! Учимся программировать    RFpro.ru: Ассемблер? Это просто! Учимся программировать     Хостинг портала RFpro.ru: Московский хостер Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64 РАССЫЛКИ ПОРТАЛА RFPRO.RU Лучшие эксперты по данной тематике Асмик Гаряка Статус: Академик Рейтинг: 10466 • повысить рейтинг » Коцюрбенко Алексей aka Жерар Статус: Советник Рейтинг: 4143 • повысить рейтинг » Boriss Статус: Академик Рейтинг: 2314 • повысить рейтинг » / КОМПЬЮТЕРЫ И СОФТ / Программирование / Assembler (Ассемблер) Номер выпуска: 1514 Дата выхода: 17.05.2012, 15:30 Администратор рассылки: Лысков Игорь Витальевич (Старший модератор) Подписчиков / экспертов: 94 / 39 Вопросов / ответов: 1 / 2 Консультация # 186027: Добрый день уважаемые эксперты! Прошу помочь в написании программы : Дана целочисленная матрица в байтовом формате по строкам. Все операции обработки матрицы реализовать только циклами. При необходимости использовать макросы. Размерность 4х4. Транспонирование матрицы. Прошу как можно подробнее написать коментарии к программе. Модел... Консультация # 186027: Добрый день уважаемые эксперты! Прошу помочь в написании программы : Дана целочисленная матрица в байтовом формате по строкам. Все операции обработки матрицы реализовать только циклами. При необходимости использовать макросы. Размерность 4х4. Транспонирование матрицы. Прошу как можно подробнее написать коментарии к программе. Модель памяти - .model small Заранее благодарен. Дата отправки: 14.05.2012, 14:56 Вопрос задал: Посетитель - 388022 (Посетитель) Всего ответов: 2 Страница онлайн-консультации » Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 388022! Смотрите приложение. Компилятор TASM 2.0. Обращаю Ваше внимание, что транспонирование указателя на матрицу неуниверсальное и подходит только под матрицы с размером равным степеням двойки, т.е. 2,4,8 и т.д. вопросы задавайте в мини-форум. Удачи! Приложение: model small 186 code begin: ;Адресуем сегментные регистры mov ax,@data mov ds,ax mov es,ax ;Выводим исходную матрицу call OutMatrix ;Транспонируем матрицу call TranspMatrix ;Выводим полученный результат call OutMatrix ;Ожидаем любую клавишу и завершаем программу xor ax,ax int 16h mov ax,4c00h int 21h ; ;Вывод матрицы ;устанавливаем внешний индекс цикла OutMatrix: mov cx,4 ;сбрасываем указатель в матрице xor si,si ;запоминаем его в стеке OM1: push cx ;устанавливаем внутренний индекс цикла mov cx,4 ;считываем значение числа OM2: mov al,[Matrix+si] ;переходим к следующему числу inc si ;выводим число на экран call OutNumber ;проверяем внутренний цикл loop OM2 ;переходим на новую строку call NewLine ;востанавливаем внешний индекс цикла pop cx ;проверяем внешний индекс цикла loop OM1 ;переходим на новую строку NewLine: mov al,10 int 29h mov al,13 int 29h ;возвращаемся из под програмы ret ; ;Выводим одно число в АХ ;запоминаем счетчик цикла в стеке OutNumber: push cx ;система счисления, в данном случае 10-ая mov bx,10 ;сбрасываем старшую часть слова xor ah,ah ;сбрасываем счетчик цифр xor cx,cx ;сбрасываем остаток ON1: xor dx,dx ;длелим на систему счисления и получаем остаток от деления div bx ;запоминаем остаток в стеке push dx ;считаем запомненую цифру inc cx ;посторяем пока АХ больше нуля or ax,ax jnz ON1 ;форматируем вывод чисел ;значение, которое при +30Н даст код пробела mov ax,-10h ;увеличиваем счетчик цифр в стеке ON2: inc cx ;запоминаем в стеке условный код пробела push ax ;повторяем пока в стеке не будет 4-е цифры cmp cx,4 jnz ON2 ;выводим число на экран ;извлекаем из стека очередную цифру ON3: pop ax ;переводим в символьный код для вывода на экран add al,30h ;выводим на экран символ int 29h ;повторяем пока в стеке есть цифры loop ON3 ;востанавливаем счетчик цикла pop cx ret ; ;трнспонируем матрицу ;устанавливаем индекс внешнего цикла TranspMatrix: mov cx,4 ;сбрасываем указатель в матрице xor si,si ;сохраняем индекс внешнего цикла TM1: xchg dx,cx ;устанавливаем индекс внутреннего цикла mov cx,4 ;проверяем индексы циклов TM2: cmp cx,dx ;если внешний больше или равен внутреннему пропускаем jbe TM3 ;транспонируем указатель на элемент матрицы - строку mov di,si ;получаем младшие биты and di,03h ;умножаем их на 4-е shl di,2 ;транспонируем указатель на элемент матрицы - столбец mov ax,si ;делим на 4-е shr ax,2 ;суммируем новое транспонированное значение указателя add di,ax ;читаем число из матрицы mov al,[Matrix+si] ;обмениваем его с числом по транспонированному адресу указателя xchg [Matrix+di],al ;записываем транспонированное значение mov [Matrix+si],al ;следующий элемент матрицы TM3: inc si ;проверяем индекс внутреннего цикла loop TM2 ;востанавливаем значение индекса внешнего цикла xchg dx,cx ;проверяем индекс внешнего цикла loop TM1 ;выход из подпрограммы ret ;сегмент данных data Matrix db 01,02,03,04 db 05,06,07,08 db 09,10,11,12 db 13,14,15,16 ;сегмент стека stack 100h ;точка входа в программу end begin Консультировал: Зенченко Константин Николаевич (Модератор) Дата отправки: 14.05.2012, 17:50 Рейтинг ответа: 0 поблагодарить эксперта Консультирует Лысков Игорь Витальевич (Старший модератор): Здравствуйте, Посетитель - 388022! Альтернативная подпрограмма отработки транспонирования матрицы в ответе Константина Николаевича (можно просто заменить) Данная подпрограмма не зависит от размерности матрицы, т.е. N может быть любым Работает следующим образом: "пробегаем" элементы верхнего треугольника, используя два регистра: bx для адресации строки и si для адресации элемента в строке. Значение регистра bx используется я проверки конца отработки, а значение регистра si - для проверки конца строки. Одновременно с изменением указанных выше регистров для адресации соответствующего транспонированного элемента соответственно меняется регистр di Код : N equ 4 ;размерность матрицы TranspMatrix: xor bx,bx ;база строки xor si,si ;смещение элемента в строке xor di,di ;смещение транспонированного элемента TM1: ;цикл по строкам верхнего треугольника push si ;сохраним индекс в строке push di ;сохраним смещение транспонированного элемента TM2: ;цикл по элементам строки верхнего треугольника inc si ;диагональный элемент обходим add di,N ;аналогично для второго элемента cmp si,N ;дошли до края строки? je TM3 ;да - переходим на следующую ;обмениваем элементы mov al,[Matrix+bx+si] xchg [Matrix+di],al mov [Matrix+bx+si],al jmp TM2 ;на слеующий элемент в строке TM3: ;переход на следующую строку pop di ;восстановим индексы pop si add bx, N ;переходим на слеующую строку inc si ;и смещаемся на одну позицию вправо ;(рассматриваем только верхний треугольник) add di, N+1 ;смещаемся на одну строку вниз и на одну позицию вправо ;(соответствующая позиция в нижнем треугольнике) cmp bx, (N-1)*N ;дошли до последней строки? jne TM1 ;нет - на отраотку строки ret Консультировал: Лысков Игорь Витальевич (Старший модератор) Дата отправки: 14.05.2012, 18:45 Рейтинг ответа: 0 поблагодарить эксперта Оценить выпуск | Задать вопрос экспертам главная страница  |  стать участником  |  получить консультацию техническая поддержка  |  восстановить логин/пароль Дорогой читатель! Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно! МЫ РАБОТАЕМ ДЛЯ ВАС! © 2001-2012, Портал RFPRO.RU, Россия Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.36 от 26.01.2012     Комментировать выпуск      + В избранное Прошлые выпуски RFpro.ru: Ассемблер? Это просто! Учимся программировать    24 апреля 2012, 00:03 RFpro.ru: Ассемблер? Это просто! Учимся программировать    18 апреля 2012, 17:33 RFpro.ru: Ассемблер? Это просто! Учимся программировать    12 апреля 2012, 16:32 Все выпуски рассылки 17 мая 2012 отмечают: Всемирный день электросвязи и информационного общества Международный день борьбы с гомофобией Католическое Вознесение Господне Амбарцум — Вознесение Господне в Армении День отца в Германии Праздник Девятнадцатого дня месяца Азамат Именины: Исаакий, Кирилл, Климент, Леонтий, Мария, Никита, Пелагея, Татьяна

Subscribe рекомендует   Компьютеры и интернет  →   рассылки   и   группы    Все тренинги и семинары Самары по личностному росту Рассылка содержит самое полное расписание семинаров и тренингов Самары, связанных с личностным и духовным ростом. Подписчиков: 200   Самые свежые IT новости на tehnewsru Всегда свежые полные и уникальные новости с мира высоких IT технологий. Подписчиков: 190   Русская справка по WinAPI для Delphi. Новости сайта "Delphi и компания" и новсти "Русской справки по WinApi для Delphi" содержащий описания функций, констант, типов, сообщений и примеры. Подключается к Делфьфи и вызывается по F1. Подписчиков: 641

 

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