📄 ui_delete2.lst
字号:
\ 033C 11FE00 LD DE,254
\ 033F ?0086:
\ 033F 3E00 LD A,BYTE3 ResShowPic
\ 0341 210000 LD HL,LWRD ResShowPic
\ 0344 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 0347 ?0088:
\ 0347 DD5E02 LD E,(IX+2)
\ 034A DD5603 LD D,(IX+3)
\ 034D 3E00 LD A,BYTE3 fselGetLocation
\ 034F 210000 LD HL,LWRD fselGetLocation
\ 0352 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 0355 ?0089:
\ 0355 FDE5 PUSH IY
\ 0357 D1 POP DE
\ 0358 CD0000 CALL LWRD ?SS_DIV_L02
\ 035B EB EX DE,HL
\ 035C 29 ADD HL,HL
\ 035D 4D LD C,L
\ 035E 44 LD B,H
\ 035F 29 ADD HL,HL
\ 0360 09 ADD HL,BC
\ 0361 DD75EA LD (IX-22),L
\ 0364 DD74EB LD (IX-21),H
\ 0367 010500 LD BC,5
\ 036A 09 ADD HL,BC
\ 036B DD75EC LD (IX-20),L
\ 036E DD74ED LD (IX-19),H
\ 0371 C9 RET
\ 0372 ?0090:
\ 0372 CD0000 CALL LWRD ?SS_DIV_L02
\ 0375 DD73E8 LD (IX-24),E
\ 0378 DD72E9 LD (IX-23),D
\ 037B EB EX DE,HL
\ 037C 29 ADD HL,HL
\ 037D 4D LD C,L
\ 037E 44 LD B,H
\ 037F 29 ADD HL,HL
\ 0380 09 ADD HL,BC
\ 0381 DD75EA LD (IX-22),L
\ 0384 DD74EB LD (IX-21),H
\ 0387 C9 RET
\ 0388 ?0091:
\ 0388 09 ADD HL,BC
\ 0389 DD75EC LD (IX-20),L
\ 038C DD74ED LD (IX-19),H
\ 038F ?0092:
\ 038F DD6EEE LD L,(IX-18)
\ 0392 DD66EF LD H,(IX-17)
\ 0395 2B DEC HL
\ 0396 DD4EEC LD C,(IX-20)
\ 0399 DD46ED LD B,(IX-19)
\ 039C C30000 JP LWRD ?SS_CMP_L02
\ 039F ?0093:
\ 039F DD4EEC LD C,(IX-20)
\ 03A2 DD46ED LD B,(IX-19)
\ 03A5 ?0094:
\ 03A5 DD5EEA LD E,(IX-22)
\ 03A8 DD56EB LD D,(IX-21)
\ 03AB 3E00 LD A,BYTE3 ShowFilelist
\ 03AD 210000 LD HL,LWRD ShowFilelist
\ 03B0 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 03B3 ?0095:
\ 03B3 DD4EEC LD C,(IX-20)
\ 03B6 DD46ED LD B,(IX-19)
\ 03B9 ?0096:
\ 03B9 DD5EEA LD E,(IX-22)
\ 03BC DD56EB LD D,(IX-21)
\ 03BF ?0097:
\ 03BF 3E00 LD A,BYTE3 reinit_idm_buf_filelist
\ 03C1 210000 LD HL,LWRD reinit_idm_buf_filelist
\ 03C4 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 03C7 draw_del_dir:
216
217 /********************************************************************************
218 /* Description : draw the selector directory.
219 *
220 * Arguments : location :keep the file selector parament
221 string_id :display language type
222 * Returns :
223 *
224 * Notes :
225 *
226 ********************************************************************************/
227 void draw_del_dir(file_location_t *location, BYTE string_id)
228 {
\ 03C7 CD0000 CALL LWRD ?ENT_AUTO_DIRECT_L09
\ 03CA D6FF DEFW -42
\ 03CC FDE5 PUSH IY
\ 03CE DD6E02 LD L,(IX+2)
\ 03D1 DD6603 LD H,(IX+3)
\ 03D4 E5 PUSH HL
\ 03D5 FDE1 POP IY
229 char Longnamebuf_del[31];
230 char buf[5];
231 BYTE NameNum,Cardflag=0;
232
233 DC oldDC_sav;
234 GetDCStatus(&oldDC_sav);
\ 03D7 210200 LD HL,2
\ 03DA 39 ADD HL,SP
\ 03DB EB EX DE,HL
\ 03DC CD0000 CALL LWRD GetDCStatus
235
236
237 ResShowPic(SSBCK,0,0);
\ 03DF 1E00 LD E,0
\ 03E1 D5 PUSH DE
\ 03E2 4B LD C,E
\ 03E3 CD3C03 CALL LWRD ?0085
\ 03E6 F1 POP AF
238 SetPenColor(Color_BLACK_def);
\ 03E7 010000 LD BC,0
\ 03EA 59 LD E,C
\ 03EB 50 LD D,B
\ 03EC CD0000 CALL LWRD SetPenColor
239 ///-SetTextOutMode(1); //设字体透明
240 SetBackgdColor(0x0000df1c);
\ 03EF 010000 LD BC,0
\ 03F2 111CDF LD DE,57116
\ 03F5 CD0000 CALL LWRD SetBackgdColor
241 ResShowMultiString(CDELALL,string_id, 255, 100);
\ 03F8 0E64 LD C,100
\ 03FA C5 PUSH BC
\ 03FB 0EFF LD C,255
\ 03FD C5 PUSH BC
\ 03FE DD4E04 LD C,(IX+4)
\ 0401 113F02 LD DE,575
\ 0404 CD2600 CALL LWRD ?0087
\ 0407 F1 POP AF
\ 0408 F1 POP AF
242 SetBackgdColor(Color_MENU_def);
\ 0409 010000 LD BC,0
\ 040C 11FFFF LD DE,65535
\ 040F CD0000 CALL LWRD SetBackgdColor
243 ///-SetTextOutMode(0);
244 ResShowPic(DELNO,56,32);
\ 0412 0E20 LD C,32
\ 0414 C5 PUSH BC
\ 0415 0E38 LD C,56
\ 0417 110100 LD DE,1
\ 041A CD3F03 CALL LWRD ?0086
\ 041D F1 POP AF
245
246
247 if(location->disk == 'H');//Cardflag=DIRROOT-DIRCARD;
\ 041E ?0066:
\ 041E ?0067:
248 else if(location->disk != 'C')ASSERT(FALSE);
\ 041E ?0069:
\ 041E ?0070:
\ 041E ?0068:
249 if(location->path[0] == ':') //根目录显示
\ 041E FD7E0E LD A,(IY+14)
\ 0421 FE3A CP 58
\ 0423 283F JR Z,?0076
\ 0425 ?0071:
250 {
251 }
252 else //子目录显示，会获取子目录的长名
\ 0425 ?0072:
253 {
254
255 memset(Longnamebuf_del,0x00,31);
\ 0425 011F00 LD BC,31
\ 0428 210C00 LD HL,12
\ 042B 39 ADD HL,SP
\ 042C EB EX DE,HL
\ 042D 68 LD L,B
\ 042E CD0000 CALL LWRD ?MEMSET_L11
256 memcpy(Longnamebuf_del,location->path,11);
\ 0431 210C00 LD HL,12
\ 0434 39 ADD HL,SP
\ 0435 EB EX DE,HL
\ 0436 210E00 LD HL,14
\ 0439 FDE5 PUSH IY
\ 043B C1 POP BC
\ 043C 09 ADD HL,BC
\ 043D 010B00 LD BC,11
\ 0440 EDB0 LDIR
257 NameNum=FS_GetName(Longnamebuf_del,14);
\ 0442 0E0E LD C,14
\ 0444 210C00 LD HL,12
\ 0447 39 ADD HL,SP
\ 0448 EB EX DE,HL
\ 0449 CD0000 CALL LWRD FS_GetName
258 if(NameNum!=0)
\ 044C B7 OR A
\ 044D 2015 JR NZ,?0076
\ 044F ?0074:
259 {
260 }
261 else
\ 044F ?0075:
262 {
263 FS_CD("\\");
\ 044F 110000 LD DE,?0077
\ 0452 CD0000 CALL LWRD FS_CD
264 FS_SetCurDir(location->ClusterNo);
\ 0455 FD4E0B LD C,(IY+11)
\ 0458 FD460C LD B,(IY+12)
\ 045B FD5E09 LD E,(IY+9)
\ 045E FD560A LD D,(IY+10)
\ 0461 CD0000 CALL LWRD FS_SetCurDir
\ 0464 ?0076:
\ 0464 ?0073:
265 }
266 }
267 FS_CD(location->path); //CD到删除所在目录
\ 0464 210E00 LD HL,14
\ 0467 FDE5 PUSH IY
\ 0469 C1 POP BC
\ 046A 09 ADD HL,BC
\ 046B EB EX DE,HL
\ 046C CD0000 CALL LWRD FS_CD
268
269
270 // SetAsciiFont(FONT_TYPE_SMALL);
271 SetPenColor(oldDC_sav.PenColor);
\ 046F DD4ED8 LD C,(IX-40)
\ 0472 DD46D9 LD B,(IX-39)
\ 0475 DD5ED6 LD E,(IX-42)
\ 0478 DD56D7 LD D,(IX-41)
\ 047B CD0000 CALL LWRD SetPenColor
272 SetBackgdColor(oldDC_sav.BackgdColor);
\ 047E 210600 LD HL,6
\ 0481 39 ADD HL,SP
\ 0482 5E LD E,(HL)
\ 0483 23 INC HL
\ 0484 56 LD D,(HL)
\ 0485 23 INC HL
\ 0486 4E LD C,(HL)
\ 0487 23 INC HL
\ 0488 46 LD B,(HL)
\ 0489 CD0000 CALL LWRD SetBackgdColor
273 }
\ 048C FDE1 POP IY
\ 048E C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
\ 0000 RSEG CSTR
\ 0000 ?0077:
\ 0000 5C00 DEFB 92,0
\ 0002 END
Errors: none
Warnings: none
Code size: 1169
Constant size: 2
Static variable size: Data(0) Iram(0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -