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

...

Browse Source
This commit is contained in:
Tolik 2024-12-04 22:16:28 +10:00
parent 5a191e709d
commit f580b60110
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
DSS/API/Find.asm
View File

@ -35,14 +35,15 @@ F_FIRST: CALL .INIT_VARS
RET C RET C
CALL MASK CALL MASK
RET C RET C
LD A,(.TMP) LD A,(.SEARCH_ATTRIBUT)
CALL SEARCH.Custom CALL SEARCH.Custom
RET C RET C
LD HL,MASKARE LD HL,MASKARE
.DTABUF+1: LD DE,0 .DTABUF+1: LD DE,0
LD BC,FAT_DIRECTORY_RECORD.ATTRIBUT ; ª®¯¨à㥬 .NAME ¨ .EXT LD BC,FAT_DIRECTORY_RECORD.ATTRIBUT ; ª®¯¨à㥬 .NAME ¨ .EXT
LDIR LDIR
.TMP+1: LD A,0 .SEARCH_ATTRIBUT+1:
LD A,0 ; DSS_FCB_MAIN.SEARCH_ATTRIBUT
LD (DE),A LD (DE),A
.FIND_S: INC DE .FIND_S: INC DE
;!TODO «ãçè¥ âã⠨ᯮ«ì§®¢ âì ª ª ¢ record index ¤«ï ¯¥à¥¡®à  ª â «®£  > #4000 bytes ;!TODO «ãçè¥ âã⠨ᯮ«ì§®¢ âì ª ª ¢ record index ¤«ï ¯¥à¥¡®à  ª â «®£  > #4000 bytes
@ -73,7 +74,7 @@ F_FIRST: CALL .INIT_VARS
CALL GetName CALL GetName
JR .exit JR .exit
; ;
.INIT_VARS: LD (.TMP),A .INIT_VARS: LD (.SEARCH_ATTRIBUT),A
LD (.DTABUF),DE LD (.DTABUF),DE
LD A,B LD A,B
LD (.FNDMODE),A LD (.FNDMODE),A