📄 dfg-a.l
字号:
218 003E E7 DB 0E7H ;LVR
219 003F 03 DB 03H ;Internal 01H ;外部RC
220
221 0100 org 0100h
222 0100 8D 01 D8 jp start
223
224 ;a/d (184--120)+tj_ad(20)=204---140
225 ;wendu 155--205
226 0103 96 96 96 96adnum: db 150,150,150,150,150,150,150,150,150,150,150
96 96 96 96
96 96 96
227 010E 96 96 96 96 db 150,150,150,150,150,150,150,151,152,153,154,155
96 96 96 97
98 99 9A 9B
228 011A 9C 9D 9E A0 db 156,157,158,160,161,163,165
A1 A3 A5
229 0121 A8 AC AF db 168,172,175 ;181
230 0124 B1 B3 B5 B7 db 177,179,181,183,185 ;177
B9
231 0129 BA BB BC BE db 186,187,188,190,191,193,195 ;173
BF C1 C3
232 0130 C8 C8 C8 C8 db 200,200,200,200,200,200,200,210,205 ;162
C8 C8 C8 D2
CD
233 0139 D2 db 210
234 013A FF FF FF FF db 255,255,255,255,255
FF
235
236
237 ;adnum: db 143,144,145,146,147,148
238 013F 95 96 97 98 db 149,150,151,152,153,154
99 9A
239 0145 9B 9C 9D 9E db 155,156,157,158,159,160,161,163,164,165,166,167,168,169,170,171,172,174
9F A0 A1 A3
A4 A5 A6 A7
A8 A9 AA AB
AC AE
240 0157 AF B0 B1 B2 db 175,176,177,178,179,180,181,182,184,185,186,187,188,189,190,191,192,193
B3 B4 B5 B6
B8 B9 BA BB
BC BD BE BF
C0 C1
241 0169 C2 C3 C4 C5 db 194,195,196,197,199,200,201,202,203,204,205,206,207,209,210,210,210,210
C7 C8 C9 CA
CB CC CD CE
CF D1 D2 D2
D2 D2
242 017B FF db 255
243 ;adnum:
244 017C 41 42 42 43 db 65,66,66,67,67,68,69
43 44 45
245 0183 46 46 47 47 db 70,70,71,71,72,73,73,74,74,75,75,76,76,77,78,78,79,79
48 49 49 4A
4A 4B 4B 4C
4C 4D 4E 4E
4F 4F
246 0195 50 50 51 51 db 80,80,81,81,82,83,83,84,85,85,86,86,87,87,88,89,89
52 53 53 54
55 55 56 56
57 57 58 59
59
247 01A6 5A 5A 5B 5B db 90,90,91,91,92,93,93,94,95,95,96,96,97,98,98,99
5C 5D 5D 5E
5F 5F 60 60
61 62 62 63
248 01B6 64 64 65 65 db 100,100,101,101,102,103,104,104
66 67 68 68
249 01BE FF db 255
250
251 ; db 184 177,168,159,151 142,134,126
252 ;C 65 70 75 80 85 90 95 100
253
254 ;add=185-adnum
255
256 ;; 0 D E C G F A B
257 ; 0 E D C G A F B
258 ; 7 6 5 4 3 2 1 0
259 ; F A B E G C Dp D
260 ;
261 01BF F5 numc: db 11110101b ;f5 ;01110111b f5 ;0 77H
262 01C0 24 db 00100100b ;24 ;00010001b ;1
263 01C1 79 db 01111001b ;79 ;01101101b ;2 6dh
264 01C2 6D db 01101101b ;6d ;00111101b ;3 3dh
265 01C3 AC db 10101100b ;ac ;00011011b ;4
266 01C4 CD db 11001101b ;cd ;00111110b ;5 3eh
267 01C5 DD db 11011101b ;01111110b ;6
268 01C6 64 db 01100100b ;64 ;00010101b ;7
269 01C7 FD db 11111101b ;01111111b ;8
270 01C8 ED db 11101101b ;00111111b ;9
271 01C9 D9 db 11011001b ;01101110b d9 ;E 6EH
272 01CA D8 db 11011000b ;01001110b d8 ;F 4EH
273 ;LED1 db 00010000B
274 ;LED2 db 00001000B
275 ;SW1 db 00000001B WENDU
276 ;SW2 db 00000010B YUYUO
277 ;SW3 db 00000100B BAOWEN
278
279
280 ;************************************************************************
281 01CB mcuint:
282 01CB E6 EA 4A ld P2CONH,#01001010b ;all out
283 01CE E6 EB AA ld P2CONL,#10101010b
284 01D1 E6 E6 9A ld P0CONH,#10011010b ;
285 01D4 E6 E7 ED ld P0CONL,#11101101b ;
286 01D7 AF ret
287 ;************************************************************************
288 01D8 8F start: di
289 01D9 E6 EA 4A ld P2CONH,#01001010b ;all out
290 01DC E6 EB AA ld P2CONL,#10101010b ;bit3,2,1,0 ---10:out; 00:in
291 01DF E6 E6 9A ld P0CONH,#10011010b ;
292 01E2 E6 E7 ED ld P0CONL,#11101101b
293 ; -- Port 2 setting --
294 ;ld P2CONH,#01001010b ;all out
295 ;ld P2CONL,#10101010b
296 01E5 E6 E2 30 ld P2,#30h ;0ffh
297 ; -- Port 0 setting --
298 01E8 E6 E8 02 ld p0pnd,#00000010b ;int0 enable
299 01EB E6 E0 10 ld P0,#10h ;
300 ;
301 ; -- Port 1 setting --
302 01EE E6 E9 8E ld P1CON,#10001110b ;p1.0--out11001010b ;use ext osc p1.0,p1.1:onput
303 ;ld P1CON,#11001101b ;p1.1--in
304 01F1 E6 E1 00 ld P1,#00h ;00h ;
305 ; --ad setting--
306 01F4 E6 F7 14 ld adcon,#00010100b ;adc1(p0.1) 00110100:adc3(p0.3)
307 ; -- Basic Timer --
308 01F7 E6 DC 02 ld BTCON,#00000010b ; WATCHDOG enABLE fosc/4096
309 01FA E6 D4 98 ld CLKCON,#10011000b ; NON DIVIDED CLOCK
310 01FD E6 D1 A0 ld t0data,#160 ;200 ;4M osc 400us int 400*4M/8=200 400*3.2/8=160
311 0200 E6 D2 8A ld T0CON,#10001010b ;T0 int enable
312
313 0203 E6 D5 00 ld flags,#00000000b ; flags=0
314 0206 E6 D9 C0 ld SP,#0C0h ; Stack pointer high <-- 00
315
316 ; -- Interrupt Setting --
317 0209 E6 DF 08 ld sym,#08h
318 ; -- PWM
319 020C E6 F3 00 ld PWMCON,#00h ;disable 11001100b:eable
320 020F E6 F2 80 ld pwmdata,#10000000b
321 ; -- stop --
322 0212 E6 F4 00 ld stopcon,#00h ;disable
323
324 ;---------------< ram clear >-------------------;
325 0215 0C BF ld r0,#0bfh ;clear all data RAM 00-0FFh
326 0217 B1 C0 ramclr: clr @r0
327 0219 00 C0 dec r0
328 021B EB FA jr nz,ramclr
329
330 021D start2:
331
332 021D E6 DC 02 ld BTCON,#00000010b ; WATCHDOG enABLE fosc/4096
333 0220 E6 19 3C ld wenduset,#w400 ;400-150
334 ;ld delayset,#0
335 0223 E6 1B 00 ld holdset,#0 ;0-1-5-10-15-20-30-60-90-120-0 min 0:一直保温
336 0226 E6 20 05 ld settime,#5 ;5s
337 0229 E6 23 B4 ld key3min,#180
338 022C 46 01 08 or flag,#f_start
339 022F 46 04 04 or keyflag,#f_power
340 0232 B0 02 clr flag2
341 0234 F6 03 4D call buzz ;test
342 0237 8D 02 49 jp main
343 ;+++++++++++++++++++++++++++++++++++++++++++++++++
344 023A test:
345 023A 9F ei
346 023B E6 DC A2 ld BTCON,#10100010b ; WATCHDOG enABLE fosc/4096
347 ; call mcuint
348 023E E6 E2 FF ld p2,#11111111b
349 0241 46 E0 40 or p0,#01000000b
350 0244 F6 02 B9 call timer
351
352 0247 8B F1 jr test
353 ;++++++++++++++++++++++++++++++++++++++++++++++++++
354 ;***********************************************;
355 ; Main ;
356 ;***********************************************;
357 0249 main:
358 0249 9F ei
359 024A E6 DC 22 ld BTCON,#00100010b ; WATCHDOG enABLE fosc/4096
360 ; call mcuint
361 024D F6 02 B9 call timer
362 0250 F6 03 54 call buzzcon
363 0253 F6 03 5D call prcon
364 0256 F6 04 1E call control
365 0259 F6 03 9D call statuscon
366 025C F6 04 B6 call discon
367 025F F6 06 2B call ledset
368 0262 F6 07 03 call key_jug
369 0265 F6 08 FE call wendu_jug
370 0268 8D 02 49 jp main
371
372 ;***********************************************;
373
374 ;************************************************
375 ; <Timer 0 interrupt> *
376 ; every 4ms (normal mode,*TA int generation time can be changed manually)
377
378 ;************************************************
379 026B T0_INT: ;400us interrupt
380 026B 70 C1 push r1
381 026D 70 C0 push r0
382 026F 70 D5 push flags
383 0271 76 E8 01 tm p0pnd,#00000001b
384 0274 ED 02 B0 jp nz,exint
385 ; tm t0con,#00000010b
386 ; jp z,ret_t0int
387 0277 76 D2 01 tm t0con,#00000001b
388 027A 6D 02 A9 jp z,t0_int2
389
390 027D A6 25 FA cp tzero,#250
391 0280 BB 02 jr ugt,t0_zero
392 0282 20 25 inc tzero
393 0284 t0_zero:
394 0284 20 05 inc t_400us
395 0286 A6 05 05 cp t_400us,#5
396 0289 7B 18 jr ult,t0_int1
397 028B B0 05 clr t_400us
398 028D F6 06 42 call display
399
400 0290 A6 2B 00 cp buzztime,#0
401 0293 6B 02 jr eq,t0_buz
402 0295 00 2B dec buzztime
403 0297 t0_buz
404 0297 20 06 inc t_2ms
405 0299 A6 06 33 cp t_2ms,#51 ;2min/60min
406 029C 7B 05 jr ult,t0_int1
407 029E B0 06 clr t_2ms
408 02A0 46 01 04 or flag,#f_100ms
409 02A3 t0_int1:
410 02A3 E6 D1 A0 ld t0data,#160 ;200 ;4M osc 2ms int 400*4M/8=200
411 02A6 E6 D2 82 ld T0CON,#10000010b ;T0 int enable
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -