Subversion Repositories pentevo

Rev

Rev 792 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
792 savelij 1 
 
1186 savelij 2 
; LAST UPDATE: 11.02.2025 savelij
792 savelij 3 
 
1186 savelij 4 
SUPPORT_EXT     DB "TRD"
5 
                DB "SCL"
6 
                DB "FDI"
7 
                DB "TAP"
8 
                DB "SPG"
9 
                DB "$C "
10 
                DB "FNT"
11 
                DB "BMP"
12 
                DB "ROM"
13 
                DB 0
792 savelij 14 
 
1186 savelij 15 
SYMS4SORT       DB ".!#$%&'()-0123456789@ABCDEFGHIJKLMNOPQRSTUVWXYZ^_`{}~",0x7F
16 
                DB "",0
17 
 
18 
; ஢ ᯨ᪠  ४਩/䠩
792 savelij 19 
SORT_FINDFILES  LD HL,(KOL_FOUNDED)
20 
                LD A,H
21 
                OR L
1186 savelij 22 
                RET Z                           ; 室 ᫨ 祣
792 savelij 23 
                DEC HL
24 
                LD A,H
25 
                OR L
1186 savelij 26 
                RET Z                           ; 室 ᫨ ४/䠩 ⮫쪮 1
27 
        EVOPORT WIN_P3,RAM_SORTFILES
28 
                LD HL,CPU3+0x1000               ;   ᨬ
29 
                LD DE,0x1000
792 savelij 30 
                LD BC,SYMS4SORT
31 
                EXX
1186 savelij 32 
                LD HL,CPU3+0x2000               ;  㤠 ᪫஢ ஢
33 
                LD BC,(FATVAR.KOLFIND)
792 savelij 34 
                EXX
1186 savelij 35 
;  室  ४਩
792 savelij 36 
SORTIR03        LD A,(HL)
1186 savelij 37 
                AND M_DIR_Directory
792 savelij 38 
                JR Z,SORTIR01
39 
                INC HL
40 
                LD A,(BC)
41 
                CP (HL)
42 
                DEC HL
43 
                JR NZ,SORTIR01
1186 savelij 44 
                SBC HL,DE                       ; 室  ࠬ
792 savelij 45 
                LD A,(HL)
46 
                INC HL
47 
                EXX
48 
                LD (HL),A
49 
                INC HL
50 
                EXX
51 
                LD A,(HL)
52 
                INC HL
53 
                EXX
54 
                LD (HL),A
55 
                INC HL
56 
                DEC BC
57 
                LD A,B
58 
                OR C
59 
                EXX
1186 savelij 60 
                JR Z,SORTIR05                   ; ᫨ 稫  ⮦ ᠬ  䠩
61 
                ADD HL,DE                       ;   䫠
792 savelij 62 
                JR SORTIR03
63 
 
1186 savelij 64 
;  ४, ᫥
792 savelij 65 
SORTIR01        INC HL
66 
                INC HL
67 
                EXX
68 
                DEC BC
69 
                LD A,B
70 
                OR C
71 
                EXX
72 
                JR NZ,SORTIR03
73 
SORTIR05        EXX
1186 savelij 74 
                LD BC,(FATVAR.KOLFIND)
792 savelij 75 
                EXX
1186 savelij 76 
                LD HL,CPU3+0x1000
792 savelij 77 
                INC BC
78 
                LD A,(BC)
79 
                AND A
80 
                JR NZ,SORTIR03
81 
                LD BC,SYMS4SORT
1186 savelij 82 
                LD HL,CPU3+0x1000
83 
; ன 室  䠩
792 savelij 84 
SORTIR02        LD A,(HL)
1186 savelij 85 
                AND M_DIR_Directory
792 savelij 86 
                JR NZ,SORTIR04
87 
                INC HL
88 
                LD A,(BC)
89 
                CP (HL)
90 
                DEC HL
91 
                JR NZ,SORTIR04
92 
                SBC HL,DE
93 
                LD A,(HL)
94 
                INC HL
95 
                EXX
96 
                LD (HL),A
97 
                INC HL
98 
                EXX
99 
                LD A,(HL)
100 
                INC HL
101 
                EXX
102 
                LD (HL),A
103 
                INC HL
104 
                DEC BC
105 
                LD A,B
106 
                OR C
107 
                EXX
108 
                JR Z,SORTIR07
109 
                ADD HL,DE
110 
                JR SORTIR02
111 
 
112 
SORTIR04        INC HL
113 
                INC HL
114 
                EXX
115 
                DEC BC
116 
                LD A,B
117 
                OR C
118 
                EXX
119 
                JR NZ,SORTIR02
120 
SORTIR07        EXX
1186 savelij 121 
                LD BC,(FATVAR.KOLFIND)
792 savelij 122 
                EXX
1186 savelij 123 
                LD HL,CPU3+0x1000
792 savelij 124 
                INC BC
125 
                LD A,(BC)
126 
                AND A
127 
                JR NZ,SORTIR02
1186 savelij 128 
                LD HL,CPU3+0x2000
792 savelij 129 
                LD DE,CPU3
1186 savelij 130 
                LD BC,0x1000
792 savelij 131 
                LDIR
132 
                RET