;
; Ullrich von Bassewitz, 06.08.1998
; CC65 runtime: negation on longs
; eax = -eax
.export negeax
.importzp sreg
negeax: clc
eor #$FF
adc #1
pha
txa
adc #0
tax
lda sreg
sta sreg
lda sreg+1
sta sreg+1
pla
rts