Учебная статья

@n971030 · Регистрация: 23.01.2010

Author24 — интернет-сервис помощи студентам

В данной статье расматриваються безусловные переходы на delphi и реализации альтернативы в с помощью вставки asm. Я статью выложел на своем будущем сайте... Вобщем вот начало коме интересно заходите может напишу что новенького. Вырезана рекламная ссылка
Сама статья
Учебное пособие (Изучаем Ассемблер и Паскаль в сравнении)

Введение
В данной книге производиться изучение языка ассемблера(встроенный в Delphi 7) и паскаля в сравнении между собой. При этом затрагивается макро ассемблер "MASM 32 Editor Version 10” Данное учебное пособие написанное и рассчитанное на людей вообще незнающий ассемблер, но знающих Delphi (Деэлфай) В языке программирования Delphi нет многих инструкций которые приводиться на самом оригинальном ассемблере.

Урок 1
(метки в Delphi и альтернатива на ASM)

В текущем уроке рассматриваем метки (в дельфи они называться label). На масме метки тоже есть и они называются JMP но если мы возьмем классический ассемблер в сравнении с встроенным ассемблером в Delphi то мы найдем разницу между ними. Команды переходов всегда начинаются с буквы "j” а дальше к ним подставляться дополнения (О них пока говорить не надо).

@n971030 · 20.05.2011, 20:28 **[ТС]**

Учебное пособие (Изучаем Ассемблер и Паскаль в сравнении)

Введение
В данной книге производиться изучение языка ассемблера(встроенный в Delphi 7) и паскаля в сравнении между собой. При этом затрагивается макро ассемблер "MASM 32 Editor Version 10” Данное учебное пособие написанное и рассчитанное на людей вообще незнающий ассемблер, но знающих Delphi (Деэлфай) В языке программирования Delphi нет многих инструкций которые приводиться на самом оригинальном ассемблере.

Урок 1
(метки в Delphi и альтернатива на ASM)

В текущем уроке рассматриваем метки (в дельфи они называться label). На масме метки тоже есть и они называются JMP но если мы возьмем классический ассемблер в сравнении с встроенным ассемблером в Delphi то мы найдем разницу между ними. Команды переходов всегда начинаются с буквы "j” а дальше к ним подставляться дополнения (О них пока говорить не надо).

Образец кода delphi

Delphi

label 
  ending; 
var 
  eax1 : Integer; 
begin 
  eax1 := 0; 
  eax1 := 10; 
  ending: 
  inc(eax1); 
  goto ending;

Далее расмотрим тотже код но написаный спомощью вставки asm

Assembler

asm 
  xor eax, eax 
  mov eax, 10 
  @ending: 
  inc eax 
  jmp @ending
end;

@n971030 · 20.05.2011, 20:36 **[ТС]**

Условия "IF" на языке assambler

Урок 2
(Расмотрим условия "IF")

Условия на языке Pascal представляют собой всем известную форму:

If A <= 10 Then begin
...
Здесь код, который будет выполнен, если условия выполнено
...
End else
...
Здесь код, который будет выполнен, если условие не выполнено
...

На языке низкого уровня таких инструкций нет. Инструкцию if в ассемблере заменяет инструкции (CMP и TEST). Команды между собой отличаються.

Будем изучать CMP

CMP - Сравнивает положительные и отрицательные значения. Отличие команды TEST заключается - в поразрядном сравнении, но нам это пока не надо.Будет применять как есть – кто хочет подробностей пусть читает другую статью. Рассмотрим ниже пример кода с разветвлением:

Тотже код только с помощью вставки asm

Pascal

Pascal
var 
  x : Byte; 
begin 
  x := 100; 
  if x < 110 then 
    inc(x); 
  end;

Assembler

asm 
  mov eax, 100 
  @mode: 
  inc eax 
  cmp eax, 110 
  JB @mode //выполнмть переход если флаг ZF = 1
end

Код, написанный на дельфи не требует комментария что касается кода написанного на asm я прокомментирую все очень просто: Команда cmp она находиться как бы в цикле и постоянно проверяет условия "eax = 110 ? --> cmp eax, 110" на дельфи эта строка записалась так "if eax = 110 then” после того как eax становиться равным 110 флаг ZF изменяется с 0 на 1 это важно!!! Что такое флаги? Прочтите обязательно если не знаете! На них полностью основан переход. Следом у вас идет команда JB которая проверяет флаг CF, Переход будет выполнен в том случае если флаг CF будет равен 1 иначе команда JB выполнена не будет.

Что такое флаги и где их смотреть в Delphi 7?

Что бы наблюдать за изменением флагов выполните следующие. Напишите код если он у вас еще не написан и запустите на выполнение в режиме отладки клавишей (F7 или выбрать в меню в delphi Run\trace Into ) откроется окно слева в большом ваш код, т.е. код который сейчас будет, выполняется, а правее там есть флаги найдете флаг CF. И нажимая клавишу F7 ВНИМАТЕЛЬНО СМОТРИТЕ ЗА НИМ КАК ОН ИЗМЕНИТЬ ЗНАЧИТ БУДЕТ ВЫПОЛНЯЕТЬСЯ ИНСТРУКЦИЯ ПЕРЕХОДА. Изменения которые были выполнены отмечаються красным цветом.

Большая просьба на статью нежаловаться тоже начинающий прог-т в области асм если что пишете нюансы

@vital792 · 20.05.2011, 21:16

Может я ошибаюсь, я почти не помню паскаль, но код на паскале и на ассемблере не аналогичны. Код на ассемблере реализует цикл типа do while, на паскале условие проверится один раз и x не изменится.

Сообщение от n971030

JB @mode //выполнмть переход если флаг ZF = 1

не верно. Выполнится переход если CF=1

murderer · 21.05.2011, 08:52

Если объявить метки в блоке label, то можно выполнять переходы из ассемблерного кода в паскаль и наоборот.

Pascal

label
  a,b;
begin
  goto a;
  asm
  a: jmp b;
  end;
  b:
end;

ValeryS · 21.05.2011, 09:28

интересная весчь

начинающие после этого будут боятся ассемблера как черт ладана.
для начала

Сообщение от n971030

Pascal

var 
 x : Byte; 
begin 
 x := 100; 
 if x < 110 then 
 inc(x); 
 end;

Код ASM

Assembler

 mov eax, 100 
 @mode: 
 inc eax 
 cmp eax, 110 
 JB @mode //выполнмть переход если флаг ZF = 1

не эквивалентны
флаги попутаны
(Ну про это уже написали)
идем дальше

Сообщение от n971030

CMP - Сравнивает положительные и отрицательные значения.

какие такие положительные и отрицательные значения???
разница для знаковых и беззнаковых в командах перехода
как работает (сравнивает) CMP не написано
а это просто вычитание одного числа из другого без запоминания результата (но флаги выставляются)
почему не расписаны флаги(кто за что отвечает,как устанавливаются)?

в частности

Сообщение от n971030

CF

это флаг переполнения разрядной сетки
выставится если два больших числа сложить или
вычесть большое число из малого
ZF флаг нуля
выставляется если в аккумуляторе 0(при действии арифметических и логических команд)

Assembler

1 2	mov eax,0 ; вот так не выставится xor eax,eax ; а так выставится

Сообщение от n971030

"eax = 110 ? --> cmp eax, 110" на дельфи эта строка записалась так "if eax = 110 then”

не верно
правильный аналог

Assembler

1 2	cmp eax,110 jz ...... ;для знаковых je

а для

Сообщение от n971030

cmp eax, 110
JB @mode

аналог будет

Pascal

1	if eax < 110 then

Сообщение от n971030

Команды переходов всегда начинаются с буквы "j” а дальше к ним подставляться дополнения (О них пока говорить не надо).

о них то как раз и надо говорить в первую очередь
ибо их там до проха
безусловный переход
условные переходы
если 0 (если равно)
если не 0 (если не равно)
если больше
если не больше
если больше или равно
исли меньше
если не меньше
если меньше или равно
причем для знаковых и без знаковых они разные

@n971030 188 / 120 / 4 Регистрация: 23.01.2010 Сообщений: 1,320
		1
	Учебная статья 20.05.2011, 14:39. Показов 4319. Ответов 5 Метки нет (Все метки) В данной статье расматриваються безусловные переходы на delphi и реализации альтернативы в с помощью вставки asm. Я статью выложел на своем будущем сайте... Вобщем вот начало коме интересно заходите может напишу что новенького. Вырезана рекламная ссылка Сама статья Учебное пособие (Изучаем Ассемблер и Паскаль в сравнении) Введение В данной книге производиться изучение языка ассемблера(встроенный в Delphi 7) и паскаля в сравнении между собой. При этом затрагивается макро ассемблер "MASM 32 Editor Version 10” Данное учебное пособие написанное и рассчитанное на людей вообще незнающий ассемблер, но знающих Delphi (Деэлфай) В языке программирования Delphi нет многих инструкций которые приводиться на самом оригинальном ассемблере. Урок 1 (метки в Delphi и альтернатива на ASM) В текущем уроке рассматриваем метки (в дельфи они называться label). На масме метки тоже есть и они называются JMP но если мы возьмем классический ассемблер в сравнении с встроенным ассемблером в Delphi то мы найдем разницу между ними. Команды переходов всегда начинаются с буквы "j” а дальше к ним подставляться дополнения (О них пока говорить не надо). 0

@vital792 2014 / 1286 / 61 Регистрация: 05.06.2010 Сообщений: 2,213
	20.05.2011, 21:16	4
	Может я ошибаюсь, я почти не помню паскаль, но код на паскале и на ассемблере не аналогичны. Код на ассемблере реализует цикл типа do while, на паскале условие проверится один раз и x не изменится. Сообщение от n971030 JB @mode //выполнмть переход если флаг ZF = 1 не верно. Выполнится переход если CF=1 0

	21.05.2011, 09:28