git.sur5r.net Git - cc65/blob - libsrc/cbm/where.s

   1 ;
   2 ; Ullrich von Bassewitz, 06.08.1998
   3 ;
   4 ; unsigned char wherex (void);
   5 ; unsigned char wherey (void);
   6
   7
   8         .export         _wherex, _wherey
   9         .import         PLOT
  10
  11
  12 _wherex:
  13         sec
  14         jsr     PLOT            ; Get cursor position
  15         tya
  16         rts
  17
  18 _wherey:
  19         sec
  20         jsr     PLOT            ; Get cursor position
  21         txa
  22         rts
  23
  24
  25
  26
  27