Изначально писал вот так на фри паскале(на турбо тоже самое):
uses crt;
begin sound(15000); delay(5000);nosound;end.
В результате чего пищало не 5 сек, а гораздо меньше(меньше 1 сек)
Потом Altair посоветовал использовать код, приведенный в этой теме: Помогите с Delay()
В результате получилась тестовая программа такого типа:
procedure Stop(Wait: word); assembler;
asm
mov ah,86h
mov dx,word ptr Wait
mov cx,word ptr Wait+2
int 15h
end;
begin
writeln('1');
Stop(50000);
writeln('2');
readln;
end.
Задержки перед выводом 2 не было совсем, то есть Stop или вообще не работает, или криво работает вместе с delay'ем
Подскажите, что сделать что бы заработало так, как нужно(что бы были задержки)?
Сообщение отредактировано: [da_smag] -