📄 ui_pop_up_list.lst
字号:
130 tregion.width = 160;
\ 00B8 DD36E6A0 LD (IX-26),160
131 constX = 163;
\ 00BC DD36FCA3 LD (IX-4),163
132 resID = MENUBCK;
\ 00C0 DD36F8B4 LD (IX-8),180
\ 00C4 DD36F900 LD (IX-7),0
133 ResShowPic(MENUTWO1,0,0);
\ 00C8 0E00 LD C,0
\ 00CA C5 PUSH BC
\ 00CB 0E00 LD C,0
\ 00CD 11C400 LD DE,196
\ 00D0 3E00 LD A,BYTE3 ResShowPic
\ 00D2 210000 LD HL,LWRD ResShowPic
\ 00D5 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 00D8 F1 POP AF
\ 00D9 ?0011:
134 }
135
136 SetPenColor(Color_BLACK_def);
\ 00D9 010000 LD BC,0
\ 00DC 110000 LD DE,0
\ 00DF CD0000 CALL LWRD SetPenColor
137 SetBackgdColor(0x0000df1c);
\ 00E2 010000 LD BC,0
\ 00E5 111CDF LD DE,57116
\ 00E8 CD0000 CALL LWRD SetBackgdColor
138 ///-SetTextOutMode(1);
139 ResShowMultiString(list->headid, list->string_id,255, 1);
\ 00EB 0E01 LD C,1
\ 00ED C5 PUSH BC
\ 00EE 0EFF LD C,255
\ 00F0 C5 PUSH BC
\ 00F1 FD4E08 LD C,(IY+8)
\ 00F4 FD5E06 LD E,(IY+6)
\ 00F7 FD5607 LD D,(IY+7)
\ 00FA 3E00 LD A,BYTE3 ResShowMultiString
\ 00FC 210000 LD HL,LWRD ResShowMultiString
\ 00FF CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0102 F1 POP AF
\ 0103 F1 POP AF
140 ///-SetTextOutMode(0);
141 SetBackgdColor(Color_MENU_def);
\ 0104 010000 LD BC,0
\ 0107 11FFFF LD DE,65535
\ 010A CD0000 CALL LWRD SetBackgdColor
142
143 if(callback != NULL)
\ 010D DD7E0A LD A,(IX+10)
\ 0110 DDB60B OR (IX+11)
\ 0113 DDB60C OR (IX+12)
\ 0116 2812 JR Z,?0013
\ 0118 ?0012:
144 callback(active);
\ 0118 DD5EE0 LD E,(IX-32)
\ 011B DD56E1 LD D,(IX-31)
\ 011E DD7E0C LD A,(IX+12)
\ 0121 DD6E0A LD L,(IX+10)
\ 0124 DD660B LD H,(IX+11)
\ 0127 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 012A ?0013:
145
146 for(i=0; i<LIST_NUM_ONE_PAGE; i++)
\ 012A AF XOR A
\ 012B DD77E8 LD (IX-24),A
\ 012E DD77E9 LD (IX-23),A
\ 0131 ?0015:
\ 0131 010680 LD BC,32774
\ 0134 DD6EE8 LD L,(IX-24)
\ 0137 DD66E9 LD H,(IX-23)
\ 013A 3E80 LD A,128
\ 013C AC XOR H
\ 013D 67 LD H,A
\ 013E ED42 SBC HL,BC
\ 0140 D26C03 JP NC,?0014
\ 0143 ?0016:
147 {
148 if(n+i >= list->total) break; //处理不足LIST_NUM_ONE_PAGE个的情况
\ 0143 FD4E02 LD C,(IY+2)
\ 0146 FD4603 LD B,(IY+3)
\ 0149 DD6EE8 LD L,(IX-24)
\ 014C DD66E9 LD H,(IX-23)
\ 014F DD5EF4 LD E,(IX-12)
\ 0152 DD56F5 LD D,(IX-11)
\ 0155 19 ADD HL,DE
\ 0156 F680 OR 128
\ 0158 ED42 SBC HL,BC
\ 015A E25E01 JP PO,?0076
\ 015D AC XOR H
\ 015E ?0076:
\ 015E F26C03 JP P,?0014
\ 0161 ?0018:
\ 0161 ?0019:
149 if(n+i==active)
\ 0161 DD6EE8 LD L,(IX-24)
\ 0164 DD66E9 LD H,(IX-23)
\ 0167 DD4EF4 LD C,(IX-12)
\ 016A DD46F5 LD B,(IX-11)
\ 016D 09 ADD HL,BC
\ 016E DD4EE0 LD C,(IX-32)
\ 0171 DD46E1 LD B,(IX-31)
\ 0174 A7 AND A
\ 0175 ED42 SBC HL,BC
\ 0177 C2E302 JP NZ,?0021
\ 017A ?0020:
150 {
151 //======================================//
152 ResShowPic(resID, 0, menu_pos_list[i]-1);
\ 017A 210000 LD HL,menu_pos_list
\ 017D DD4EE8 LD C,(IX-24)
\ 0180 DD46E9 LD B,(IX-23)
\ 0183 09 ADD HL,BC
\ 0184 7E LD A,(HL)
\ 0185 C6FF ADD A,255
\ 0187 5F LD E,A
\ 0188 D5 PUSH DE
\ 0189 0E00 LD C,0
\ 018B DD5EF8 LD E,(IX-8)
\ 018E DD56F9 LD D,(IX-7)
\ 0191 3E00 LD A,BYTE3 ResShowPic
\ 0193 210000 LD HL,LWRD ResShowPic
\ 0196 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0199 F1 POP AF
153 ResShowPic(MENUARR1, constX, menu_pos_list[i]-1);
\ 019A 210000 LD HL,menu_pos_list
\ 019D DD4EE8 LD C,(IX-24)
\ 01A0 DD46E9 LD B,(IX-23)
\ 01A3 09 ADD HL,BC
\ 01A4 7E LD A,(HL)
\ 01A5 C6FF ADD A,255
\ 01A7 5F LD E,A
\ 01A8 D5 PUSH DE
\ 01A9 DD4EFC LD C,(IX-4)
\ 01AC 11B300 LD DE,179
\ 01AF 3E00 LD A,BYTE3 ResShowPic
\ 01B1 210000 LD HL,LWRD ResShowPic
\ 01B4 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 01B7 F1 POP AF
154
155 SetPenColor(Color_WHITE_def);
\ 01B8 010000 LD BC,0
\ 01BB 11FFFF LD DE,65535
\ 01BE CD0000 CALL LWRD SetPenColor
156 SetBackgdColor(0x00003358);
\ 01C1 010000 LD BC,0
\ 01C4 115833 LD DE,13144
\ 01C7 CD0000 CALL LWRD SetBackgdColor
157 TextOutRect(&tregion ,1);
\ 01CA 0E01 LD C,1
\ 01CC 210400 LD HL,4
\ 01CF 39 ADD HL,SP
\ 01D0 5D LD E,L
\ 01D1 54 LD D,H
\ 01D2 CD0000 CALL LWRD TextOutRect
158 ResShowMultiString(list->strid[active], list->string_id,3, menu_pos_list[i]);
\ 01D5 210000 LD HL,menu_pos_list
\ 01D8 DD4EE8 LD C,(IX-24)
\ 01DB DD46E9 LD B,(IX-23)
\ 01DE 09 ADD HL,BC
\ 01DF 4E LD C,(HL)
\ 01E0 C5 PUSH BC
\ 01E1 0E03 LD C,3
\ 01E3 C5 PUSH BC
\ 01E4 FD4E08 LD C,(IY+8)
\ 01E7 FD6E00 LD L,(IY+0)
\ 01EA FD6601 LD H,(IY+1)
\ 01ED E5 PUSH HL
\ 01EE DD6EE0 LD L,(IX-32)
\ 01F1 DD66E1 LD H,(IX-31)
\ 01F4 29 ADD HL,HL
\ 01F5 EB EX DE,HL
\ 01F6 E1 POP HL
\ 01F7 19 ADD HL,DE
\ 01F8 5E LD E,(HL)
\ 01F9 23 INC HL
\ 01FA 56 LD D,(HL)
\ 01FB 3E00 LD A,BYTE3 ResShowMultiString
\ 01FD 210000 LD HL,LWRD ResShowMultiString
\ 0200 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 0203 F1 POP AF
\ 0204 F1 POP AF
159 TextOutRect(&tregion ,0);
\ 0205 0E00 LD C,0
\ 0207 210400 LD HL,4
\ 020A 39 ADD HL,SP
\ 020B 5D LD E,L
\ 020C 54 LD D,H
\ 020D CD0000 CALL LWRD TextOutRect
160
161 if(list->total > LIST_NUM_ONE_PAGE)
\ 0210 FD4E02 LD C,(IY+2)
\ 0213 FD4603 LD B,(IY+3)
\ 0216 210600 LD HL,6
\ 0219 F680 OR 128
\ 021B ED42 SBC HL,BC
\ 021D E22102 JP PO,?0077
\ 0220 AC XOR H
\ 0221 ?0077:
\ 0221 F26003 JP P,?0027
\ 0224 ?0022:
162 {
163 key = (list->total-LIST_NUM_ONE_PAGE-1)/LIST_NUM_ONE_PAGE;
\ 0224 FD6E02 LD L,(IY+2)
\ 0227 FD6603 LD H,(IY+3)
\ 022A 01F9FF LD BC,65529
\ 022D 09 ADD HL,BC
\ 022E EB EX DE,HL
\ 022F 010600 LD BC,6
\ 0232 CD0000 CALL LWRD ?SS_DIV_L02
\ 0235 DD73FA LD (IX-6),E
164 tmp = 113-menuptr_height_list[key]; //注意，最多九级!!!
\ 0238 1600 LD D,0
\ 023A 211200 LD HL,menuptr_height_list
\ 023D 19 ADD HL,DE
\ 023E 4E LD C,(HL)
\ 023F 0600 LD B,0
\ 0241 217100 LD HL,113
\ 0244 A7 AND A
\ 0245 ED42 SBC HL,BC
\ 0247 DD75E2 LD (IX-30),L
\ 024A DD74E3 LD (IX-29),H
165 if(tmp%(list->total-1)>=active)
\ 024D FD4E02 LD C,(IY+2)
\ 0250 FD4603 LD B,(IY+3)
\ 0253 0B DEC BC
\ 0254 EB EX DE,HL
\ 0255 CD0000 CALL LWRD ?SS_MOD_L02
\ 0258 EB EX DE,HL
\ 0259 DD4EE0 LD C,(IX-32)
\ 025C DD46E1 LD B,(IX-31)
\ 025F F680 OR 128
\ 0261 ED42 SBC HL,BC
\ 0263 E26702 JP PO,?0078
\ 0266 AC XOR H
\ 0267 ?0078:
\ 0267 FAA002 JP M,?0025
\ 026A ?0024:
166 ResShowPic(MENUPTR1+key, 166, 19+active+(tmp/(list->total-1))*active);
\ 026A FD4E02 LD C,(IY+2)
\ 026D FD4603 LD B,(IY+3)
\ 0270 0B DEC BC
\ 0271 DD5EE2 LD E,(IX-30)
\ 0274 DD56E3 LD D,(IX-29)
\ 0277 CD0000 CALL LWRD ?SS_DIV_L02
\ 027A 43 LD B,E
\ 027B DD7EE0 LD A,(IX-32)
\ 027E CD0000 CALL LWRD ?C_MUL_L01
\ 0281 DD86E0 ADD A,(IX-32)
\ 0284 C613 ADD A,19
\ 0286 4F LD C,A
\ 0287 C5 PUSH BC
\ 0288 0EA6 LD C,166
\ 028A DD5EFA LD E,(IX-6)
\ 028D 1600 LD D,0
\ 028F 21BA00 LD HL,186
\ 0292 19 ADD HL,DE
\ 0293 EB EX DE,HL
\ 0294 3E00 LD A,BYTE3 ResShowPic
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -