📄 ui_delete2.lst
字号:
\ 0377 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 037A ?0084:
\ 037A FDE5 PUSH IY
\ 037C D1 POP DE
\ 037D CD0000 CALL LWRD ?SS_DIV_L02
\ 0380 EB EX DE,HL
\ 0381 29 ADD HL,HL
\ 0382 4D LD C,L
\ 0383 44 LD B,H
\ 0384 29 ADD HL,HL
\ 0385 09 ADD HL,BC
\ 0386 DD75EA LD (IX-22),L
\ 0389 DD74EB LD (IX-21),H
\ 038C 010500 LD BC,5
\ 038F 09 ADD HL,BC
\ 0390 DD75EC LD (IX-20),L
\ 0393 DD74ED LD (IX-19),H
\ 0396 C9 RET
\ 0397 ?0085:
\ 0397 CD0000 CALL LWRD ?SS_DIV_L02
\ 039A DD73E8 LD (IX-24),E
\ 039D DD72E9 LD (IX-23),D
\ 03A0 EB EX DE,HL
\ 03A1 29 ADD HL,HL
\ 03A2 4D LD C,L
\ 03A3 44 LD B,H
\ 03A4 29 ADD HL,HL
\ 03A5 09 ADD HL,BC
\ 03A6 DD75EA LD (IX-22),L
\ 03A9 DD74EB LD (IX-21),H
\ 03AC C9 RET
\ 03AD ?0086:
\ 03AD 09 ADD HL,BC
\ 03AE DD75EC LD (IX-20),L
\ 03B1 DD74ED LD (IX-19),H
\ 03B4 ?0087:
\ 03B4 DD6EEE LD L,(IX-18)
\ 03B7 DD66EF LD H,(IX-17)
\ 03BA 2B DEC HL
\ 03BB DD4EEC LD C,(IX-20)
\ 03BE DD46ED LD B,(IX-19)
\ 03C1 C30000 JP LWRD ?SS_CMP_L02
\ 03C4 ?0088:
\ 03C4 DD4EEC LD C,(IX-20)
\ 03C7 DD46ED LD B,(IX-19)
\ 03CA ?0089:
\ 03CA DD5EEA LD E,(IX-22)
\ 03CD DD56EB LD D,(IX-21)
\ 03D0 ?0090:
\ 03D0 3E00 LD A,BYTE3 reinit_idm_buf_filelist
\ 03D2 210000 LD HL,LWRD reinit_idm_buf_filelist
\ 03D5 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 03D8 draw_del_dir:
217
218 /********************************************************************************
219 /* Description : draw the selector directory.
220 *
221 * Arguments : location :keep the file selector parament
222 string_id :display language type
223 * Returns :
224 *
225 * Notes :
226 *
227 ********************************************************************************/
228 void draw_del_dir(file_location_t *location, BYTE string_id)
229 {
\ 03D8 CD0000 CALL LWRD ?ENT_AUTO_DIRECT_L09
\ 03DB D6FF DEFW -42
\ 03DD FDE5 PUSH IY
\ 03DF DD6E02 LD L,(IX+2)
\ 03E2 DD6603 LD H,(IX+3)
\ 03E5 E5 PUSH HL
\ 03E6 FDE1 POP IY
230 char Longnamebuf_del[31];
231 char buf[5];
232 BYTE NameNum,Cardflag=0;
233
234 DC oldDC_sav;
235
236 GetDCStatus(&oldDC_sav);
\ 03E8 210200 LD HL,2
\ 03EB 39 ADD HL,SP
\ 03EC EB EX DE,HL
\ 03ED CD0000 CALL LWRD GetDCStatus
237 SetPenColor(Color_WHITE_def);
\ 03F0 010000 LD BC,0
\ 03F3 11FFFF LD DE,65535
\ 03F6 CD0000 CALL LWRD SetPenColor
238 SetTextOutMode(1); //设字体透明
\ 03F9 1E01 LD E,1
\ 03FB CD0000 CALL LWRD SetTextOutMode
239
240 // SetAsciiFont(FONT_TYPE_LARGE); //ASCII码用大字体
241
242 ResShowPic(SSBCK,0,0);
\ 03FE 0E00 LD C,0
\ 0400 C5 PUSH BC
\ 0401 11DD00 LD DE,221
\ 0404 3E00 LD A,BYTE3 ResShowPic
\ 0406 210000 LD HL,LWRD ResShowPic
\ 0409 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 040C F1 POP AF
243 ResShowMultiString(CDELALL,string_id, list_str_x_def, list_str_y_def);
\ 040D 0E94 LD C,148
\ 040F C5 PUSH BC
\ 0410 0E16 LD C,22
\ 0412 C5 PUSH BC
\ 0413 DD4E04 LD C,(IX+4)
\ 0416 111401 LD DE,276
\ 0419 CD2600 CALL LWRD ?0082
\ 041C F1 POP AF
\ 041D F1 POP AF
244 ResShowPic(DELNO,78,60);
\ 041E 0E3C LD C,60
\ 0420 C5 PUSH BC
\ 0421 0E4E LD C,78
\ 0423 110100 LD DE,1
\ 0426 3E00 LD A,BYTE3 ResShowPic
\ 0428 210000 LD HL,LWRD ResShowPic
\ 042B CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 042E F1 POP AF
245 //ResShowPic(MDIR,10,95);
246 // SetTextPos(32,95);
247 // SetPenColor(Color_WHITE_def);
248
249
250 if(location->disk == 'H');//Cardflag=DIRROOT-DIRCARD;
\ 042F ?0063:
\ 042F ?0064:
251 else if(location->disk != 'C')ASSERT(FALSE);
\ 042F ?0066:
\ 042F ?0067:
\ 042F ?0065:
252
253 // SetAsciiFont(FONT_TYPE_LARGE);
254
255 if(location->path[0] == ':') //根目录显示
\ 042F FD7E0E LD A,(IY+14)
\ 0432 FE3A CP 58
\ 0434 283F JR Z,?0073
\ 0436 ?0068:
256 {
257
258 // strcpy(buf, "ROOT");
259 // buf[4] = 0x00;
260 //PutS(buf, -1);
261 }
262 else //子目录显示，会获取子目录的长名
\ 0436 ?0069:
263 {
264
265 memset(Longnamebuf_del,0x00,31);
\ 0436 011F00 LD BC,31
\ 0439 210C00 LD HL,12
\ 043C 39 ADD HL,SP
\ 043D EB EX DE,HL
\ 043E 68 LD L,B
\ 043F CD0000 CALL LWRD ?MEMSET_L11
266 memcpy(Longnamebuf_del,location->path,11);
\ 0442 210C00 LD HL,12
\ 0445 39 ADD HL,SP
\ 0446 EB EX DE,HL
\ 0447 210E00 LD HL,14
\ 044A FDE5 PUSH IY
\ 044C C1 POP BC
\ 044D 09 ADD HL,BC
\ 044E 010B00 LD BC,11
\ 0451 EDB0 LDIR
267 NameNum=FS_GetName(Longnamebuf_del,14);
\ 0453 0E0E LD C,14
\ 0455 210C00 LD HL,12
\ 0458 39 ADD HL,SP
\ 0459 EB EX DE,HL
\ 045A CD0000 CALL LWRD FS_GetName
268 if(NameNum!=0)
\ 045D B7 OR A
\ 045E 2015 JR NZ,?0073
\ 0460 ?0071:
269 {
270 // unitochar(Longnamebuf_del,NameNum*2+2,string_id);
271 //PutS(Longnamebuf_del,-1);
272 }
273 else
\ 0460 ?0072:
274 {
275 FS_CD("\\");
\ 0460 110000 LD DE,?0074
\ 0463 CD0000 CALL LWRD FS_CD
276 // NameNum=FS_GetName(Longnamebuf_del,14);
277 // if (NameNum != 0)
278 // {
279 // unitochar(Longnamebuf_del,NameNum*2+2,string_id);
280 //PutS(Longnamebuf_del,-1);
281 // }
282 // else
283 //PutS(location->path, 11);
284 FS_SetCurDir(location->ClusterNo);
\ 0466 FD4E0B LD C,(IY+11)
\ 0469 FD460C LD B,(IY+12)
\ 046C FD5E09 LD E,(IY+9)
\ 046F FD560A LD D,(IY+10)
\ 0472 CD0000 CALL LWRD FS_SetCurDir
\ 0475 ?0073:
\ 0475 ?0070:
285 }
286 }
287 FS_CD(location->path); //CD到删除所在目录
\ 0475 210E00 LD HL,14
\ 0478 FDE5 PUSH IY
\ 047A C1 POP BC
\ 047B 09 ADD HL,BC
\ 047C EB EX DE,HL
\ 047D CD0000 CALL LWRD FS_CD
288
289
290 // SetAsciiFont(FONT_TYPE_SMALL);
291
292 SetTextOutMode(0); //设字体不透明
\ 0480 1E00 LD E,0
\ 0482 CD0000 CALL LWRD SetTextOutMode
293 SetPenColor(oldDC_sav.PenColor);
\ 0485 DD4ED8 LD C,(IX-40)
\ 0488 DD46D9 LD B,(IX-39)
\ 048B DD5ED6 LD E,(IX-42)
\ 048E DD56D7 LD D,(IX-41)
\ 0491 CD0000 CALL LWRD SetPenColor
294 SetBackgdColor(oldDC_sav.BackgdColor);
\ 0494 210600 LD HL,6
\ 0497 39 ADD HL,SP
\ 0498 5E LD E,(HL)
\ 0499 23 INC HL
\ 049A 56 LD D,(HL)
\ 049B 23 INC HL
\ 049C 4E LD C,(HL)
\ 049D 23 INC HL
\ 049E 46 LD B,(HL)
\ 049F CD0000 CALL LWRD SetBackgdColor
295
296 }
\ 04A2 FDE1 POP IY
\ 04A4 C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
297
\ 0000 RSEG CSTR
\ 0000 ?0074:
\ 0000 5C00 DEFB 92,0
\ 0002 END
Errors: none
Warnings: none
Code size: 1191
Constant size: 2
Static variable size: Data(0) Iram(0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -