Пауза в реальном режиме

[Doholyan]

Доброго времени суток!
Ту не большой вопросик, как прописать паузу в реальном режиме?
Хоть дайте направления....

[Ivan_32]

Команда HLT - останавливает процессор в ожидании следующего прерывания.
А что вы подразумеваете под паузой и для чего вам это нужно?

[Doholyan]

Хотел бы понят как работает процедура у К.Ирвина (irvine32.lib)
он ее там назвал Delay и в регистр eax(ax) назначает в милисикундах.
А, каждую его учебную программу в защищеном режиме, "условно проробатываю" в реальном...

Спасибо Ivan_32!
хоть буду знать с чего начать поиск))

[Doholyan]

Ivan_32
Чуток не так.. эта команда будет "держать " процесор до первого прерывания, мне нужно что бы именно время являлось выходом из паузы... или нужно с помощью прерывания INT1ch но там с этим прирыванием много заморочек получаеться...

[Ivan_32]

Ну да, я так и написал А прерыванием этим как раз может быть таймер Ну или клавиатура и что угодно еще... Я к чему собственно:
таймер работает на очень высоких частотах, соттвественно массив из HLT-ов может оказатся хорошей задержкой хоть и не точной.

С таймер там тоже особых проблем нет:
mov word [08h * 4], ax ;смещение
mov word [08h * 4 + 2], cx ; сегмент

И все - у вас уже свой обработчик прерывания. Как вариант можно сделать так:

main:
  cli
  mov ax, word [08h * 4]
  mov [OldOffset],ax
  mov ax,word [08h * 4+2]
  mov [OldSeg],ax
 
  mov ax,myIRQ0 
  mov word [08h * 4], ax ;смещение
  mov ax,cs
  mov word [08h * 4 + 2], cx ; сегмент
  sti
myIRQ0:
   mov ax,[OldSeg]
   mov es,ax
   mov ax,[OldOffset]
   jmp es:ax

OldSeg dw 0
OldOffset dw 0

[alexcoder]

Можно сделать паузу при помощи команды RDTSC, считающей количество тактов, прошедших с момента запуска процесора

DB 00Fh,031h;RDTSC
mov ebx,edx
mov ecx,eax
add ecx,DB 00Fh,031h
mov ebx,edx
mov ecx,eax
add ecx,0D693A400h
adc ebx,0
m1: DB 00Fh,031h
cmp ebx,edx
jg m1
cmp ecx,eax
jg m1h

Правда такая задержка чувствительна к частоте процессора

[Doholyan]

Ivan_32;alexcoder; Спасибо!
а, можно коментарий к данному коду то у меня мозгов не хватает до понять, данную задачу.....
с уважением Дмитрий

[alexcoder]

Сорри, была ошибка, наверно два раза вставил

DB 00Fh,031h;RDTSC после выполнения в edx:eax будет значение счетчика тактов процессота
mov ebx,edx  ;сохраняем начальные значения
mov ecx,eax
add ecx,0D693A400h ;прибавляем 3600000000 (2сек на 1,8 ГГц проце)
adc ebx,0  ;учитываем перенос в старшие разряды
m1: DB 00Fh,031h ;опять читаем состояние счетчика
cmp ebx,edx ;сравниваем старшие разряды
jg m1  ;переход если ebx>edx
cmp ecx,eax ;сравниваем младшие разряды
jg m1  ;переход если ecx>eax

[Ivan_32]

main:
  cli ; отключаем прерывания
  mov ax, word [08h * 4] ; 0x20 - адрес таблицы прерываний.  Вернее если быть точным - адрес 0000:0020 (сегмент: смещение) 
  ; Первым в таблице идет прерывание таймера. Формат записи такой : смещение - 2 байта и сегмент - 2 байта. 
  mov [OldOffset],ax ; сохраняем старое смещение
  mov ax,word [08h * 4+2]
  mov [OldSeg],ax ; и старый сегмент - что бы потом использовать в нашем обработчике прерывания таймера.
 
  mov ax,myIRQ0 ; А теперь устанавливаем свой обработчик
  mov word [08h * 4], ax ;загружаем в таблицу прерываний наше смещение
  mov ax,cs ; сегмент кода нашего обработчика - текущий, т.е. его можно взять из CS.
  mov word [08h * 4 + 2], cx ; загружаем в таблицу прерываний наш сегмент.
  sti ; job is done - можно продолжать:)
  
waitProc:
;; ## IN: AX- количество итераций. 
;; ## Данная процедура будет ждать пока пройдет AX-тиков, т.е. при возникновении прерывания счетчика
;; ## переменная counter будет уменьшатся на 1.
   cli 
   mov [counter],ax  ; загружаем в counter количество итераций.
   sti
waitCycle:
   hlt ; что бы лишний раз не сравнивать:) Процессор будет ждать следующего прерывания. 
   cmp [counter],0 ; сравниваем с нулем 
   ja waitCycle ; если больше - прыгаем к waitCycle - т.е. повторяем сравнение. 
   ret
myIRQ0:
   ;тут может быть расположен какой угодно код обработки прерывания. Для примера:
   cmp [counter],0 
   je endint ;Если counter = 0 - ничего не делаем.
   dec [counter] ;если же нет - декрементируем его.
endint:
   mov ax,[OldSeg]
   mov es,ax
   mov ax,[OldOffset]
   jmp es:ax

OldSeg dw 0
OldOffset dw 0
counter dw 0

[Doholyan]

alexcoder; Ivan_32;
Спасибо!!
само интресесно что вопросов меньше не стало)))) но... всеравно Спасибо