ЭТЮДЫ

Цитата:

---

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

Могу 77 без порчи регистров. Нужно? :)

---

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

Код:

---

ld h, (16384+6144)/4
ld a, Y
rlca
rl h
rlca
rl h
and %11100000
ld l, a
ld a, X
rra
rra
rra
and 31
or l
ld l, a

---

Сорри, проверить не могу, возможны тупые глюки. Но идея ОК. Привет #z80 :)

Цитата:

---

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

Сорри, проверить не могу, возможны тупые глюки. Но идея ОК. Привет #z80 :)

---

В регистре H что? ну или например надо из DE в DE расчёт сделать)

Цитата:

---

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

В регистре H что? ну или например надо из DE в DE расчёт сделать)

---

Я имел в виду, что XY - это BC или DE. Они не портятся. В HL - результат. Не то?

Цитата:

---

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

Не то?

---

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

Цитата:

---

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

Итого: 77 тактов. Кто быстрее?

---

Не тестил, но если не глючит должно быть пошустрей.
In: H=Y, L=X
Out: HL=адрес в файле атрибутов.

Код:

---

        RLC H        ; 8
        RLC H        ; 8
        LD A,L        ; 4
        RRCA        ; 4
        RRCA        ; 4
        RRCA        ; 4
        XOR H        ; 4
        AND #1F        ; 7
        XOR H        ; 4
        LD L,A        ; 4
        LD A,H        ; 4
        AND 3        ; 7
        OR #58        ; 7
        LD H,A        ; 4
                        ; 73

---

Цитата:

---

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

Не тестил, но если не глючит должно быть пошустрей.
In: H=Y, L=X
Out: HL=адрес в файле атрибутов.

Код:

---

        RLC H        ; 8
        RLC H        ; 8
        LD A,L        ; 4
        RRCA        ; 4
        RRCA        ; 4
        RRCA        ; 4
        XOR H        ; 4
        AND #1F        ; 7
        XOR H        ; 4
        LD L,A        ; 4
        LD A,H        ; 4
        AND 3        ; 7
        OR #58        ; 7
        LD H,A        ; 4
                        ; 73

---

---

Вроде работает. 4 такта, круто! :v2_thumb:

Цитата:

---

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

Не тестил, но если не глючит должно быть пошустрей.
In: H=Y, L=X
Out: HL=адрес в файле атрибутов.

Код:

---

    RLC H    ; 8
    RLC H    ; 8
    LD A,L    ; 4
    RRCA    ; 4
    RRCA    ; 4
    RRCA    ; 4
    XOR H    ; 4
    AND #1F    ; 7
    XOR H    ; 4
    LD L,A    ; 4
    LD A,H    ; 4
    AND 3    ; 7
    OR #58    ; 7
    LD H,A    ; 4
            ; 73

---

---

Круто, а для пикселов такую?

Цитата:

---

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

Круто, а для пикселов такую?

---

Код:

---

        LD        A,H
        AND        #C0
        RRA       
        SCF       
        RRA       
        RRCA       
        XOR        H
        AND        #F8
        XOR        H
        LD        C,A
        LD        A,L
        RLCA       
        RLCA       
        RLCA       
        XOR        H
        AND        #C7
        XOR        H
        RLCA       
        RLCA       
        LD        L,A
        LD        H,C

---

93 такта :v2_dizzy_roll:

Цитата:

---

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

Не тестил, но если не глючит должно быть пошустрей.
In: H=Y, L=X
Out: HL=адрес в файле атрибутов.

Код:

---

        RLC H        ; 8
        RLC H        ; 8
        LD A,L        ; 4
        RRCA        ; 4
        RRCA        ; 4
        RRCA        ; 4
        XOR H        ; 4
        AND #1F        ; 7
        XOR H        ; 4
        LD L,A        ; 4
        LD A,H        ; 4
        AND 3        ; 7
        OR #58        ; 7
        LD H,A        ; 4
                        ; 73

---

---

Проверьте мою, плиз.

Код:

---

        LD A,H          ;4
        RRCA          ;4
        RRCA          ;4
        RRCA          ;4
        RRA          ;4
        RR L          ;8
        RRA          ;4
        RR L          ;8
        RRA          ;4
        RR L          ;8
        AND 0x03  ;7
        ADD 0x58  ;7
        LD H,A          ;4
       
        Итого 70 тактов

---