cc65/libsrc/pce/gotoxy.s

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

        .export         gotoxy, _gotoxy

        .import         popa, plot

        .include        "pce.inc"
        .include        "extzp.inc"

gotoxy:
        jsr     popa            ; Get Y

_gotoxy:
        sta     CURS_Y          ; Set Y
        jsr     popa            ; Get X
        sta     CURS_X          ; Set X
        jmp     plot            ; Set the cursor position
more hacking 2014-11-30 11:20:57 +01:00			`;`
Fixed and improved some pce comments. 2015-11-17 09:14:15 -05:00			`; void __fastcall__ gotoxy (unsigned char x, unsigned char y);`
more hacking 2014-11-30 11:20:57 +01:00			`;`

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 14:58:38 +02:00			`.export gotoxy, _gotoxy`
Style changes. 2015-10-02 10:50:22 -04:00
style fixes 2015-08-29 15:58:57 +02:00			`.import popa, plot`
more hacking 2014-11-30 11:20:57 +01:00
style fixes 2015-08-29 15:58:57 +02:00			`.include "pce.inc"`
fixed more flaws found by greg :) 2015-09-19 15:37:39 +02:00			`.include "extzp.inc"`
more hacking 2014-11-30 11:20:57 +01:00
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 14:58:38 +02:00			`gotoxy:`
			`jsr popa ; Get Y`

more hacking 2014-11-30 11:20:57 +01:00			`_gotoxy:`
style fixes 2015-08-29 15:58:57 +02:00			`sta CURS_Y ; Set Y`
			`jsr popa ; Get X`
			`sta CURS_X ; Set X`
			`jmp plot ; Set the cursor position`