git.sur5r.net Git - cc65/blob - libsrc/common/labs.s

   1 ;
   2 ; Ullrich von Bassewitz, 17.06.1998
   3 ;
   4 ; long __fastcall__ labs (long val);
   5 ; intmax_t __fastcall imaxabs (intmax_t val);
   6 ;
   7
   8         .export         _labs, _imaxabs
   9         .import         negeax
  10         .importzp       sreg
  11
  12
  13 _labs:
  14 _imaxabs:
  15         ldy     sreg+1          ; test hi byte
  16         bpl     L1
  17         jmp     negeax          ; Negate if negative
  18 L1:     rts
  19