; void gotoxy (unsigned char x, unsigned char y);
;
- .include "atari.inc"
+ .include "atari.inc"
- .export _gotoxy
- .import popa
+ .export gotoxy, _gotoxy
+ .import popa
+ .import setcursor
-_gotoxy: ; Set the cursor position
- sta ROWCRS ; Set Y
- jsr popa ; Get X
- sta COLCRS ; Set X
- lda #0
- sta COLCRS+1 ;
- rts
+gotoxy:
+ jsr popa ; Get Y
+
+_gotoxy: ; Set the cursor position
+ sta ROWCRS ; Set Y
+ jsr popa ; Get X
+ sta COLCRS ; Set X
+ lda #0
+ sta COLCRS+1
+ jmp setcursor