cc65/libsrc/runtime/ldau0sp.s

;
; Ullrich von Bassewitz, 11.04.1999
;
; CC65 runtime: Load an unsigned char indirect from pointer somewhere in stack
;

	.export		ldau00sp, ldau0ysp
	.importzp      	sp, ptr1

ldau00sp:
     	ldy	#1
ldau0ysp:
     	lda	(sp),y
     	sta	ptr1+1
     	dey
     	lda	(sp),y
     	sta	ptr1
	ldx	#0
.ifpc02
      	lda	(ptr1)		; Save one cycle for the C02
.else
      	lda	(ptr1,x)
.endif
	rts
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, 11.04.1999`
			`;`
			`; CC65 runtime: Load an unsigned char indirect from pointer somewhere in stack`
			`;`

			`.export ldau00sp, ldau0ysp`
			`.importzp sp, ptr1`

			`ldau00sp:`
			`ldy #1`
			`ldau0ysp:`
			`lda (sp),y`
			`sta ptr1+1`
			`dey`
			`lda (sp),y`
			`sta ptr1`
			`ldx #0`
Added some 65C02 code. git-svn-id: svn://svn.cc65.org/cc65/trunk@484 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-11-27 22:59:03 +00:00			`.ifpc02`
			`lda (ptr1) ; Save one cycle for the C02`
			`.else`
			`lda (ptr1,x)`
			`.endif`
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			`rts`