cc65/libsrc/runtime/pleasp.s

;
; Ullrich von Bassewitz, 21.08.1998
;
; CC65 runtime: Load effective address with offset in A relative to SP and push it
;

    	.export		pleaasp
     	.import		pushax
     	.importzp	sp

.proc	pleaasp

  	ldx	sp+1		; Get high byte
  	clc
  	adc	sp
   	bcc	@L9
   	inx
@L9:	jmp	pushax

.endproc
Module split git-svn-id: svn://svn.cc65.org/cc65/trunk@423 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-10-31 18:57:00 +00:00			`;`
			`; Ullrich von Bassewitz, 21.08.1998`
			`;`
Fixed a typo git-svn-id: svn://svn.cc65.org/cc65/trunk@669 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-03-26 14:26:27 +00:00			`; CC65 runtime: Load effective address with offset in A relative to SP and push it`
Module split git-svn-id: svn://svn.cc65.org/cc65/trunk@423 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-10-31 18:57:00 +00:00			`;`

			`.export pleaasp`
			`.import pushax`
			`.importzp sp`

			`.proc pleaasp`

			`ldx sp+1 ; Get high byte`
			`clc`
			`adc sp`
			`bcc @L9`
			`inx`
			`@L9: jmp pushax`

			`.endproc`