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

   1 ;
   2 ; 2003-04-13, 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         popa
  11
  12         .include        "atmos.inc"
  13
  14 gotoxy: jsr     popa            ; Get Y
  15
  16 .proc   _gotoxy
  17
  18         sta     CURS_Y          ; Set Y
  19         jsr     popa            ; Get X
  20         sta     CURS_X          ; Set X
  21         rts
  22
  23 .endproc