ui_userlist2.lst
来自「炬力方案176*132软件源码,适用于AK1025」· LST 代码 · 共 765 行 · 第 1/3 页
LST
765 行
\ 00F7 4F LD C,A
\ 00F8 C5 PUSH BC
\ 00F9 CD4902 CALL LWRD ?0054
\ 00FC F1 POP AF
71 region_scroll.y = menu_pos_list[tmp]-2;
\ 00FD DD4EFD LD C,(IX-3)
\ 0100 0600 LD B,0
\ 0102 210000 LD HL,menu_pos_list
\ 0105 09 ADD HL,BC
\ 0106 7E LD A,(HL)
\ 0107 C6FE ADD A,254
\ 0109 320100 LD (region_scroll+1),A
72 memcpy(scroll_buf,&(disbuff+(new_active)*30),25); //取要滚动的数据到buf
\ 010C DD4E04 LD C,(IX+4)
\ 010F CD6502 CALL LWRD ?0056
73 scroll_buf[25]=0;
74 ScrollString(scroll_buf,TRUE,g_comval.langid,®ion_scroll);
\ 0112 E5 PUSH HL
\ 0113 210C00 LD HL,g_comval+12
\ 0116 4E LD C,(HL)
\ 0117 C5 PUSH BC
\ 0118 CD2A02 CALL LWRD ?0051
\ 011B E1 POP HL
\ 011C E1 POP HL
75 if(strlen(scroll_buf)<20)
\ 011D CD9102 CALL LWRD ?0058
\ 0120 3003 JR NC,?0010
\ 0122 ?0009:
76 ScrollFlag=0;
\ 0122 AF XOR A
\ 0123 1802 JR ?0044
77 else
\ 0125 ?0010:
78 ScrollFlag=1;
\ 0125 3E01 LD A,1
\ 0127 ?0044:
\ 0127 C32402 JP LWRD ?0046
\ 012A ?0011:
79 }
80 else
\ 012A ?0008:
81 {
82
83 // SetTextOutMode(1);
84 ResShowPic(MENUTWO,0,0);
\ 012A 0E00 LD C,0
\ 012C C5 PUSH BC
\ 012D 11C300 LD DE,195
\ 0130 CD4E02 CALL LWRD ?0053
\ 0133 F1 POP AF
85 if(type==0)
\ 0134 AF XOR A
\ 0135 DDB60C OR (IX+12)
\ 0138 0E94 LD C,148
\ 013A C5 PUSH BC
\ 013B 0E16 LD C,22
\ 013D C5 PUSH BC
\ 013E ED4B0C00 LD BC,(g_comval+12)
\ 0142 2005 JR NZ,?0014
\ 0144 ?0013:
86 ResShowMultiString( MFAVIVIW,g_comval.langid, list_str_x_def, list_str_y_def);//显示菜单头
\ 0144 11B301 LD DE,435
\ 0147 1803 JR ?0045
87 else
\ 0149 ?0014:
88 ResShowMultiString( MFAVIDEL,g_comval.langid,list_str_x_def, list_str_y_def);//显示菜单头
\ 0149 11B201 LD DE,434
\ 014C ?0045:
\ 014C 3E00 LD A,BYTE3 ResShowMultiString
\ 014E 210000 LD HL,LWRD ResShowMultiString
\ 0151 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0154 F1 POP AF
\ 0155 F1 POP AF
\ 0156 ?0015:
89 ResShowPic(DHT,194,8);
\ 0156 0E08 LD C,8
\ 0158 C5 PUSH BC
\ 0159 0EC2 LD C,194
\ 015B 112600 LD DE,38
\ 015E CD4E02 CALL LWRD ?0053
\ 0161 F1 POP AF
90 for(i=0;i<num;i++)
\ 0162 DD36FC00 LD (IX-4),0
\ 0166 ?0017:
\ 0166 DD7EFC LD A,(IX-4)
\ 0169 DDBE0A CP (IX+10)
\ 016C D2FD01 JP NC,?0016
\ 016F ?0018:
91 {
92
93 if(i==new_active)
\ 016F DDBE04 CP (IX+4)
\ 0172 2040 JR NZ,?0021
\ 0174 ?0020:
94 {
95 ResShowPic(FILEBCK, explorer_str_x_def-2, menu_pos_list[i]-4);
\ 0174 4F LD C,A
\ 0175 0600 LD B,0
\ 0177 210000 LD HL,menu_pos_list
\ 017A 09 ADD HL,BC
\ 017B 7E LD A,(HL)
\ 017C C6FC ADD A,252
\ 017E 4F LD C,A
\ 017F C5 PUSH BC
\ 0180 0E1E LD C,30
\ 0182 112C00 LD DE,44
\ 0185 CD4E02 CALL LWRD ?0053
\ 0188 F1 POP AF
96 ResShowPic(DHTHK,194, menu_pos_list[i]+5);
\ 0189 DD4EFC LD C,(IX-4)
\ 018C 0600 LD B,0
\ 018E 210000 LD HL,menu_pos_list
\ 0191 09 ADD HL,BC
\ 0192 7E LD A,(HL)
\ 0193 C605 ADD A,5
\ 0195 4F LD C,A
\ 0196 C5 PUSH BC
\ 0197 0EC2 LD C,194
\ 0199 112700 LD DE,39
\ 019C CD4E02 CALL LWRD ?0053
\ 019F F1 POP AF
97 ResShowPic(MFILE,explorer_pic_x_def,menu_pos_list[i]-1);
\ 01A0 DD4EFC LD C,(IX-4)
\ 01A3 0600 LD B,0
\ 01A5 210000 LD HL,menu_pos_list
\ 01A8 09 ADD HL,BC
\ 01A9 7E LD A,(HL)
\ 01AA C6FF ADD A,255
\ 01AC 4F LD C,A
\ 01AD C5 PUSH BC
\ 01AE CD4902 CALL LWRD ?0054
\ 01B1 F1 POP AF
98 continue;
\ 01B2 1843 JR ?0019
\ 01B4 ?0021:
99 }
100 output8(0x4e,input8(0x4e) | 0x08);
\ 01B4 DB4E IN A,(78)
\ 01B6 CBDF SET 3,A
\ 01B8 D34E OUT (78),A
101 ResShowPic(MFILE,explorer_pic_x_def,menu_pos_list[i]-1);
\ 01BA DD4EFC LD C,(IX-4)
\ 01BD 0600 LD B,0
\ 01BF 210000 LD HL,menu_pos_list
\ 01C2 09 ADD HL,BC
\ 01C3 7E LD A,(HL)
\ 01C4 C6FF ADD A,255
\ 01C6 4F LD C,A
\ 01C7 C5 PUSH BC
\ 01C8 CD4902 CALL LWRD ?0054
\ 01CB F1 POP AF
102 SetTextPos(explorer_str_x_def, menu_pos_list[i]-2);
\ 01CC DD4EFC LD C,(IX-4)
\ 01CF CD5602 CALL LWRD ?0055
103 DisplayBytes = Count_Byte(&(disbuff+(i)*30),g_comval.langid);
\ 01D2 ED4B0C00 LD BC,(g_comval+12)
\ 01D6 C5 PUSH BC
\ 01D7 DD5EFC LD E,(IX-4)
\ 01DA CD7E02 CALL LWRD ?0057
\ 01DD C1 POP BC
\ 01DE CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
104 PutS(&(disbuff+(i)*30),DisplayBytes); //显示关键字
\ 01E1 4D LD C,L
\ 01E2 C5 PUSH BC
\ 01E3 DD5EFC LD E,(IX-4)
\ 01E6 1600 LD D,0
\ 01E8 011E00 LD BC,30
\ 01EB CD0000 CALL LWRD ?S_MUL_L02
\ 01EE 210000 LD HL,disbuff
\ 01F1 19 ADD HL,DE
\ 01F2 EB EX DE,HL
\ 01F3 C1 POP BC
\ 01F4 CD0000 CALL LWRD PutS
\ 01F7 ?0019:
\ 01F7 DD34FC INC (IX-4)
\ 01FA C36601 JP LWRD ?0017
\ 01FD ?0016:
105 } //for
106 region_scroll.y= menu_pos_list[new_active]-2;
\ 01FD DD4E04 LD C,(IX+4)
\ 0200 0600 LD B,0
\ 0202 210000 LD HL,menu_pos_list
\ 0205 09 ADD HL,BC
\ 0206 7E LD A,(HL)
\ 0207 C6FE ADD A,254
\ 0209 320100 LD (region_scroll+1),A
107 memcpy(scroll_buf,&(disbuff+(new_active)*30),25);
\ 020C CD6502 CALL LWRD ?0056
108 scroll_buf[25]=0;
109 ScrollString(scroll_buf, TRUE,g_comval.langid,®ion_scroll);
\ 020F E5 PUSH HL
\ 0210 210C00 LD HL,g_comval+12
\ 0213 4E LD C,(HL)
\ 0214 C5 PUSH BC
\ 0215 CD2A02 CALL LWRD ?0051
\ 0218 E1 POP HL
\ 0219 E1 POP HL
110 if(strlen(scroll_buf)<20)
\ 021A CD9102 CALL LWRD ?0058
\ 021D 3003 JR NC,?0023
\ 021F ?0022:
111 ScrollFlag=0;
\ 021F AF XOR A
\ 0220 1802 JR ?0046
112 else
\ 0222 ?0023:
113 ScrollFlag=1;
\ 0222 3E01 LD A,1
\ 0224 ?0046:
\ 0224 320000 LD (ScrollFlag),A
\ 0227 ?0024:
\ 0227 ?0012:
\ 0227 ?0004:
114 }
115 } //else scorll_flag
116 }
\ 0227 C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
\ 022A ?0051:
\ 022A 0E01 LD C,1
\ 022C ?0050:
\ 022C 110000 LD DE,scroll_buf
\ 022F 3E00 LD A,BYTE3 ScrollString
\ 0231 210000 LD HL,LWRD ScrollString
\ 0234 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 0237 ?0052:
\ 0237 CD0000 CALL LWRD ?UC_MOD_L01
\ 023A DD77FD LD (IX-3),A
\ 023D 4F LD C,A
\ 023E 0600 LD B,0
\ 0240 210000 LD HL,menu_pos_list
\ 0243 09 ADD HL,BC
\ 0244 7E LD A,(HL)
\ 0245 C6FC ADD A,252
\ 0247 4F LD C,A
\ 0248 C9 RET
\ 0249 ?0054:
\ 0249 0E0D LD C,13
\ 024B 11C600 LD DE,198
\ 024E ?0053:
\ 024E 3E00 LD A,BYTE3 ResShowPic
\ 0250 210000 LD HL,LWRD ResShowPic
\ 0253 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 0256 ?0055:
\ 0256 0600 LD B,0
\ 0258 210000 LD HL,menu_pos_list
\ 025B 09 ADD HL,BC
\ 025C 7E LD A,(HL)
\ 025D C6FE ADD A,254
\ 025F 4F LD C,A
\ 0260 1E20 LD E,32
\ 0262 C30000 JP LWRD SetTextPos
\ 0265 ?0056:
\ 0265 111E00 LD DE,30
\ 0268 CD0000 CALL LWRD ?S_MUL_L02
\ 026B 210000 LD HL,disbuff
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?