Редактирование: Палитра Каллисто
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 4: | Строка 4: | ||
== Константы == | == Константы == | ||
2 Constant cell | 2 Constant cell | ||
0 Constant false | |||
-1 Constant true | |||
8 Constant 8 | 8 Constant 8 | ||
10 Constant 10 | 10 Constant 10 | ||
Строка 25: | Строка 27: | ||
== Арифметика == | == Арифметика == | ||
: 2- ( a -- a-2 ) body> ; | |||
: <= ( a,b -- a <= b ) ↔ < 0= ; | : <= ( a,b -- a <= b ) ↔ < 0= ; | ||
: ≥ ( a,b -- a ≥ b ) ↔ > 0= ; | : ≥ ( a,b -- a ≥ b ) ↔ > 0= ; | ||
Строка 34: | Строка 37: | ||
== Работа с памятью == | == Работа с памятью == | ||
: 0! ( a -- ) 0 ↔ ! ; | |||
: 1+! ( a -- ) 1 ↔ +! ; | : 1+! ( a -- ) 1 ↔ +! ; | ||
: 1-! ( a -- ) -1 ↔ +! ; | : 1-! ( a -- ) -1 ↔ +! ; | ||
Строка 39: | Строка 43: | ||
: 2! ( bb a -- ) ↑ >r ! r> 2+ ! ; | : 2! ( bb a -- ) ↑ >r ! r> 2+ ! ; | ||
: compile, ( a --) , ; | : compile, ( a --) , ; | ||
== Числа двойной длины == | == Числа двойной длины == | ||
Строка 61: | Строка 66: | ||
== Работа с внешней памятью == | == Работа с внешней памятью == | ||
: thru ( n1,n2 -- Интерпретировать экраны) | |||
( от n1 до n2 включительно) | |||
1+ over - for ↑ load 1+ next drop ; | |||
: sclr ( n -- ) ." S# " s. ." Clear ? <Y/CR> " | : sclr ( n -- ) ." S# " s. ." Clear ? <Y/CR> " | ||
key 'Y' = IF buffer b/buf blank update flush then ; | key 'Y' = IF buffer b/buf blank update flush then ; | ||
: .line (line) type ; | : .line (line) type ; | ||
== Отладка == | == Отладка == | ||
: c? ( a -- ) c@ . ; | : c? ( a -- ) c@ . ; | ||
: рег? ( u -- ) | : рег? ( u -- ) рег@ . ; | ||
: s. ( a -- a ) ↑ . ; | : s. ( a -- a ) ↑ . ; | ||
: h. ( a -- a ) base @ hex over i. base ! ; | : h. ( a -- a ) base @ hex over i. base ! ; | ||
Строка 79: | Строка 88: | ||
: grads 2 9045 рег! ; | : grads 2 9045 рег! ; | ||
: cells 2× ; | : cells 2× ; | ||
: recurse ?comp last name> , ; immediate | : recurse ?comp last name> , ; immediate | ||
: defer! ( xt2 xt1 -- ) >body ! ; | : defer! ( xt2 xt1 -- ) >body ! ; |