📄 ui_delete2.lst
字号:
\ 00F1 DD6EE8 LD L,(IX-24)
\ 00F4 DD66E9 LD H,(IX-23)
\ 00F7 A7 AND A
\ 00F8 ED52 SBC HL,DE
\ 00FA 200D JR NZ,?0015
\ 00FC ?0014:
74
75
76
77
78 {
79 ShowFilelist(top,bottom,filelist_active-1,filelist_active,string_id);
\ 00FC DD6E04 LD L,(IX+4)
\ 00FF E5 PUSH HL
\ 0100 FDE5 PUSH IY
\ 0102 FDE5 PUSH IY
\ 0104 E1 POP HL
\ 0105 2B DEC HL
\ 0106 E5 PUSH HL
\ 0107 182A JR ?0076
80 }
81 else
\ 0109 ?0015:
82 {
83 cur_grouplist=cur_grouplist+1;
\ 0109 210400 LD HL,4
\ 010C 39 ADD HL,SP
\ 010D 7E LD A,(HL)
\ 010E C601 ADD A,1
\ 0110 77 LD (HL),A
\ 0111 3002 JR NC,?0075
\ 0113 23 INC HL
\ 0114 34 INC (HL)
\ 0115 ?0075:
84 top=(filelist_active/6)*6; //顶的序号
\ 0115 CD7A03 CALL LWRD ?0084
85 bottom=top+5; //底的序号
86 if(bottom>(filetotal-1))
\ 0118 CDB403 CALL LWRD ?0087
\ 011B 3006 JR NC,?0018
\ 011D ?0017:
87 bottom=filetotal-1;
\ 011D DD75EC LD (IX-20),L
\ 0120 DD74ED LD (IX-19),H
\ 0123 ?0018:
88 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 0123 DD6E04 LD L,(IX+4)
\ 0126 E5 PUSH HL
\ 0127 CDC403 CALL LWRD ?0088
\ 012A E1 POP HL
89 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 012B DD6E04 LD L,(IX+4)
\ 012E E5 PUSH HL
\ 012F FDE5 PUSH IY
\ 0131 FDE5 PUSH IY
\ 0133 ?0076:
\ 0133 1841 JR ?0081
\ 0135 ?0016:
90 }
91
92 }
93
94 else
\ 0135 ?0013:
95 {
96 filelist_active=0;
97 top=0;
98 cur_grouplist=0;
99 bottom=5; //底的序号
100 if(bottom>(filetotal-1))
\ 0135 FD210000 LD IY,0
\ 0139 AF XOR A
\ 013A DD77EA LD (IX-22),A
\ 013D DD77EB LD (IX-21),A
\ 0140 DD77E8 LD (IX-24),A
\ 0143 DD77E9 LD (IX-23),A
\ 0146 DD36EC05 LD (IX-20),5
\ 014A DD77ED LD (IX-19),A
\ 014D 69 LD L,C
\ 014E 60 LD H,B
\ 014F 010580 LD BC,32773
\ 0152 78 LD A,B
\ 0153 AC XOR H
\ 0154 67 LD H,A
\ 0155 ED42 SBC HL,BC
\ 0157 300D JR NC,?0021
\ 0159 ?0020:
101 bottom=filetotal-1;
\ 0159 DD6EEE LD L,(IX-18)
\ 015C DD66EF LD H,(IX-17)
\ 015F 2B DEC HL
\ 0160 DD75EC LD (IX-20),L
\ 0163 DD74ED LD (IX-19),H
\ 0166 ?0021:
102 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 0166 DD6E04 LD L,(IX+4)
\ 0169 E5 PUSH HL
\ 016A CDC403 CALL LWRD ?0088
\ 016D E1 POP HL
103 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 016E DD6E04 LD L,(IX+4)
\ 0171 E5 PUSH HL
\ 0172 FDE5 PUSH IY
\ 0174 FDE5 PUSH IY
\ 0176 ?0081:
\ 0176 DD4EEC LD C,(IX-20)
\ 0179 DD46ED LD B,(IX-19)
\ 017C DD5EEA LD E,(IX-22)
\ 017F DD56EB LD D,(IX-21)
\ 0182 3E00 LD A,BYTE3 ShowFilelist
\ 0184 210000 LD HL,LWRD ShowFilelist
\ 0187 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 018A E1 POP HL
\ 018B E1 POP HL
\ 018C E1 POP HL
\ 018D ?0019:
\ 018D ?0023:
104 }
105 while(ap_get_message()!=0) {;} //丢掉多余按键
\ 018D CD0000 CALL LWRD ap_get_message
\ 0190 B7 OR A
\ 0191 20FA JR NZ,?0019
\ 0193 ?0024:
106 break;
\ 0193 ?0022:
\ 0193 C3A400 JP LWRD ?0008
\ 0196 ?0025:
107
108 case AP_KEY_PREV:
109 case AP_KEY_PREV | AP_KEY_HOLD :
110 if(filelist_active >0)
\ 0196 FDE5 PUSH IY
\ 0198 C1 POP BC
\ 0199 6A LD L,D
\ 019A 62 LD H,D
\ 019B CD0000 CALL LWRD ?SS_CMP_L02
\ 019E 305E JR NC,?0027
\ 01A0 ?0026:
111 {
112 filelist_active--;
113 if(filelist_active/6==cur_grouplist)
\ 01A0 010600 LD BC,6
\ 01A3 FD2B DEC IY
\ 01A5 FDE5 PUSH IY
\ 01A7 D1 POP DE
\ 01A8 CD0000 CALL LWRD ?SS_DIV_L02
\ 01AB DD6EE8 LD L,(IX-24)
\ 01AE DD66E9 LD H,(IX-23)
\ 01B1 A7 AND A
\ 01B2 ED52 SBC HL,DE
\ 01B4 200D JR NZ,?0029
\ 01B6 ?0028:
114 {
115 ShowFilelist(top,bottom,filelist_active+1,filelist_active,string_id);
\ 01B6 DD6E04 LD L,(IX+4)
\ 01B9 E5 PUSH HL
\ 01BA FDE5 PUSH IY
\ 01BC FDE5 PUSH IY
\ 01BE E1 POP HL
\ 01BF 23 INC HL
\ 01C0 E5 PUSH HL
\ 01C1 1822 JR ?0077
116 }
117 else
\ 01C3 ?0029:
118 {
119 cur_grouplist=cur_grouplist-1;
\ 01C3 210400 LD HL,4
\ 01C6 39 ADD HL,SP
\ 01C7 7E LD A,(HL)
\ 01C8 C6FF ADD A,255
\ 01CA 77 LD (HL),A
\ 01CB 23 INC HL
\ 01CC 7E LD A,(HL)
\ 01CD CEFF ADC A,255
\ 01CF 77 LD (HL),A
120 top=(filelist_active/6)*6; //顶的序号
\ 01D0 CD7A03 CALL LWRD ?0084
121 bottom=top+5; //底的序号
122 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 01D3 DD4E04 LD C,(IX+4)
\ 01D6 C5 PUSH BC
\ 01D7 4D LD C,L
\ 01D8 44 LD B,H
\ 01D9 CDCA03 CALL LWRD ?0089
\ 01DC E1 POP HL
123 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 01DD DD6E04 LD L,(IX+4)
\ 01E0 E5 PUSH HL
\ 01E1 FDE5 PUSH IY
\ 01E3 FDE5 PUSH IY
\ 01E5 ?0077:
\ 01E5 DD4EEC LD C,(IX-20)
\ 01E8 DD46ED LD B,(IX-19)
\ 01EB DD5EEA LD E,(IX-22)
\ 01EE DD56EB LD D,(IX-21)
\ 01F1 3E00 LD A,BYTE3 ShowFilelist
\ 01F3 210000 LD HL,LWRD ShowFilelist
\ 01F6 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 01F9 E1 POP HL
\ 01FA E1 POP HL
\ 01FB E1 POP HL
\ 01FC ?0030:
124 }
125 }
126
127 else
\ 01FC 184B JR ?0031
\ 01FE ?0027:
128 {
129 cur_grouplist=(filetotal-1)/6;
\ 01FE DD5EEE LD E,(IX-18)
\ 0201 DD56EF LD D,(IX-17)
\ 0204 1B DEC DE
\ 0205 010600 LD BC,6
\ 0208 CD9703 CALL LWRD ?0085
130 top=cur_grouplist*6;
131 bottom=filetotal-1;
\ 020B DD4EEE LD C,(IX-18)
\ 020E DD46EF LD B,(IX-17)
\ 0211 0B DEC BC
\ 0212 DD71EC LD (IX-20),C
\ 0215 DD70ED LD (IX-19),B
132 filelist_active=bottom;
133 reinit_idm_buf_filelist(top, bottom, string_id); //换页要重新初始化IDM数据
\ 0218 DD5E04 LD E,(IX+4)
\ 021B D5 PUSH DE
\ 021C EB EX DE,HL
\ 021D CDD003 CALL LWRD ?0090
\ 0220 E1 POP HL
134 ShowFilelist(top,bottom,filelist_active,filelist_active,string_id);
\ 0221 DD6E04 LD L,(IX+4)
\ 0224 E5 PUSH HL
\ 0225 DD6EEC LD L,(IX-20)
\ 0228 DD66ED LD H,(IX-19)
\ 022B E5 PUSH HL
\ 022C E5 PUSH HL
\ 022D 4D LD C,L
\ 022E 44 LD B,H
\ 022F DD5EEA LD E,(IX-22)
\ 0232 DD56EB LD D,(IX-21)
\ 0235 3E00 LD A,BYTE3 ShowFilelist
\ 0237 210000 LD HL,LWRD ShowFilelist
\ 023A CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 023D E1 POP HL
\ 023E E1 POP HL
\ 023F E1 POP HL
\ 0240 DD6EEC LD L,(IX-20)
\ 0243 DD66ED LD H,(IX-19)
\ 0246 E5 PUSH HL
\ 0247 FDE1 POP IY
\ 0249 ?0031:
\ 0249 ?0033:
135 }
136 while(ap_get_message()!=0) {;} //丢掉多余按键
\ 0249 CD0000 CALL LWRD ap_get_message
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -