From f580b601109c6838d54769e959a551d5efda9fbf Mon Sep 17 00:00:00 2001 From: Tolik <85737314+Tolik-Trek@users.noreply.github.com> Date: Wed, 4 Dec 2024 22:16:28 +1000 Subject: [PATCH] ... --- DSS/API/Find.asm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/DSS/API/Find.asm b/DSS/API/Find.asm index 6b06b7e..3aeef59 100644 --- a/DSS/API/Find.asm +++ b/DSS/API/Find.asm @@ -35,14 +35,15 @@ F_FIRST: CALL .INIT_VARS RET C CALL MASK RET C - LD A,(.TMP) + LD A,(.SEARCH_ATTRIBUT) CALL SEARCH.Custom RET C LD HL,MASKARE .DTABUF+1: LD DE,0 LD BC,FAT_DIRECTORY_RECORD.ATTRIBUT ; копируем .NAME и .EXT LDIR -.TMP+1: LD A,0 +.SEARCH_ATTRIBUT+1: + LD A,0 ; DSS_FCB_MAIN.SEARCH_ATTRIBUT LD (DE),A .FIND_S: INC DE ;!TODO лучше тут использовать как в record index для перебора каталога > #4000 bytes @@ -73,7 +74,7 @@ F_FIRST: CALL .INIT_VARS CALL GetName JR .exit ; -.INIT_VARS: LD (.TMP),A +.INIT_VARS: LD (.SEARCH_ATTRIBUT),A LD (.DTABUF),DE LD A,B LD (.FNDMODE),A