Программирование Турбо 2+ в режиме 320x200x16

[norduk]

Может быть есть какие-то куски примеров кода как инициализировать графический режим АТМки 320x200x16, как установить палитру, как нарисовать точку или что-то вроде того (или исходники какие-нибудь)? И ещё софт (редактор, компилятор) если порекомендуете, был бы рад. Хоть TASiS, хоть TR-DOS, вообще не важно.

Вообще непонятно с чего начать. Курить книжку по АТМке пытался, там ни черта непонятно. Дизассемблировать прошу не отправлять)

[Advertiser]

[Максагор]

Может быть есть какие-то куски примеров кода как инициализировать графический режим АТМки 320x200x16, как установить палитру, как нарисовать точку или что-то вроде того (или исходники какие-нибудь)?

Ну, давай начнем просто с включения режима 320х200 (остальное как-нибудь в следующий раз):

;включение графического режима 320х200 в ATM-turbo 2+ из обычной конфигурации TR-DOS:

		LD A,%10101000	;биты 4-7 обязательны именно в таком 
						;виде, бит 3=1 – турбо включено
						;биты 0-2 код экрана - %000 – режим 320x200
						;соответственно %10100000 тоже самое, но с 
						;выключенной турбой, а %10101011 – ZX-экран
		LD BC,retadr		;адрес возврата из TR-DOS
		PUSH BC			;на стек
		LD BC, #2A53		;адрес подпрограммы в TR-DOS с командой OUT (C),A:RET
		PUSH BC			;на стек
		LD BC, #FF77		;скрытый системный порт ATM
		JP # 3D2F		;переходим в TR-DOS для доступа к скрытому порту
retadr		…			;здесь продолжается программа пользователя


;включение графического режима 320х200 в ATM-turbo 2+ из ОС TASiS:

		XOR A			;задание режима системному вызову на получение
		INC A			; в HL’ адрес спецблока системных переменных OS TASiS
		LD C,#79			;задаем номер системного вызова(рестарта) $PAL
		RST #10			;получаем их адрес
		EXX
		PUSH HL
		POP IX			;перекидываем адрес блока в индексный регистр
		LD A, %10101011	;задаем экран 320х200 (значение байта точно как и выше)
		LD (IX+55),A		;ставим номер экрана в «экранную» переменную
		XOR A			;режим «восстановления» для следующего рестарта
		LD BC,#007B		;рестарт #7B $set_pg (в регистре B один из режимов работы)
		RST #10			;меняем экран
		…				;продолжение программы пользователя

P.S. В этом примере изменится экран только в программе пользователя, а при выходе из нее в систему
восстановится «системный» экран (сейчас по умолчанию текстовый). Чтобы поменять системный экран,
используйте (IX+54).

[norduk]

Ну, давай начнем просто с включения режима 320х200

Так. Решил попробовать. Скачал SJAsm с редактором вот отсюда, взял где-то в ютубе пример простейшей программки

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

device atmturbo512
org 30000

TVFL equ 5C3Ch

start:
xor a
ld(TVFL),a
ld a,'*'
rst 16
ret

rep:
jp rep
end

savesna "test.sna",start

[свернуть]

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

(device atmturbo512 - это, как я понимаю, указание компилятору под какую адресацию генерировать .sna)

И вот с чем столкнулся. Если я указываю device zxspectrum48, то генерируемый .sna в эмуляторе, который прилагается в данном пакете запускается, а если выбираю нужный мне atmturbo512, то результат не работает (как, кстати и при указании zxspectrum128).

Я понимаю, что в АТМке (как и в 128 машине) адресация более сложная и, тем не менее, непонятно, почему простейшая программа не запускается в данном пакете.

Что я делаю не так?

И есть ли какой-нибудь настроенный пакет для кросс-разработки именно под АТМ? А-то, судя по всему, эмулятор Speccy, который запускает SJAsm из данного пакета режимы АТМки не понимает.

[norduk]

