From 8a06174cb420e2d708f3e2808107a7b1cd880b23 Mon Sep 17 00:00:00 2001
From: "ol.sc" <ol.sc@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sat, 4 Feb 2012 21:53:20 +0000
Subject: [PATCH] "Apple disk names are null-terminated strings of 16
 characters or less (counting the null-terminator)."

git-svn-id: svn://svn.cc65.org/cc65/trunk@5448 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/geos-common/disk/getptrcurdknm.s | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/libsrc/geos-common/disk/getptrcurdknm.s b/libsrc/geos-common/disk/getptrcurdknm.s
index 36797f4e9..f0fae0ec4 100644
--- a/libsrc/geos-common/disk/getptrcurdknm.s
+++ b/libsrc/geos-common/disk/getptrcurdknm.s
@@ -23,7 +23,11 @@ _GetPtrCurDkNm:
 	txa
 	bne fin
 namelp:	lda (ptr4),y
+.ifdef  __GEOS_CBM__
 	cmp #$a0
+.else
+	cmp #0
+.endif
 	beq fin
 	sta (ptr3),y
 	iny