cc65/libsrc/runtime/popa.s

;
; Ullrich von Bassewitz, 25.10.2000
;
; CC65 runtime: Pop a from stack
;

       	.export	  	popa
	.importzp	sp

.proc	popa

.ifpc02
	lda	(sp)
.else
	ldy 	#0              ; (2)
 	lda	(sp),y		; (7) Read byte
.endif
      	inc	sp              ; (12)
       	beq	@L1             ; (14)
	rts                     ; (20)

@L1:	inc	sp+1
	rts

.endproc
More module splits git-svn-id: svn://svn.cc65.org/cc65/trunk@393 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-10-25 19:53:22 +00:00			`;`
			`; Ullrich von Bassewitz, 25.10.2000`
			`;`
			`; CC65 runtime: Pop a from stack`
			`;`

			`.export popa`
			`.importzp sp`

			`.proc popa`

65C02 code, minor optimization. git-svn-id: svn://svn.cc65.org/cc65/trunk@486 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-11-28 13:27:42 +00:00			`.ifpc02`
			`lda (sp)`
			`.else`
Added some cycle counts git-svn-id: svn://svn.cc65.org/cc65/trunk@2043 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-04-12 20:50:58 +00:00			`ldy #0 ; (2)`
			`lda (sp),y ; (7) Read byte`
65C02 code, minor optimization. git-svn-id: svn://svn.cc65.org/cc65/trunk@486 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-11-28 13:27:42 +00:00			`.endif`
Added some cycle counts git-svn-id: svn://svn.cc65.org/cc65/trunk@2043 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-04-12 20:50:58 +00:00			`inc sp ; (12)`
			`beq @L1 ; (14)`
			`rts ; (20)`
65C02 code, minor optimization. git-svn-id: svn://svn.cc65.org/cc65/trunk@486 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-11-28 13:27:42 +00:00
			`@L1: inc sp+1`
			`rts`
More module splits git-svn-id: svn://svn.cc65.org/cc65/trunk@393 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-10-25 19:53:22 +00:00
			`.endproc`