Ну и, вообще, было бы круто сделать сборку пакета для кросс-разработки и разместить на сайте. UnrealSpeccy умеет из командной строки цеплять бинарник и запускать сразу? Ищу, пока не вижу такой возможности...

[NEO SPECTRUMAN]

Что я делаю не так?

1. зачем то юзаешь процедуры ПЗУ-шки
когда нормальные люди так обычно не делают

2. sna врятли поддерживает 512к АТМ-ки
да и вообще есть ли хоть какой то формат снапшотов поддерживающих больше 128?

3. ну и скорей всего проблема в не инициализированных системных переменных
(по моему в sjasm-е есть такоя)
и выходит она из пункта 1

4. после того ret-a произойдет возврат в бейсик или в некуда
до jp rep проц не дойдет



лучше для начала
попикай бипером
а потом лезь в экран

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

у себя нормально скомпилировал и запустил

	device zxspectrum128
	org 30000

TVFL equ 5C3Ch

start:
	xor a
	ld (TVFL),a
	ld a,'*'
	rst 16
	ret

rep:
	jp rep
;	end

	savesna "test.sna",start

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

сейчас я в основном пользуюсь z00m-овской веткой сджасма
https://github.com/z00m128/sjasmplus/releases
правда на нее усердно ругается антивирусник

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

UnrealSpeccy умеет из командной строки цеплять бинарник и запускать сразу?

бинарник не знаю
а sna вполне запускает

например тем же батником что и компилить сорец

sjasmplus test.asm
"Q:\SomeFolders\us\unreal.exe" test.sna

[norduk]

Результат пока такой: https://www.screencast.com/t/yFvZikJua
Анрил настроен как Турбо 2+. Какие системные переменные и как нужно инициализировать для того, чтобы эта же программа заработала на Турбе?

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

лучше для начала
попикай бипером
а потом лезь в экран

Задача инициализировать экран АТМ и в нём порисовать. Бипер не требуется.

[norduk]

Так.
1) SJAsm умеет генерить бинарник и класть в сразу в .trd, что значительно облегчило запуск программы в UnrealSpeccy
2) Включение режима АТМ 320x200 в эмуляторе отработало, появились характерные цветные полоски.

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

device atmturbo512
org 25000

start:
LD A,%10101000
LD BC, #2A53
PUSH BC
LD BC, #FF77
JP #3D2F

rep:
jp rep
end

emptytrd "test.trd"
savetrd "test.trd","1.C",25000,$1000;

[свернуть]

Открытые вопросы:
1) Как очистить экран? Из каких кусков (страниц), вообще, состоит данный режим АТМ? И где они лежат и как к ним обращаться? (Максагор?)
2) Как автоматом создать .trd и закинуть туда бинарник я уже придумал, остаётся найти решение с каким-нибудь универсальным бутом, который появлялся бы внутри свежесозданного .trd и запускал программку, которую туда положил компилятор.

[goodboy]

Как автоматом создать .trd и закинуть туда бинарник я уже придумал

бинарник можно загрузить и через отладчик (находясь в нём alt+r)

[norduk]

бинарник можно загрузить и через отладчик (находясь в нём alt+r)

Ага, вижу, спасибо.
Только смысл в том, чтобы править в редакторе, жать на компайл, ран и получать запущенный эмулятор с программой. В крайнем случае, запускать батник Unreal Speccy руками. Чего я практически добился. Только непонятно в каком формате у UnrealSpeccy в сборке с сайта Максагора лежит boot6.$b. Это бут, который эмулятор автоматом подкладывает в .trd, если там бута нет. Вместо него хочу запихать свой басик-файл для запуска поделки, которая прилетает из SJAsm'а.

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

Кажется он в формате hobeta.

[goodboy]

как вариант
" unreal.exe prog.$B prog.$C <- будут помещены на один диск"
и в настройках можно выбрать имя для программы которая будет boot`ом
"BOOT=name.$b"