cc65/libsrc/runtime/pusha.s

;
; Ullrich von Bassewitz, 26.10.2000
;
; CC65 runtime: Push value in a onto the stack
;

       	.export	  	pushaysp, pusha
	.importzp	sp

; Beware: The optimizer knows about this function!

pushaysp:
	lda	(sp),y
pusha:	ldy	sp
       	beq	@L1
 	dec	sp
.ifpc02
	sta	(sp)
.else
    	ldy	#0
    	sta	(sp),y
.endif
    	rts

@L1:	dec	sp+1
    	dec	sp
    	sta	(sp),y
    	rts
Splitted the push.s module git-svn-id: svn://svn.cc65.org/cc65/trunk@397 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-10-26 20:43:54 +00:00			`;`
			`; Ullrich von Bassewitz, 26.10.2000`
			`;`
			`; CC65 runtime: Push value in a onto the stack`
			`;`

			`.export pushaysp, pusha`
			`.importzp sp`

			`; Beware: The optimizer knows about this function!`

			`pushaysp:`
			`lda (sp),y`
			`pusha: ldy sp`
			`beq @L1`
			`dec sp`
Added some 65C02 code git-svn-id: svn://svn.cc65.org/cc65/trunk@487 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-11-28 13:33:08 +00:00			`.ifpc02`
			`sta (sp)`
			`.else`
Splitted the push.s module git-svn-id: svn://svn.cc65.org/cc65/trunk@397 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-10-26 20:43:54 +00:00			`ldy #0`
			`sta (sp),y`
Added some 65C02 code git-svn-id: svn://svn.cc65.org/cc65/trunk@487 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-11-28 13:33:08 +00:00			`.endif`
Splitted the push.s module git-svn-id: svn://svn.cc65.org/cc65/trunk@397 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-10-26 20:43:54 +00:00			`rts`

			`@L1: dec sp+1`
			`dec sp`
			`sta (sp),y`
			`rts`