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

исправлен баг беготнёй по русским папкам

Browse Source
This commit is contained in:
Tolik 2025-05-26 00:46:35 +10:00
parent e01ebd75bd
commit 7befdcafc1
4 changed files with 29 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DSS/API/Find.asm
View File

@ -17,9 +17,9 @@ F_FIRST_FN: CALL F_FIRST.INIT_VARS
PUSH HL
;!TEST Current Dir ;[x] 15/10/23
CALL DIR_PATH_CHECK
POP HL
RET C
;
POP HL
JR F_FIRST.begin
;
F_FIRST: CALL .INIT_VARS

4
DSS/FS/FAT.asm
View File

@ -443,8 +443,8 @@ FINDDIR:
RET Z
LD (HL),A
INC HL
LD (HL),0
;INC HL
XOR A ; á¡à®á CF § ®¤­®
LD (HL),A
RET
;----------------------------------------------------------------------;

49
DSS/Procedures.asm
View File

@ -206,31 +206,32 @@ CalcDayOfWeek: LD A,D
;----------------------------------------------------------------------;
; a..z -> A..Z
UPPER: CP 'a'
RET C
CP 'z' + 1
JR NC,.MDUPPER
SUB #20
.NOUPPER:
RET
.MDUPPER:
CP ' ' ; àãááª ï ¡ãª¢   , ª®¤ #A0
JR C,.NOUPPER
CP '¯' ; àãááª ï ¡ãª¢  ¯, ª®¤ #B0
JR NC,.BGUPPER
SUB #20
RET
.BGUPPER:
CP 'à' ; àãááª ï ¡ãª¢  à, ª®¤ #E0
JR C,.NOUPPER
CP 'ð' ; àãááª ï ¡ãª¢  ð, ª®¤ #F0
JR NC,.HGUPPER
SUB #50
RET
UPPER: CP 'a'
RET C
CP 'z' + 1
JR NC,.CheckRUS
.Dec: SUB #20
RET
;
.CheckRUS: CP ' ' ; àãááª ï ¡ãª¢   , ª®¤ #A0
RET C
CP '¯' ; àãááª ï ¡ãª¢  ¯, ª®¤ #B0
JR C,.Dec
; JR NC,.BGUPPER
; SUB #20
; RET
;
.BGUPPER: CP 'à' ; àãááª ï ¡ãª¢  à, ª®¤ #E0
RET C
CP 'ð' ; àãááª ï ¡ãª¢  ð, ª®¤ #F0
JR NC,.HGUPPER
SUB #50
RET
;
.HGUPPER: CP 'ñ' ; àãááª ï ¡ãª¢  ñ, ª®¤ #F1
RET NZ
DEC A
RET
RET NZ
DEC A
RET
;----------------------------------------------------------------------;

2
DSS/build.txt
View File

@ -1 +1 @@
49
51