ABS и SGN в машкоде

[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