lneg.s



;
; 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
	eor	#$FF
	adc	#0
	tax
	lda	sreg
	eor	#$FF
	adc	#0
	sta	sreg
	lda	sreg+1
	eor	#$FF
	adc	#0
	sta	sreg+1
	pla
	rts



Valid HTML 4.0! lneg.s.html; generated on Sat Oct 13 22:41:32 2001 by ca65html
uz@cc65.org