lcompl.s



;
; Ullrich von Bassewitz, 06.08.1998
;
; CC65 runtime: long complement
;

	.export		compleax
	.importzp	sreg

; eax = ~eax

compleax:
	eor	#$FF
	pha
	txa
	eor	#$FF
	tax
	lda	sreg
	eor	#$FF
	sta	sreg
	lda	sreg+1
	eor	#$FF
	sta	sreg+1
	pla
	rts



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