ui_director2.lst
来自「炬力方案176*132软件源码,适用于AK1025」· LST 代码 · 共 1,325 行 · 第 1/5 页
LST
1,325 行
\ 01E1 210000 LD HL,menu_pos_list
\ 01E4 FDE5 PUSH IY
\ 01E6 C1 POP BC
\ 01E7 CD6803 CALL LWRD ?0092
181 PutS(temp_record.longname,-1);
182 }
183 else //if(Old_active==active) //新旧活动项相同表示是新的一屏数据,需要全部刷新
\ 01EA C31803 JP LWRD ?0021
\ 01ED ?0006:
184 {
185 //ClearScreen(NULL);
186 ///-SetTextOutMode(1);
187 SetBackgdColor(0x0000df1c);
\ 01ED 4D LD C,L
\ 01EE 44 LD B,H
\ 01EF 111CDF LD DE,57116
\ 01F2 CD0000 CALL LWRD SetBackgdColor
188 ResShowPic(MENUTWO1,0,0);
\ 01F5 0E00 LD C,0
\ 01F7 C5 PUSH BC
\ 01F8 11C400 LD DE,196
\ 01FB CD6003 CALL LWRD ?0090
\ 01FE F1 POP AF
189 SetPenColor(Color_BLACK_def);
\ 01FF 010000 LD BC,0
\ 0202 59 LD E,C
\ 0203 50 LD D,B
\ 0204 CD0000 CALL LWRD SetPenColor
190 if(!Disk) //主盘目录
\ 0207 AF XOR A
\ 0208 DDB610 OR (IX+16)
\ 020B 0E01 LD C,1
\ 020D C5 PUSH BC
\ 020E 0EFF LD C,255
\ 0210 C5 PUSH BC
\ 0211 DD4E0E LD C,(IX+14)
\ 0214 2005 JR NZ,?0019
\ 0216 ?0018:
191 ResShowMultiString( VSTOPM1,string_id, 255, 1);
\ 0216 117902 LD DE,633
\ 0219 1803 JR ?0078
192 else
\ 021B ?0019:
193 ResShowMultiString( VSTOPM2,string_id, 255, 1);
\ 021B 117A02 LD DE,634
\ 021E ?0078:
\ 021E 3E00 LD A,BYTE3 ResShowMultiString
\ 0220 210000 LD HL,LWRD ResShowMultiString
\ 0223 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0226 F1 POP AF
\ 0227 F1 POP AF
\ 0228 ?0020:
194 SetBackgdColor(Color_MENU_def);
\ 0228 010000 LD BC,0
\ 022B 11FFFF LD DE,65535
\ 022E CD0000 CALL LWRD SetBackgdColor
195 ///-SetTextOutMode(0);
196
197 for(i=top;i<=bottom;i++)
\ 0231 DD6E02 LD L,(IX+2)
\ 0234 DD6603 LD H,(IX+3)
\ 0237 DD75F6 LD (IX-10),L
\ 023A DD74F7 LD (IX-9),H
\ 023D ?0022:
\ 023D DD4EF6 LD C,(IX-10)
\ 0240 DD46F7 LD B,(IX-9)
\ 0243 DD6E04 LD L,(IX+4)
\ 0246 DD6605 LD H,(IX+5)
\ 0249 A7 AND A
\ 024A ED42 SBC HL,BC
\ 024C DA1803 JP C,?0021
\ 024F ?0023:
198 {
199 if(i==active)
\ 024F DD6E0C LD L,(IX+12)
\ 0252 DD660D LD H,(IX+13)
\ 0255 ED42 SBC HL,BC
\ 0257 2021 JR NZ,?0026
\ 0259 ?0025:
200 {
201 ResShowPic(FILEBCK, 12, menu_pos_list[i-top]-1);
\ 0259 DD4E02 LD C,(IX+2)
\ 025C DD4603 LD B,(IX+3)
\ 025F DD6EF6 LD L,(IX-10)
\ 0262 DD66F7 LD H,(IX-9)
\ 0265 A7 AND A
\ 0266 ED42 SBC HL,BC
\ 0268 010000 LD BC,menu_pos_list
\ 026B 09 ADD HL,BC
\ 026C 7E LD A,(HL)
\ 026D C6FF ADD A,255
\ 026F 4F LD C,A
\ 0270 C5 PUSH BC
\ 0271 CD5B03 CALL LWRD ?0091
\ 0274 F1 POP AF
202 SetPenColor(Color_WHITE_def);
\ 0275 CD7803 CALL LWRD ?0093
203 SetBackgdColor(0x00003358);
\ 0278 180E JR ?0079
204 }
205 else
\ 027A ?0026:
206 {
207 SetPenColor(Color_BLACK_def);
\ 027A 010000 LD BC,0
\ 027D 59 LD E,C
\ 027E 50 LD D,B
\ 027F CD0000 CALL LWRD SetPenColor
208 SetBackgdColor(Color_MENU_def);
\ 0282 010000 LD BC,0
\ 0285 11FFFF LD DE,65535
\ 0288 ?0079:
\ 0288 CD0000 CALL LWRD SetBackgdColor
\ 028B ?0027:
209 }
210
211 output8(0x4e,input8(0x4e) | 0x08);
\ 028B DB4E IN A,(78)
\ 028D CBDF SET 3,A
\ 028F D34E OUT (78),A
212 TransOneRecord(&temp_record,&OnePageRecord[i-top]); //将idm中记录数据读取到temp_record中
\ 0291 DD4E02 LD C,(IX+2)
\ 0294 DD4603 LD B,(IX+3)
\ 0297 DD6EF6 LD L,(IX-10)
\ 029A DD66F7 LD H,(IX-9)
\ 029D CD8803 CALL LWRD ?0094
\ 02A0 210000 LD HL,OnePageRecord
\ 02A3 19 ADD HL,DE
\ 02A4 4D LD C,L
\ 02A5 44 LD B,H
\ 02A6 110000 LD DE,temp_record
\ 02A9 3E00 LD A,BYTE3 TransOneRecord
\ 02AB 218D00 LD HL,LWRD TransOneRecord
\ 02AE CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
213 if(temp_record.filetype==TYPE_FILE)
\ 02B1 3A0000 LD A,(temp_record)
\ 02B4 3D DEC A
\ 02B5 201F JR NZ,?0029
\ 02B7 ?0028:
214 ResShowPic(MFILE,0,menu_pos_list[i-top]+2);
\ 02B7 DD4E02 LD C,(IX+2)
\ 02BA DD4603 LD B,(IX+3)
\ 02BD DD6EF6 LD L,(IX-10)
\ 02C0 DD66F7 LD H,(IX-9)
\ 02C3 A7 AND A
\ 02C4 ED42 SBC HL,BC
\ 02C6 010000 LD BC,menu_pos_list
\ 02C9 09 ADD HL,BC
\ 02CA 7E LD A,(HL)
\ 02CB C602 ADD A,2
\ 02CD 4F LD C,A
\ 02CE C5 PUSH BC
\ 02CF 0E00 LD C,0
\ 02D1 11C600 LD DE,198
\ 02D4 181E JR ?0080
\ 02D6 ?0029:
215 else if(temp_record.filetype==TYPE_DIR)
\ 02D6 3A0000 LD A,(temp_record)
\ 02D9 B7 OR A
\ 02DA 201C JR NZ,?0032
\ 02DC ?0031:
216 {
217 ResShowPic(MDIR,0,menu_pos_list[i-top]);
\ 02DC DD4E02 LD C,(IX+2)
\ 02DF DD4603 LD B,(IX+3)
\ 02E2 DD6EF6 LD L,(IX-10)
\ 02E5 DD66F7 LD H,(IX-9)
\ 02E8 ED42 SBC HL,BC
\ 02EA 010000 LD BC,menu_pos_list
\ 02ED 09 ADD HL,BC
\ 02EE 4E LD C,(HL)
\ 02EF C5 PUSH BC
\ 02F0 4F LD C,A
\ 02F1 11AF00 LD DE,175
\ 02F4 ?0080:
\ 02F4 CD6003 CALL LWRD ?0090
\ 02F7 F1 POP AF
\ 02F8 ?0032:
\ 02F8 ?0030:
218 }
219 SetTextPos(12, menu_pos_list[i-top]);
\ 02F8 DD4E02 LD C,(IX+2)
\ 02FB DD4603 LD B,(IX+3)
\ 02FE DD6EF6 LD L,(IX-10)
\ 0301 DD66F7 LD H,(IX-9)
\ 0304 A7 AND A
\ 0305 ED42 SBC HL,BC
\ 0307 010000 LD BC,menu_pos_list
\ 030A CD6803 CALL LWRD ?0092
220 PutS(temp_record.longname,-1);
\ 030D DD34F6 INC (IX-10)
\ 0310 2003 JR NZ,?0075
\ 0312 DD34F7 INC (IX-9)
\ 0315 ?0075:
221 }
222 }
\ 0315 C33D02 JP LWRD ?0022
\ 0318 ?0021:
\ 0318 ?0017:
223 SetPenColor(oldDC_sav.PenColor);
\ 0318 DD4EFA LD C,(IX-6)
\ 031B DD46FB LD B,(IX-5)
\ 031E DD5EF8 LD E,(IX-8)
\ 0321 DD56F9 LD D,(IX-7)
\ 0324 CD0000 CALL LWRD SetPenColor
224 SetBackgdColor(oldDC_sav.BackgdColor);
\ 0327 210800 LD HL,8
\ 032A 39 ADD HL,SP
\ 032B 5E LD E,(HL)
\ 032C 23 INC HL
\ 032D 56 LD D,(HL)
\ 032E 23 INC HL
\ 032F 4E LD C,(HL)
\ 0330 23 INC HL
\ 0331 46 LD B,(HL)
\ 0332 CD0000 CALL LWRD SetBackgdColor
225 }
\ 0335 FDE1 POP IY
\ 0337 C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
\ 033A ?0089:
\ 033A CD0000 CALL LWRD ?US_MOD_L02
\ 033D D5 PUSH DE
\ 033E FDE1 POP IY
\ 0340 0E4B LD C,75
\ 0342 CD0000 CALL LWRD ?S_MUL_L02
\ 0345 210000 LD HL,OnePageRecord
\ 0348 19 ADD HL,DE
\ 0349 4D LD C,L
\ 034A 44 LD B,H
\ 034B 110000 LD DE,temp_record
\ 034E 3E00 LD A,BYTE3 TransOneRecord
\ 0350 218D00 LD HL,LWRD TransOneRecord
\ 0353 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0356 3A0000 LD A,(temp_record)
\ 0359 3D DEC A
\ 035A C9 RET
\ 035B ?0091:
\ 035B 0E0C LD C,12
\ 035D 112C00 LD DE,44
\ 0360 ?0090:
\ 0360 3E00 LD A,BYTE3 ResShowPic
\ 0362 210000 LD HL,LWRD ResShowPic
\ 0365 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 0368 ?0092:
\ 0368 09 ADD HL,BC
\ 0369 4E LD C,(HL)
\ 036A 1E0C LD E,12
\ 036C CD0000 CALL LWRD SetTextPos
\ 036F 0EFF LD C,255
\ 0371 111900 LD DE,temp_record+25
\ 0374 CD0000 CALL LWRD PutS
\ 0377 C9 RET
\ 0378 ?0093:
\ 0378 010000 LD BC,0
\ 037B 11FFFF LD DE,65535
\ 037E CD0000 CALL LWRD SetPenColor
\ 0381 010000 LD BC,0
\ 0384 115833 LD DE,13144
\ 0387 C9 RET
\ 0388 ?0094:
\ 0388 A7 AND A
\ 0389 ED42 SBC HL,BC
\ 038B 4D LD C,L
\ 038C 44 LD B,H
\ 038D 114B00 LD DE,75
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?