📄 ui_delete2.lst
字号:
\ 00E4 DD66E9 LD H,(IX-23)
\ 00E7 A7 AND A
\ 00E8 ED52 SBC HL,DE
\ 00EA 200D JR NZ,?0015
\ 00EC ?0014:
74 {
75 ShowFilelist(top,bottom,filelist_active-1,filelist_active,string_id);
\ 00EC DD6E04 LD L,(IX+4)
\ 00EF E5 PUSH HL
\ 00F0 FDE5 PUSH IY
\ 00F2 FDE5 PUSH IY
\ 00F4 E1 POP HL
\ 00F5 2B DEC HL
\ 00F6 E5 PUSH HL
\ 00F7 182A JR ?0079
76 }
77 else
\ 00F9 ?0015:
78 {
79 cur_grouplist=cur_grouplist+1;
\ 00F9 210400 LD HL,4
\ 00FC 39 ADD HL,SP
\ 00FD 7E LD A,(HL)
\ 00FE C601 ADD A,1
\ 0100 77 LD (HL),A
\ 0101 3002 JR NC,?0078
\ 0103 23 INC HL
\ 0104 34 INC (HL)
\ 0105 ?0078:
80 top=(filelist_active/6)*6; //顶的序号
\ 0105 CD5503 CALL LWRD ?0089
81 bottom=top+5; //底的序号
82 if(bottom>(filetotal-1))
\ 0108 CD8F03 CALL LWRD ?0092
\ 010B 3006 JR NC,?0018
\ 010D ?0017:
83 bottom=filetotal-1;
\ 010D DD75EC LD (IX-20),L
\ 0110 DD74ED LD (IX-19),H
\ 0113 ?0018:
84 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 0113 DD6E04 LD L,(IX+4)
\ 0116 E5 PUSH HL
\ 0117 CDB303 CALL LWRD ?0095
\ 011A E1 POP HL
85 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 011B DD6E04 LD L,(IX+4)
\ 011E E5 PUSH HL
\ 011F FDE5 PUSH IY
\ 0121 FDE5 PUSH IY
\ 0123 ?0079:
\ 0123 1841 JR ?0084
\ 0125 ?0016:
86 }
87
88 }
89 else
\ 0125 ?0013:
90 {
91 filelist_active=0;
92 top=0;
93 cur_grouplist=0;
94 bottom=5; //底的序号
95 if(bottom>(filetotal-1))
\ 0125 FD210000 LD IY,0
\ 0129 AF XOR A
\ 012A DD77EA LD (IX-22),A
\ 012D DD77EB LD (IX-21),A
\ 0130 DD77E8 LD (IX-24),A
\ 0133 DD77E9 LD (IX-23),A
\ 0136 DD36EC05 LD (IX-20),5
\ 013A DD77ED LD (IX-19),A
\ 013D 69 LD L,C
\ 013E 60 LD H,B
\ 013F 010580 LD BC,32773
\ 0142 78 LD A,B
\ 0143 AC XOR H
\ 0144 67 LD H,A
\ 0145 ED42 SBC HL,BC
\ 0147 300D JR NC,?0021
\ 0149 ?0020:
96 bottom=filetotal-1;
\ 0149 DD6EEE LD L,(IX-18)
\ 014C DD66EF LD H,(IX-17)
\ 014F 2B DEC HL
\ 0150 DD75EC LD (IX-20),L
\ 0153 DD74ED LD (IX-19),H
\ 0156 ?0021:
97 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 0156 DD6E04 LD L,(IX+4)
\ 0159 E5 PUSH HL
\ 015A CDB303 CALL LWRD ?0095
\ 015D E1 POP HL
98 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 015E DD6E04 LD L,(IX+4)
\ 0161 E5 PUSH HL
\ 0162 FDE5 PUSH IY
\ 0164 FDE5 PUSH IY
\ 0166 ?0084:
\ 0166 CD9F03 CALL LWRD ?0093
\ 0169 E1 POP HL
\ 016A E1 POP HL
\ 016B E1 POP HL
\ 016C ?0019:
\ 016C ?0023:
99 }
100 while(ap_get_message()!=0) {;} //丢掉多余按键
\ 016C CD0000 CALL LWRD ap_get_message
\ 016F B7 OR A
\ 0170 20FA JR NZ,?0019
\ 0172 ?0024:
101 break;
\ 0172 ?0022:
\ 0172 C39400 JP LWRD ?0008
\ 0175 ?0025:
102
103 case AP_KEY_PREV:
104 case AP_KEY_PREV | AP_KEY_HOLD :
105 if(filelist_active >0)
\ 0175 FDE5 PUSH IY
\ 0177 C1 POP BC
\ 0178 6A LD L,D
\ 0179 62 LD H,D
\ 017A CD0000 CALL LWRD ?SS_CMP_L02
\ 017D 304D JR NC,?0027
\ 017F ?0026:
106 {
107 filelist_active--;
108 if(filelist_active/6==cur_grouplist)
\ 017F 010600 LD BC,6
\ 0182 FD2B DEC IY
\ 0184 FDE5 PUSH IY
\ 0186 D1 POP DE
\ 0187 CD0000 CALL LWRD ?SS_DIV_L02
\ 018A DD6EE8 LD L,(IX-24)
\ 018D DD66E9 LD H,(IX-23)
\ 0190 A7 AND A
\ 0191 ED52 SBC HL,DE
\ 0193 200D JR NZ,?0029
\ 0195 ?0028:
109 {
110 ShowFilelist(top,bottom,filelist_active+1,filelist_active,string_id);
\ 0195 DD6E04 LD L,(IX+4)
\ 0198 E5 PUSH HL
\ 0199 FDE5 PUSH IY
\ 019B FDE5 PUSH IY
\ 019D E1 POP HL
\ 019E 23 INC HL
\ 019F E5 PUSH HL
\ 01A0 1822 JR ?0080
111 }
112 else
\ 01A2 ?0029:
113 {
114 cur_grouplist=cur_grouplist-1;
\ 01A2 210400 LD HL,4
\ 01A5 39 ADD HL,SP
\ 01A6 7E LD A,(HL)
\ 01A7 C6FF ADD A,255
\ 01A9 77 LD (HL),A
\ 01AA 23 INC HL
\ 01AB 7E LD A,(HL)
\ 01AC CEFF ADC A,255
\ 01AE 77 LD (HL),A
115 top=(filelist_active/6)*6; //顶的序号
\ 01AF CD5503 CALL LWRD ?0089
116 bottom=top+5; //底的序号
117 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 01B2 DD4E04 LD C,(IX+4)
\ 01B5 C5 PUSH BC
\ 01B6 4D LD C,L
\ 01B7 44 LD B,H
\ 01B8 CDB903 CALL LWRD ?0096
\ 01BB E1 POP HL
118 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 01BC DD6E04 LD L,(IX+4)
\ 01BF E5 PUSH HL
\ 01C0 FDE5 PUSH IY
\ 01C2 FDE5 PUSH IY
\ 01C4 ?0080:
\ 01C4 CD9F03 CALL LWRD ?0093
\ 01C7 E1 POP HL
\ 01C8 E1 POP HL
\ 01C9 E1 POP HL
\ 01CA ?0030:
119 }
120 }
121
122 else
\ 01CA 1840 JR ?0031
\ 01CC ?0027:
123 {
124 cur_grouplist=(filetotal-1)/6;
\ 01CC DD5EEE LD E,(IX-18)
\ 01CF DD56EF LD D,(IX-17)
\ 01D2 1B DEC DE
\ 01D3 010600 LD BC,6
\ 01D6 CD7203 CALL LWRD ?0090
125 top=cur_grouplist*6;
126 bottom=filetotal-1;
\ 01D9 DD4EEE LD C,(IX-18)
\ 01DC DD46EF LD B,(IX-17)
\ 01DF 0B DEC BC
\ 01E0 DD71EC LD (IX-20),C
\ 01E3 DD70ED LD (IX-19),B
127 filelist_active=bottom;
128 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 01E6 DD5E04 LD E,(IX+4)
\ 01E9 D5 PUSH DE
\ 01EA EB EX DE,HL
\ 01EB CDBF03 CALL LWRD ?0097
\ 01EE E1 POP HL
129 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 01EF DD6E04 LD L,(IX+4)
\ 01F2 E5 PUSH HL
\ 01F3 DD6EEC LD L,(IX-20)
\ 01F6 DD66ED LD H,(IX-19)
\ 01F9 E5 PUSH HL
\ 01FA E5 PUSH HL
\ 01FB 4D LD C,L
\ 01FC 44 LD B,H
\ 01FD CDA503 CALL LWRD ?0094
\ 0200 E1 POP HL
\ 0201 E1 POP HL
\ 0202 E1 POP HL
\ 0203 DD6EEC LD L,(IX-20)
\ 0206 DD66ED LD H,(IX-19)
\ 0209 E5 PUSH HL
\ 020A FDE1 POP IY
\ 020C ?0031:
\ 020C ?0033:
130 }
131 while(ap_get_message()!=0) {;} //丢掉多余按键
\ 020C CD0000 CALL LWRD ap_get_message
\ 020F B7 OR A
\ 0210 20FA JR NZ,?0031
\ 0212 ?0034:
132 break;
\ 0212 ?0032:
\ 0212 C39400 JP LWRD ?0008
\ 0215 ?0035:
133
134 case AP_KEY_PLAY | AP_KEY_UP:
135 FSELSetLocation(location);
\ 0215 DD5E02 LD E,(IX+2)
\ 0218 DD5603 LD D,(IX+3)
\ 021B 3E00 LD A,BYTE3 fselSetLocation
\ 021D 210000 LD HL,LWRD fselSetLocation
\ 0220 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
136 return RESULT_IGNORE;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -