1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-25 17:29:50 +00:00
cc65/libsrc/geos-common/disk/getptrcurdknm.s
ol.sc c8f3b16f99 Minor style adjustment.
git-svn-id: svn://svn.cc65.org/cc65/trunk@5544 b7a2c559-68d2-44c3-8de9-860c34a00d81
2012-02-22 22:59:38 +00:00

39 lines
531 B
ArmAsm

;
; Maciej 'YTM/Alliance' Witkowiak
;
; 21.12.99
; void GetPtrCurDkNm (char *curName);
; (fills curName[17] with current disk's name)
.importzp ptr4, ptr3
.import __oserror
.export _GetPtrCurDkNm
.include "jumptab.inc"
.include "geossym.inc"
_GetPtrCurDkNm:
sta ptr3
stx ptr3+1
ldx #ptr4
jsr GetPtrCurDkNm
ldy #0
txa
bne fin
namelp: lda (ptr4),y
.ifdef __GEOS_CBM__
cmp #$a0
.else
cmp #0
.endif
beq fin
sta (ptr3),y
iny
cpy #16
bne namelp
fin: lda #0
sta (ptr3),y
stx __oserror
rts