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

Материал из ПМК вики
Перейти к навигации Перейти к поиску
Строка 55: Строка 55:
   ERMES4:  DB  ' PRINTER ERROR $'
   ERMES4:  DB  ' PRINTER ERROR $'
</PRE>
</PRE>
Метки $EM и OK находится в определении [[EMI]]


== Ссылки ==
== Ссылки ==

Версия от 11:56, 28 марта 2016

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

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

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

История

Английское слово bell означает «звонок». Название слова взято из Форта ИТЭФ.

Реализация

В 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 $'

Ссылки

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


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


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