cc65/libsrc/common/labs.s

;
; Ullrich von Bassewitz, 17.06.1998
;
; long __fastcall__ labs (long val);
; intmax_t __fastcall imaxabs (intmax_t val);
;

        .export         _labs, _imaxabs
        .import         negeax
        .importzp       sreg


_labs:
_imaxabs:
        ldy     sreg+1          ; test hi byte
        bpl     L1
        jmp     negeax          ; Negate if negative
L1:     rts
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
			`; Ullrich von Bassewitz, 17.06.1998`
			`;`
labs() is also imaxabs(). git-svn-id: svn://svn.cc65.org/cc65/trunk@4167 b7a2c559-68d2-44c3-8de9-860c34a00d81 2009-09-13 18:06:43 +00:00			`; long __fastcall__ labs (long val);`
			`; intmax_t __fastcall imaxabs (intmax_t val);`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export _labs, _imaxabs`
			`.import negeax`
			`.importzp sreg`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
labs() is also imaxabs(). git-svn-id: svn://svn.cc65.org/cc65/trunk@4167 b7a2c559-68d2-44c3-8de9-860c34a00d81 2009-09-13 18:06:43 +00:00
			`_labs:`
			`_imaxabs:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`ldy sreg+1 ; test hi byte`
			`bpl L1`
			`jmp negeax ; Negate if negative`
			`L1: rts`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00