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

Пока вы тут спорите об эмуляторах, я потиху начал разбираться с графикой, и как это всё прикрутить к Millfork.
Прошерстив кучу текстов и поковыряв исходники ASM, что генерит Graph2Font, получил такую картину:

https://i.postimg.cc/7Ym6cS8L/1.png

Для начала определяем режим работы Antic, для примера обычный текстовый режим 2.
Создадим anticMap (DisplayList) в виде array(byte), в котором опишем режим отображения блока из 8 линий.

Там же зададим карту с тайлами array(byte) charMap, где какой символ будет расположен (0x00 - пустое место).

И останется лишь задать адрес расположения в памяти $D402, $D403

Надо отдать должное MillFork без проблем даёт работать с «указателями» на расположение массива в памяти и даже больше
внутри самого массива можно указать на расположение в памяти (вот такая рекурсия).

Для чего это нужно я не совсем пока понял, но примерах, что мне встречались, DisplayList для Antic заканчивается JPM на начало самого себя.

Так не менее интересный момент. Когда я захотел использовать свой шрифт, то выяснился нюанс. Поскольку память ATARI устроена таким образом,
что адрес расположения шрифта задаётся только страшим байтом адреса в $D409, то это внесло некоторые ограничения и шрифт должен располагаться кратно 0x0400.

Встала дилемма, у нас-то не ассемблер и ALIGN не сделать. Однако, как выяснилось Millfork писали умные люди и уже обо всём позаботились. Достаточно при
создании массива указать выравнивание и проблема решена ;)

Код:

---

array(byte) font align(0x0400) = [

---

Ну и поигравшись с разными значениями ANTIC можно получить не менее умилительные шрифты ;)

https://i.postimg.cc/g2jJPrmH/2.png

p.s. с прерываниями я пока не заморачивался, хотел разобраться для начала с базовой частью.

Здесь "выхлоп" не на "умильные шрифты" может быть направлен, а не на английские шрифты и всякие научные знаки типа производной, интеграла и прочего, имхо.

Код:

---

align(0x0400)

---

Не многовато? для шрифтов хватит выравнивание по 256 байт.

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

Цитата:

---

Сообщение от andrews

Здесь "выхлоп" не на "умильные шрифты" может быть направлен, а не на английские шрифты и всякие научные знаки типа производной, интеграла и прочего, имхо.

---

и лучше на уникодные эмодзи и всякую требуху.

Цитата:

---

Сообщение от Shiny

Код:

---

align(0x0400)

---

Не многовато? для шрифтов хватит выравнивание по 256 байт.

---

Да вот видимо многовато :) Вообще брал из исходников graph2font:

Код:

---

        .ALIGN $0400
fnt        ins "logo2.fnt"

---

У них там вообще какой-то дико навороченный код с туевой хучей IFDEF.

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

Если я правильно понял, нужно сделать следующие шаги:

1) Запрещаем обработчик:

Код:

---

    LDA #0
    STA $D40E

---

2) Устанавливаем вектор на адрес с обработчиком:

Код:

---

    LDA #lo(handler1)
    STA $FFFA
    LDA #hi(handler1)
    STA $FFFB

---

3) Разрешаем обработчик:

Код:

---

    LDA #$C0
    STA $D40E
    RTS

---

И нифига по адресу handler1 мы так и не попадаем ни разу. Причём в том же куске из graph2font это работает на ура. Может тут тоже какое «выравнивание по памяти необходимо» ?

Причём интересно, что в примерах из книжек они вектор выставляют по адресу $0200, $0201 кому верить?

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

Забавно, нашел в чём дело, сбил с толку комментарий:

Код:

---

    ;switch off ROM to get 16k more ram
    lda    #$fe
    sta    $D301

---

Это не просто отключает 16к, без этого вообще NMI не фунциклирен.

p.s. К слову выравнивание по $0400 в graph2font обусловлено тем, что они на лету шрифты чанки переключают для следующей области экрана

Просто .xex без извращений:

Код:

---

*=$2000
fnt .file "font.fnt"
start:
 lda #font/256
 sta 756
 rts
*=$2E0
.word start

---

Что касается прерывания, то непонятно, что ты хочешь. Можно включить VBlank Interrupt(см. в моих исходниках 16К вызов jsr SETVBV). Если ты берешься за адреса $200-$201, то это Display List Interrupt. В этом случае нужно установить бит 7 для одной из строк - впиши вместо 2 $82 и на этой линии экрана произойдет прерывание. Но если ты поменяешь какие-то параметры экрана - шрифт и цвет, то параметры применятся ко всему экрану. Сам увидишь.

Цитата:

---

Сообщение от Shiny

Просто .xex без извращений:

---

в смысле? это ж исходник с ассемблером, да? Как из него .xex получить?

тот же xasm https://github.com/pfusik/xasm

xasm ругается на это

Код:

---

fnt .file "font.fnt"

---

ERROR: Illegal instruction

тогда так

Код:

---

        ORG $2000
fnt ins "HOHL.FNT"
start
        lda #fnt/256
        sta 756
        ldy #0
setc        tya
        sta (88),y
        iny
        bne setc
        jmp *
        run start

---

Так работает. Русский шрифт есть? И как что-то выводить по-русски?