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

   1 ;
   2 ; Ullrich von Bassewitz, 06.08.1998
   3 ;
   4 ; void __fastcall__ gotoxy (unsigned char x, unsigned char y);
   5 ; void __fastcall__ gotox (unsigned char x);
   6 ;
   7
   8         .export         _gotoxy, _gotox
   9         .import         popa, VTABZ
  10
  11         .include        "apple2.inc"
  12
  13 _gotoxy:
  14         clc
  15         adc     WNDTOP
  16         sta     CV              ; Store Y
  17         jsr     VTABZ
  18         jsr     popa            ; Get X
  19
  20 _gotox:
  21         sta     CH              ; Store X
  22         rts