0⟩

0> (нуля больше) — стандартное слово Каллисто. Проверить, положительное ли число.

0>             ( x -- f )                      Проверка на положительность.

Сравнивает x с нулём и засылает в стек флаг «истинно» (f=-1), если x>0 и флаг «ложно» (f=0), если x≤0.

Ввод слова 0>

В режиме NUM последовательно нажмите три клавиши  0     F   ИП 

Детали реализации

Слово 0> в качестве флага «истинно» возвращает -1, что позволяет использовать результат f в логических операция AND, OR, XOR и NOT. Разумеется, при этом другие аргументы этих операций тоже должны использовать -1 в качестве флага «истинно». Все слова Каллисто, возвращающие флаги, используют в качестве флага «истинно» -1.

0> в стандарте ANS Forth

6.2.0280   0>                          "zero-greater"                  CORE EXT
           ( n -- flag )
           flag - true, если и только если n - больше нуля.

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

     0>           n -- flag                     83      "zero-greater"
          flag is true if n is greater than zero.

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

0>             n -- flag                     118     "zero-greater"
    True if n is greater than zero.

Реализация

В FORTH ИТЭФ слово 0> тоже было примитивом, вот его определение:

             HEAD    202Q,'0',276Q,ZGRET                  ; 0>
             POP   AX
             CMP   AX, 0
             JG    TRUE
             JMP   FALSE

Метки TRUE и FALSE см. в определении слова 0=

Ссылки

• См. слова >, 0= и 0<
• См. также символ >
• Слово 0> (zero-greater) в стандарте ANS Forth (англ.)
• Слово 0> (zero-greater) в черновике Forth 200x (англ.)
• КОМПЬЮТЕР "ПРИНИМАЕТ РЕШЕНИЯ" в книге Л.Броуди «Начальный курс программирования на языке Форт»
• Decisions, Decisions… в книге Leo Brodie Starting Forth (англ.)

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

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