📄 ui_delete3.lst
字号:
61 //读数据到数组name中
62 void read_idm_data_filelist(char *name, int count)
63 {
\ 00D3 CD0000 CALL LWRD ?ENT_AUTO_DIRECT_L09
\ 00D6 0000 DEFW 0
64 byte status;
65 status = input8(0x05);
\ 00D8 DB05 IN A,(5)
\ 00DA 5F LD E,A
66 output8(0x05 ,0xf6);
\ 00DB 3EF6 LD A,246
\ 00DD D305 OUT (5),A
67 memcpy(name, com_delname[count], 50);
\ 00DF D5 PUSH DE
\ 00E0 013200 LD BC,50
\ 00E3 DD5E02 LD E,(IX+2)
\ 00E6 DD5603 LD D,(IX+3)
\ 00E9 D5 PUSH DE
\ 00EA DD5E04 LD E,(IX+4)
\ 00ED DD5605 LD D,(IX+5)
\ 00F0 CD0000 CALL LWRD ?S_MUL_L02
\ 00F3 210000 LD HL,com_delname
\ 00F6 19 ADD HL,DE
\ 00F7 D1 POP DE
\ 00F8 C32400 JP LWRD ?0025
68 output8(0x05, status);
69 }
\ 00FB ShowFilelist:
70
71
72 /********************************************************************************
73 * Description : show the directory.
74 *
75 * Arguments :
76 * location: get thedisk type
77 * Invpath: the "\" or name
78 * Namebuf:the string you will display
79 * type : show file kind
80 * string_id: language type
81 * Returns :
82 * other: Successful
83 * 0: Fail, detail information in fselError
84 * Notes : only display the valid directory
85 *
86 ********************************************************************************/
87 void ShowFilelist(int top,int bottom,int Old_active,int active,BYTE string_id)
88 {
\ 00FB CD0000 CALL LWRD ?ENT_AUTO_DIRECT_L09
\ 00FE CCFF DEFW -52
\ 0100 FDE5 PUSH IY
89
90 int i,tmp;
91 char Longnamebuf[50];
92 // SetAsciiFont(FONT_TYPE_SMALL);
93 SetTextOutMode(1);
\ 0102 1E01 LD E,1
\ 0104 CD0000 CALL LWRD SetTextOutMode
94
95 if(Old_active!=active)
\ 0107 DD6E0C LD L,(IX+12)
\ 010A DD660D LD H,(IX+13)
\ 010D DD5E0A LD E,(IX+10)
\ 0110 DD560B LD D,(IX+11)
\ 0113 A7 AND A
\ 0114 ED52 SBC HL,DE
\ 0116 CAA701 JP Z,?0010
\ 0119 ?0009:
96
97 {
98 //清除旧的活动列表项
99
100 tmp=Old_active%6;
\ 0119 010600 LD BC,6
\ 011C CDC802 CALL LWRD ?0026
101 ResShowPic(file_bck_pic[tmp], menu_bck_x_def, file_pos[tmp]-4);
\ 011F C6FC ADD A,252
\ 0121 4F LD C,A
\ 0122 C5 PUSH BC
\ 0123 0E09 LD C,9
\ 0125 EB EX DE,HL
\ 0126 29 ADD HL,HL
\ 0127 110000 LD DE,file_bck_pic
\ 012A 19 ADD HL,DE
\ 012B 5E LD E,(HL)
\ 012C 23 INC HL
\ 012D 56 LD D,(HL)
\ 012E CDD902 CALL LWRD ?0027
\ 0131 F1 POP AF
102 ResShowPic(DHT,194,8);
\ 0132 0E08 LD C,8
\ 0134 C5 PUSH BC
\ 0135 0EC2 LD C,194
\ 0137 112D00 LD DE,45
\ 013A CDD902 CALL LWRD ?0027
\ 013D F1 POP AF
103 ResShowPic(MFILE,13,file_pos[tmp]-1);
\ 013E 210000 LD HL,file_pos
\ 0141 FDE5 PUSH IY
\ 0143 C1 POP BC
\ 0144 09 ADD HL,BC
\ 0145 7E LD A,(HL)
\ 0146 C6FF ADD A,255
\ 0148 5F LD E,A
\ 0149 D5 PUSH DE
\ 014A CDD402 CALL LWRD ?0028
\ 014D F1 POP AF
104 SetTextPos(explorer_str_x_def, file_pos[tmp]-2);
\ 014E CDE102 CALL LWRD ?0029
105 read_idm_data_filelist(Longnamebuf,tmp);
\ 0151 39 ADD HL,SP
\ 0152 CDF802 CALL LWRD ?0030
106 SetPenColor(Color_WHITE_def); //取列表名
107 PutS(Longnamebuf, -1);
\ 0155 39 ADD HL,SP
\ 0156 EB EX DE,HL
\ 0157 CD0000 CALL LWRD PutS
108
109 //显示当前活动项
110 tmp=active%6;
\ 015A 010600 LD BC,6
\ 015D DD5E0C LD E,(IX+12)
\ 0160 DD560D LD D,(IX+13)
\ 0163 CDC802 CALL LWRD ?0026
111 ResShowPic(MFILE,13,file_pos[tmp]-1);
\ 0166 C6FF ADD A,255
\ 0168 4F LD C,A
\ 0169 C5 PUSH BC
\ 016A CDD402 CALL LWRD ?0028
\ 016D F1 POP AF
112 ResShowPic(FILEBCK, explorer_str_x_def-1, file_pos[tmp]-4);
\ 016E 210000 LD HL,file_pos
\ 0171 FDE5 PUSH IY
\ 0173 C1 POP BC
\ 0174 09 ADD HL,BC
\ 0175 7E LD A,(HL)
\ 0176 C6FC ADD A,252
\ 0178 5F LD E,A
\ 0179 D5 PUSH DE
\ 017A 0E1F LD C,31
\ 017C 113200 LD DE,50
\ 017F CDD902 CALL LWRD ?0027
\ 0182 F1 POP AF
113 ResShowPic(DHTHK,194, file_pos[tmp]+5);
\ 0183 210000 LD HL,file_pos
\ 0186 FDE5 PUSH IY
\ 0188 C1 POP BC
\ 0189 09 ADD HL,BC
\ 018A 7E LD A,(HL)
\ 018B C605 ADD A,5
\ 018D 5F LD E,A
\ 018E D5 PUSH DE
\ 018F 0EC2 LD C,194
\ 0191 112E00 LD DE,46
\ 0194 CDD902 CALL LWRD ?0027
\ 0197 F1 POP AF
114 SetTextPos(explorer_str_x_def, file_pos[tmp]-2);
\ 0198 CDE102 CALL LWRD ?0029
115 read_idm_data_filelist(Longnamebuf,tmp);
\ 019B 39 ADD HL,SP
\ 019C CDF802 CALL LWRD ?0030
116 SetPenColor(Color_WHITE_def); //取列表名
117 PutS(Longnamebuf, -1);
\ 019F 39 ADD HL,SP
\ 01A0 EB EX DE,HL
\ 01A1 CD0000 CALL LWRD PutS
118 }
119
120
121 else //if(Old_active==active) 刷新一页屏
\ 01A4 C3C002 JP LWRD ?0012
\ 01A7 ?0010:
122
123 {
124 SetTextOutMode(1);
\ 01A7 1E01 LD E,1
\ 01A9 CD0000 CALL LWRD SetTextOutMode
125 ResShowPic(MENUTWO,0,0);
\ 01AC 0E00 LD C,0
\ 01AE C5 PUSH BC
\ 01AF 116D00 LD DE,109
\ 01B2 CDD902 CALL LWRD ?0027
\ 01B5 F1 POP AF
126 SetPenColor(Color_WHITE_def);
\ 01B6 CD1003 CALL LWRD ?0031
127 ResShowMultiString(CDELFILE,string_id, list_str_x_def, list_str_y_def);
\ 01B9 0E94 LD C,148
\ 01BB C5 PUSH BC
\ 01BC 0E16 LD C,22
\ 01BE C5 PUSH BC
\ 01BF DD4E0E LD C,(IX+14)
\ 01C2 111301 LD DE,275
\ 01C5 3E00 LD A,BYTE3 ResShowMultiString
\ 01C7 210000 LD HL,LWRD ResShowMultiString
\ 01CA CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 01CD F1 POP AF
\ 01CE F1 POP AF
128 ResShowPic(DHT,194,8);
\ 01CF 0E08 LD C,8
\ 01D1 C5 PUSH BC
\ 01D2 0EC2 LD C,194
\ 01D4 112D00 LD DE,45
\ 01D7 CDD902 CALL LWRD ?0027
\ 01DA F1 POP AF
129 //显示列表名
130 for(i=top;i<=bottom;i++)
\ 01DB DD6E02 LD L,(IX+2)
\ 01DE DD6603 LD H,(IX+3)
\ 01E1 DD75CC LD (IX-52),L
\ 01E4 DD74CD LD (IX-51),H
\ 01E7 ?0013:
\ 01E7 DD4ECC LD C,(IX-52)
\ 01EA DD46CD LD B,(IX-51)
\ 01ED DD6E04 LD L,(IX+4)
\ 01F0 DD6605 LD H,(IX+5)
\ 01F3 CD0000 CALL LWRD ?SS_CMP_L02
\ 01F6 DAC002 JP C,?0012
\ 01F9 ?0014:
131 {
132 tmp=i%6;
\ 01F9 010600 LD BC,6
\ 01FC DD5ECC LD E,(IX-52)
\ 01FF DD56CD LD D,(IX-51)
\ 0202 CD0000 CALL LWRD ?SS_MOD_L02
\ 0205 D5 PUSH DE
\ 0206 FDE1 POP IY
133 if(i==active)
\ 0208 DD6E0C LD L,(IX+12)
\ 020B DD660D LD H,(IX+13)
\ 020E DD4ECC LD C,(IX-52)
\ 0211 DD46CD LD B,(IX-51)
\ 0214 ED42 SBC HL,BC
\ 0216 2042 JR NZ,?0017
\ 0218 ?0016:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -