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             .import __oserror
  12             .export _GetPtrCurDkNm
  13
  14             .include "../inc/jumptab.inc"
  15             .include "../inc/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         cmp #$a0
  27         beq fin
  28         sta (ptr3),y
  29         iny
  30         cpy #16
  31         bne namelp
  32 fin:    lda #0
  33         sta (ptr3),y
  34         stx __oserror
  35         rts