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
   9         .import         pusha0, tosudiva0
  10         .importzp       sreg, ptr1
  11
  12         .macpack        generic
  13
  14         .segment        "INIT"
  15
  16 .proc   initcwd
  17
  18         lda     __curunit
  19         jsr     pusha0
  20         lda     #10
  21         jsr     tosudiva0
  22         ldx     #0
  23         lda     sreg
  24         beq     :+              ; >=10
  25         add     #'0'
  26         sta     __cwd
  27         inx
  28 :       lda     ptr1            ; rem
  29         add     #'0'
  30         sta     __cwd,x
  31         lda     #0
  32         sta     __cwd+1,x
  33         rts
  34
  35 .endproc