cc65/libsrc/geos/conio/where.s


;
; Maciej 'YTM/Elysium' Witkowiak
;
; 27.10.2001

; unsigned char wherex (void);
; unsigned char wherey (void);

	    .export _wherex, _wherey
	    .importzp tmp1, tmp2

	    .include "../inc/jumptab.inc"
	    .include "cursor.inc"

_wherex:    lda cursor_x
	    sta tmp1
	    lda cursor_x+1
	    sta tmp2
	    ldx #tmp1
	    ldy #3
	    jsr DShiftRight
	    lda tmp1
	    rts

_wherey:    lda cursor_y
	    lsr
	    lsr
	    lsr
	    rts
simple conio support for GEOS git-svn-id: svn://svn.cc65.org/cc65/trunk@1093 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-10-27 17:13:22 +00:00
			`;`
			`; Maciej 'YTM/Elysium' Witkowiak`
			`;`
			`; 27.10.2001`

			`; unsigned char wherex (void);`
			`; unsigned char wherey (void);`

			`.export _wherex, _wherey`
			`.importzp tmp1, tmp2`

			`.include "../inc/jumptab.inc"`
			`.include "cursor.inc"`

			`_wherex: lda cursor_x`
			`sta tmp1`
			`lda cursor_x+1`
			`sta tmp2`
support for assert.h in GEOS, conio bugfixes git-svn-id: svn://svn.cc65.org/cc65/trunk@1094 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-10-27 23:04:18 +00:00			`ldx #tmp1`
simple conio support for GEOS git-svn-id: svn://svn.cc65.org/cc65/trunk@1093 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-10-27 17:13:22 +00:00			`ldy #3`
			`jsr DShiftRight`
			`lda tmp1`
			`rts`

			`_wherey: lda cursor_y`
			`lsr`
			`lsr`
			`lsr`
			`rts`