Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
21 ошибка прогр... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Имитационное мо... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Реклама
Сейчас на сайте
Гостей: 13
На сайте нет зарегистрированных пользователей

Пользователей: 13,361
новичок: uehuat
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

База данных междугородних телефонных разговоров на Delphi
База данных студентов на Delphi + Microsoft SQL Server
Моделирование процесса обработки заданий на вычислительном центре на GP...

макроопределение для визуализации регистров al, ah, ax, eax
;;show.inc
;;макроопределение для визуализации регистров al, ah, ax, eax
;;на входе:
;;arg_n - имя одного из регистров al,ah,ax,eax
;;n_poz - номер позиции на экране, по умолчанию - 1000
Show MACRO arg_n,n_poz:=<1000>
LOCAL main_part,disp,pause,template,VideoBuffer,p_mode,m1,m2
;;переход на начало блока команд,
;;чтобы избежать выполнения данных
jmp main_part
;;некоторые константы и переменные
FALSE equ 0 ;;ложь
TRUE equ 0ffffh ;;истина
?reg8bit=false ;;флаг того, что передан регистр ah или al
?reg16bit=false ;;флаг того, что передан регистр ax
?reg32bit=false ;;флаг того, что передан регистр eax
;;таблица-шаблон для xlat
template db '0123456789ABCDEF'
;;адрес видеобуфера - для прямого вывода на экран
VideoBuffer dw 0b800h

main_part: ;;начало блока команд
;;сохранение в стеке используемых регистров:
;;eax, ebx, ecx, edx, edi, ds, es
push eax
push ebx
push ecx
push edx
push edi
push ds
push es
push cs
pop ds
;;в bx - адрес таблицы-шаблона (для xlat)
lea bx,cs:template
xor cx,cx ;очистка cx
;;начало блока определения того,
;;какой регистр был передан макросу
IFIDNI ,<&arg_n> ;;если аргумент=al или AL,
?reg8bit=TRUE ;;установка флага 8-битового регистра
mov ah,al
ENDIF
;;передан не al или AL
IFIDNI ,<&arg_n> ;;если аргумент=ah или AH,
?reg8bit=TRUE ;;установка флага 8-битового регистра
ENDIF
;;передан не AH или ah
IFIDNI ,<&arg_n> ;;если аргумент равен ax или AX,
?reg16bit=TRUE ;;установка флага 16-битового регистра
ENDIF
;;передан не ah, AH ,ax или AX
IFIDNI ,<&arg_n> ;;если аргумент равен eax или EAX,
?reg32bit=TRUE ;;установка флага 32-битового регистра
ENDIF
;;обработка содержимого регистров al, ah, ax, eax
IF (?reg8bit) ;;если передан al или ah
push eax
and ah,0f0h ;;обращение к старшей четвёрке битов ah
shr ax,12 ;;сдвиг битов в начало (16-4=12)
xlat ;;трансляция таблицы-шаблона
;;помещение символа из al в edi
mov di,ax
shl di,8
inc cx
pop eax
and ax,0f00h ;;обращение к младшей тетраде ah
shr ax,8 ;;сдвиг битов в начало (16-(4+4)=8)
xlat ;;трансляция таблицы-шаблона
or di,ax ;;помещение очередного символа в di
shl edi,16
inc cx
ENDIF
IF (?reg16bit) ;;если передан ax или ax
;;начало обработки значения регистра ax
push eax
;;обращение к старшей четвёрке битов ax
and ax,0f000h
shr ax,12 ;;сдвиг битов в начало (16-4=12)
xlat ;;трансляция таблицы-шаблона
;;помещение символа из al в старшую
;;тетраду старшей половины edi
mov di,ax
shl edi,8
inc cx
pop eax
push eax
;;обращение ко второй четвёрке битов ax
and ax,0f00h
shr ax,8 ;;сдвиг битов в начало (16-(4+4)=8)
xlat ;;трансляция таблицы-шаблона
;;помещение очередного символа в младшую
;;тетраду старшей половины edi
or di,ax
shl edi,8
inc cx
pop eax
push eax
and ax,0f0h ;;обращение к третьей четвёрке битов в ax
shr ax,4 ;;сдвиг битов в начало (16-(4+4+4)=4)
xlat ;;трансляция таблицы-шаблона
or di,ax ;;помещение очередного символа в edi
shl edi,8
inc cx
pop eax
and ax,0fh ;;обращение к младшей четвёрке битов ax
xlat ;;трансляция таблицы-шаблона
or di,ax ;;помещение очередного символа в edi
inc cx
ENDIF
IF (?reg32bit) ;;если передан eax или EAX
;;начало обработки значения регистра eax
push eax
;;обращение к старшей четвёрке битов eax
and eax,0f0000000h
shr eax,28 ;;сдвиг битов в начало (32-4=28)
xlat ;;трансляция таблицы-шаблона
;;помещение символа из al в старшую
;;тетраду старшей половины edx
mov dh,al
shl edx,8
pop eax
push eax
inc cx
pop eax
push eax
;;обращение к следующей четвёрке битов eax
and eax,0f000000h
shr eax,24 ;;сдвиг битов в начало (32-(4+4)=24)
xlat ;;трансляция таблицы-шаблона
;;помещение очередного символа из al в младшую
;;тетраду старшей половины edx
mov dh,al
shl edx,8
inc cx
pop eax
push eax
and eax,0f00000h
shr eax,20
xlat
mov dh,al
inc cx
pop eax
push eax
and eax,0f0000h
shr eax,16
xlat
mov dl,al
inc cx
pop eax
push eax
and eax,0f000h
shr eax,12
xlat
or di,ax
shl edi,8
inc cx
pop eax
push eax
and eax,0f00h
shr eax,8
xlat
or di,ax
shl edi,8
pop eax
push eax
inc cx
and eax,0f0h
shr eax,4
xlat
or di,ax
shl edi,8
inc cx
pop eax
push eax
and eax,0fh
xlat
or di,ax
inc cx
ENDIF
;;вывод на экран результата
;;результат в паре edx:ebx, количество цифр в cx
;;проверим режим работы микропроцессора
mov eax,cr0
test eax,00000001h
jnz p_mode
;;для реального режима
;;загружаем в es адрес видеопамяти
mov ax,cs:VideoBuffer
mov es,ax
p_mode:
;;для реального и защищенного режимов
;;количество циклов в cx
cld ;;просмотр вперед - для stosw
xchg edi,ebx
mov di,n_poz ;;начальная позиция для
;;вывода на экран
disp:
cmp ecx,4
jle m1 ;переход, если ecx<=4
shld eax,edx,8
shl edx,8
jmp m2
m1:
shld eax,ebx,8
shl ebx,8
m2:
mov ah,71h ;;байт-атрибут
stosw ;;копирование значения ax
;;в es:di (видеобуфер)
loop disp ;;повтор цикла cx раз
mov cx,65535 ;;задержка
pause: loop pause
;;переопределение/восстановление из стека
;;используемых регистров
pop es
pop ds
pop edi
pop edx
pop ecx
pop ebx
pop eax
ENDM


Опубликовал Kest March 09 2009 18:17:23 · 2 Комментариев · 13412 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Тарас May 31 2010 15:25:07
по4ему оно не работает ? (
кто может помо4ь ..?
Tapac May 31 2010 16:15:37
ни4его не выводится при использовании макроса ..
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Srinilist
VFW
Delphi 7 Enterpri...
32 урока по Delphi
MpegPlay
Visual Basic Script
Abc_component
ICQ
Архив программ
LaserTank [Исходн...
Философия C++. Пр...
Animation (Пример...
Dreamsoft Progres...
UmEdit
Фильтры изображений
BIOS
DAlarm
OnlineIP
Реализация ЭЦП по...
Голосование для ...

Топ загрузок
Приложение Клие... 100772
Delphi 7 Enterp... 97809
Converter AMR<-... 20260
GPSS World Stud... 17014
Borland C++Buil... 14189
Borland Delphi ... 10267
Turbo Pascal fo... 7372
Калькулятор [Ис... 5972
Visual Studio 2... 5206
Microsoft SQL S... 3661
Случайные статьи
Запрос полиморфной...
Анализ посещаемост...
ВСТРОЕННЫЕ ПРЕДИКА...
Эпилог ко второму ...
РАБОТА С ПРОЦЕДУРН...
Упорядочивание пар...
Игровые автоматы д...
2.3. СПОСОБЫ РАСПО...
Решения к главе 8
Определить, какие ...
Официальный сайт В...
Двухступенчатое об...
Использование сред...
На протяжении всей...
Класс TShape
Вулкан на Андроид
3.1 ЦЕЛЬ: ХРАНЕНИЕ...
FRAD, удовлетворяю...
Оптимизация КАМ-вы...
Клонирование в STR...
Рассмотрим выполне...
Перечисление детал...
2.1. ЦЕЛЬ: ХРАНЕНИ...
Цоколь - быть или ...
Целые числа со зна...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?