прибираемся

This commit is contained in:
Tolik committed 2025-04-05 01:58:39 +10:00
1 parent 9c17418f43
commit f3f3ac6df0
48 files changed
+743 -708

No files matched your search

+1 -1
View File
@@ -445,7 +445,7 @@ EvComComb:
jp z,alt_clear_history
; Enter
ld a,(format_mode) ; ⥪. ä®à¬ â ¯ ­¥«¨
and form_info+form_qview ; info, qview
and form_info + form_qview ; info, qview
jr nz,com_comb_ext
ld a,d
cp 28h+80h ; Ctrl+Enter, ¨¬ï/¯ãâì ¢ ª®¬-áâபã
+8 -8
View File
@@ -25,7 +25,7 @@ max_depth equ 20+1 ;
ScanTree:
ld (tree_stack),sp
ld bc,3135h ; ®ç¨áâ¨âì ¡ãä¥à á¨áâ. ª« ¢ë
rst 10h
rst ToDSS
ld sp,work_buffer+512 ; á⥪ ¯à®æ¥¤ãàë
in a,(SLOT3)
ld (tree_page),a ; á®åà. ¯®àâ
@@ -60,7 +60,7 @@ ScanTree:
tree_loop:
push hl ;  ¤à¥á áâ à®£® í«¥¬¥­â  (¯®á«¥ LoadDIR)
ld c,31h ; ®¯à®á á¨áâ. ª« ¢ë
rst 10h
rst ToDSS
call nz,abort_tree_scan ; ¢ë¢¥á⨠®ª­® "¯à¥àë¢. ®¯¥à æ¨¨"
pop hl
ld a,(depth_tree) ; ­®¬¥à ⥪. ã஢­ï ¢«®¦¥­¨©
@@ -82,13 +82,13 @@ tree_depth_ok:
jr z,dirs_end ; ­¥â ¢«®¦¥­¨©, ¢¥à­ãâìáï ¢ ­ ç. ã஢¥­ì
ld (cur_tree_adr+1),hl ; ¨¬ï ¯ ¯ª¨ ⥪. ã஢­ï
ld c,1Dh ; ãáâ. ¯ãâì ­  ¯ ¯ªã ⥪. ã஢­ï
rst 10h
rst ToDSS
call scan_cur_level ; ᪠­¨à. ®¤­®£® ã஢­ï + á⮯ª  í«¥¬.
jr c,tree_loop ; ¥áâì ¯ ¯ª¨
; ¢¥à­ãâìáï ­  ¯à¥¤. ã஢¥­ì
dirs_end:
ld c,31h ; ®¯à®á á¨áâ. ª« ¢ë
rst 10h
rst ToDSS
call nz,abort_tree_scan ; ¢ë¢¥á⨠®ª­® "¯à¥àë¢. ®¯¥à æ¨¨"
pop hl ; ⥪. í«¥¬¥­â ¨§ á⥪ 
ld a,h
@@ -109,7 +109,7 @@ dirs_end1:
dirs_end2:
ld hl,parent_level ; ".."
ld c,1Dh ; ãáâ. ¯ãâì
rst 10h
rst ToDSS
dirs_end3:
ld hl,depth_tree ; ­®¬¥à ⥪. ã஢­ï ¢«®¦¥­¨©
dec (hl)
@@ -162,7 +162,7 @@ scan_cur_level:
push de
ld a,37h ; ¢á¥, ªà®¬¥ ¬¥âª¨ ⮬ 
ld bc,0119h ; f_first 8.3
rst 10h
rst ToDSS
pop hl
pop ix
jr c,scan_level_exit ; ­¥ ­ ©¤¥­®
@@ -173,7 +173,7 @@ scan_level_loop:
ld de,work_buffer ; à ¡. ¡ãä¥à
push de
ld c,1Ah ; f_next
rst 10h
rst ToDSS
pop hl
pop ix
jr nc,scan_level_loop ; ­ § ¤ ¢ 横«
@@ -292,7 +292,7 @@ ins_tree_item:
;-------------------------------------------------
abort_tree_scan:
ld bc,3135h ; ®ç¨áâ¨âì ¡ãä¥à á¨áâ. ª« ¢ë
rst 10h
rst ToDSS
ld hl,dial_abort ; ®¯¨á â¥«ì ®ª­ 
call DialogEr
cp evCommand ; ᮡë⨥ "ª®¬ ­¤ "