Merge pull request #218 from eduardocasino/dir-fix

Print the right drive in DIR listings
davidgiven · Jan 19, 2025 · 824d9ab · 824d9ab
2 parents fa490f9 + 3c43d9c
commit 824d9ab
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/ccp.S b/src/ccp.S
@@ -437,7 +437,12 @@ zproc entry_DIR
             stx file_counter
             cmp #$00
             zif_eq
-                jsr bdos_GETDRIVE
+                ldy userfcb
+                dey
+                tya
+                zif_mi
+                    jsr bdos_GETDRIVE
+                zendif
                 clc
                 adc #'A'
                 jsr bdos_CONOUT