cc65/libsrc/geos-common/conio/gotoxy.s

;
; Maciej 'YTM/Elysium' Witkowiak
;
; 27.10.2001
; 06.03.2002

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

	    .export _gotox, _gotoy, _gotoxy, fixcursor
	    .import popa
	    .importzp cursor_x, cursor_y, cursor_c, cursor_r

	    .include "jumptab.inc"

_gotox:
	sta cursor_c
	jmp fixcursor

_gotoy:
	sta cursor_r
	jmp fixcursor

_gotoxy:
	sta cursor_r
	jsr popa
	sta cursor_c

; convert 8x8 x/y coordinates to GEOS hires
fixcursor:
	lda cursor_c
	sta cursor_x
	lda #0
	sta cursor_x+1
	ldx #cursor_x
	ldy #3
	jsr DShiftLeft
	lda cursor_r
	asl a
	asl a
	asl a
	sta cursor_y
	rts