ASM

← →
xman (2004-03-26 22:18) [0]

как в ставке на ASM написать такой код:
Var x,y,a,b,c: integer
Begin
a:=10; b:=25; c:=40; x:=15;
if x<10 then y:=(a+b+c)*x
else
if x>20 then y:=a*x+b-c;
end;

← →
Sergey Masloff (2004-03-26 22:20) [1]

asm
end;

Твой код только гораздо эффективнее.

← →
xman (2004-03-26 22:21) [2]

мне надо чтобы это действие было на языке АССЕМБЛЕР

← →
Sergey Masloff (2004-03-26 22:28) [3]

На языке ассемблера или в asm-вставке?
Потому что в ASM-вставке написать так:
MyVar DW ?
нельзя

а можно только
procedure XXX; var MyVar : Word; asm mov AX, MyVar end;

Это по существу. А писать за тебя эту ерунду что ты привел мне лень, извини уж...

← →
xman (2004-03-26 22:41) [4]

ок. А сможешь ли ты мне кратко написать как выполняется if then else в ассемблере

← →
Andy BitOff © (2004-03-26 22:42) [5]

Ну ты дал. может тебе еще ключи от квартиры где деньги лежат?
Используй;
popa
mov присвоить
cmp сравнить
jnz если не равно
imul *
add +
sub -
pusha

← →
Andy BitOff © (2004-03-26 23:12) [6]

Тьфу, не корректно прочитал =)
JG если больше
JL если меньше

← →
Anatoly Podgoretsky © (2004-03-27 02:24) [7]

Есть окно CPU в нем ты как раз увидишь этот код на ассемблера.

А так можно было бы и написать, дело не хитрое.
var y:integer; begin asm pusha mov eax,10 mov ebx,25 mov ecx,40 mov edi,15 cmp edi,10 jg @loop1 add eax,ebx add eax,ecx imul eax,edi jmp @loop2 @loop1: cmp edi,20 jl @loop2 imul eax,edi add eax,ebx sub eax,ecx @loop2: mov y,eax popa end;

А вот, что покажет CPU

Unit1.pas.61: a:=10; b:=25; c:=40; x:=15; O044CD82 BAOAOOOOOO mov edx,$0000000a O044CD87 B919000000 mov ecx,$00000019 O044CD8C BB28000000 mov ebx,$00000028 O044CD91 B80FOOOOOO mov eax,$0000000f Unit1.pas.62: if x<10 then y:=(a+b+c)*x O044CD96 83F80A cmp eax,$0a O044CD99 7DOC jnl +$0c O044CD9B 03CA add ecx,edx O044CD9D 03D9 add ebx,ecx O044CD9F OFAFD8 imul ebx,eax O044CDA2 895DFC mov [ebp-$04],ebx O044CDA5 EBOF jmp +$0f Unit1.pas.64: if x>20 then y:=a*x+b-c; O044CDA7 83F814 cmp eax,$14 O044CDAA 7EOA jle +$0a O044CDAC OFAFDO imul edx,eax O044CDAF 03CA add ecx,edx O044CDB1 2BCB sub ecx,ebx O044CDB3 894DFC mov [ebp-$04],ecx Unit1.pas.66: end.

ASM Найти похожие ветки