cc65/libsrc/atari5200/gotoxy.s

;
; Christian Groessler, 13-Mar-2014
;
; void gotoxy (unsigned char x, unsigned char y);
;

        .include "atari5200.inc"

        .export         gotoxy, _gotoxy
        .import         popa

gotoxy:
        jsr     popa            ; Get Y

_gotoxy:                        ; Set the cursor position
        sta     ROWCRS_5200     ; Set Y
        jsr     popa            ; Get X
        sta     COLCRS_5200     ; Set X
        rts
add gotox, gotoy, and gotoxy 2014-03-13 01:38:35 +00:00			`;`
			`; Christian Groessler, 13-Mar-2014`
			`;`
			`; void gotoxy (unsigned char x, unsigned char y);`
			`;`

			`.include "atari5200.inc"`

Introduced internal gotoxy that pops both parameters. About all CONIO functions offering a <...>xy variant call popa _gotoxy By providing an internal gotoxy variant that starts with a popa all those CONIO function can be shortened by 3 bytes. As soon as program calls more than one CONIO function this means an overall code size reduction. 2016-06-05 12:58:38 +00:00			`.export gotoxy, _gotoxy`
add gotox, gotoy, and gotoxy 2014-03-13 01:38:35 +00:00			`.import popa`

Introduced internal gotoxy that pops both parameters. About all CONIO functions offering a <...>xy variant call popa _gotoxy By providing an internal gotoxy variant that starts with a popa all those CONIO function can be shortened by 3 bytes. As soon as program calls more than one CONIO function this means an overall code size reduction. 2016-06-05 12:58:38 +00:00			`gotoxy:`
			`jsr popa ; Get Y`

add gotox, gotoy, and gotoxy 2014-03-13 01:38:35 +00:00			`_gotoxy: ; Set the cursor position`
			`sta ROWCRS_5200 ; Set Y`
			`jsr popa ; Get X`
			`sta COLCRS_5200 ; Set X`
atari5200: implement bgcolor() and textcolor() Includes some other small fixes/cleanups. 2019-04-02 19:11:11 +00:00			`rts`