Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Delphi .: [все вопросы] :.
Показать сообщение отдельно

Новый участник


Сообщения: 5
Благодарности: 0

Профиль | Отправить PM | Цитировать


Здравствуйте! Да некоторые ошибки оказались вообще детскими, выспалась, уже некоторые исправила, но как быть в этом случае, где есть ошибки, заменить на просто bx не идёт, пожалуйста подскажите:

Код: Выделить весь код
function shifr(N1, N2:string): String;
...
begin
                   asm    
                   mov ecx, 4
                   mov ebx, 3
                   clc
@SM1:         mov al, byte ptr KZU[esi+ebx]                  //    Ошибка
                   adc byte ptr Temp[ebx], al
                   dec ebx
                   loop @SM1
                   ...
                   end;
                  ... 
                  call KBlock
                  ... 
end;

procedure KBlock;
                  asm 
                  ...
                  xor esi, esi
                  ...
                  mov byte ptr stb[esi], esi     //            Ошибка
                  ...
                  end;

Отправлено: 11:34, 23-02-2009 | #23

Название темы: Delphi .: [все вопросы] :.