вывод на экран
Добавлено: 18 апр 2009, 16:02
всем добрый день, пишу прогу на паскале с ассемблерными вставками.
Возникла следующая проблема, как делать вывод на экран знакового числа размеров в слово
Вот листинг
program as;
var
a, b, c, d, x, y: integer;
begin
a:= 12;
b:= -3;
c:= 4;
d:= 3;
for x:= -3 to 4 do
begin
if x > 0 then
y:= 3*a*x
else
if x < 0 then
y:= (sqr(a) + x) div c
else
y:= (a + b) div d;
writeln('y= ', y);
end; readln;
asm
mov cx, 7
@l:
sub y, 3
cmp y, 0
jg @y3 {>0}
jl @y1 {<0}
je @y2 {=0}
@y3:
mov ax, 3
imul y
imul a
outint ax {здесь почему то ошибка}
newline
loop @l
end;
end.
Возникла следующая проблема, как делать вывод на экран знакового числа размеров в слово
Вот листинг
program as;
var
a, b, c, d, x, y: integer;
begin
a:= 12;
b:= -3;
c:= 4;
d:= 3;
for x:= -3 to 4 do
begin
if x > 0 then
y:= 3*a*x
else
if x < 0 then
y:= (sqr(a) + x) div c
else
y:= (a + b) div d;
writeln('y= ', y);
end; readln;
asm
mov cx, 7
@l:
sub y, 3
cmp y, 0
jg @y3 {>0}
jl @y1 {<0}
je @y2 {=0}
@y3:
mov ax, 3
imul y
imul a
outint ax {здесь почему то ошибка}
newline
loop @l
end;
end.