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         .export         _wherex, _wherey
   8
   9         .include        "cbm.inc"
  10
  11 _wherex:
  12         sec
  13         jsr     PLOT            ; Get cursor position
  14         tya
  15         rts
  16
  17 _wherey:
  18         sec
  19         jsr     PLOT            ; Get cursor position
  20         txa
  21         rts
  22
  23
  24
  25
  26