BELL: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) Нет описания правки |
||
Строка 15: | Строка 15: | ||
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. | ||
== Реализация == | |||
В 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> | |||
Метка OK находится в определении [[EMI]], это просто переход на NEXT | |||
== Ссылки == | == Ссылки == |
Версия от 10:19, 27 марта 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.
Реализация
В FORTH ИТЭФ слово BELL было примитивом, вот его определение:
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 $'
Метка OK находится в определении EMI, это просто переход на NEXT
Ссылки
- См. слово BEEP, которое позволяет контролировать частоту и длительность звукового сигнала.
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |