cc65/libsrc/runtime/lor.s

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

	.export		tosor0ax, tosoreax
	.import		addysp1
	.importzp	sp, sreg, tmp1
                                  

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

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

			`tosor0ax:`
			`ldy #$00`
			`sty sreg`
			`sty sreg+1`
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
			`tosoreax:`
			`ldy #0`
			`ora (sp),y ; byte 0`
			`sta tmp1`
			`iny`
			`txa`
			`ora (sp),y ; byte 1`
			`tax`
			`iny`
			`lda sreg`
			`ora (sp),y ; byte 2`
			`sta sreg`
			`iny`
			`lda sreg+1`
			`ora (sp),y ; byte 3`
			`sta sreg+1`

			`lda tmp1`
			`jmp addysp1`