ZX Like Pascal

[ZX_NOVOSIB]

Подскажите нубчику по синхре с развёрткой.
Я впендюрил в процедуру скролла оператор HALT, рябить стало поменьше, но всё же некоторая рябь осталась

Картинка не кажет, ибо хотлинк с вконтакта, юзай https://imgur.com/upload хотя бы

[Advertiser]

[ALKO]

форум ацке тупит.....

[Bolt]

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

[ALKO]

Не получается впихнуть трек их вортекса.
Сейвю как тапку.
Дважды Load "" code (плеер и сам модуль), затем дизасмю в массив DEFB.
копипащу в паскалевский исходник.
В нём же.

begin
...
Asm(MUSINIT);
Asm(MUSPLAY);
...
end.

MUSINIT
	ORG 49800
	CALL C350H
	RET

MUSPLAY
		ORG 49900
		CALL C355H
		RET
 MUS
        ORG  0C35FH
        DEFB  21H, 0BEH, 0CBH, 18H, 3AH, 0C3H, 09H....

Компилирую - запускаю, а оно пишыт - Integer out of range.

[Andrew771]

Но mod-а тут нет ведь.

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

по идее корректнее проверять младший бит числа 0 / 1.
Но возможно ли это сразу из этого паскаля?

mod есть - знак процента:
if x%2=0 then ...

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

Компилирую - запускаю, а оно пишыт - Integer out of range.

разберись с адресами после ORG и CALL и длиной блоков. Либо залезают на паскалевский код, либо больше 65000. Виртуальный экран для Паскаля и таблица отзеркаливания байтов находятся перед 65000 (адреса не помню, см. в либах).

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

Как конвертировать X Y значения, принимающие 32х24 в адресное пространство атрибутов?
Именно реализацию на асме.
Ну, то есть , мне нужно банально загрузить в пару регистров значения XY и цвет атрибута, чтоб оно закрасило по нужным мне координатам.
Главное шоб сама конвертация была не слишком медленной

; расчет адреса атрибутов знакоместа в DE, B-вертик.координата, C-гориз.координата
			LD	A,B
			RRCA
			RRCA
			RRCA
			LD	E,A
			AND	31
			OR	88
			LD	D,A
			LD	A,E
			AND	252
			OR	C
			LD	E,A

[ALKO]

Либо залезают на паскалевский код, либо больше 65000.

Да вот нет, оно в пределах 50000-52000

[Andrew771]

А конец музыки не залезает выше 65000?
Для процедур MUSINIT и MUSPLAY ORGи можешь не писать, они всё равно внутри себя вызывают нужные адреса.

[ALKO]

А конец музыки не залезает выше 65000?

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

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

Решил сделать анимашку огонька по такой схеме.

soplo_anim:= soplo_anim+1;


if soplo_anim %2 = 0 then
SpritePutClear(soplo01,8,14)
else
SpritePutClear(soplo02,8,14);

А он не шевелится.
Почему?

[Lethargeek]

soplo_anim:= soplo_anim+1;

if soplo_anim %2 = 0 then

в этом пасквиле разве нет логических побитовых операций?
и хватает ли ему ума вычислять остаток в таких случаях через and?

если старшие биты soplo_anim нигде не нужны, можно обойтись без остатка
сначала "soplo_anim := 1 - soplo_anim", потом "if soplo_anim = 0"

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

а если кадров больше двух, то подозреваю, выгодней
"anim := anim + 1; if anim > MAX then anim := 0"
чем остаток честно считать потом

[ALKO]

есть какой-то способ затереть спрайт при перемещении?
Или нужно создавать спрайт пустышку и накладывать с зачисткой следа?