📄 ui_delete3.lst
字号:
134 {
135 ResShowPic(FILEBCK, explorer_str_x_def-1, file_pos[i-top]-4);
\ 0218 DD4E02 LD C,(IX+2)
\ 021B DD4603 LD B,(IX+3)
\ 021E DD6ECC LD L,(IX-52)
\ 0221 DD66CD LD H,(IX-51)
\ 0224 A7 AND A
\ 0225 ED42 SBC HL,BC
\ 0227 110000 LD DE,file_pos
\ 022A 19 ADD HL,DE
\ 022B 7E LD A,(HL)
\ 022C C6FC ADD A,252
\ 022E 5F LD E,A
\ 022F D5 PUSH DE
\ 0230 0E1F LD C,31
\ 0232 113200 LD DE,50
\ 0235 CDD902 CALL LWRD ?0027
\ 0238 F1 POP AF
136 ResShowPic(DHTHK,194, file_pos[i-top]+5);
\ 0239 DD4E02 LD C,(IX+2)
\ 023C DD4603 LD B,(IX+3)
\ 023F DD6ECC LD L,(IX-52)
\ 0242 DD66CD LD H,(IX-51)
\ 0245 A7 AND A
\ 0246 ED42 SBC HL,BC
\ 0248 010000 LD BC,file_pos
\ 024B 09 ADD HL,BC
\ 024C 7E LD A,(HL)
\ 024D C605 ADD A,5
\ 024F 4F LD C,A
\ 0250 C5 PUSH BC
\ 0251 0EC2 LD C,194
\ 0253 112E00 LD DE,46
\ 0256 CDD902 CALL LWRD ?0027
\ 0259 F1 POP AF
137 SetPenColor(Color_WHITE_def);
138 }
139 else
\ 025A ?0017:
140 SetPenColor(Color_WHITE_def);
\ 025A CD1003 CALL LWRD ?0031
\ 025D ?0018:
141 output8(0x4e,input8(0x4e) | 0x08);
\ 025D DB4E IN A,(78)
\ 025F CBDF SET 3,A
\ 0261 D34E OUT (78),A
142 read_idm_data_filelist(Longnamebuf,tmp);
\ 0263 FDE5 PUSH IY
\ 0265 C1 POP BC
\ 0266 210400 LD HL,4
\ 0269 39 ADD HL,SP
\ 026A EB EX DE,HL
\ 026B 3E00 LD A,BYTE3 read_idm_data_filelist
\ 026D 21D300 LD HL,LWRD read_idm_data_filelist
\ 0270 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
143 ResShowPic(MFILE,13,file_pos[i-top]-1);
\ 0273 DD4E02 LD C,(IX+2)
\ 0276 DD4603 LD B,(IX+3)
\ 0279 DD6ECC LD L,(IX-52)
\ 027C DD66CD LD H,(IX-51)
\ 027F A7 AND A
\ 0280 ED42 SBC HL,BC
\ 0282 110000 LD DE,file_pos
\ 0285 19 ADD HL,DE
\ 0286 7E LD A,(HL)
\ 0287 C6FF ADD A,255
\ 0289 5F LD E,A
\ 028A D5 PUSH DE
\ 028B CDD402 CALL LWRD ?0028
\ 028E F1 POP AF
144 SetTextPos(explorer_str_x_def, file_pos[i-top]-2);
\ 028F DD4E02 LD C,(IX+2)
\ 0292 DD4603 LD B,(IX+3)
\ 0295 DD6ECC LD L,(IX-52)
\ 0298 DD66CD LD H,(IX-51)
\ 029B A7 AND A
\ 029C ED42 SBC HL,BC
\ 029E 010000 LD BC,file_pos
\ 02A1 09 ADD HL,BC
\ 02A2 7E LD A,(HL)
\ 02A3 C6FE ADD A,254
\ 02A5 4F LD C,A
\ 02A6 1E20 LD E,32
\ 02A8 CD0000 CALL LWRD SetTextPos
145 PutS(Longnamebuf,-1);
\ 02AB 0EFF LD C,255
\ 02AD 210400 LD HL,4
\ 02B0 39 ADD HL,SP
\ 02B1 EB EX DE,HL
\ 02B2 CD0000 CALL LWRD PutS
\ 02B5 DD34CC INC (IX-52)
\ 02B8 2003 JR NZ,?0023
\ 02BA DD34CD INC (IX-51)
\ 02BD ?0023:
146 }
147
148 } //else
\ 02BD C3E701 JP LWRD ?0013
\ 02C0 ?0012:
\ 02C0 ?0011:
149 SetPenColor(Color_WHITE_def);
\ 02C0 CD1003 CALL LWRD ?0031
150 }
\ 02C3 FDE1 POP IY
\ 02C5 C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
\ 02C8 ?0026:
\ 02C8 CD0000 CALL LWRD ?SS_MOD_L02
\ 02CB D5 PUSH DE
\ 02CC FDE1 POP IY
\ 02CE 210000 LD HL,file_pos
\ 02D1 19 ADD HL,DE
\ 02D2 7E LD A,(HL)
\ 02D3 C9 RET
\ 02D4 ?0028:
\ 02D4 0E0D LD C,13
\ 02D6 117900 LD DE,121
\ 02D9 ?0027:
\ 02D9 3E00 LD A,BYTE3 ResShowPic
\ 02DB 210000 LD HL,LWRD ResShowPic
\ 02DE C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 02E1 ?0029:
\ 02E1 210000 LD HL,file_pos
\ 02E4 FDE5 PUSH IY
\ 02E6 C1 POP BC
\ 02E7 09 ADD HL,BC
\ 02E8 7E LD A,(HL)
\ 02E9 C6FE ADD A,254
\ 02EB 4F LD C,A
\ 02EC 1E20 LD E,32
\ 02EE CD0000 CALL LWRD SetTextPos
\ 02F1 FDE5 PUSH IY
\ 02F3 C1 POP BC
\ 02F4 210400 LD HL,4
\ 02F7 C9 RET
\ 02F8 ?0030:
\ 02F8 EB EX DE,HL
\ 02F9 3E00 LD A,BYTE3 read_idm_data_filelist
\ 02FB 21D300 LD HL,LWRD read_idm_data_filelist
\ 02FE CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0301 010000 LD BC,0
\ 0304 11FFFF LD DE,65535
\ 0307 CD0000 CALL LWRD SetPenColor
\ 030A 0EFF LD C,255
\ 030C 210400 LD HL,4
\ 030F C9 RET
\ 0310 ?0031:
\ 0310 010000 LD BC,0
\ 0313 11FFFF LD DE,65535
\ 0316 C30000 JP LWRD SetPenColor
\ 0319 show_delete_menu:
151
152 ////////////////////////
153
154 ////////////显示删除确认菜单
155 int show_delete_menu(BYTE string_id)
156 {
\ 0319 CD0000 CALL LWRD ?ENT_AUTO_DIRECT_L09
\ 031C F6FF DEFW -10
\ 031E FDE5 PUSH IY
157 int result;
158 pop_up_list_t list;
159 list.strid = delete_text;
\ 0320 DD36F600 LD (IX-10),LOW(delete_text)
\ 0324 DD36F700 LD (IX-9),HIGH(delete_text)
160 list.total = 2;
\ 0328 DD36F802 LD (IX-8),2
\ 032C DD36F900 LD (IX-7),0
161 list.active = 0;
\ 0330 AF XOR A
\ 0331 DD77FA LD (IX-6),A
\ 0334 DD77FB LD (IX-5),A
162 list.string_id =string_id;
\ 0337 DD4602 LD B,(IX+2)
\ 033A DD70FE LD (IX-2),B
163 list.headid = CDELFILE;
\ 033D DD36FC13 LD (IX-4),19
\ 0341 DD36FD01 LD (IX-3),1
164 result= ui_popup_list(&list, NULL);
\ 0345 4F LD C,A
\ 0346 C5 PUSH BC
\ 0347 69 LD L,C
\ 0348 61 LD H,C
\ 0349 E5 PUSH HL
\ 034A 2E06 LD L,6
\ 034C 39 ADD HL,SP
\ 034D EB EX DE,HL
\ 034E 3E00 LD A,BYTE3 ui_popup_list
\ 0350 210000 LD HL,LWRD ui_popup_list
\ 0353 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0356 F1 POP AF
\ 0357 F1 POP AF
\ 0358 E5 PUSH HL
\ 0359 FDE1 POP IY
165 if((result==0)&&(list.active==0))
\ 035B 7D LD A,L
\ 035C B4 OR H
\ 035D 200D JR NZ,?0020
\ 035F DD7EFA LD A,(IX-6)
\ 0362 DD66FB LD H,(IX-5)
\ 0365 B4 OR H
\ 0366 2004 JR NZ,?0020
\ 0368 ?0022:
\ 0368 ?0021:
\ 0368 ?0019:
166 {
167 result=RESULT_IGNORE;
\ 0368 FD213400 LD IY,52
\ 036C ?0020:
168 }
169 return result;
\ 036C FDE5 PUSH IY
\ 036E E1 POP HL
170 }
\ 036F FDE1 POP IY
\ 0371 C30000 JP LWRD ?BANK_LEAVE_DIRECT_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: 884
Constant size: 4
Static variable size: Data(300) Iram(0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -