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

   1 ;
   2 ; 2017-02-25, jede <jede@oric.org>
   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         .importzp       sp
  12
  13         .include        "telestrat.inc"
  14
  15 gotoxy: jsr     popa            ; Get Y
  16
  17 .proc _gotoxy
  18
  19 ; This function moves only the display cursor; it does not move the prompt position.
  20 ; In telemon, there is a position for the prompt, and another for the cursor.
  21
  22         sta     SCRY
  23         jsr     popa
  24         sta     SCRX
  25         rts
  26 .endproc