Tolik-Trek/Estex-DSS
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Estex-DSS.git synced 2026-06-16 01:41:17 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

EXEC: включил обратно закрытие файла EXE без загрузчика перед стартом

Browse Source
This commit is contained in:
Tolik 2025-02-25 02:31:27 +10:00
parent 5f493aec7c
commit dd2a134ad3
9 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DSS/API/Attribute.asm
View File

@ -15,7 +15,7 @@ ATTRIB: ;!TEST Current Dir ;[x] 15/10/23
POP BC POP BC
POP HL POP HL
RET C RET C
.old_EXE: LD A,C LD A,C
; ;
; ;
INC B INC B

8
DSS/API/Create.asm
View File

@ -12,7 +12,7 @@ CREATE: ;!TEST Current Dir ;[x] 15/10/23 ;CREATE_FN:
POP BC POP BC
POP HL POP HL
RET C RET C
.old_EXE: LD A,C LD A,C
; ;
CALL .Prepare CALL .Prepare
RET C RET C
@ -40,7 +40,7 @@ CREATE: ;!TEST Current Dir ;[x] 15/10/23 ;CREATE_FN:
POP BC POP BC
POP HL POP HL
RET C RET C
.old_EXE_: LD A,C LD A,C
; ;
CALL .Prepare CALL .Prepare
RET C RET C
@ -98,6 +98,10 @@ CREATE: ;!TEST Current Dir ;[x] 15/10/23 ;CREATE_FN:
CALL CHECK_64kb_CLUSTER CALL CHECK_64kb_CLUSTER
RET C RET C
; ;
; [ ] 25/02/2025 - ä ©« ­¥ ᮧ¤ áâáï, ¥á«¨ ­¥â ᢮¡®¤­®£® ¬ ­¨¯ã«ïâ®à 
CALL GET_FM
RET C
;
JP MASK JP MASK
; ;
; [x] fixed a bug with incorrect search when there were too many files in the directory 12/03/2024 ; [x] fixed a bug with incorrect search when there were too many files in the directory 12/03/2024

2
DSS/API/Delete.asm
View File

@ -8,7 +8,7 @@ DEL_FN: ;Current Dir ;[x] 15/10/23
POP HL POP HL
RET C RET C
; ;
.old_EXE: CALL SetPath_GetName ; âĽáâ ­  ¤ŽŻăáâ. ¨Źď ¨ ­ áâŕ. ­  ¤¨áŞ CALL SetPath_GetName ; â¥áâ ­  ¤®¯ãáâ. ¨¬ï ¨ ­ áâà. ­  ¤¨áª
RET C RET C
; [ ] 26/06/2024 ; [ ] 26/06/2024
CALL CHECK_64kb_CLUSTER CALL CHECK_64kb_CLUSTER

7
DSS/API/Execute.ASM
View File

@ -219,6 +219,7 @@ EXEC02: LD (EXE_FM),A
LD (_ret),HL LD (_ret),HL
JP _TST_PROC JP _TST_PROC
; ;
; ‡ ¯ã᪠¡¥§ § £àã§ç¨ª 
.RET_1: LD DE,(CORE_BUFFERS.EXEBUFF.LD_ADDR) .RET_1: LD DE,(CORE_BUFFERS.EXEBUFF.LD_ADDR)
XOR A XOR A
LD H,A LD H,A
@ -228,9 +229,8 @@ EXEC02: LD (EXE_FM),A
LD HL,(CORE_BUFFERS.EXEBUFF.LD_ADDR) ; ¡ãä¥à LD HL,(CORE_BUFFERS.EXEBUFF.LD_ADDR) ; ¡ãä¥à
LD A,(EXE_FM) ; ¤¥áªà. ä ©«  LD A,(EXE_FM) ; ¤¥áªà. ä ©« 
CALL READ ; ç⥭¨¥ ¨§ ä ©«  CALL READ ; ç⥭¨¥ ¨§ ä ©« 
;!TEST ;[x] no close source EXE file before start 08/11/23 LD A,(EXE_FM) ; ¤¥áªà. ä ©« 
; LD A,(EXE_FM) ; ¤ĽáŞŕ. ä ŠŤ  CALL CLOSE_FN ; § ªàëâì ä ©«
; CALL CLOSE ; § Şŕëâě ä ŠŤ
; ;
JP _TST_PROC_2 JP _TST_PROC_2
; ;
@ -291,6 +291,7 @@ NOINK2: LD HL,_RET_2
LD (_ret),HL LD (_ret),HL
JR _TST_PROC JR _TST_PROC
; ;
; ‡ ¯ãáª á § £àã§ç¨ª®¬
_RET_2: LD HL,(CORE_BUFFERS.EXEBUFF.LD_ADDR) ; ¡ãä¥à _RET_2: LD HL,(CORE_BUFFERS.EXEBUFF.LD_ADDR) ; ¡ãä¥à
LD DE,(CORE_BUFFERS.EXEBUFF.LOADER) ; ç¨á«® ç¨â. ¡ ©â LD DE,(CORE_BUFFERS.EXEBUFF.LOADER) ; ç¨á«® ç¨â. ¡ ©â
LD A,(EXE_FM) ; ¤¥áªà. ä ©«  LD A,(EXE_FM) ; ¤¥áªà. ä ©« 

2
DSS/API/Find.asm
View File

@ -19,7 +19,7 @@ F_FIRST_FN: CALL F_FIRST.INIT_VARS
CALL DIR_PATH_CHECK CALL DIR_PATH_CHECK
RET C RET C
; ;
.old_EXE: POP HL POP HL
JR F_FIRST.begin JR F_FIRST.begin
; ;
F_FIRST: CALL .INIT_VARS F_FIRST: CALL .INIT_VARS

1
DSS/API/Open.asm
View File

@ -19,7 +19,6 @@ OPEN_FN: ;!TEST Current Dir ;[x] 15/10/23
CALL DIR_PATH_CHECK.forceCheck CALL DIR_PATH_CHECK.forceCheck
POP HL POP HL
RET C RET C
.old_EXE: ;JR .start
;!FIXIT ᤥ« âì ª ª ¢ mkdir ¨«¨ rmdir? ;!FIXIT ᤥ« âì ª ª ¢ mkdir ¨«¨ rmdir?
;R008 ; ;R008 ;
.start: CALL SetPath_GetName .start: CALL SetPath_GetName

1
DSS/API/Rename.asm
View File

@ -17,7 +17,6 @@ RENAME: ;!TEST Current Dir ;[x] 15/10/23
POP HL POP HL
RET C RET C
; ;
.old_EXE: ;
; !TODO ¢®âª­ãâì âãâ SetPath_GetName, ç⮡ ¬®¦­® ¡ë«® 㤠«ïâì ¯® ®â­®á¨â¥«ì­ë¬ ¯ãâï¬? ; !TODO ¢®âª­ãâì âãâ SetPath_GetName, ç⮡ ¬®¦­® ¡ë«® 㤠«ïâì ¯® ®â­®á¨â¥«ì­ë¬ ¯ãâï¬?
; ;
; [ ] 26/06/2024 ; [ ] 26/06/2024

2
DSS/API/diskINF.asm
View File

@ -132,7 +132,7 @@ DISKINF: LD C,B
;JR Z,CURRDS ;R06 ;JR Z,CURRDS ;R06
.CurrentDisk: LD A,(CORE_BUFFERS.CurrentPath) .CurrentDisk: LD A,(CORE_BUFFERS.CurrentPath)
SUB 'A' SUB 'A'
.old_EXE: LD HL,CORE_BUFFERS.FatBuffer.DRIVE LD HL,CORE_BUFFERS.FatBuffer.DRIVE
CP (HL) CP (HL)
JR Z,.CheckFreeSpace JR Z,.CheckFreeSpace
; ;

2
DSS/build.txt
View File

@ -1 +1 @@
15 16