Page 260 - 4503

; ВХІД : не передбачений
; ВИХІД : змінюються ознаки і вміст W
;--------------------------------------------------------------------------------
N equ d’249’ ;N - параметр затримки
nop ; додано 4 мкс
; за рахунок команди nop
nop
nop
nop
DELAY_2MS ; ( DELAY з англ.- затримка)
movlw N ; ініціалізація циклу
; ЦИКЛ ----------------------------------------------------------------------
D_LOOP ; LOOP – з англ.- цикл
addlw -1 ; декрементується лічильник
nop ; додано 4 додаткових цикли
; за рахунок команди nop
nop
nop
nop
btfss STATUS,Z ;перевірка чи W досяг 0
goto D_LOOP ;якщо ні то повторюється
;цикл
; ------------------------------------------
return ; інакше вихід із підпрограми
Додаючи подібним чином команди nop, можна
створювати підпрограми затримки, що працюють за
різноманітної тактової частоти. Наприклад, при частоті
тактового генератора 8 МГц, програма 8.2 забезпечить
затримку тривалістю 1 мс. Тож використовуючи генератори
різних тактових частот від 4 до 20 МГц можна
підлаштовувати програму.

260