📄 ui_director2.lst
字号:
\ 01F8 115B00 LD DE,91
\ 01FB ?0076:
\ 01FB CD7403 CALL LWRD ?0090
\ 01FE F1 POP AF
\ 01FF ?0016:
\ 01FF ?0014:
186 }
187 }
188 SetPenColor(Color_WHITE_def);
\ 01FF CD4103 CALL LWRD ?0088
189 SetTextPos(explorer_str_x_def, file_pos[tmp]-2);
\ 0202 CD7C03 CALL LWRD ?0092
190 PutS(temp_record.longname,-1);
\ 0205 0EFF LD C,255
\ 0207 111900 LD DE,temp_record+25
\ 020A CD0000 CALL LWRD PutS
191 }
192
193 else //if(Old_active==active) //新旧活动项相同表示是新的一屏数据,需要全部刷新
\ 020D C31D03 JP LWRD ?0021
\ 0210 ?0006:
194 {
195 //ClearScreen(NULL);
196 SetTextOutMode(1);
\ 0210 1E01 LD E,1
\ 0212 CD0000 CALL LWRD SetTextOutMode
197 ResShowPic(MENUTWO,0,0);
\ 0215 0E00 LD C,0
\ 0217 C5 PUSH BC
\ 0218 116D00 LD DE,109
\ 021B CD7403 CALL LWRD ?0090
\ 021E F1 POP AF
198 if(!Disk) //主盘目录
\ 021F AF XOR A
\ 0220 DDB60C OR (IX+12)
\ 0223 0E94 LD C,148
\ 0225 C5 PUSH BC
\ 0226 0E16 LD C,22
\ 0228 C5 PUSH BC
\ 0229 DD4E0A LD C,(IX+10)
\ 022C 2005 JR NZ,?0019
\ 022E ?0018:
199 ResShowMultiString( VSTOPM1,string_id, list_str_x_def, list_str_y_def);
\ 022E 112C01 LD DE,300
\ 0231 1803 JR ?0077
200 else
\ 0233 ?0019:
201 ResShowMultiString( VSTOPM2,string_id, list_str_x_def, list_str_y_def);
\ 0233 112D01 LD DE,301
\ 0236 ?0077:
\ 0236 3E00 LD A,BYTE3 ResShowMultiString
\ 0238 210000 LD HL,LWRD ResShowMultiString
\ 023B CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 023E F1 POP AF
\ 023F F1 POP AF
\ 0240 ?0020:
202
203 for(i=top;i<=bottom;i++)
\ 0240 DD46FC LD B,(IX-4)
\ 0243 DD70F3 LD (IX-13),B
\ 0246 ?0022:
\ 0246 DD7EFE LD A,(IX-2)
\ 0249 DDBEF3 CP (IX-13)
\ 024C DA1D03 JP C,?0021
\ 024F ?0023:
204 {
205 if(i==active)
\ 024F DD7EF3 LD A,(IX-13)
\ 0252 DDBE08 CP (IX+8)
\ 0255 2035 JR NZ,?0026
\ 0257 ?0025:
206 {
207 ResShowPic(FILEBCK, explorer_str_x_def-1, file_pos[i-top]-4);
\ 0257 DD4EFC LD C,(IX-4)
\ 025A 0600 LD B,0
\ 025C 60 LD H,B
\ 025D 6F LD L,A
\ 025E A7 AND A
\ 025F ED42 SBC HL,BC
\ 0261 010000 LD BC,file_pos
\ 0264 09 ADD HL,BC
\ 0265 7E LD A,(HL)
\ 0266 C6FC ADD A,252
\ 0268 4F LD C,A
\ 0269 C5 PUSH BC
\ 026A CD6F03 CALL LWRD ?0091
\ 026D F1 POP AF
208 //ResShowPic(DHTHK,122, file_pos[i-top]-2);
209 ResShowPic(DHTHK,194, file_pos[i-top]+5);
\ 026E DD4EFC LD C,(IX-4)
\ 0271 0600 LD B,0
\ 0273 60 LD H,B
\ 0274 DD6EF3 LD L,(IX-13)
\ 0277 A7 AND A
\ 0278 ED42 SBC HL,BC
\ 027A 010000 LD BC,file_pos
\ 027D 09 ADD HL,BC
\ 027E 7E LD A,(HL)
\ 027F C605 ADD A,5
\ 0281 4F LD C,A
\ 0282 C5 PUSH BC
\ 0283 0EC2 LD C,194
\ 0285 112E00 LD DE,46
\ 0288 CD7403 CALL LWRD ?0090
\ 028B F1 POP AF
210 SetPenColor(Color_WHITE_def);
211 }
212
213 else
\ 028C ?0026:
214 SetPenColor(Color_WHITE_def);
\ 028C CD4103 CALL LWRD ?0088
\ 028F ?0027:
215
216 output8(0x4e,input8(0x4e) | 0x08);
\ 028F DB4E IN A,(78)
\ 0291 CBDF SET 3,A
\ 0293 D34E OUT (78),A
217 TransOneRecord(&temp_record,&OnePageRecord[i-top]); //将idm中记录数据读取到temp_record中
\ 0295 DD4EFC LD C,(IX-4)
\ 0298 0600 LD B,0
\ 029A 60 LD H,B
\ 029B DD6EF3 LD L,(IX-13)
\ 029E A7 AND A
\ 029F ED42 SBC HL,BC
\ 02A1 4D LD C,L
\ 02A2 44 LD B,H
\ 02A3 114B00 LD DE,75
\ 02A6 CD0000 CALL LWRD ?S_MUL_L02
\ 02A9 210000 LD HL,OnePageRecord
\ 02AC 19 ADD HL,DE
\ 02AD 4D LD C,L
\ 02AE 44 LD B,H
\ 02AF 110000 LD DE,temp_record
\ 02B2 3E00 LD A,BYTE3 TransOneRecord
\ 02B4 218D00 LD HL,LWRD TransOneRecord
\ 02B7 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
218 if(temp_record.filetype==TYPE_FILE)
\ 02BA 3A0000 LD A,(temp_record)
\ 02BD 3D DEC A
\ 02BE 201B JR NZ,?0029
\ 02C0 ?0028:
219
220 ResShowPic(MFILE,13,file_pos[i-top]-1);
\ 02C0 DD4EFC LD C,(IX-4)
\ 02C3 47 LD B,A
\ 02C4 60 LD H,B
\ 02C5 DD6EF3 LD L,(IX-13)
\ 02C8 A7 AND A
\ 02C9 ED42 SBC HL,BC
\ 02CB 010000 LD BC,file_pos
\ 02CE 09 ADD HL,BC
\ 02CF 7E LD A,(HL)
\ 02D0 C6FF ADD A,255
\ 02D2 4F LD C,A
\ 02D3 C5 PUSH BC
\ 02D4 0E0D LD C,13
\ 02D6 117900 LD DE,121
\ 02D9 181E JR ?0079
\ 02DB ?0029:
221
222 else if(temp_record.filetype==TYPE_DIR)
\ 02DB 3A0000 LD A,(temp_record)
\ 02DE B7 OR A
\ 02DF 201C JR NZ,?0032
\ 02E1 ?0031:
223 {
224 {
225 ResShowPic(MDIR,10,file_pos[i-top]-4);
\ 02E1 DD4EFC LD C,(IX-4)
\ 02E4 47 LD B,A
\ 02E5 60 LD H,B
\ 02E6 DD6EF3 LD L,(IX-13)
\ 02E9 ED42 SBC HL,BC
\ 02EB 010000 LD BC,file_pos
\ 02EE 09 ADD HL,BC
\ 02EF 7E LD A,(HL)
\ 02F0 C6FC ADD A,252
\ 02F2 4F LD C,A
\ 02F3 C5 PUSH BC
\ 02F4 0E0A LD C,10
\ 02F6 115B00 LD DE,91
\ 02F9 ?0079:
\ 02F9 CD7403 CALL LWRD ?0090
\ 02FC F1 POP AF
\ 02FD ?0032:
\ 02FD ?0030:
226 }
227 }
228 SetTextPos(explorer_str_x_def, file_pos[i-top]-2);
\ 02FD DD4EFC LD C,(IX-4)
\ 0300 0600 LD B,0
\ 0302 60 LD H,B
\ 0303 DD6EF3 LD L,(IX-13)
\ 0306 A7 AND A
\ 0307 ED42 SBC HL,BC
\ 0309 010000 LD BC,file_pos
\ 030C CD8403 CALL LWRD ?0093
229 PutS(temp_record.longname,-1);
\ 030F 0EFF LD C,255
\ 0311 111900 LD DE,temp_record+25
\ 0314 CD0000 CALL LWRD PutS
\ 0317 DD34F3 INC (IX-13)
230 }
231 }
\ 031A C34602 JP LWRD ?0022
\ 031D ?0021:
\ 031D ?0017:
232 SetPenColor(oldDC_sav.PenColor);
\ 031D DD4EF6 LD C,(IX-10)
\ 0320 DD46F7 LD B,(IX-9)
\ 0323 DD5EF4 LD E,(IX-12)
\ 0326 DD56F5 LD D,(IX-11)
\ 0329 CD0000 CALL LWRD SetPenColor
233 SetBackgdColor(oldDC_sav.BackgdColor);
\ 032C 210600 LD HL,6
\ 032F 39 ADD HL,SP
\ 0330 5E LD E,(HL)
\ 0331 23 INC HL
\ 0332 56 LD D,(HL)
\ 0333 23 INC HL
\ 0334 4E LD C,(HL)
\ 0335 23 INC HL
\ 0336 46 LD B,(HL)
\ 0337 CD0000 CALL LWRD SetBackgdColor
234 }
\ 033A DDF9 LD SP,IX
\ 033C DDE1 POP IX
\ 033E C30000 JP LWRD ?BANK_FAST_LEAVE_L08
\ 0341 ?0088:
\ 0341 010000 LD BC,0
\ 0344 11FFFF LD DE,65535
\ 0347 C30000 JP LWRD SetPenColor
\ 034A ?0089:
\ 034A CD0000 CALL LWRD ?UC_MOD_L01
\ 034D DD77F2 LD (IX-14),A
\ 0350 4F LD C,A
\ 0351 0600 LD B,0
\ 0353 114B00 LD DE,75
\ 0356 CD0000 CALL LWRD ?S_MUL_L02
\ 0359 210000 LD HL,OnePageRecord
\ 035C 19 ADD HL,DE
\ 035D 4D LD C,L
\ 035E 44 LD B,H
\ 035F 110000 LD DE,temp_record
\ 0362 3E00 LD A,BYTE3 TransOneRecord
\ 0364 218D00 LD HL,LWRD TransOneRecord
\ 0367 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 036A 3A0000 LD A,(temp_record)
\ 036D 3D DEC A
\ 036E C9 RET
\ 036F ?0091:
\ 036F 0E1F LD C,31
\ 0371 113200 LD DE,50
\ 0374 ?0090:
\ 0374 3E00 LD A,BYTE3 ResShowPic
\ 0376 210000 LD HL,LWRD ResShowPic
\ 0379 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 037C ?0092:
\ 037C DD4EF2 LD C,(IX-14)
\ 037F 0600 LD B,0
\ 0381 210000 LD HL,file_pos
\ 0384 ?0093:
\ 0384 09 ADD HL,BC
\ 0385 7E LD A,(HL)
\ 0386 C6FE ADD A,254
\ 0388 4F LD C,A
\ 0389 1E20 LD E,32
\ 038B C30000 JP LWRD SetTextPos
\ 038E init_dir_buf:
235
236
237 //********************************************************************************
238 //* Description :建立快速查询表,目录更新时需要重新调用此函数
239 //*
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -