mirror of
https://github.com/cc65/cc65.git
synced 2024-11-15 11:05:56 +00:00
27 lines
421 B
ArmAsm
27 lines
421 B
ArmAsm
;
|
|
; Ullrich von Bassewitz, 05.08.1998
|
|
;
|
|
; int abs (int x);
|
|
; and
|
|
; CC65 runtime: negation on ints
|
|
;
|
|
|
|
.export negax
|
|
.export _abs
|
|
|
|
_abs: cpx #$00 ; Test hi byte
|
|
bpl L1 ; Don't touch if positive
|
|
negax: clc
|
|
eor #$FF
|
|
adc #1
|
|
pha
|
|
txa
|
|
eor #$FF
|
|
adc #0
|
|
tax
|
|
pla
|
|
L1: rts
|
|
|
|
|
|
|