ZX Like Pascal

[ALKO]

ATTR
		ld a,(_ATTRY)
		ld b,a
		ld a,(_ATTRX)
		ld c,a
; расчет адреса атрибутов знакоместа в DE, B-вертик.координата, C-гориз.координата
			LD	A,B
			RRCA
			RRCA
			RRCA
			LD	L,A
			AND	31
			OR	88
			LD	H,A
			LD	A,L
			AND	252
			OR	C
			LD	L,A
			LD A,(_ATTRC)
			LD (HL),A
			RET

Что сюда добавить, чтоб работала проверка _ATTRX / _ATTRY -> RET когда значения выходят за пределы экрана?

[blackmirror]

cp a,31/ret c/cp a,23/ret c

[ALKO]

Так будет работать?

ld a,(_ATTRY)
CP 24
JR C, CONTINUE1
RET

CONTINUE1
ld b,a
ld a,(_ATTRX)
CP 24
JR C, CONTINUE2
RET

CONTINUE2
ld c,a
LD A,B
RRCA
RRCA
RRCA
LD L,A
AND 31
OR 88
LD H,A
LD A,L
AND 252
OR C
LD L,A
LD A,(_ATTRC)
LD (HL),A
RET

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

cp a,31/ret c/cp a,23/ret c

Оуу... даже так...

Спасибо.

[Dart Alver]

ATTR
ld a,(_ATTRY)
ld b,a
ld a,(_ATTRX)
ld c,a

cp a,31/ret c/cp a,23/ret c

Наверно всётаки nc и 32/24

                ld a,(_ATTRY)
                cp 24
               ret nc 
		ld b,a
		ld a,(_ATTRX)
                cp 32
               ret nc
		ld c,a

[ALKO]

АХТУНГ
БАГРЕПОРТ!

Возникла необходимость с копированием изображений.

Набросал тестовую прогу на паскале (кстати, по какому адресу происходит WindowGet. То есть куда сохраняет?)

Program EX4;
var
i: word;
begin

textbackground(4);
textcolor(2);
WindowSet(0,0,9,9);


WindowGet;

WindowSet(10,10,9,9);

WindowPut;

end.

Так вот, полученный асм сурс закидываю в Эму Зэт Вин, но соответствующие процедурки в исходник не добавляются

[Andrew771]

Проверил, всё работает. У тебя точно версия Паскаля 0.909?
Я такой код вводил:

Program EX4;
var
	i,zwet: word;
begin
write('aaa');
WindowSet(0,0,9,9);
WindowGet;
clrscr;
write('нажмите любую клавишу');
readln;
clrscr;
WindowSet(0,0,9,9);
WindowPut;

end.

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

Набросал тестовую прогу на паскале (кстати, по какому адресу происходит WindowGet. То есть куда сохраняет?)

Твой код тоже нормально компилируется в версии 0.909.
Изображение сохраняется в область для виртуального экрана. Так что, использовать виртуальный экран и WindowGet/Put в одной программе не рекомендуется.

[Advertiser]

[ALKO]

У тебя точно версия Паскаля 0.909?

Экзешник zxlikepascal0909
Вроде он...

[Andrew771]

Да, всё правильно. libasm.lib надеюсь тоже родной от 0.909.
Должно работать.

[ALKO]

libasm.lib надеюсь тоже родной от 0.909.

Вот и причина. Либа была от старого билда.

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

По-дефолту оно копирует в 57344 ?

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

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

[Andrew771]

Ты бы взял процедуру putimage из файла libasm.lib и немного скорректировал под свою задачу, а потом вставил бы в качестве ассемблерной вставки в свою паскалевскую программу. Процедура выводит прямоугольную область на экран. Формат там нужно реинжинирить.

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

По-дефолту оно копирует в 57344 ?

да

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

Сейчас глянул процедуру putimage. Там всё просто. До вызова процедуры в ячейках col_window, row_window, width_window, height_window задается левый верхний столбец, левая верхняя строка, ширина и высота окна в знакоместах на экране, а также адрес addr_virt_screen, где лежит изображение. Процедура копирует изображение на экран.
Формат изображения:
все байты первой пиксельной строки
все байты второй пиксельной строки
...
все байты последней пиксельной строки
все атрибуты для всех знакомест подряд от левого верхнего до правого нижнего (если есть)

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

Т.е. изображение разбито не по знакоместам, а по пиксельным строкам