cc65/libsrc/runtime/regswap1.s

;
; Ullrich von Bassewitz, 25.11.2002
;
; CC65 runtime: Swap 1 byte of register variable space
;

        .export         regswap1
        .importzp       sp, regbank

.proc   regswap1

        lda     regbank,x               ; Get old value
        pha                             ; Save it
        lda     (sp),y                  ; Get stack loc
        sta     regbank,x               ; Store new value
        pla
        sta     (sp),y                  ; Store old value
        rts

.endproc
New functions to swap register variables git-svn-id: svn://svn.cc65.org/cc65/trunk@1629 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-25 12:38:38 +00:00			`;`
			`; Ullrich von Bassewitz, 25.11.2002`
			`;`
			`; CC65 runtime: Swap 1 byte of register variable space`
			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export regswap1`
			`.importzp sp, regbank`
New functions to swap register variables git-svn-id: svn://svn.cc65.org/cc65/trunk@1629 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-25 12:38:38 +00:00
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.proc regswap1`
New functions to swap register variables git-svn-id: svn://svn.cc65.org/cc65/trunk@1629 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-25 12:38:38 +00:00
			`lda regbank,x ; Get old value`
			`pha ; Save it`
			`lda (sp),y ; Get stack loc`
			`sta regbank,x ; Store new value`
			`pla`
			`sta (sp),y ; Store old value`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`rts`
New functions to swap register variables git-svn-id: svn://svn.cc65.org/cc65/trunk@1629 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-25 12:38:38 +00:00
			`.endproc`