]> git.sur5r.net Git - cc65/blob - libsrc/pce/gotoxy.s
Introduced internal gotoxy that pops both parameters.
[cc65] / libsrc / pce / gotoxy.s
1 ;
2 ; void gotoxy (unsigned char x, unsigned char y);
3 ;
4
5         .export         gotoxy, _gotoxy
6         .import         popa, plot
7
8         .include        "pce.inc"
9         .include        "extzp.inc"
10
11 gotoxy:
12         jsr     popa            ; Get Y
13
14 _gotoxy:
15         sta     CURS_Y          ; Set Y
16         jsr     popa            ; Get X
17         sta     CURS_X          ; Set X
18         jmp     plot            ; Set the cursor position
19
20 ;-------------------------------------------------------------------------------
21 ; force the init constructor to be imported
22
23         .import initconio
24 conio_init      = initconio
25