git.sur5r.net Git - cc65/blob - libsrc/geos/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             .export _GetPtrCurDkNm
  12
  13             .include "../inc/jumptab.inc"
  14             .include "../inc/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         cmp #$a0
  26         beq fin
  27         sta (ptr3),y
  28         iny
  29         cpy #16
  30         bne namelp
  31 fin:    lda #0
  32         sta (ptr3),y
  33         stx errno
  34         rts