;
; Written by Groepaz/Hitmen <groepaz@gmx.net>
; Cleanup by Ullrich von Bassewitz <uz@cc65.org>
;
; Set the cursor position

   	.export         setcursor

   	.include	"nes.inc"

;-----------------------------------------------------------------------------

.proc   setcursor

	tya
	clc
	adc     addrlo,x
	sta	SCREEN_PTR

    	lda     addrhi,x
    	adc     #0
    	sta	SCREEN_PTR+1
        rts

.endproc

;-----------------------------------------------------------------------------
; Tables with screen addresses

addrlo: .repeat screenrows,line
    	.byte <($2000+((1*32))+(line*charsperline))
    	.endrepeat

addrhi: .repeat screenrows,line
	.byte >($2000+((1*32))+(line*charsperline))
	.endrepeat

