cc65/libsrc/gamate/gotoxy.s

;
; void gotoxy (unsigned char x, unsigned char y);
;

        .export         gotoxy, _gotoxy
        .import         popa, plot

        .include        "gamate.inc"
        .include        "extzp.inc"

gotoxy:
        jsr     popa            ; Get X

_gotoxy:
        sta     CURS_Y          ; Set Y
        jsr     popa            ; Get X
        sta     CURS_X          ; Set X
        jmp     plot            ; Set the cursor position

;-------------------------------------------------------------------------------
; force the init constructor to be imported

        .import initconio
conio_init      = initconio
conio and most other stuff working now 2015-11-29 00:14:59 +00:00			`;`
			`; void gotoxy (unsigned char x, unsigned char y);`
			`;`

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`
conio and most other stuff working now 2015-11-29 00:14:59 +00:00			`.import popa, plot`

			`.include "gamate.inc"`
			`.include "extzp.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			`gotoxy:`
			`jsr popa ; Get X`

conio and most other stuff working now 2015-11-29 00:14:59 +00:00			`_gotoxy:`
			`sta CURS_Y ; Set Y`
			`jsr popa ; Get X`
			`sta CURS_X ; Set X`
			`jmp plot ; Set the cursor position`

			`;-------------------------------------------------------------------------------`
			`; force the init constructor to be imported`

			`.import initconio`
			`conio_init = initconio`