ABS и SGN в машкоде

[NEO SPECTRUMAN]

bit 7,h		;8
ret z		;5 11

ex de,hl	;4
xor a		;4
ld l,a		;4
ld h,a		;4
sbc hl,de	;15
ret		;10

		;19 54 оригинальная процедура

bit 7,h		;8
ret z		;5 11

ld a,h		;4
cpl		;4
ld h,a		;4
ld a,l		;4
cpl		;4
ld l,a		;4
inc hl		;6
ret		;10

		;19 53

ld a,h		;4
cp $80		;7 возможно +-$01
ret c		;5 11

cpl		;4
ld h,a		;4
ld a,l		;4
cpl		;4
ld l,a		;4
inc hl		;6
ret		;10

		;22 52

- - - Добавлено - - -

XOR A
LD L,A
LD H,A

LD L,0
LD H,L

На такт быстрее.

LD HL,$0000 в таком случае на 2 такта быстрее