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
  10         .import         popa, VTABZ
  11
  12         .include        "apple2.inc"
  13
  14 _gotoxy:
  15         clc
  16         adc     WNDTOP
  17         sta     CV              ; Store Y
  18         jsr     VTABZ
  19         jsr     popa            ; Get X
  20
  21 _gotox:
  22         sta     CH              ; Store X
  23         rts