📄 ui_delete3.lst
字号:
\ 0250 DD6E0A LD L,(IX+10)
\ 0253 DD660B LD H,(IX+11)
\ 0256 FDE5 PUSH IY
\ 0258 C1 POP BC
\ 0259 A7 AND A
\ 025A ED42 SBC HL,BC
\ 025C 202F JR NZ,?0017
\ 025E ?0016:
131 {
132 ResShowPic(FILEBCK, 12, menu_pos_list[i-top]-1);
\ 025E DD4EFC LD C,(IX-4)
\ 0261 DD46FD LD B,(IX-3)
\ 0264 FDE5 PUSH IY
\ 0266 E1 POP HL
\ 0267 A7 AND A
\ 0268 ED42 SBC HL,BC
\ 026A 010000 LD BC,menu_pos_list
\ 026D 09 ADD HL,BC
\ 026E 7E LD A,(HL)
\ 026F C6FF ADD A,255
\ 0271 4F LD C,A
\ 0272 C5 PUSH BC
\ 0273 0E0C LD C,12
\ 0275 112C00 LD DE,44
\ 0278 CD0503 CALL LWRD ?0030
\ 027B F1 POP AF
133 SetPenColor(Color_WHITE_def);
\ 027C 010000 LD BC,0
\ 027F 11FFFF LD DE,65535
\ 0282 CD0000 CALL LWRD SetPenColor
134 SetBackgdColor(0x00003358);
\ 0285 010000 LD BC,0
\ 0288 115833 LD DE,13144
\ 028B 1803 JR ?0026
135 }
136 else
\ 028D ?0017:
137 {
138 SetPenColor(Color_BLACK_def);
\ 028D CD1D03 CALL LWRD ?0035
139 SetBackgdColor(Color_MENU_def);
\ 0290 ?0026:
\ 0290 CD0000 CALL LWRD SetBackgdColor
\ 0293 ?0018:
140 }
141 output8(0x4e,input8(0x4e) | 0x08);
\ 0293 DB4E IN A,(78)
\ 0295 CBDF SET 3,A
\ 0297 D34E OUT (78),A
142 read_idm_data_filelist(Longnamebuf,tmp);
\ 0299 DD4EC8 LD C,(IX-56)
\ 029C DD46C9 LD B,(IX-55)
\ 029F 210200 LD HL,2
\ 02A2 39 ADD HL,SP
\ 02A3 EB EX DE,HL
\ 02A4 3E00 LD A,BYTE3 read_idm_data_filelist
\ 02A6 21F000 LD HL,LWRD read_idm_data_filelist
\ 02A9 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
143 ResShowPic(MFILE,0,menu_pos_list[i-top]+2);
\ 02AC DD4EFC LD C,(IX-4)
\ 02AF DD46FD LD B,(IX-3)
\ 02B2 FDE5 PUSH IY
\ 02B4 E1 POP HL
\ 02B5 A7 AND A
\ 02B6 ED42 SBC HL,BC
\ 02B8 110000 LD DE,menu_pos_list
\ 02BB 19 ADD HL,DE
\ 02BC 7E LD A,(HL)
\ 02BD C602 ADD A,2
\ 02BF 5F LD E,A
\ 02C0 D5 PUSH DE
\ 02C1 CD0003 CALL LWRD ?0031
\ 02C4 F1 POP AF
144 SetTextPos(12, menu_pos_list[i-top]);
\ 02C5 DD4EFC LD C,(IX-4)
\ 02C8 DD46FD LD B,(IX-3)
\ 02CB FDE5 PUSH IY
\ 02CD E1 POP HL
\ 02CE A7 AND A
\ 02CF ED42 SBC HL,BC
\ 02D1 010000 LD BC,menu_pos_list
\ 02D4 CD1603 CALL LWRD ?0034
145 PutS(Longnamebuf,-1);
\ 02D7 0EFF LD C,255
\ 02D9 210200 LD HL,2
\ 02DC 39 ADD HL,SP
\ 02DD EB EX DE,HL
\ 02DE CD0000 CALL LWRD PutS
146 }
147
148 } //else
\ 02E1 FD23 INC IY
\ 02E3 C32D02 JP LWRD ?0013
\ 02E6 ?0012:
\ 02E6 ?0011:
149 SetPenColor(Color_BLACK_def);
\ 02E6 010000 LD BC,0
\ 02E9 59 LD E,C
\ 02EA 50 LD D,B
\ 02EB CD0000 CALL LWRD SetPenColor
150 }
\ 02EE C3E700 JP LWRD ?0002
\ 02F1 ?0029:
\ 02F1 CD0000 CALL LWRD ?SS_MOD_L02
\ 02F4 DD73C8 LD (IX-56),E
\ 02F7 DD72C9 LD (IX-55),D
\ 02FA 210000 LD HL,menu_pos_list
\ 02FD 19 ADD HL,DE
\ 02FE 7E LD A,(HL)
\ 02FF C9 RET
\ 0300 ?0031:
\ 0300 0E00 LD C,0
\ 0302 ?0032:
\ 0302 11C600 LD DE,198
\ 0305 ?0030:
\ 0305 3E00 LD A,BYTE3 ResShowPic
\ 0307 210000 LD HL,LWRD ResShowPic
\ 030A C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 030D ?0033:
\ 030D 210000 LD HL,menu_pos_list
\ 0310 DD4EC8 LD C,(IX-56)
\ 0313 DD46C9 LD B,(IX-55)
\ 0316 ?0034:
\ 0316 09 ADD HL,BC
\ 0317 4E LD C,(HL)
\ 0318 1E0C LD E,12
\ 031A C30000 JP LWRD SetTextPos
\ 031D ?0035:
\ 031D 010000 LD BC,0
\ 0320 59 LD E,C
\ 0321 50 LD D,B
\ 0322 CD0000 CALL LWRD SetPenColor
\ 0325 010000 LD BC,0
\ 0328 11FFFF LD DE,65535
\ 032B C9 RET
\ 032C show_delete_menu:
151
152 ////////////////////////
153
154 ////////////显示删除确认菜单
155 int show_delete_menu(BYTE string_id)
156 {
\ 032C C5 PUSH BC
\ 032D DDE5 PUSH IX
\ 032F D5 PUSH DE
\ 0330 21F6FF LD HL,65526
\ 0333 39 ADD HL,SP
\ 0334 F9 LD SP,HL
157 int result;
158 pop_up_list_t list;
159 list.strid = delete_text;
\ 0335 3600 LD (HL),LOW(delete_text)
\ 0337 23 INC HL
\ 0338 3600 LD (HL),HIGH(delete_text)
160 list.total = 2;
\ 033A 23 INC HL
\ 033B 3602 LD (HL),2
\ 033D 23 INC HL
\ 033E 3600 LD (HL),0
161 list.active = 0;
\ 0340 23 INC HL
\ 0341 AF XOR A
\ 0342 77 LD (HL),A
\ 0343 23 INC HL
\ 0344 77 LD (HL),A
162 list.string_id =string_id;
\ 0345 23 INC HL
\ 0346 23 INC HL
\ 0347 23 INC HL
\ 0348 E5 PUSH HL
\ 0349 43 LD B,E
\ 034A E1 POP HL
\ 034B 70 LD (HL),B
163 list.headid = CDELFILE;
\ 034C 210600 LD HL,6
\ 034F 39 ADD HL,SP
\ 0350 363E LD (HL),62
\ 0352 23 INC HL
\ 0353 3602 LD (HL),2
164 result= ui_popup_list(&list, NULL);
\ 0355 4F LD C,A
\ 0356 C5 PUSH BC
\ 0357 69 LD L,C
\ 0358 61 LD H,C
\ 0359 E5 PUSH HL
\ 035A 2E04 LD L,4
\ 035C 39 ADD HL,SP
\ 035D EB EX DE,HL
\ 035E 3E00 LD A,BYTE3 ui_popup_list
\ 0360 210000 LD HL,LWRD ui_popup_list
\ 0363 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0366 F1 POP AF
\ 0367 F1 POP AF
\ 0368 E5 PUSH HL
\ 0369 DDE1 POP IX
165 if((result==0)&&(list.active==0))
\ 036B 7D LD A,L
\ 036C B4 OR H
\ 036D 200E JR NZ,?0020
\ 036F 210400 LD HL,4
\ 0372 39 ADD HL,SP
\ 0373 7E LD A,(HL)
\ 0374 23 INC HL
\ 0375 66 LD H,(HL)
\ 0376 B4 OR H
\ 0377 2004 JR NZ,?0020
\ 0379 ?0022:
\ 0379 ?0021:
\ 0379 ?0019:
166 {
167 result=RESULT_IGNORE;
\ 0379 DD213400 LD IX,52
\ 037D ?0020:
168 }
169 return result;
\ 037D DDE5 PUSH IX
\ 037F E1 POP HL
170 }
\ 0380 EB EX DE,HL
\ 0381 210C00 LD HL,12
\ 0384 39 ADD HL,SP
\ 0385 F9 LD SP,HL
\ 0386 EB EX DE,HL
\ 0387 DDE1 POP IX
\ 0389 C1 POP BC
\ 038A C30000 JP LWRD ?BANK_FAST_LEAVE_L08
\ 0000 RSEG CONST
\ 0000 delete_text:
\ 0000 7802 DEFW 632
\ 0002 7702 DEFW 631
\ 0000 RSEG IDM_COM_FSL_D
\ 0000 com_delname:
\ 012C DEFS 300
\ 012C END
Errors: none
Warnings: none
Code size: 909
Constant size: 4
Static variable size: Data(300) Iram(0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -