[1.4.6] RedPower 2 [Prerelease 6]

То же, что и Транспортёр, но имеет 9 слотов, которые определяют допустимые предметы, машина будет работать только с ними[paste][/paste] Если фильтр с пустыми слотами [b]получит импульс[/b], то он заберет из инвентаря перед ним стак любого предмета[paste][/paste] Если в слоте будет предмет, то он заберет только этот предмет[paste][/paste] Если в слоте будет несколько одинаковых предметов, то он заберет столько же предметов[paste][/paste]

Здравствуйте. Третий день мучаюсь. Как передавать значение переменных между компьютерами? И как можно реализовать следующее? Второй комп ожидает, когда первый отправит цифру, и если она 0<>, то выполнит слово slovo.

Эммм.... Некропостить то зачем? Неужели до сих пор на 1.4.7 играете? Или ваш вопрос не о red power а по project red? 

Эммм.... Некропостить то зачем? Неужели до сих пор на 1.4.7 играете? Или ваш вопрос не о red power а по project red?

Вполне заслуженно. Элораам плюнула на развитие мода, а старые версии модов большинству неинтересны.

К тому же, возможности данного мода уже неплохо реализованы в других модах.

А Элораам респект, она сделала в своё время прекрасный мод, да и не только его ))

Здравствуйте

Подскажите мне нужно что бы сортон брал с сундука со всех слотов, но определенное  количество  

т.е  не с 0 слота, а искал если на 0 слоте нету предметов и брал с дргова слота 

КАК ПРИМЕР

4 SORTADDR !

10 0 SORTPULL 

Ребят,может пишу не туда,но кто знает помогите.Программирую Sortron на MineOs 1.2Программа выглядит так: test4 SORTADDR !100 0 SORTPULL;При этой программе сортрон с ид 4 отправляет вещи в желтый цвет. Но он отправляет из 0 слота. Как сделать чтоб он отправлял из всего сундука,если нужно больше 200 предметов. Заранее спасибо.

Edited by IIoZiTiV, 14.06.2018 - 14:47.

Это не совсем правильная программа. SORTPULL кладет в стек количество перемещенных предметов. Поэтому нужно хотя бы удалить это из стека, иначе стек когда-нибудь переполнится. То есть, в данном случае после 100 0 SORTPULL нужно было добавить DROP.

А так тебе наверное надо 100 0 SORTPULL заменить на цикл:20010 0 DO  DUP  I SORTPULL -LOOPDROP

Число 10 заменить в соответствии с количеством слотов в сундуке. Также возможно стоит добавить выход из цикла при извлечении заданного количества предметов, т.к. при каждом обращении к периферии создается задержка в 1 тик, если я правильно помню.

Но что ты творишь? Ты же пишешь на еле живой форум в совсем мертвую тему. Да еще предыдущий вопрос в этой теме полностью аналогичен твоему.

Ребят, кто хорошо знает FORTH и все прелести SORTRON просьба отписаться

Примечание модератора [NitroBoy2]

Каждый новый пользователь проходит ручную премодерацию первого сообщения для защиты от спам-ботов, на премодерацию может уйти какое-то время Объединил сообщения.

Скиньте Программу набора текста пожалуйста
а то ссылка битая 

 Добавлено спустя 38 секунд:

В этих вкладках собраны несколько гайдов, программ и механизмов. Надеюсь, вы найдёте их полезными.
Гайдов по ассемблеру не будет.

Скрыть

Управление сигналами. (Декодер)

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

Возможности компьютера были бы сильно ограничены, если бы он не имел возможности взаимодействовать с внешним миром. Один из способов взаимодействия - управление редстоун сигналами, но компьютер не может генерировать и принимать их напрямую. Для этого нужен специальный прибор - декодер. Когда вы размещаете декодер в мире его ID устанавливается на 3, которое можно поменять нажав Shift+ПКМ с отвёрткой в руке (из-за бага не работает в версии pre6). К декодеру нужно подключить связку проводов, сигналами в которой вы хотите управлять.
В стандартном форте есть специальные слова, начинающиеся с IOX (от английского I/O eXpander), которые и управляют декодером.
Начнём с IOXADDR. Это просто переменная, которая содержит ID декодера, к которому будет обращаться все нижеследующие команды. Чтобы переключиться на другой декодер с номером n, нужно выполнить следующую команду: n IOXADDR !. Не обязательно устанавливать это число при каждом обращении к командам IOX, т.к. эта переменная сохраняет своё значение.

Следующее - кодирование цветов.
Цвета кодируются простым числом. Точнее это 2 байта, где каждый бит соответствует состоянию сигнала в отдельном цвете связки. Для удобства можно использовать следующую таблицу:

Col	Bit	Dec	Hex	Цвет
	0	1	0х0001	Белый / White
	1	2	0х0002	Ораньжевый / Orange
	2	4	0х0004	Пурпурный / Magenta
	3	8	0х0008	Светло-синий / Light blue
	4	16	0х0010	Жёлтый / Yellow
	5	32	0х0020	Светло-зелёный / Lime
	6	64	0х0040	Розовый / Pink
	7	128	0х0080	Серый / Grey
	8	256	0х0100	Светло-серый / Light grey
	9	512	0х0200	Голубой / Cyan
	10	1024	0х0400	Фиолетовый / Purple
	11	2048	0х0800	Синий / Blue
	12	4096	0х1000	Коричневый / Brown
	13	8192	0х2000	Зелёный / Green
	14	16384	0х4000	Красный / Red
	15	32768	0х8000	Чёрный / Black

(Биты нумеруются от 0 справа налево. Bit - номер бита. Dec - десятичное число. Hex - шестнадцатеричное.)

Сумма чисел отдельных цветов дают код, соответствующий наличию сигнала в этих проводах. Например, если в связке есть сигнал только в белом, светло-синем и сером, то это 137 (или 0х0089). Действительно: 1+8+128=137 (или 0x0001+0x0008+0x0080=0x0089).
Обратите внимание, что число в колонке Dec это 2N, где N - число в столбике Bit, а в столбике Hex - просто шестнадцатеричное представление этого числа.

Научившись кодировать сигналы можно их читать и устанавливать. Слово IOX@ оставляет на стеке число, соответствующее текущему состоянию в связке, а IOX! - забирает со стека число и декодер будет генерировать только указанные сигналы.

С этим всё просто, но бывает необходимость включить или выключить генерацию сигнала в отдельных проводах так, чтобы не затронуть другие сигналы. Для этого есть слова IOXSET и IOXRST. Первый включает, а второй выключает генерацию указанных цветов.

Ещё одна необходимость - чтение отдельных цветов. Например ваша программа должна выполнять некоторое действие если нажата кнопка/плита. Пусть сигнал подаётся в белый провод. Ошибочно программу пишут так: IOX@ 1 = IF <действие> THEN. Это работает, но только если ничего не создаёт сигнал кроме вышеуказанной кнопки. Правильнее будет использовать вместо равенства логическое "И": IOX@ 1 AND IF <действие> THEN. По сути AND зануляет все биты кроме указанных. Ещё одна особенность - после AND не нужно проводить дополнительных сравнений, т.к. условие считается истинным если число на стеке не 0.
Ещё 1 мелочь: как определить что отдельный сигнал больше не генерируется? Точно также как вы определяли наличие сигнала, только нужно поменять условие так: IOX@ 1 AND 0=.

Массивы и строки

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

В MineOS нет слова ARRAY и ему подобных, но при этом в Форте можно легко организовать массивы. Начнём с определения:
Из этого определения становится ясно, что нам нужен непрерывный участок памяти. Этот участок можно зарезервировать с помощью слова ALLOT, но необходимо запомнить где находится начало этого участка.
Полностью конструкция выглядит так:
<размер в байтах> ALLOT CONSTANT <название>

Оффтопик

Замечание: по стандарту ALLOT не должен возвращать адрес зарезервированной области, поэтому в других Форт-системах используется такая конструкция:
CREATE <название> <размер> ALLOT

Массив создали. Теперь как из него получать нужные элементы? Оказывается очень просто: нужно к адресу начала прибавить номер элемента, умноженного на размер 1 элемента этого массива. Формулой это выглядит так: addr + I*n, где addr - начало массива; I - номер элемента; n - размер 1 элемента. Помните, что элементы нумеруются от нуля.
Также можно создать и двухмерные массивы. В таком случае это будет массив массивов. Вычисление адреса немного усложняется, т.к. сперва нужно найти адрес нужной строки (или столбца, в зависимости от того как вам удобнее), а затем в ней найти адрес нужного элемента.
Формулой это выглядит так: addr + I*m + J*n, где m - размер 1 строки, n - 1 элемента.

Строки.
По сути, строка это тот же массив, где каждый элемент это один символ (литера). Данная реализация Форт-системы использует только нуль-терминированные строки. Это значит, что конец строки определяется байтом, значение которого равно нулю.
Строки-переменные создаются точно также как и массивы, но помните, что размер нужно брать на 1 больше желаемого предела (это место займёт тот самый нулевой байт).

Коротко пройдёмся по словам, которые работают со строками. Для примеров будут использоваться вот такие переменные:

20 ALLOT CONSTANT STR20 ALLOT CONSTANT BUF

Слова.
Во-первых, нам надо эти строки заполнять. Для этого используется слово ACCEPT.
STR 20 ACCEPT <нажимаем Enter, вводим текст и снова Enter>
Во-вторых, нужно каким-то образом узнать содержимое строки. Нужное слово - TYPE:
STR TYPE <после нажатия на Enter на экране появится ранее введённый текст>
Необходимый минимум есть. Теперь давайте сравнивать строки:
STRCMP оставит на стеке TRUE, если строки не равны.
Например, если STR содержит пароль, то можно сделать такую программку:

: CMPTESTBUF 20 ACCEPT STR STRCMPIF [paste][/paste]" Wrong password"ELSE [paste][/paste]" Correct password"THEN ;

Копирование строк.
BUF STR 20 MOVE
Содержимое BUF скопируется в STR. Тут нужно быть внимательным к размеру строк, чтобы не задеть рабочий код, т.к. подобная проверка целиком и полностью лежит на плечах программиста.

Размер строки.
В предыдущем примере вместо "20" можно написать так: OVER STRLEN 1+
Да, это больше по коду, но в таком случае не нужно вводить размер строки. Это позволяет написать такое слово:

: STRCOPYOVER STRLEN 1+ MOVE ;

Преобразование строки в число и наоборот.
ATOI преобразует строку в число с учётом знака, а UATOI - без учёта.
Тут нужно помнить 3 вещи:
1) Преобразование осуществляется с учётом текущей системы счисления (переменная RADIX).
2) Цифры, большие 9 (т.е. буквы), используются только заглавные.
3) Преобразование заканчивается на символе, который не является числом (с учётом основания текущей системы счисления)

Обратным преобразованием занимается UITOA. К сожалению нет слова, которое учитывает знак.

Взаимодействие между компьютерами

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

Как передать данные с одного компьютера на другой?
Есть 3 способа: через дискету, декодер или шину.
С первым всё более-менее понятно.
Второй можно использовать, но это неудобно: узкий канал да и скорость оставляет желать лучшего.

Как работает третий способ:
Диапазон памяти компьютера от 0х300 до 0x3FF используется для связи с устройствами через шину. Командой RBP! (ID-->) эта область становится "окном" устройства. Т.е. при изменении данных в памяти компьютера, эти данные также изменяются в устройстве, и наоборот.
Компьютеры имеют 2 окна: первое для связи с конкретным устройством, а второе только для приёма.
Например, если один компьютер связывается с другим, то окно первого отображает память второго в диапазоне от 0х400 до 0x4FF. Т.е. изменяя байт по адресу 0х305 в первом компьютере, изменяется байт с номером 0х405 во втором.

Пример на практике:
Соединим одной шиной три компьютера с разными ID (условно, ID 0 - первый, 8 - второй, 9 - третий).


Все компьютеры загружаются с одной дискеты, на которой заранее подготовлены новые слова.

HEX: DUMP //Распечатывает содержимое принимающего окна500 400 DO  I C@ EMITLOOP ;

Это слово запустил на втором компьютере. Кракозябры в начале блока - это BIOS. Далее сплошная горизонтальная черта (это нулевые байты).

Сотрём этот БИОС со второго компьютера при помощи первого:

HEX: NETFILL ( c,ID-->)RBP!    //Связываем окно с нужным устройством300 100 ROT //Подготавливаем параметры для следующей командыFILL ;

Используем: 0 8 NETFILL.
Снова пишем DUMP во втором компьютере. Кракозябры исчезли.

Теперь попробуем отправить строку с первого компьютера во второй.
Просто использовать 8 RBP! 300 100 ACCEPT не получится, т.к. ACCEPT переключит окно и свяжется с терминалом. Пойдём на хитрость:

HEX: SEND ( ID-->)CR [paste][/paste]" Enter message: "400 100 ACCEPT DROP //Сначала записываем строку во второе окноRBP!              //Переключаем окно400 300 OVERSTRLEN MOVE ; //А затем копируем в первое

Теперь можно отправить сообщение: 8 SEND <ввожу: Hello, friend!>
На втором компьютере ввожу: 400 TYPE.
И вот что получилось:
На первом:


На втором:



У вас, наверное, возник вопрос: зачем третий компьютер?
Перед тем, как что-то делать на первых двух, на третьем я запустил следующую программу:

HEX: SNIFFER ( ID-->)BEGIN  DUP RBP!  300 400 100 MEMCMP //Сравниваю окна[paste][/paste]  0<> IF            //Если они не равны,   300 400 100 MOVE //то копирую первое во второе   PAGE DUMP THEN   //и распечатываю[paste][/paste]AGAIN ;

Запустил с параметром 8 SNIFFER.

Каждое действие делал снимок. Итог:

Перенос дискет между мирами

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

Вы без труда можете сделать копию диска, чтобы содержащаяся на нём Форт-система работала на другом компьютере. Но что если этот другой компьютер находится в другом мире?

Первый способ (при этом можно даже не выключать клиент/сервер):

[*]Создать в игре пустую дискету и вставить её в работающий комп.
[*]Ввести команду DISKID, после чего на экране появятся 16 символов (ID этой дискеты).
[*]Открыть папку с миром, а в ней папку redpower. В этой папке хранятся все дискеты этого мира, названия которых в формате "disk_.img"
[*]Найти дискету, у которой совпадает ID с тем, что выдал компьютер.
[*]Эту дискету надо заменить целевой, т.е. скопировать название, переименовать целевую дискету и перенести полученную дискету в эту папку.
[/list]После этого в игре на дискете будут нужные данные. (имя останется прежним)
Повторяю: выключать игру/сервер не обязательно.


Второй способ - замена стандартного форта:
Именуем целевую дискету как "redforth.img" и заменяем такую же в архиве мода. (не забудьте сохранить резервную копию)
После этого "FORTH Boot Disk" будет содержать данные целевой дискеты.
Если играете на сервере, то это должно быть проделано на стороне сервера.

Перенос дискет на сервер через клиент

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

Прочтите этот пост.
Если вам всё понятно, то отпишитесь и я добавлю это сюда.

Гайды

Пароль на рычагах (by HitriyLis)

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

Суть:
есть несколько рычагов (до 15-ти), правильная их комбинация производит некоторое действие (запрограммированное). Для "ввода" пароля нужно нажать кнопку.

"Железо": У каждого рычага свой цвет (произвольный, уникальный, кроме чёрного).
Кнопка посылает сигнал в чёрный провод.
Декодер, отвечающий за ввод пароля имеет ID 4, а выполняющий некое действие - 3.

Итак, программа:
Первое, что нам нужно - это переменная, содержащая текущий пароль (точнее, комбинацию рычагов)

VARIABLE PASKEY

Для удобства записи (да и лень пересчитывать), установлю шестнадцатеричный режим словом HEX. Ключ можно устанавливать вручную, но в таком случае можно здорово промахнуться. Поэтому описываем слово для установки пароля:

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

Установите рычаги в нужное положение и запустите программу.

Следующее: нам понадобится подпрограмма ожидания нажатия на кнопку:

: WAITBLK4 IOXADDR !BEGIN  10 TICKS  IOX@ 8000 ANDUNTIL ;

Теперь можно описать слово блокировки.
Оно будет выполняться до тех пор, пока не будет "введён" правильный код:

: BLOCKBEGIN  WAITBLK  IOX@ 7FFF AND  PASKEY =UNTIL ;

Подпрограммы готовы, теперь опишем слово с нужным действием.
В моём случае просто зажигается лампочка на 5 секунд. LAMP.

Опишем "главное слово":

: MAINBEGIN  BLOCK  LAMPAGAIN ;

После запуска этой программы компьютер будет работать зациклено, и единственный способ к нему обратиться - нажать "сброс"
Также, после запуска MAIN можете смело снимать монитор/терминал и дисковод =)

Удачи.

Блокировка паролем (by HitriyLis)

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

Данная программа полностью блокирует компьютер до тех пор, пока не введут правильный пароль. После разблокировки можно проводить любые действия, включая удаление блокировщика. Если вы хотите, чтобы программа выполняла только одно действие (как в предыдущей программе), то вставьте блокировщик (lock) в программу с бесконечным циклом.

Итак:
Сперва нам нужно хранить правильный пароль, но 1 переменной для этого не достаточно.
Зарезервируем память под хранение пароля:

10 CONSTANT lenlen ALLOT CONSTANT password

В данном примере пароль ограничен 9-ю символами, но это число может быть больше.

Пароль нам надо с чем-то сравнивать.
Для этого создадим ещё одну переменную:

len ALLOT CONSTANT buf

Для задания/изменения пароля используйте:

password len ACCEPT {Нажимаем Enter} {Вводим пароль} {Еще раз Enter}

Чтобы посмотреть текущий пароль необходимо ввести: PASSWORD TYPE
Проверку правильности введённого пароля производит STRCMP (сравнение строк).
Осталось описать слово блокировки. Пример:

: lockBEGIN  PAGE  [paste][/paste]" PC is blocked[paste][/paste]" CR  [paste][/paste]" Enter password: "  buf len  ACCEPT CR     Запрашиваем ввод пароля  password STRCMP 0= DUP Логическое значение понадобится дважды  IF    [paste][/paste]" You are right!"  ELSE    [paste][/paste]" Wrong passwor!" CR    [paste][/paste]" You can try after " 10 секунд    10 0 DO      18 3 AT-XY Это положение я вычислил отдельно      10 I - [paste][/paste]   предыдущее число заменяется      20 TICKS   1 секунда    LOOP  THENUNTIL ;

Всё! Программа готова!
Удачи!

Картинка на FORTH (by HitriyLis)

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

: COLONS (n-->)0 ?DO  58 EMITLOOP ;: LINES (n-->)0 ?DO  0 EMITLOOP ;: UPFRAMES (-->)24 0 DO  I COLONS  16 EMIT  23 I - 2* LINES  14 EMIT  I COLONS  CRLOOP ;: BOTFRAMES (-->)24 0 DO  23 I - COLONS  13 EMIT  I  2* LINES  29 EMIT  23 I - COLONS  CRLOOP ;: SQUARES (-->)PAGE CRUPFRAMESBOTFRAMES ;

Таблица кодировки (by HitriyLis)

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

: TABLEPAGE256 0 DOI 10 /MODSWAP 7 * 2DUPSWAP AT-XY I [paste][/paste]4 + SWAP AT-XYI EMITLOOP CR ;

Программы

Данный раздел содержит коды различных полезных функций и библиотек.

Assembler Helpers

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

Небольшой набор функций, позволяющий компилировать ассемблерные инструкции в виде байт-кода.

Пример использования.
Многострочный:

asm: blit_charasm= 68 8D 08 03 02asm;

Однострочный:

asm blit_char 68 8D 08 03 02 ;

Код:

: asm:  HEADER HIDE ;: asm;  REVEAL ;: asm=  BEGIN TIBWORD DUP STRLEN WHILE UATOI ,C REPEAT DROP ;: (asm) TIBWORD DUP DUP C@ 59 <> SWAP STRLEN AND ;: asm   asm: BEGIN (asm) WHILE UATOI ,C REPEAT DROP asm; ;

Операции над 32-разрядными числами (by _random)

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

32-разрядные числа редко когда нужны в майнкрафте, но может кому-нибудь понадобятся.
Список слов:

Слово	Синтаксис	Описание
D+	( d1 d2 -- d )	Сложение.
S>D	( n -- d )	Преобразование из 16-разрядного в 32-разрядное.
DNEGATE	( d1 -- d )	Изменение знака.
2@	( addr -- d)
2!	( d addr -- )
2CONSTANT
2VARIABLE
D-	( d1 d2 -- d )	Вычитание.
D0<	( d -- f )	f = TRUE если d < 0.
D=	( d1 d2 -- f )	f = TRUE если d1 = d2.
DUM/MOD	( n1L n1H n2 -- nR nL nH )	То же что и UM/MOD, но частное 32-разрядное.
DUITOA	( d -- addr )	То же что и UITOA, но работает с 32-разрядными числами.
D.	( d -- )	То же что и . но работает с 32-разрядными числами.

Вроде все работает, но ошибки, конечно, могут быть.


Исходный текст.
На ассемблере: (см.Assembler Helpers)

HEXasm 2@ FA B5 00 48 B5 02 48 02 ;asm 2! FA 68 95 02 68 95 00 02 ;asm DNEGATE A3 02 49 FF FF 18 69 01 00 A8 68 49 FF FF 69 00 00 FA 5A 48 02 ;asm D+ A3 06 18 63 02 A8 68 63 02 FA FA FA 5A 48 02 ;asm S>D A3 00 10 05 A9 FF FF 48 02 A9 00 00 48 02 ;

На форте:

DECIMAL: 2CONSTANTCREATE 4 ALLOT 2! DOES> 2@ ;: 2VARIABLECREATE 4 ALLOT DROP ;: D-DNEGATE D+ ;: D0<NIP 0< ; n1L n1H n2L n2H -- b: D=ROT = -ROT = AND ; То же что и UM/MOD, но частное 32-разрядное[paste][/paste] n1L n1H n2 -- nR nL nH: DUM/MODROT 2OVER 2OVERUM/MOD 2SWAP MOD ; n1L n1H -- addr: DUITOA0 100 !100 -ROTBEGIN	ROT 1- -ROT	RADIX @ DUM/MOD	2SWAP 48 +	DUP 57 > IF 7 + THEN	OVER C! -ROT	2DUP 0 0 D=UNTIL2DROP;: D[paste][/paste]2DUP D0< IF	[paste][/paste]" -"	DNEGATE DUITOA TYPEELSE	DUITOA TYPETHEN;

Снова ассемблер, но для тех, кто хочет включить в свою сборку.

; addr -- nL nH!tx 0x00, "2@", 0x00, 0x00!word <адрес предыдущего слова>-label_2_at	plx	lda $0,x	pha	lda $2,x	pha	nxt; nL nH addr --!tx 0x00, "2!", 0x00, 0x00!word --label_2_excl	plx	pla	sta $2,x	pla	sta $0,x	nxt; n1L n1H -- nL nH!tx 0x00, "DNEGATE", 0x00, 0x00!word --label_DNEGATE	lda $2,s	eor #$FFFF	clc	adc #1	tay	pla	eor #$FFFF	adc #0	plx	phy	pha	nxt; n1L n1H n2L n2H -- nL nH!tx 0x00, "D+", 0x00, 0x00!word --label_D_plus	lda $6,s	clc	adc $2,s	tay	pla	adc $2,s	plx	plx	plx	phy	pha	nxt; n1 -- nL nH!tx 0x00, "S>D", 0x00, 0x00!word -<адрес для следующего слова>label_S_D	lda $0,s	bpl +	lda #0xFFFF	pha	nxt+	lda #0	pha	nxt

Разное

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

: ?KEY (-->)CR [paste][/paste]" Press any key: "KEY DUP [paste][/paste] SPACE EMIT ;

Ждёт нажатие клавиши, после чего выводит её номер и символ.
Для нескольких клавиш используйте: 5 TIMES ?KEY

: DUMP (addr,n-->)0 DO DUP С@ EMIT1+ LOOP DROP ;

Распечатывает содержимое памяти.

Библиотеки

SFIV (by HitriyLis)

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

(Название можно читать как SF4. Я не против.)
По сути, это тот же MineOS, только большинство слов переписаны на ассемблере, из-за чего эта ОС работает быстрее и занимает меньше памяти.
За основу взяты MineOS от Eloraam и SlimForth от BR2k и tpw_rules.

>> скачать дискету << (последняя версия 1.1 от 23 февраля)
Старая версия.

По большей части совместимо с программами, написанными для MineOS, но следует учесть мелкие различия у некоторых слов:

Изменено:
(Критические изменения)
ALLOT - не возвращает адрес. Может освобождать память при вводе отрицательного числа.
Используйте CREATE ALLOT вместо ALLOT CONSTANT

ISNUM и ISUNUM принимают строки, а не символы.

FIND ( str --> str 0 | addr flag)
Ищет строку в словаре. Возвращает str и 0, если слово не найдено. Иначе адрес команды и flag.
flag = -1, если это обычная команда.
flag = 1, если команда имеет флаг немедленного исполнения.

(переименовано)
[ <--> ]
<--> MOD
,C --> C,
,S --> S,
RADIX --> BASE

(мелочи)
ACCEPT ( addr [0] -- addr)
Добавились дополнительные возможности.
Отрицательная длина - текст не выводится на экран больше указанного (по модулю, разумеется).
Дополнительный ноль - вывод на экран звёздочек.

LOAD - запрошенный блок загружается с дискеты в любом случае.

WORD считает разделителем все символы с кодом от 32 (пробел) и ниже. (было только 4 символа)

PAGE после очистки переносит курсор в положение 0 0, а не 1 0.

TIMES - в режиме диалога может правильно исполнять операции над стеком.

ACCEPT - умнее при переполнении строки.

TYPE - не выводит строки, если их начало выше значения TOP (за пределом доступной памяти).

STRCMP совместимо со старым вариантом, но можно использовать для сортировки.
Возвращает следующее:
0, если строки полностью идентичны. (как раньше)
1, если первая больше второй. (по номеру различающейся литеры)
-1, если вторая больше первой.

COLD - чтение ID с панели вынесено в загрузочную область.


Добавлено:
['] - компилирует адрес следующего слова. (т.е. при исполнении скомпилированной программы на месте этого слова будет адрес последующего слова. Это как если вы просто скомпилировали число.)

LITERAL - компилирует число со стека данных. (т.е. как если бы вы посмотрели что за число на стеке, а затем ввели его в режиме компиляции.)

POSTPONE - компилирует следующее слово вне зависимости от наличия флага немедленного исполнения.

ARUN - переменная, содержащая адрес функции, которая будет выполнена первой после загрузки.

R@ - копирует число со стека возвратов на вершину арифметического стека.

RDROP - Аналогично DROP, но для стека возвратов.

TMR@ - Читает текущее значение 32-битного таймера реального времени.

2@ 2! DNEGATE D+ D= D< 2CONSTANT 2VARIABLE - слова для 32-разрядных чисел. (спасибо Рандому)

--> - Используется только при загрузке кода с дискеты. Связывает исполняемую страницу со следующей.

Небольшая система отлова критических ошибок.
Отслеживается переполнение арифметического стека.

Вырезано:
Убраны заголовки у служебных слов (те, что в скобках в конце словаря. Идея не моя)

NAME>

: NAME> DUP STRLEN + 6 + ;

" и (")

: (")R> DUP BEGINDUP C@ WHILE1+ REPEAT 1+ >R ;DECIMAL: "LITERAL (") 34 TIBSPLIT ,S ;IMMEDIATE

ProtectOS (by HitriyLis)

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

Многие на серверах хотят ограничить доступ к их компьютерам, для этого они их прячут или ставят пароль. Но если хочется, например, чтобы компьютер управлял дверью в ваш бункер, освещением, вызовом лифта, ещё чем-нибудь по команде, то с паролями могут возникнуть проблемы, т.к. MineOS - открытая система. Пароль, поставленный на отдельное слово, легко взломать средствами ФОРТа. Поставить пароль на полную блокировку тоже не хочется (т.е. должны быть команды для гостей).
В таком случае поможет ОС, надстроенная над ФОРТом, позволяющая выполнять только "разрешённые" команды.
Итак, основа ProtectOS:

VARIABLE FUNCNUM0 FUNCNUM !25 CONSTANT MAXFUNCMAXFUNC CELLS ALLOT CONSTANT FUNCSПоиск во внутреннем словаре: FINDID (addr_str-->n)FUNCNUM @ 0 ?DO  FUNCS I 2* + @  >NAME OVER STRCMP  0= IF DROP  I LEAVE THENLOOP ;: FINDF  (addr_str-->addr_func)FINDID DUPMAXFUNC > IF DROP 0 ELSE2* FUNCS + @THEN ;: INTERPRET  (addr_str-->) Принимается адрес строки с командамиTIBPTR !BEGIN  TIBWORD DUP STRLEN Признак конца строки с командами  0<> WHILE  DUP FINDF ?DUP  Ищем функцию  IF NIP EXECUTE  Если не 0, то исполняем   ELSE           иначе, пытаемся представить как число    DUP C@ ISNUM IF      ATOI    ELSE      [paste][/paste]"Unknown Token: " Можно заменить на 6140 TYPE	  TYPE CR      EXIT    THEN  THENREPEAT DROP ;: WITHIN   (N,A,B-->b) TRUE, если A<N<B2 PICK > -ROT > AND ;: MAINRP0 RP! Отчищаем стек возвратовBEGIN  DEPTH -1 100 Проверка заполненности стека  WITHIN 0= IF    [paste][/paste]" Empty Stack" Можно заменить на 6208 TYPE    0SP THEN  CR [paste][/paste]" > "  TIB 120 ACCEPT  SPACE INTERPRETAGAIN ;

Суть в том, чтобы заменить стандартный словарь и интерпретатор ФОРТа на свой. Внутренний словарь представляет собой массив с адресами разрешённых функций. (Список можно редактировать вручную, но если вы не понимаете как, то смотрите ниже)
Вспомогательные слова для администрирования:

: ARUN Замена COLD0 C@ DISKADDR !1 C@ TERMADDR !PROBE TOP !CR [paste][/paste]" ProtectOS Initialized"MAIN ;' ARUN 1304 ! Меняем ссылку для автозапуска: HELP Выводит содержание внутреннего словаряCR FUNCNUM @ DUP [paste][/paste][paste][/paste]"  words found" CR0 ?DO  FUNCS I 2* + @  >NAME TYPE SPACELOOP ;: REGISTER <Слово>FUNCNUM @ MAXFUNC > IF[paste][/paste]" Not enough slots!"QUIT THENTIBWORD DUP FINDFIF DROP  [paste][/paste]" Alredy registred!"ELSE  FIND ?DUP IF    FUNCNUM @ 2*	FUNCS + !	1 FUNCNUM +!	[paste][/paste]" Registred"  ELSE    [paste][/paste]" Not found!"  THENTHEN ;: UNREGISTER <Слово>TIBWORD DUPFINDF 0= IF  [paste][/paste]" Not registred!"  DROP EXIT [tabs][tab=Скрыть]В этих вкладках собраны несколько гайдов, программ и механизмов[paste][/paste] Надеюсь, вы найдёте их полезными[paste][/paste]Гайдов по ассемблеру не будет[paste][/paste][tab=[color=#BF8000][b]Гайды[/b][/color]][align=center][color=#BF8000][b]Управление сигналами[paste][/paste][/b][/color] THENFINDID DUP >R2* FUNCS + DUP2 + SWAPMAXFUNC R> 1+- 2* MOVE1 FUNCNUM -![paste][/paste]" Unregistred";

Пользоваться словами REGISTER и UNREGISTER просто.
Например, надо добавит очистку экрана: REGISTER PAGE
Аналогично и с удалением: UNREGISTER PAGE
Со всем этим вы можете писать программы обычным образом и "разрешать" их.
Но ProtectOS создавалась ради паролей...
Добавим их:

20 CONSTANT LEN: STRVAR (-->)CREATE LEN ALLOT DROP ;STRVAR PASSWORDSTRVAR ROOTPASSSTRVAR BUFSTRVAR BUF2: ENTPASS  (addr-->addr) Заменяет введённую часть звёздочками769 @ SWAPLEN ACCEPTSWAP 769 !DUP STRLEN 0 DO 42 EMITLOOP CR ;: ADMIN (-->b)[paste][/paste]" Enter root password: "BUF ENTPASSROOTPASS STRCMP 0= ;: USER (-->b)[paste][/paste]" Enter password: "BUF ENTPASSPASSWORD STRCMP 0= ;: BLK (delay-->)  В секундах769 @        Запоминаем положение курсораOVER 0 DO  DUP 769 !  Перемещаем курсор  OVER I - [paste][/paste] Выводим число  20 TICKS   1 секундаLOOP 2DROP ;: WRPS Стандартная реакция на неправильный пароль[paste][/paste][paste][/paste]" Wrong password!" CR[paste][/paste]" You can try after "60 BLK CR ;: FORTH Выход в ФОРТADMIN IF  [paste][/paste]" You can do enyfing!"QUIT THENWRPS ;: CHANGEPASSADMIN IF  [paste][/paste]" Set new password: "  BUF ENTPASS  [paste][/paste]" Cunfirm new password: "  BUF2 ENTPASS  STRCMP IF    [paste][/paste]" Password not canged!" CR  ELSE    BUF PASSWORD LEN MOVE    [paste][/paste]" Changing the password was successful" CR  THENELSE  WRPSTHEN ;

Слова ADMIN и USER оставят на стеке TRUE, если ввели правильный пароль.

OS

Летающая машина (by VikR)

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

Летающая машина делается довольно легко. Главное, что нам нужно реализовать - движение во все стороны.
Для начала сделайте платформу, на которой будете размещать двигатели. Рассмотрим расположение двигателей подробнее:


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



Учитывайте, что каждый двигатель должен быть закреплен!


Теперь нужно соединить все двигатели:


Провода распределил следующим образом:

Вперед - белый провод
Назад - оранжевый провод
Вправо - пурпурный провод
Влево - голубой провод
Вверх - желтый провод
Вниз - лаймовый провод
Не забудьте обеспечить каждый двигатель блутричеством!
Моя конечная конструкция выглядит так:


Конструкция не отличается компактностью и красотой, но ведь она не для этого создавалась =) Вот еще один вариант оформленной конструкции:


Осталось дело за программой. Она очень маленькая, так что осилит каждый =)

