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, devicestr
   8         .import         curunit, __cwd
   9         .import         pusha0, tosudiva0
  10         .importzp       sreg, ptr1, ptr2
  11
  12         .macpack        generic
  13
  14 initcwd:
  15         lda     #<__cwd
  16         ldx     #>__cwd
  17         sta     ptr2
  18         stx     ptr2+1
  19         lda     curunit
  20         ; Fall through
  21
  22 ;------------------------------------------------------------------------------
  23 ; Convert unit number in A into string representation pointed to by ptr2.
  24
  25 devicestr:
  26         jsr     pusha0
  27         lda     #10
  28         jsr     tosudiva0
  29         ldy     #0
  30         lda     sreg
  31         beq     @L0             ; >=10
  32         add     #'0'
  33         sta     (ptr2),y
  34         iny
  35 @L0:    lda     ptr1            ; rem
  36         add     #'0'
  37         sta     (ptr2),y
  38         iny
  39         lda     #0
  40         sta     (ptr2),y
  41         rts