Слово ERROR

ERROR — архаичное слово Каллисто.

ERROR          ( c −− )                             Вывести сообщение об ошибке c и уйти в QUIT если ERB=0.

Выдача сообщения об ошибке с номером c. Уход на пульт Каллисто, если ERB=0.

Ввод слова ERROR

В режиме ЛАТ последовательно нажмите клавиши  ИП   ×   ×   5   × 

История

Минималистская система обработки ошибок FORTH ИТЭФ вошла в Каллисто 1.0 с минимальными изменениями. При разработке Каллисто 2.0 будет уделено много времени продумыванию новой системы обработки ошибок, с учётом последних стандартов Форта.

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.

Реализация

3289 ;#ERROR
3290 ; ERROR            ( c −− )                             Вывести сообщение об ошибке c и уйти в QUIT если ERB=0.
3291 LERROR:         .DB     5
3292                 .TEXT   "ERROR"                                 ; ( номер −− ) Диагностика ошибок
3293                 .DW     LNUMB
3294 ERROR:          .DW CALL                                        ; Уход в среду Каллисто, если ERB=0
3295 RERROR:         .DW HERE,COUNT,TYPE, PDOTQ
3296                 .DB 3
3297                 .TEXT " ? "
3298                 .DW ERB,UAT, ZBRAN,XER
3299                 .DW ERB,ZSTORE, DROP, EXIT
3300 XER:            .DW MESS, SPSTO, DISKOFF, BRAN,RQUIT            ; Каллисто также запрещает дисковые операции

Советская реализация

Юрий Семёнов приводит следующее определение оператора ERROR через слово MESSAGE (стр. 93):

 : ERROR   HERE COUNT TYPE ." ? "      ( распечатка содержимого
                                         буфера слов)
           ERB @         ( проверка состояния флага блокировки)
           IF 0 ERB ! DROP      ( обнуление ERB и удаление кода
                                  ошибки из стека)
           ELSE MESSAGE                  ( сообщение об ошибке)
           !SP QUIT THEN ;    ( восстановление указателя стека)

Определение слова ERROR в FORTH ИТЭФ:

             HEAD    205Q,'ERRO',322Q,ERROR,$COL          ; ERROR
             DW  HERE,COUNT,$TYPE,PDOTQ
             DB  3 , ' ? '
             DW  ERB,AT,ZBRAN,XER-$
             DW  ZERO,ERB,STORE,DROP,SEMI
   XER:      DW  MESS,SPSTO,QUIT

Ссылки

• Исходный текст слова ERROR в Каллисто Классик 1.0
• См. слова ?ERROR, ERB и MESSAGE
• См. также слова ?COMP, ?CSP, ?EXEC, ?LOADING, ?PAIRS и ?STACK

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

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