Редактирование: !CSP

'''!CSP''' — встроенное слово [[Каллисто]]. Сохранить указатель стека.
 !CSP           ( −− )                               Запомнить адрес вершины стека в CSP.
Запомнить адрес вершины [[Стек данных|стека]] в [[CSP]].

== Ввод слова !CSP ==
В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша П|{{Чёрная клавиша|П}}]] &nbsp; [[Клавиша Р-ГРД-Г|{{Чёрная клавиша|Р-ГРД-Г}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]] [[Клавиша 1|{{Серая клавиша|1}}]] [[Клавиша 6|{{Серая клавиша|6}}]]

Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]].

== !CSP в fig-FORTH Release 1 glossary, май 1979 (англ.) ==
 !CSP
        Save the stack position in CSP. Used as part of the compiler
        security.

== Реализация ==
Определение слова !CSP в ядре ФОРТ-ЕС:
<PRE>
  !CSP      * ->                   ЗАПОМНИТЬ АДРЕС ВЕРШИНЫ СТЕКА В "CSP"  29

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

: !CSP  ( ->)   SP@ CSP ! ;
</PRE>
В FORTH ИТЭФ слово !CSP было [[примитив]]ом, вот его определение:
<PRE>
            HEAD     204Q,'!CS',320Q,SCSP                 ; !CSP
            MOV  WORD PTR [DI]+64Q,SP
            NEXT
</PRE>

== Ссылки ==
* {{Исходник|StoreCSP|!CSP}}
* См. слова [[CSP]], [[?CSP]] и [[?STACK]]


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Обработка ошибок Каллисто]]
@@ Строка 1: / Строка 1: @@
-'''!CSP''' — фортовское слово [[Каллисто]]. Сохранить указатель стека.
+'''!CSP''' — встроенное слово [[Каллисто]]. Сохранить указатель стека.
   !CSP           ( −− )                               Запомнить адрес вершины стека в CSP.
 Запомнить адрес вершины [[Стек данных|стека]] в [[CSP]].
@@ Строка 14: / Строка 14: @@
 == Реализация ==
-<pre>
-rrCSP           .EQU     1114                   ; 11114  CSP − контрольное хранение значения указателя стека
-pCSP            .EQU      114
-rlCSP           .EQU     1115
-…
-;#StoreCSP
-; !CSP             ( −− )                               Запомнить адрес вершины стека в CSP.
-LSCSP:          .DB     4
-                 .TEXT   "!CSP"
-                 .DW     LCFA
-SCSP:           .DW     JSCSP
-JSCSP:          Cx EE 4 RM3 +
-                 ENT RME / KINT PPM rrCSP RME ∗ − PPM rlCSP
-                 KGOTO9
-</pre>
-Реализация из SP-Forth 4.20:
-<pre>
-: +CSP ( -> P)    \ Добавить уровень
-  CSP @ DUP CELL+ CSP !
-;
-…
-: !CSP ( -> )     \ Инициализировать уровень
-  SP@ +CSP !
-;
-</pre>
-=== Советская реализация ===
 Определение слова !CSP в ядре ФОРТ-ЕС:
 <PRE>
@@ Строка 66: / Строка 40: @@
 [[Категория:Примитивы]]
 [[Категория:Обработка ошибок Каллисто]]
-[[Категория:Фортовские слова]]