Ретро-ЯП Millfork для Atari, Apple II, ZX Spectrum, MSX, CP/M, NES, Game Boy и MS-DOS

[breeze]

Решил пока отвлечься от скроллов и заняться не менее интересной штукой, как чтение файлов с диска.
Чисто теоретически опять «ничего сложного», но блин! как же геморно искать по крупицам информацию, её вроде как и вагон в каждой книжке, но где-то одно не дописано, где-то воды много итд.

Досов на атари как известно много, все они разные и в меру навороченные. Остановится решил на XDOS, как наследнике классической Atari DOS 2.x. Минималистичненько, без всяких меню, чисто командная строка, минимальный размер загрузчика.

Для сборки готовой дискеты использовал тулзу «dir2atr» из пакета «Atari Tools for Win32»

Если говорить вкратце, то принцип работы с файлами такой же как и «везде» открываем файл, читаем, закрываем.
На атари, при открытии нужно указать номер потока*16.

Для примера сделал что бы с диска читалась картинка в формате ATASCII и выводилась на экран. Экран в DOS обрезан слева на 2 колонки, пришлось картинку подрезать тоже.





пример простой как 5 копеек

Выделяем место под буфер
Читаем, если ошибка (файл не найден), выводим код ошибки
Если всё успешно выводим посимвольно.

import stdio
import xdos

const byte channelID = 16*2

array fileName = ["D:DINO.ATA",0x9b]
const word fileSize = 950

array fileData[fileSize]

void main() {
    word i
    byte status


    status = openFile(fileName, XDOS_R, channelID)
    if (status == XDOS_OK) {
        readFile(fileData, fileSize, channelID)
        closeFile(channelID)

        new_line()
        for i,0,to,fileSize-1 {
            putchar(fileData[i])
        }
    } else {
        putstrz("Open error:"z)
        putword(status)
    }
}

Имя файла «прибито», было бы не плохо разобраться с аргументами командной строки, вроде XDOS это позволяет, если я правильно понял.

Есть ещё нюанс с размером файла. Чисто гипотетически, если задать размер, например 255, а размер файла будет 24 байта, то система прочитает ровно 24 байта, даже если указать 255 в параметрах. Но остаётся вопрос с тем же выводом, как реально понять сколько же фактически было прочитано с диска. Нужно ещё разбираться.

Но начало уже положено, можно подгружать «уровни» и другую информацию с дискеты на ура

[Advertiser]

[Shiny]

тут один камрад подсказал насчет конца строки на Атари:"priwet,vestokij WORLD!{x9b}"

[breeze]

Поковырял тут немного XDOS. Согласно документации, после загрузки программы, с адреса XLINE ($0880) находится вся строка (имя файла + аргументы) которые набрали.
Сделал небольшую процедурку, которая копирует эту шнягу в буфер и теперь можно загружать разные файлы, указав их как аргумент:





Единственное что осталось это разобраться с размерами загружаемого файла. Чисто гипотетически конечно можно не грузится этим и грузить частями в небольшой буфер, но так не интересно

[goodboy]

Единственное что осталось это разобраться с размерами загружаемого файла.

возможно стоит посмотреть в

XFILE = $87D filename buffer

ещё про команду LOA пишут что
After executing the command, the Number of bytes actually loaded in $358/9
(and can be determined with the DUP command = 358)

[Shiny]

Это только ATASCII? poke 82,0 решат заморочку с краями.

[breeze]

Это только ATASCII?

Ну для примера да, а так не важно что там, может и обычный текст быть.

poke 82,0 решат заморочку с краями.

Ну как вариант

- - - Добавлено - - -

возможно стоит посмотреть в

XFILE = $87D filename buffer

Честно там не совсем понятно что за данные.

ещё про команду LOA пишут что
After executing the command, the Number of bytes actually loaded in $358/9
(and can be determined with the DUP command = 358)

Ну надо подумать, вообще хотелось бы предварительно знать, сколько выделять памяти. Но это только в мечтах. Размер Array должен быть статический, тупо выделил 256б вот и радуйся)
Чисто гипотетически можно выделить 128б (по размеру сектора) и сделать счётчик загрузки

[breeze]

Короче, пошаманив немного, нашел идеальный вариант. Методом научного тыка (из дампа памяти) нашел интересный адрес $0028/29 а потом в описании памяти атари увидел, что здесь хранится количество переданных/принятых байт через SIO. Так что вопрос с точностью быстро решился.

Вариант с адресами $358/9 не проканал, поскольку это используется при команде 40 (если я правильно понял) загрузчика бинарных файлов (исполняемых). И там ничего нет при загрузке через команду 7.

Переименовал файл в XV.COM, так как задолбало набирать длинное название с расширением, а XEX XDOS не понимает

Ну и поправил некоторые ляпы с $9b (перенос строки) и на время отображения отключаю смещение (poke 82,0). Буфер сделал 1024 байта, если сделать меньше (например 255), то видно как частями грузится картинка

Так же встречается ESC код $1b (в картинке ATARI600) поправил, теперь всё збс!

Есть косяк с US2.ATA не могу понять почему на середине картинки позицию швыряет в начало экрана o_O

Ещё почему-то не зависимо от того нашелся ли файли или нет(заблокирован) из $0343 возвращается код 01 - ошибок нет. Надо копать.

Ну а так в целом минималистичный вьювер ATASCII готов

[breeze]

Решил тут ещё немного поколупаться с DOS, в результате чего родился плеер треков в формате MPT (Atari Music ProTracker) да да, всем так нравилось это слово, что протрекер есть везде



Сначала загружается сама программа, затем бинарь MPT-плеера (в будущем можно сделать детект и подгружать разные плееры).
В качестве аргумента указываем имя музыки.

На бордюре такты, по любой клавише выход.

Из интересного, в Millfork есть пример для этого плеера, но он немного некорректен. Во первых исходный XEX занимает аж 38кб, поскольку сама программа и плеер с музыкой «размазаны» по памяти, выгружается такой огромный брикет. А во вторых, пропускаются 6 байт при импорте файлов:

const array player @ ADDRPLA = file("data/mpt_player.obj", 6)

Почему их было не обрезать сразу при создании мне не ясно. В принципе я нашел плеер MPT в исходниках, так что можно подумать об оптимизации.
Кроме того походу пьесы автор не разобрался как управлять плеером, и вместо того что бы подать команду 2 (остановить) он глушит цифровые каналы (да-да плеер умеет в дигитал).

В сырках я перевёл команды плеера:

// commands, A:
// 0 - инициализация. в регистрах Y-младший и X-старший байт адреса музыкальных данных.
// 1 - воспроизвести инструмент, номер которого находится в битах 4-0 рег.X,
//     в битах 7-6 рег.X - номер канала, на котором должен быть сыгран этот инструмент,
//     а в рег.Y-номер ноты инструмента, с C-1 - $00, c#1 - $01.
// 2 - остановить воспроизведение музыки, без каких-либо параметров.
// 3 - воспроизвести паттрен, номер которого находится в битах 5-0 рег.X,
//     в битах 7-6 рег.X - номер канала, а рег.Y - транспозиция канала.
// 4 - начать воспроизведение музыки. В рег.X - номер позиции начала, а рег.Y - биты 0-3 какой из
//     каналов должен быть выключен (0 - 3й, 1 - 2й, 2 - 1й, 3 - 0й канал = 1 выключен)
// 5 - воспрозвести цифровой семпл, в регистрах Y-младший и X-старший байт адреса таблици, в которой
//     находится список адресов расположения семплов.
// 6 - воспроизведение цифровой музыки, в рег.X bit 0 = 1 - 15kHz, 0 - 8kHz
// 7 - воссоздаёт(?) цифровой семпл, номер которого в рег.Y(0-F), в рег.X bit0 - 15kHz, bit7-6 номер канала

[Shiny]

во вторых, пропускаются 6 байт при импорте файлов:

const array player @ ADDRPLA = file("data/mpt_player.obj", 6)

Почему их было не обрезать сразу при создании мне не ясно

Вангую, что стандартный заголовок - слово $FFFF, начальный адрес, конечный адрес.

[breeze]

Вангую, что стандартный заголовок - слово $FFFF, начальный адрес, конечный адрес.

Ну где-то так Это DOS-заголовок файлов?