📄 inductioncooker050413ver1.lst
字号:
565 0000C0 7A86 b0bts1 fc
566 0000C1 80C5 jmp line0getonekey
567 0000C2 2623 decms var2
568 0000C3 80BE jmp loopline0
569 0000C4 0E00 ret
570 0000C5 ;-----
571 0000C5 line0getonekey:
572 0000C5 1E23 mov a,var2
573 0000C6 1F0B mov aplcode,a
574 0000C7 0E00 ret
575 0000C8 ;------------------------------------------
576 0000C8 line1keypush:
577 0000C8 mov_ var1,keycvtbuf
578 0000C8 1E08 mov a, keycvtbuf
579 0000C9 1F22 mov var1, a
580 0000CA mov_ var2,#5
581 0000CA 2D05 mov a, #5
582 0000CB 1F23 mov var2, a
583 0000CC loopline1:
584 0000CC 4286 bclr fc
585 0000CD 0922 rrcm var1
586 0000CE 7A86 b0bts1 fc
587 0000CF 80D3 jmp line1getonekey
588 0000D0 2623 decms var2
589 0000D1 80CC jmp loopline1
590 0000D2 0E00 ret
591 0000D3 ;-----
592 0000D3 line1getonekey:
593 0000D3 1E23 mov a,var2
594 0000D4 1407 add a,#7
595 0000D5 1F0B mov aplcode,a
596 0000D6 ;-----
597 0000D6 keycvt90:
598 0000D6 0E00 ret
599 0000D7
600 0000D7 ;*******************************************************
601 0000D7 ;*******************************************************
602 0000D7 ;*******************************************************
603 0000D7 p2input:
604 0000D7 2BC2 clr p2m ;set p2 is input
605 0000D8 mov_ p2ur,#0ffh ;set p2 have pull_up
606 0000D8 2DFF mov a, #0ffh
607 0000D9 1FE2 mov p2ur, a
608 0000DA 80DB jmp $+1
609 0000DB 80DC jmp $+1
610 0000DC 0E00 ret
611 0000DD ;-----------------
612 0000DD p2output:
613 0000DD mov_ p2m,#0ffh ;set p2 is output
614 0000DD 2DFF mov a, #0ffh
615 0000DE 1FC2 mov p2m, a
616 0000DF 2BE2 clr p2ur ;clr p2 pull_up
617 0000E0 80E1 jmp $+1
618 0000E1 80E2 jmp $+1
619 0000E2 0E00 ret
620 0000E3
621 0000E3
622 0000E3 include mnapp.asm
623 0000E3 ;**********************************************
624 0000E3 ;Name :mnapp
625 0000E3 ;Function:
626 0000E3 ;Input :
627 0000E3 ;Output :
628 0000E3 ;Register Used:
629 0000E3 ;***********************************************
630 0000E3 mnapp:
631 0000E3 C0E5 call checkkey
632 0000E4
633 0000E4 mnapp90:
634 0000E4 0E00 ret
635 0000E5 ;**********************************************
636 0000E5 ;Name :ensure which key should operate
637 0000E5 ;Function:
638 0000E5 ;Input :
639 0000E5 ;Output :
640 0000E5 ;Register Used:
641 0000E5 ;***********************************************
642 0000E5 checkkey:
643 0000E5 7119 b0bts0 poweronflag
644 0000E6 8122 jmp checkkey90 ;刚通电，不响应按键
645 0000E7 1E0B mov a,aplcode
646 0000E8 @jmp_a 13
647 0000E8 13CE add pcl, a
648 0000E9 8122 jmp checkkey90 ;0
649 0000EA 8102 jmp boilwaterkey ;1,煮水
650 0000EB 8100 jmp warmmilkkey ;2,热奶
651 0000EC 80FE jmp soupingkey ;3,煲汤
652 0000ED 80FC jmp cookingkey ;4,煮饭
653 0000EE 80FA jmp barbecuekey ;5,烧烤
654 0000EF 80F8 jmp chaffydishkey ;6,火锅
655 0000F0 80F6 jmp frieddishkey ;7,炒菜
656 0000F1 8121 jmp offkey ;8
657 0000F2 8120 jmp deckey ;9
658 0000F3 811F jmp inckey ;10
659 0000F4 8112 jmp oneminkey ;11,一分钟
660 0000F5 8104 jmp tenminkey ;12,十分钟
661 0000F6 ;************************************************
662 0000F6 frieddishkey:
663 0000F6 ;----
664 0000F6 4818 bset frieddishflag
665 0000F7
666 0000F7
667 0000F7 8122 jmp checkkey90
668 0000F8 ;************************************************
669 0000F8 chaffydishkey:
670 0000F8 ;----
671 0000F8 4918 bset chaffydishflag
672 0000F9
673 0000F9 8122 jmp checkkey90
674 0000FA ;************************************************
675 0000FA barbecuekey:
676 0000FA ;----
677 0000FA 4A18 bset barbecueflag
678 0000FB
679 0000FB 8122 jmp checkkey90
680 0000FC ;************************************************
681 0000FC cookingkey:
682 0000FC ;----
683 0000FC 4B18 bset cookingflag
684 0000FD
685 0000FD 8122 jmp checkkey90
686 0000FE ;************************************************
687 0000FE soupingkey:
688 0000FE ;----
689 0000FE 4C18 bset soupingflag
690 0000FF
691 0000FF 8122 jmp checkkey90
692 000100 ;************************************************
693 000100 warmmilkkey:
694 000100 ;----
695 000100 4D18 bset warmmilkflag
696 000101
697 000101 8122 jmp checkkey90
698 000102 ;************************************************
699 000102 boilwaterkey:
700 000102 ;----
701 000102 4E18 bset boilwaterflag
702 000103
703 000103 8122 jmp checkkey90
704 000104
705 000104 ;************************************************
706 000104 tenminkey:
707 000104
708 000104 1E05 mov a,timerbuf
709 000105 2AF0 and a,#0f0h
710 000106 2490 sub a,#90h
711 000107 7286 b0bts0 fc
712 000108 810D jmp turnoffnum1
713 000109 ;-----
714 000109 2D10 mov a,#10h
715 00010A 1305 add timerbuf,a
716 00010B 4D16 bset refurbishflag
717 00010C /*
718 00010C ;---
719 00010C ;search table
720 00010C b0mov y,#font_tbl$m
721 00010C b0mov z,#font_tbl$l
722 00010C swap timerbuf
723 00010C and a,#0fh
724 00010C add z,a
725 00010C mov a,#0
726 00010C adc y,a
727 00010C movc
728 00010C mov seg1buf,a
729 00010C */
730 00010C 8122 jmp checkkey90
731 00010D ;---------------------
732 00010D turnoffnum1:
733 00010D 2D0F mov a,#0fh
734 00010E 2905 and timerbuf,a
735 00010F mov_ seg1buf,#0ffh
736 00010F 2DFF mov a, #0ffh
737 000110 1F11 mov seg1buf, a
738 000111 8122 jmp checkkey90
739 000112 ;************************************************
740 000112 oneminkey:
741 000112 ;-----
742 000112 4D16 bset refurbishflag
743 000113 1E05 mov a,timerbuf
744 000114 2A0F and a,#0fh
745 000115 2409 sub a,#9
746 000116 7286 b0bts0 fc
747 000117 811B jmp backzeronum0
748 000118 ;-----
749 000118 2D01 mov a,#1
750 000119 1305 add timerbuf,a
751 00011A 8122 jmp checkkey90
752 00011B ;-----
753 00011B backzeronum0:
754 00011B 2DF0 mov a,#0f0h
755 00011C 2905 and timerbuf,a
756 00011D 8122 jmp checkkey90
757 00011E /*
758 00011E ;---
759 00011E ;search table
760 00011E loopuptbl:
761 00011E b0mov y,#font_tbl$m
762 00011E b0mov z,#font_tbl$l
763 00011E mov a,timerbuf
764 00011E and a,#0fh
765 00011E add z,a
766 00011E mov a,#0
767 00011E adc y,a
768 00011E movc
769 00011E mov seg2buf,a
770 00011E */
771 00011E 8122 jmp checkkey90
772 00011F ;************************************************
773 00011F inckey:
774 00011F
775 00011F 8122 jmp checkkey90
776 000120 ;************************************************
777 000120 deckey:
778 000120
779 000120 8122 jmp checkkey90
780 000121 ;************************************************
781 000121 offkey:
782 000121
783 000121 8122 jmp checkkey90
784 000122 ;*************************************************
785 000122 checkkey90:
786 000122 2B0B clr aplcode
787 000123 ;-----
788 000123 checkkey100:
789 000123 0E00 ret
790 000124
791 000124 ;**********************************************
792 000124 ;Name :poweronsub
793 000124 ;Function:
794 000124 ;Input :
795 000124 ;Output :
796 000124 ;Register Used:temp0,temp1
797 000124 ;***********************************************
798 000124 poweronsub:
799 000124 7919 b0bts1 poweronflag ;=1:刚通电,初始状态
800 000125 813C jmp poweronsub90
801 000126 7419 b0bts0 settimeflag
802 000127 8134 jmp poweronsub10
803 000128 ;-----------------------
804 000128 4C19 bset settimeflag
805 000129 4116 bclr t1sflag
806 00012A mov_ timer1s,#100 ;定时1s
807 00012A 2D64 mov a, #100
808 00012B 1F02 mov timer1s, a
809 00012C ;----
810 00012C mov_ combuf,#11101111b ;点亮所有的LED
811 00012C 2DEF mov a, #11101111b
812 00012D 1F15 mov combuf, a
813 00012E 2D3F mov a,#00111111b
814 00012F 1F11 mov seg1buf,a
815 000130 1F12 mov seg2buf,a
816 000131 2B13 clr seg3buf
817 000132 2B14 clr seg4buf
818 000133 0E00 ret
819 000134 ;------------------------
820 000134 poweronsub10:
821 000134 7916 b0bts1 t1sflag
822 000135 813C jmp poweronsub90
823 000136 4116 bclr t1sflag ;数码管显示0，其他LED关
824 000137 4419 bclr settimeflag
825 000138 4119 bclr poweronflag
826 000139 2DFF mov a,#0ffh
827 00013A 1F13 mov seg3buf,a
828 00013B 1F14 mov seg4buf,a
829 00013C ;----
830 00013C poweronsub90:
831 00013C 0E00 ret
832 00013D
833 00013D ;******************************************************
834 00013D ;******************************************************
835 00013D ;******************************************************
836 00013D delay4us:
837 00013D 813E jmp $+1 ;2us
838 00013E 0E00 ret ;2us,2+2=4us
839 00013F ;-----
840 00013F delay_10us:
841 00013F 8140 jmp $+1
842 000140 8141 jmp $+1
843 000141 8142 jmp $+1
844 000142 0E00 ret
845 000143 ;------
846 000143 delay100us:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -