📄 ui_directory2_scroll.lst
字号:
\ 0216 3A0000 LD A,(temp_record)
\ 0219 3D DEC A
\ 021A 2016 JR NZ,?0016
\ 021C ?0015:
183 ResShowPic(MFILE,13,menu_pos_list[tmp]-1);
\ 021C 210000 LD HL,menu_pos_list
\ 021F DD4EF8 LD C,(IX-8)
\ 0222 DD46F9 LD B,(IX-7)
\ 0225 09 ADD HL,BC
\ 0226 7E LD A,(HL)
\ 0227 C6FF ADD A,255
\ 0229 4F LD C,A
\ 022A C5 PUSH BC
\ 022B 0E0D LD C,13
\ 022D 11C600 LD DE,198
\ 0230 181A JR ?0089
\ 0232 ?0016:
184 else if(temp_record.filetype==TYPE_DIR)
\ 0232 3A0000 LD A,(temp_record)
\ 0235 B7 OR A
\ 0236 2018 JR NZ,?0019
\ 0238 ?0018:
185 {
186 ResShowPic(MDIR,10,menu_pos_list[tmp]-4);
\ 0238 210000 LD HL,menu_pos_list
\ 023B DD4EF8 LD C,(IX-8)
\ 023E DD46F9 LD B,(IX-7)
\ 0241 09 ADD HL,BC
\ 0242 7E LD A,(HL)
\ 0243 C6FC ADD A,252
\ 0245 4F LD C,A
\ 0246 C5 PUSH BC
\ 0247 0E0A LD C,10
\ 0249 11AF00 LD DE,175
\ 024C ?0089:
\ 024C CD5E04 CALL LWRD ?0108
\ 024F F1 POP AF
\ 0250 ?0019:
\ 0250 ?0017:
187 }
188 ResShowPic(DHTHK,194, menu_pos_list[tmp]+5);
\ 0250 210000 LD HL,menu_pos_list
\ 0253 DD4EF8 LD C,(IX-8)
\ 0256 DD46F9 LD B,(IX-7)
\ 0259 09 ADD HL,BC
\ 025A 7E LD A,(HL)
\ 025B C605 ADD A,5
\ 025D 5F LD E,A
\ 025E D5 PUSH DE
\ 025F 0EC2 LD C,194
\ 0261 112700 LD DE,39
\ 0264 CD5E04 CALL LWRD ?0108
\ 0267 F1 POP AF
189 region_scroll.y = menu_pos_list[tmp]-2;
\ 0268 210000 LD HL,menu_pos_list
\ 026B DD4EF8 LD C,(IX-8)
\ 026E DD46F9 LD B,(IX-7)
\ 0271 09 ADD HL,BC
\ 0272 7E LD A,(HL)
\ 0273 C6FE ADD A,254
\ 0275 320100 LD (region_scroll+1),A
190 memcpy(scroll_buf,temp_record.longname,31); //取要滚动的数据到buf 截取31 bytes
\ 0278 011F00 LD BC,31
\ 027B 110000 LD DE,scroll_buf
\ 027E 211900 LD HL,temp_record+25
\ 0281 EDB0 LDIR
191 scroll_buf[31]=0;
\ 0283 AF XOR A
\ 0284 321F00 LD (scroll_buf+31),A
192 ScrollString(scroll_buf,TRUE,string_id,®ion_scroll);
\ 0287 210000 LD HL,region_scroll
\ 028A E5 PUSH HL
\ 028B DD6E0C LD L,(IX+12)
\ 028E E5 PUSH HL
\ 028F CD4C04 CALL LWRD ?0107
\ 0292 E1 POP HL
\ 0293 E1 POP HL
193 if(strlen(scroll_buf)<20)
\ 0294 210000 LD HL,scroll_buf
\ 0297 CD0000 CALL LWRD ?STRLEN_L11
\ 029A 011400 LD BC,20
\ 029D A7 AND A
\ 029E ED42 SBC HL,BC
\ 02A0 D23E04 JP NC,?0044
\ 02A3 ?0020:
194 ScrollFlag=0;
\ 02A3 C33B04 JP LWRD ?0097
195 else
\ 02A6 ?0021:
196 ScrollFlag=1;
\ 02A6 ?0022:
197 }
198
199 else //if(Old_active==active) //新旧活动项相同表示是新的一屏数据,需要全部刷新
\ 02A6 ?0009:
200 {
201 SetTextOutMode(1);
\ 02A6 1E01 LD E,1
\ 02A8 CD0000 CALL LWRD SetTextOutMode
202 ResShowPic(MENUTWO,0,0);
\ 02AB 0E00 LD C,0
\ 02AD C5 PUSH BC
\ 02AE 11C300 LD DE,195
\ 02B1 CD5E04 CALL LWRD ?0108
\ 02B4 F1 POP AF
203 ResShowPic(DHT,194,8);
\ 02B5 0E08 LD C,8
\ 02B7 C5 PUSH BC
\ 02B8 CD5904 CALL LWRD ?0109
\ 02BB F1 POP AF
204 if(!Disk) //主盘目录
\ 02BC AF XOR A
\ 02BD DDB60E OR (IX+14)
\ 02C0 0E94 LD C,148
\ 02C2 C5 PUSH BC
\ 02C3 0E16 LD C,22
\ 02C5 C5 PUSH BC
\ 02C6 DD4E0C LD C,(IX+12)
\ 02C9 2005 JR NZ,?0025
\ 02CB ?0024:
205 ResShowMultiString( VSTOPM1,string_id, list_str_x_def, list_str_y_def);
\ 02CB 117902 LD DE,633
\ 02CE 1803 JR ?0091
206 else
\ 02D0 ?0025:
207 ResShowMultiString( VSTOPM2,string_id, list_str_x_def, list_str_y_def);
\ 02D0 117A02 LD DE,634
\ 02D3 ?0091:
\ 02D3 3E00 LD A,BYTE3 ResShowMultiString
\ 02D5 210000 LD HL,LWRD ResShowMultiString
\ 02D8 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 02DB F1 POP AF
\ 02DC F1 POP AF
\ 02DD ?0026:
208 for(i=top;i<=bottom;i++)
\ 02DD DD6EFC LD L,(IX-4)
\ 02E0 DD66FD LD H,(IX-3)
\ 02E3 E5 PUSH HL
\ 02E4 FDE1 POP IY
\ 02E6 ?0028:
\ 02E6 FDE5 PUSH IY
\ 02E8 C1 POP BC
\ 02E9 DD6EFE LD L,(IX-2)
\ 02EC DD66FF LD H,(IX-1)
\ 02EF A7 AND A
\ 02F0 ED42 SBC HL,BC
\ 02F2 DA2004 JP C,?0027
\ 02F5 ?0029:
209 {
210 output8(0x4e,input8(0x4e) | 0x08);
\ 02F5 DB4E IN A,(78)
\ 02F7 CBDF SET 3,A
\ 02F9 D34E OUT (78),A
211 TransOneRecord(&temp_record,&OnePageRecord[i-top]); //将idm中记录数据读取到temp_record中
\ 02FB DD4EFC LD C,(IX-4)
\ 02FE DD46FD LD B,(IX-3)
\ 0301 FDE5 PUSH IY
\ 0303 E1 POP HL
\ 0304 ED42 SBC HL,BC
\ 0306 4D LD C,L
\ 0307 44 LD B,H
\ 0308 114B00 LD DE,75
\ 030B CD6604 CALL LWRD ?0110
212 if(i==active)
\ 030E DD6E0A LD L,(IX+10)
\ 0311 DD660B LD H,(IX+11)
\ 0314 FDE5 PUSH IY
\ 0316 C1 POP BC
\ 0317 A7 AND A
\ 0318 ED42 SBC HL,BC
\ 031A C2C403 JP NZ,?0032
\ 031D ?0031:
213 {
214 ResShowPic(FILEBCK, explorer_str_x_def-1, menu_pos_list[i-top]-4);
\ 031D DD4EFC LD C,(IX-4)
\ 0320 DD46FD LD B,(IX-3)
\ 0323 FDE5 PUSH IY
\ 0325 E1 POP HL
\ 0326 A7 AND A
\ 0327 ED42 SBC HL,BC
\ 0329 110000 LD DE,menu_pos_list
\ 032C 19 ADD HL,DE
\ 032D 7E LD A,(HL)
\ 032E C6FC ADD A,252
\ 0330 5F LD E,A
\ 0331 D5 PUSH DE
\ 0332 0E1F LD C,31
\ 0334 112C00 LD DE,44
\ 0337 CD5E04 CALL LWRD ?0108
\ 033A F1 POP AF
215 ResShowPic(DHTHK,194, menu_pos_list[i-top]+5);
\ 033B DD4EFC LD C,(IX-4)
\ 033E DD46FD LD B,(IX-3)
\ 0341 FDE5 PUSH IY
\ 0343 E1 POP HL
\ 0344 A7 AND A
\ 0345 ED42 SBC HL,BC
\ 0347 110000 LD DE,menu_pos_list
\ 034A 19 ADD HL,DE
\ 034B 7E LD A,(HL)
\ 034C C605 ADD A,5
\ 034E 5F LD E,A
\ 034F D5 PUSH DE
\ 0350 0EC2 LD C,194
\ 0352 112700 LD DE,39
\ 0355 CD5E04 CALL LWRD ?0108
\ 0358 F1 POP AF
216 region_scroll.y= menu_pos_list[i-top]-2;
\ 0359 DD4EFC LD C,(IX-4)
\ 035C DD46FD LD B,(IX-3)
\ 035F FDE5 PUSH IY
\ 0361 E1 POP HL
\ 0362 A7 AND A
\ 0363 ED42 SBC HL,BC
\ 0365 010000 LD BC,menu_pos_list
\ 0368 09 ADD HL,BC
\ 0369 7E LD A,(HL)
\ 036A C6FE ADD A,254
\ 036C 320100 LD (region_scroll+1),A
217 memcpy(scroll_buf,temp_record.longname,31);
\ 036F 011F00 LD BC,31
\ 0372 110000 LD DE,scroll_buf
\ 0375 211900 LD HL,temp_record+25
\ 0378 EDB0 LDIR
218 scroll_buf[31] = 0;
\ 037A AF XOR A
\ 037B 321F00 LD (scroll_buf+31),A
219 if(temp_record.filetype==TYPE_FILE)
\ 037E 3A0000 LD A,(temp_record)
\ 0381 3D DEC A
\ 0382 201B JR NZ,?0034
\ 0384 ?0033:
220 ResShowPic(MFILE,13,menu_pos_list[i-top]-1);
\ 0384 DD4EFC LD C,(IX-4)
\ 0387 DD46FD LD B,(IX-3)
\ 038A FDE5 PUSH IY
\ 038C E1 POP HL
\ 038D ED42 SBC HL,BC
\ 038F 010000 LD BC,menu_pos_list
\ 0392 09 ADD HL,BC
\ 0393 7E LD A,(HL)
\ 0394 C6FF ADD A,255
\ 0396 4F LD C,A
\ 0397 C5 PUSH BC
\ 0398 0E0D LD C,13
\ 039A 11C600 LD DE,198
\ 039D 181F JR ?0092
\ 039F ?0034:
221 else if(temp_record.filetype==TYPE_DIR)
\ 039F 3A0000 LD A,(temp_record)
\ 03A2 B7 OR A
\ 03A3 2076 JR NZ,?0030
\ 03A5 ?0036:
222 ResShowPic(MDIR,10,menu_pos_list[i-top]-4);
\ 03A5 DD4EFC LD C,(IX-4)
\ 03A8 DD46FD LD B,(IX-3)
\ 03AB FDE5 PUSH IY
\ 03AD E1 POP HL
\ 03AE ED42 SBC HL,BC
\ 03B0 010000 LD BC,menu_pos_list
\ 03B3 09 ADD HL,BC
\ 03B4 7E LD A,(HL)
\ 03B5 C6FC ADD A,252
\ 03B7 4F LD C,A
\ 03B8 C5 PUSH BC
\ 03B9 0E0A LD C,10
\ 03BB 11AF00 LD DE,175
\ 03BE ?0092:
\ 03BE CD5E04 CALL LWRD ?0108
\ 03C1 F1 POP AF
\ 03C2 ?0037:
\ 03C2 ?0035:
223 continue;
\ 03C2 1857 JR ?0030
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -