cc65/libsrc/runtime/bneg.s

;
; 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
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
			`; Ullrich von Bassewitz, 05.08.1998`
			`;`
			`; CC65 runtime: boolean negation`
			`;`

			`.export bnega, bnegax`
			`.import return0, return1`

			`bnegax: cpx #0`
			`bne L0`
Minor optimization git-svn-id: svn://svn.cc65.org/cc65/trunk@45 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-06-10 15:48:54 +00:00			`bnega: tax`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`bne L0`
Minor optimization git-svn-id: svn://svn.cc65.org/cc65/trunk@45 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-06-10 15:48:54 +00:00			`L1: lda #1 ; Zero already in X`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`rts`

			`L0: ldx #0`
			`txa`
			`rts`