Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте или
создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Правка может быть отменена.
Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия |
Ваш текст |
Строка 1: |
Строка 1: |
| '''!CSP''' — фортовское слово [[Каллисто]]. Сохранить указатель стека. | | '''!CSP''' — стандартное слово [[Каллисто]]. |
| !CSP ( −− ) Запомнить адрес вершины стека в CSP.
| | |
| Запомнить адрес вершины [[Стек данных|стека]] в [[CSP]]. | | Запомнить адрес вершины [[Стек данных|стека]] в [[CSP]]. |
|
| |
|
Строка 14: |
Строка 14: |
|
| |
|
| == Реализация == | | == Реализация == |
| <pre>
| |
| 104 rrCSP .EQU 1114 ; 11114 CSP − контрольное хранение значения указателя стека
| |
| 105 pCSP .EQU 114
| |
| 106 rlCSP .EQU 1115
| |
| …
| |
| 2293 ;#StoreCSP
| |
| 2294 ; !CSP ( −− ) Запомнить адрес вершины стека в CSP.
| |
| 2295 LSCSP: .DB 4
| |
| 2296 .TEXT "!CSP"
| |
| 2297 .DW LCFA
| |
| 2298 SCSP: .DW JSCSP
| |
| 2299 JSCSP: Cx EE 4 RM3 +
| |
| 2300 ENT RME / KINT PPM rrCSP RME ∗ − PPM rlCSP
| |
| 2301 KGOTO9
| |
| </pre>
| |
| Реализация из SP-Forth 4.20:
| |
| <pre>
| |
| : +CSP ( -> P) \ Добавить уровень
| |
| CSP @ DUP CELL+ CSP !
| |
| ;
| |
| …
| |
| : !CSP ( -> ) \ Инициализировать уровень
| |
| SP@ +CSP !
| |
| ;
| |
| </pre>
| |
| === Советская реализация ===
| |
| Определение слова !CSP в ядре ФОРТ-ЕС: | | Определение слова !CSP в ядре ФОРТ-ЕС: |
| <PRE> | | <PRE> |
Строка 55: |
Строка 29: |
| NEXT | | NEXT |
| </PRE> | | </PRE> |
|
| |
| == Ссылки ==
| |
| * {{Исходник|StoreCSP|!CSP}}
| |
| * См. слова [[CSP]], [[?CSP]] и [[?STACK]]
| |
|
| |
|
|
| |
|
Строка 65: |
Строка 35: |
| [[Категория:Слова Каллисто]] | | [[Категория:Слова Каллисто]] |
| [[Категория:Примитивы]] | | [[Категория:Примитивы]] |
| [[Категория:Обработка ошибок Каллисто]] | | [[Категория:Слова Каллисто без стековых диаграмм]] |
| [[Категория:Фортовские слова]]
| |