Редактирование: 0⟩

'''0&gt;''' (нуля больше) — стандартное слово [[Каллисто]]. Проверить, положительное ли число.
 0>             ( x -- f )

Сравнивает x с нулём и засылает в [[Стек данных|стек]] флаг «истинно» (f=-1), если x&gt;0 и флаг «ложно» (f=0), если x≤0.

== Ввод слова 0&gt; ==
В [[Режим NUM|режиме NUM]] последовательно нажмите три клавиши [[Клавиша 0|{{Серая клавиша|0}}]] &nbsp; [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]]

== 0&gt; в стандарте ANS Forth ==
 6.2.0280   0>                          "zero-greater"                  CORE EXT
            ( n -- flag )
            flag - true, если и только если n - больше нуля.

== История ==
Удивительно, но это слово чуть «менее» стандартно, чем [[0⟨|0&lt;]] — входящее в ядро CORE стандарта 1994 года и готовящегося стандарта Форта

=== 0&gt; в предыдущем стандарте Forth-83 (англ.) ===
      0>           n -- flag                     83      "zero-greater"
           flag is true if n is greater than zero.

=== 0&gt; в стандарте Forth-79 (англ.) ===
 0>             n -- flag                     118     "zero-greater"
     True if n is greater than zero.

== Реализация ==
Слово 0&gt; в качестве флага «истинно» возвращает -1, что позволяет использовать результат f в логических операция [[AND]], [[OR]], [[XOR]] и [[NOT]]. Разумеется, при этом другие аргументы этих операций тоже должны использовать -1 в качестве флага «истинно». Все слова [[Каллисто]], возвращающие флаги, используют в качестве флага «истинно» -1.
<pre>
 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
</pre>
Реализация из SP-Forth 4.20:
<pre>
: 0> ( n -- flag ) \ 94 CORE EXT
\ flag "истина" тогда и только тогда, когда n больше нуля
  0 >
;
</pre>

=== Советская реализация ===
В FORTH ИТЭФ слово 0&gt; было [[примитив]]ом, вот его определение:
<PRE>
             HEAD    202Q,'0',276Q,ZGRET                  ; 0>
             POP   AX
             CMP   AX, 0
             JG    TRUE
             JMP   FALSE
</PRE>
Метки TRUE и FALSE см. в определении слова [[0=]]

== Ссылки ==
* {{Исходник|ZeroMore|0&gt;}}
* См. слова [[⟩|&gt;]], [[0=]] и [[0⟨|0&lt;]]
* См. также [[Символ с кодом 62|символ &gt;]]
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.2.0280 0&gt; (zero-greater)] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth-standard.org/standard/core/Zeromore 0&gt; (zero-greater)] в черновике Forth 200x ''(англ.)''
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\04.%20KOMPJUTER%20%22PRINIMAET%20RESENIA%22 КОМПЬЮТЕР "ПРИНИМАЕТ РЕШЕНИЯ"] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»]
* [http://www.forth.com/starting-forth/sf4/sf4.html Decisions, Decisions…] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)''


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Одноместные операции Каллисто]]
[[Категория:Операции сравнения Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE EXT]]
[[Категория:2012 CORE EXT]]