;
; Ullrich von Bassewitz, 05.08.1998
;
; CC65 runtime: boolean negation
;

       	.export		bnega, bnegax
	.import		return0, return1

bnegax:	cpx	#0
  	bne	L0
bnega: 	tax
  	bne	L0
L1:	lda	#1		; Zero already in X
   	rts

L0:	ldx	#0
	txa
	rts