SD care directory works (sans file sizes)
This commit is contained in:
FeralChild64 committed
1 parent
1ec1359020
commit
18d7434668
2 files changed
+77
-21
No files matched your search
@@ -41,15 +41,22 @@ dir_types:
|
|||||||
!pet "usr", $00 ; USR
|
!pet "usr", $00 ; USR
|
||||||
!pet "rel", $00 ; REL
|
!pet "rel", $00 ; REL
|
||||||
!pet "dir", $00 ; directory
|
!pet "dir", $00 ; directory
|
||||||
; !pet "tap", $00 ; tape image
|
|
||||||
; !pet "d67", $00 ; CBM 2040 (DOS 1) - disk image
|
; File types below are not mandatory
|
||||||
; !pet "d64", $00 ; CBM 1541 / 2031 / 3040 / 4040 - disk image
|
|
||||||
; !pet "d71", $00 ; CBM 1571 - disk image
|
!pet "tap", $00 ; tape image
|
||||||
; !pet "d81", $00 ; CBM 1581 - disk image
|
!pet "d67", $00 ; CBM 2040 (DOS 1) - disk image
|
||||||
; !pet "d80", $00 ; CBM 8050 - disk image
|
!pet "d64", $00 ; CBM 1541 / 2031 / 3040 / 4040 - disk image
|
||||||
; !pet "d81", $00 ; CBM 8250 / 1001 - disk image
|
!pet "d71", $00 ; CBM 1571 - disk image
|
||||||
; !pet "d90", $00 ; CBM D9060 / D9090 - hard disk image
|
!pet "d81", $00 ; CBM 1581 - disk image
|
||||||
; !pet "d1m", $00 ; CMD FD 2000 / 4000 - disk image (DD)
|
!pet "d80", $00 ; CBM 8050 - disk image
|
||||||
; !pet "d2m", $00 ; CMD FD 2000 / 4000 - disk image (HD)
|
!pet "d81", $00 ; CBM 8250 / 1001 - disk image
|
||||||
; !pet "d4m", $00 ; CMD FD 4000 - disk image (ED)
|
!pet "d90", $00 ; CBM D9060 / D9090 - hard disk image
|
||||||
; !pet "dhd", $00 ; CMD HD - hard disk image
|
!pet "d1m", $00 ; CMD FD 2000 / 4000 - disk image (DD)
|
||||||
|
!pet "d2m", $00 ; CMD FD 2000 / 4000 - disk image (HD)
|
||||||
|
!pet "d4m", $00 ; CMD FD 4000 - disk image (ED)
|
||||||
|
!pet "dhd", $00 ; CMD HD - hard disk image
|
||||||
|
!pet "rom", $00 ; rom image
|
||||||
|
!pet "m65", $00 ; MEGA65 utility
|
||||||
|
|
||||||
|
dir_types__end:
|
||||||
@@ -4,6 +4,9 @@
|
|||||||
;
|
;
|
||||||
|
|
||||||
|
|
||||||
|
; XXX optimize the flow; we do not need 256-byte SD_DIRENT buffer, directory entries can be constructed directly
|
||||||
|
|
||||||
|
|
||||||
fs_hvsr_read_dir_open:
|
fs_hvsr_read_dir_open:
|
||||||
|
|
||||||
; Open the directory
|
; Open the directory
|
||||||
@@ -120,7 +123,7 @@ fs_hvsr_read_dir:
|
|||||||
|
|
||||||
lda SD_DIRENT+$56
|
lda SD_DIRENT+$56
|
||||||
and #$FE
|
and #$FE
|
||||||
beq @cklen_file ; XXX temporary workaround for XEMU
|
beq @cklen_file ; workaround for older hypervisors
|
||||||
|
|
||||||
and #$20
|
and #$20
|
||||||
bne @cklen_file ; branch on file
|
bne @cklen_file ; branch on file
|
||||||
@@ -164,11 +167,49 @@ fs_hvsr_read_dir:
|
|||||||
cmp #$2E
|
cmp #$2E
|
||||||
+bne fs_hvsr_read_dir ; 3-character extension is required!
|
+bne fs_hvsr_read_dir ; 3-character extension is required!
|
||||||
|
|
||||||
lda #$04 ; XXX temporary; detect file type by extension instead
|
inx
|
||||||
|
ldy #$00
|
||||||
|
|
||||||
|
@lpdetect:
|
||||||
|
|
||||||
|
lda SD_DIRENT+0, x
|
||||||
|
cmp dir_types+0, y
|
||||||
|
bne @lpdetect_next
|
||||||
|
|
||||||
|
lda SD_DIRENT+1, x
|
||||||
|
cmp dir_types+1, y
|
||||||
|
bne @lpdetect_next
|
||||||
|
|
||||||
|
lda SD_DIRENT+2, x
|
||||||
|
cmp dir_types+2, y
|
||||||
|
beq @lpdetect_found
|
||||||
|
|
||||||
|
@lpdetect_next:
|
||||||
|
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
cpy #(dir_types__end - dir_types)
|
||||||
|
bcc @lpdetect
|
||||||
|
|
||||||
|
jmp fs_hvsr_read_dir ; file extension not detected
|
||||||
|
|
||||||
|
@lpdetect_found:
|
||||||
|
|
||||||
|
cpy #$10
|
||||||
|
+beq fs_hvsr_read_dir ; file extension 'DIR' does not mean this is a directory
|
||||||
|
tya
|
||||||
|
|
||||||
@all_prepared:
|
@all_prepared:
|
||||||
|
|
||||||
sta SD_DIRENT+$FF ; store offset to file type in SD_DIRENT+$FF
|
sta SD_DIRENT+$FF ; store offset to file type in SD_DIRENT+$FF
|
||||||
|
cmp #$14
|
||||||
|
bcc @noforcedro
|
||||||
|
lda #'<' ; for some file types, force the read-only flag
|
||||||
|
sta SD_DIRENT+$FE
|
||||||
|
|
||||||
|
@noforcedro:
|
||||||
|
|
||||||
; Prepare output entry, starting from SD_DIRENT+$80
|
; Prepare output entry, starting from SD_DIRENT+$80
|
||||||
|
|
||||||
@@ -187,6 +228,9 @@ fs_hvsr_read_dir:
|
|||||||
sta SD_DIRENT+$80, x
|
sta SD_DIRENT+$80, x
|
||||||
inx
|
inx
|
||||||
sta SD_DIRENT+$80, x
|
sta SD_DIRENT+$80, x
|
||||||
|
inx
|
||||||
|
sta SD_DIRENT+$80, x
|
||||||
|
inx
|
||||||
|
|
||||||
lda #$22 ; opening quote
|
lda #$22 ; opening quote
|
||||||
sta SD_DIRENT+$80, x
|
sta SD_DIRENT+$80, x
|
||||||
@@ -205,26 +249,31 @@ fs_hvsr_read_dir:
|
|||||||
sta SD_DIRENT+$80, x
|
sta SD_DIRENT+$80, x
|
||||||
inx
|
inx
|
||||||
|
|
||||||
lda #' ' ; XXX put correct amount of spaces instead
|
lda #' ' ; put spaces for indentation
|
||||||
sta SD_DIRENT+$80, x
|
ldy SD_DIRENT+$40
|
||||||
inx
|
|
||||||
|
@lp3:
|
||||||
|
|
||||||
sta SD_DIRENT+$80, x
|
sta SD_DIRENT+$80, x
|
||||||
inx
|
inx
|
||||||
|
iny
|
||||||
|
cpy #$11
|
||||||
|
bcc @lp3
|
||||||
|
|
||||||
; No 'damaged' mark make sense for this filesystem
|
; No 'damaged' mark make sense for this filesystem
|
||||||
|
|
||||||
ldy SD_DIRENT+$FF ; put file type
|
ldy SD_DIRENT+$FF ; put file type
|
||||||
|
|
||||||
@lp3:
|
@lp4:
|
||||||
|
|
||||||
lda dir_types, y
|
lda dir_types, y
|
||||||
beq @lp3_done
|
beq @lp4_done
|
||||||
sta SD_DIRENT+$80, x
|
sta SD_DIRENT+$80, x
|
||||||
inx
|
inx
|
||||||
iny
|
iny
|
||||||
bra @lp3
|
bra @lp4
|
||||||
|
|
||||||
@lp3_done:
|
@lp4_done:
|
||||||
|
|
||||||
lda SD_DIRENT+$FE ; read-only mark (if needed)
|
lda SD_DIRENT+$FE ; read-only mark (if needed)
|
||||||
beq @skipro
|
beq @skipro
|
||||||
|
|||||||
Reference in new issue
Block a user