cc65/libsrc/runtime/steaxspi.s

;
; Ullrich von Bassewitz, 22.06.1998
;
; CC65 runtime: Store eax at the address on top of stack with index
;


        .export         steaxspidx
        .import         popax
        .importzp       sreg, ptr1, tmp1, tmp2, tmp3


.proc   steaxspidx

        sta     tmp1
        stx     tmp2
        sty     tmp3
        jsr     popax           ; get the pointer
        sta     ptr1
        stx     ptr1+1
        ldy     tmp3
        lda     tmp1
        sta     (ptr1),y
        iny
        lda     tmp2
        sta     (ptr1),y
        iny
        tax
        lda     sreg
        sta     (ptr1),y
        iny
        lda     sreg+1
        sta     (ptr1),y
        lda     tmp1
        rts

.endproc
Split of the lruntime module git-svn-id: svn://svn.cc65.org/cc65/trunk@427 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-11-01 22:03:22 +00:00			`;`
			`; Ullrich von Bassewitz, 22.06.1998`
			`;`
			`; CC65 runtime: Store eax at the address on top of stack with index`
			`;`


Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export steaxspidx`
			`.import popax`
			`.importzp sreg, ptr1, tmp1, tmp2, tmp3`


			`.proc steaxspidx`

			`sta tmp1`
			`stx tmp2`
			`sty tmp3`
			`jsr popax ; get the pointer`
			`sta ptr1`
			`stx ptr1+1`
			`ldy tmp3`
			`lda tmp1`
			`sta (ptr1),y`
			`iny`
			`lda tmp2`
			`sta (ptr1),y`
			`iny`
			`tax`
			`lda sreg`
			`sta (ptr1),y`
			`iny`
			`lda sreg+1`
			`sta (ptr1),y`
			`lda tmp1`
			`rts`
Split of the lruntime module git-svn-id: svn://svn.cc65.org/cc65/trunk@427 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-11-01 22:03:22 +00:00
			`.endproc`