ЭТЮДЫ

Цитата:

---

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

Не могу, тёзка.
Если по P/M (у меня макрос, его поменять нет проблем, но если надо контролировать другой флаг, то придётся весь текст перелопачивать где есть сравнение)
Без обид, проверяй как-нибудь иначе (что там Reobne, накалякал?)

---

А если так? ;)

Код:

---

_no_xor:
                jp        P,A_меньше_B
                CCF
                ret
A_меньше_B: ; A<B
                SCF
                ret

---

Код:

---

                or        a
                sbc        hl,de
                jp        PO,.nx
                ld        a,h
                xor        a, #80
.nx
                jp        P,.amb
                CCF
                ret
.amb
                SCF
                ret

---

Если я правильно написал, то не работает.

Цитата:

---

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

...A_меньше_B ld hl,#0x0000 ; A>B ret A_меньше_B: ; A<B...

---

Проверял на своей тест-проге. Тест не пройден. :(
Судя по комментам, у тебя 2 исхода A>B и A<B. Лучше и понятнее писать HL<DE и HL>=DE. А то я смотрю и не понимаю, что тут вообще изначально подразумевалось, и как прогу можно исправить, чтобы заработала.

Цитата:

---

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

Проверял на своей тест-проге. Тест не пройден. :(
Судя по комментам, у тебя 2 исхода A>B и A<B. Лучше и понятнее писать HL<DE и HL>=DE. А то я смотрю и не понимаю, что тут вообще изначально подразумевалось, и как прогу можно исправить, чтобы заработала.

---

A - HL
B - DE

Sergey, Исправил конец на вот так:

Код:

---

                jp      M,A_меньше_B
                ld      hl,#0000  ; HL>=DE

                ret
A_меньше_B: ; HL<DE
                ld      hl,#0001
                ret

---

И заработало! :)

Текущая версия тестов. 6 разных процедур тестируются на совпадение результатов.

а нельзя ли поменять LD HL,nnnn на установку флага С?

Цитата:

---

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

а нельзя ли поменять LD HL,nnnn на установку флага С?

---

http://zx-pk.ru/showpost.php?p=780698&postcount=587

Цитата:

---

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

Sergey, так в среднем ещё быстрей выходит:
...
Всё, вилы!

Код:

---

        LD A,H    ; 4
        XOR D      ; 4
        JP P,CHD  ; 10
        EX DE,HL  ; 4
CHD    SBC HL,DE  ; 15

---

33/37 т.
...

---

Думали тема раскрыта? - Ха! :)
Заменяем EX DE,HL, время которого ПРИБАВЛЯЕТСЯ к 16-битному вычитанию, на вычитание HL из DE с помощью 8-битной арифметики, которое выполняется ВМЕСТО 16-битного вычитания. Идея использования 8-й арифметики взята из SDCC.

Код:

---

        LD A,H    ; 4
        XOR D      ; 4
        JP P,CHD  ; 10
;      EX DE,HL  ; 4
        ld a,e        ; 4
        sub l        ; 4
        ld a,d        ; 4
        sbc a,h ; 4
        <ветвление по результату сравнения (CF)>
CHD    SBC HL,DE  ; 15
        <ветвление по результату сравнения (CF)>

---

34/33 такта. Среднее время выполнения 33,5.

Цитата:

---

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

<ветвление по результату сравнения (CF)>

---

А оно что, не съест такты?
Т.е. эти <ветвление по результату сравнения (CF)> В ЛЮБОМ СЛУЧАЕ ПРОИСХОДЯТ.
Неважно внутри процедуры (как твой пример) или после (как мой)
У тебя получается либо 15 тактов на SBC и ветвление либо 16 на сравку + опять ветвление.