BELL: различия между версиями

Материал из ПМК вики
Перейти к навигации Перейти к поиску
 
(не показано 12 промежуточных версий этого же участника)
Строка 1: Строка 1:
'''BELL''' (звонок) — стандартное слово [[Каллисто]].
'''BELL''' (звонок) — фортовское слово [[Каллисто]].
  BELL          ( -- )                          Звонок. Озвучить гудок терминала.
  BELL          ( -- )                          Звонок. Озвучить гудок терминала.
Издать короткий звуковой сигнал для привлечения внимания оператора. Этот же звук можно получить, [[EMIT|выведя на индикатор]] [[символ с кодом 7]].
Издать короткий звуковой сигнал для привлечения внимания оператора. Этот же звук можно получить, [[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
       BELL        --                            M
           Activate a terminal bell or noise-maker as appropriate to
           Activate a terminal bell or noise-maker as appropriate to
           the device in use.
           the device in use.


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


== История ==
== Реализация ==
Английское слово [http://www.lingvo-online.ru/ru/Translate/en-ru/bell ''bell''] означает «звонок». Название слова взято из Форта ИТЭФ.
<pre>
246 CHPUTBELL:      440 ENT 10 PPM9052 RTN          ; Издать короткий звуковой сигнал
1016 ; ∗∗∗ Электронный звук ∗∗∗
1017
1018 ;#BELL
1019 ; BELL            ( −− )                              Звонок. Озвучить гудок терминала.
1020 LBELL:         .DB    4
1021                .TEXT  "BELL"
1022                .DW    LCR
1023 BELL:          .DW    JBELL
1024 JBELL:          PGSB CHPUTBELL  KGOTO9
</pre>


== Реализация ==
=== Советская реализация ===
В FORTH ИТЭФ слово BELL было [[примитив]]ом, вот его определение:
В FORTH ИТЭФ слово BELL было [[примитив]]ом, вот его определение:
<PRE>
<PRE>
Строка 27: Строка 44:
             ...
             ...
   $EM:      INT  16
   $EM:      INT  16
             CMP  WORD PTR [DI+42Q),0
             CMP  WORD PTR [DI+42Q],0
             JNE  PRINT
             JNE  PRINT
   OK:      NEXT
   OK:      NEXT
Строка 55: Строка 72:
   ERMES4:  DB  ' PRINTER ERROR $'
   ERMES4:  DB  ' PRINTER ERROR $'
</PRE>
</PRE>
Метки $EM и OK находится в определении [[EMI]]


== Ссылки ==
== Ссылки ==
* {{Исходник|BELL|BELL}}
* См. слово [[BEEP]], которое позволяет контролировать частоту и длительность звукового сигнала.
* См. слово [[BEEP]], которое позволяет контролировать частоту и длительность звукового сигнала.
* См. также слово [[(PLAY)]], которое позволяет проигрывать целые мелодии





Текущая версия от 08:53, 9 ноября 2017

BELL (звонок) — фортовское слово Каллисто.

BELL           ( -- )                          Звонок. Озвучить гудок терминала.

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

Ввод слова BELL[править]

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

История[править]

Слово BELL перешло в Каллисто из Форта ИТЭФ. Современные стандарты Форта никак не регламентируют извлечение звука, но слово BELL присутствовало в стандартах Форта до 1994 года.

Первое найденное упоминание о слове BELL датируется 1979 годом. Английское слово 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.

Реализация[править]

 246 CHPUTBELL:      440 ENT 10 PPM9052 RTN          ; Издать короткий звуковой сигнал
…
1016 ; ∗∗∗ Электронный звук ∗∗∗
1017 
1018 ;#BELL
1019 ; BELL             ( −− )                               Звонок. Озвучить гудок терминала.
1020 LBELL:          .DB     4
1021                 .TEXT   "BELL"
1022                 .DW     LCR
1023 BELL:           .DW     JBELL
1024 JBELL:          PGSB CHPUTBELL  KGOTO9

Советская реализация[править]

В FORTH ИТЭФ слово BELL было примитивом, вот его определение:

             HEAD    202Q,'I',314Q,IL                     ; BELL
             MOV   AX, 7
             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
             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 $'

Ссылки[править]


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


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