📄 ui_pop_up_list.lst
字号:
\ 049F AC XOR H
\ 04A0 ?0085:
\ 04A0 F2D104 JP P,?0053
\ 04A3 ?0052:
262 {
263 active--;
\ 04A3 69 LD L,C
\ 04A4 60 LD H,B
\ 04A5 2B DEC HL
\ 04A6 DD75E0 LD (IX-32),L
\ 04A9 DD74E1 LD (IX-31),H
264 if(active/LIST_NUM_ONE_PAGE==cur_group)
\ 04AC 010600 LD BC,6
\ 04AF EB EX DE,HL
\ 04B0 CD0000 CALL LWRD ?SS_DIV_L02
\ 04B3 DD6EF6 LD L,(IX-10)
\ 04B6 DD66F7 LD H,(IX-9)
\ 04B9 A7 AND A
\ 04BA ED52 SBC HL,DE
\ 04BC 2020 JR NZ,?0093
\ 04BE ?0054:
265 {
266 old_active=active+1;
\ 04BE DD6EE0 LD L,(IX-32)
\ 04C1 DD66E1 LD H,(IX-31)
\ 04C4 23 INC HL
\ 04C5 DD75F2 LD (IX-14),L
\ 04C8 DD74F3 LD (IX-13),H
267 value_changed=TRUE;
\ 04CB DD36FD01 LD (IX-3),1
268 }
269 else
\ 04CF 1811 JR ?0057
\ 04D1 ?0055:
270 need_draw = TRUE;
\ 04D1 ?0056:
271 }
272 else
\ 04D1 ?0053:
273 {
274 active = list->total - 1;
\ 04D1 FD6E02 LD L,(IY+2)
\ 04D4 FD6603 LD H,(IY+3)
\ 04D7 2B DEC HL
\ 04D8 DD75E0 LD (IX-32),L
\ 04DB DD74E1 LD (IX-31),H
275 need_draw = TRUE;
\ 04DE ?0093:
\ 04DE DD36FB01 LD (IX-5),1
\ 04E2 ?0057:
276 }
277 if(callback != NULL)
\ 04E2 DD7E0A LD A,(IX+10)
\ 04E5 DDB60B OR (IX+11)
\ 04E8 DDB60C OR (IX+12)
\ 04EB 2803 JR Z,?0059
\ 04ED ?0058:
278 callback(active);
\ 04ED CDF905 CALL LWRD ?0100
\ 04F0 ?0059:
\ 04F0 ?0061:
279 while(ap_get_message() != 0);
\ 04F0 CD0000 CALL LWRD ap_get_message
\ 04F3 B7 OR A
\ 04F4 CA3400 JP Z,?0003
\ 04F7 ?0062:
280 break;
\ 04F7 18F7 JR ?0059
\ 04F9 ?0060:
\ 04F9 ?0063:
281
282
283
284 case AP_KEY_PLAY | AP_KEY_UP: //取消退出
285 SetPenColor(oldDC_sav.PenColor);
286 SetBackgdColor(oldDC_sav.BackgdColor);
287 ///-SetTextOutMode(0); //设字体不透明
288 return RESULT_IGNORE;
289
290 case AP_KEY_MODE | AP_KEY_UP: //确认退出
\ 04F9 ?0064:
291 list->active = active;
\ 04F9 DD6EE0 LD L,(IX-32)
\ 04FC FD7504 LD (IY+4),L
\ 04FF DD66E1 LD H,(IX-31)
\ 0502 FD7405 LD (IY+5),H
292 SetPenColor(oldDC_sav.PenColor);
\ 0505 CDEA05 CALL LWRD ?0099
293 SetBackgdColor(oldDC_sav.BackgdColor);
\ 0508 210E00 LD HL,14
\ 050B 39 ADD HL,SP
\ 050C 5E LD E,(HL)
\ 050D 23 INC HL
\ 050E 56 LD D,(HL)
\ 050F 23 INC HL
\ 0510 4E LD C,(HL)
\ 0511 23 INC HL
\ 0512 46 LD B,(HL)
\ 0513 CD0000 CALL LWRD SetBackgdColor
294 ///-SetTextOutMode(0); //设字体不透明
295 return 0;
\ 0516 210000 LD HL,0
296
297 case AP_MSG_WAIT_TIMEOUT:
\ 0519 184B JR ?0074
\ 051B ?0065:
298 if(ui_auto_select)
\ 051B 3A0000 LD A,(ui_auto_select)
\ 051E B7 OR A
\ 051F CA3400 JP Z,?0003
\ 0522 ?0066:
299 {
300 SetPenColor(oldDC_sav.PenColor);
\ 0522 ?0090:
\ 0522 CDEA05 CALL LWRD ?0099
301 SetBackgdColor(oldDC_sav.BackgdColor);
\ 0525 210E00 LD HL,14
\ 0528 39 ADD HL,SP
\ 0529 5E LD E,(HL)
\ 052A 23 INC HL
\ 052B 56 LD D,(HL)
\ 052C 23 INC HL
\ 052D 4E LD C,(HL)
\ 052E 23 INC HL
\ 052F 46 LD B,(HL)
\ 0530 CD0000 CALL LWRD SetBackgdColor
302 ///-SetTextOutMode(0); //设字体不透明
303 return RESULT_IGNORE;
\ 0533 213400 LD HL,52
304 }
\ 0536 182E JR ?0074
\ 0538 ?0067:
305 break;
\ 0538 ?0068:
306
307 default:
308 key = ap_handle_hotkey(key);
\ 0538 CD0000 CALL LWRD ap_handle_hotkey
\ 053B DD77FA LD (IX-6),A
309 if(key == RESULT_REDRAW) need_drawall = TRUE;
\ 053E FE32 CP 50
\ 0540 2007 JR NZ,?0070
\ 0542 ?0069:
\ 0542 DD36FE01 LD (IX-2),1
310 else
\ 0546 C33400 JP LWRD ?0003
\ 0549 ?0070:
311 if(key != 0)
\ 0549 AF XOR A
\ 054A DDB6FA OR (IX-6)
\ 054D CA3400 JP Z,?0003
\ 0550 ?0072:
312 {
313 SetPenColor(oldDC_sav.PenColor);
\ 0550 CDEA05 CALL LWRD ?0099
314 SetBackgdColor(oldDC_sav.BackgdColor);
\ 0553 210E00 LD HL,14
\ 0556 39 ADD HL,SP
\ 0557 5E LD E,(HL)
\ 0558 23 INC HL
\ 0559 56 LD D,(HL)
\ 055A 23 INC HL
\ 055B 4E LD C,(HL)
\ 055C 23 INC HL
\ 055D 46 LD B,(HL)
\ 055E CD0000 CALL LWRD SetBackgdColor
315 ///-SetTextOutMode(0); //设字体不透明
316 return key;
\ 0561 DD6EFA LD L,(IX-6)
\ 0564 2600 LD H,0
317 }
\ 0566 ?0073:
\ 0566 ?0071:
\ 0566 ?0038:
318 }// switch(key)
319
320 }//while(1)
321 SetPenColor(oldDC_sav.PenColor);
322 SetBackgdColor(oldDC_sav.BackgdColor);
323 }
\ 0566 ?0074:
\ 0566 DDF9 LD SP,IX
\ 0568 DDE1 POP IX
\ 056A FDE1 POP IY
\ 056C C1 POP BC
\ 056D C30000 JP LWRD ?BANK_FAST_LEAVE_L08
\ 0570 ?0094:
\ 0570 FD6E02 LD L,(IY+2)
\ 0573 FD6603 LD H,(IY+3)
\ 0576 01F9FF LD BC,65529
\ 0579 09 ADD HL,BC
\ 057A EB EX DE,HL
\ 057B 010600 LD BC,6
\ 057E CD0000 CALL LWRD ?SS_DIV_L02
\ 0581 DD73FA LD (IX-6),E
\ 0584 50 LD D,B
\ 0585 211200 LD HL,menuptr_height_list
\ 0588 19 ADD HL,DE
\ 0589 4E LD C,(HL)
\ 058A 217100 LD HL,113
\ 058D A7 AND A
\ 058E ED42 SBC HL,BC
\ 0590 DD75E2 LD (IX-30),L
\ 0593 DD74E3 LD (IX-29),H
\ 0596 FD4E02 LD C,(IY+2)
\ 0599 FD4603 LD B,(IY+3)
\ 059C 0B DEC BC
\ 059D EB EX DE,HL
\ 059E CD0000 CALL LWRD ?SS_MOD_L02
\ 05A1 EB EX DE,HL
\ 05A2 DD4EE0 LD C,(IX-32)
\ 05A5 DD46E1 LD B,(IX-31)
\ 05A8 F680 OR 128
\ 05AA ED42 SBC HL,BC
\ 05AC C9 RET
\ 05AD ?0096:
\ 05AD DD5EF8 LD E,(IX-8)
\ 05B0 DD56F9 LD D,(IX-7)
\ 05B3 ?0095:
\ 05B3 3E00 LD A,BYTE3 ResShowPic
\ 05B5 210000 LD HL,LWRD ResShowPic
\ 05B8 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 05BB ?0097:
\ 05BB 010000 LD BC,0
\ 05BE 11FFFF LD DE,65535
\ 05C1 CD0000 CALL LWRD SetPenColor
\ 05C4 010000 LD BC,0
\ 05C7 115833 LD DE,13144
\ 05CA CD0000 CALL LWRD SetBackgdColor
\ 05CD 0E01 LD C,1
\ 05CF 210400 LD HL,4
\ 05D2 C9 RET
\ 05D3 ?0098:
\ 05D3 010000 LD BC,0
\ 05D6 59 LD E,C
\ 05D7 50 LD D,B
\ 05D8 CD0000 CALL LWRD SetPenColor
\ 05DB 010000 LD BC,0
\ 05DE 11FFFF LD DE,65535
\ 05E1 CD0000 CALL LWRD SetBackgdColor
\ 05E4 0E01 LD C,1
\ 05E6 210400 LD HL,4
\ 05E9 C9 RET
\ 05EA ?0099:
\ 05EA DD4EEC LD C,(IX-20)
\ 05ED DD46ED LD B,(IX-19)
\ 05F0 DD5EEA LD E,(IX-22)
\ 05F3 DD56EB LD D,(IX-21)
\ 05F6 C30000 JP LWRD SetPenColor
\ 05F9 ?0100:
\ 05F9 DD5EE0 LD E,(IX-32)
\ 05FC DD56E1 LD D,(IX-31)
\ 05FF DD7E0C LD A,(IX+12)
\ 0602 DD6E0A LD L,(IX+10)
\ 0605 DD660B LD H,(IX+11)
\ 0608 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 060B ?0101:
\ 060B CD0000 CALL LWRD ?C_MUL_L01
\ 060E FD4E02 LD C,(IY+2)
\ 0611 FD4603 LD B,(IY+3)
\ 0614 0B DEC BC
\ 0615 DD5EE2 LD E,(IX-30)
\ 0618 DD56E3 LD D,(IX-29)
\ 061B CD0000 CALL LWRD ?SS_MOD_L02
\ 061E 83 ADD A,E
\ 061F C9 RET
\ 0000 RSEG CONST
\ 0000 menu_pos_list:
\ 0000 16 DEFB 22
\ 0001 28 DEFB '('
\ 0002 3A DEFB ':'
\ 0003 4C DEFB 'L'
\ 0004 5E DEFB '^'
\ 0005 70 DEFB 'p'
\ 0006 menulist_bck_pic:
\ 0006 2D00 DEFW 45
\ 0008 2D00 DEFW 45
\ 000A 2D00 DEFW 45
\ 000C 2D00 DEFW 45
\ 000E 2D00 DEFW 45
\ 0010 2D00 DEFW 45
\ 0012 menuptr_height_list:
\ 0012 48 DEFB 'H'
\ 0013 40 DEFB '@'
\ 0014 38 DEFB '8'
\ 0015 30 DEFB '0'
\ 0016 28 DEFB '('
\ 0017 20 DEFB ' '
\ 0018 18 DEFB 24
\ 0019 10 DEFB 16
\ 001A 08 DEFB 8
\ 001B END
Errors: none
Warnings: none
Code size: 1568
Constant size: 27
Static variable size: Data(0) Iram(0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -