From 8ecea72c844ab096202ccc57fef745e2d176c4b1 Mon Sep 17 00:00:00 2001 From: Joshua Bell Date: Wed, 2 Jan 2019 10:46:03 -0800 Subject: [PATCH] Skip DAs with high bit set. Fixes #102 --- RELEASE-NOTES.md | 1 + desktop/desktop_main.s | 6 ++++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/RELEASE-NOTES.md b/RELEASE-NOTES.md index 5317a8d..c3f3678 100644 --- a/RELEASE-NOTES.md +++ b/RELEASE-NOTES.md @@ -11,6 +11,7 @@ * Show Text File DA: Keyboard support. Escape quits, arrows scroll. (#4) * Reorganized/renamed several menu items. (#13) * Icon bitmap improvements. (#74) +* DAs with high bit in aux-type set are skipped. (#102) ### Additional Desk Accessories diff --git a/desktop/desktop_main.s b/desktop/desktop_main.s index 0967e50..d36a346 100644 --- a/desktop/desktop_main.s +++ b/desktop/desktop_main.s @@ -15434,8 +15434,10 @@ process_block: ldy #FileEntry::file_type lda (dir_ptr),y cmp #DA_FILE_TYPE - beq is_da - jmp next_entry + bne next_entry + ldy #FileEntry::aux_type+1 ; high bit set = skip + lda (dir_ptr),y + bmi next_entry ;; Compute slot in DA name table is_da: inc desk_acc_num