ЭТЮДЫ

[jerri]

вряд ли.

открой свой код трех летней давности и скажи что ты видишь.

---------- Post added at 21:35 ---------- Previous post was at 21:15 ----------

Свободен совсем, с ним конечно да, наверное проще.
Вопрос остается в том, что моя процедура сразу со счетчиком тактов, причем ровным. Если его реализовать отдельно - то можно любую из вышеприведенных реализовать, даже мой вариант с LDIR-ом. Вообщем чтобы не объяснять третий раз - исходник с некоторыми комментариями и снапшотом.

я бы сделал так

             NOP:NOP:		;NOP:NOP:		;NOP	;:NOP	
             DEC DE			
             LD (STACK),SP   

      ld sp,color_table
col_ptr equ $-2
      pop bc,de,hl
      ld a,c
      ld c,#fe
;рисуем
;
;
;
;
		ld hl,(colors)
        	ld de,#20		; скорость
        	add hl,de
              LD A,h
              CP max
              SBC A,A
              AND h
              LD h,a
        	ld (colors),hl
                ld e,h
                ld hl,color_table
                add hl,de
                ld (col_ptr),hl
;
;
;
;
;
;
;
color_table db 1,2,3,4,5,6,1,2,3,4,5,6

[Advertiser]

[drbars]

А я так:

;======================
Color LD HL,colors
LD A,(HL)
INC A
AND #07 ; speed
LD (HL),A
INC L
ADD A,#FF
CCF
SBC A,A
AND #01
LD B,A

LD C,#06

LD A,(HL)
ADD A,B
CP C
LD B,A
SBC A,A
AND B
LD (HL),A

CP C
LD B,A
SBC A,A
AND B
INC A
LD B,A

CP C
SBC A,A
AND B
INC A
LD D,A

CP C
SBC A,A
AND D
INC A
LD E,A

CP C
SBC A,A
AND E
INC A
LD H,A

CP C
SBC A,A
AND H
INC A
LD L,A

CP C
SBC A,A
AND L
INC A
RET

[zebest]

Отлично)) Вариант от drbars работает так, как задумано))
Правда против часовой стрелки, я хотел по)) Не суть. Как скорость менять - не понял)
Вариант от jerri тоже отлично работает, задумка интересная со стеком, но вот цвета путает(( Видимо надо как то таблицу перестроить. Суть в том, чтобы по часовой стрелке менялись A>B>D>E>H>L и снова >A

[denpopov]

открой свой код трех летней давности и скажи что ты видишь.

а вот древнего кода у меня и не осталось

[drbars]

Отлично)) Вариант от drbars работает так, как задумано))
Правда против часовой стрелки, я хотел по)) Не суть. Как скорость менять - не понял)

Упс.

AND #07 ; speed

AND %00001111 - медленее
AND %00000011 - быстрее

[jerri]

а вот древнего кода у меня и не осталось

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

---------- Post added at 23:33 ---------- Previous post was at 23:30 ----------

Вариант от jerri тоже отлично работает, задумка интересная со стеком, но вот цвета путает(( Видимо надо как то таблицу перестроить. Суть в том, чтобы по часовой стрелке менялись A>B>D>E>H>L и снова >A

ну это потому что у тебя последовательность регистров не правильная

                   a b e d l h
                 a b e d l h
               a b e d l h
color_table db 1,2,3,4,5,6,1,2,3,4,5,6

[denpopov]

Вроде как похоже на смену цветов..

?

[zebest]

zebest, да

Это хорошо)

a b e d l h - в принципе могу перерисовать под такую последовательность, тогда все верно будет?)

В принципе получилось не все так просто)) хех
BC написан вот под такой массив -

registr:  array [0..6] of string = ('0','a','b','d','e','h','l');

Пришлось искать как раз трехлетнийе исходники, хорошо с какими-никакими комментами, и переписывать в соответствии с новыми указаниями ВЦСПС и ЦК ВЛКСМ

registr:  array [0..6] of string = ('0','a','b','e','d','l','h');

Ну и при выводе текста поменять половинки регистров. Все получилось.
Результат - в аттаче. Интересный бонус - бесплатный мультиколор на бордюре. Там же, в аттаче.
ХорошО смотриЦЦа в Анриле с "no paper"
Еще раз всем спасибо)

[drbars]

out (c),0 - команда нестабильная.

Кстати, а что за флаговое безобразие после BIT n,(HL), которое на WOS'е трут?

[zebest]

Вроде как похоже на смену цветов..

Похоже)) Но пример - маленький..
Дорисовал картинку))
тут же надо будет менять все 768 байт атрибутов. Я правильно понимаю??
Сделать такой же фокус - атрибуты цвета менять по кругу, или сложно и тактов не хватит??
В аттаче - статический экран, но с картинойю..