git.sur5r.net Git - cc65/blob - libsrc/pce/wherex.s

   1 ;
   2 ; Ullrich von Bassewitz, 2003-05-02
   3 ;
   4 ; unsigned char wherex (void);
   5 ;
   6
   7         .export         _wherex
   8
   9         .include        "pce.inc"
  10         .include        "extzp.inc"
  11
  12 .proc   _wherex
  13
  14         lda     CURS_X
  15         ldx     #$00
  16         rts
  17
  18 .endproc
  19
  20 ;-------------------------------------------------------------------------------
  21 ; force the init constructor to be imported
  22
  23         .import initconio
  24 conio_init      = initconio