TRUE
TRUE («истина») — стандартная константа Каллисто.
TRUE ( -- -1 ) Истина. Число -1.
Примитив TRUE кладёт на стек число -1. Хотя это стандартное значение для истины, надо помнить, что истиной в Каллисто также считается любое число, отличное от нуля.
Ввод слова TRUE[править]
В режиме ЛАТ нажмите 2 × 3 ИП
TRUE в стандарте ANS Forth[править]
6.2.2298 TRUE CORE EXT
( -- true )
Возвращает флаг true, значение одна-ячейка со всеми установленными
битами.
См.: 3.1.3.1 Флаги.
A.6.2.2298 TRUE
TRUE эквивалентно фразе 0 0=.
История[править]
Истина стала кодироваться числом -1 в 1983 году, в этом виде и вошло в Каллисто. Само слово TRUE стало стандартным для Форта в 1994 году.
Если на Каллисто переносятся более древние программы, надо учитывать, что до 1983 года значение истины в Форте равнялось единице. Следы этого старого соглашения остались в Каллисто 1.0 — см. слова DIGIT, FINDN, (FIND).
Значение TRUE в Форте-83[править]
true
A non-zero value represents the true state of a flag. Any
non-zero value will be accepted by a standard word as
'true'; all standard words return a 16-bit value with all
bits set to one when returning a 'true' flag.
Значение TRUE в Форте-79[править]
true
A non-zero value represents the true condition flag. Any non-
zero value will be accepted by a standard word as 'true'; all
standard words return one when leaving a ' true' flag.
Реализация[править]
Слово TRUE названо константой по его действию. В Каллисто 1.0 оно не имеет отношения к порождающему слову CONSTANT и является примитивом.
Слово TRUE занимает меньше места в шитом коде, компилируется и исполняется быстрее, чем литерал -1. Поэтому его удобно использовать вместо числа -1, например TRUE p +! уменьшает переменную p на единицу.
2667 ;#TRUE 2668 ; TRUE ( −− −1 ) Истина. Число −1. 2669 LTRUE: .DB 4 2670 .TEXT "TRUE" 2671 .DW LTWO 2672 TRUE: .DW JTRUE 2673 JTRUE: 1 +/− KM3 KGOTO9
Реализация из SP-Forth 4.20:
-1 CONSTANT TRUE ( -- true ) \ 94 CORE EXT \ Вернуть флаг "истина", ячейку со всеми установленными битами.
Советская реализация[править]
Формально слова TRUE в FORTH ИТЭФ не было, но в его исходном тексте есть такие строчки:
; ** Стандартные слова **
; ** Условные операторы **
HEAD 202Q,'0',275Q,ZEQU ; 0=
POP AX
CMP AX, 0
JE TRUE
FALSE: SUB AX, AX
PUT: PUSH AX
NEXT
TRUE: MOV AX, 1
JMP PUT
ФОРТ-ЕС использовал -1 в качестве булевского значения ИСТИНА.
Ссылки[править]
- Исходный текст слова TRUE в Каллисто Классик 1.0
- См. слова FALSE, 1 и 2
- Слово TRUE и комментарий к нему в стандарте ANS Forth (англ.)
- Слово TRUE и комментарий к нему в черновике Forth 200x (англ.)