small CBDOS tweaks
This commit is contained in:
1 parent
18129b5003
commit
eec5a0680b
5 files changed
+19
-9
No files matched your search
@@ -291,7 +291,7 @@
|
|||||||
!set IEC_BURST = 3
|
!set IEC_BURST = 3
|
||||||
}
|
}
|
||||||
!ifdef CONFIG_MB_M65 {
|
!ifdef CONFIG_MB_M65 {
|
||||||
!set IEC_ROMDOS = 4
|
!set IEC_CBDOS = 4
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -28,14 +28,12 @@ dev_sd_cmd_OPEN_EOI:
|
|||||||
|
|
||||||
dev_sd_cmd_OPEN_dir:
|
dev_sd_cmd_OPEN_dir:
|
||||||
|
|
||||||
; XXX add support for filtering
|
; Reset status to OK
|
||||||
|
|
||||||
; Initialize 1st directory phase - header
|
lda #$00
|
||||||
|
jsr dos_status_00
|
||||||
|
|
||||||
lda #$01
|
; Provide pointer to the header
|
||||||
sta SD_DIR_PHASE
|
|
||||||
|
|
||||||
; Provide pointer and length of the header
|
|
||||||
|
|
||||||
lda #$20
|
lda #$20
|
||||||
sta SD_ACPTR_LEN+0
|
sta SD_ACPTR_LEN+0
|
||||||
@@ -47,6 +45,11 @@ dev_sd_cmd_OPEN_dir:
|
|||||||
lda #>dir_hdr_sd
|
lda #>dir_hdr_sd
|
||||||
sta SD_ACPTR_PTR+1
|
sta SD_ACPTR_PTR+1
|
||||||
|
|
||||||
|
; Set directory phase to 'file name'
|
||||||
|
|
||||||
|
lda #$01
|
||||||
|
sta SD_DIR_PHASE
|
||||||
|
|
||||||
; End
|
; End
|
||||||
|
|
||||||
jmp dos_EXIT
|
jmp dos_EXIT
|
||||||
@@ -18,6 +18,8 @@ dev_sd_cmd_READ:
|
|||||||
|
|
||||||
dev_sd_cmd_READ_dir_blocksfree:
|
dev_sd_cmd_READ_dir_blocksfree:
|
||||||
|
|
||||||
|
; Set pointer to '0 BLOCKS FREE.' line
|
||||||
|
|
||||||
lda #$13
|
lda #$13
|
||||||
sta SD_ACPTR_LEN+0
|
sta SD_ACPTR_LEN+0
|
||||||
lda #$00
|
lda #$00
|
||||||
@@ -28,5 +30,10 @@ dev_sd_cmd_READ_dir_blocksfree:
|
|||||||
lda #>dir_end
|
lda #>dir_end
|
||||||
sta SD_ACPTR_PTR+1
|
sta SD_ACPTR_PTR+1
|
||||||
|
|
||||||
|
; Mark end of directory
|
||||||
|
|
||||||
|
lda #$FF
|
||||||
|
sta SD_DIR_PHASE
|
||||||
|
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
@@ -10,7 +10,7 @@ m65dos_check:
|
|||||||
|
|
||||||
pha
|
pha
|
||||||
lda IECPROTO
|
lda IECPROTO
|
||||||
cmp #IEC_ROMDOS
|
cmp #IEC_CBDOS
|
||||||
beq @1
|
beq @1
|
||||||
|
|
||||||
pla
|
pla
|
||||||
|
|||||||
@@ -15,7 +15,7 @@ m65dos_detect:
|
|||||||
jsr m65dos_unitchk
|
jsr m65dos_unitchk
|
||||||
bcs @1
|
bcs @1
|
||||||
|
|
||||||
lda #IEC_ROMDOS
|
lda #IEC_CBDOS
|
||||||
sta IECPROTO
|
sta IECPROTO
|
||||||
@1:
|
@1:
|
||||||
pla
|
pla
|
||||||
|
|||||||
Reference in new issue
Block a user