ЭТЮДЫ

Цитата:

---

Сообщение от denpopov

вряд ли.

---

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

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

Цитата:

---

Сообщение от zebest

Свободен совсем, с ним конечно да, наверное проще.
Вопрос остается в том, что моя процедура сразу со счетчиком тактов, причем ровным. Если его реализовать отдельно - то можно любую из вышеприведенных реализовать, даже мой вариант с 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

---

А я так:

Цитата:

---

;======================
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

---

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

Цитата:

---

Сообщение от jerri

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

---

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

Цитата:

---

Сообщение от zebest

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

---

Упс.

Цитата:

---

AND #07 ; speed

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

---

Цитата:

---

Сообщение от denpopov

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

---

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

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

Цитата:

---

Сообщение от zebest

Вариант от 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

---

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

?

Цитата:

---

Сообщение от jerri

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" :)
Еще раз всем спасибо):v2_dizzy_vodka3:

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

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

Цитата:

---

Сообщение от denpopov

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

---

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