fat32: 90%

This commit is contained in:
Anatoliy Belyanskiy 2024-04-16 03:14:08 +10:00
parent 6330028b93
commit bb5748091c
7 changed files with 47 additions and 22 deletions

View File

@ -54,20 +54,22 @@ CREATE: ;!TEST Current Dir ;[x] 15/10/23
;
;
;no_file_found
.DO: LD HL,MASKARE
.DO: ; _sFAT_DIRECTORY_RECORD.NAME + .EXT
LD HL,MASKARE
LD DE,HANDBUF
LD BC,11
LDIR
EX DE,HL
.TMP+1: LD A,0
; _sFAT_DIRECTORY_RECORD.ATTRIBUT
LD (HL),A
INC HL
LD BC,#0A00 ;!HARDCODE
;
; .RESERVED_NT .. .FIRST_CLUSTER_H
.loop1: LD (HL),C
INC HL
DJNZ .loop1
;AaRR
; .TIME .. .DATE
CALL WRITE_DATE_TIME_TO_DIRECTORY_RECORD
;
LD BC,#0600

View File

@ -156,6 +156,8 @@ DISKINF: LD C,B
EXX
LD H,A
LD L,A
LD B,A
LD C,A
EXX
LD B,A
LD C,A
@ -181,6 +183,12 @@ DISKINF: LD C,B
INC BC
EXX
.skip: INC HL
LD A,L
OR H
JR NZ,.loop_free_space
EXX
INC HL
EXX
JR .loop_free_space
;
; [ ] 22/11/23 ¯®¤äã­ªæ¨ï á ¤®¯.¨­ä®©

View File

@ -241,6 +241,7 @@ READ_FROM_FAT: CALL CHECK_CLUSTER_IS_SMALLER
LD A,B
OUT (SLOT3),A
POP HL
LD A,0
RET
;
@ -339,17 +340,19 @@ WRITE_TO_FAT: LD DE,(CORE_BUFFERS.FatBuffer.END_CHAIN_CLUSTER_L) ;
CALL GET_FAT32_CELL
EXX
POP HL ; áâ à襥 á«®¢® ­®¬¥à  ª« áâ¥à  ¢ ª®â®àë© § ¯¨á âì
POP DE
PUSH DE ; áâ à訩 ­®¬¥à ª« áâ¥à  ª®â®àë© ¢¯¨á âì
EXX
POP DE ; áâ à訩 ­®¬¥à ª« áâ¥à  ª®â®àë© ¢¯¨á âì
POP BC ; ¬« ¤è¨© ­®¬¥à ª« áâ¥à  ª®â®àë© ¢¯¨á âì
POP BC ; áâ à訩 ­®¬¥à ª« áâ¥à  ª®â®àë© ¢¯¨á âì
POP DE ; ¬« ¤è¨© ­®¬¥à ª« áâ¥à  ª®â®àë© ¢¯¨á âì
; á®åà. ¢ ª¥è¥ FAT-  ­®¬¥à ª« áâ¥à 
LD (HL),C
INC HL
LD (HL),B
INC HL
LD (HL),E
INC HL
LD (HL),D
INC HL
LD (HL),C
INC HL
LD (HL),B
JR .exit
;;;;;;;;;

View File

@ -1 +1 @@
973
951

View File

@ -531,15 +531,27 @@ read_disk_info:
;PUSH DE ; ᢮¡®¤­ëå ª« áâ¥à®¢
PUSH BC ; à §¬¥à ᥪâ®à  ¢ ¡ ©â å
EX AF,AF'
LD C,A ; A - à §¬¥à ª« áâ¥à  ¢ ᥪâ®à å
CALL Mult16X8
; !TEST fat 32
;LD C,A ; A - à §¬¥à ª« áâ¥à  ¢ ᥪâ®à å
;CALL Mult16X8
; A:HL = DE*A
LD B,0
LD C,A
EXX
PUSH DE
EXX
POP HL
; HL:DE * BC ᢮¡®¤­ë¥_ª« áâ¥àë * à §¬¥à_ª« áâ¥à _¢_ᥪâ®à å
CALL Mult32
; HL:DE = ᢮¡®¤­ë¥_ᥪâ®àë
;
EX DE,HL
LD H,0
LD L,A
; EX DE,HL
; LD H,0
; LD L,A
POP BC
CALL Mult32
; HL:DE = ᢮¡®¤­®¥ ¬¥áâ® ;!FIXIT ®£à ­¨ç¥­® 4 £¨£ ¬¨
;
LD (free_space+2),HL
EX DE,HL
LD (free_space),HL
@ -774,7 +786,7 @@ Size2Char:
;----------------------------------------------------------------------;
;<3B>à®æ¥¤ãà  ã¬­®¦¥­¨ï (16*8bit)
;<3B>  ¢å®¤: DE * C
;<3B>  ¢ë室:A+HL-१ã«ìâ â
;<3B>  ¢ë室:A:HL = १ã«ìâ â
Mult16X8:
SUB A
LD L,A
@ -798,8 +810,8 @@ Mlt16x8:
;----------------------------------------------------------------------;
;----------------------------------------------------------------------;
;<3B>à®æ¥¤ãà  ã¬­®¦¥­¨ï (32bit)
;<3B>  ¢å®¤: HL+DE*BC
;<3B>  ¢ë室:HL+DE-१ã«ìâ â
;<3B>  ¢å®¤: HL:DE * BC
;<3B>  ¢ë室:HL:DE = १ã«ìâ â
Mult32:
PUSH IX
LD IX,#0000

View File

@ -1 +1 @@
315
316

@ -1 +1 @@
Subproject commit e9bcf54a516df972207fc032925d2dfb74c39a89
Subproject commit 17acd882094d59946a9cd430a03e736e36fea49b