cc65/libsrc/atari7800/wherex.s

;
; 2022-04-16, Karri Kaksonen
;
; unsigned char wherex()
;

        .export         _wherex
        .import         CURS_X

;-----------------------------------------------------------------------------
; Get cursor X position
;
        .proc   _wherex

        ldx     #0
        lda     CURS_X
        rts
        .endproc
Split files 2022-04-16 16:15:06 +00:00			`;`
			`; 2022-04-16, Karri Kaksonen`
			`;`
			`; unsigned char wherex()`
			`;`

			`.export _wherex`
Split files 2022-04-16 16:15:19 +00:00			`.import CURS_X`
Split files 2022-04-16 16:15:06 +00:00
			`;-----------------------------------------------------------------------------`
			`; Get cursor X position`
			`;`
Split files 2022-04-16 16:15:19 +00:00			`.proc _wherex`
Split files 2022-04-16 16:15:06 +00:00
Split files 2022-04-16 16:15:19 +00:00			`ldx #0`
			`lda CURS_X`
			`rts`
			`.endproc`
Split files 2022-04-16 16:15:06 +00:00