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

   1 ;
   2 ; Stefan Haubenthal, 2005-06-08
   3 ;
   4 ; CBM _curunit to _cwd
   5 ;
   6
   7         .export         initcwd
   8         .import         __curunit, __cwd, devicestr
   9         .importzp       ptr2
  10
  11         .segment        "INIT"
  12
  13 .proc   initcwd
  14
  15         lda     #<__cwd
  16         ldx     #>__cwd
  17         sta     ptr2
  18         stx     ptr2+1
  19         lda     __curunit
  20         jmp     devicestr
  21
  22 .endproc