📄 ui_delete2.lst
字号:
\ 0102 ?0079:
\ 0102 F25101 JP P,?0013
\ 0105 ?0012:
70 {
71
72 filelist_active++;
73 if(filelist_active/6==cur_grouplist)
\ 0105 010600 LD BC,6
\ 0108 FD23 INC IY
\ 010A FDE5 PUSH IY
\ 010C D1 POP DE
\ 010D CD0000 CALL LWRD ?SS_DIV_L02
\ 0110 DD6EE4 LD L,(IX-28)
\ 0113 DD66E5 LD H,(IX-27)
\ 0116 A7 AND A
\ 0117 ED52 SBC HL,DE
\ 0119 200D JR NZ,?0015
\ 011B ?0014:
74 {
75 ShowFilelist(top,bottom,filelist_active-1,filelist_active,string_id);
\ 011B DD6EFE LD L,(IX-2)
\ 011E E5 PUSH HL
\ 011F FDE5 PUSH IY
\ 0121 FDE5 PUSH IY
\ 0123 E1 POP HL
\ 0124 2B DEC HL
\ 0125 E5 PUSH HL
\ 0126 186A JR ?0089
76 }
77 else
\ 0128 ?0015:
78 {
79 cur_grouplist=cur_grouplist+1;
\ 0128 210200 LD HL,2
\ 012B 39 ADD HL,SP
\ 012C 7E LD A,(HL)
\ 012D C601 ADD A,1
\ 012F 77 LD (HL),A
\ 0130 3002 JR NC,?0080
\ 0132 23 INC HL
\ 0133 34 INC (HL)
\ 0134 ?0080:
80 top=(filelist_active/6)*6; //顶的序号
\ 0134 CDAF03 CALL LWRD ?0094
81 bottom=top+5; //底的序号
82 if(bottom>(filetotal-1))
\ 0137 DD6EEA LD L,(IX-22)
\ 013A DD66EB LD H,(IX-21)
\ 013D 2B DEC HL
\ 013E DD4EE8 LD C,(IX-24)
\ 0141 DD46E9 LD B,(IX-23)
\ 0144 F680 OR 128
\ 0146 ED42 SBC HL,BC
\ 0148 E24C01 JP PO,?0081
\ 014B AC XOR H
\ 014C ?0081:
\ 014C F28201 JP P,?0021
\ 014F ?0017:
83 bottom=filetotal-1;
\ 014F 1824 JR ?0091
\ 0151 ?0018:
84 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
85 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 0151 ?0016:
86 }
87
88 }
89 else
\ 0151 ?0013:
90 {
91 filelist_active=0;
92 top=0;
93 cur_grouplist=0;
94 bottom=5; //底的序号
95 if(bottom>(filetotal-1))
\ 0151 FD210000 LD IY,0
\ 0155 AF XOR A
\ 0156 DD77E6 LD (IX-26),A
\ 0159 DD77E7 LD (IX-25),A
\ 015C DD77E4 LD (IX-28),A
\ 015F DD77E5 LD (IX-27),A
\ 0162 DD36E805 LD (IX-24),5
\ 0166 DD77E9 LD (IX-23),A
\ 0169 69 LD L,C
\ 016A 60 LD H,B
\ 016B 010580 LD BC,32773
\ 016E 78 LD A,B
\ 016F AC XOR H
\ 0170 67 LD H,A
\ 0171 ED42 SBC HL,BC
\ 0173 300D JR NC,?0021
\ 0175 ?0020:
96 bottom=filetotal-1;
\ 0175 ?0091:
\ 0175 DD6EEA LD L,(IX-22)
\ 0178 DD66EB LD H,(IX-21)
\ 017B 2B DEC HL
\ 017C DD75E8 LD (IX-24),L
\ 017F DD74E9 LD (IX-23),H
\ 0182 ?0021:
97 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 0182 DD6EFE LD L,(IX-2)
\ 0185 E5 PUSH HL
\ 0186 CDF603 CALL LWRD ?0098
\ 0189 E1 POP HL
98 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 018A DD6EFE LD L,(IX-2)
\ 018D E5 PUSH HL
\ 018E FDE5 PUSH IY
\ 0190 FDE5 PUSH IY
\ 0192 ?0089:
\ 0192 CDE203 CALL LWRD ?0096
\ 0195 E1 POP HL
\ 0196 E1 POP HL
\ 0197 E1 POP HL
\ 0198 ?0019:
\ 0198 ?0023:
99 }
100 while(ap_get_message()!=0) {;} //丢掉多余按键
\ 0198 CD0000 CALL LWRD ap_get_message
\ 019B B7 OR A
\ 019C CABD00 JP Z,?0008
\ 019F ?0024:
101 break;
\ 019F 18F7 JR ?0019
\ 01A1 ?0022:
\ 01A1 ?0025:
102
103 case AP_KEY_PREV:
104 case AP_KEY_PREV | AP_KEY_HOLD :
105 if(filelist_active >0)
\ 01A1 FDE5 PUSH IY
\ 01A3 C1 POP BC
\ 01A4 6A LD L,D
\ 01A5 62 LD H,D
\ 01A6 F680 OR 128
\ 01A8 ED42 SBC HL,BC
\ 01AA E2AE01 JP PO,?0082
\ 01AD AC XOR H
\ 01AE ?0082:
\ 01AE F2FE01 JP P,?0027
\ 01B1 ?0026:
106 {
107 filelist_active--;
108 if(filelist_active/6==cur_grouplist)
\ 01B1 010600 LD BC,6
\ 01B4 FD2B DEC IY
\ 01B6 FDE5 PUSH IY
\ 01B8 D1 POP DE
\ 01B9 CD0000 CALL LWRD ?SS_DIV_L02
\ 01BC DD6EE4 LD L,(IX-28)
\ 01BF DD66E5 LD H,(IX-27)
\ 01C2 A7 AND A
\ 01C3 ED52 SBC HL,DE
\ 01C5 200D JR NZ,?0029
\ 01C7 ?0028:
109 {
110 ShowFilelist(top,bottom,filelist_active+1,filelist_active,string_id);
\ 01C7 DD6EFE LD L,(IX-2)
\ 01CA E5 PUSH HL
\ 01CB FDE5 PUSH IY
\ 01CD FDE5 PUSH IY
\ 01CF E1 POP HL
\ 01D0 23 INC HL
\ 01D1 E5 PUSH HL
\ 01D2 1822 JR ?0085
111 }
112 else
\ 01D4 ?0029:
113 {
114 cur_grouplist=cur_grouplist-1;
\ 01D4 210200 LD HL,2
\ 01D7 39 ADD HL,SP
\ 01D8 7E LD A,(HL)
\ 01D9 C6FF ADD A,255
\ 01DB 77 LD (HL),A
\ 01DC 23 INC HL
\ 01DD 7E LD A,(HL)
\ 01DE CEFF ADC A,255
\ 01E0 77 LD (HL),A
115 top=(filelist_active/6)*6; //顶的序号
\ 01E1 CDAF03 CALL LWRD ?0094
116 bottom=top+5; //底的序号
117 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 01E4 DD4EFE LD C,(IX-2)
\ 01E7 C5 PUSH BC
\ 01E8 4D LD C,L
\ 01E9 44 LD B,H
\ 01EA CDFC03 CALL LWRD ?0099
\ 01ED E1 POP HL
118 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 01EE DD6EFE LD L,(IX-2)
\ 01F1 E5 PUSH HL
\ 01F2 FDE5 PUSH IY
\ 01F4 FDE5 PUSH IY
\ 01F6 ?0085:
\ 01F6 CDE203 CALL LWRD ?0096
\ 01F9 E1 POP HL
\ 01FA E1 POP HL
\ 01FB E1 POP HL
\ 01FC ?0030:
119 }
120 }
121
122 else
\ 01FC 1840 JR ?0031
\ 01FE ?0027:
123 {
124 cur_grouplist=(filetotal-1)/6;
\ 01FE DD5EEA LD E,(IX-22)
\ 0201 DD56EB LD D,(IX-21)
\ 0204 1B DEC DE
\ 0205 010600 LD BC,6
\ 0208 CDCC03 CALL LWRD ?0095
125 top=cur_grouplist*6;
126 bottom=filetotal-1;
\ 020B DD4EEA LD C,(IX-22)
\ 020E DD46EB LD B,(IX-21)
\ 0211 0B DEC BC
\ 0212 DD71E8 LD (IX-24),C
\ 0215 DD70E9 LD (IX-23),B
127 filelist_active=bottom;
128 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 0218 DD5EFE LD E,(IX-2)
\ 021B D5 PUSH DE
\ 021C EB EX DE,HL
\ 021D CD0204 CALL LWRD ?0100
\ 0220 E1 POP HL
129 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 0221 DD6EFE LD L,(IX-2)
\ 0224 E5 PUSH HL
\ 0225 DD6EE8 LD L,(IX-24)
\ 0228 DD66E9 LD H,(IX-23)
\ 022B E5 PUSH HL
\ 022C E5 PUSH HL
\ 022D 4D LD C,L
\ 022E 44 LD B,H
\ 022F CDE803 CALL LWRD ?0097
\ 0232 E1 POP HL
\ 0233 E1 POP HL
\ 0234 E1 POP HL
\ 0235 DD6EE8 LD L,(IX-24)
\ 0238 DD66E9 LD H,(IX-23)
\ 023B E5 PUSH HL
\ 023C FDE1 POP IY
\ 023E ?0031:
\ 023E ?0033:
130 }
131 while(ap_get_message()!=0) {;} //丢掉多余按键
\ 023E CD0000 CALL LWRD ap_get_message
\ 0241 B7 OR A
\ 0242 CABD00 JP Z,?0008
\ 0245 ?0034:
132 break;
\ 0245 18F7 JR ?0031
\ 0247 ?0032:
\ 0247 ?0035:
133
134 case AP_KEY_PLAY | AP_KEY_UP:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -