[1.4.6] RedPower 2 [Prerelease 6]

3) Программа:

DECMAL1 BLOCK DROP   //Заранее создаём буфер чтения(иначе у вас могут возникнуть проблемы при удалении слов)VARIABLE DELTA //Не забудте внести это число перед запуском!!!: NOTE (C-->)    //Играет ноту с номером СDELTA @ + IOX! ; //Число отправляется в передатчик и меняет его частотуVARIABLE POS      //Необходимо для чтения: READ (-->C)     //Читает с диска 1 байтPOS @1024           //Размер стандартного буфера/MOD 1+ DUP    //вычисляется № блока и положение в нём[paste][/paste](blkno) @ = IF //если читается из текущего блока,  DROP  (blkbuf) @   //то вносим на вершину стека адрес буфераELSE  BLOCK        //иначе загружаем новый блок (адрес возвращается)THEN+ C@       //вычисляем адрес в памяти и сохраняем байт из него1 POS +! ; //перемещаем "головку": 2READ (-->N) //Читает 2-х байтное числоREAD READ 8 << OR ;

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

: PART14 POS +!           //2 числа4 0 DO 2READ 2 + POS +!  //4 строкиLOOP25 POS +!          //много цифр2READ 2 + POS +! ; //ещё строка

Что это за данные, смотрите в описании формата.

Вторая часть содержит информацию о расположении блоков в пространстве и времени на сетке. Сверху вниз - уровни, слева направо - тики. При стандартных настройках 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-й шаги я объединил: STEP32 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.
Осталось главное слово:

: PLAY0 POS !    //устанавливаем начальную позициюREVERT     //дабы не повредить данные на дискеPART1      //пропускаем заголовок10 IOXADDR ! //адрес передатчика(он сбрасывается на это число при перезаходе в игру)1 ST C!    //Устанавливаем начальное состояниеPART2 ;    //Наслаждаемся музыкой =)