Так гораздо оптимальнее)Цитата:
Сообщение от Hunta
Надо бы замерить на реале, отличается ли по тактам ASH от ASHC.
И я бы заменил циклические сдвиги, на сдвиг по таблице (8 таблиц по 512 байт).
Но это надо опять же замерять, что быстрее будет.
Вид для печати
Так гораздо оптимальнее)Цитата:
Сообщение от Hunta
Надо бы замерить на реале, отличается ли по тактам ASH от ASHC.
И я бы заменил циклические сдвиги, на сдвиг по таблице (8 таблиц по 512 байт).
Но это надо опять же замерять, что быстрее будет.
Ну не гораздо - но что бы оптимизировать ещё - надо оптимизировать ещё и код, который обращается к данному.Цитата:
Сообщение от Titus
Если ASHC выполняется за такое же время, как и ASH, то я бы сделал что-то типа того:
Код:R0, R1 - рабочие регистры
R2 - какой-то буфер для спрайтов
R3 - счетчик столбцов
R4 - сдвиг
R5 - указатель на спрайт
22$: MOV R3,-(SP) ; Сохранить R3 на стеке
MOV @#176640,-(SP) ; Сохранить регистр адреса планов 1,2 на стеке
11$:
CLR R0 ; R0 = 0
MOV (R5)+,R1 ; (R5)+ -> R1
ASCH R4,R0 ; R0.R1 << R4
BIS R0,R1 ; R1 = (R5)+ rol R4
MOV R1,R0 ;
mask: BIC 0x0F0F,R0 ; Оставить старшие части сдвинутых байт
; (слово маски писать прям в код самомодификацией)
BIS R0,@#176642 ; (план 1,2) = (план 1,2) | R0
MOV R0,(R2)+ ; R0 -> (R2)+
INC @#176640 ; Прирастить регистр адреса планов 1,2
XOR R0,R1 ; Оставить младшие части сдвинутых байт
BIS R1,@#176642 ; (план 1,2) = (план 1,2) | R1
MOV R1,(R2)+ ; R1 -> (R2)+
SOB R3,11$ ; Цикл на R3 итераций
MOV (SP)+,@#176640
ADD #80.,@#176640
MOV (SP)+,R3
3$: DEC #0
BNE 22$
Так было такое количество лишнего кода, что не удивлюсь, если даже при большем времени выполнения ASHC - новый код выиграет у старогоЦитата:
Сообщение от Titus
Были жалобы на нехватку памяти. Правда, если вместо 25 слов использовать 31 - то таки да, никакой памяти не хватитЦитата:
Сообщение от Titus
- - - Добавлено - - -
BIC 0x0F0F,R0 => BIC #^B<0000111100001111>, R0
https://zx-pk.ru/threads/14702-rasch...l=1#post345024Цитата:
Сообщение от Titus
Твои же собственные тесты с этими командами протухли)Цитата:
Сообщение от hobot
https://zx-pk.ru/threads/14702-rasch...l=1#post590216
Titus, но там сами тесты остались или нет? Что бы @S_V_B у себя мог прогнать?
если надо образ и все тесты Патрона выложу повторно
Тесты никто никуда не забирал)Цитата:
Сообщение от hobot
Но для того, чтобы понять, не надо SVB у себя прогонять. Надо поднять архивы, и найти хоть какие-то живые скриншоты)
Не будет работать, поэтому так много лишнего кода.Код:11$:
CLR R0 ; R0 = 0
MOV (R5)+,R1 ; (R5)+ -> R1
ASCH R4,R0 ; R0.R1 << R4
BIS R0,R1 ; R1 = (R5)+ rol R4
MOV R1,R0 ;
mask: BIC 0x0F0F,R0 ; Оставить старшие части сдвинутых байт
; (слово маски писать прям в код самомодификацией)
BIS R0,@#176642
В вашем примере байт не расширяется до слова.. а сдвигаются два последовательных байта спрайта.
И в памяти планы чередуются через байт 1,2,1,2..
Смысл в чем, взяли байт - сдвинули его в слове, а потом наложили BISом следующее слово со смещением в байт, тогда все склеится правильно.
Все верно делается. У меня берется сразу слово (два последовательных байта, один для одного плана, другой для другого), и над ними одновременно производится сдвиг и дальнейшее разрезание на нужные части для засылки в каждый из планов.Цитата:
Сообщение от S_V_B