VPF::нужна помащь - Форум программистов

AET

Дата 20.3.2008, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 171
Регистрация: 13.3.2007

Репутация: нет
Всего: нет

проверьте правильно ли я заделал на паскале перевел его из асамблерного кода в паскаль. Прикрепил файл на асамблере.

Код


begin
w236C:=w2338;
w2370:=w233C;
w2374:=w2340;
w237C:=0;
w2338:=w2370;
w233C:=0;
w2340:=8;
sub_0(arg_0);
w2338:=w2370;
w2338:=8;
w2340:=8;
sub_0(arg_0);
w2384:=w2390;
if w2374 < w2376 then
w2338 := w2370;
w233C:=w2378;
w2340:=1;
sub_0(arg_0);
w2394:=1;
w2378:=w2378+1;
if w2394=0 then
w233c:=w2378;
w2340:=w2388;
w2338:=w2370;
sub_0(arg_0);
w2380:=w2390;
w2338:=w2370;
w2378:=w2378+w2388;
w233C:=w2378;
w2340:=w2384;
sub_0(arg_0);
w2378:=w2378+w2384;
w2348:=w2390+3;
if w2380>w237c then
begin
w2364:=w237c+w2348;
if w2364 < w2374 then
w234c:=w2348;
w2390:=$FFFF;
else
if w234c > 0 or w2358=0 or 2350<>0 then
w2358:=0;
else
w2358:=1;
w2350:w234c shr 3;
w2344:=0;
end;
else
begin
w2394:=w237c - w2380;
w2394:= w236c + w2394;
w2390:= w236c + w237c;
w2344:w2350 shl 3;
end;
seek(arg_0,w2396);
read(arg_0,var_202[1]);
w2364:=var_202[1];
seek(arg_0,w2392);
var_202[1]:=w2364;
write(arg_0,var_202[1]);
seek(arg_202,w2394+1);
read(arg_0,var_202[1]);
w2360:=var_202[1];
seek(arg_0,w2390+1);
var_202[1]:=w2360;
write(arg_0,var_202[1]);
seek(arg_0,w2394+2);
read(arg_0,var_202[1]);
w235c:=var_202[1];
seek(arg_0,w2390+2);
var_202[1]:=w235c;
write(arg_0,var_202[1]);
seek(arg_0,w2394+3);
read(arg_0,var_202[1]);
2358:=var_202[1];
seek(arg_0,2390+3);
var_202[1]:=w2358;
seek(arg_0,w2394+4);
read(arg_0,var_202[1]);
w2360:=var_202[1];
seek(arg_0,2390+4);
var_202[1]:=w2360;
write(arg_0,var_202[1]);
seek(arg_0,w2394+5);
read(arg_0,var_202[1]);
w235c:=var_202[1];
var_202[1]:=w235c;
seek(arg_0,w2390+5);
write(arg_0,var_202[1]);
seek(arg_0,w2394+6);
read(arg_0,var_202[1]);
w2358:=var_202[1];
var_202[1]:=w2358;
seek(arg_0,w2390+6)
write(arg_0,var_202[1]);
seek(arg_0,w2394+7);
read(arg_0,var_202[1]);
w2368:=var_202[1];
var_202[1]:=w2368;
seek(arg_0,w2390+7);
write(arg_0,var_202[1]);
w2390:=w2390+8;
w2394:=w2394+8;
w2350:=w2350-1;
w2350:=234c+7;
w2394:=w2380-w237c;
w2394:=w2394+w2344;
w2394:=w2394+w236c;
w2390:=w2344+w237c;
w2390:=w2390+w236c;
w2390:=w2390+1;
w2394:=w2394+1;
seek(arg_0,w2394-1);
read(arg_0,var_202[1]);
w2360:=var_202[1];
w2350:=w2350-1;
seek(arg_0,w2390-1);
var_202[1]:=w2360;
write(arg_0,var_202[1]);
w237c:=w2348+w237c;
else begin
w233c:=2378;
w2340:=8;
w2338:=w2370;
loc_0(arg_4);
w2378:=w2378+8;
w2380:=w236c+w237c;
w237c:=w237c+1;
var:_202[1]:=w2390;
seek(arg_0,w2382);
write(arg_0,var_202[1]);
end;
else
Close(arg_4);
end.

Это сообщение отредактировал(а) AET - 20.3.2008, 15:29

Присоединённый файл ( Кол-во скачиваний: 2 )

sub_2E4.txt 19,28 Kb

MAKCim

Дата 20.3.2008, 14:44 (ссылка)

(нет голосов)

Загрузка ...

Воін дZэна

Профиль
Группа: Экс. модератор
Сообщений: 5644
Регистрация: 10.12.2005
Где: Менск, РБ

Репутация: 1
Всего: 207

AET,

M
MAKCim

Модератор: Учите русский язык и задавайте нормально вопросы!

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Asm для начинающих \| Следующая тема »