Тема для всяких глупых вопросов

[ALKO]

LD B,(_SPR_W) - нет такой команды в Z80 !!!

В остальном нифига не понял что ты хочешь сделать.

Да... опять на те же грабли...
Странно что компилятор не ругается и сглатует за милую душу эту ересь.

Вопрос снят. Терь всё ок.

[Advertiser]

[Bedazzle]

Это не пересылка - это вывод.
туда еще внести эти данные надо.
а изза структуры буфера может быть проблематично

А у нас ТЗ очень размытое. Может, нужно просто положить в экран из памяти.

[ALKO]

Казалось, что всё уже, баZа для движка имеется. Ан нет. Всё никак не отстану.
Вот в том блоке, где мы прибавляем смещение к hl, как мне выполнить проверку, что атрибуты находятся в диапазоне от 0 до 31 ? Чтоб отсекало, а не лезло на след. строку.

сначала найдём адрес в буфере (почти та же процедура) ))

ld a,d
rrca
rrca
rrca
ld d,a
and #E0
or e
ld e,a
ld a,d
and 3
add a,#F2 ; Для буфера в #F200
ld d,a ; в DE - адрес, никаких BC портить не надо

ld a,32 ; ну а вот и наше смещение
sub c ; теперь в A - смещение для строки

1 ; всё начинаем цикл
push bc
ld b,0
ldir
ld c,a ; теперь bc - смещение
ex de,hl
add hl,bc ; переход на новую строку
ex de,hl
pop bc
djnz 1B

ret
Как-то так. Это пример конечно, можно и ещё поколдовать )) Да я и обшибиться мог, не проверял всё-таки ))
И да - код что этот, что изначальный предполагает что спрайт атрибутов целиком помещается в экране,
если вылезет - будет пичалька ))

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

Прост не хотелось бы переделывать ширину буфера.

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

Прост не хотелось бы переделывать ширину буфера.

но, видимо, таки придётся...

[ALKO]

Стал переделывать шырину буфера (на 40 байт на строку вместо 32-ух)
Заменил в этой строке на ld a,40

ld a,32 ; ну а вот и наше смещение
sub c ; теперь в A - смещение для строки

1 ; всё начинаем цикл

Затем процедура переброски буфера на экран:

VIRT_WIDE_ATTR_TO_SCR 
	halt
	di
    ld de,REAL_SCREEN
    ld hl,MAIN_BUFF ; главный буфер
;    ldir
	LD    B,24
WIDE_LOOP
	push bc
    ld bc,32
	ldir
	ld bc,8 ; 40 ширина буфера минус 32 область реального экрана - остаток
	add hl,bc 
	pop bc
	DJNZ  WIDE_LOOP 
	ei
RET

Но почему-то позиция XY атрибутов начинается с косяком. То, что должно быть 0 по X, равняется 32-8.
И вместо отсечения - переход на следующую строку...

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

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

[Dart Alver]

Стал переделывать шырину буфера (на 40 байт на строку вместо 32-ух)
Заменил в этой строке на ld a,40

И это всё что ты заменил ? А то, что старом варианте проги адресация была гвоздями прибита к ширине 32 байта ты учёл ? ))

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

Вот очень простенький и медленный вариант адресации для 40 байтной ширины буфера.

; адрес в буфере шириной 40 байт  E-x , D-y
; 40 не кратен степеням 2-ки

                ; ADR= Y*40+X = Y*32+Y*8+X
                ; максимальный Y=23 ; 256/23=11,13...
                ; в нашем случае можно умножение на 8 использовать байтовое
                ; а уже дальше придётся переходить на слова
                
                 push hl
                 ld a,d ; Y
                 ld d,#F2  ; старший байт буфера
                 add a,a ; *2
                 add a,a ; *4
                 add a,a ; *8
                 ld l,a
                 ld h,0
                 add hl,hl ; *16
                 add hl,hl ; *32
                 add a,l    ; \ 
                 ld l,a     ; |  *32 + *8
                jp nc,1F    ; |
                 inc h      ; /
1                add hl,de  ; +x +буфер
                 ex de,hl
                 pop hl

Пытаться оптимизировать дальше влом. ))
Если бы ширина буфера была бы скажем 64 или 128 (кратна степеням 2-ки), то арифметика адресации была бы попроще. ))

[ALKO]

Если бы ширина буфера была бы скажем 64 или 128 (кратна степеням 2-ки), то арифметика адресации была бы попроще. ))

Шота оно не пашет у меня...
делать шырину 64... жертвовать впустую 576 байт... не уверен что могу сейчас себе это позволить.

[ALKO]

Снова атрибуты.

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

SCROLL_PLANE_L
di
ld hl,22528
ld de,22528-1
ld b,24 ; строки

ld a,(hl); берём первый пиксель
push af
SCROLL_PLANE_L1:
push bc
ld bc,31 ; столбцы
ldir
pop bc
pop af 
ld (hl),a; переносим на последний столбец
inc hl ; следующая строка
djnz SCROLL_PLANE_L1
ei
ret

По задумке тут через аккум первый пиксель в строке должен переноситься на последний циклично (в идеале вообще бы через теневые регистры это замутить, чтоб лишний раз не долбиться в стек).
В общем, сыпется оно не так, как задумывалось.

[M80]

Убери push af / pop af и подыми SCROLL_PLANE_L1: на строку выше.
Тут нумерация строк не делается?

[ALKO]

Убери push af / pop af

а... понел. Я чёт подумал, что ldir задевает аккум.

Да, провтыкал метку цикла. Очень невнимательный я Альйоша.
Теперь вот не могу нужный оффсет подобрать меж значениями "ld bc,31 ; столбцы" и "inc hl", чтоб картинку не расколбашувало диагонально.

[M80]

Наверно так?

SCROLL_PLANE_L
        di
        ld      de,22527        ; начало экрана
        ld      hl,22527 + 1    ; начало экрана + 1
        ld      b,24            ; строк
SCROLL_PLANE_L1:
        ld      a,(de)          ; сохраним первый столбец
        push    bc
        ld      bc,32 - 1       ; всего столбцов - первый
        ldir                    ; переместим все влево
        pop     bc
;       DE - указатель на последний в текущей строке
;       HL - на первый на следующей строке
        ld      (de),a          ; переносим сохранённый первый на последний столбец в строке
        inc     de              ; следующая строка
        inc     hl              ; следующая строка + 1
        djnz    SCROLL_PLANE_L1
        ei
        ret

Старайся писать аккуратно. Себе же меньше работы будет! И людЯм приятно.)
Что то LIST этот свернул всё.(

SCROLL_PLANE_L
        di
        ld      de,22527        ; начало экрана
        ld      hl,22527 + 1    ; начало экрана + 1
        ld      b,24            ; строк
SCROLL_PLANE_L1:
        ld      a,(de)          ; сохраним первый столбец
        push    bc
        ld      bc,32 - 1       ; всего столбцов - первый
        ldir                    ; переместим все влево
        pop     bc

;       DE - указатель на последний в текущей строке
;       HL - на первый на следующей строке

        ld      (de),a          ; переносим сохранённый первый на последний столбец в строке
        inc     de              ; следующая строка
        inc     hl              ; следующая строка + 1
        djnz    SCROLL_PLANE_L1
        
        ei
        ret