[1.4.6] RedPower 2 [Prerelease 6]

Держите!

Скрытый текст

COLD
SAVE" -сохранить данные на дискете и назвать её указанным именем.
DISKWS
DISKID -показать имя образа диска
DISKNAME"
DISKADDR -установить ID используемого диска на шине.
IOXRST -убрать сигнал в указанных битах на IO-EXTENDERе.
IOXSET -установить сигнал в указанных битах на IO-EXTENDERе.
IOX! -установить число в IO-EXTENDER.
IOX@ -извлечь число из IO-EXTENDER.
IOXADDR -установить используемый адрес для IO-EXTENDER.
ERASE -?С помощью этого слова мы забываем (удаляем иа словаря) указанное слово и все слова, внесенные в словарь после него.
TIMES -Запустить программу несколько раз.
TIBFIND
.S
DEPTH -возвращает текущюю глубину стека.
WORDS -вывести список слов из словаря.
QUIT
INTERPRET
ABORT -Завершение выполнения текущей задачи и возврат управления на терминал.
ACCEPT
FIND
RP0
SP0
TICKS -задержка в 0.1 сек. (из стека).
MMUDBG
LEAVE -Немедленное завершение выполнения цикла LOOP или +LOOP. (Используетея только внутри цикла.)
+LOOP -следующая итерация цикла DO с указанным шагом.
LOOP -следующая итерация цикла DO с шагом +1.
?DO -детерминированный цикл с пред проверкй.
DO -детерминированный цикл, 2 параметра (до от).
REPEAT
WHILE
UNTIL
AGAIN -? повтор цикла
BEGIN -начало цикла с пост-условием.
." -вывести строку на дисплей (до знака ").
ELSE -окончание блока с истинным условием и начала ложного.
THEN -окончание блока после IF.
IF -проверка на условие и выполнение 1 из блоков (или обход).
; -выход из режима компиляции.
: -вход в режим компиляции.
REVEAL
HIDE
[
]
VARIABLE -создать переменную.
CONSTANT -создать константу.
CREATE
TIBSPLIT
TIBWORD
,S
,C
,
ALLOT
STATE
HERE
(HERE)
VOCAB
TIBPTR
/MOD -Деление. В стек заносятся остаток и частное.(u1 u2 — n остаток n частное)
S>D
FM/MOD
. -извлечь число из стека и вывести его на экран.
TYPE
SPACE -символ пробела.
(.")
KEY
KEY?
BS -Возврат назад на одну позицию («забой») 8.
EMIT -Вывод символа.(с —)
CR -Возврат каретки и перевод строки.
SCROLL
PAGE -Чистка экрана дисплея и установка курсора в верхний левый угол.
TERMADDR
RBP!
TICK -? задержка на 0.1 секунды. 0,05?
DECIMAL -переключить вывод чисел в десятичной системе счисления.
HEX -переключить вывод чисел в шестнадцетеричной системе счисления.
ATOI
UATOI
ISNUM
ISUNUM
STRCMP
SPLIT
WORD
UITOA
BL
RADIX
TIB
SCRATCH
FALSE -логическая ложь (0).
TRUE -логическая истина (FFFF).
RSTRLEN
STRLEN
MEMCMP
FILL
MOVE
MIN
MAX
CELLS
CELL
= -сравнение двух чисел из стека.
>= -.
<= -.
> -.
< -.
<> -.
0< -сравнение с нулём.
0<> -.
0= -.
RP!
RP@
SP!
SP@
1- -декримент вершины стека.
1+ -инкримент вершины стека.
NEGATE
INVERT
XOR -побитовое исключающее или.
OR -побитовое ИЛИ.
AND -побитовое И.
<< -?побитовый сдвиг влево.
u>> -?побитовый сдвиг вправо.
2/ -деление на 2.
2* -умножение на 2.
SM/REM
* -Умножение.
M*
- -Вычитание
+ -Сложение.
C@
@ -Замещение адреса его содержимым.
C!
-! -Вычитание числа одинарной длины с содержимым заданного адреса.
+! -Сложение числа одинарной длины с содержимым заданного адреса.
! -Запоминание числа одинарной длины по заданному адресу.
R>
>R
TUCK
NIP
-ROT
ROT -Размещение третьего элемента в вершине стека.
2OVER -Копирование второй пары чисел и размещение копии в вершине стека.
OVER -Копирование второго элемента и размещение копии в вершине стека.
PICK -скопировать указанное число на вершину стека.
SWAP -Перестановка двух верхних элементов стека.
2DROP -Удаление из стека двух верхних элементов.
DROP -Удаление из стека верхнего элемента.
2DUP -Дублирование пары чисел, находящейся в вершине стека.
DUP -Дублирование верхнего элемента стека.
?DUP
EXECUTE
J -значение числа-счётчика из цикла DO на уровень выше.
I -значение числа-счётчика из текущего цикла DO.
UNLOOP
(leave)
(+loop)
(loop)
(?do)
(do)
(?branch)
(branch)
EXIT
(lit)
DOVAR
DOCON

Что это?

5. Циклы

На этом я заканчиваю краткий курс по FORTH.

Скрытый текст

Словарь

Цвета проводов в Связках

Bit Dec Hex Color
1 1 0x1 White
2 2 0x2 Orange
3 4 0x4 Magenta
4 8 0x8 Light Blue
5 16 0x10 Yellow
6 32 0x20 Lime
7 64 0x40 Pink
8 128 0x80 Gray
9 256 0x100 Light Gray
10 512 0x200 Cyan
11 1024 0x400 Purple
12 2048 0x800 Blue
13 4096 0x1000 Brown
14 8192 0x2000 Green
15 16384 0x4000 Red
16 32768 0x8000 Black

SAVE" - позволяет сохранить на дискету все данных находящиеся на вашем компьютере. Дискете можно присвоить собственное имя. Для этого после кавычки через пробел пишите название и закрываете кавычкой. Записывается так:

SAVE" Имя_дискеты"

Как делать вложенные циклы?

COLD - перезагружает ОС и сбрасывает все настройки по умолчанию, то есть удаляет все, написанные вами, программы. Вводится без дополнительных элементов:

Ничего подобного! У себя попробовал - ничего не удалилось, ничего не сбросилось. Кстати, я менял приветствие "MineOS V1.0 Initialized", правда, вне игры.

И ещё: можно ли выкладывать образы дискет с фортом?

Куда выкладывать?

IOX@ [paste][/paste]

Входящего? На компьютер что ли? На сколько я знаю, компьютер не является приемником.

Можно сделать пароль на кнопках или рычагах.

А подскажите команду для проверки входящего сигнала с какого-либо провода, пожалуйста. Хочу начать творить на Форте

VARIABLE PASKEY

HEX

: SETKEY4 IOXADDR !IOX@ 7FFF ANDPasKey !RC [paste][/paste]" Current key is "PasKey @ [paste][/paste];

: WAITBLK4 IOXADDR !BEGIN10 TICKSIOX@ 8000 ANDUNTIL;

: BLOCKBEGINWAITBLKIOX@ 7FFF ANDPasKey =UNTIL;

DECIMAL: LAMP3 IOXADDR !1 IOX!100 TICKS0 IOX!;

: MAINBEGINBLOCKLAMP0 UNTIL;

: BLOCKBEGIN4 IOXADDR !    BEGIN    10 TICKS    IOX@ 8000 AND    UNTILIOX@ 7FFF ANDPasKey =UNTIL;

Как будет время создам раздел с программами, в котором первой будет твоя