Фрагмент паскаля в асм

[.:DEZ:.]

Доброго времени суток=) подскажите пожалуйста, как будет выглядеть вот такой фрагмент паскаля на ассемблере?

if q=0 then
w:=1;
if q=1 then
w:=2;
if q=2 then
w:=4;

[Serge_Bliznykov]

Ассемблеры - они разные бывают.
Вам под какой процессор/ОС/компилятор ?

во-вторых, какие типы данных у переменных q и w ?


так, навскидку - компилятор TurboPascal (для var q, w : word) :

PROGRAM.3: if q=0 then
  cs:000F 833E500000     cmp    word ptr [0050],0000
  cs:0014 7506           jne    PROGRAM.5 (001C)
PROGRAM.4:  w:=1;
  cs:0016 C70652000100   mov    word ptr [0052],0001
PROGRAM.5: if q=1 then
  cs:001C 833E500001     cmp    word ptr [0050],0001
  cs:0021 7506           jne    PROGRAM.7 (0029)
PROGRAM.6:  w:=2;
  cs:0023 C70652000200   mov    word ptr [0052],0002
PROGRAM.7: if q=2 then
  cs:0029 833E500002     cmp    word ptr [0050],0002
  cs:002E 7506           jne    PROGRAM.9 (0036)
PROGRAM.8:  w:=4;
  cs:0030 C70652000400   mov    word ptr [0052],0004

[.:DEZ:.]

для masm32) тип данных integer)

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

Ассемблеры - они разные бывают.
Вам под какой процессор/ОС/компилятор ?

во-вторых, какие типы данных у переменных q и w ?


так, навскидку - компилятор TurboPascal (для var q, w : word) :

PROGRAM.3: if q=0 then
  cs:000F 833E500000     cmp    word ptr [0050],0000
  cs:0014 7506           jne    PROGRAM.5 (001C)
PROGRAM.4:  w:=1;
  cs:0016 C70652000100   mov    word ptr [0052],0001
PROGRAM.5: if q=1 then
  cs:001C 833E500001     cmp    word ptr [0050],0001
  cs:0021 7506           jne    PROGRAM.7 (0029)
PROGRAM.6:  w:=2;
  cs:0023 C70652000200   mov    word ptr [0052],0002
PROGRAM.7: if q=2 then
  cs:0029 833E500002     cmp    word ptr [0050],0002
  cs:002E 7506           jne    PROGRAM.9 (0036)
PROGRAM.8:  w:=4;
  cs:0030 C70652000400   mov    word ptr [0052],0004

Хм, а как само условие прописать? например:
if q=2 then
w:=4;

[Stilet]

а как само условие прописать?

А ты что совсем не читаешь что пишут?

cmp    word ptr [0050],0002
 jne    PROGRAM.9 (0036)

Изучи эти команды и поймешь как прописывать.

[.:DEZ:.]

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

А ты что совсем не читаешь что пишут?

cmp    word ptr [0050],0002
 jne    PROGRAM.9 (0036)

Изучи эти команды и поймешь как прописывать.

тут тип данных другой, а надо integer! я знаю что эти команды делают, но не понимаю как прописать в ручную всё это, а не компилятором. Подскажите пожалуйста.

[Goodwin98]

тут тип данных другой, а надо integer!

ну писец. Вместо word ptr теперь нельзя написать dword ptr

[Stilet]

я знаю что эти команды делают, но не понимаю как прописать в ручную

Нелогичная отмазка.

q dw ?
w dw ?
...
 cmp [q],2
 jne no
 mov [w],4
no:
...

[Mikl___]

проще нужно быть!

mov cx,q
mov w,1
shl w,cl

и никаких сравнений и переходов

[DiemonStar]

Ну а если не степени двойки, то можно так:

trans dw 1,2,4
....
lea si,trans
add si, q
add si, q
mov w, [si]

хотя с байтами и xlat будет ещё короче)

[.:DEZ:.]

Спасибо ребята огромное я разобрался. Ещё можете тут подсказать?
на паскале это выглядит так:

a,g,q:integer;
r,k: string;
.............
readln(a);
Str(a,r);
g:= Length(r);
k:=Copy(r,g,1);
q:= StrToInt(k);

Ввод и копи я понимаю как сделать, а вот Str,Length и StrToInt не совсем может на ассемблере всё проще можно сделать или тут только расписывать эти функции надо?