ЭТЮДЫ

[jerri]

А без таблиц ?

а без таблиц

;0 1 2 3 4 5 
           ld a,0
counter equ $-1
           inc a
           cp 6
           jr nz,$+3
           xor a
           ld (counter),a

[drbars]

а без таблиц

;0 1 2 3 4 5 
           ld a,0
counter equ $-1
           inc a
           cp 6
           jr nz,$+3
           xor a
           ld (counter),a

топик стартер просил "ровный".

---------- Post added at 16:19 ---------- Previous post was at 15:57 ----------

Вот, ровный:

CNT:
LD A,#FF
INC A
CP 6
LD C,A
SBC A,A
AND C
LD (CNT+1),A

---------- Post added at 16:48 ---------- Previous post was at 16:19 ----------

Я бы ещё добавил указатель на ячейку

MAX = порог счета

LD HL,указатель на ячейку счетчика
INC (HL)
LD A,(HL)
CP MAX
SBC A,A
AND (HL)
LD (HL),A

[denpopov]

ld a,0
counter equ $-1
inc a
cp 6
jr nz,$+3
xor a
ld (counter),a

не люблю я такой код, привычнее это:

counter:ld a,0
inc a
...
ld (counter+1),a

[jerri]

denpopov, а по мне так удобнее

[denpopov]

denpopov, а по мне так удобнее

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

[Blade]

не буду спорить, просто мой пример все же читаемый.

А через месяц забыл,что там код модифицируется и сделал так:

counter: push af
         ld a,0

[drbars]

Зато "ровная"
Надо по хорошемуу только цвета 1,2,3,4,5,6 чтобы по регистрам по кольцу двигались. Так понятнее изложил?

Так что ли?

LD HL,(colors)
LD DE,#20 ; speed
LD C,#06 ; step
ADD HL,DE
LD (colors),HL
LD A,H
AND #07

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

[denpopov]

А через месяц забыл,что там код модифицируется и сделал так:

вряд ли.

[Alex Rider]

А альтернативный набор занят совсем? Если в нем хранить цвета, кольцевой буффер можно сделать цепочкой пересылок типа (если c не нужен):

       ld c,a
       ld a,b
       ld b,e
       ld e,d
       ld d,l
       ld l,h
       ld h,c

Если этот вариант не катит, то алоновский будет как-то так выглядеть:

...
       ld h,high table
       counter = $ + 1
       ld l,#01
       ld l,(hl)
       ld b,l
       ld l,(hl)
       ld d,l
       ld l,(hl)
       ld e,l
       ld l,(hl)
       ld a,l
       ex af
       ld l,(hl)
       ld a,l
       ld l,(hl)
       ld h,a
       ld (counter),a
       ex af
...
       align #100
table: db #01, #02, #03, #04, #05, #06, #01

[zebest]

А альтернативный набор занят совсем?

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