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

   1 ;
   2 ; jede jede@oric.org 2017-02-25
   3 ;
   4     .export    _gotoxy
   5
   6     .import    popa
   7
   8     .importzp  sp
   9
  10     .include   "telestrat.inc"
  11
  12 .proc _gotoxy
  13    ; This function move only cursor for display, it does not move the prompt position
  14    ; in telemon, there is position for prompt, and another for the cursor
  15    sta    SCRY
  16    jsr    popa
  17    sta    SCRX
  18    rts
  19 .endproc