BEEP

Материал из ПМК вики
Перейти к навигации Перейти к поиску
Версия для печати больше не поддерживается и может содержать ошибки обработки. Обновите закладки браузера и используйте вместо этого функцию печати браузера по умолчанию.

BEEP (писк) — встроенное слово Каллисто.

BEEP           ( p1 p2 -- )                    Пищать. Издать звук частотой p1 Гц длительностью p2 × 10 мс.

Начать издавать фоновый звуковой сигнал частотой p1 и длительностью p2. Частота измеряется в герцах. Единицей измерения длительности является интервал в 10 миллисекунд. Например,  440 100 BEEP  издаёт сигнал 440 Гц длительностью в 1 секунду.

Если звук уже раздаётся, перед выводом нового звукового сигнала BEEP дожидается окончания предыдущего.

Если длительность равна нулю (p2=0), слово BEEP немедленно останавливает звучащий сигнал и устанавливает тишину.

Ввод слова BEEP

В режиме ЛАТ последовательно нажмите четыре клавиши  В/О   ИП   ИП   6 

Реализация

В Каллисто 1.0 слово BEEP использует для вывода звука регистр 9052:

1026 ;#BEEP
1027 ; BEEP             ( p1 p2 −− )                         Пищать. Издать звук частотой p1 Гц и длительностью p2 × 10 мс.
1028 LBEEP:          .DB     4
1029                 .TEXT   "BEEP"                  ; ( частота длительность −− )
1030                 .DW     LBELL
1031 BEEP:           .DW     JBEEP
1032 JBEEP:          RM3 MA 1 + MB 1 + M3
1033                 KRMA  FX!=0 BPL2                ; Нулевая длительность −− остановка воспроизведения
1034 BPL1:           PPRM 9052  FX=0 BPL1            ; Подождать конца предыдущего сигнала
1035                 KRMB
1036 BPL2:           KRMA PPM 9052                   ; Формирование звукового сигнала
1037                 KGOTO9

Ссылки


  У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.


  Это заготовка статьи. Вы можете помочь проекту, дополнив её.