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 |