Помощь - Поиск - Пользователи - Календарь
Полная версия: Tutorial.Temp
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Ассемблер > Избранное
Страницы: 1, 2
Dark
Се начнем повесть сию...

Итак, уважаемые, позвольте мне представить мой туториал №1. :D

Он посвящен основам программирования графики на паскалевском ассемблере. Он предназначен для тех, кого достала тормознутость графики на пасе (а работать с графикой с его процедурами я бы не советовал - мееедленно...), кто хотел бы написать БЫСТРУЮ игру, да и для тех, кому вообще интересен асм.

Внимание: Данные эксперименты не совсем совместимы с модулем Graph, поэтому крайне нежелательно его включать.

Для использования примеров вам необходима карточка VGA, имеющая режим 320*200, TP версии 6.0 и выше, и желание разобраться.

В сегодняшней, первой части, я расскажу о том, что из себя представляет режим 320*200 8 бит, как его врубить, и как с ним работать.

Этот режим имеет номер 13 в шеснацатеричной системе счисления или 19 в десятичной. В дальнейшем 16-теричный вид будет отмечаться буквой h (Например 13h) а десятичный отмечатся не будет (19).

Немного теории:

Раз у нас 8-битный режим, то
1. На каждую ячейку(я.п.) памяти приходится по одной точке! Это просто чудесно! т.к. не рассматриваются случаи, когда в один байт картинки вмещается 2 точки (в 16ти цветных режимах), а то работа по разделению байта - просто геморой.

2.Мы можем работать с 2^8=256 цветами (в отличие от 16 в пасе)!!!!!!!!!

3. Базовый адрес памяти, начиная с которого изображение в графических режимах выводится на монитор, равен 0A000:0000h. следующие 64000(320*200) байта в данном режиме как раз и выводятся на экран.

5. Для возврата из графического режима я буду использовать текстовый режим № 3(80*25*16)

Ну так вот, для того, чтобы менять режимы будем использовать функцию BIOS установки режима:

------------------------------------------------------------------------
Установка видеорежима(прерывание 10h):
На входе:
ah=0 ; Установить режим
al = ; Номер режима
------------------------------------------------------------------------

В нашем случае:

procedure Set13h;
begin
asm
mov ah,00h ; Установить режим
mov al ,13h ; Номер режима 320*200*256цв
int 10h ; Номер прерывания
end;
end;



procedure Close13h;
begin
asm
mov ah,00h ; Установить режим
mov al ,03h ; Текстовый режим 80*25*16цв
int 10h ; Номер прерывания
end;
end;


Хорошо, вот мы и попали в режим 320*200*256 - возможно, скажете вы, - но Graph использовать не рекомендуют, так что же нам здесь делать?

Ну... для начала давайте очистим экран


procedure clscr(col:byte);
begin
asm
mov ax,0A000h
mov es,ax
xor di,di
mov al,[col]
mov cx,64000
rep StosB
end;
end;

Итак, введя этот код вы получите процедуру закраски экрана.

А теперь, давайте я пасскажу о ней поподробнее...

Сегмент - это часть адреса, которая указывает от какой ячейки начинать отсчет смещения. Он имеет размер 64Кб (65536 байт).

В языках программирования используют несколько переменных, которые содержат сегменты, это cs,ds,es,ss,gs,fs. В паскале реально используются лишь первые 4.

cs - сегмент кода, обычно не трогается, ds - сегмент данных, здесь размещаются данные, после использования в паскале желательно восстанавливать. ss - сегмент стэка, в этом сегменте хранится то, что заносится в стек(в ручную или при вызове процедур). Стек - что-то типа временной памяти с последовательным доступом. es,fs,gs - дополнительные регистры, на 'всякий случай'. ;D

Смещение - это вторая часть адреса, которая указывает на я.п. от начала сегмента. Принимает значения от 0 до 65535(по кол-ву байт в сегменте).

Обычно, для адресации я.п. используют индексные регистры di и si, но можно использовать и любые другие.

Сегмент и смещение занимают по 16 бит(2 байта) и преобразуются в 20-ти битный адрес.

mov ax,0a000h  
mov es,ax


Двумя этими командами мы помещаем в регистр es сегмент адреса видеопамяти(A000). Напрямую помещать адрес нельзя, т.е. запись типа mov es,0a000h является неверной!! По-моему это связано с отсутсвием кода команд в системе операций процессора.

xor di,di 


Эта команда очищает регистр индекса di, для того, чтобы в es:di лежал полный адрес начала выводимой памяти... Индекс di используется для "скольжения" по сегменту, т.е. он адресует ячейку памяти с номером, указанную в нем.
Внимание!
Запись вида mov di,5 обозначает адресацию 5-ой ячейки, а
запись вида mov [di],5 обозначает что в ячейку es:di будет помещено значение 5. Правда, в паскале это не так. В паскале для помещения значения 5 по адресу es:di оное значение помещается в регистр, допустим, аl и используется запись вида mov es:[di],al.

mov al,[col] 


Здесь я помещаю в al номер цвета закраски фона.

mov cx,64000   
rep StosB


команда цикла rep повторяет следующую команду. количество повторов лежит в регистре CX.
Ее можно заменить на команду цикла loop:

@l1:
StosB
loop @l1


Команда rep сначала проверяет регистр cx на равенство 0, а затем, если он не равен, убавляет его на 1, если равен, то цикл прекращается и программа идет дальше, в отличие от команды loop, которая сначала уменьшает cx на 1, а затем проверяет его на 0. Т.е. если вы поместите в cx 0, то команда rep не выполнится ни разу, а команда loop будет выполняться 65535 раз(по максимальному размеру cx)

команда STOSB - es:[di]=al; di=di?1.

Помещает содержимое al в я.п. по адресу es:di.
В зависимости от df (флаг направления) уменьшает/увеличивает индекс di на 1. Если df = 0 то di увеличивается а если df=1, то di уменьшается. Поэтому я и указал в описании команды знак ?.
Устанавливается df (df=1) командой std, а очищается - командой cld.



Пример:

program darktut;

uses crt;

procedure set13h;
begin
asm
mov ax,0013h
int 10h
cld
end;
end;

procedure close13h;
begin
asm
mov ax,0003h
int 10h
end;
end;

procedure clscr(col:byte);
begin
asm
push 0a000h
pop es
xor di,di
mov cx,64000
mov al,col
rep stosb
end;
end;

begin
randomize;
set13h;
repeat
clscr(random(256));
delay(20000);
until keypressed;
close13h;
end.



Happy codding!!!!!!!!!!!!! ;D

З.Ы. Если вы хотите немного оптимизировать процедуру очистки экрана - то можете уменьшить значение
счетчика в 2 раза и пересылать сразу по 2 байта:
mov ah,al ;расширяю цвет...
mov cx,32000
rep StosW

команда StosW: es[di]=ax; di=di+2;

З.Ы.Ы. Если вы хотите посмотреть, как будет выполнятся программа, можете ее прогнать пошагово, открыв окно Debug->Registers и нажимая F7.

З.Ы.Ы.Ы. Просьба, если заметите неточности, или у вас есть предложения/просьбы/коментарии - высказывайте все либо на форуме http://forum.pascal.net.ru, либо лично мне по почте.

Copyright by Dark.
Моя почта: darkmaze@yandex.ru ;D
___ALex___
если уж ты пишешь туториал ты продумывай каждое своё слово
так как по этой "штуке" может кто-то вздумает учиться...
и писать типа "Сегмент - это часть адреса, " - это полный бред
сегмент - это непрерывный участок памяти размером в 64K
(для Real Mode проца)
а так продолжай писать...
может кого асмом заинтересуешь  ;)
GLuk
Полностью согласен с ___Alex___ по поводу сегмента. А вот остальные ошибки напишу позже. Похоже снова придется тебе переделывать... sad.gif
Второй раз уже круче, но ошибок больше.
Dark
Ок, давайте, выкристализовывайте, а на тему сегмента - все вопросы к моим преподам,  ;D

А вот что я думаю: Сегмент и смещение ВМЕСТЕ составляют ЛОГИЧЕСКИЙ адрес, который в результате сдвига сегмента на 4 бита и сложения со смещением дает РЕАЛЬНЫЙ адрес объекта(20 бит)...

Если я не прав - то поправте...

А может есть 2 понятия слова сегмент? ;D ;D ;D
Dark
Мне не сложно переписывать туториал столько раз, сколько это понадобится, главное, чтобы это не превратилось в манию ;D

А так, я всегда рад критике - если критикуют, то то, что я пишу комуто пригодится...
Dark
Я тя понял... а унас в питере ГРОЗЫ,  ;D Азачем напиватся с хорошей погоды ??? ;D
GLuk
Иногда, просто нужно нажраться!!!
Держи...

Се начнем повесть сию...
Не начнем, а продолжим... ;)

Итак, уважаемые, позвольте мне представить мой туториал №1.    
Конечно это не принципиально, но может писать не ТУТОРИАЛ, а как-нибудь по-другому, хотя бы по-английски; впрочем - это на твое усмотрение.  

Он посвящен основам программирования графики на паскалевском ассемблере. Он предназначен для тех, кого достала тормознутость графики на пасе (а работать с графикой с его процедурами я бы не советовал - мееедленно...), кто хотел бы написать БЫСТРУЮ игру, да и для тех, кому вообще интересен асм.  
 
Внимание: Данные эксперименты не совсем совместимы с модулем Graph, поэтому крайне нежелательно его включать.  
В каком месте??
Для использования примеров вам необходима карточка VGA, имеющая режим 320*200, TP версии 6.0 и выше, и желание разобраться.
Не думаю, что сейчас хоть у кого-нибудь есть чиста VGA-адаптер; напиши совместимый.
В сегодняшней, первой части, я расскажу о том, что из себя представляет режим 320*200 8 бит, как его врубить,  и как с ним работать.  

Этот режим имеет номер 13 в шеснацатеричной системе счисления или 19 в десятичной. В дальнейшем  16-теричный вид будет отмечаться буквой h (Например 13h) а десятичный отмечатся не будет (19).
Не надо думать, что все на свете такие валенки; хотя также на твое усмотрение.  
Немного теории:

Раз у нас 8-битный режим, то
1. На каждую ячейку(я.п.) памяти приходится по одной точке! Это просто чудесно! т.к. не рассматриваются случаи, когда в один байт картинки вмещается 2 точки (в 16ти цветных режимах), а то работа по разделению байта - просто геморой.
Случай 4-битного цвета в принципе тобой не описывается, так нечего его и затрагивать, а вывод точки там осуществляется отнюдь не так называемым "РАЗДЕЛЕНИЕМ БАЙТА".
2.Мы можем работать с 2^8=256 цветами (в отличие от 16 в пасе)!!!!!!!!!
Объясни почему 2^8.
3. Базовый адрес памяти, начиная с которого изображение в графических режимах выводится на монитор, равен 0A000:0000h. следующие 64000(320*200) байта в данном режиме как раз и выводятся на экран.
Адрес видеобуфера, а не БАЗОВЫЙ АДРЕС ПАМЯТИ
5. Для возврата из графического режима я буду использовать текстовый режим № 3(80*25*16)
 
Ну так вот, для того, чтобы менять режимы будем использовать функцию BIOS установки режима:  

------------------------------------------------------------------------  
Установка видеорежима (прерывание 10h):  
На входе:  
  ah=0 ; Установить режим  
  al =   ; Номер режима  
------------------------------------------------------------------------  
 
В нашем случае:  
------------------------------------------------------------------------
Где директива ASSEMBLER?????????????????????????????????????
procedure Set13h;
begin  
asm  
  mov ah,00h  ; Установить режим  
  mov al ,13h ; Номер режима 320*200*256цв  
  int 10h    ; Номер прерывания
end;  
end;  
------------------------------------------------------------------------

------------------------------------------------------------------------
procedure Close13h;  
begin  
asm  
   mov ah,00h  ; Установить режим  
   mov al ,03h ; Текстовый режим 80*25*16цв  
   int 10h  ; Номер прерывания
end;  
end;  
------------------------------------------------------------------------
 
Хорошо, вот мы и попали в режим 320*200*256 - возможно, скажете вы, - но Graph использовать не рекомендуют, так что же нам здесь делать?  
Убери слово GRAPH.  
Ну... для начала давайте очистим экран    
Так где же эта проклятая очистка флага направления?????????????? О которой я талдычу уже долгое время...    
------------------------------------------------------------------------  
procedure clscr(col:byte);  
begin  
 asm  
   mov ax,0A000h
   mov es,ax
   xor di,di  
   mov al,[col]  
   mov cx,64000  
   rep StosB  
 end;  
end;  
------------------------------------------------------------------------
Итак, введя этот код вы получите процедуру закраски экрана.  

А теперь, давайте я пасскажу о ней поподробнее...  
Хрень, найди другое понятие.  
Сегмент - это часть адреса, которая указывает от какой ячейки начинать отсчет смещения. Он имеет размер 64Кб (65536 байт).  
Каких еще переменных, если это CSeg, DSeg or someting else, то будь добр напиши.
В языках программирования используют несколько переменных, которые содержат сегменты, это cs,ds,es,ss,gs,fs. В паскале реально используются лишь первые 4.
О стеке подробнее.
И вообще, если затрагиваешь какую-то новую тему, старайся дать как можно больше инфы...
cs - сегмент кода, обычно не трогается, ds - сегмент данных, здесь размещаются данные, после использования в паскале желательно восстанавливать. ss - сегмент стэка, в этом сегменте хранится то, что заносится в стек(в ручную или при вызове процедур). Стек - что-то типа временной памяти с последовательным доступом. es,fs,gs - дополнительные регистры, на 'всякий случай'.  
СМ. СЕГМЕНТ
Смещение - это вторая часть адреса, которая указывает на я.п. от начала сегмента. Принимает значения от 0 до 65535(по кол-ву байт в сегменте).  
Не любые.
Обычно, для адресации я.п. используют индексные регистры di и si, но можно использовать и любые другие.
А как это происходит????????????????????????
Сегмент и смещение занимают по 16 бит(2 байта) и преобразуются в 20-ти битный адрес.

mov ax,0a000h  
mov es,ax
Это связано не с отсутствием команд, а обусловлено спецификой архитектуры проца
Двумя этими командами мы помещаем в регистр es сегмент адреса видеопамяти(A000). Напрямую помещать адрес нельзя, т.е. запись типа mov es,0a000h является неверной!! По-моему это связано с отсутсвием кода команд в системе операций процессора.
Объясни как очищает  
xor di,di
Туманно как-то  
Эта команда очищает регистр индекса di, для того, чтобы в es:di лежал полный адрес начала выводимой памяти...  Индекс di используется для "скольжения" по сегменту, т.е. он адресует ячейку памяти с номером, указанную в нем.
Внимание!  
Команда mov [di],5 ничего никуда не положит!!! Во-первых компилер выдаст ош. так как не поймет размер числа пять (нужно вставить описатель word/byte/dword ptr). Но даже если мы это и поставим, то по умолчанию адресация идет через регистр DS!!!!!
Короче - переделать
Запись вида mov di,5 обозначает адресацию 5-ой ячейки, а
запись вида mov [di],5 обозначает что в ячейку es:di будет помещено значение 5. Правда, в паскале это не так. В паскале для помещения значения 5 по адресу es:di оное значение помещается в регистр, допустим, аl и используется запись вида  mov es:[di],al.

mov al,[col]
 
Здесь я помещаю в al номер цвета закраски фона.  
 
mov cx,64000    
rep StosB  

команда цикла rep повторяет следующую команду. количество повторов лежит в регистре  CX.
Ее можно заменить на команду цикла loop:  

@l1:
StosB  
loop @l1

Команда rep сначала проверяет регистр cx на равенство  0, а затем, если он не равен, убавляет его на 1, если равен, то цикл прекращается и программа идет дальше, в отличие от команды loop, которая сначала уменьшает cx на 1, а затем проверяет его на 0. Т.е. если вы поместите в cx 0, то команда rep не выполнится ни разу, а команда loop будет выполняться 65535 раз(по максимальному размеру cx)
 
команда STOSB - es:[di]=al; di=di?1.  

Помещает содержимое al в я.п. по адресу es:di.
В зависимости от df (флаг направления) уменьшает/увеличивает индекс di на 1. Если df = 0 то di увеличивается а если df=1, то di уменьшается. Поэтому я и указал в описании команды знак ?.
Устанавливается df (df=1) командой std, а очищается - командой cld.


 
Пример:  

program darktut;

uses crt;  

procedure set13h;  
begin  
asm  
mov ax,0013h  
int 10h  
cld
end;  
end;  
 
procedure close13h;  
begin  
asm  
mov ax,0003h  
int 10h  
end;  
end;  
 
procedure clscr(col:byte);  
begin  
 asm  
   push 0a000h  
   pop es  
   xor di,di  
   mov cx,64000  
   mov al,col  
   rep stosb  
 end;  
end;  
 
begin  
randomize;  
set13h;  
repeat
clscr(random(256));  
delay(20000);
until keypressed;
close13h;  
end.  

 
Happy codding!!!!!!!!!!!!!  

З.Ы. Если вы хотите немного оптимизировать процедуру очистки экрана - то можете уменьшить значение
счетчика в 2 раза и пересылать сразу по 2 байта:  
Туманно, в плане РАСШИРЕНИЯ ЦВЕТА.
mov ah,al  ;расширяю цвет...  
mov cx,32000  
rep StosW  
 
команда StosW: es[di]=ax; di=di+2;  
Где прогнать-то, я то знаю, а другие вряд-ли.
З.Ы.Ы. Если вы хотите посмотреть, как будет выполнятся программа, можете ее прогнать пошагово, открыв окно Debug->Registers и нажимая F7.  
Заметил
З.Ы.Ы.Ы. Просьба, если заметите неточности, или у вас есть предложения/просьбы/коментарии - высказывайте все либо на форуме forum.pascal.dax.ru, либо лично мне по почте.

Copyright by Dark.  
Моя почта: darkmaze@yandex.ru  

Debugged & corrected by GLuk
___ALex___
"Команда mov [di],5 ничего никуда не положит!!! Во-первых компилер выдаст ош.
так как не поймет размер числа пять (нужно вставить описатель word/byte/dword ptr). Но
даже если мы это и поставим, то по умолчанию адресация идет через регистр DS!!!!!
Короче - переделать"
на счёт первых двух строк всё неверно
компилятор должен знать размер памяти адресуемой адресом в ds:di в которую
надо "положить" число пять
писать надо типа mov byte ptr [di],5

пример для туториала:
если начиная с адреса ds:di в ОП находится следующая
последовательность байт: DF 10 01 FA CD 13
то после выполнения команды | память изменится следующим    образом
   mov byte  ptr [di],5             05 10 01 FA CD 13
   mov word  ptr [di],5            05 00 01 FA CD 13
   mov dword ptr [di],5           05 00 00 00 CD 13

 значения квалификаторов:
 byte - один байт
 word - два байт
 dword(double word) - 4 байта

 И запомните правило - младший байт хранится по младшему адресу

Народ кто-нибудь кроме нас это читает?
Shadow
:D
-=-=
Да-а-а  :-/
-=-=-= :'(
___ALex___
народ может всё-таки сначала начать в тутореале объяснять основы асма, давать задания небольшие народы
чтоб "оживить" процесс обучения?
а то ведб без основ далеко не уедешь
ну как Вы ?  :)
GLuk
2 ___Alex___: По поводу цитаты: это в плане я неправильно что-то подправил?????????

Shadow, а что ДА-а-а - ТАК НАДО!
___ALex___
to GLuk
да ерунда всё это  ;)
GLuk
Цитата
народ может всё-таки сначала начать в тутореале объяснять основы асма, давать задания небольшие народы
чтоб "оживить" процесс обучения?
а то ведб без основ далеко не уедешь
ну как Вы ?  :)


Можно попробовать; Только где народу набрать?!?!?!  :)


А по поводу ерунды, ты написал то же самое что и я, поэтому и возник квестчин
___ALex___
я думаю надо сначала создать тему на счёт этого типа приглашаем на обучение асму...но не в разделе по асму так как многие я думаю сюда просто не заходят
как-то это выделить!(
GLuk
Что ж можно постить это в новостях?
___ALex___
с другой стороны кому надо тот всегда сам всё изучит...
пусть народ СКАЖЕТ надо ему это или нет...
___ALex___
да запостите такую тему
а там посмотрим по жедающим
Dark
Угу, ок у меня есть инфа и для начала... т.е. ввод/вывод текста в текст.режиме, работа с файлами, и т.д. и т.п.
Dark
;D
GLuk
Ты б домучил сначала туториал №1... ;)
Dark
Уже давно мучаю ;D... и второй готовлю... ;D ;D ;D


P.S. и третий... токмо не кому не говорите ;D
GLuk
;D без комм.
Dark
Хоть чтото без них ;D ;D ;D ;)
Dark
Извиняюсь за задержки, но у меня щас практика и сессия, поэтому временно отлучен от инета, обещаю в июне отправить исправленный и дополненый туториал ;D
Dark
Он уже существует, но к сожалению не с собой...
GriKo
Теперь и я ещё читать буду, только июнь уже настал...
GLuk
?? В плане долгожданный туториал from Dark ??
___ALex___
да давно здесь не был вот пришёл, а татуриала всё нет
забросили что ли это дело?
чё ж мы критиковать-то будем  ;D
Alesha_GA
Туториал от Dark'a скоро будет готов и размещён. Предположительно в ближайщий понедельник.
GLuk
Хватит критики... дело же серьезное. Туториал писать - это не фигня какая-нибудь.
___ALex___
в том-то и дело что фигня
GLuk
Как жисть-то ___Alex___??
Noname
Цитата
Как жисть-то ___Alex___??


так, ребята! не наглеть! если хотим поговорить - аська (или через личные сообщения).. если хотим заработать звание - в свободное общение, в крайнем случае. нечего тут флейм разводить!
GLuk
А если это принципиальное непонимание преимущества количества постов в данном форуме, то я складаю (с ош.; авт.) руки; мозги (хоть даже и чуть-чуть); и присутствие. В моем понимании - не от кол-ва постов зависит кол-во мозгов, или как?? ++ ко всему модера тут нет, так что если хочешь - ЗАКРЫВАЙ ТЕМУ - ведь ты же СТАРШИЙ МОДЕР!!=. А флейм - это общение через постпанковское непонимание своего личного альтерэго (это лично мнение почти что проф. психолога).
AlaRic
Туториал - очень хорошая идея! Жду с нетерпением!
___ALex___
я думаю надо или писать татуриал по обучению асма

и надо их обязательно разбивать на уроки, главы и тп
чтоб была логическая связь ну как в книгах

или "спрашивать народ" на какие темы он бы хотел видет тутариалы
первое я думаю более важно для посетителей форума
щаодно с паскалем они узнают и асм(хотя бы основы)
___ALex___
а писать о том что захочется - например тема первого татуриала
то тот кто знает ОСНОВЫ асма - сам с этим вопросом разберётся с лёгкостью
GLuk
Теперь нужно только кому-то написать туториал... ;)
AlaRic
Dark же пишет  ???
GLuk
Правильно... вот уже месяц, СКОРО будет готово. Да и самого его чой-то не видно...
___ALex___
да уж, вроде и сессия то у всех(кто во воремя сдал) кончилась...
Noname
а что? есть такие, кто вовремя все сдает?!
___ALex___
-=Unknown=-
зачёты конечно НЕТ
а вто экзамены надо бы
AlaRic
Dark видимо на море уехал, так что туториал мы не очень скоро увидим!
GLuk
Да я вот пожалуй сам напишу, через некоторое время...
AlaRic
Оффтопик: пригодилось бы нечто вроде туториала по паскалю!
___ALex___
GLuk
давай smile.gif
не зависеть же от кого-то
как будто-то остальные не могут написать...
если что мне надо сделать пиши
Noname
Цитата
Оффтопик: пригодилось бы нечто вроде туториала по паскалю!


это есть на сайте
AlaRic
Цитата
это есть на сайте

Я имею ввиду разместить на форуме!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.