ЭТЮДЫ

[Sergey]

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

А если так?

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

[Destr]

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

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

[Reobne]

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

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

[Sergey]

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

A - HL
B - DE

[Reobne]

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

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

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

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

[Reobne]

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

[Advertiser]

[denpopov]

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

[Sergey]

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

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

[Sergey]

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.

[Destr]

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

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