📄 ui_delete2.lst
字号:
\ 0101 ?0076:
\ 0101 F25001 JP P,?0013
\ 0104 ?0012:
70 {
71
72 filelist_active++;
73 if(filelist_active/6==cur_grouplist)
\ 0104 010600 LD BC,6
\ 0107 FD23 INC IY
\ 0109 FDE5 PUSH IY
\ 010B D1 POP DE
\ 010C CD0000 CALL LWRD ?SS_DIV_L02
\ 010F DD6EE4 LD L,(IX-28)
\ 0112 DD66E5 LD H,(IX-27)
\ 0115 A7 AND A
\ 0116 ED52 SBC HL,DE
\ 0118 200D JR NZ,?0015
\ 011A ?0014:
74
75
76
77
78 {
79 ShowFilelist(top,bottom,filelist_active-1,filelist_active,string_id);
\ 011A DD6EFE LD L,(IX-2)
\ 011D E5 PUSH HL
\ 011E FDE5 PUSH IY
\ 0120 FDE5 PUSH IY
\ 0122 E1 POP HL
\ 0123 2B DEC HL
\ 0124 E5 PUSH HL
\ 0125 186A JR ?0086
80 }
81 else
\ 0127 ?0015:
82 {
83 cur_grouplist=cur_grouplist+1;
\ 0127 210200 LD HL,2
\ 012A 39 ADD HL,SP
\ 012B 7E LD A,(HL)
\ 012C C601 ADD A,1
\ 012E 77 LD (HL),A
\ 012F 3002 JR NC,?0077
\ 0131 23 INC HL
\ 0132 34 INC (HL)
\ 0133 ?0077:
84 top=(filelist_active/6)*6; //顶的序号
\ 0133 CD8703 CALL LWRD ?0091
85 bottom=top+5; //底的序号
86 if(bottom>(filetotal-1))
\ 0136 DD6EEA LD L,(IX-22)
\ 0139 DD66EB LD H,(IX-21)
\ 013C 2B DEC HL
\ 013D DD4EE8 LD C,(IX-24)
\ 0140 DD46E9 LD B,(IX-23)
\ 0143 F680 OR 128
\ 0145 ED42 SBC HL,BC
\ 0147 E24B01 JP PO,?0078
\ 014A AC XOR H
\ 014B ?0078:
\ 014B F28101 JP P,?0021
\ 014E ?0017:
87 bottom=filetotal-1;
\ 014E 1824 JR ?0088
\ 0150 ?0018:
88 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
89 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 0150 ?0016:
90 }
91
92 }
93
94 else
\ 0150 ?0013:
95 {
96 filelist_active=0;
97 top=0;
98 cur_grouplist=0;
99 bottom=5; //底的序号
100 if(bottom>(filetotal-1))
\ 0150 FD210000 LD IY,0
\ 0154 AF XOR A
\ 0155 DD77E6 LD (IX-26),A
\ 0158 DD77E7 LD (IX-25),A
\ 015B DD77E4 LD (IX-28),A
\ 015E DD77E5 LD (IX-27),A
\ 0161 DD36E805 LD (IX-24),5
\ 0165 DD77E9 LD (IX-23),A
\ 0168 69 LD L,C
\ 0169 60 LD H,B
\ 016A 010580 LD BC,32773
\ 016D 78 LD A,B
\ 016E AC XOR H
\ 016F 67 LD H,A
\ 0170 ED42 SBC HL,BC
\ 0172 300D JR NC,?0021
\ 0174 ?0020:
101 bottom=filetotal-1;
\ 0174 ?0088:
\ 0174 DD6EEA LD L,(IX-22)
\ 0177 DD66EB LD H,(IX-21)
\ 017A 2B DEC HL
\ 017B DD75E8 LD (IX-24),L
\ 017E DD74E9 LD (IX-23),H
\ 0181 ?0021:
102 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 0181 DD6EFE LD L,(IX-2)
\ 0184 E5 PUSH HL
\ 0185 CDCE03 CALL LWRD ?0095
\ 0188 E1 POP HL
103 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 0189 DD6EFE LD L,(IX-2)
\ 018C E5 PUSH HL
\ 018D FDE5 PUSH IY
\ 018F FDE5 PUSH IY
\ 0191 ?0086:
\ 0191 CDBA03 CALL LWRD ?0093
\ 0194 E1 POP HL
\ 0195 E1 POP HL
\ 0196 E1 POP HL
\ 0197 ?0019:
\ 0197 ?0023:
104 }
105 while(ap_get_message()!=0) {;} //丢掉多余按键
\ 0197 CD0000 CALL LWRD ap_get_message
\ 019A B7 OR A
\ 019B CABC00 JP Z,?0008
\ 019E ?0024:
106 break;
\ 019E 18F7 JR ?0019
\ 01A0 ?0022:
\ 01A0 ?0025:
107
108 case AP_KEY_PREV:
109 case AP_KEY_PREV | AP_KEY_HOLD :
110 if(filelist_active >0)
\ 01A0 FDE5 PUSH IY
\ 01A2 C1 POP BC
\ 01A3 6A LD L,D
\ 01A4 62 LD H,D
\ 01A5 F680 OR 128
\ 01A7 ED42 SBC HL,BC
\ 01A9 E2AD01 JP PO,?0079
\ 01AC AC XOR H
\ 01AD ?0079:
\ 01AD F2FD01 JP P,?0027
\ 01B0 ?0026:
111 {
112 filelist_active--;
113 if(filelist_active/6==cur_grouplist)
\ 01B0 010600 LD BC,6
\ 01B3 FD2B DEC IY
\ 01B5 FDE5 PUSH IY
\ 01B7 D1 POP DE
\ 01B8 CD0000 CALL LWRD ?SS_DIV_L02
\ 01BB DD6EE4 LD L,(IX-28)
\ 01BE DD66E5 LD H,(IX-27)
\ 01C1 A7 AND A
\ 01C2 ED52 SBC HL,DE
\ 01C4 200D JR NZ,?0029
\ 01C6 ?0028:
114 {
115 ShowFilelist(top,bottom,filelist_active+1,filelist_active,string_id);
\ 01C6 DD6EFE LD L,(IX-2)
\ 01C9 E5 PUSH HL
\ 01CA FDE5 PUSH IY
\ 01CC FDE5 PUSH IY
\ 01CE E1 POP HL
\ 01CF 23 INC HL
\ 01D0 E5 PUSH HL
\ 01D1 1822 JR ?0082
116 }
117 else
\ 01D3 ?0029:
118 {
119 cur_grouplist=cur_grouplist-1;
\ 01D3 210200 LD HL,2
\ 01D6 39 ADD HL,SP
\ 01D7 7E LD A,(HL)
\ 01D8 C6FF ADD A,255
\ 01DA 77 LD (HL),A
\ 01DB 23 INC HL
\ 01DC 7E LD A,(HL)
\ 01DD CEFF ADC A,255
\ 01DF 77 LD (HL),A
120 top=(filelist_active/6)*6; //顶的序号
\ 01E0 CD8703 CALL LWRD ?0091
121 bottom=top+5; //底的序号
122 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 01E3 DD4EFE LD C,(IX-2)
\ 01E6 C5 PUSH BC
\ 01E7 4D LD C,L
\ 01E8 44 LD B,H
\ 01E9 CDD403 CALL LWRD ?0096
\ 01EC E1 POP HL
123 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 01ED DD6EFE LD L,(IX-2)
\ 01F0 E5 PUSH HL
\ 01F1 FDE5 PUSH IY
\ 01F3 FDE5 PUSH IY
\ 01F5 ?0082:
\ 01F5 CDBA03 CALL LWRD ?0093
\ 01F8 E1 POP HL
\ 01F9 E1 POP HL
\ 01FA E1 POP HL
\ 01FB ?0030:
124 }
125 }
126
127 else
\ 01FB 1840 JR ?0031
\ 01FD ?0027:
128 {
129 cur_grouplist=(filetotal-1)/6;
\ 01FD DD5EEA LD E,(IX-22)
\ 0200 DD56EB LD D,(IX-21)
\ 0203 1B DEC DE
\ 0204 010600 LD BC,6
\ 0207 CDA403 CALL LWRD ?0092
130 top=cur_grouplist*6;
131 bottom=filetotal-1;
\ 020A DD4EEA LD C,(IX-22)
\ 020D DD46EB LD B,(IX-21)
\ 0210 0B DEC BC
\ 0211 DD71E8 LD (IX-24),C
\ 0214 DD70E9 LD (IX-23),B
132 filelist_active=bottom;
133 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 0217 DD5EFE LD E,(IX-2)
\ 021A D5 PUSH DE
\ 021B EB EX DE,HL
\ 021C CDDA03 CALL LWRD ?0097
\ 021F E1 POP HL
134 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 0220 DD6EFE LD L,(IX-2)
\ 0223 E5 PUSH HL
\ 0224 DD6EE8 LD L,(IX-24)
\ 0227 DD66E9 LD H,(IX-23)
\ 022A E5 PUSH HL
\ 022B E5 PUSH HL
\ 022C 4D LD C,L
\ 022D 44 LD B,H
\ 022E CDC003 CALL LWRD ?0094
\ 0231 E1 POP HL
\ 0232 E1 POP HL
\ 0233 E1 POP HL
\ 0234 DD6EE8 LD L,(IX-24)
\ 0237 DD66E9 LD H,(IX-23)
\ 023A E5 PUSH HL
\ 023B FDE1 POP IY
\ 023D ?0031:
\ 023D ?0033:
135 }
136 while(ap_get_message()!=0) {;} //丢掉多余按键
\ 023D CD0000 CALL LWRD ap_get_message
\ 0240 B7 OR A
\ 0241 CABC00 JP Z,?0008
\ 0244 ?0034:
137 break;
\ 0244 18F7 JR ?0031
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -