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

Реализация из SP-Forth 4.20:

: 0> ( n -- flag ) \ 94 CORE EXT
\ flag "истина" тогда и только тогда, когда n больше нуля
  0 >
;

Советская реализация[править]

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

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

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

Ссылки[править]


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


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