ui_delete3.lst
来自「炬力方案176*132软件源码,适用于AK1025」· LST 代码 · 共 672 行 · 第 1/3 页
LST
672 行
\ 0210 ED42 SBC HL,BC
\ 0212 2032 JR NZ,?0017
\ 0214 ?0016:
131 {
132 ResShowPic(FILEBCK, 12, menu_pos_list[i-top]-1);
\ 0214 DD4E02 LD C,(IX+2)
\ 0217 DD4603 LD B,(IX+3)
\ 021A DD6ECC LD L,(IX-52)
\ 021D DD66CD LD H,(IX-51)
\ 0220 A7 AND A
\ 0221 ED42 SBC HL,BC
\ 0223 010000 LD BC,menu_pos_list
\ 0226 09 ADD HL,BC
\ 0227 7E LD A,(HL)
\ 0228 C6FF ADD A,255
\ 022A 4F LD C,A
\ 022B C5 PUSH BC
\ 022C 0E0C LD C,12
\ 022E 112C00 LD DE,44
\ 0231 CDC402 CALL LWRD ?0027
\ 0234 F1 POP AF
133 SetPenColor(Color_WHITE_def);
\ 0235 010000 LD BC,0
\ 0238 11FFFF LD DE,65535
\ 023B CD0000 CALL LWRD SetPenColor
134 SetBackgdColor(0x00003358);
\ 023E 010000 LD BC,0
\ 0241 115833 LD DE,13144
\ 0244 1803 JR ?0024
135 }
136 else
\ 0246 ?0017:
137 {
138 SetPenColor(Color_BLACK_def);
\ 0246 CDE902 CALL LWRD ?0032
139 SetBackgdColor(Color_MENU_def);
\ 0249 ?0024:
\ 0249 CD0000 CALL LWRD SetBackgdColor
\ 024C ?0018:
140 }
141 output8(0x4e,input8(0x4e) | 0x08);
\ 024C DB4E IN A,(78)
\ 024E CBDF SET 3,A
\ 0250 D34E OUT (78),A
142 read_idm_data_filelist(Longnamebuf,tmp);
\ 0252 FDE5 PUSH IY
\ 0254 C1 POP BC
\ 0255 210400 LD HL,4
\ 0258 39 ADD HL,SP
\ 0259 CDE002 CALL LWRD ?0031
143 ResShowPic(MFILE,0,menu_pos_list[i-top]+2);
\ 025C DD4E02 LD C,(IX+2)
\ 025F DD4603 LD B,(IX+3)
\ 0262 DD6ECC LD L,(IX-52)
\ 0265 DD66CD LD H,(IX-51)
\ 0268 A7 AND A
\ 0269 ED42 SBC HL,BC
\ 026B 110000 LD DE,menu_pos_list
\ 026E 19 ADD HL,DE
\ 026F 7E LD A,(HL)
\ 0270 C602 ADD A,2
\ 0272 5F LD E,A
\ 0273 D5 PUSH DE
\ 0274 CDBF02 CALL LWRD ?0028
\ 0277 F1 POP AF
144 SetTextPos(12, menu_pos_list[i-top]);
\ 0278 DD4E02 LD C,(IX+2)
\ 027B DD4603 LD B,(IX+3)
\ 027E DD6ECC LD L,(IX-52)
\ 0281 DD66CD LD H,(IX-51)
\ 0284 A7 AND A
\ 0285 ED42 SBC HL,BC
\ 0287 010000 LD BC,menu_pos_list
\ 028A 09 ADD HL,BC
\ 028B 4E LD C,(HL)
\ 028C 1E0C LD E,12
\ 028E CD0000 CALL LWRD SetTextPos
145 PutS(Longnamebuf,-1);
\ 0291 0EFF LD C,255
\ 0293 210400 LD HL,4
\ 0296 39 ADD HL,SP
\ 0297 EB EX DE,HL
\ 0298 CD0000 CALL LWRD PutS
\ 029B DD34CC INC (IX-52)
\ 029E 2003 JR NZ,?0023
\ 02A0 DD34CD INC (IX-51)
\ 02A3 ?0023:
146 }
147
148 } //else
\ 02A3 C3E301 JP LWRD ?0013
\ 02A6 ?0012:
\ 02A6 ?0011:
149 SetPenColor(Color_BLACK_def);
\ 02A6 010000 LD BC,0
\ 02A9 59 LD E,C
\ 02AA 50 LD D,B
\ 02AB CD0000 CALL LWRD SetPenColor
150 }
\ 02AE FDE1 POP IY
\ 02B0 C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
\ 02B3 ?0026:
\ 02B3 CD0000 CALL LWRD ?SS_MOD_L02
\ 02B6 D5 PUSH DE
\ 02B7 FDE1 POP IY
\ 02B9 210000 LD HL,menu_pos_list
\ 02BC 19 ADD HL,DE
\ 02BD 7E LD A,(HL)
\ 02BE C9 RET
\ 02BF ?0028:
\ 02BF 0E00 LD C,0
\ 02C1 ?0029:
\ 02C1 11C600 LD DE,198
\ 02C4 ?0027:
\ 02C4 3E00 LD A,BYTE3 ResShowPic
\ 02C6 210000 LD HL,LWRD ResShowPic
\ 02C9 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 02CC ?0030:
\ 02CC 210000 LD HL,menu_pos_list
\ 02CF FDE5 PUSH IY
\ 02D1 C1 POP BC
\ 02D2 09 ADD HL,BC
\ 02D3 4E LD C,(HL)
\ 02D4 1E0C LD E,12
\ 02D6 CD0000 CALL LWRD SetTextPos
\ 02D9 FDE5 PUSH IY
\ 02DB C1 POP BC
\ 02DC 210400 LD HL,4
\ 02DF C9 RET
\ 02E0 ?0031:
\ 02E0 EB EX DE,HL
\ 02E1 3E00 LD A,BYTE3 read_idm_data_filelist
\ 02E3 21D300 LD HL,LWRD read_idm_data_filelist
\ 02E6 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 02E9 ?0032:
\ 02E9 010000 LD BC,0
\ 02EC 59 LD E,C
\ 02ED 50 LD D,B
\ 02EE CD0000 CALL LWRD SetPenColor
\ 02F1 010000 LD BC,0
\ 02F4 11FFFF LD DE,65535
\ 02F7 C9 RET
\ 02F8 show_delete_menu:
151
152 ////////////////////////
153
154 ////////////显示删除确认菜单
155 int show_delete_menu(BYTE string_id)
156 {
\ 02F8 CD0000 CALL LWRD ?ENT_AUTO_DIRECT_L09
\ 02FB F6FF DEFW -10
\ 02FD FDE5 PUSH IY
157 int result;
158 pop_up_list_t list;
159 list.strid = delete_text;
\ 02FF DD36F600 LD (IX-10),LOW(delete_text)
\ 0303 DD36F700 LD (IX-9),HIGH(delete_text)
160 list.total = 2;
\ 0307 DD36F802 LD (IX-8),2
\ 030B DD36F900 LD (IX-7),0
161 list.active = 0;
\ 030F AF XOR A
\ 0310 DD77FA LD (IX-6),A
\ 0313 DD77FB LD (IX-5),A
162 list.string_id =string_id;
\ 0316 DD4602 LD B,(IX+2)
\ 0319 DD70FE LD (IX-2),B
163 list.headid = CDELFILE;
\ 031C DD36FC3E LD (IX-4),62
\ 0320 DD36FD02 LD (IX-3),2
164 result= ui_popup_list(&list, NULL);
\ 0324 4F LD C,A
\ 0325 C5 PUSH BC
\ 0326 69 LD L,C
\ 0327 61 LD H,C
\ 0328 E5 PUSH HL
\ 0329 2E06 LD L,6
\ 032B 39 ADD HL,SP
\ 032C EB EX DE,HL
\ 032D 3E00 LD A,BYTE3 ui_popup_list
\ 032F 210000 LD HL,LWRD ui_popup_list
\ 0332 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0335 F1 POP AF
\ 0336 F1 POP AF
\ 0337 E5 PUSH HL
\ 0338 FDE1 POP IY
165 if((result==0)&&(list.active==0))
\ 033A 7D LD A,L
\ 033B B4 OR H
\ 033C 200D JR NZ,?0020
\ 033E DD7EFA LD A,(IX-6)
\ 0341 DD66FB LD H,(IX-5)
\ 0344 B4 OR H
\ 0345 2004 JR NZ,?0020
\ 0347 ?0022:
\ 0347 ?0021:
\ 0347 ?0019:
166 {
167 result=RESULT_IGNORE;
\ 0347 FD213400 LD IY,52
\ 034B ?0020:
168 }
169 return result;
\ 034B FDE5 PUSH IY
\ 034D E1 POP HL
170 }
\ 034E FDE1 POP IY
\ 0350 C30000 JP LWRD ?BANK_LEAVE_DIRECT_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: 851
Constant size: 4
Static variable size: Data(300) Iram(0)
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?