Полигон-2

Только для AT (не слишком новых, где есть канал 1 8254)
можно попробовать процедуру из исходников IBM AT


;--- WAITF -------------------------------------------------------------
;  FIXED TIME WAIT ROUTINE HARDWARE CONTROLLED - NOT PROCESSOR)   :
;                       :
; ENTRY:                     :
;  (CX) = COUNT OF 15.085737 MICROSECOND INTERVALS TO WAIT        :
;    MEMORY REFRESH TIMER 1 OUTPUT USED AS REFERENCE        :
; EXIT:                      :
;    AFTER (CX) TIME COUNT (PLUS OR MINUS 16 MICROSECONDS)  :
;  (CX) = 0                   :
;-----------------------------------------------------------------------

REFRESH_BIT  EQU  00010000B  ; REFRESH TEST BIT
PORT_B    EQU  061H    ; PORT B READ/WRITE DIAGNOSTIC REGISTER


WAITF  PROC  NEAR      ;  DELAY FOR (CX)*15.085737 US
  PUSH  AX      ; SAVE WORK REGISTER (AH)

WAITF1:         ;  USE TIMER 1 OUTPUT BITS
  IN  AL,PORT_B    ; READ CURRENT COUNTER OUTPUT STATUS
  AND  AL,REFRESH_BIT    ; MASK FOR REFRESH DETERMINE BIT
  CMP  AL,AH      ; DID IT JUST CHANGE
  JE  WAITF1      ; WAIT FOR A CHANGE IN OUTPUT LINE

  MOV  AH,AL      ; SAVE NEW FLAG STATE
  LOOP  WAITF1      ; DECREMENT HALF CYCLES TILL COUNT END

  POP  AX      ; RESTORE (AH)
  RET        ; RETURN (CX)= 0

WAITF  ENDP


Rio444 написал:

[q]

Даже значение в Ah не инициализируют.

[/q]

Мне тоже это не понравилось но я решил привести как в оригинале.

Дилемма в том, что с 8253/54 слишком много команд получается, что снизит точность.
Но при использовании канала2 будет чуть проще, тк его можно останавливать без latch.

Те Вы предлагаете сделать пре-калибровку, а потом всюду использовать найденную константу?

В принципе оба варианта (IBM и Ваш) могут использоваться, в
зависимости от целей.

А Вы пробовали проверить реальную задержку осциллографом?

Я проверял так

LPT_DATA_PORT  EQU  0378H

  MOV  DX, LPT_DATA_PORT
  MOV  AX, 55H
  OUT  DX, AL
  MOV CX,  0
CLI
LPT_LOOP:
  CALL  NEAR PTR DLY
  IN  AL, DX
  XOR  AL, 0FFH
  OUT  DX, AL
  LOOP  LPT_LOOP
STI

Это делает 65536 импульсов и пауз в порт принтера.
Проверить, насколько изменится длительность импульсов и паузы
если заккоментировать CALL DLY (для уменьшения потерь времени можно заменить макроопределением). Разность и даст задержку.

Цикл у Вас в конце лучше сделать так

loop_15:
  xchg  bl,bh  ; Фиктивные операции, которые бесполезны, но вносят такую же задержку, как в расчете начального значения счетчика
  mov ah,bl  ; Фиктивная
  in al,timer  ; Фиктивная
  sub ah,al  ; Фиктивная
  cmp ah,18  ; Фиктивная
  jb next_15  ; Фиктивная
next_15:  
  loop loop_15  ; Если он не равен 0, повторяем цикл


Rio444 написал:

[q]

Будут ли по числу тактов loop и dec(inc) cx jnz равноценны?

[/q]

Навряд-ли, loop должна быть быстрее. Тогда оставим как есть.

Теперь осталось проверить реально получающуюся задержку.

OK, неплохо! Можно попробовать использовать!

PS. Я кстати посмотрел несколько datasheet, канал1 имеется и в достаточно
новых системах (865, современные PCH например), те простой вариант IBM тоже можно использовать даже на современных платах.


Я нашел про int 15 AH=86

INT 15 - системное прерывание - WAIT
- ожидание - (для AT,XT2,XT286,CONV,PS)
AH = 86h
CX,DX = число микросекунд ожидания (с точностью до 977 мс)
Возвращает: CF сброшен: после окончания ожидания
CF установлен: немедленно при ошибке
Примечание: точность периода ожидания равна 977 микросекунд в большинстве
секунд потому что большинство BIOS использует прерывание от мик-
росхемы таймера AT с частотой 1/1024 секунды доступные по INT 70
Смотри: AH=83h, INT 70

NT 70 - IRQ8 - AT/XT286/PS50+ - REAL-TIME CLOCK
- часы реального времени -
Примечание: может маскироваться установкой бита 0 в порте Ввода/Вывода A1h
Смотри: INT 58

Те оно использует прерывание от RTC и не годится для нашей цели.