ассемблер - k={0,если x=0 x, если x>0

[AJIUM]

Приветствую !
Дали задание, почти сделал, но где - то есть ошибка, если не трудно посмотрите пожалуйста ! Спасибо !
Задача k={0,если x=0 x, если x>0
Program primeral vetvlen;
Uses WinCrt;
Var
x:byte;
write('введите x->');readln(x);
Mov Ax,0
Mov Al,x byte
Cmp x.byte
Ja@ Alim
Mov K,0
@ Alim: Mov k.byte
End;
Writeln ('K=',K)
End.

[Xatr]

Вроде работает...

Program primeral_vetvlen;
Var
x:byte;
k:byte;
label alim;
begin
write('введите x->');readln(x);
asm
Mov Al,0
Mov bl,x
cmp al,bl
jz Alim
Mov k,0
mov al,x
Alim: Mov k,al
End;
Writeln ('K=',K);
End.

сравните...

[AJIUM]

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

Вроде работает...

Program primeral_vetvlen;
Var
x:byte;
k:byte;
label alim;
begin
write('введите x->');readln(x);
asm
Mov Al,0
Mov bl,x
cmp al,bl
jz Alim
Mov k,0
mov al,x
Alim: Mov k,al
End;
Writeln ('K=',K);
End.

сравните...

Не работает ошибку выдает Runtime error 105 at 0001:0040.

[Xatr]

Это вы оказывается в delphi пишете...
тогда после строки

Program primeral_vetvlen;

впишите строку

{$Apptype console}

[AJIUM]

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

Это вы оказывается в delphi пишете...
тогда после строки

Program primeral_vetvlen;

впишите строку

{$Apptype console}

Не помогает

[Xatr]

у меня в Delphi 7 всё нормально работает.

Program primeral_vetvlen;
{$APPTYPE CONSOLE}
Var
x:byte;
k:byte;
label alim;
begin
write('введите x->');readln(x);
asm
Mov Al,0
Mov bl,x
cmp al,bl
jz Alim
mov al,x
Alim: Mov k,al
End;
Writeln ('K=',K);
End.

где именно у вас не работает? нажимайте F7 и скажите, на какой строке ошибка.

[netrino]

Ммм... Условие:
Если х = 0, то положить в k ноль, если больше нуля, то положить х
Исходя из этого, не проще ли:

mov al, x
mov k, al

? Ведь в любом случае в k попадёт значение равное х

[Xatr]

Ну я это сразу заметил, но условие такое...