ABS и SGN в машкоде

[SaNchez]

;sgn
+
jr nc, -> 0..127
jr c, -> -128..-1

Если переходы не нужны, то можно еще такт сэкономить:


rlc l
ret z
sbc a,a
or 1
ld l,a

[Oleg N. Cher]

Что значит "если переходы не нужны"? :-)

[SaNchez]

char предложил общий вариант, но если использовать только для функции, можно один такт выиграть, поменяв "set 0,l" на "or 1".

signed char Basic_SGN (signed char x) __z88dk_fastcall {
__asm
RLC L
RET Z
SBC A,A
OR 1
LD L,A
__endasm;
} //Basic_SGN

[char]

хотите линейную, и самую жесть? их есть у нас ->

ld a,l
rla
sbc a,a
sub l
adc a,l
ld l,a

[SaNchez]

Гениально!

[Titus]

хотите линейную, и самую жесть? их есть у нас ->

ld a,l
rla
sbc a,a3
sub l
adc a,l
ld l,a

Пиши демы)

[Advertiser]

[char]

Пиши демы)

как только, так... уже )

для себя вынес из темы "две новейших двадцатитактных команды", еще бы знать куда их теперь... )

;sgn c
ld a,c
rla
sbc a,a
sub c
adc a,c

;sgn c,a
ld c,a
rla
sbc a,a
sub c
adc a,c

[Titus]

как только, так... уже )

Как называются?

[Oleg N. Cher]

Titus, только доглядел. Это мега-код! :-) По сравнению с оригинальной процедурой:

signed int Basic_ABSI (signed int x) __z88dk_fastcall {
__asm
    BIT  7,H     ;  8
    RET  Z       ; 11/5
    EX   DE,HL   ;  4
    XOR  A       ;  4
    LD   L,A     ;  4
    LD   H,A     ;  4
    SBC  HL,DE   ; 15 => 44/19
__endasm;
} //Basic_ABSI

Получилось:

signed int Basic_ABSI (signed int x) __z88dk_fastcall {
__asm // Code by Titus
    LD   A,H     ;  4
    OR   A       ;  4
    RET  P       ; 11/5
    CPL          ;  4
    LD   H,A     ;  4
    LD   A,L     ;  4
    CPL          ;  4
    LD   L,A     ;  4
    INC  HL      ;  6 => 39/19
__endasm;
} //Basic_ABSI

Тактов кушает меньше и не портит пару DE! А байтиков столько же!

В Basic.h добавляю ключик:

extern signed int Basic_ABSI (signed int x) __z88dk_fastcall __preserves_regs(b,c,d,e,iyl,iyh);

- и оптимизатор точно знает, какие регистры сохраняет функция. И использует эту информацию, чтобы сделать код лучше.

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

Эх, всё-таки не зря открыл тему =) Благодарю!

[Oleg N. Cher]

На идеях char'а и SaNchez'а. SGN для байтов:

signed char Basic_SGN (signed char x) __z88dk_fastcall {
__asm // Code by char & SaNchez
    RLC  L
    RET  Z
    SBC  A
    OR   #1
    LD   L,A
__endasm;
} //Basic_SGN

Для слов:

signed char Basic_SGNI (signed int x) __z88dk_fastcall {
__asm // Code by char & SaNchez
    LD   A,L
    OR   H
    RET  Z
    RLC  H
    SBC  A
    OR   #1
    LD   L,A
__endasm;
} //Basic_SGNI