ERB
ERB — архаичная переменная Каллисто. Простейшее средство для перехвата приложением обработки ошибок.
ERB ( −− a ) Переменная, флаг блокировки выхода в QUIT при ошибке ERROR.
Блокировка ошибки. Если ERB=0, ERROR работает обычным образом, в противном случае переменная ERB обнуляется, а уход из приложения в Каллисто через QUIT блокируется.
Ввод слова ERB[править]
В режиме ЛАТ последовательно нажмите три клавиши ИП × В/О
Реализация[править]
114 rrERB .EQU 1122 ; 11122 ERB − Блокировка ухода в систему Форт при ERROR 115 pERB .EQU 122 … 2915 ;#ERB 2916 ; ERB ( −− a ) Переменная, флаг блокировки выхода в QUIT при ошибке ERROR. 2917 ; Если ERB=0, ERROR уходит в систему Форт 2918 ; В противном случае переменная ERB обнуляется, а уход из приложения в Форт через QUIT блокируется. 2919 ; Блокировка осуществляется как при "неузнанном" имени, так и при неправильном вводе чисел, 2920 ; включая ошибки, связанные с конфликтами по системе счисления. 2921 ; Ошибку считывания состояния системы по LOAD" заблокировать невозможно. 2922 LERB: .DB 3 2923 .TEXT "ERB" 2924 .DW LEXP 2925 ERB: .DW SUSE 2926 .DB pERB
Советская реализация[править]
Определение переменной ERB в FORTH ИТЭФ:
HEAD 203Q,'ER',302Q,ERB,$USE ; ERB
DW 100Q
Ссылки[править]
- Исходный текст слова ERB в Каллисто Классик 1.0
- См. также слова ERROR, ?ERROR и MESSAGE
|
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |