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

   1 ;
   2 ; Stefan Haubenthal, 2008-04-29
   3 ;
   4
   5         .export         initcwd
   6         .import         findfreeiocb
   7         .import         __cwd
   8         .include        "atari.inc"
   9
  10         .segment        "INIT"
  11
  12 .proc   initcwd
  13
  14         jsr     findfreeiocb
  15         bne     oserr
  16         lda     #48
  17         sta     ICCOM,x
  18         lda     #<__cwd
  19         sta     ICBLL,x
  20         lda     #>__cwd
  21         sta     ICBLH,x
  22         jsr     CIOV
  23         bmi     oserr
  24         ldx     #0              ; ATEOL -> \0
  25 :       lda     __cwd,x
  26         inx
  27         cmp     #ATEOL
  28         bne     :-
  29         lda     #0
  30         sta     __cwd-1,x
  31 oserr:  rts
  32
  33 .endproc