Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ FAQ _ Помогите с Delay()
Автор: godd 3.10.2004 3:15
Как настроить Delay чтобы на всех машинах задержка была одинакова?
А то получатеся под моим Duron850 - усе оки, под Celeron2000 - слишком быстро, под P1-не наю скока - слишком медленно?
Через какие функции мона определить частоту или хотя бы тип процессора?
Или на Pascal'e никак?
Автор: GoodWind 3.10.2004 8:59
была такая тема, воспользуйся поиском
Автор: Altair 3.10.2004 11:47
http://forum.pascal.net.ru/index.php?showtopic=1879
procedure Stop(Wait:LongInt); assembler;
asm
mov ah,86h
mov dx,word ptr Wait
mov cx,word ptr Wait+2
int 15h
end;
Все это из нашего FAQ'a. Загляните туда. Ссылку я дал.
GoodWind, еще раз скажешь "воспользуйся поиском", накажу!
Автор: godd 3.10.2004 13:41
Oleg_Z
а может имеет смысл в
asm
mov ah,86h
mov dx,word ptr Wait
mov cx,word ptr Wait+2
int 15h
end;
вместо
сделать так
Автор: SKVOZNJAK 3.10.2004 16:57
Нет смысла в самопальных ассемблерных процедурах - если только в качестве дополнения. Всё равно в стандартных модулях используется CRT, вот тут-то глюк и вырвется на свободу Лучше пропатченного модуля ничего не найти. В разделе исходников лежит дистрибутив Борланд Паскаля. Урезанный правда, но без глюков.
Нужно этот вопрос поместить в ВАЖНЫЕ ТЕМЫ.
Автор: Altair 4.10.2004 9:37
Не может быть. Я все тестирую, прежде чем в FAQ выкладывать!
Код
Wait:LongInt
сделать так
Код
Wait:Word
А если задержку надо больше 65536 мс?
Автор: godd 4.10.2004 15:04
Oleg_Z
я в ассембе хоть и мало шарю, но
mov dx, word ptr Wait
наверное что-то значит [там вроде есть такое слово как word, и о чем тогда разговор?]
Автор: godd 4.10.2004 15:11
Oleg_Z
А если и больше 65535мс - то можно функцию несколько раз подряд вызвать (типа сперва 65535, а потом сколько останется).
Задержка в 65535 означает 65,536 секунд - а этого вроде ппредостаточно
Longint - 4байта, а word - 2 байта + время велечина ПОЛОЖИТЕЛЬНАЯ
Автор: Altair 4.10.2004 21:33
Это не то, о чем вы подумали.
Да вроде все решили.
Вы правы вобщем. Нет смысла использовать 4 байта, раз можно вызвать 2 раза процедуру.
Полностью согласен с вами в этом вопросе.
Автор: FreeMan 4.10.2004 21:39
Если нужна задержка не меньше 55мс можно читать по адресу $40:$6c, там значение изменяется 18 раз в секунду.
Автор: godd 5.10.2004 2:35
Oleg_Z
да нет, мы ассм немного изучали, а в
mov dx,word ptr Wait
word - это вроде слово, величина слова составляет 2 байта, если я не ошибаюсь (просто интересно)
Автор: Altair 5.10.2004 2:54
DW или WORD
Эта директива определяет эл-т данных длинной 2 байта (слово)
асм преобразует числовые коснтантывдоичный код и сохраняет в последовательности с переставленными байтами!
Во че я знаю!
Автор: P@sh@ 7.10.2004 14:36
строчка mov dx,word ptr Wait
означает, что в dx загрузится слово (word, 2 байта) с адреса wait,
соответственно, в cx загрузится слово с адреса wait+2 (mov cx,word ptr Wait+2), т.е. следующие два байта...
функция 86h прерывания 15h видимо требует в качестве параметра именно 32-битное число в регистрах cx:dx... таким образом, если описать параметр wait как word, получится фигня: либо в cx загрузится хрен знает что, либо (если убрать загрузку в cx) его значение останется неопределенным (хотя можно обнулить просто)
PS: и вообще, надо параметр в процедуре объявлять как var, иначе он будет передаваться в регистрах (простое число ведь) и фиг знает, как паскаль подсунет его ассемблеру в виде указателя - ptr Wait
PS2: и вообще, если задержка - 32-битное число, то вряд ли она в миллисекундах, скорее уж в микросекундах
Автор: godd 7.10.2004 18:00
mov dx,word ptr Wait
если Wait - LongInt (4байта), но грузим то мы 2байта. что тогда?
Автор: P@sh@ 11.10.2004 16:05
то есть?
Автор: godd 12.10.2004 0:21
вроде понял.
сперва 2байта из 4ех грузим в dx (т.е. половину от LongInt)
потом 2байта из тех же 4ех грузим в cx (вторую половину от LongInt)
Все так или нет?
если нет - то как?
если так - вопрос отпадает.
заранее пасиба
Автор: GLuk 22.11.2004 4:27
Изменяется, дык как только быть с 00:00 pm. Теория хороша только на практике...