- bug с выходом из приложения, не закрывался файловый манипулятор.

This commit is contained in:
Anatoliy Belyanskiy 2023-10-25 01:38:14 +10:00
parent fb6c8a2caf
commit 1aa15566bf
4 changed files with 14 additions and 6 deletions

View File

@ -2097,7 +2097,6 @@ DIR_PATH_CHECK: LD A,(HL)
;
.forceCheck: LD HL,CurrentDirectory+1
LD BC,CurrentDirectory.DEPTH-1
;CALL FINDDIR.CHECK_SLASH
CALL .checkDrive
JR Z,.checkDir
;
@ -2105,7 +2104,7 @@ DIR_PATH_CHECK: LD A,(HL)
LD A,(FatBuffer.DRIVE)
ADD 'A'
CP (HL)
JP NZ,.gotoPath
JR NZ,.gotoPath
;
.checkDir: LD HL,CurrentDirectory+1
LD DE,WorkDirectory+1
@ -2122,7 +2121,7 @@ DIR_PATH_CHECK: LD A,(HL)
.end: CP (HL)
RET Z
.ReDir: LD HL,CurrentPath
JP .gotoPath
JR .gotoPath
;
.checkDrive: LD HL,CurrentPath
LD A,(FatBuffer.DRIVE)

View File

@ -1046,6 +1046,10 @@ _TST_PROC:
IN A,(SLOT1)
PUSH DE
PUSH AF
;!Test close EXE FM [x] 25/10/23
LD A,(EXE_FM)
PUSH AF
;
LD (EXSTACK),SP
LD SP,HL
EXX
@ -1154,8 +1158,13 @@ _TST_PROC_2:
LEAVE: LD A,B
LD (ERLEVEL),A
CALL LEAVMEM
CALL DECTASK
;CALL DECTASK ;!Test close EXE FM [x] 25/10/23
LD SP,(EXSTACK)
;!Test close EXE FM [x] 25/10/23
POP AF
CALL RES_FM
CALL DECTASK
;
POP AF
POP HL
OUT (SLOT1),A

View File

@ -1 +1 @@
496
499

@ -1 +1 @@
Subproject commit 12ce1947adb0a8d902cd6d89042fe23cb9a33c21
Subproject commit 9319bb78d96af2573dd54d8d2f422f2f134b5653