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

   1 ;
   2 ; Oliver Schmidt, 18.04.2005
   3 ;
   4
   5         .export         initcwd
   6         .import         __cwd
   7
   8         .include        "zeropage.inc"
   9         .include        "mli.inc"
  10
  11 initcwd:
  12         ; Set static prefix buffer
  13         lda     #<__cwd
  14         ldx     #>__cwd
  15         sta     mliparam + MLI::PREFIX::PATHNAME
  16         stx     mliparam + MLI::PREFIX::PATHNAME+1
  17
  18         ; Get current working directory
  19         lda     #GET_PREFIX_CALL
  20         ldx     #PREFIX_COUNT
  21         jsr     callmli
  22
  23         ; Check for null prefix
  24         lda     __cwd
  25         beq     done
  26
  27         ; Remove length byte and trailing slash
  28         sta     tmp1
  29         ldx     #$01
  30 :       lda     __cwd,x
  31         sta     __cwd - 1,x
  32         inx
  33         cpx     tmp1
  34         bcc     :-
  35
  36         ; Add terminating zero
  37         lda     #$00
  38         sta     __cwd - 1,x
  39
  40 done:   rts