cc65/libsrc/runtime/lpop.s

;
; Ullrich von Bassewitz, 29.12.1999
; Christian Krueger, 11-Mar-2017, added 65SC02 optimization
;
; CC65 runtime: long pop
;

        .export         popeax
        .import         incsp4
        .importzp       sp, sreg

        .macpack        cpu

popeax: ldy     #3
        lda     (sp),y
        sta     sreg+1
        dey
        lda     (sp),y
        sta     sreg
        dey
        lda     (sp),y
        tax
.if (.cpu .bitand ::CPU_ISET_65SC02)
        lda     (sp)
.else
        dey
        lda     (sp),y
.endif
        jmp     incsp4
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, 29.12.1999`
few 6502 and some 65SC02 optimizations 2017-03-12 22:21:43 +00:00			`; Christian Krueger, 11-Mar-2017, added 65SC02 optimization`
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			`;`
			`; CC65 runtime: long pop`
			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export popeax`
			`.import incsp4`
			`.importzp sp, sreg`
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
few 6502 and some 65SC02 optimizations 2017-03-12 22:21:43 +00:00			`.macpack cpu`
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
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`popeax: ldy #3`
			`lda (sp),y`
			`sta sreg+1`
			`dey`
			`lda (sp),y`
			`sta sreg`
			`dey`
			`lda (sp),y`
			`tax`
few 6502 and some 65SC02 optimizations 2017-03-12 22:21:43 +00:00			`.if (.cpu .bitand ::CPU_ISET_65SC02)`
			`lda (sp)`
remove dangling spaces 2022-04-17 14:06:22 +00:00			`.else`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`dey`
			`lda (sp),y`
few 6502 and some 65SC02 optimizations 2017-03-12 22:21:43 +00:00			`.endif`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`jmp incsp4`
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