📄 ui_clock.lst
字号:
\ 0157 5D LD E,L
\ 0158 54 LD D,H
\ 0159 CD0000 CALL LWRD PutS
\ 015C ?0017:
114 }
115
116 itoa_2(date.month, buf);
\ 015C 211400 LD HL,20
\ 015F 39 ADD HL,SP
\ 0160 4D LD C,L
\ 0161 44 LD B,H
\ 0162 DD5ED6 LD E,(IX-42)
\ 0165 3E00 LD A,BYTE3 itoa_2
\ 0167 210000 LD HL,LWRD itoa_2
\ 016A CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
117
118 SetTextPos(88-9,47-2);
\ 016D 0E2D LD C,45
\ 016F 1E4F LD E,79
\ 0171 CD0000 CALL LWRD SetTextPos
119 if(set_what == 2)
\ 0174 DD46DC LD B,(IX-36)
\ 0177 05 DEC B
\ 0178 05 DEC B
\ 0179 2016 JR NZ,?0019
\ 017B ?0018:
120 {
121 SetBackgdColor(Color_BLACK_def);
\ 017B 010000 LD BC,0
\ 017E 110000 LD DE,0
\ 0181 CD0000 CALL LWRD SetBackgdColor
122 PutS(buf, -1);
\ 0184 0EFF LD C,255
\ 0186 211400 LD HL,20
\ 0189 39 ADD HL,SP
\ 018A 5D LD E,L
\ 018B 54 LD D,H
\ 018C CD0000 CALL LWRD PutS
123 }
124 else
\ 018F 1814 JR ?0020
\ 0191 ?0019:
125 {
126 SetBackgdColor(0x930);
\ 0191 010000 LD BC,0
\ 0194 113009 LD DE,2352
\ 0197 CD0000 CALL LWRD SetBackgdColor
127 PutS(buf, -1);
\ 019A 0EFF LD C,255
\ 019C 211400 LD HL,20
\ 019F 39 ADD HL,SP
\ 01A0 5D LD E,L
\ 01A1 54 LD D,H
\ 01A2 CD0000 CALL LWRD PutS
\ 01A5 ?0020:
128 }
129
130 itoa_2(date.day, buf);
\ 01A5 211400 LD HL,20
\ 01A8 39 ADD HL,SP
\ 01A9 4D LD C,L
\ 01AA 44 LD B,H
\ 01AB DD5ED7 LD E,(IX-41)
\ 01AE 3E00 LD A,BYTE3 itoa_2
\ 01B0 210000 LD HL,LWRD itoa_2
\ 01B3 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
131
132 SetTextPos(145-9,47-2);
\ 01B6 0E2D LD C,45
\ 01B8 1E88 LD E,136
\ 01BA CD0000 CALL LWRD SetTextPos
133 if(set_what == 3)
\ 01BD DD7EDC LD A,(IX-36)
\ 01C0 FE03 CP 3
\ 01C2 2016 JR NZ,?0022
\ 01C4 ?0021:
134 {
135 SetBackgdColor(Color_BLACK_def);
\ 01C4 010000 LD BC,0
\ 01C7 110000 LD DE,0
\ 01CA CD0000 CALL LWRD SetBackgdColor
136 PutS(buf, -1);
\ 01CD 0EFF LD C,255
\ 01CF 211400 LD HL,20
\ 01D2 39 ADD HL,SP
\ 01D3 5D LD E,L
\ 01D4 54 LD D,H
\ 01D5 CD0000 CALL LWRD PutS
137 }
138 else
\ 01D8 1814 JR ?0023
\ 01DA ?0022:
139 {
140 SetBackgdColor(0x930);
\ 01DA 010000 LD BC,0
\ 01DD 113009 LD DE,2352
\ 01E0 CD0000 CALL LWRD SetBackgdColor
141 PutS(buf, -1);
\ 01E3 0EFF LD C,255
\ 01E5 211400 LD HL,20
\ 01E8 39 ADD HL,SP
\ 01E9 5D LD E,L
\ 01EA 54 LD D,H
\ 01EB CD0000 CALL LWRD PutS
\ 01EE ?0023:
142 }
143
144
145 itoa_2(time.hour, buf);
\ 01EE 211400 LD HL,20
\ 01F1 39 ADD HL,SP
\ 01F2 4D LD C,L
\ 01F3 44 LD B,H
\ 01F4 DD5ED8 LD E,(IX-40)
\ 01F7 3E00 LD A,BYTE3 itoa_2
\ 01F9 210000 LD HL,LWRD itoa_2
\ 01FC CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
146
147 SetTextPos(32-9,92-2);
\ 01FF 0E5A LD C,90
\ 0201 1E17 LD E,23
\ 0203 CD0000 CALL LWRD SetTextPos
148 if(set_what == 4)
\ 0206 DD7EDC LD A,(IX-36)
\ 0209 FE04 CP 4
\ 020B 2016 JR NZ,?0025
\ 020D ?0024:
149 {
150 SetBackgdColor(Color_BLACK_def);
\ 020D 010000 LD BC,0
\ 0210 110000 LD DE,0
\ 0213 CD0000 CALL LWRD SetBackgdColor
151 PutS(buf, -1);
\ 0216 0EFF LD C,255
\ 0218 211400 LD HL,20
\ 021B 39 ADD HL,SP
\ 021C 5D LD E,L
\ 021D 54 LD D,H
\ 021E CD0000 CALL LWRD PutS
152 }
153 else
\ 0221 1814 JR ?0026
\ 0223 ?0025:
154 {
155 SetBackgdColor(0x237);
\ 0223 010000 LD BC,0
\ 0226 113702 LD DE,567
\ 0229 CD0000 CALL LWRD SetBackgdColor
156 PutS(buf, -1);
\ 022C 0EFF LD C,255
\ 022E 211400 LD HL,20
\ 0231 39 ADD HL,SP
\ 0232 5D LD E,L
\ 0233 54 LD D,H
\ 0234 CD0000 CALL LWRD PutS
\ 0237 ?0026:
157 }
158
159 itoa_2(time.minute, buf);
\ 0237 211400 LD HL,20
\ 023A 39 ADD HL,SP
\ 023B 4D LD C,L
\ 023C 44 LD B,H
\ 023D DD5ED9 LD E,(IX-39)
\ 0240 3E00 LD A,BYTE3 itoa_2
\ 0242 210000 LD HL,LWRD itoa_2
\ 0245 CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
160
161 SetTextPos(88-9,92-2);
\ 0248 0E5A LD C,90
\ 024A 1E4F LD E,79
\ 024C CD0000 CALL LWRD SetTextPos
162 if(set_what == 5)
\ 024F DD7EDC LD A,(IX-36)
\ 0252 FE05 CP 5
\ 0254 2016 JR NZ,?0028
\ 0256 ?0027:
163 {
164 SetBackgdColor(Color_BLACK_def);
\ 0256 010000 LD BC,0
\ 0259 110000 LD DE,0
\ 025C CD0000 CALL LWRD SetBackgdColor
165 PutS(buf, -1);
\ 025F 0EFF LD C,255
\ 0261 211400 LD HL,20
\ 0264 39 ADD HL,SP
\ 0265 5D LD E,L
\ 0266 54 LD D,H
\ 0267 CD0000 CALL LWRD PutS
166 }
167 else
\ 026A 1814 JR ?0029
\ 026C ?0028:
168 {
169 SetBackgdColor(0x237);
\ 026C 010000 LD BC,0
\ 026F 113702 LD DE,567
\ 0272 CD0000 CALL LWRD SetBackgdColor
170 PutS(buf, -1);
\ 0275 0EFF LD C,255
\ 0277 211400 LD HL,20
\ 027A 39 ADD HL,SP
\ 027B 5D LD E,L
\ 027C 54 LD D,H
\ 027D CD0000 CALL LWRD PutS
\ 0280 ?0029:
171 }
172
173 itoa_2(time.second, buf);
\ 0280 211400 LD HL,20
\ 0283 39 ADD HL,SP
\ 0284 4D LD C,L
\ 0285 44 LD B,H
\ 0286 DD5EDA LD E,(IX-38)
\ 0289 3E00 LD A,BYTE3 itoa_2
\ 028B 210000 LD HL,LWRD itoa_2
\ 028E CD0000 CALL LWRD ?BANK_CALL_DIRECT_L08
174
175 SetTextPos(145-9,92-2);
\ 0291 0E5A LD C,90
\ 0293 1E88 LD E,136
\ 0295 CD0000 CALL LWRD SetTextPos
176 if(set_what == 6)
\ 0298 DD7EDC LD A,(IX-36)
\ 029B FE06 CP 6
\ 029D 2016 JR NZ,?0031
\ 029F ?0030:
177 {
178 SetBackgdColor(Color_BLACK_def);
\ 029F 010000 LD BC,0
\ 02A2 110000 LD DE,0
\ 02A5 CD0000 CALL LWRD SetBackgdColor
179 PutS(buf, -1);
\ 02A8 0EFF LD C,255
\ 02AA 211400 LD HL,20
\ 02AD 39 ADD HL,SP
\ 02AE 5D LD E,L
\ 02AF 54 LD D,H
\ 02B0 CD0000 CALL LWRD PutS
180 }
181 else
\ 02B3 1814 JR ?0032
\ 02B5 ?0031:
182 {
183 SetBackgdColor(0x237);
\ 02B5 010000 LD BC,0
\ 02B8 113702 LD DE,567
\ 02BB CD0000 CALL LWRD SetBackgdColor
184 PutS(buf, -1);
\ 02BE 0EFF LD C,255
\ 02C0 211400 LD HL,20
\ 02C3 39 ADD HL,SP
\ 02C4 5D LD E,L
\ 02C5 54 LD D,H
\ 02C6 CD0000 CALL LWRD PutS
\ 02C9 ?0032:
185 }
186 output8(0x4e,input8(0x4e)|0x08);
\ 02C9 DB4E IN A,(78)
\ 02CB CBDF SET 3,A
\ 02CD D34E OUT (78),A
187 need_draw = FALSE;
\ 02CF DD36DF00 LD (IX-33),0
\ 02D3 ?0010:
188 }
189
190 //handle msg
191 key = ap_get_message();
\ 02D3 CD0000 CALL LWRD ap_get_message
\ 02D6 DD77DD LD (IX-35),A
192 switch( key )
\ 02D9 5F LD E,A
\ 02DA CD0000 CALL LWRD ?C_V_SWITCH_L06
\ 02DD 0D00 DEFW 13
\ 02DF 05 DEFB 5
\ 02E0 06 DEFB 6
\ 02E1 1B DEFB 27
\ 02E2 1C DEFB 28
\ 02E3 1E DEFB 30
\ 02E4 23 DEFB 35
\ 02E5 24 DEFB 36
\ 02E6 25 DEFB 37
\ 02E7 26 DEFB 38
\ 02E8 27 DEFB 39
\ 02E9 30 DEFB 48
\ 02EA 45 DEFB 69
\ 02EB 46 DEFB 70
\ 02EC 4105 DEFW ?0121
\ 02EE 5E03 DEFW ?0046
\ 02F0 4504 DEFW ?0082
\ 02F2 3705 DEFW ?0120
\ 02F4 2903 DEFW ?0038
\ 02F6 2D05 DEFW ?0118
\ 02F8 2D05 DEFW ?0118
\ 02FA 2903 DEFW ?0038
\ 02FC 4403 DEFW ?0042
\ 02FE 3305 DEFW ?0119
\ 0300 0803 DEFW ?0034
\ 0302 0803 DEFW ?0034
\ 0304 5E03 DEFW ?0046
\ 0306 4504 DEFW ?0082
\ 0308 ?0034:
193 {
194 case AP_MSG_CHARGING:
195 case AP_MSG_RTC:
196 if(adjusting) show_what = TRUE;
\ 0308 AF XOR A
\ 0309 DDB6E1 OR (IX-31)
\ 030C 2806 JR Z,?0036
\ 030E ?0035:
\ 030E DD36E601 LD (IX-26),1
\ 0312 180E JR ?0037
\ 0314 ?0036:
197 else show_what = !show_what;
\ 0314 AF XOR A
\ 0315 DDB6E6 OR (IX-26)
\ 0318 2004 JR NZ,?0141
\ 031A 3E01 LD A,1
\ 031C 1801 JR ?0142
\ 031E ?0141:
\ 031E AF XOR A
\ 031F ?0142:
\ 031F DD77E6 LD (IX-26),A
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -