Отрабатывает imul с ошибкой Delphi+Assembler

@1963Victor · Регистрация: 29.10.2014

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

Здравствуйте. В прог. строка 5, imul esi,3 отрабатывает с ошибкой, если esi=1, то после умножения =9, если все это отработать в прог. Если написать отдельно этот участок прог. то все нормально. Заранее благодарю.

Delphi

unit Assembler;
 
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 Label k1,q1;
 var
  b:array [0..2,0..2] of integer;
  a,c,s,s1,x,y: integer;
begin
 b[0,0]:=1; //    0 1 2  ìàòðèöà
 b[0,1]:=2;
 b[0,2]:=3; // 0  1 2 3
 b[1,0]:=4; // 1  4 5 6
 b[1,1]:=5; // 2  7 8 9
 b[1,2]:=6;
 b[2,0]:=7;
 b[2,1]:=8;
 b[2,2]:=9;
  asm
  
 
    mov edi,0 // îáíóëÿåì ïåðåìåííóþ äëÿ ñòðîê.
    lea eax,b //çàãðóæàåì ìàòðèöó â àêêóìóëÿòîð.
    mov ecx,0 // ýòî ñòîëáöû.
    mov esi,0 // ýòî ñòðîêè.
k1: mov esi,edi
     mov s,esi //äëÿ êîíòðîëÿ ýô. àäðåñà.
     mov y,edi // ñòðîêà äëÿ êîíòðîëÿ ýô. àäðåñà.
q1: imul esi,3 // 5 ЭТА СТРОКА.
     mov s1,esi // esi1 äëÿ êîíòðîëÿ ýô. àäðåñà.
    add esi,ecx // ïðèáàâëÿåì ñòîëáåö äëÿ ýôôåêòèâíîãî àäðåñà.
     mov x,ecx // ñòîëáåö äëÿ êîíòðîëÿ ýô. àäðåñà.
    mov edx,[eax+4*esi]  //ïåðåíîñèì äàííûå â ðåãèñòð èç ïàìÿòè.
     {mov s,esi //äëÿ êîíòðîëÿ ýô. àäðåñà.}
    mov a,edx //âûïîëíÿåòñÿ êàêîå-òî äåéñòâèå.
    inc ecx //   óâåëè÷èâàåì êîëè÷åñòâî ñòîëáöîâ.
    cmp ecx,2{3} // ñðàâíèâàåì êîëè÷åñòâî ñòîëáöîâ ñ îãðàíè÷åíèåì.
    jnz q1
    mov ecx,0 // îáíóëÿåì êîëè÷åñòâî ñòîëáöîâ äëÿ ñëåäóþùèé ñòðîêè.
    inc edi // ïåðåõîäèì ê ñëåäóþùèé ñòðîêè.
    cmp edi,2{3} // ñðàâíèâàåì êîëè÷åñòâî ñòðîê ñ îãðàíè÷åíèåì.
    jnz k1
     imul esi,4 // äëÿ êîíòðîëÿ ýô. àäðåñà.
     mov c,esi // äëÿ êîíòðîëÿ ýô. àäðåñà.
 
  
  end;
  ListBox1.Items.Add(IntToStr(a)+' Ñîäåðæèìîå ÿ÷åéêè ');
  ListBox1.Items.Add(IntToStr(x)+' ecx Ñòîëáåö ');
  ListBox1.Items.Add(IntToStr(y)+' edi Ñòðîêà ');
  ListBox1.Items.Add(IntToStr(s)+' esi ');
  ListBox1.Items.Add(IntToStr(s1)+' esi 1 ');
  ListBox1.Items.Add(IntToStr(c)+' Íîìåð àäðåñà ');
 
end;
 
end.

@Mikl___ · 17.06.2015, 15:57

Сообщение от 1963Victor

если esi=1, то после умножения =9

а где находится результат? в esi?

Assembler

1	imul esi,3 ; еах := esi*3

@Ethereal · 17.06.2015, 20:54

Не а, не так. Я тоже с этими новомодными умножениями путаюсь.
Скомпилировал сейчас .386 imul esi,3 и прогнал в отладчике. Результат в esi, однако.

Добавлено через 1 минуту

Сообщение от 1963Victor

imul esi,3 отрабатывает с ошибкой, если esi=1, то после умножения =9

Если esi=1 два раза на 3 умножить, то будет как раз 9. Что ты в цикле

Сообщение от 1963Victor

cmp ecx,2{3} // Г±Г°Г*ГўГ*ГЁГўГ*ГҐГ¬ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў Г± Г®ГЈГ°Г*Г*ГЁГ·ГҐГ*ГЁГҐГ¬.
jnz q1

и делаешь.

@1963Victor · 17.06.2015, 23:31 **[ТС]**

Delphi

unit Assembler;
 
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 Label k1,q1;
 var
  b:array [0..2,0..2] of integer;
  a,c,s,s1,x,y: integer;
begin
 b[0,0]:=1; //    0 1 2  матрица
 b[0,1]:=2;
 b[0,2]:=3; // 0  1 2 3
 b[1,0]:=4; // 1  4 5 6
 b[1,1]:=5; // 2  7 8 9
 b[1,2]:=6;
 b[2,0]:=7;
 b[2,1]:=8;
 b[2,2]:=9;
  asm
 
 
  
    mov edi,0 // обнуляем переменную для строк.
    lea eax,b //загружаем матрицу в аккумулятор.
    mov ecx,0 // это столбцы.
    mov esi,0 // это строки.
k1: mov esi,edi
     mov s,esi //для контроля эф. адреса.
     mov y,edi // строка для контроля эф. адреса.
q1: imul esi,3
     mov s1,esi // esi1 для контроля эф. адреса.
    add esi,ecx // прибавляем столбец для эффективного адреса.
     mov x,ecx // столбец для контроля эф. адреса.
    mov edx,[eax+4*esi]  //переносим данные в регистр из памяти.
     {mov s,esi //для контроля эф. адреса.}
    mov a,edx //выполняется какое-то действие.
    inc ecx //   увеличиваем количество столбцов.
    cmp ecx,2{3} // сравниваем количество столбцов с ограничением.
    jnz q1
    mov ecx,0 // обнуляем количество столбцов для следующий строки.
    inc edi // переходим к следующий строки.
    cmp edi,2{3} // сравниваем количество строк с ограничением.
    jnz k1
     imul esi,4 // для контроля эф. адреса.
     mov c,esi // для контроля эф. адреса.
  
 
  end;
  ListBox1.Items.Add(IntToStr(a)+' Содержимое ячейки ');
  ListBox1.Items.Add(IntToStr(x)+' ecx Столбец ');
  ListBox1.Items.Add(IntToStr(y)+' edi Строка ');
  ListBox1.Items.Add(IntToStr(s)+' esi ');
  ListBox1.Items.Add(IntToStr(s1)+' esi 1 ');
  ListBox1.Items.Add(IntToStr(c)+' Номер адреса ');
 
end;
 
end.

@Ethereal · 17.06.2015, 23:39

Сообщение от 1963Victor

q1: imul esi,3
mov s1,esi // esi1 для контроля эф. адреса.
add esi,ecx // прибавляем столбец для эффективного адреса.
mov x,ecx // столбец для контроля эф. адреса.
mov edx,[eax+4*esi] //переносим данные в регистр из памяти.
{mov s,esi //для контроля эф. адреса.}
mov a,edx //выполняется какое-то действие.
inc ecx // увеличиваем количество столбцов.
cmp ecx,2{3} // сравниваем количество столбцов с ограничением.
jnz q1

Опять те-же ошибки, на которые я указал. esi на 3 сколько раз умножать собрался ?

Добавлено через 1 минуту
Если у тебя индексы пробегают 0 1 2 , то цикл должен завершаться когда индекс стал 3
Если тебе надо всю матрицу оббежать.

Добавлено через 3 минуты
Вывести данные из матрицы (Delphi + Assembler)

@1963Victor · 18.06.2015, 00:04 **[ТС]**

Спасибо большое, все иправил.а я два дня в экран пялюсь, а от туда фига. Вот так мы ракеты запускаем.

Assembler

    mov edi,0 // îáíóëÿåì ïåðåìåííóþ äëÿ ñòðîê.
    lea eax,b //çàãðóæàåì ìàòðèöó â àêêóìóëÿòîð.
    mov ecx,0 // ýòî ñòîëáöû.
    mov esi,0 // ýòî ñòðîêè.
k1:q1: mov esi,edi
     mov s,esi //äëÿ êîíòðîëÿ ýô. àäðåñà.
     mov y,edi // ñòðîêà äëÿ êîíòðîëÿ ýô. àäðåñà.
    imul esi,3
     mov s1,esi // esi1 äëÿ êîíòðîëÿ ýô. àäðåñà.
    add esi,ecx // ïðèáàâëÿåì ñòîëáåö äëÿ ýôôåêòèâíîãî àäðåñà.
     mov x,ecx // ñòîëáåö äëÿ êîíòðîëÿ ýô. àäðåñà.
    mov edx,[eax+4*esi] {[eax+4*(ecx*3+1)]} //ïåðåíîñèì äàííûå â ðåãèñòð èç ïàìÿòè.
     {mov s,esi //äëÿ êîíòðîëÿ ýô. àäðåñà.}
    mov a,edx //âûïîëíÿåòñÿ êàêîå-òî äåéñòâèå.
    inc ecx //   óâåëè÷èâàåì êîëè÷åñòâî ñòîëáöîâ.
    cmp ecx,3 // ñðàâíèâàåì êîëè÷åñòâî ñòîëáöîâ ñ îãðàíè÷åíèåì.
    jnz q1
    mov ecx,0 // îáíóëÿåì êîëè÷åñòâî ñòîëáöîâ äëÿ ñëåäóþùèé ñòðîêè.
    inc edi // ïåðåõîäèì ê ñëåäóþùèé ñòðîêè.
    cmp edi,3 // ñðàâíèâàåì êîëè÷åñòâî ñòðîê ñ îãðàíè÷åíèåì.
    jnz k1
     imul esi,4 // äëÿ êîíòðîëÿ ýô. àäðåñà.
     mov c,esi // äëÿ êîíòðîëÿ ýô. àäðåñà.

@Ethereal 6770 / 2739 / 384 Регистрация: 17.02.2013 Сообщений: 4,047
	17.06.2015, 20:54	3
	Не а, не так. Я тоже с этими новомодными умножениями путаюсь. Скомпилировал сейчас .386 imul esi,3 и прогнал в отладчике. Результат в esi, однако. Добавлено через 1 минуту Сообщение от 1963Victor imul esi,3 отрабатывает с ошибкой, если esi=1, то после умножения =9 Если esi=1 два раза на 3 умножить, то будет как раз 9. Что ты в цикле Сообщение от 1963Victor cmp ecx,2{3} // Г±Г°ГГўГГЁГўГГҐГ¬ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў Г± Г®ГЈГ°ГГГЁГ·ГҐГГЁГҐГ¬. jnz q1 и делаешь. 1

@Ethereal 6770 / 2739 / 384 Регистрация: 17.02.2013 Сообщений: 4,047
	17.06.2015, 23:39	5
	Сообщение от 1963Victor q1: imul esi,3 mov s1,esi // esi1 для контроля эф. адреса. add esi,ecx // прибавляем столбец для эффективного адреса. mov x,ecx // столбец для контроля эф. адреса. mov edx,[eax+4esi] //переносим данные в регистр из памяти. {mov s,esi //для контроля эф. адреса.} mov a,edx //выполняется какое-то действие. inc ecx // увеличиваем количество столбцов. cmp ecx,2{3} // сравниваем количество столбцов с ограничением. jnz q1 Опять те-же ошибки, на которые я указал. esi на 3 сколько раз умножать собрался ? Добавлено через 1 минуту* Если у тебя индексы пробегают 0 1 2 , то цикл должен завершаться когда индекс стал 3 Если тебе надо всю матрицу оббежать. Добавлено через 3 минуты Вывести данные из матрицы (Delphi + Assembler) 1

	18.06.2015, 00:04