cc65/libsrc/creativision/gotoxy.s

;
; Ullrich von Bassewitz, 06.08.1998
;
; void gotoxy (unsigned char x, unsigned char y);
;

        .export         _gotoxy
        .import         setcursor
        .import         popa

        .include        "creativision.inc"

.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			`;`
			`; Ullrich von Bassewitz, 06.08.1998`
			`;`
			`; void gotoxy (unsigned char x, unsigned char y);`
			`;`

			`.export _gotoxy`
			`.import setcursor`
			`.import popa`

			`.include "creativision.inc"`

			`.proc _gotoxy`

Cleanups for Creativision. 2017-02-01 19:46:04 +01: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`