* Подпрограмма задержки:
* Задержка = N x (153,6 + 0,36) мкс, для длительности цикла CPU в 60 нс
* Например, задержка равна 10 мс при N=$41 и длительности цикла CPU 60 нс
*
* Ввод: COUNT = 0
* Вывод: COUNT = 0; A = N
*
Метка Операция Операнд Комментарий
N EQU $41 ; Константа цикла для задержки в 10 мс
*
ORG $50 ; Адресное пространство RAM
COUNT RMB 1 ; Счетчик циклов
*
ORG $6E00 ; Адресное пространство ROM/EPROM
DELAY LDA #N ; Установка константы задержки
LOOPY DBNZ COUNT, LOOPY ; Внутренние циклы (5x256 циклов)
DBNZA LOOPY ; Внешние циклы (3 цикла)
*
|
