preparation for CBM partitions support
This commit is contained in:
1 parent
384d5a4fb2
commit
93bf5afcee
3 files changed
+5
-4
No files matched your search
@@ -40,6 +40,7 @@ dir_types:
|
|||||||
!pet "prg", $00 ; PRG
|
!pet "prg", $00 ; PRG
|
||||||
!pet "usr", $00 ; USR
|
!pet "usr", $00 ; USR
|
||||||
!pet "rel", $00 ; REL
|
!pet "rel", $00 ; REL
|
||||||
|
!pet "cbm", $00 ; CBM-style partition
|
||||||
!pet "dir", $00 ; directory
|
!pet "dir", $00 ; directory
|
||||||
|
|
||||||
; File types below are not mandatory
|
; File types below are not mandatory
|
||||||
|
|||||||
@@ -114,7 +114,7 @@ fs_hvsr_util_nextdirentry:
|
|||||||
|
|
||||||
; Set the type to directory
|
; Set the type to directory
|
||||||
|
|
||||||
lda #$05
|
lda #$06
|
||||||
bra @detect_attributes
|
bra @detect_attributes
|
||||||
|
|
||||||
@entity_file:
|
@entity_file:
|
||||||
@@ -169,7 +169,7 @@ fs_hvsr_util_nextdirentry:
|
|||||||
|
|
||||||
@lpext_found:
|
@lpext_found:
|
||||||
|
|
||||||
cpy #$10
|
cpy #$14
|
||||||
+beq fs_hvsr_util_nextdirentry ; file extension 'DIR' does not mean this is a directory
|
+beq fs_hvsr_util_nextdirentry ; file extension 'DIR' does not mean this is a directory
|
||||||
tya
|
tya
|
||||||
|
|
||||||
@@ -179,7 +179,7 @@ fs_hvsr_util_nextdirentry:
|
|||||||
ror
|
ror
|
||||||
inc
|
inc
|
||||||
|
|
||||||
cmp #$06 ; mark some file types (not SEQ/PRG/USR/REL/DIR) as read-only
|
cmp #$07 ; mark some file types (not SEQ/PRG/USR/REL/CBM/DIR) as read-only
|
||||||
bcc @detect_attributes
|
bcc @detect_attributes
|
||||||
ora #$40
|
ora #$40
|
||||||
|
|
||||||
|
|||||||
@@ -85,7 +85,7 @@ util_dir_filter:
|
|||||||
|
|
||||||
@require_dir:
|
@require_dir:
|
||||||
|
|
||||||
lda #$05
|
lda #$06
|
||||||
|
|
||||||
eor PAR_FTYPE
|
eor PAR_FTYPE
|
||||||
and #%00111111
|
and #%00111111
|
||||||
|
|||||||
Reference in new issue
Block a user