ui_playlist2.lst
来自「炬力方案176*132软件源码,适用于AK1025」· LST 代码 · 共 728 行 · 第 1/3 页
LST
728 行
\ 0220 DD66FF LD H,(IX-1)
\ 0223 ED42 SBC HL,BC
\ 0225 4D LD C,L
\ 0226 44 LD B,H
\ 0227 210100 LD HL,menu_pos_list+1
\ 022A 09 ADD HL,BC
\ 022B 7E LD A,(HL)
\ 022C C6FF ADD A,255
\ 022E 4F LD C,A
\ 022F C5 PUSH BC
\ 0230 CD4C03 CALL LWRD ?0047
\ 0233 F1 POP AF
149 if(i==active)
\ 0234 DD4E0C LD C,(IX+12)
\ 0237 0600 LD B,0
\ 0239 DD6EFE LD L,(IX-2)
\ 023C DD66FF LD H,(IX-1)
\ 023F A7 AND A
\ 0240 ED42 SBC HL,BC
\ 0242 2047 JR NZ,?0028
\ 0244 ?0027:
150 {
151 ResShowPic(FILEBCK, explorer_str_x_def-2, menu_pos_list[i-top+1]-4);
\ 0244 DD4E02 LD C,(IX+2)
\ 0247 DD6EFE LD L,(IX-2)
\ 024A DD66FF LD H,(IX-1)
\ 024D A7 AND A
\ 024E ED42 SBC HL,BC
\ 0250 4D LD C,L
\ 0251 44 LD B,H
\ 0252 210100 LD HL,menu_pos_list+1
\ 0255 09 ADD HL,BC
\ 0256 7E LD A,(HL)
\ 0257 C6FC ADD A,252
\ 0259 4F LD C,A
\ 025A C5 PUSH BC
\ 025B 0E1E LD C,30
\ 025D 112C00 LD DE,44
\ 0260 CD5103 CALL LWRD ?0046
\ 0263 F1 POP AF
152 ResShowPic(DHTHK,194, menu_pos_list[i-top+1]+6);
\ 0264 DD4E02 LD C,(IX+2)
\ 0267 0600 LD B,0
\ 0269 DD6EFE LD L,(IX-2)
\ 026C DD66FF LD H,(IX-1)
\ 026F A7 AND A
\ 0270 ED42 SBC HL,BC
\ 0272 4D LD C,L
\ 0273 44 LD B,H
\ 0274 210100 LD HL,menu_pos_list+1
\ 0277 09 ADD HL,BC
\ 0278 7E LD A,(HL)
\ 0279 C606 ADD A,6
\ 027B 4F LD C,A
\ 027C C5 PUSH BC
\ 027D 0EC2 LD C,194
\ 027F 112700 LD DE,39
\ 0282 CD5103 CALL LWRD ?0046
\ 0285 F1 POP AF
153 SetPenColor(Color_WHITE_def);
\ 0286 CD9903 CALL LWRD ?0053
154 continue;
\ 0289 183F JR ?0026
\ 028B ?0028:
155 }
156 else
157 SetPenColor(Color_WHITE_def);
\ 028B 48 LD C,B
\ 028C CD9C03 CALL LWRD ?0054
158 output8(0x4e,input8(0x4e) | 0x08);
\ 028F DB4E IN A,(78)
\ 0291 CBDF SET 3,A
\ 0293 D34E OUT (78),A
159 read_idm_data_playlist(Longnamebuf,i-top);
\ 0295 DD4E02 LD C,(IX+2)
\ 0298 0600 LD B,0
\ 029A DD6EFE LD L,(IX-2)
\ 029D DD66FF LD H,(IX-1)
\ 02A0 A7 AND A
\ 02A1 ED42 SBC HL,BC
\ 02A3 4D LD C,L
\ 02A4 44 LD B,H
\ 02A5 DD5E0E LD E,(IX+14)
\ 02A8 DD560F LD D,(IX+15)
\ 02AB 3E00 LD A,BYTE3 read_idm_data_playlist
\ 02AD 21C700 LD HL,LWRD read_idm_data_playlist
\ 02B0 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
160 SetTextPos(explorer_str_x_def, menu_pos_list[i-top+1]-2);
\ 02B3 DD4E02 LD C,(IX+2)
\ 02B6 0600 LD B,0
\ 02B8 DD6EFE LD L,(IX-2)
\ 02BB DD66FF LD H,(IX-1)
\ 02BE A7 AND A
\ 02BF ED42 SBC HL,BC
\ 02C1 010100 LD BC,menu_pos_list+1
\ 02C4 CD5903 CALL LWRD ?0048
161 PutS(Longnamebuf,-1);
\ 02C7 CD7E03 CALL LWRD ?0051
\ 02CA ?0026:
\ 02CA DD34FE INC (IX-2)
\ 02CD 2003 JR NZ,?0036
\ 02CF DD34FF INC (IX-1)
\ 02D2 ?0036:
\ 02D2 C30802 JP LWRD ?0024
\ 02D5 ?0023:
162 }
163 read_idm_data_playlist(Longnamebuf,active-top);
\ 02D5 DD6E0C LD L,(IX+12)
\ 02D8 A7 AND A
\ 02D9 ED42 SBC HL,BC
\ 02DB 4D LD C,L
\ 02DC 44 LD B,H
\ 02DD DD5E0E LD E,(IX+14)
\ 02E0 DD560F LD D,(IX+15)
\ 02E3 3E00 LD A,BYTE3 read_idm_data_playlist
\ 02E5 21C700 LD HL,LWRD read_idm_data_playlist
\ 02E8 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
164 region_scroll.y= menu_pos_list[active-top+1]-2;
\ 02EB DD4E02 LD C,(IX+2)
\ 02EE 0600 LD B,0
\ 02F0 60 LD H,B
\ 02F1 DD6E0C LD L,(IX+12)
\ 02F4 A7 AND A
\ 02F5 ED42 SBC HL,BC
\ 02F7 010100 LD BC,menu_pos_list+1
165 SetBackgdColor(Color_BULE_Scroll_def);
\ 02FA CD1903 CALL LWRD ?0042
166 Scroll_PlayList(Longnamebuf, TRUE,string_id,®ion_scroll);
\ 02FD E5 PUSH HL
\ 02FE DD6E10 LD L,(IX+16)
\ 0301 E5 PUSH HL
\ 0302 CD2D03 CALL LWRD ?0044
\ 0305 E1 POP HL
\ 0306 E1 POP HL
167 if(strlen(Longnamebuf)<20)
\ 0307 CD8903 CALL LWRD ?0052
\ 030A 3003 JR NC,?0030
\ 030C ?0029:
168 ScrollFlag=0;
\ 030C AF XOR A
\ 030D 1802 JR ?0038
169 else
\ 030F ?0030:
170 ScrollFlag=1;
\ 030F 3E01 LD A,1
\ 0311 ?0038:
\ 0311 320000 LD (ScrollFlag),A
\ 0314 ?0031:
\ 0314 ?0022:
\ 0314 ?0016:
171 } //else
172 }
173 // SetAsciiFont(FONT_TYPE_SMALL);
174 }
\ 0314 FDE1 POP IY
\ 0316 C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
\ 0319 ?0042:
\ 0319 09 ADD HL,BC
\ 031A 7E LD A,(HL)
\ 031B C6FE ADD A,254
\ 031D 320100 LD (region_scroll+1),A
\ 0320 010000 LD BC,0
\ 0323 ?0041:
\ 0323 111F00 LD DE,31
\ 0326 CD0000 CALL LWRD SetBackgdColor
\ 0329 210000 LD HL,region_scroll
\ 032C C9 RET
\ 032D ?0044:
\ 032D 0E01 LD C,1
\ 032F ?0043:
\ 032F DD5E0E LD E,(IX+14)
\ 0332 DD560F LD D,(IX+15)
\ 0335 3E00 LD A,BYTE3 Scroll_PlayList
\ 0337 210000 LD HL,LWRD Scroll_PlayList
\ 033A C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 033D ?0045:
\ 033D CD0000 CALL LWRD ?UC_MOD_L01
\ 0340 4F LD C,A
\ 0341 0600 LD B,0
\ 0343 C5 PUSH BC
\ 0344 FDE1 POP IY
\ 0346 210100 LD HL,menu_pos_list+1
\ 0349 09 ADD HL,BC
\ 034A 7E LD A,(HL)
\ 034B C9 RET
\ 034C ?0047:
\ 034C 0E0D LD C,13
\ 034E 11C600 LD DE,198
\ 0351 ?0046:
\ 0351 3E00 LD A,BYTE3 ResShowPic
\ 0353 210000 LD HL,LWRD ResShowPic
\ 0356 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 0359 ?0048:
\ 0359 09 ADD HL,BC
\ 035A 7E LD A,(HL)
\ 035B C6FE ADD A,254
\ 035D 4F LD C,A
\ 035E ?0049:
\ 035E 1E20 LD E,32
\ 0360 C30000 JP LWRD SetTextPos
\ 0363 ?0050:
\ 0363 FDE5 PUSH IY
\ 0365 C1 POP BC
\ 0366 DD5E0E LD E,(IX+14)
\ 0369 DD560F LD D,(IX+15)
\ 036C 3E00 LD A,BYTE3 read_idm_data_playlist
\ 036E 21C700 LD HL,LWRD read_idm_data_playlist
\ 0371 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0374 010000 LD BC,0
\ 0377 11FFFF LD DE,65535
\ 037A CD0000 CALL LWRD SetPenColor
\ 037D C9 RET
\ 037E ?0051:
\ 037E 0EFF LD C,255
\ 0380 DD5E0E LD E,(IX+14)
\ 0383 DD560F LD D,(IX+15)
\ 0386 C30000 JP LWRD PutS
\ 0389 ?0052:
\ 0389 DD6E0E LD L,(IX+14)
\ 038C DD660F LD H,(IX+15)
\ 038F CD0000 CALL LWRD ?STRLEN_L11
\ 0392 011400 LD BC,20
\ 0395 A7 AND A
\ 0396 ED42 SBC HL,BC
\ 0398 C9 RET
\ 0399 ?0053:
\ 0399 010000 LD BC,0
\ 039C ?0054:
\ 039C 11FFFF LD DE,65535
\ 039F C30000 JP LWRD SetPenColor
\ 0000 RSEG IDM_COM_FSL_D
\ 0000 com_fname:
\ 0A00 DEFS 2560
\ 0A00 END
Errors: none
Warnings: none
Code size: 930
Constant size: 0
Static variable size: Data(2560) Iram(0)
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?