more work towards loading from internal drive
This commit is contained in:
FeralChild64 committed
1 parent
c0b7035100
commit
df89e62761
3 files changed
+160
-128
No files matched your search
@@ -10,4 +10,140 @@
|
|||||||
|
|
||||||
; XXX work-in-progress, this should be used within directory reading code
|
; XXX work-in-progress, this should be used within directory reading code
|
||||||
|
|
||||||
fs_cbm_nextdirentry:
|
fs_cbm_nextdirentry:
|
||||||
|
|
||||||
|
lda FD_DIRENT
|
||||||
|
|
||||||
|
; If first entry within sector - make sure it is present within the buffer
|
||||||
|
|
||||||
|
cmp #$08
|
||||||
|
beq @get_sector_lo
|
||||||
|
cmp #$10
|
||||||
|
+beq @get_sector_hi
|
||||||
|
|
||||||
|
; FALLTROUGH
|
||||||
|
|
||||||
|
@cont:
|
||||||
|
|
||||||
|
; Set address of the RAW directory entry
|
||||||
|
|
||||||
|
ldy #>SHARED_BUF_1
|
||||||
|
sty par_LDA_nnnn_Y+1
|
||||||
|
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
sta par_LDA_nnnn_Y+0
|
||||||
|
|
||||||
|
bcc @1
|
||||||
|
inc par_LDA_nnnn_Y+1
|
||||||
|
@1:
|
||||||
|
; Set next directory entry
|
||||||
|
|
||||||
|
inc FD_DIRENT
|
||||||
|
|
||||||
|
; Copy data to parameter variables
|
||||||
|
|
||||||
|
; XXX most likely copying is not necessary (compare all CBM and CMD filesystems) -
|
||||||
|
; XXX just make the hypervisor file system emulate these structures
|
||||||
|
|
||||||
|
ldy #$02 ; start from determining file type
|
||||||
|
jsr code_LDA_nnnn_Y
|
||||||
|
beq fs_cbm_nextdirentry ; ignore deleted files (but allow DEL files in some cases)
|
||||||
|
|
||||||
|
tax
|
||||||
|
and #%00111111 ; for checking, filter out special bits
|
||||||
|
cmp #$06
|
||||||
|
bcs fs_cbm_nextdirentry ; ignore unknown file types
|
||||||
|
|
||||||
|
stx PAR_FTYPE
|
||||||
|
|
||||||
|
ldy #$1E ; now get file size in blocks
|
||||||
|
jsr code_LDA_nnnn_Y
|
||||||
|
sta PAR_FSIZE_BLOCKS+0
|
||||||
|
iny
|
||||||
|
jsr code_LDA_nnnn_Y
|
||||||
|
sta PAR_FSIZE_BLOCKS+1
|
||||||
|
|
||||||
|
ldy #$05 ; copy the file name
|
||||||
|
@lp1:
|
||||||
|
jsr code_LDA_nnnn_Y
|
||||||
|
sta PAR_FNAME-5,y
|
||||||
|
iny
|
||||||
|
cpy #$15
|
||||||
|
bne @lp1
|
||||||
|
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
@get_sector_lo:
|
||||||
|
|
||||||
|
; Check if this was the last sector
|
||||||
|
|
||||||
|
lda SHARED_BUF_1+0
|
||||||
|
beq @end_of_dir
|
||||||
|
lda SHARED_BUF_1+1
|
||||||
|
cmp #$FF
|
||||||
|
beq @end_of_dir
|
||||||
|
|
||||||
|
; Transition from 1st half of the buffer, to (possibly) the second one
|
||||||
|
|
||||||
|
lda SHARED_BUF_1+0
|
||||||
|
cmp BUFTAB_TRACK+1
|
||||||
|
bne @get_sector_lo_next
|
||||||
|
|
||||||
|
lda SHARED_BUF_1+1
|
||||||
|
dec
|
||||||
|
cmp BUFTAB_SECTOR+1
|
||||||
|
bne @get_sector_lo_next
|
||||||
|
|
||||||
|
; It's OK, we can transition to the upper half of the buffer
|
||||||
|
|
||||||
|
lda FD_DIRENT
|
||||||
|
jmp @cont
|
||||||
|
|
||||||
|
@get_sector_lo_next:
|
||||||
|
|
||||||
|
lda SHARED_BUF_1+0
|
||||||
|
sta PAR_TRACK
|
||||||
|
lda SHARED_BUF_1+1
|
||||||
|
sta PAR_SECTOR
|
||||||
|
bra @get_sector_common
|
||||||
|
|
||||||
|
@get_sector_hi:
|
||||||
|
|
||||||
|
; Check if this was the last sector
|
||||||
|
|
||||||
|
lda SHARED_BUF_1+$100+0
|
||||||
|
beq @end_of_dir
|
||||||
|
lda SHARED_BUF_1+$100+1
|
||||||
|
cmp #$FF
|
||||||
|
beq @end_of_dir
|
||||||
|
|
||||||
|
; Load new sector
|
||||||
|
|
||||||
|
lda SHARED_BUF_1+$100+0
|
||||||
|
sta PAR_TRACK
|
||||||
|
lda SHARED_BUF_1+$100+1
|
||||||
|
sta PAR_SECTOR
|
||||||
|
|
||||||
|
@get_sector_common:
|
||||||
|
|
||||||
|
jsr lowlevel_readsector ; XXX handle read errors
|
||||||
|
|
||||||
|
; Set new FD_DIRENT
|
||||||
|
|
||||||
|
lda PAR_SECTOR
|
||||||
|
and #$01
|
||||||
|
beq @2
|
||||||
|
lda #$08
|
||||||
|
@2:
|
||||||
|
sta FD_DIRENT
|
||||||
|
jmp @cont
|
||||||
|
|
||||||
|
@end_of_dir:
|
||||||
|
|
||||||
|
sec
|
||||||
|
rts
|
||||||
@@ -108,68 +108,11 @@ fs_cbm_read_dir_open:
|
|||||||
|
|
||||||
fs_cbm_read_dir:
|
fs_cbm_read_dir:
|
||||||
|
|
||||||
lda FD_DIRENT
|
jsr fs_cbm_nextdirentry
|
||||||
|
bcs fs_cbm_read_dir_blocksfree ; XXX handle errors
|
||||||
|
|
||||||
; If first entry within sector - make sure it is present within the buffer
|
jsr util_dir_filter ; XXX consider moving these calls to fs_*_nextdirentry
|
||||||
|
bne fs_cbm_read_dir ; if does not match, try the next entry
|
||||||
cmp #$08
|
|
||||||
beq @get_sector_lo
|
|
||||||
cmp #$10
|
|
||||||
+beq @get_sector_hi
|
|
||||||
|
|
||||||
; FALLTROUGH
|
|
||||||
|
|
||||||
@cont:
|
|
||||||
|
|
||||||
; Set address of the RAW directory entry
|
|
||||||
|
|
||||||
ldy #>SHARED_BUF_1
|
|
||||||
sty par_LDA_nnnn_Y+1
|
|
||||||
|
|
||||||
asl
|
|
||||||
asl
|
|
||||||
asl
|
|
||||||
asl
|
|
||||||
asl
|
|
||||||
sta par_LDA_nnnn_Y+0
|
|
||||||
|
|
||||||
bcc @1
|
|
||||||
inc par_LDA_nnnn_Y+1
|
|
||||||
@1:
|
|
||||||
; Set next directory entry
|
|
||||||
|
|
||||||
inc FD_DIRENT
|
|
||||||
|
|
||||||
; Copy data to parameter variables
|
|
||||||
|
|
||||||
; XXX most likely copying is not necessary (compare all CBM and CMD filesystems) -
|
|
||||||
; XXX just make the hypervisor file system emulate these structures
|
|
||||||
|
|
||||||
ldy #$02 ; start from determining file type
|
|
||||||
jsr code_LDA_nnnn_Y
|
|
||||||
beq fs_cbm_read_dir ; ignore deleted files (but allow DEL files in some cases)
|
|
||||||
|
|
||||||
tax
|
|
||||||
and #%00111111 ; for checking, filter out special bits
|
|
||||||
cmp #$06
|
|
||||||
bcs fs_cbm_read_dir ; ignore unknown file types
|
|
||||||
|
|
||||||
stx PAR_FTYPE
|
|
||||||
|
|
||||||
ldy #$1E ; now get file size in blocks
|
|
||||||
jsr code_LDA_nnnn_Y
|
|
||||||
sta PAR_FSIZE_BLOCKS+0
|
|
||||||
iny
|
|
||||||
jsr code_LDA_nnnn_Y
|
|
||||||
sta PAR_FSIZE_BLOCKS+1
|
|
||||||
|
|
||||||
ldy #$05 ; copy the file name
|
|
||||||
@lp1:
|
|
||||||
jsr code_LDA_nnnn_Y
|
|
||||||
sta PAR_FNAME-5,y
|
|
||||||
iny
|
|
||||||
cpy #$15
|
|
||||||
bne @lp1
|
|
||||||
|
|
||||||
; Prepare output entry, starting from XX_DIRENT_BUF + initial offset
|
; Prepare output entry, starting from XX_DIRENT_BUF + initial offset
|
||||||
|
|
||||||
@@ -193,71 +136,6 @@ fs_cbm_read_dir:
|
|||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@get_sector_lo:
|
|
||||||
|
|
||||||
; Check if this was the last sector
|
|
||||||
|
|
||||||
lda SHARED_BUF_1+0
|
|
||||||
beq fs_cbm_read_dir_blocksfree
|
|
||||||
lda SHARED_BUF_1+1
|
|
||||||
cmp #$FF
|
|
||||||
beq fs_cbm_read_dir_blocksfree
|
|
||||||
|
|
||||||
; Transition from 1st half of the buffer, to (possibly) the second one
|
|
||||||
|
|
||||||
lda SHARED_BUF_1+0
|
|
||||||
cmp BUFTAB_TRACK+1
|
|
||||||
bne @get_sector_lo_next
|
|
||||||
|
|
||||||
lda SHARED_BUF_1+1
|
|
||||||
dec
|
|
||||||
cmp BUFTAB_SECTOR+1
|
|
||||||
bne @get_sector_lo_next
|
|
||||||
|
|
||||||
; It's OK, we can transition to the upper half of the buffer
|
|
||||||
|
|
||||||
lda FD_DIRENT
|
|
||||||
jmp @cont
|
|
||||||
|
|
||||||
@get_sector_lo_next:
|
|
||||||
|
|
||||||
lda SHARED_BUF_1+0
|
|
||||||
sta PAR_TRACK
|
|
||||||
lda SHARED_BUF_1+1
|
|
||||||
sta PAR_SECTOR
|
|
||||||
bra @get_sector_common
|
|
||||||
|
|
||||||
@get_sector_hi:
|
|
||||||
|
|
||||||
; Check if this was the last sector
|
|
||||||
|
|
||||||
lda SHARED_BUF_1+$100+0
|
|
||||||
beq fs_cbm_read_dir_blocksfree
|
|
||||||
lda SHARED_BUF_1+$100+1
|
|
||||||
cmp #$FF
|
|
||||||
beq fs_cbm_read_dir_blocksfree
|
|
||||||
|
|
||||||
; Load new sector
|
|
||||||
|
|
||||||
lda SHARED_BUF_1+$100+0
|
|
||||||
sta PAR_TRACK
|
|
||||||
lda SHARED_BUF_1+$100+1
|
|
||||||
sta PAR_SECTOR
|
|
||||||
|
|
||||||
@get_sector_common:
|
|
||||||
|
|
||||||
jsr lowlevel_readsector ; XXX handle read errors
|
|
||||||
|
|
||||||
; Set new FD_DIRENT
|
|
||||||
|
|
||||||
lda PAR_SECTOR
|
|
||||||
and #$01
|
|
||||||
beq @2
|
|
||||||
lda #$08
|
|
||||||
@2:
|
|
||||||
sta FD_DIRENT
|
|
||||||
jmp @cont
|
|
||||||
|
|
||||||
fs_cbm_read_dir_blocksfree:
|
fs_cbm_read_dir_blocksfree:
|
||||||
|
|
||||||
; Copy the 'BLOCKS FREE' line
|
; Copy the 'BLOCKS FREE' line
|
||||||
|
|||||||
@@ -6,7 +6,7 @@
|
|||||||
|
|
||||||
fs_cbm_read_file_open:
|
fs_cbm_read_file_open:
|
||||||
|
|
||||||
; Get the first sector of the directory
|
; Get the first sector of the directory XXX deduplicate code, create a separate open directory routine
|
||||||
|
|
||||||
lda #40
|
lda #40
|
||||||
sta PAR_TRACK
|
sta PAR_TRACK
|
||||||
@@ -15,6 +15,24 @@ fs_cbm_read_file_open:
|
|||||||
|
|
||||||
jsr lowlevel_readsector ; XXX handle read errors
|
jsr lowlevel_readsector ; XXX handle read errors
|
||||||
|
|
||||||
|
; Set variables to point to the 1st directory entry in the 2nd sector of the buffer
|
||||||
|
|
||||||
|
lda #$08
|
||||||
|
sta FD_DIRENT
|
||||||
|
|
||||||
|
; Make sure the 1st sector in buffer points to 2nd one
|
||||||
|
|
||||||
|
lda #40
|
||||||
|
sta SHARED_BUF_1+0
|
||||||
|
lda #03
|
||||||
|
sta SHARED_BUF_1+1
|
||||||
|
|
||||||
|
; XXX deduplicate code above with fs_cbm_read_dir_open
|
||||||
|
|
||||||
|
; Try to find the file
|
||||||
|
|
||||||
|
jsr fs_cbm_nextdirentry
|
||||||
|
+bcs dos_EXIT
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in new issue
Block a user