git.sur5r.net Git - cc65/blob - libsrc/geos-common/disk/getptrcurdknm.s

   1 ;
   2 ; Maciej 'YTM/Alliance' Witkowiak
   3 ;
   4 ; 21.12.99
   5
   6 ; void GetPtrCurDkNm (char *curName);
   7 ;  (fills curName[17] with current disk's name)
   8
   9             .importzp ptr4, ptr3
  10             .import __oserror
  11             .export _GetPtrCurDkNm
  12
  13             .include "jumptab.inc"
  14             .include "geossym.inc"
  15
  16 _GetPtrCurDkNm:
  17         sta ptr3
  18         stx ptr3+1
  19         ldx #ptr4
  20         jsr GetPtrCurDkNm
  21         ldy #0
  22         txa
  23         bne fin
  24 namelp: lda (ptr4),y
  25 .ifdef __GEOS_CBM__
  26         cmp #$a0
  27 .else
  28         cmp #0
  29 .endif
  30         beq fin
  31         sta (ptr3),y
  32         iny
  33         cpy #16
  34         bne namelp
  35 fin:    lda #0
  36         sta (ptr3),y
  37         stx __oserror
  38         rts