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

Ссылки[править]


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


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