Слово ERROR: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) |
||
(не показано 18 промежуточных версий этого же участника) | |||
Строка 1: | Строка 1: | ||
'''ERROR''' — | '''ERROR''' — архаичное слово [[Каллисто]]. | ||
ERROR ( c −− ) Вывести сообщение об ошибке c и уйти в QUIT если ERB=0. | ERROR ( c −− ) Вывести сообщение об ошибке c и уйти в QUIT если ERB=0. | ||
[[MESSAGE|Выдача сообщения об ошибке]] с номером c. [[QUIT|Уход на пульт]] [[Каллисто]], если [[ERB]]=0. | |||
== Ввод слова ERROR == | == Ввод слова ERROR == | ||
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите клавиши [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] [[Клавиша ×|{{Серая клавиша|×}}]] [[Клавиша ×|{{Серая клавиша|×}}]] [[Клавиша 5|{{Серая клавиша|5}}]] [[Клавиша ×|{{Серая клавиша|×}}]] | В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите клавиши [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] [[Клавиша ×|{{Серая клавиша|×}}]] [[Клавиша ×|{{Серая клавиша|×}}]] [[Клавиша 5|{{Серая клавиша|5}}]] [[Клавиша ×|{{Серая клавиша|×}}]] | ||
== ERROR в fig-FORTH Release 1 glossary, май 1979 (англ.) == | == История == | ||
Минималистская система обработки ошибок FORTH ИТЭФ вошла в [[Каллисто|Каллисто 1.0]] с минимальными изменениями. При разработке [[Каллисто 2.0]] будет уделено много времени продумыванию новой системы обработки ошибок, с учётом последних стандартов Форта. | |||
=== ERROR в fig-FORTH Release 1 glossary, май 1979 (англ.) === | |||
ERROR line --- in blk | ERROR line --- in blk | ||
Execute error notification and restart of system. WARNING is first | Execute error notification and restart of system. WARNING is first | ||
Строка 19: | Строка 22: | ||
== Реализация == | == Реализация == | ||
<pre> | |||
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 ; Каллисто также запрещает дисковые операции | |||
</pre> | |||
=== Советская реализация === | |||
Юрий Семёнов приводит следующее определение оператора ERROR через слово [[MESSAGE]] (стр. 93): | Юрий Семёнов приводит следующее определение оператора ERROR через слово [[MESSAGE]] (стр. 93): | ||
: ERROR HERE COUNT TYPE ." ? " ( распечатка содержимого | : ERROR HERE COUNT TYPE ." ? " ( распечатка содержимого | ||
Строка 39: | Строка 58: | ||
== Ссылки == | == Ссылки == | ||
* {{Исходник|ERROR|ERROR}} | * {{Исходник|ERROR|ERROR}} | ||
* См. слова [[?ERROR]], [[ERB]] и [[MESSAGE]] | |||
* См. также слова [[?COMP]], [[?CSP]], [[?EXEC]], [[?LOADING]], [[?PAIRS]] и [[?STACK]] | |||
Строка 45: | Строка 66: | ||
[[Категория:Слова Каллисто]] | [[Категория:Слова Каллисто]] | ||
[[Категория:Слова высокого уровня]] | [[Категория:Слова высокого уровня]] | ||
[[Категория:Обработка ошибок Каллисто]] | |||
[[Категория:Слова, способные вызывать авост приложения]] | |||
[[Категория:Архаичные слова]] |
Текущая версия от 20:48, 9 ноября 2017
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
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |