📄 ui_director2.lst
字号:
\ 01F3 47 LD B,A
\ 01F4 210000 LD HL,file_pos
\ 01F7 09 ADD HL,BC
\ 01F8 7E LD A,(HL)
\ 01F9 C6FC ADD A,252
\ 01FB 4F LD C,A
\ 01FC C5 PUSH BC
\ 01FD 0E0A LD C,10
\ 01FF 115B00 LD DE,91
\ 0202 ?0076:
\ 0202 CD6703 CALL LWRD ?0090
\ 0205 F1 POP AF
\ 0206 ?0016:
\ 0206 ?0014:
186 }
187 }
188 SetPenColor(Color_WHITE_def);
\ 0206 CD3403 CALL LWRD ?0088
189 SetTextPos(explorer_str_x_def, file_pos[tmp]-2);
\ 0209 DD4EF6 LD C,(IX-10)
\ 020C 0600 LD B,0
\ 020E 210000 LD HL,file_pos
\ 0211 CD6F03 CALL LWRD ?0092
190 PutS(temp_record.longname,-1);
191 }
192
193 else //if(Old_active==active) //新旧活动项相同表示是新的一屏数据,需要全部刷新
\ 0214 C31403 JP LWRD ?0021
\ 0217 ?0006:
194 {
195 //ClearScreen(NULL);
196 SetTextOutMode(1);
\ 0217 1E01 LD E,1
\ 0219 CD0000 CALL LWRD SetTextOutMode
197 ResShowPic(MENUTWO,0,0);
\ 021C 0E00 LD C,0
\ 021E C5 PUSH BC
\ 021F 116D00 LD DE,109
\ 0222 CD6703 CALL LWRD ?0090
\ 0225 F1 POP AF
198 if(!Disk) //主盘目录
\ 0226 AF XOR A
\ 0227 DDB610 OR (IX+16)
\ 022A 0E94 LD C,148
\ 022C C5 PUSH BC
\ 022D 0E16 LD C,22
\ 022F C5 PUSH BC
\ 0230 DD4E0E LD C,(IX+14)
\ 0233 2005 JR NZ,?0019
\ 0235 ?0018:
199 ResShowMultiString( VSTOPM1,string_id, list_str_x_def, list_str_y_def);
\ 0235 112C01 LD DE,300
\ 0238 1803 JR ?0077
200 else
\ 023A ?0019:
201 ResShowMultiString( VSTOPM2,string_id, list_str_x_def, list_str_y_def);
\ 023A 112D01 LD DE,301
\ 023D ?0077:
\ 023D 3E00 LD A,BYTE3 ResShowMultiString
\ 023F 210000 LD HL,LWRD ResShowMultiString
\ 0242 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0245 F1 POP AF
\ 0246 F1 POP AF
\ 0247 ?0020:
202
203 for(i=top;i<=bottom;i++)
\ 0247 DD4602 LD B,(IX+2)
\ 024A DD70F7 LD (IX-9),B
\ 024D ?0022:
\ 024D DD7E04 LD A,(IX+4)
\ 0250 DDBEF7 CP (IX-9)
\ 0253 DA1403 JP C,?0021
\ 0256 ?0023:
204 {
205 if(i==active)
\ 0256 DD7EF7 LD A,(IX-9)
\ 0259 DDBE0C CP (IX+12)
\ 025C 2035 JR NZ,?0026
\ 025E ?0025:
206 {
207 ResShowPic(FILEBCK, explorer_str_x_def-1, file_pos[i-top]-4);
\ 025E DD4E02 LD C,(IX+2)
\ 0261 0600 LD B,0
\ 0263 60 LD H,B
\ 0264 6F LD L,A
\ 0265 A7 AND A
\ 0266 ED42 SBC HL,BC
\ 0268 010000 LD BC,file_pos
\ 026B 09 ADD HL,BC
\ 026C 7E LD A,(HL)
\ 026D C6FC ADD A,252
\ 026F 4F LD C,A
\ 0270 C5 PUSH BC
\ 0271 CD6203 CALL LWRD ?0091
\ 0274 F1 POP AF
208 //ResShowPic(DHTHK,122, file_pos[i-top]-2);
209 ResShowPic(DHTHK,194, file_pos[i-top]+5);
\ 0275 DD4E02 LD C,(IX+2)
\ 0278 0600 LD B,0
\ 027A 60 LD H,B
\ 027B DD6EF7 LD L,(IX-9)
\ 027E A7 AND A
\ 027F ED42 SBC HL,BC
\ 0281 010000 LD BC,file_pos
\ 0284 09 ADD HL,BC
\ 0285 7E LD A,(HL)
\ 0286 C605 ADD A,5
\ 0288 4F LD C,A
\ 0289 C5 PUSH BC
\ 028A 0EC2 LD C,194
\ 028C 112E00 LD DE,46
\ 028F CD6703 CALL LWRD ?0090
\ 0292 F1 POP AF
210 SetPenColor(Color_WHITE_def);
211 }
212
213 else
\ 0293 ?0026:
214 SetPenColor(Color_WHITE_def);
\ 0293 CD3403 CALL LWRD ?0088
\ 0296 ?0027:
215
216 output8(0x4e,input8(0x4e) | 0x08);
\ 0296 DB4E IN A,(78)
\ 0298 CBDF SET 3,A
\ 029A D34E OUT (78),A
217 TransOneRecord(&temp_record,&OnePageRecord[i-top]); //将idm中记录数据读取到temp_record中
\ 029C DD4E02 LD C,(IX+2)
\ 029F 0600 LD B,0
\ 02A1 60 LD H,B
\ 02A2 DD6EF7 LD L,(IX-9)
\ 02A5 CD8203 CALL LWRD ?0093
\ 02A8 210000 LD HL,OnePageRecord
\ 02AB 19 ADD HL,DE
\ 02AC 4D LD C,L
\ 02AD 44 LD B,H
\ 02AE 110000 LD DE,temp_record
\ 02B1 3E00 LD A,BYTE3 TransOneRecord
\ 02B3 218D00 LD HL,LWRD TransOneRecord
\ 02B6 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
218 if(temp_record.filetype==TYPE_FILE)
\ 02B9 3A0000 LD A,(temp_record)
\ 02BC 3D DEC A
\ 02BD 201B JR NZ,?0029
\ 02BF ?0028:
219
220 ResShowPic(MFILE,13,file_pos[i-top]-1);
\ 02BF DD4E02 LD C,(IX+2)
\ 02C2 47 LD B,A
\ 02C3 60 LD H,B
\ 02C4 DD6EF7 LD L,(IX-9)
\ 02C7 A7 AND A
\ 02C8 ED42 SBC HL,BC
\ 02CA 010000 LD BC,file_pos
\ 02CD 09 ADD HL,BC
\ 02CE 7E LD A,(HL)
\ 02CF C6FF ADD A,255
\ 02D1 4F LD C,A
\ 02D2 C5 PUSH BC
\ 02D3 0E0D LD C,13
\ 02D5 117900 LD DE,121
\ 02D8 181E JR ?0079
\ 02DA ?0029:
221
222 else if(temp_record.filetype==TYPE_DIR)
\ 02DA 3A0000 LD A,(temp_record)
\ 02DD B7 OR A
\ 02DE 201C JR NZ,?0032
\ 02E0 ?0031:
223 {
224 {
225 ResShowPic(MDIR,10,file_pos[i-top]-4);
\ 02E0 DD4E02 LD C,(IX+2)
\ 02E3 47 LD B,A
\ 02E4 60 LD H,B
\ 02E5 DD6EF7 LD L,(IX-9)
\ 02E8 ED42 SBC HL,BC
\ 02EA 010000 LD BC,file_pos
\ 02ED 09 ADD HL,BC
\ 02EE 7E LD A,(HL)
\ 02EF C6FC ADD A,252
\ 02F1 4F LD C,A
\ 02F2 C5 PUSH BC
\ 02F3 0E0A LD C,10
\ 02F5 115B00 LD DE,91
\ 02F8 ?0079:
\ 02F8 CD6703 CALL LWRD ?0090
\ 02FB F1 POP AF
\ 02FC ?0032:
\ 02FC ?0030:
226 }
227 }
228 SetTextPos(explorer_str_x_def, file_pos[i-top]-2);
\ 02FC DD4E02 LD C,(IX+2)
\ 02FF 0600 LD B,0
\ 0301 60 LD H,B
\ 0302 DD6EF7 LD L,(IX-9)
\ 0305 A7 AND A
\ 0306 ED42 SBC HL,BC
\ 0308 010000 LD BC,file_pos
\ 030B CD6F03 CALL LWRD ?0092
229 PutS(temp_record.longname,-1);
\ 030E DD34F7 INC (IX-9)
230 }
231 }
\ 0311 C34D02 JP LWRD ?0022
\ 0314 ?0021:
\ 0314 ?0017:
232 SetPenColor(oldDC_sav.PenColor);
\ 0314 DD4EFA LD C,(IX-6)
\ 0317 DD46FB LD B,(IX-5)
\ 031A DD5EF8 LD E,(IX-8)
\ 031D DD56F9 LD D,(IX-7)
\ 0320 CD0000 CALL LWRD SetPenColor
233 SetBackgdColor(oldDC_sav.BackgdColor);
\ 0323 210600 LD HL,6
\ 0326 39 ADD HL,SP
\ 0327 5E LD E,(HL)
\ 0328 23 INC HL
\ 0329 56 LD D,(HL)
\ 032A 23 INC HL
\ 032B 4E LD C,(HL)
\ 032C 23 INC HL
\ 032D 46 LD B,(HL)
\ 032E CD0000 CALL LWRD SetBackgdColor
234 }
\ 0331 C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
\ 0334 ?0088:
\ 0334 010000 LD BC,0
\ 0337 11FFFF LD DE,65535
\ 033A C30000 JP LWRD SetPenColor
\ 033D ?0089:
\ 033D CD0000 CALL LWRD ?UC_MOD_L01
\ 0340 DD77F6 LD (IX-10),A
\ 0343 4F LD C,A
\ 0344 0600 LD B,0
\ 0346 114B00 LD DE,75
\ 0349 CD0000 CALL LWRD ?S_MUL_L02
\ 034C 210000 LD HL,OnePageRecord
\ 034F 19 ADD HL,DE
\ 0350 4D LD C,L
\ 0351 44 LD B,H
\ 0352 110000 LD DE,temp_record
\ 0355 3E00 LD A,BYTE3 TransOneRecord
\ 0357 218D00 LD HL,LWRD TransOneRecord
\ 035A CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 035D 3A0000 LD A,(temp_record)
\ 0360 3D DEC A
\ 0361 C9 RET
\ 0362 ?0091:
\ 0362 0E1F LD C,31
\ 0364 113200 LD DE,50
\ 0367 ?0090:
\ 0367 3E00 LD A,BYTE3 ResShowPic
\ 0369 210000 LD HL,LWRD ResShowPic
\ 036C C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 036F ?0092:
\ 036F 09 ADD HL,BC
\ 0370 7E LD A,(HL)
\ 0371 C6FE ADD A,254
\ 0373 4F LD C,A
\ 0374 1E20 LD E,32
\ 0376 CD0000 CALL LWRD SetTextPos
\ 0379 0EFF LD C,255
\ 037B 111900 LD DE,temp_record+25
\ 037E CD0000 CALL LWRD PutS
\ 0381 C9 RET
\ 0382 ?0093:
\ 0382 A7 AND A
\ 0383 ED42 SBC HL,BC
\ 0385 4D LD C,L
\ 0386 44 LD B,H
\ 0387 114B00 LD DE,75
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -