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

   1 ;
   2 ; Ullrich von Bassewitz, 2003-04-13
   3 ;
   4 ; void gotoxy (unsigned char x, unsigned char y);
   5 ;
   6
   7         .export         _gotoxy
   8         .import         popa
   9
  10         .include        "atmos.inc"
  11
  12 .proc   _gotoxy
  13
  14         sta     CURS_Y          ; Set Y
  15         jsr     popa            ; Get X
  16         sta     CURS_X          ; Set X
  17         rts
  18
  19 .endproc
  20
  21