git.sur5r.net Git - cc65/blob - libsrc/creativision/gotoxy.s

   1 ;
   2 ; 1998-08-06, Ullrich von Bassewitz
   3 ; 2017-06-15, Greg King
   4 ;
   5 ; void gotoxy (unsigned char x, unsigned char y);
   6 ;
   7
   8         .export         gotoxy, _gotoxy
   9
  10         .import         setcursor
  11         .import         popa
  12
  13         .include        "creativision.inc"
  14
  15 gotoxy: jsr     popa            ; Get Y
  16
  17 .proc   _gotoxy
  18
  19         sta     CURSOR_Y        ; Set Y
  20         jsr     popa            ; Get X
  21         sta     CURSOR_X        ; Set X
  22         tay
  23         ldx     CURSOR_Y
  24         jmp     setcursor       ; Set the cursor position
  25
  26 .endproc