📄 ui_pop_up_list.lst
字号:
270 need_draw = TRUE;
\ 0414 ?0056:
271 }
272 else
\ 0414 ?0053:
273 {
274 active = list->total - 1;
\ 0414 FD6E02 LD L,(IY+2)
\ 0417 FD6603 LD H,(IY+3)
\ 041A 2B DEC HL
\ 041B DD75E0 LD (IX-32),L
\ 041E DD74E1 LD (IX-31),H
275 need_draw = TRUE;
\ 0421 ?0084:
\ 0421 DD36FB01 LD (IX-5),1
\ 0425 ?0057:
276 }
277 if(callback != NULL)
\ 0425 DD7E0A LD A,(IX+10)
\ 0428 DDB60B OR (IX+11)
\ 042B DDB60C OR (IX+12)
\ 042E 2803 JR Z,?0059
\ 0430 ?0058:
278 callback(active);
\ 0430 CD5205 CALL LWRD ?0095
\ 0433 ?0059:
\ 0433 ?0061:
279 while(ap_get_message() != 0);
\ 0433 CD0000 CALL LWRD ap_get_message
\ 0436 B7 OR A
\ 0437 20FA JR NZ,?0059
\ 0439 ?0062:
280 break;
\ 0439 ?0060:
\ 0439 C33000 JP LWRD ?0003
\ 043C ?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: //确认退出
\ 043C ?0064:
291 list->active = active;
\ 043C DD6EE0 LD L,(IX-32)
\ 043F FD7504 LD (IY+4),L
\ 0442 DD66E1 LD H,(IX-31)
\ 0445 FD7405 LD (IY+5),H
292 SetPenColor(oldDC_sav.PenColor);
\ 0448 CD3505 CALL LWRD ?0093
293 SetBackgdColor(oldDC_sav.BackgdColor);
\ 044B 39 ADD HL,SP
\ 044C CD4805 CALL LWRD ?0094
294 ///-SetTextOutMode(0); //设字体不透明
295 return 0;
\ 044F 210000 LD HL,0
296
297 case AP_MSG_WAIT_TIMEOUT:
\ 0452 1839 JR ?0074
\ 0454 ?0065:
298 if(ui_auto_select)
\ 0454 3A0000 LD A,(ui_auto_select)
\ 0457 B7 OR A
\ 0458 2830 JR Z,?0073
\ 045A ?0066:
299 {
300 SetPenColor(oldDC_sav.PenColor);
\ 045A ?0081:
\ 045A CD3505 CALL LWRD ?0093
301 SetBackgdColor(oldDC_sav.BackgdColor);
\ 045D 39 ADD HL,SP
\ 045E CD4805 CALL LWRD ?0094
302 ///-SetTextOutMode(0); //设字体不透明
303 return RESULT_IGNORE;
\ 0461 213400 LD HL,52
304 }
\ 0464 1827 JR ?0074
\ 0466 ?0067:
305 break;
\ 0466 ?0068:
306
307 default:
308 key = ap_handle_hotkey(key);
\ 0466 CD0000 CALL LWRD ap_handle_hotkey
\ 0469 DD77FA LD (IX-6),A
309 if(key == RESULT_REDRAW) need_drawall = TRUE;
\ 046C FE32 CP 50
\ 046E 2006 JR NZ,?0070
\ 0470 ?0069:
\ 0470 DD36FE01 LD (IX-2),1
310 else
\ 0474 1814 JR ?0073
\ 0476 ?0070:
311 if(key != 0)
\ 0476 AF XOR A
\ 0477 DDB6FA OR (IX-6)
\ 047A 280E JR Z,?0073
\ 047C ?0072:
312 {
313 SetPenColor(oldDC_sav.PenColor);
\ 047C CD3505 CALL LWRD ?0093
314 SetBackgdColor(oldDC_sav.BackgdColor);
\ 047F 39 ADD HL,SP
\ 0480 CD4805 CALL LWRD ?0094
315 ///-SetTextOutMode(0); //设字体不透明
316 return key;
\ 0483 DD6EFA LD L,(IX-6)
\ 0486 2600 LD H,0
317 }
\ 0488 1803 JR ?0074
\ 048A ?0073:
\ 048A ?0071:
\ 048A ?0038:
\ 048A C33000 JP LWRD ?0003
318 }// switch(key)
319
320 }//while(1)
321 SetPenColor(oldDC_sav.PenColor);
322 SetBackgdColor(oldDC_sav.BackgdColor);
323 }
\ 048D ?0074:
\ 048D FDE1 POP IY
\ 048F C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
\ 0492 ?0085:
\ 0492 FD6E02 LD L,(IY+2)
\ 0495 FD6603 LD H,(IY+3)
\ 0498 01F9FF LD BC,65529
\ 049B 09 ADD HL,BC
\ 049C EB EX DE,HL
\ 049D 010600 LD BC,6
\ 04A0 CD0000 CALL LWRD ?SS_DIV_L02
\ 04A3 DD73FA LD (IX-6),E
\ 04A6 50 LD D,B
\ 04A7 211200 LD HL,menuptr_height_list
\ 04AA 19 ADD HL,DE
\ 04AB 4E LD C,(HL)
\ 04AC 217100 LD HL,113
\ 04AF A7 AND A
\ 04B0 ED42 SBC HL,BC
\ 04B2 DD75E2 LD (IX-30),L
\ 04B5 DD74E3 LD (IX-29),H
\ 04B8 FD4E02 LD C,(IY+2)
\ 04BB FD4603 LD B,(IY+3)
\ 04BE 0B DEC BC
\ 04BF EB EX DE,HL
\ 04C0 CD0000 CALL LWRD ?SS_MOD_L02
\ 04C3 EB EX DE,HL
\ 04C4 DD4EE0 LD C,(IX-32)
\ 04C7 DD46E1 LD B,(IX-31)
\ 04CA CD0000 CALL LWRD ?SS_CMP_L02
\ 04CD FD4E02 LD C,(IY+2)
\ 04D0 FD4603 LD B,(IY+3)
\ 04D3 0B DEC BC
\ 04D4 DD5EE2 LD E,(IX-30)
\ 04D7 DD56E3 LD D,(IX-29)
\ 04DA C9 RET
\ 04DB ?0086:
\ 04DB CD0000 CALL LWRD ?SS_DIV_L02
\ 04DE DD6EF6 LD L,(IX-10)
\ 04E1 DD66F7 LD H,(IX-9)
\ 04E4 A7 AND A
\ 04E5 ED52 SBC HL,DE
\ 04E7 C9 RET
\ 04E8 ?0088:
\ 04E8 EB EX DE,HL
\ 04E9 CD0000 CALL LWRD TextOutRect
\ 04EC ?0087:
\ 04EC FD4E02 LD C,(IY+2)
\ 04EF FD4603 LD B,(IY+3)
\ 04F2 210600 LD HL,6
\ 04F5 C30000 JP LWRD ?SS_CMP_L02
\ 04F8 ?0090:
\ 04F8 DD5EF8 LD E,(IX-8)
\ 04FB DD56F9 LD D,(IX-7)
\ 04FE ?0089:
\ 04FE 3E00 LD A,BYTE3 ResShowPic
\ 0500 210000 LD HL,LWRD ResShowPic
\ 0503 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 0506 ?0091:
\ 0506 010000 LD BC,0
\ 0509 11FFFF LD DE,65535
\ 050C CD0000 CALL LWRD SetPenColor
\ 050F 010000 LD BC,0
\ 0512 115833 LD DE,13144
\ 0515 CD0000 CALL LWRD SetBackgdColor
\ 0518 0E01 LD C,1
\ 051A 210600 LD HL,6
\ 051D C9 RET
\ 051E ?0092:
\ 051E 010000 LD BC,0
\ 0521 59 LD E,C
\ 0522 50 LD D,B
\ 0523 CD0000 CALL LWRD SetPenColor
\ 0526 010000 LD BC,0
\ 0529 11FFFF LD DE,65535
\ 052C CD0000 CALL LWRD SetBackgdColor
\ 052F 0E01 LD C,1
\ 0531 210600 LD HL,6
\ 0534 C9 RET
\ 0535 ?0093:
\ 0535 DD4EEC LD C,(IX-20)
\ 0538 DD46ED LD B,(IX-19)
\ 053B DD5EEA LD E,(IX-22)
\ 053E DD56EB LD D,(IX-21)
\ 0541 CD0000 CALL LWRD SetPenColor
\ 0544 211000 LD HL,16
\ 0547 C9 RET
\ 0548 ?0094:
\ 0548 5E LD E,(HL)
\ 0549 23 INC HL
\ 054A 56 LD D,(HL)
\ 054B 23 INC HL
\ 054C 4E LD C,(HL)
\ 054D 23 INC HL
\ 054E 46 LD B,(HL)
\ 054F C30000 JP LWRD SetBackgdColor
\ 0552 ?0095:
\ 0552 DD5EE0 LD E,(IX-32)
\ 0555 DD56E1 LD D,(IX-31)
\ 0558 DD7E0C LD A,(IX+12)
\ 055B DD6E0A LD L,(IX+10)
\ 055E DD660B LD H,(IX+11)
\ 0561 C30000 JP LWRD ?BANK_CALL_DIRECT_L08
\ 0564 ?0096:
\ 0564 EB EX DE,HL
\ 0565 CD0000 CALL LWRD TextOutRect
\ 0568 210000 LD HL,menu_pos_list
\ 056B DD4EE8 LD C,(IX-24)
\ 056E DD46E9 LD B,(IX-23)
\ 0571 09 ADD HL,BC
\ 0572 C9 RET
\ 0573 ?0097:
\ 0573 CD0000 CALL LWRD ?C_MUL_L01
\ 0576 FD4E02 LD C,(IY+2)
\ 0579 FD4603 LD B,(IY+3)
\ 057C 0B DEC BC
\ 057D DD5EE2 LD E,(IX-30)
\ 0580 DD56E3 LD D,(IX-29)
\ 0583 CD0000 CALL LWRD ?SS_MOD_L02
\ 0586 83 ADD A,E
\ 0587 C9 RET
\ 0588 ?0098:
\ 0588 CD0000 CALL LWRD ?SS_MOD_L02
\ 058B DD73E2 LD (IX-30),E
\ 058E DD72E3 LD (IX-29),D
\ 0591 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: 1426
Constant size: 27
Static variable size: Data(0) Iram(0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -