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

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