cc65/libsrc/tgi/tgi_linepop.s

;
; Ullrich von Bassewitz, 22.06.2002
;
; Helper function for tgi_line and tgi_lineto. Pops/stores X2/Y2.
;

        .include        "tgi-kernel.inc"

        .import         popax
        .importzp       ptr3, ptr4

tgi_linepop:
        sta     ptr4            ; Y2
        stx     ptr4+1
        sta     _tgi_cury
        stx     _tgi_cury+1
        jsr     popax
        sta     ptr3            ; X2
        stx     ptr3+1
        sta     _tgi_curx
        stx     _tgi_curx+1
        rts
Working on the TGI library git-svn-id: svn://svn.cc65.org/cc65/trunk@1323 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-06-22 21:40:24 +00:00			`;`
			`; Ullrich von Bassewitz, 22.06.2002`
			`;`
			`; Helper function for tgi_line and tgi_lineto. Pops/stores X2/Y2.`
			`;`

			`.include "tgi-kernel.inc"`

			`.import popax`
			`.importzp ptr3, ptr4`

			`tgi_linepop:`
			`sta ptr4 ; Y2`
			`stx ptr4+1`
			`sta _tgi_cury`
			`stx _tgi_cury+1`
			`jsr popax`
			`sta ptr3 ; X2`
			`stx ptr3+1`
			`sta _tgi_curx`
Fixed a bug git-svn-id: svn://svn.cc65.org/cc65/trunk@1324 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-06-22 21:46:32 +00:00			`stx _tgi_curx+1`
Working on the TGI library git-svn-id: svn://svn.cc65.org/cc65/trunk@1323 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-06-22 21:40:24 +00:00			`rts`