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

   1 ;
   2 ; Oliver Schmidt, 2012-10-21
   3 ;
   4 ; unsigned char getcurrentdevice (void);
   5 ;
   6
   7         .export         _getcurrentdevice
   8         .import         curunit
   9
  10 ;------------------------------------------------------------------------------
  11 ; _getcurrentdevice
  12
  13 .proc   _getcurrentdevice
  14
  15         lda     curunit
  16         ldx     #$00
  17         rts
  18
  19 .endproc