Renamed the old geos target to geos-cbm.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5343 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/geos-cbm/disk/getptrcurdknm.s

@@ -0,0 +1,35 @@
+
+;
+; 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 "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+	
+_GetPtrCurDkNm: 
+	sta ptr3
+	stx ptr3+1
+	ldx #ptr4
+	jsr GetPtrCurDkNm
+	ldy #0
+	txa
+	bne fin
+namelp:	lda (ptr4),y
+	cmp #$a0
+	beq fin
+	sta (ptr3),y
+	iny
+	cpy #16
+	bne namelp
+fin:	lda #0
+	sta (ptr3),y
+	stx __oserror
+	rts