📄 ui_delete3.lst
字号:
133 if(i==active)
\ 024F DD6E0A LD L,(IX+10)
\ 0252 DD660B LD H,(IX+11)
\ 0255 FDE5 PUSH IY
\ 0257 C1 POP BC
\ 0258 A7 AND A
\ 0259 ED42 SBC HL,BC
\ 025B 203C JR NZ,?0017
\ 025D ?0016:
134 {
135 ResShowPic(FILEBCK, explorer_str_x_def-1, file_pos[i-top]-4);
\ 025D DD4EFC LD C,(IX-4)
\ 0260 DD46FD LD B,(IX-3)
\ 0263 FDE5 PUSH IY
\ 0265 E1 POP HL
\ 0266 A7 AND A
\ 0267 ED42 SBC HL,BC
\ 0269 110000 LD DE,file_pos
\ 026C 19 ADD HL,DE
\ 026D 7E LD A,(HL)
\ 026E C6FC ADD A,252
\ 0270 5F LD E,A
\ 0271 D5 PUSH DE
\ 0272 0E1F LD C,31
\ 0274 113200 LD DE,50
\ 0277 CD0903 CALL LWRD ?0030
\ 027A F1 POP AF
136 ResShowPic(DHTHK,194, file_pos[i-top]+5);
\ 027B DD4EFC LD C,(IX-4)
\ 027E DD46FD LD B,(IX-3)
\ 0281 FDE5 PUSH IY
\ 0283 E1 POP HL
\ 0284 A7 AND A
\ 0285 ED42 SBC HL,BC
\ 0287 010000 LD BC,file_pos
\ 028A 09 ADD HL,BC
\ 028B 7E LD A,(HL)
\ 028C C605 ADD A,5
\ 028E 4F LD C,A
\ 028F C5 PUSH BC
\ 0290 0EC2 LD C,194
\ 0292 112E00 LD DE,46
\ 0295 CD0903 CALL LWRD ?0030
\ 0298 F1 POP AF
137 SetPenColor(Color_WHITE_def);
138 }
139 else
\ 0299 ?0017:
140 SetPenColor(Color_WHITE_def);
\ 0299 CD2D03 CALL LWRD ?0035
\ 029C ?0018:
141 output8(0x4e,input8(0x4e) | 0x08);
\ 029C DB4E IN A,(78)
\ 029E CBDF SET 3,A
\ 02A0 D34E OUT (78),A
142 read_idm_data_filelist(Longnamebuf,tmp);
\ 02A2 DD4EC8 LD C,(IX-56)
\ 02A5 DD46C9 LD B,(IX-55)
\ 02A8 210200 LD HL,2
\ 02AB 39 ADD HL,SP
\ 02AC EB EX DE,HL
\ 02AD 3E00 LD A,BYTE3 read_idm_data_filelist
\ 02AF 21F000 LD HL,LWRD read_idm_data_filelist
\ 02B2 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
143 ResShowPic(MFILE,13,file_pos[i-top]-1);
\ 02B5 DD4EFC LD C,(IX-4)
\ 02B8 DD46FD LD B,(IX-3)
\ 02BB FDE5 PUSH IY
\ 02BD E1 POP HL
\ 02BE A7 AND A
\ 02BF ED42 SBC HL,BC
\ 02C1 110000 LD DE,file_pos
\ 02C4 19 ADD HL,DE
\ 02C5 7E LD A,(HL)
\ 02C6 C6FF ADD A,255
\ 02C8 5F LD E,A
\ 02C9 D5 PUSH DE
\ 02CA CD0403 CALL LWRD ?0031
\ 02CD F1 POP AF
144 SetTextPos(explorer_str_x_def, file_pos[i-top]-2);
\ 02CE DD4EFC LD C,(IX-4)
\ 02D1 DD46FD LD B,(IX-3)
\ 02D4 FDE5 PUSH IY
\ 02D6 E1 POP HL
\ 02D7 A7 AND A
\ 02D8 ED42 SBC HL,BC
\ 02DA 010000 LD BC,file_pos
\ 02DD CD1A03 CALL LWRD ?0033
145 PutS(Longnamebuf,-1);
\ 02E0 0EFF LD C,255
\ 02E2 210200 LD HL,2
\ 02E5 39 ADD HL,SP
\ 02E6 EB EX DE,HL
\ 02E7 CD0000 CALL LWRD PutS
146 }
147
148 } //else
\ 02EA FD23 INC IY
\ 02EC C32C02 JP LWRD ?0013
\ 02EF ?0012:
\ 02EF ?0011:
149 SetPenColor(Color_WHITE_def);
\ 02EF CD2D03 CALL LWRD ?0035
150 }
\ 02F2 C3E700 JP LWRD ?0002
\ 02F5 ?0029:
\ 02F5 CD0000 CALL LWRD ?SS_MOD_L02
\ 02F8 DD73C8 LD (IX-56),E
\ 02FB DD72C9 LD (IX-55),D
\ 02FE 210000 LD HL,file_pos
\ 0301 19 ADD HL,DE
\ 0302 7E LD A,(HL)
\ 0303 C9 RET
\ 0304 ?0031:
\ 0304 0E0D LD C,13
\ 0306 117900 LD DE,121
\ 0309 ?0030:
\ 0309 3E00 LD A,BYTE3 ResShowPic
\ 030B 210000 LD HL,LWRD ResShowPic
\ 030E C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 0311 ?0032:
\ 0311 210000 LD HL,file_pos
\ 0314 DD4EC8 LD C,(IX-56)
\ 0317 DD46C9 LD B,(IX-55)
\ 031A ?0033:
\ 031A 09 ADD HL,BC
\ 031B 7E LD A,(HL)
\ 031C C6FE ADD A,254
\ 031E 4F LD C,A
\ 031F 1E20 LD E,32
\ 0321 C30000 JP LWRD SetTextPos
\ 0324 ?0034:
\ 0324 EB EX DE,HL
\ 0325 3E00 LD A,BYTE3 read_idm_data_filelist
\ 0327 21F000 LD HL,LWRD read_idm_data_filelist
\ 032A CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 032D ?0035:
\ 032D 010000 LD BC,0
\ 0330 11FFFF LD DE,65535
\ 0333 C30000 JP LWRD SetPenColor
\ 0336 show_delete_menu:
151
152 ////////////////////////
153
154 ////////////显示删除确认菜单
155 int show_delete_menu(BYTE string_id)
156 {
\ 0336 C5 PUSH BC
\ 0337 DDE5 PUSH IX
\ 0339 D5 PUSH DE
\ 033A 21F6FF LD HL,65526
\ 033D 39 ADD HL,SP
\ 033E F9 LD SP,HL
157 int result;
158 pop_up_list_t list;
159 list.strid = delete_text;
\ 033F 3600 LD (HL),LOW(delete_text)
\ 0341 23 INC HL
\ 0342 3600 LD (HL),HIGH(delete_text)
160 list.total = 2;
\ 0344 23 INC HL
\ 0345 3602 LD (HL),2
\ 0347 23 INC HL
\ 0348 3600 LD (HL),0
161 list.active = 0;
\ 034A 23 INC HL
\ 034B AF XOR A
\ 034C 77 LD (HL),A
\ 034D 23 INC HL
\ 034E 77 LD (HL),A
162 list.string_id =string_id;
\ 034F 23 INC HL
\ 0350 23 INC HL
\ 0351 23 INC HL
\ 0352 E5 PUSH HL
\ 0353 43 LD B,E
\ 0354 E1 POP HL
\ 0355 70 LD (HL),B
163 list.headid = CDELFILE;
\ 0356 210600 LD HL,6
\ 0359 39 ADD HL,SP
\ 035A 3613 LD (HL),19
\ 035C 23 INC HL
\ 035D 3601 LD (HL),1
164 result= ui_popup_list(&list, NULL);
\ 035F 4F LD C,A
\ 0360 C5 PUSH BC
\ 0361 69 LD L,C
\ 0362 61 LD H,C
\ 0363 E5 PUSH HL
\ 0364 2E04 LD L,4
\ 0366 39 ADD HL,SP
\ 0367 EB EX DE,HL
\ 0368 3E00 LD A,BYTE3 ui_popup_list
\ 036A 210000 LD HL,LWRD ui_popup_list
\ 036D CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0370 F1 POP AF
\ 0371 F1 POP AF
\ 0372 E5 PUSH HL
\ 0373 DDE1 POP IX
165 if((result==0)&&(list.active==0))
\ 0375 7D LD A,L
\ 0376 B4 OR H
\ 0377 200E JR NZ,?0020
\ 0379 210400 LD HL,4
\ 037C 39 ADD HL,SP
\ 037D 7E LD A,(HL)
\ 037E 23 INC HL
\ 037F 66 LD H,(HL)
\ 0380 B4 OR H
\ 0381 2004 JR NZ,?0020
\ 0383 ?0022:
\ 0383 ?0021:
\ 0383 ?0019:
166 {
167 result=RESULT_IGNORE;
\ 0383 DD213400 LD IX,52
\ 0387 ?0020:
168 }
169 return result;
\ 0387 DDE5 PUSH IX
\ 0389 E1 POP HL
170 }
\ 038A EB EX DE,HL
\ 038B 210C00 LD HL,12
\ 038E 39 ADD HL,SP
\ 038F F9 LD SP,HL
\ 0390 EB EX DE,HL
\ 0391 DDE1 POP IX
\ 0393 C1 POP BC
\ 0394 C30000 JP LWRD ?BANK_FAST_LEAVE_L08
\ 0000 RSEG CONST
\ 0000 delete_text:
\ 0000 1801 DEFW 280
\ 0002 1701 DEFW 279
\ 0000 RSEG IDM_COM_FSL_D
\ 0000 com_delname:
\ 012C DEFS 300
\ 012C END
Errors: none
Warnings: none
Code size: 919
Constant size: 4
Static variable size: Data(300) Iram(0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -