📄 dfg-a.l
字号:
412 ; and T0CON,#00111110b
413 02A9 50 D5 t0_int2: pop flags
414 02AB 50 C0 pop r0
415 02AD 50 C1 pop r1
416 02AF BF iret
417 ;ret_t0int:
418 ; ld t0data,#200 ;4M osc 2ms int 400*4M/8=200
419 ; ld T0CON,#10001010b ;T0 int enable
420 ; pop flags
421 ; iret
422 02B0 exint:
423 02B0 56 E8 FE and p0pnd,#11111110b
424 02B3 B0 25 clr tzero
425 02B5 20 27 inc t1s
426 02B7 8B F0 jr t0_int2
427 ;--------100ms interrupt-----
428 02B9 timer:
429 02B9 76 01 04 tm flag,#f_100ms
430 02BC EB 01 jr nz,time_inc
431 02BE AF ret
432 02BF time_inc:
433 02BF 56 01 FB and flag,#fn_100ms
434
435 02C2 20 32 inc prtime
436
437 02C4 76 2C 04 tm ledflag,#f_lock
438 02C7 6B 07 jr z,time_dispt1
439 02C9 E6 2F 07 ld dispt,#00000111b
440 02CC B0 30 clr t600ms
441 02CE 8B 0C jr time_dispt
442 02D0 time_dispt1
443 02D0 20 30 inc t600ms
444 02D2 A6 30 06 cp t600ms,#6
445 02D5 7B 05 jr ult,time_dispt
446 02D7 B0 30 clr t600ms
447 02D9 CF rcf
448 02DA C0 2F rrc dispt
449 02DC time_dispt
450
451 02DC A6 24 00 cp key2s,#0 ;20*100ms=2s
452 02DF 6B 07 jr eq,time_keyf
453 02E1 00 24 dec key2s
454 02E3 46 2C 08 or ledflag,#f_ledf
455 02E6 8B 03 jr time_keyf2
456 02E8 time_keyf
457 02E8 56 2C F7 and ledflag,#fn_ledf
458 02EB time_keyf2
459 02EB A6 2D FA cp key3s,#250
460 02EE FB 02 jr uge,time_key
461 02F0 20 2D inc key3s
462 02F2 time_key
463 02F2 A6 07 05 cp t_100ms,#5
464 02F5 7B 05 jr ult,flashset
465 02F7 56 01 FE and flag,#fn_flash
466 02FA 8B 03 jr flash_end
467 02FC flashset:
468 02FC 46 01 01 or flag,#f_flash
469 02FF flash_end:
470 02FF 20 07 inc t_100ms
471 0301 A6 07 0A cp t_100ms,#10
472 0304 7B 46 jr ult,time_end
473 0306 B0 07 clr t_100ms
474
475 0308 A6 23 00 cp key3min,#0 ;180*1s=3min
476 030B 6B 04 jr eq,time_lock
477 030D 00 23 dec key3min
478 030F 8B 03 jr time_lock2
479 0311 time_lock
480 0311 46 2C 04 or ledflag,#f_lock
481 0314 time_lock2
482 0314 46 01 02 or flag,#f_wen
483 0317 56 04 FB and keyflag,#fn_power
484 031A A6 20 00 cp settime,#0
485 031D 6B 02 jr eq,set_end
486 031F 00 20 dec settime
487 0321 set_end:
488
489 0321 20 08 inc sec
490 0323 A6 08 3C cp sec,#60 ;1 ;60 ;cuttime 缩时
491 0326 7B 24 jr ult,time_end
492 0328 B0 08 clr sec
493
494 032A 20 28 inc t10min
495
496 032C A6 1C 00 cp pausetime,#0
497 032F 6B 02 jr eq,pause_end
498 0331 00 1C dec pausetime
499 0333 pause_end:
500
501 0333 76 03 04 tm status,#f_heats
502 0336 EB 14 jr nz,time_end
503
504
505 0338 20 09 inc min
506 033A A6 09 3C cp min,#60
507 033D 7D 03 4C jp ult,time_end
508 0340 B0 09 clr min
509
510 0342 20 0A inc hour
511 0344 A6 0A 19 cp hour,#25
512 0347 7D 03 4C jp ult,time_end
513 034A 00 0A dec hour
514 ; clr hour
515 034C time_end:
516 034C AF ret
517 ;************************************************
518 034D buzz
519 034D E6 F3 0C ld PWMCON,#00001100b ;eable
520 0350 E6 2B 64 ld buzztime,#100 ;200ms
521 0353 AF ret
522 0354 buzzcon
523 0354 A6 2B 00 cp buzztime,#0
524 0357 EB 03 jr ne,buzzcon1
525 0359 E6 F3 00 ld PWMCON,#00h ;disable
526 035C buzzcon1
527 035C AF ret
528 ;*************************************************
529 035D prcon
530 035D 76 03 04 tm status,#f_heats
531 0360 6B 35 jr z,prcon_int
532 0362 A6 18 BE cp wendu,#w60
533 0365 BB 30 jr ugt,prcon_int
534 0367 A6 18 A0 cp wendu,#w150
535 036A 7B 30 jr ult,prcon_end
536 036C A6 32 32 cp prtime,#50 ;5s
537 036F 7B 2B jr ult,prcon_end
538 0371 B0 32 clr prtime
539 0373 08 33 ld r0,prtwendu
540 0375 24 18 C0 sub r0,wendu
541 0378 A6 C0 0F cp r0,#15 ;温度上升多少？
542 037B 7B 08 jr ult,prcon_water
543 037D 56 2C EF and ledflag,#fn_water
544 0380 E6 31 3C ld prwendu,#w400
545 0383 8B 12 jr prcon_int
546 0385 prcon_water
547 0385 46 2C 10 or ledflag,#f_water
548 0388 A6 19 50 cp wenduset,#w300
549 038B 3B 05 jr ule,prcon_h
550 038D E6 31 A0 ld prwendu,#w150
551 0390 8B 05 jr prcon_int
552 0392 prcon_h
553 0392 E6 31 73 ld prwendu,#w220
554 0395 8B 00 jr prcon_int
555 0397 prcon_int
556 0397 B0 32 clr prtime
557 0399 E4 18 33 ld prtwendu,wendu
558 039C prcon_end
559 039C AF ret
560 ;*************************************************
561 039D statuscon:
562 039D A6 20 00 cp settime,#0
563 03A0 EB 7B jr ne,sta_end
564 03A2 56 01 F7 and flag,#fn_start
565 03A5 56 02 FE and flag2,#fn_setw
566 03A8 56 02 FD and flag2,#fn_setd
567 03AB 56 02 FB and flag2,#fn_seth
568 03AE 76 03 01 tm status,#f_stop
569 03B1 EB 6A jr nz,sta_end
570 03B3 76 03 08 tm status,#f_holds
571 03B6 EB 12 jr nz,sta_hold
572 03B8 76 03 04 tm status,#f_heats
573 03BB EB 28 jr nz,sta_heat
574 03BD 76 03 02 tm status,#f_delay
575 03C0 EB 4F jr nz,sta_delay
576
577 03C2 B0 09 clr min
578 03C4 B0 0A clr hour
579 03C6 46 03 02 or status,#f_delay
580 03C9 AF ret
581 03CA sta_hold:
582 03CA 76 02 10 tm flag2,#f_hs
583 03CD 6B 0A jr z,sta_hold2
584 03CF 56 02 EF and flag2,#fn_hs
585 03D2 46 03 04 or status,#f_heats
586 03D5 56 03 F7 and status,#fn_holds
587 03D8 AF ret
588 03D9 sta_hold2:
589 03D9 A4 09 1B cp holdset,min ;hour
590 03DC BB 3F jr ugt,sta_end
591 03DE 56 03 F7 and status,#fn_holds
592 03E1 46 03 01 or status,#f_stop
593 03E4 AF ret
594 03E5 sta_heat:
595 03E5 A4 31 19 cp wenduset,prwendu
596 03E8 BB 04 jr ugt,sta_heata
597 03EA 08 31 ld r0,prwendu
598 03EC 8B 02 jr sta_heatb
599 03EE sta_heata
600 03EE 08 19 ld r0,wenduset
601 03F0 sta_heatb
602 ; cp wendu,wenduset ;温度越高，ad直越小
603 ; jr uge,sta_heat2 ;sta_end
604 03F0 A4 18 C0 cp r0,wendu ;温度越高，ad直越小
605 03F3 3B 18 jr ule,sta_heat2 ;sta_end
606
607 03F5 56 03 FB and status,#fn_heats
608 03F8 46 03 08 or status,#f_holds
609 03FB E6 1C 0F ld pausetime,#15 ;stop 15Min
610 03FE B0 28 clr t10min
611 0400 76 02 08 tm flag2,#f_heat2
612 0403 EB 18 jr nz,sta_end
613 0405 46 02 08 or flag2,#f_heat2
614 0408 B0 09 clr min
615 040A B0 0A clr hour
616
617 040C AF ret
618 040D sta_heat2:
619 040D E6 1C 0F ld pausetime,#15 ;stop 15Min
620 0410 AF ret
621 0411 sta_delay:
622 0411 A4 0A 1A cp delayset,hour
623 0414 BB 07 jr ugt,sta_end
624 0416 56 03 BD and status,#fn_delay
625 0419 46 03 04 or status,#f_heats
626 041C AF ret
627 041D sta_end:
628 041D AF ret
629
630 ;************************************************
631 041E control:
632 041E 76 03 10 tm status,#f_run
633 0421 6D 04 B2 jp z,clrgate
634 0424 76 01 10 tm flag,#f_wendu_f
635 0427 ED 04 B2 jp nz,clrgate
636 042A 76 03 04 tm status,#f_heats
637 042D EB 08 jr nz,con_heat
638 ;cp pausetime,#0
639 ;jp ne,clrgate
640 042F 76 03 08 tm status,#f_holds
641 0432 EB 18 jr nz,con_hold
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -