Как организовать задержку (API Sleep)?

[R71MT]

Есть-ли у кого нетривиальные способы организации паузы?
В справочнике сказано, что fn(86) INT-15h работает только на AT-машинах, видимо поэтому у меня не срабатывает. Что можно предпринять?

Написал такой макрос, но он почему-то срабатывает через-раз. Подскажите, где ошибка?
Вызываю так: GetDelay 5

macro GetDelay [sec]  
{  mov   ax,0200h           ; таймер. читаем секунду -----------------------------------|
   int   1Ah
   add   dh,sec             ; DH = секунда! прибавляем к ней задержку.
   cmp   dh,59h             ; проверим DH на больше/равно 60 сек
   jnbe  correct            ; вышли за предел? Если да - коррекция
   mov   bl,dh              ; если DH меньше 60, то сохраняем секунду в BL для сравнения
   jmp   timer              ; переход в цикл чтения
correct:
   sub   dh,59h             ; скорректируем секунды
   mov   bl,dh              ; сохраняем получившуюся секунду
timer:
   mov   ax,0200h           ; читаем текущую секунду в цикле..
   int   1Ah
   cmp   dh,bl              ; сравниваем с сохранённым BL
   je    endTimer           ; равно? выходим из цикла
   jmp   timer              ; значит не равно. мотаем цикл..
endTimer:         }

[AbakBarama]

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

проверим DH на больше/равно 60 сек

А на самом деле сравниваете с 59h==89 сек.

[min@y™]

А чо б Sleep()-то не вызвать?

[alexcoder]

в сх - количество тиков сколько ожидать. 1тик= 55 мсек.

	xor ax,ax
	mov es,ax
	mov ax,es:[46ch]
	add ax,cx
wait1:	cmp ax,es:[46ch]
	jnz wait1

[Argogo]

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

В справочнике сказано, что fn(86) INT-15h работает только на AT-машинах, видимо поэтому у меня не срабатывает. Что можно предпринять?

Это говорит о том, что работает на всех AT-машинах и более поздних. Только использовать её можно в чистом DOS'е (ну или совсем без системы). Ибо во всяких-там NTVDM (и прочих эмуляторах) оно не (всегда) работает.

[R71MT]

AbakBarama, глюк был не на том участке, а в конце: je endTimer
..я проверял на равно, а нужно было на "больше/равно"

min@y™, хотелось-бы без API

alexcoder, прикольный вариант! Нужно будет взять на заметку..

Argogo, не знаю как-там с чистым досом, но под "Борщом" тоже не работает

[min@y™]

хотелось-бы без API

почему? прога не под виндавсом штоль?

[R71MT]

Сообщение от min@y™

прога не под виндавсом штоль?

min@y™..если с Boot-CD будеш грузиться, то планы рухнут. Мне-бы без API, и всё ручками... Желательно красиво....

alexcoder предложил свой вариант, схватив тики1
...не вомневаюсь, что у тя ест свой вариант...Акромя тиков на чё можно опереться...

[Argogo]

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

не знаю как-там с чистым досом, но под "Борщом" тоже не работает

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

если с Boot-CD будеш грузиться, то планы рухнут. Мне-бы без API, и всё ручками...

Я правильно понимаю, что должно работать и под "борщом", и при загрузке с CD (т.е. вообще без системы)? Или необходима правильная работа только с CD, без OS?