cc65/libsrc/atari7800/wherex.s

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

        .export         _wherex
        .include        "extzp.inc"

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

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

			`.export _wherex`
Add mono conio files 2022-04-18 11:59:54 +03:00			`.include "extzp.inc"`
Split files 2022-04-16 19:15:06 +03:00
			`;-----------------------------------------------------------------------------`
			`; Get cursor X position`
			`;`
Split files 2022-04-16 19:15:19 +03:00			`.proc _wherex`
Split files 2022-04-16 19:15:06 +03:00
Split files 2022-04-16 19:15:19 +03:00			`ldx #0`
			`lda CURS_X`
			`rts`
			`.endproc`
Split files 2022-04-16 19:15:06 +03:00