: go  /движение вперед2 0 DO  /задаем количество циклов, равное двум: во время первого прохода сдвигается платформа, во время второго двигатель возвращается на место1 IOX! 5 TICKS 0 IOX! 30 TICKS  /подача сигнала, задержки можно выставить на своё усмотрениеLOOP ;: back  /движение назад2 0 DO2 IOX! 5 TICKS 0 IOX! 30 TICKSLOOP ;: right  /движение вправо2 0 DO4 IOX! 5 TICKS 0 IOX! 30 TICKSLOOP ;: left  /движение влево2 0 DO8 IOX! 5 TICKS 0 IOX! 30 TICKSLOOP ;: up  /движение вверх2 0 DO16 IOX! 5 TICKS  0 0 IOX! 30 TICKSLOOP ;: down  /движение вниз2 0 DO32 IOX! 5 TICKS 0 IOX! 30 TICKSLOOP ;

Собственно летающая платформа готова. Для того, чтобы передвинуться на определенно количество блоков используем TIMES:

5 TIMES up  /подняться на 5 блоков

Данную платформу можно легко модифицировать для бурения, причем в довольно крупных масштабах!

Для модификации требуется всего лишь присоединить к нижней части Разрушители блоков (см. Простые машины), но для начала крепятся Редстоун-трубы (см. Трубы):


Только потом крепятся Разрушители блоков:


И не забывайте, что все это должно прилегать к фреймам, иначе все останется на месте:


Как видите, между трубами есть свободное пространство. В это свободное пространство можно поставить сундуки для добытых ресурсов, при этом фреймы позволят открывать сундуки.

Осталось подсоединить трубы к сигнальному проводу (в моём случае будет розовый провод):


В края платформы обязательно должны помещены Покрытия (Cover), чтобы не цеплять лишние блоки во время добычи.

Когда конструкция готова, нужно добавить к программам движения еще две новых:

: break  /программа, которая будет посылать сигнал на Разрушители блоков64 IOX! 5 TICKS 0 IOX! ;: mining  /организуем добычуbreak right break down left ;  /порядок действия: сломать, сдвинуться вправо, сломать, опуститься, влево

Количество проходов устанавливается по аналогии с количеством передвижений.

Лифт (by VikR)

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

Перед тем, как приступить к созданию лифта, нужно определиться с его комплектацией. У лифта должны быть следующие элементы:

[*]Возможность передвигаться на несколько этажей (в моем случае 4).
[*]Дверь, которая открывается/закрывается, когда потребуется.
[*]Кнопки для каждого этажа в кабине.
[*]Кнопки вызова на каждом этаже.
[/list]После того, как определились с комплектацией, начнем делать саму конструкцию.
Я в первую очередь создал саму кабинку, двигатели и разметку этажей, расстояние между которыми везде 9 блоков.


Как видите на скриншоте, у меня много двигателей на определенном расстоянии, это требуется для того, чтобы свести к минимуму вот этот столб:


От него можно избавиться совсем, если размещать двигатели ближе, но это существенно увеличит их количество.

Дальше сделаем двери. С ними думаю ни у кого проблем не будет:


Подобные действия проделайте на всех этажах. И не обязательно придерживаться именно такой конструкции дверей! Делайте так, как нравится вам.
Исходным этажом у меня является первый этаж. Поэтому открытыми оставляем только двери на первом этаже, на остальных закрываем.
Для тех кто не понял, что это за синяя "труба", поясняю: это Блутрические провода в оболочке.

Настала очередь кнопок управления. Кнопки вызова находятся рядом с шахтой лифта на каждом этаже, им я не буду уделять много внимания. Кнопки в самой кабине размещены следующим образом:


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


Редстоун я разметил цифрами, чтобы было понятна принадлежность редстоуна к нужной кнопке. Единица зачеркнута, потому что лифт находится на первом этаже, поэтому кнопка первого этажа не требуется. Зачеркнутый блок можно убрать, чтобы не мешался. Это проделываем на каждом этаже с соответствующим блоком кнопки.

После того, как сделана основная конструкция, принимаемся за соединение всего этого чуда проводами.
Перед этим я разбил составляющие на две части: движущие и кнопки. Для каждой части будет свой Декодер IO. Такое разделение позволит легко расширить функции лифта и количество этажей.
В первую очередь соединил двигатели лифта:


Точно также соединил все двигатели выше, причем цвета проводов те же!

Дальше соединил двигатели ворот:



Двигатели ворот соединяются той же связкой проводов, что и двигатели лифта.

С кнопками все немного сложнее. Редстоун, который у нас используется, не может передать сигнал в провода РП, поэтому нужно использовать какой-нибудь преобразователь, я использовал обычный повторитель. После повторителя присоединяется провод, причем не требуется много цветов, мне хватило всего трех.


Кнопки вызова а каждом этаже имеют свой уникальный цвет.
Связки проводов кнопок и двигателей не должны пересекаться!

В конце остается подсоединить связки к нужным декодерам. Кнопки я присоединил к декодеру с ID 3, двигатели с ID 4.

Настал самый сложный момент - организация всего этого.

Начал я с основных двигателей:
[codN,A,B--e]: wait /простая программка, которая создана только для удобства, задает ожидание
10 TICKS
;
: up /программа, описывающая действие подъема
1 IOXSET wait
1 IOXRST wait
;
: down /программа, описывающая действие движения вниз
2 IOXSET wait
2 IOXRST wait
;[/code]
Дальше задал действия для дверей:


: open1  /программа, которая задает открытие двери на первом этаже3 0 DO  /в моем случае дверь размером 3х3, поэтому для полного открытиязакрытия требуется три сдвига4 IOXSET wait4 IOXRST waitLOOP;: close1 /программа, которая задает закрытие двери на первом этаже3 0 DO8 IOXSET wait8 IOXRST waitLOOP;: open2  /программа, которая задает открытие двери на втором этаже3 0 DO16 IOXSET wait16 IOXRST waitLOOP;: close2  /программа, которая задает закрытие двери на втором этаже3 0 DO32 IOXSET wait32 IOXRST waitLOOP;: open3  /программа, которая задает открытие двери на третьем этаже3 0 DO64 IOXSET wait64 IOXRST waitLOOP;: close3  /программа, которая задает закрытие двери на третьем этаже3 0 DO128 IOXSET wait128 IOXRST waitLOOP;: open4  /программа, которая задает открытие двери на четвертом этаже3 0 DO256 IOXSET wait256 IOXRST waitLOOP;: close4  /программа, которая задает закрытие двери на четвертом этаже3 0 DO512 IOXSET wait512 IOXRST waitLOOP;

Теперь опишем действия, доступные на определенном этаже:


/действия, когда лифт на первом этаже: one-level2  /программа движения на второй этаж4 IOXADDR !  /переключаемся на декодер с ID 4, т[paste][/paste]к[paste][/paste] двигатели расположены на нёмclose1  /закрываем дверь10 TIMES up  /движение лифта, 10 TIMES означает, что лифт поднимется на 10 блоков вверхopen2  /открываем двери на втором этаже3 IOXADDR !  /переключаемся обратно на декодер с ID 3;: one-level3  /программа движения на третий этаж4 IOXADDR !close120 TIMES upopen33 IOXADDR !;: one-level4  /программа движения на четвертый этаж4 IOXADDR !close130 TIMES upopen43 IOXADDR !;/действия, когда лифт на втором этаже: two-level1  /программа спуска на первый этаж4 IOXADDR !close210 TIMES downopen13 IOXADDR !;: two-level3  /программа движения на третий этаж4 IOXADDR !close210 TIMES upopen33 IOXADDR !;: two-level4  /программа движения на четвертый этаж4 IOXADDR !close220 TIMES upopen43 IOXADDR !;/действия, когда лифт на третьем этаже: three-level1  /программа спуска на перый этаж4 IOXADDR !close320 TIMES down3 IOXADDR !open1;: three-level2  /программа спуска на второй этаж4 IOXADDR !close310 TIMES downopen23 IOXADDR !;: three-level4  /программа движения на четвертый этаж4 IOXADDR !close310 TIMES upopen43 IOXADDR !;/действия, когда лифт на четвертом этаже: four-level1  /программа спуска на первый этаж4 IOXADDR !close430 TIMES downopen13 IOXADDR !;: four-level2  /программа спуска на второй этаж4 IOXADDR !close420 TIMES downopen23 IOXADDR !;: four-level3  /программа спуска на третий этаж4 IOXADDR !close410 TIMES downopen33 IOXADDR !;

Теперь свяжем действия с нажатием кнопки:


VARIABLE level  /создаем переменную, которая будет определять этаж нахождения лифта и доступные действия1 level !  /задаем значение для переменной, всего значений четыре; значение должно соответствовать этаже, на котором находится лифт: one  /организуем кнопки на первом этажеIOX@ 1 =  /задаем условие, при котором запустится лифт, в нашем случае нажатие на определенную кнопку IF one-level2  /действие, запускаеое при выполнении условия2 level !  /меняем значение переменной на то, которое будет соответствовать новому этажуTHEN/дальше все делается по аналогии/записываю в строчку, т[paste][/paste]к[paste][/paste] дальше код не требует подробных комментариевIOX@ 2 = IF one-level3 3 level ! THENIOX@ 4 = IF one-level4 4 level ! THENIOX@ 16 = IF one-level2 2 level ! THENIOX@ 32 = IF one-level3 3 level ! THENIOX@ 64 = IF one-level4 4 level ! THEN;: two  /организуем кнопки на втором этажеIOX@ 4 = IF one-level1 1 level ! THENIOX@ 2 = IF one-level3 3 level ! THENIOX@ 1 = IF one-level4 4 level ! THENIOX@ 8 = IF one-level1 1 level ! THENIOX@ 32 = IF one-level3 3 level ! THENIOX@ 64 = IF one-level4 4 level ! THEN;: three  /организуем кнопки на третьем этажеIOX@ 4 = IF one-level1 1 level ! THENIOX@ 1 = IF one-level2 2 level ! THENIOX@ 2 = IF one-level4 4 level ! THENIOX@ 8 = IF one-level1 1 level ! THENIOX@ 16 = IF one-level2 2 level ! THENIOX@ 64 = IF one-level4 4 level ! THEN;: four  /организуем кнопки на четвертом этажеIOX@ 4 = IF one-level1 1 level ! THENIOX@ 1 = IF one-level2 2 level ! THENIOX@ 2 = IF one-level3 3 level ! THENIOX@ 8 = IF one-level1 1 level ! THENIOX@ 16 = IF one-level2 2 level ! THENIOX@ 32 = IF one-level3 3 level ! THEN;

Ну и наконец последнее, что нам осталось написать:


: main  /последняя программа, которая все запуститBEGINlevel @ 1 = IF one THEN  /обозначает действия, если значение level = 1, т[paste][/paste]е[paste][/paste] когда лифт на первом этажеlevel @ 2 = IF two THEN  /действие, когда лифт на втором этажеlevel @ 3 = IF three THEN  /действие, когда лифт на третьем этажеlevel @ 4 = IF four THEN  /действие, когда лифт на четвертом этажеAGAIN ;

Когда все написали, то запускайте программу main и начинайте эксплуатировать свой лифт =)

Музыкальный проигрыватель (by HitriyLis)

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

Общее:

Запись музыки: Музыку можно создать при помощи Note Block Studio. Это гораздо удобнее, чем писать цифры в текстовый редактор (или в консоль). Моя программа использует .nbs файлы для воспроизведения, поэтому каждую мелодию вам придётся самостоятельно переносить в ваш мир и хранить на отдельной дискете. О формате самого файла можно узнать тут. "Железо": Для создания играющей части вам понадобится WRCBE. Я хотел использовать декодер, но он, к сожалению, оказался недостаточно быстрым. Всего (в предельном случае) вам понадобится 1 передатчик, 125 приёмников и сплошной диапазон частот соответствующей длины. А так же 125 нотных блоков и блоки-основания под них (задание инструмента). Я не рекомендую вам ставить приёмник вплотную к нотному блоку, т.к. помимо его активации, задействуются соседние с ним блоки. Лучше соединять их через изолированные провода. Самое главное - настройка частот: Все ноты нумеруются от 0 до 124 в порядке возрастания. Все ноты разделены по 25 штук на каждый инструмент. 0 - Пианино - Земля / Воздух1 - Бас-гитара - Древесина / Доски / Тыква2 - Большой барабан - Камень / Булыжник / Обсидиан3 - Малый барабан - Песок / Гравий / Песок души4 - Клики / Палочки - Стекло / Светящийся камень Номер вычисляется так: № ноты = № инструмента * 25 + нота (число ПКМ по нотному блоку). Запомните число DELTA, оно понадобится вам в программе. Это число - сдвиг частот и оно должно быть больше 0. Например, при DELTA=100, частоты для пианино будут от 100 до 124, а для малого барабана от 175 до 199. Ещё пример: настроены все блоки. Благодаря WR, нотные блоки можно расположить произвольно. Компьютер: Вам понадобится минимальный набор для запуска и ещё 1 модуль памяти. Передатчик нужно поставить вплотную к ЦП и запитать (факелом или рычагом).

Элементарное чтение:

Данные читаются с дискеты байт за байтом (с возможностью переставить "головку"). Я предлагаю вам 2 способа. Вы можете использовать любой по своему усмотрению. 1)Простой и надёжный. Суть: Нужный блок, размером 1Кб, загружается в память компьютера и читается из стандартного буфера. Недостаток: при воспроизведении возникают паузы, необходимые для загрузки блока данных. DECIMAL1 BLOCK DROP //Заранее создаём буферVARIABLE POS //Положение "головки": READ (-->C) //Читает с диска 1 байтPOS @1024 //Размер стандартного буфера/MOD 1+ //вычисляется № блока и положение в нём[paste][/paste]BLOCK //подготавливаем блок (возвращается адрес буфера)+ C@ //вычисляем адрес в памяти и читаем байт из него1 POS +! ; //перемещаем "головку" 2)Без пауз. Суть: размер буфера 128 байт и он находится во 2-м окне. Данные с диска переносятся секторами соответствующего размера. Нужный сектор загружается заранее, т.е. программа сначала копирует содержимое буфера дисковода (там должен храниться нужный сектор), а затем посылается команда на чтение следующего сектора, но не ждёт её завершения. Недостаток: если размер файл не кратен 128 байтам, то программа экстренно выходит в конце трека (особенно, если нет доп. информации в файле, например, названия уровней. см. в Note Block Studio)) А так же, сложновато для понимания и "вбивания" в консоль. Плюс: Экстренно выходит, когда вы извлекаете дискету =) VARIABLE POS //Положение "головки"VARIABLE SECTOR //Номер текущего сектораHEX: RS (n-->) //загружает требуемый секторDUP SECTOR @ = //если требуется стекущий сектор,IF DROP EXIT THEN //то ничего не надо делатьDISKADDR @ RBP! //связываемся с дисководомDUP SECTOR @ - 1 = IF //если требуется следующий блок, BEGIN //то загружаем данные не стандартным образом 382 C@ 4 = //сперва убеждаемся, что дисковод WHILE TICK //не занят чтением REPEAT 400 300 80 MOVE //затем копируем данные в буфер компьютераELSE //иначе, переносим данные 400 OVER DISKRS //стандартным образомTHEN382 C@ FF = //если дисковод возвращает ошибку,IF QUIT THEN //то экстренно выходим[paste][/paste]DUP SECTOR ! //сохраняем номер считанного сектора1+ 380 ! 4 382 C! ; //и даём команду дисководу прочитать следующий: READ (-->com) //Аналогично первому вариантуPOS @ 80 /MOD //только числа другие и в HEX-сеRS 400 + C@1 POS +! ; Для инициализации такого чтения, необходимо ввести: 1 RS 0 RS. Ошибка в дисководе может возникнуть в нескольких случаях: [*]Нет диска (чаще всего) [*]Чтение за концом файла [*]Или сектор файла не имеет 128 байт [*]Неразрешённые действия с ФОРТ-дискетой (запись, изменение имени) [/list]

Программа:

