?CSP

?CSP — фортовское слово Каллисто.

?CSP           ( −− )                               Сгенерировать ошибку 20, если указатель стека отличен от CSP.

Выдать ошибку "сбился указатель стека" если он не равен значению в CSP.

Ввод слова ?CSP

В режиме NUM последовательно нажмите клавиши  K     Р-ГРД-Г   С/П   1   6 

Для возврата в режим NUM нажмите синюю клавишу  P .

?CSP в fig-FORTH Release 1 glossary, май 1979 (англ.)

?CSP
       Issue error message if stack position differs from value saved in
       CSP.

Реализация

3038 ;#qCSP
3039 ; ?CSP             ( −− )                               Сгенерировать ошибку 20, если указатель стека отличен от CSP.
3040 LQCSP:          .DB     4
3041                 .TEXT   "?CSP"
3042                 .DW     LQPAIR                  ; Выдать ошибку "сбился указатель стека" если он не равен значению в "CSP".
3043 QCSP:           .DW CALL, SPAT,CSP,UAT,SUB, LITB
3044                 .DB 20
3045                 .DW BRAN,RQERR

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

Описание и определение слова ?CSP в ядре ФОРТ-ЕС:

?CSP    * -> ВЫДАТЬ ОШИБКУ "СБИЛСЯ УКАЗАТЕЛЬ СТЕКА"             29
          ЕСЛИ ОН НЕ РАВЕН ЗНАЧЕНИЮ В "CSP"

                     Экран номер 29
( 31.03.86 ПРОВЕРКИ И СИГНАЛИЗАЦИИ ОБ ОШИБКАХ )

: ABORT"  ( F->)  COMPILE (A") ," ; IMMEDIATE

: ?CSP  ( ->)  SP@ CSP @ - ABORT" СБИЛСЯ УКАЗАТЕЛЬ СТЕКА" ;

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

             HEAD    204Q,'?CS',320Q,QCSP,$COL            ; ?CSP
             DW  SPAT,CSP,AT,SUB,LIT,24Q,QERR,SEMI

Ссылки

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

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

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