ui_delete3.lst
来自「炬力方案176*132软件源码,适用于AK1025」· LST 代码 · 共 672 行 · 第 1/3 页
LST
672 行
57
58 }
59 }
\ 00CD C34600 JP LWRD ?0003
\ 00D0 ?0002:
\ 00D0 C30000 JP LWRD ?BANK_LEAVE_DIRECT_L08
\ 00D3 read_idm_data_filelist:
60
61 //读数据到数组name中
62 void read_idm_data_filelist(char *name, int count)
63 {
\ 00D3 CD0000 CALL LWRD ?ENT_AUTO_DIRECT_L09
\ 00D6 0000 DEFW 0
64 byte status;
65 status = input8(0x05);
\ 00D8 DB05 IN A,(5)
\ 00DA 5F LD E,A
66 output8(0x05 ,0xf6);
\ 00DB 3EF6 LD A,246
\ 00DD D305 OUT (5),A
67 memcpy(name, com_delname[count], 50);
\ 00DF D5 PUSH DE
\ 00E0 013200 LD BC,50
\ 00E3 DD5E02 LD E,(IX+2)
\ 00E6 DD5603 LD D,(IX+3)
\ 00E9 D5 PUSH DE
\ 00EA DD5E04 LD E,(IX+4)
\ 00ED DD5605 LD D,(IX+5)
\ 00F0 CD0000 CALL LWRD ?S_MUL_L02
\ 00F3 210000 LD HL,com_delname
\ 00F6 19 ADD HL,DE
\ 00F7 D1 POP DE
\ 00F8 C32400 JP LWRD ?0025
68 output8(0x05, status);
69 }
\ 00FB ShowFilelist:
70
71
72 /********************************************************************************
73 * Description : show the directory.
74 *
75 * Arguments :
76 * location: get thedisk type
77 * Invpath: the "\" or name
78 * Namebuf:the string you will display
79 * type : show file kind
80 * string_id: language type
81 * Returns :
82 * other: Successful
83 * 0: Fail, detail information in fselError
84 * Notes : only display the valid directory
85 *
86 ********************************************************************************/
87 void ShowFilelist(int top,int bottom,int Old_active,int active,BYTE string_id)
88 {
\ 00FB CD0000 CALL LWRD ?ENT_AUTO_DIRECT_L09
\ 00FE CCFF DEFW -52
\ 0100 FDE5 PUSH IY
89
90 int i,tmp;
91 char Longnamebuf[50];
92 // SetAsciiFont(FONT_TYPE_SMALL);
93 ///-SetTextOutMode(1);
94
95 if(Old_active!=active)
\ 0102 DD6E0C LD L,(IX+12)
\ 0105 DD660D LD H,(IX+13)
\ 0108 DD5E0A LD E,(IX+10)
\ 010B DD560B LD D,(IX+11)
\ 010E A7 AND A
\ 010F ED52 SBC HL,DE
\ 0111 CA9E01 JP Z,?0010
\ 0114 ?0009:
96 {
97 //清除旧的活动列表项
98 tmp=Old_active%6;
\ 0114 010600 LD BC,6
\ 0117 CDB302 CALL LWRD ?0026
99 ResShowPic(FILEBCK1, 12, menu_pos_list[tmp]-1);
\ 011A C6FF ADD A,255
\ 011C 4F LD C,A
\ 011D C5 PUSH BC
\ 011E 0E0C LD C,12
\ 0120 112D00 LD DE,45
\ 0123 CDC402 CALL LWRD ?0027
\ 0126 F1 POP AF
100 ResShowPic(MFILE,0,menu_pos_list[tmp]+2);
\ 0127 210000 LD HL,menu_pos_list
\ 012A FDE5 PUSH IY
\ 012C C1 POP BC
\ 012D 09 ADD HL,BC
\ 012E 7E LD A,(HL)
\ 012F C602 ADD A,2
\ 0131 5F LD E,A
\ 0132 D5 PUSH DE
\ 0133 CDBF02 CALL LWRD ?0028
\ 0136 F1 POP AF
101 SetTextPos(12, menu_pos_list[tmp]);
\ 0137 CDCC02 CALL LWRD ?0030
102 read_idm_data_filelist(Longnamebuf,tmp);
\ 013A 39 ADD HL,SP
\ 013B CDE002 CALL LWRD ?0031
103 SetPenColor(Color_BLACK_def); //取列表名
\ 013E CDE902 CALL LWRD ?0032
104 SetBackgdColor(Color_MENU_def);
\ 0141 CD0000 CALL LWRD SetBackgdColor
105 PutS(Longnamebuf, -1);
\ 0144 0EFF LD C,255
\ 0146 210400 LD HL,4
\ 0149 39 ADD HL,SP
\ 014A EB EX DE,HL
\ 014B CD0000 CALL LWRD PutS
106
107 //显示当前活动项
108 tmp=active%6;
\ 014E 010600 LD BC,6
\ 0151 DD5E0C LD E,(IX+12)
\ 0154 DD560D LD D,(IX+13)
\ 0157 CDB302 CALL LWRD ?0026
109 ResShowPic(MFILE,0,menu_pos_list[tmp]+2);
\ 015A C602 ADD A,2
\ 015C 4F LD C,A
\ 015D C5 PUSH BC
\ 015E 48 LD C,B
\ 015F CDC102 CALL LWRD ?0029
\ 0162 F1 POP AF
110 ResShowPic(FILEBCK, 12, menu_pos_list[tmp]-1);
\ 0163 210000 LD HL,menu_pos_list
\ 0166 FDE5 PUSH IY
\ 0168 C1 POP BC
\ 0169 09 ADD HL,BC
\ 016A 7E LD A,(HL)
\ 016B C6FF ADD A,255
\ 016D 5F LD E,A
\ 016E D5 PUSH DE
\ 016F 0E0C LD C,12
\ 0171 112C00 LD DE,44
\ 0174 CDC402 CALL LWRD ?0027
\ 0177 F1 POP AF
111 SetTextPos(12, menu_pos_list[tmp]);
\ 0178 CDCC02 CALL LWRD ?0030
112 read_idm_data_filelist(Longnamebuf,tmp);
\ 017B 39 ADD HL,SP
\ 017C CDE002 CALL LWRD ?0031
113 SetPenColor(Color_WHITE_def); //取列表名
\ 017F 010000 LD BC,0
\ 0182 11FFFF LD DE,65535
\ 0185 CD0000 CALL LWRD SetPenColor
114 SetBackgdColor(0x00003358);
\ 0188 010000 LD BC,0
\ 018B 115833 LD DE,13144
\ 018E CD0000 CALL LWRD SetBackgdColor
115 PutS(Longnamebuf, -1);
\ 0191 0EFF LD C,255
\ 0193 210400 LD HL,4
\ 0196 39 ADD HL,SP
\ 0197 EB EX DE,HL
\ 0198 CD0000 CALL LWRD PutS
116 }
117 else //if(Old_active==active) 刷新一页屏
\ 019B C3A602 JP LWRD ?0012
\ 019E ?0010:
118 {
119 ///-SetTextOutMode(1);
120 SetBackgdColor(0x0000df1c);
\ 019E 4D LD C,L
\ 019F 44 LD B,H
\ 01A0 111CDF LD DE,57116
\ 01A3 CD0000 CALL LWRD SetBackgdColor
121 ResShowPic(MENUTWO1,0,0);
\ 01A6 0E00 LD C,0
\ 01A8 C5 PUSH BC
\ 01A9 11C400 LD DE,196
\ 01AC CDC402 CALL LWRD ?0027
\ 01AF F1 POP AF
122 SetPenColor(Color_BLACK_def);
\ 01B0 010000 LD BC,0
\ 01B3 59 LD E,C
\ 01B4 50 LD D,B
\ 01B5 CD0000 CALL LWRD SetPenColor
123 ResShowMultiString(CDELFILE,string_id, 255, 1);
\ 01B8 0E01 LD C,1
\ 01BA C5 PUSH BC
\ 01BB 0EFF LD C,255
\ 01BD C5 PUSH BC
\ 01BE DD4E0E LD C,(IX+14)
\ 01C1 113E02 LD DE,574
\ 01C4 3E00 LD A,BYTE3 ResShowMultiString
\ 01C6 210000 LD HL,LWRD ResShowMultiString
\ 01C9 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
\ 01CC F1 POP AF
\ 01CD F1 POP AF
124 SetBackgdColor(Color_MENU_def);
\ 01CE 010000 LD BC,0
\ 01D1 11FFFF LD DE,65535
\ 01D4 CD0000 CALL LWRD SetBackgdColor
125 ///-SetTextOutMode(0);
126 //显示列表名
127 for(i=top;i<=bottom;i++)
\ 01D7 DD6E02 LD L,(IX+2)
\ 01DA DD6603 LD H,(IX+3)
\ 01DD DD75CC LD (IX-52),L
\ 01E0 DD74CD LD (IX-51),H
\ 01E3 ?0013:
\ 01E3 DD4ECC LD C,(IX-52)
\ 01E6 DD46CD LD B,(IX-51)
\ 01E9 DD6E04 LD L,(IX+4)
\ 01EC DD6605 LD H,(IX+5)
\ 01EF CD0000 CALL LWRD ?SS_CMP_L02
\ 01F2 DAA602 JP C,?0012
\ 01F5 ?0014:
128 {
129 tmp=i%6;
\ 01F5 010600 LD BC,6
\ 01F8 DD5ECC LD E,(IX-52)
\ 01FB DD56CD LD D,(IX-51)
\ 01FE CD0000 CALL LWRD ?SS_MOD_L02
\ 0201 D5 PUSH DE
\ 0202 FDE1 POP IY
130 if(i==active)
\ 0204 DD6E0C LD L,(IX+12)
\ 0207 DD660D LD H,(IX+13)
\ 020A DD4ECC LD C,(IX-52)
\ 020D DD46CD LD B,(IX-51)
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?