0⟩

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

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

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

Ввод слова 0>

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

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

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

История

Удивительно, но это слово чуть «менее» стандартно, чем 0< — входящее в ядро CORE стандарта 1994 года и готовящегося стандарта Форта

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.

Реализация

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

 877 STF:            Cx PKM03  KGOTO9                ; [SP] := 0; NEXT
 878 
 879 ;#ZeroMore
 880 ; 0>               ( x −− f )                           Проверить на положительность.
 881 LZGRET:         .DB     2
 882                 .TEXT   "0>"                    ; ( x −− флаг )
 883                 .DW     LZEQU
 884 ZGRET:          .DW     JZGRET
 885 JZGRET:         PKRM03 +/−  PX<0 STF
 886 STT:            1 +/− PKM03  KGOTO9             ; [SP] := −1; NEXT

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

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

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

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

Ссылки

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

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

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