DEPTH

DEPTH (глубина) — стандартное слово Каллисто.

DEPTH          ( -- u )                        Глубина стека. u — количество значений на стеке данных.

Выдаёт в стек полное количество чисел, хранившихся в стеке до исполнения этой команды.

Ввод слова DEPTH

В режиме ЛАТ последовательно нажмите клавиши  K   ИП   6   2   ПП 

DEPTH в стандарте ANS Forth

6.1.1200   DEPTH                                                           CORE
           ( -- +n )
           +n - количество одно-ячеечных значений, содержавшихся на стеке 
           данных перед тем, как +n было помещено на стек.

FDEPTH в стандарте ANS Forth

12.6.1.1497   FDEPTH                  "f-depth"                        FLOATING
           ( -- +n )
           +n - число значений, содержащихся на отделенном по умолчанию стеке 
           с плавающей точкой. Если числа с плавающей точкой сохраняются на 
           стеке данных, +n является текущим числом возможных значений с 
           плавающей точкой, содержащихся на стеке данных.

DEPTH в предыдущем стандарте Forth-83 (англ.)

     DEPTH        -- +n                         79
          +n is the number of 16-bit values contained in the data
          stack before +n was placed on the stack.

DEPTH в стандарте Forth-79 (англ.)

DEPTH          -- n                          238
    Leave the number of the quantity of 16-bit values contained in
    the data stack, before n added.

История

В Форте FSP88M это слово известно под именем DPT

Реализация

Юрий Семёнов приводит следующее определение слова DEPTH (стр. 151):

 : DEPTH   S0 @ SP@ 2+ - 2/ ;

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

DEPTH     ->+N КОЛИЧЕСТВО ЗНАЧЕНИИ НА СТЕКЕ ДО +N               20

                     Экран номер 20
( 31.03.86    SP@ SP! RP@ RP! 2/ 2* 2@ 2! DEPTH )

: DEPTH ( ->+N)  SP@ S0 @ SWAP - 2/ ;

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

             HEAD    205Q,'DEPT',310Q,DEPTH,$COL          ; DEPTH
             DW  SZERO,AT,SPAT,TWOP,SUB,DIV2,SEMI

Ссылки

• Слова DEPTH и FDEPTH (f-depth) в стандарте ANS Forth (англ.)
• Слова DEPTH и FDEPTH (f-depth) в черновике Forth 200x (англ.)

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

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