ЭТЮДЫ

[denpopov]

В обсчем, SDCC меня тоже уделал!

говорили тебе, а ты не слушал

[Advertiser]

[Destr]

Твою процедурку можно убыстрить на целых 2(!) такта, заменив JR на JP.

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

[Vladson]

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

Мне бы твои проблемы, я после привыкания к современным реалиям (в 99% случаев приходится писать не быстрый код, а расширяемый и легкоподдерживаемый, независимо от сис-требований) вообще почти уже разучился считать такты и байты. Стараюсь по привычке писать "как лучше" и только потом когда ничего не работает, уже вспоминаю что на Z80 нету "стопицот" гигов и гигагерц

[Destr]

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

        LD A,H     ; 4
        XOR D      ; 4
        LD A,H     ; 4
        RLA        ; 4
        JP M,CHD   ; 10
        SBC HL,DE  ; 15
CHD

26/41 тактов

Всё, вилы!

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

33/37 т.

P.S. Это надо-же, всю ночь мучатся...
Как работает - разбирайся сам, я спать наконец-то

[Reobne]

Вставлю и свою версию (для разнообразия).

Оформленна как подпрограмма.
Недостатки: более медленная, большая, сложно переделать в inline.
Достоинства: не портятся HL, DE. Возможно творчески переделать в inline, так что скорость увеличится. (Сейчас, когда она как подпрограмма, то содержит много условных переходов для подготовки флага C. Inline эти переходы можно использовать непосредственно)

        LD A,H         ;4
        SUB D          ;4
        JP Z,HiEQ      ;10
        CCF            ;4 (=22)
        RET PE         ;5 (exit 33 p=0.25)
        JP   P,Els_    ;10
        SCF            ;4
        RET            ;10 (exit 51 p=0.373)
Els_:
        XOR A          ;4
        RET            ;10 (exit 51 p=0.373)
HiEQ:
        LD A,L         ;4
        CP E           ;4
        RET            ;10 (exit 36 p=0.004)

Вероятности p посчитаны при равномерном распределении аргументов (-32768..32767). Чем меньше диапазон значений аргументов будет на самом деле, тем выше будет вероятность последнего выхода в 36 тактов.

[свернуть]

Аттач - тесты

, чтобы убедится, что все процедуры работают одинаково. Все 5 версий, которые я нашёл в этой теме. Файл - ассемблер EMUZWin.
Сам я убедился.
(Хм. А вдруг они все работают одинаково неправильно? )
Там два режима, 0 - полный перебор значений, сначала меняются старшие байты. 1 - берутся псевдослучайные 256 байт из ПЗУ, и тесты проходят только с ними.

[свернуть]

[Andrew771]

Мне бы твои проблемы, я после привыкания к современным реалиям (в 99% случаев приходится писать не быстрый код, а расширяемый и легкоподдерживаемый, независимо от сис-требований) вообще почти уже разучился считать такты и байты. Стараюсь по привычке писать "как лучше" и только потом когда ничего не работает, уже вспоминаю что на Z80 нету "стопицот" гигов и гигагерц

На Спеке тоже не стоит заморачиваться везде с быстродействием, а только в критических кусках. Иначе разработка будет длиться вечно.

[denpopov]

На Спеке тоже не стоит заморачиваться везде с быстродействием, а только в критических кусках. Иначе разработка будет длиться вечно.

Скорее всего - "гладко было на бумаге, да забыли про овраги"...

[Destr]

Хм. А вдруг они все работают одинаково неправильно?

Свои варианты я проверял на 3д-бегалке.
(там не забалуешь, если что не так то сразу кранты)
Работают.

[Sergey]

Свои варианты я проверял на 3д-бегалке.

Оу! Проверь, пожалуйста, тогда и это:

		or	a,a		; 4
		sbc	hl,de		;15
		jp	PO,_no_xor	;10
		ld	a,h		; 4	
		xor	a, #0x80	; 7
_no_xor:
		jp	P,A_меньше_B
		ld	hl,#0x0000  ; A>B
		ret
A_меньше_B: ; A<B
		ld	hl,#0x0001
		ret
29/40 тактов

Переход, не по CF, а по флагу знака, P/M

[Destr]

Оу! Проверь, пожалуйста, тогда и это:

Переход, не по CF, а по флагу знака, P/M

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