Палитра Каллисто: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) |
AtH (обсуждение | вклад) Нет описания правки |
||
Строка 44: | Строка 44: | ||
( от n1 до n2 включительно) | ( от n1 до n2 включительно) | ||
1+ over - for ↑ load 1+ next drop ; | 1+ over - for ↑ load 1+ next drop ; | ||
== Отладка == | |||
: ? ( a -- ) @ . ; | |||
== Остальное == | == Остальное == |
Версия от 01:18, 12 сентября 2015
Чтобы предоставить вам больше места для творчества, следующие слова не включены в ядро Каллисто. При необходимости они могут быть скопированы отсюда и добавлены программистом в свой исходный код.
Константы
0 Constant false -1 Constant true '"' Constant quote
Определяющие слова
: Array ( #cells -- ) <Builds 2× allot DOES> ( i -- ’cell) ↔ 2× + ;
Манипуляции со стеком
: -rot ( a b c -- c a b ) rot rot ;
Арифметика
: 2- ( a -- a-2 ) 1- 1- ; : <= ( a,b ---> a <= b ) ↔ < 0= ; : ≥ ( a,b ---> a ≥ b ) ↔ > 0= ; : ≠ ( a,b ---> a ≠ b ) = 0= ; : D0= ( aa ---> aa = 0 ) or 0= ; : under+ ( a b c -- a+c b ) rot + ↔ ; : within ( n lo hi+1 -- ? ) >r 1- over < ↔ r> < and ;
Работа с памятью
: 0! ( a -- ) 0 ↔ ! ; : 2@ ( a -- bb ) ↑ 2+ @ ↔ @ ;
Работа со словарём
: >body ( CFA -- PFA ) 2+ ;
Ввод-вывод
Вывод строк, завершающихся нулевым символом:
: typez ( a -- ) BEGIN ↑ c@ ↑ WHILE emit 1+ REPEAT 2drop ;
Работа с внешней памятью
: thru ( n1,n2 -- Интерпретировать экраны) ( от n1 до n2 включительно) 1+ over - for ↑ load 1+ next drop ;
Отладка
: ? ( a -- ) @ . ;
Остальное
: octal 8 base ! ;