mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-11-15 11:40:52 +03:00
-bug in GETWORD: fixed "cd x:" incorrect behavior
This commit is contained in:
1 parent
54b1e804ba
commit
f13fdf4eab
13 files changed
+174
-244
No files matched your search
+2
-2
@@ -30,6 +30,6 @@ CHDIR: CALL GETWORD ;
|
||||
LD HL,TMPNAME
|
||||
LD A,(HL)
|
||||
OR A
|
||||
CALL NZ,OPENDIR
|
||||
RET
|
||||
RET Z
|
||||
JP OPENDIR
|
||||
;
|
||||
+6
-10
@@ -3,8 +3,6 @@
|
||||
; A - File attribute
|
||||
; OUTPUT: A - FM
|
||||
////////////////////////////////////////////////////////////////////////
|
||||
CREATE_FN:
|
||||
AND FAT_ATTR.NoVolID ; [x] 2/12/23 ¢à¥¬¥ë© ä¨ªá ¤«ï volume ID
|
||||
CREATE: ;!TEST Current Dir ;[x] 15/10/23
|
||||
PUSH HL
|
||||
LD C,A
|
||||
@@ -13,7 +11,7 @@ CREATE: ;!TEST Current Dir ;[x] 15/10/23
|
||||
POP BC
|
||||
POP HL
|
||||
RET C
|
||||
LD A,C ;
|
||||
LD A,C
|
||||
;
|
||||
CALL .Prepare
|
||||
RET C
|
||||
@@ -30,8 +28,8 @@ CREATE: ;!TEST Current Dir ;[x] 15/10/23
|
||||
LD A,DSS_Error.sys.FILE_NOT_FOUND
|
||||
RET
|
||||
;
|
||||
.NEW_FN:
|
||||
AND FAT_ATTR.NoVolID ; [x] 2/12/23 ¢à¥¬¥ë© ä¨ªá ¤«ï volume ID
|
||||
; INPUT: HL - "C:\DIR1\DIR2\filename.ext",#00
|
||||
; OUTPUT: A - FM
|
||||
.NEW: ;!TEST Current Dir ;[x] 15/10/23
|
||||
PUSH HL
|
||||
LD C,A
|
||||
@@ -69,7 +67,7 @@ CREATE: ;!TEST Current Dir ;[x] 15/10/23
|
||||
.loop1: LD (HL),C
|
||||
INC HL
|
||||
DJNZ .loop1
|
||||
;
|
||||
;AaRR
|
||||
PUSH HL
|
||||
CALL SYSTIME
|
||||
CALL MK_TIME
|
||||
@@ -97,7 +95,8 @@ CREATE: ;!TEST Current Dir ;[x] 15/10/23
|
||||
LD (OPEN_FN.TMP),A
|
||||
JP OPEN_FN.FILE ;R008
|
||||
.Prepare:
|
||||
AND #E7 ;R004 %76A00SHR = !FAT_ATTR ;!HARDCODE
|
||||
;AND #E7 ;R004 %76A00SHR = !FAT_ATTR ;!HARDCODE
|
||||
AND FAT_ATTR.NoDIRnoVolID
|
||||
LD (.TMP),A
|
||||
LD (.PATH0),HL
|
||||
CALL GETWORD
|
||||
@@ -111,7 +110,4 @@ CREATE: ;!TEST Current Dir ;[x] 15/10/23
|
||||
LD A,DSS_Error.sys.FILE_EXISTS
|
||||
CCF
|
||||
RET
|
||||
; INPUT: HL - "C:\DIR1\DIR2\filename.ext",#00
|
||||
; OUTPUT: A - FM
|
||||
CREAT_N EQU CREATE.NEW_FN
|
||||
;
|
||||
+1
-1
@@ -143,7 +143,7 @@ MKDIR: ;!TEST Current Dir ;[x] 15/10/23
|
||||
;
|
||||
POP HL
|
||||
CALL NSECTOR
|
||||
LD A,(CORE_BUFFERS.BootSector.S_P_C) ; ᥪâ®à®¢ ª« áâ¥à
|
||||
LD A,(CORE_BUFFERS.BootSector.SectorsPerCluster) ; ᥪâ®à®¢ ª« áâ¥à
|
||||
.MKD12: PUSH AF
|
||||
PUSH HL ; áâ. à §àï¤
|
||||
PUSH IX ; ®¬¥à «®£. ᥪâ®à
|
||||
|
||||
+2
-2
@@ -42,7 +42,7 @@ RMDIR: ;!TEST Current Dir ;[x] 15/10/23
|
||||
PUSH IX
|
||||
.RMD17: PUSH HL
|
||||
CALL NSECTOR
|
||||
LD A,(CORE_BUFFERS.BootSector.S_P_C)
|
||||
LD A,(CORE_BUFFERS.BootSector.SectorsPerCluster)
|
||||
; ç¨ ¥¬ ¢ëç¨âë¢ âì ᮤ¥à¦¨¬®¥ ª â «®£ ¯®á¥ªâ®à®
|
||||
.read_dir_loop:
|
||||
PUSH AF
|
||||
@@ -93,7 +93,7 @@ RMDIR: ;!TEST Current Dir ;[x] 15/10/23
|
||||
POP AF
|
||||
DEC A
|
||||
JR NZ,.read_dir_loop
|
||||
;
|
||||
; [ ] fat32
|
||||
POP HL ; ®¬¥à ª« áâ¥à
|
||||
CALL READ_FROM_FAT ; ¯à®ç¨â âì ¨§ ª¥è FAT- ®¬¥à á«¥¤. ª« áâ¥à
|
||||
EX DE,HL ; hl=®¬¥à á«¥¤. ª« áâ¥à
|
||||
|
||||
+2
-2
@@ -122,8 +122,8 @@ DISKINF:; [ ] 22/11/23
|
||||
LD E,C
|
||||
LD HL,(FAT_Max_Cluster_L)
|
||||
DEC HL
|
||||
LD BC,(CORE_BUFFERS.BootSector.B_P_S)
|
||||
LD A,(CORE_BUFFERS.BootSector.S_P_C)
|
||||
LD BC,(CORE_BUFFERS.BootSector.BytesPerSector)
|
||||
LD A,(CORE_BUFFERS.BootSector.SectorsPerCluster)
|
||||
AND A
|
||||
RET
|
||||
;
|
||||
|
||||
Reference in new issue
Block a user