cc65/libsrc/creativision/gotoxy.s

;
; 1998-08-06, Ullrich von Bassewitz
; 2017-06-15, Greg King
;
; void gotoxy (unsigned char x, unsigned char y);
;

        .export         gotoxy, _gotoxy

        .import         setcursor
        .import         popa

        .include        "creativision.inc"

gotoxy: jsr     popa            ; Get Y

.proc   _gotoxy

        sta     CURSOR_Y        ; Set Y
        jsr     popa            ; Get X
        sta     CURSOR_X        ; Set X
        tay
        ldx     CURSOR_Y
        jmp     setcursor       ; Set the cursor position

.endproc
Initial Creativision Import 2013-12-05 11:40:44 +00:00			`;`
Added a missing label to some conio cursor movement functions. It had prevented other functions, e.g. cputs(), from being linked into a program. 2017-06-15 20:44:46 +00:00			`; 1998-08-06, Ullrich von Bassewitz`
			`; 2017-06-15, Greg King`
Initial Creativision Import 2013-12-05 11:40:44 +00:00			`;`
			`; void gotoxy (unsigned char x, unsigned char y);`
			`;`

Added a missing label to some conio cursor movement functions. It had prevented other functions, e.g. cputs(), from being linked into a program. 2017-06-15 20:44:46 +00:00			`.export gotoxy, _gotoxy`

Initial Creativision Import 2013-12-05 11:40:44 +00:00			`.import setcursor`
			`.import popa`

			`.include "creativision.inc"`

Added a missing label to some conio cursor movement functions. It had prevented other functions, e.g. cputs(), from being linked into a program. 2017-06-15 20:44:46 +00:00			`gotoxy: jsr popa ; Get Y`

Initial Creativision Import 2013-12-05 11:40:44 +00:00			`.proc _gotoxy`

Cleanups for Creativision. 2017-02-01 18:46:04 +00:00			`sta CURSOR_Y ; Set Y`
			`jsr popa ; Get X`
			`sta CURSOR_X ; Set X`
Initial Creativision Import 2013-12-05 11:40:44 +00:00			`tay`
			`ldx CURSOR_Y`
			`jmp setcursor ; Set the cursor position`

			`.endproc`