DECMALVARIABLE DELTA //Не забудте внести это число переn--д запуском!!!: NOTE (C-->) //Играет ноту с номером СDELTA @ + IOX! ; //Число отправляется в передатчик и меняет его частоту: 2READ (-->N) //Читает 2-х байтное числоREAD READ 8 << OR ; Первая часть файла - заголовок, который содержит информацию о мелодии. Сюда можно вставить рисование менюшки с выводом этой информации, но я просто пропущу её. : PART14 POS +! //2 числа4 0 DO 2READ 2 + POS +! //4 строкиLOOP25 POS +! //много цифр2READ 2 + PO--S +! ; //ещё строка Что это за данные, смотрите в описании формата. Вторая часть содержит информацию о расположении блоков в пространстве и времени на сетке. Сверху вниз - уровни, слева направо - тики. При стандартных настройках 1 тик = 0,1 сек. (эту настройку я игнорирую в первой части). Для чтения этой части понадобится 4 шага, которые ссылаются друг на друга в зависимости от прочитанного байта. Для чтения удобно использовать логику конечного автомата (См. Вики). В зависимости от состояния, программа будет вызывать нужный шаг, а этот шаг в свою очередь будет менять состояние. Номер шага совпадает с номером состояния, нулевое состояние - выход. VARIABLE ST //Текущее состояние8 ALLOT CONSTANT STEP //Массив с адресами шагов: PART2 //Работает в бесконечном циклеBEGIN ST C@ 2* //читается номер состояния, STEP + @ //вычисляется адрес процедуры EXECUTE //и исполняетсяAGAIN ; Далее, нужно расписать сами процедуры. А можно было сделать это сразу =) : STEP1 //переход к следующему тику2READ DUP //читаем число2* TICKS //оно является необходимой паузойIF 2 ELSE //если оно не нулевое, то переходим к шагу 2 0 THEN //иначе выходим из программы (конец трека)ST C! ;: STEP2 //переход к следующему уровню2READ IF //если число не нулевое, 3 ELSE //то переходим к шагу 3 1 THEN //иначе к шагу 1 (прочитаны все ноты аккорда)ST C! ;//3-й и 4-й шаги я объединил: STEP3 //Играем ноту2 ST C! //В любом случае возвращаемся к шагу 2READ 25 * //читаем номер инструментаREAD 33 - //читаем нотуDUP -1 > //Нотные блоки могут сыграть только ноты от 33 до 57OVER 24 <AND IF //если нота входят в этот диапазон, + NOTE //то мы её играем EXITTHEN2DROP ; //иначе игнорируем Далее, нужно внести адреса этих функций в массив. ' QUIT STEP !' STEP1 STEP 2 + !' STEP2 STEP 4 + !' STEP3 STEP 6 + ! QUIT можно заменить на EXIT, тогда программа будет выполняться после PART2 (для 2-го способа чтения с оговоркой). Осталось главное слово: : PLAY0 POS ! //устанавливаем начальную позициюREVERT //Готовим дисковод при чтении 1-м способом1 RS 0 RS //ИЛИ для второго способа10 IOXADDR ! //адрес передатчика(он сбрасывается на это число при перезаходе в игру)1 ST C! //Устанавливаем начальное состояниеPART1 //пропускаем заголовокPART2 ; //Наслаждаемся музыкой =) Обратите внимание на инициализацию дисковода: 2 способа чтения несовместимы друг с другом!!!

Механизмы

Программа для набора (by _random)

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

Наверное, все замечали, как трудно вводить программы в РП компьютеры. Малейшая ошибка — и приходится вводить заново. Также трудно вносить изменения в уже введенные программы.
Можно было-бы использовать программу, эмулирующую набор текста, например MouseRobot. Но эта программа имеет существенные недостатки: слишком много лишних функций, наверное нельзя настроить задержку перед вводом новой строки, набирает все символы (комментарии, знаки табуляции).
Поэтому я сам написал программу, эмулирующую набор текста.
Программа может набирать следующие символы:

!"#$%&'()*+,-[paste][/paste]/:;<=>?@[]^_'{|}~ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789

Символ “” — комментарий, все, что расположено на одной строке правее этого символа, набираться не будет. Знаки табуляции заменяются на пробелы.
Инструкция:

- После запуска программы откроется диалог выбора файла. Надо выбрать файл с текстом, который нужно набрать. Кодировка cp1251.
- Открыть окно, в котором нужно набрать текст.
- Включить английскую раскладку клавиатуры.
- Нажать F9.
- Программа закроется, когда все наберет.

Скачать программу.

Эмулятор RP-компьютера

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

Сайт со сборками.


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

Полезное

В этих вкладках собраны несколько гайдов, программ и механизмов. Надеюсь, вы найдёте их полезными.
Гайдов по ассемблеру не будет.

В этих вкладках содержится описание внутреннего устройства компонентов, а также как управлять периферией.
Управлять периферией можно как из Форта, так и при помощи ассемблера.

Скрыть

Форт позволяет использовать устройства не вникая в механизм их работы, но с устройствами можно сделать больше, чем предоставляет нам стандартный набор слов. Управляются устройства через собственную память, доступ к которой можно получить с помощью RBP! (память этих устройств как бы "отображается" в памяти компьютера). Я буду расписывать "карту" памяти каждого устройства, где число до двоеточия - смещение адреса окна (т.е. если написано 0хFF, то необходим байт с адресом 0х300 + 0хFF = 0х3FF), 2 числа через дефис - диапазон, а после двоеточия - смысл этого байта или диапазона.

Исполнение микрокоманд:
Некоторые типы устройств имеют особый байт состояния, отвечающий за исполнение некоторого действия этого устройства. Использовать их очень просто: поместите номер микрокоманды в этот байт. Как только устройство закончит выполнять действие, оно изменит этот байт на 0 (если всё прошло нормально) или 0хFF (если возникла ошибка).
Некоторым микрокомандам необходимо больше времени чем остальным. Например на чтение и запись в дисководе требуется время, т.к. они обращаются к жёсткому диску.

Введение

0x0000 Нулевая страница 0x100 P-стек 0x200 R-стек 0x300 Основной порт ввода-вывода 0x400 Приёмный порт (заодно там хранится загрузчик) 0x500 RAM (Образ диска загружается сюда)

При нажатии на кнопку start с панели считываются ID дисковода и терминала и помещаются в начало памяти (0-й и 1-й байт соответственно). Затем по адресу 0x400 скидывается загрузчик, который копирует содержимое дискеты в память начиная с 0x500. После выполнения передаёт управление на адрес 0x500 и более не нужен (его можно удалить).

Список инструкций процессора.

MMU:
В таблице не задокументирована инструкция MMU, которая требует 1 байт в качестве параметра.
ID, адреса и смещения берутся/записываются в регистр А.

0x00 Переключает порт ввода-вывода на другое устройство. 0x80 Получает ID текущего устройства. 0x01 Устанавливает адрес смещения порта ввода-вывода. 0x81 Получает текущее смещение порта ввода-вывода. 0x02 Включает порт ввода-вывода. 0x82 Выключает порт ввода-вывода. 0x03 Устанавливает адрес смещения принимающего порта. 0x83 Получает текущее смещение принимающего порта. 0x04 Включает принимающий порт. 0x84 Выключает принимающий порт. 0x05 Устанавливает адрес программного прерывания (BRK). 0x85 Возвращает текущий адрес BRK. 0x06 Устанавливает адрес POR (не знаю для чего он). 0x86 Возвращает текущий адрес POR.

ЦП

0x00-0x01: Регистр входа (это 2-х байтовое число считывает IOX@) 0x02-0x03: Регистр генерации сигнала (это число устанавливает IOX!)

Первые 2 байта - это совокупность сигналов, которые декодер генерирует и принимает (надеюсь, вы уже знаете как кодируются цвета =). Вторая пара байтов - только те сигналы, которые декодер генерирует.
Например, если нет никаких сигналов, то оба числа равны 0.
Если выполнена команда 2 IOX! и нет других сигналов, то оба числа равны 2.
И наконец, если выполнена предыдущая команда и на декодер подаётся сигнал только с белого провода, то первое число 3, а второе 2.

Декодер

0x00-0x7F: Буфер дисковода, размером в 1 сектор (128 байт). 0x80-0x81: Номер сектора 0x82: Команда для дисковода: (далее значения этого байта) 0: Ничего или удачное завершение предыдущей команды 1: Прочитать имя дискеты 2: Записать имя дискеты 3: Прочитать ID дискеты (серийный номер) 4: Прочитать сектор дискеты 5: Записать сектор дискеты 0xFF: Неудачное завершение предыдущей команды

Серийный номер:
Каждая дискета при создании получает случайный ID, состоящий из 16 HEX цифр в виде строки. Этот ID задаётся раз и навсегда (можно только "сбросить" на ID загрузочной дискеты с Фортом). Чтобы прочитать ID, необходимо выполнить команду №3. После выполнения команды дисковод оставит в начале буфера ID в виде текста (оставшееся место заполняется нулями). Дисковод выдаст ошибку только в одном случае: если нет дискеты.

Имя:
Каждую дискету можно назвать как угодно и переименовывать сколь угодно раз. Максимальная длина имени 64 символа. Чтение имени аналогично чтению ID, только используется команда №1. Для того, чтобы изменить имя дискеты, поместите это имя в буфер (не забудьте, что последний байт должен быть нулевым) и выполните команду №2.
Ошибка может возникнуть если нет дискеты или вы попытались переименовать загрузочную дискету (у неё защита от записи).

Данные:
Данные с дискеты читаются и записываются на неё только секторами по 128 байт.
На каждой дискете может быть до 2049 секторов, это значит, что дискета может содержать до 262272 байт или, примерно, 256 Кб. Чтобы прочитать с дискеты нужный сектор, поместите его номер в байты 0x80-0x81 и выполните команду №4. Прочитанный сектор будет находится в буфере и вам остаётся только скопировать его в память компьютера (всем этим занимается DISKRS) или изменить данные прямо в буфере для последующей перезаписи.
Ошибка может возникнуть если нет дискеты или требуемый сектор не существует (чтение за пределом файла-образа).

Примечание: если размер файла не кратен 128 байтам, то сектор, содержащий конец файла, может быть прочитан и размещён в буфере, но дисковод не обнулит оставшуюся часть и выдаст ошибку.

Чтобы переписать сектор дискеты, поместите данные в буфер, поместите номер сектора в соответствующие место и выполните команду №5. Ошибка возникнет, если нет дискеты или эта дискета загрузочная.

Дисковод

Курсор: 0x01: столбец x 0x02: строка y 0x03: режим (0: спрятан, 1: сплошной, 2: мигающий) Буфер ввода с клавиатуры (16 байт, FIFO): 0x04: Указатель начала очереди 0x05: Указатель конца очереди 0x06: Значение клавиши в начале очереди Действия с областями: 0x07: Команда (1: заполнить, 2: выделить(инверсия цвета); 3: копировать) Координаты левого верхнего угла: 0x08: x координата области источника / Значение для заполнения 0x09: y (необходимо только для копирования) 0x0A: х координата области, требуемой для изменения 0x0B: y 0x0C: Ширина области 0x0D: Высота области Доступ к видеопамяти: 0x00: Номер строки для чтения/изменения 0x10-0x60: Содержимое строки

Разрешение монитора 80х50 знакомест. Нумерация строк и столбцов от 0 слева-направо и сверху-вниз.

Курсорсм. Трубы:
Тут всё просто, помещаете в байты 0х01 и 0х02 нужные координаты и курсор переместится (этим занимается AT-XY). С режимом курсора тоже просто. Например, введите HEX 0 303 C! и курсор исчезнет (2 303 С! чтобы его вернуть).

Чтение с клавиатуры:
Терминал самостоятельно читает нажатие клавиш и помещает их значение в собственный буфер (при наличии места), даже если терминал не связан с компьютером. Буфер пуст, если оба указателя равны (это проверяет KEY?). Буфер переполнен, если указатель конца находится перед указателем начала. Таким образом, буфер может реально хранить до 15 символов (если 16, то будет невозможно различить переполненный и пустой буфер). Если программе нужно прочитать символ, то необходимо сравнить указатели, если они не равны, то значение необработанной клавиши будет находится в байте 0x06. Терминал никак не реагирует на чтение с буфера, поэтому программе нужно самостоятельно увеличить на 1 указатель начала (всё это выполняет KEY). Заметьте, что терминал самостоятельно уменьшает число указателя, если оно больше 15 (возвращает остаток деления на 16).
Небольшой прикол: введите HEX 7 304 +! и компьютер зациклится выполняя эту команду снова и снова. Эта команда переставляет указатель начала очереди на 7 позиций вперёд, но т.к. очередь закольцована, то реально он переставляется на 9 позиций назад. Буфер теперь не пуст и Форт-система думает, что вы что-то ввели и обрабатывает это обычным способом. В буфере сохранена предыдущая команда (точнее 3), которая снова колдует с буфером. Терминал работает самостоятельно и из такого цикла можно выбраться нажав 7 раз любую клавишу. Указатель конца очереди дойдёт до позиции, где расположен первый символ команды и при выполнении очередного цикла буфер будет пуст.

Видеопамять:
Программы могут напрямую менять информацию, выводимою на экран. Для этого надо в байт 0x00 поместить номер строки (от 0 до 49) и в последнем диапазоне менять данные по своим нуждам. Терминал может выводить 128 различных символов. Оставшиеся 128 символов те же самые, только выводятся с инверсией цвета (чёрное на зелёном). Различить символы с инверсией можно по старшему биту.

Действие с областями:
При очистке экрана и прокрутке ФОРТ-система не обращается к видеопамяти. Вместо этого она просто посылает команды с нужными параметрами на терминал, а тот сам делает всё необходимое. Это весьма удобно, т.к. можно сохранить место в памяти и сэкономить время на написание кода и в момент его исполнения.

Заполнение:
Для заполнения прямоугольного участка 1 символом нужно сделать следующее:

[*]Номер нужного символа поместите в байт 0x08.
[*]Координаты левого верхнего угла области заполнения поместите в байты 0x0A и 0x0B.
[*]Ширину и высоту заполняемой области поместите в байты 0x0C и 0x0D.
[*]Поместите число 1 в байт 0x07 и ждите завершения команды.
[/list](Команда PAGE заполняет весь экран символом с номером 0х16(пробел))

Выделение:

[*]Координаты левого верхнего угла области для выделения поместите в байты 0x0A и 0x0B.
[*]Ширину и высоту выделяемой области поместите в байты 0x0C и 0x0D.
[*]Поместите число 2 в байт 0x07 и ждите завершения команды.
[/list]Например, можно "выделить" весь экран. Для этого введите:

PAGE (Необходимо, чтобы прокрутка не сбила ваши настройки)HEX0  30A ! (Заполняем сразу 2 байта нулями)50 30C C! (80 столбцов в HEX-е 50)32 30D C! (50 строк в HEX-е 32)2  307 C! (Всё зелёное!)

Можно ещё раз ввести последнюю строку (несколько раз)

Копирование:

[*]Координаты левого верхнего угла области, которую хотите скопировать, поместите в байты 0x08 и 0x09.
[*]Координаты левого верхнего угла области, которую нужно изменить, поместите в байты 0x0A и 0x0B.
[*]Ширину и высоту выделяемой области поместите в байты 0x0C и 0x0D.
[*]Поместите число 3 в байт 0x07 и ждите завершения команды.
[/list]Стоит обратить внимание, что копирование производится байт за байтом слева-направо и сверху-вниз. Об этом важно помнить, когда области пересекаются.
Например, пусть экран содержит следующий текст:

ABCDEFGHIJKLMNOPQRSTUVWXY

Терминал настроен копировать область 3х3 с позиции (1,1)(там где "G") в позицию (1,0)(там где "В"). Результат предсказуем:

AGHIEFLMNJKQRSOPQRSTUVWXY

Но, если копировать из (1,1) в (1,2), то результат будет иным:

ABCDEFGHIJKGHIOPGHITUGHIY

Терминал

0x00: микрокоманда 1: Определить размер инвентаря 2: Прочитать содержимое слота 3: Извлечь 4: Фильтр 0x01: Количество предметов 0x02: Номер слота 0x04: Идентификатор предмета (4 байта!) 0x08: Повреждённость предмета 0x0A: Предел прочности предмета 0x0C: Исходящий цвет 0x0D: Входящий цвет

Цвет:
0 - нет цвета/не окрашен.
От 1 до 16 - конкретный цвет. Порядок как у шерсти (т.е. обычный)

Слоты нумеруются от 0.
Для исполнения микрокоманд сортрону нужно блутричество.
Не работает с игроками, вагонетками и прочими сущностями. Только с блоками.

Определение размера инвентаря:
Определяется количество слотов у инвентаря, расположенного перед лицевой стороной сортрона. Результат сохраняется в регистре 0x01.
Ошибка возникнет если перед сортроном труба или нет инвентаря.

Чтение слота:
Позволяет собрать информацию о конкретном слоте.
Перед исполнением команды нужно занести номер нужного слота в регистр 0x02. После исполнения вся информация о слоте будет в регистрах 0x01-0x0A.

Извлечение предметов:
Перед исполнением нужно занести в регистр 0x02 номер слота, из которого нужно извлечь содержимое, а в регистр 0x01 - количество. Также в регистр 0x0С нужно занести цвет, которым будет помечен предмет (или без цвета).
После исполнения регистр 0x01 будет содержать число извлечённых предметов (может быть меньше запрошенного).

Режим фильтрации:
*тут мне нужно уточнить подробности...*

Сортрон

В этих вкладках содержится описание внутреннего устройства компонентов, а также как управлять периферией.
Управлять периферией можно как из Форта, так и при помощи ассемблера.

 

замени ссылку на Программу набора текста пожалуйста пожалуйста а то она битая 

Edited by oleg955, 10.11.2020 - 10:13.