From 384d5a4fb2e50f3725c695e94c265c6d247885a2 Mon Sep 17 00:00:00 2001
From: FeralChild64 <you@example.com>
Date: Wed, 3 Mar 2021 17:24:29 +0100
Subject: [PATCH] fixed filtering by file type

---
 src/dos_m65/utils/util_dir_filter.s | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/dos_m65/utils/util_dir_filter.s b/src/dos_m65/utils/util_dir_filter.s
index 181747b6..1c0adcdd 100644
--- a/src/dos_m65/utils/util_dir_filter.s
+++ b/src/dos_m65/utils/util_dir_filter.s
@@ -50,9 +50,9 @@ util_dir_filter:
 	beq @done
 	lda PAR_FPATTERN, y
 	
-	; XXXthe comparisons below do not work; investigate, why
+	sta $1000
 
-	cmp #$44                           ; if 'D' - require a directory      XXX document this
+	cmp #$44                           ; if 'D' - require a directory      XXX documment this extension
 	beq @require_dir
 	cmp #$50                           ; if 'P' - require PRG file
 	beq @require_prg
@@ -87,5 +87,7 @@ util_dir_filter:
 
 	lda #$05
 
-	cmp PAR_FTYPE
+	eor PAR_FTYPE
+	and #%00111111
+
 	rts