Использование команд RLD и RRD

Faster, ты в своей процедуре ничего не пропустил случаем?

Цитата:

---

LD HL,BUF
LD (HL),A

---

А из (HL) потом ничего не извлекается?

Цитата:

---

Сообщение от Shadow Maker

Faster, ты в своей процедуре ничего не пропустил случаем?

А из (HL) потом ничего не извлекается?

---

Нет ;)

Цитата:

---

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

у меня в запасе есть процедура работающая с диапазоном в 65520 секторов.. ;)

---

Хоть и оффтоп, но - давай!!!

Написал в личку.:v2_wink2:

Цитата:

---

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

у меня в запасе есть процедура работающая с диапазоном в 65520 секторов.

---

Оптимизировал и ускорил процедуру, также применив команду RLD.

Код:

---

IN:        LD        DE,текущий_трек/сектор
        LD        BC,количество_перепрыгиваемых_секторов

OUT:        DE = новые_трек/сектор

        LD        HL,BUF
        LD      A,C
        ADD        A,E
        LD        (HL),A
        AND    #F
        LD      E,A
        RLD
        LD        (HL),B
        RLD
        OR        (HL)
        ADD    A,D
        LD      D,A
        RET

BUF        DB        0

---