Слово ERROR
ERROR — стандартное слово Каллисто.
Диагностика ошибок Форт ИТЭФ
Ввод слова ERROR
В режиме ЛАТ последовательно нажмите клавиши ИП × × 5 ×
ERROR в fig-FORTH Release 1 glossary, май 1979 (англ.)
ERROR line --- in blk Execute error notification and restart of system. WARNING is first examined. If 1, the text of line n, relative to screen 4 of drive O is printed. This line number may be positive or negative, and beyond just screen 4. If WARNING=O, n is just printed as a message number (non disc installation). If WARNING is -l, the definition (ABORT) is executed, which executes the system ABORT. The user may cautiously modify this execution by altering (ABORT). fig-FORTH saves the contents of IN and BLK to assist in determining the location of the error. Final action is execution of QUIT.
Реализация ERROR
Юрий Семёнов приводит следующее описание оператора ERROR через слово MESSAGE (стр. 93):
: ERROR HERE COUNT TYPE ." ? " ( распечатка содержимого буфера слов) ERB @ ( проверка состояния флага блокировки) IF 0 ERB ! DROP ( обнуление ERB и удаление кода ошибки из стека) ELSE MESSAGE ( сообщение об ошибке) !SP QUIT THEN ; ( восстановление указателя стека)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |