ZX Like Pascal

[Eltaron]

Ой... #4000 это жы реальный экран )))(((
Туплю.

Ну а всё-таки, как незримо рисовать во второй экран 128к ?

Работай с обоими экранами через #С000. Когда включена страница 5 - там будет основной экран. Когда страница 7 - второй.

На асме типа такого

DRAW_LOOP:
    LD A, 7 ; банка со вторым экраном, но бит второго экрана выключен
    LD BC, #7ffd
    OUT (C), A
... незримо рисуешь в #C000 (второй экран)...
    LD A, 8 + 5 ; переключаемся на второй экран, подключаем к адресу C000 первый
    LD BC, #7ffd
    OUT (C), A
... незримо рисуешь в #C000 (первый экран)...
    JP DRAW_LOOP

[ALKO]

C000, значит.
В паскале вирт. экран по дефолту E000.
После каждой компиляции редактировать придётся.
Это можно как-то перенастроить, не пересобирая утилиту на делфях?

[ALKO]

Не, видимо, этого недостаточно.

На асме типа такого

Пока что сделал частично на ЯВУ

while 1<2 do {бесконечный цикл}
begin

if hide_draw_f=0 then Asm(DRAW_LOOP1)
else begin 
hide_draw_f:=0;
Asm(DRAW_LOOP2);
end;
hide_draw_f:=1;

... рендеринг
end.

DRAW_LOOP1:
    LD A, 7 ; банка со вторым экраном, но бит второго экрана выключен
    LD BC, #7ffd
    OUT (C), A
ret


DRAW_LOOP2:
    LD A, 8 + 5 ; переключаемся на второй экран, подключаем к адресу C000 первый
    LD BC, #7ffd
    OUT (C), A
	 ret

После компиляции ЯВУ подправил addr_virt_screen

...
virt_screen_high        equ     160                            
addr_virt_screen        equ    #C000                          
table_mirror_high       equ     251                             
...

В итоге чёрный экран, и через мгновение прога ресетится.

[ALKO]

Может всё-таки какие-то другие значения в порт надо посылать?

[Eltaron]

Может всё-таки какие-то другие значения в порт надо посылать?

А ROM используется? Если да, то нужно ещё 4-й бит включить в значениях, а то ROM128 подключится.

[ALKO]

то нужно ещё 4-й бит включить в значениях,

Попробовал хотя бы на оба лупа задать LD A, 15, но экран остаётся пустым, ничего не мелькает (слой атрибутов чёрный, слой пикселей чистый).

[Advertiser]

[ALKO]

Нашёл статейку, тут в порт посылают #17 #18 (00010111, 00011000)

Вечером буду пробувать.

https://zxpress.ru/article.php?id=4423

[Eltaron]

Попробовал хотя бы на оба лупа задать LD A, 15, но экран остаётся пустым, ничего не мелькает (слой атрибутов чёрный, слой пикселей чистый).

15 - это 1111, четвертый бит так и остался нулевой. Надо #17 и #1D

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

Ну и надо убедиться, что ничего нужного не расположено в самом верху памяти (стек, например). При переключении страницы эта область заменится на что-то другое и будут глюки

[ALKO]

Надо #17 и #1D

тоже не дало результата.
Может и вправду стек задевает. Но коль так, то хотя бы содержимое стека должно было перебросить на экран, но нет - кромешная пустота.

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

Установил константу virt_screen_high equ 192 (судя по всему, именно на неё опираются все вычислялки знакомест).
Тоже бестолку..

[Eltaron]

тоже не дало результата.
Может и вправду стек задевает. Но коль так, то хотя бы содержимое стека должно было перебросить на экран, но нет - кромешная пустота.

Не факт, экран всего-то С000...DB00 занимает, а стек обычно в самой верхотуре лежит, в районе #FFxx