цикл в ассеблере

[bebedor]

никак не могу разобраться, задача следущая: вычислить все значения функции у=х^2-4 где х меняется от 1 до 5 с шагом 1 (все это делается в паскале, а вычисления идут ассемблерной вставкой). Получился такой код:

program cikl;
uses winCrt;
var
y,x,i:integer;
mass:Array[1..5] of byte;
begin
writeln('программа вычисления функции y=x^2-4');
asm
lea bx,mass
mov ax,0
mov cx,5
mov dx,0
mov si,1
@cikl:
mov ax,si
mov dx,si
imul dx
sub ax,4
mov [bx],ax
inc bx
inc si
loop @cikl
end;
for i:=1 to 5 do
writeln('|x=    ',i,'  |y=     ',mass[i],'|');
end.

все вроде хорошо, только вот первое значение в ответе не правильное, при x=1 y=253 подскажите куда копать\смотреть... мне сутра ее сдавать

[netrino]

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

все вроде хорошо, только вот первое значение в ответе не правильное, при x=1 y=253 подскажите куда копать\смотреть... мне сутра ее сдавать

Правильное. Поменяйте тип массива с byte на shortint, проблема в том,что byte - беззнаковый, потому -3 представлено как 253

[Serj_D]

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

только вот первое значение в ответе не правильное

Очень даже правильное. 0000 0001 (1) - 0000 0100 (4) = 1111 1101 (253).

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

подскажите куда копать\смотреть... мне сутра ее сдавать

В сторону знаковых типов чисел.