cc65/libsrc/runtime/lxor.s

;
; Ullrich von Bassewitz, 06.08.1998
;
; CC65 runtime: xor on longs
;

	.export		tosxor0ax, tosxoreax
	.import		addysp1
	.importzp	sp, sreg, tmp1

tosxor0ax:
        ldy     #$00
        sty     sreg
        sty     sreg+1

tosxoreax:                         
       	ldy    	#0
       	eor    	(sp),y		; byte 0
	sta    	tmp1
	iny
	txa
	eor    	(sp),y		; byte 1
	tax
	iny
	lda    	sreg
	eor    	(sp),y		; byte 2
	sta    	sreg
	iny
	lda    	sreg+1
	eor    	(sp),y		; byte 3
	sta    	sreg+1

	lda    	tmp1
       	jmp    	addysp1
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, 06.08.1998`
			`;`
			`; CC65 runtime: xor on longs`
			`;`

More entry points for long ops that clear the high word of the lhs. git-svn-id: svn://svn.cc65.org/cc65/trunk@4025 b7a2c559-68d2-44c3-8de9-860c34a00d81 2009-08-15 21:06:06 +00:00			`.export tosxor0ax, tosxoreax`
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			`.import addysp1`
			`.importzp sp, sreg, tmp1`

More entry points for long ops that clear the high word of the lhs. git-svn-id: svn://svn.cc65.org/cc65/trunk@4025 b7a2c559-68d2-44c3-8de9-860c34a00d81 2009-08-15 21:06:06 +00:00			`tosxor0ax:`
			`ldy #$00`
			`sty sreg`
			`sty sreg+1`

			`tosxoreax:`
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			`ldy #0`
			`eor (sp),y ; byte 0`
			`sta tmp1`
			`iny`
			`txa`
			`eor (sp),y ; byte 1`
			`tax`
			`iny`
			`lda sreg`
			`eor (sp),y ; byte 2`
			`sta sreg`
			`iny`
			`lda sreg+1`
			`eor (sp),y ; byte 3`
			`sta sreg+1`

			`lda tmp1`
			`jmp addysp1`