Редактирование: BELL

'''BELL''' (звонок) — стандартное слово [[Каллисто]].
 BELL           ( -- )                          Звонок. Озвучить гудок терминала.
Издать короткий звуковой сигнал для привлечения внимания оператора. Этот же звук можно получить, [[EMIT|выведя на индикатор]] [[символ с кодом 7]].

== Ввод слова BELL ==
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите четыре клавиши [[Клавиша В/О|{{Чёрная клавиша|В/О}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] [[Клавиша -|{{Серая клавиша|−}}]] [[Клавиша -|{{Серая клавиша|−}}]]

== BELL в предыдущем стандарте Forth-83 (англ.) ==
      BELL         --                            M
           Activate a terminal bell or noise-maker as appropriate to
           the device in use.

== BELL в стандарте Forth-79 (англ.) ==
 BELL
     Activate  a terminal bell or noise-maker as appropriate to the
     device in use.

== Реализация ==
В FORTH ИТЭФ слово BELL было [[примитив]]ом, вот его определение:
<PRE>
             HEAD    202Q,'I',314Q,IL                     ; BELL
             MOV   AX, 7
             JMP   ENT$
             ...
             HEAD    204Q,'EMI',324Q,EMIT,$EMIT           ; EMIT
   $EMIT     LABEL   FAR
             POP   AX
   ENT$:     PUSH  AX
             MOV   AH, 15
             INT   16
             POP   AX
             MOV   AH, 14
             JMP   $EM
   PRINT:    MOV   DX, 0   ; Установка номера принтера
             SUB   AH, AH
             INT   23
             TES   AH, 51Q
             JE    OK
   ERR4:     MOV   AL, AH
             ADD   AL, 60Q
             MOV   AH, 14
             INT   16
             MOV   DX, OFFSET ERMES4
             MOV   AH, 9H
             INT   21H
             JMP   TYPE$
   ERMES4:   DB   ' PRINTER ERROR $'
</PRE>
Метки $EM и OK находится в определении [[EMI]]

== Ссылки ==
* См. слово [[BEEP]], которое позволяет контролировать частоту и длительность звукового сигнала.


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Слова для звука на Каллисто]]
[[Категория:Терминальный ввод/вывод Каллисто]]
@@ Строка 1: / Строка 1: @@
-'''BELL''' (звонок) — фортовское слово [[Каллисто]].
+'''BELL''' (звонок) — стандартное слово [[Каллисто]].
   BELL           ( -- )                          Звонок. Озвучить гудок терминала.
 Издать короткий звуковой сигнал для привлечения внимания оператора. Этот же звук можно получить, [[EMIT|выведя на индикатор]] [[символ с кодом 7]].
@@ Строка 6: / Строка 6: @@
 В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите четыре клавиши [[Клавиша В/О|{{Чёрная клавиша|В/О}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] [[Клавиша -|{{Серая клавиша|−}}]] [[Клавиша -|{{Серая клавиша|−}}]]
-== История ==
+== BELL в предыдущем стандарте Forth-83 (англ.) ==
-Слово BELL перешло в [[Каллисто]] из Форта ИТЭФ. Современные стандарты Форта никак не регламентируют извлечение звука, но слово BELL присутствовало в стандартах Форта до 1994 года.
-Первое найденное упоминание о слове BELL датируется 1979 годом. Английское слово [http://www.lingvo-online.ru/ru/Translate/en-ru/bell ''bell''] означает «звонок».
-=== BELL в предыдущем стандарте Forth-83 (англ.) ===
        BELL         --                            M
             Activate a terminal bell or noise-maker as appropriate to
             the device in use.
-=== BELL в стандарте Forth-79 (англ.) ===
+== BELL в стандарте Forth-79 (англ.) ==
   BELL
       Activate  a terminal bell or noise-maker as appropriate to the
@@ Строка 22: / Строка 17: @@
 == Реализация ==
-<pre>
-CHPUTBELL:      440 ENT 10 PPM9052 RTN          ; Издать короткий звуковой сигнал
-…
-; ∗∗∗ Электронный звук ∗∗∗
-;#BELL
-; BELL             ( −− )                               Звонок. Озвучить гудок терминала.
-LBELL:          .DB     4
-                 .TEXT   "BELL"
-                 .DW     LCR
-BELL:           .DW     JBELL
-JBELL:          PGSB CHPUTBELL  KGOTO9
-</pre>
-=== Советская реализация ===
 В FORTH ИТЭФ слово BELL было [[примитив]]ом, вот его определение:
 <PRE>
@@ Строка 43: / Строка 23: @@
               JMP   ENT$
               ...
-   $EM:      INT   16
-             CMP   WORD PTR [DI+42Q],0
-             JNE   PRINT
-   OK:       NEXT
               HEAD    204Q,'EMI',324Q,EMIT,$EMIT           ; EMIT
     $EMIT     LABEL   FAR
@@ Строка 72: / Строка 47: @@
     ERMES4:   DB   ' PRINTER ERROR $'
 </PRE>
+Метки $EM и OK находится в определении [[EMI]]
 == Ссылки ==
-* {{Исходник|BELL|BELL}}
 * См. слово [[BEEP]], которое позволяет контролировать частоту и длительность звукового сигнала.
-* См. также слово [[(PLAY)]], которое позволяет проигрывать целые мелодии