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,tmp2,tmp3,tmp1
   9
  10     .include   "telestrat.inc"
  11
  12
  13 .proc _gotoxy
  14    ; This function move only cursor for display, it does not move the prompt position
  15    ; in telemon, there is position for prompt, and another for the cursor
  16    sta    SCRY
  17    jsr    popa
  18    sta    SCRX
  19    rts
  20 .endproc