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