📄 inductioncooker050413ver1.lst
字号:
847 000143 mov_ var3,#100
848 000143 2D64 mov a, #100
849 000144 1F24 mov var3, a
850 000145 loop100us00:
851 000145 2624 decms var3
852 000146 8145 jmp loop100us00
853 000147 0E00 ret
854 000148 ;--------
855 000148 delay2ms:
856 000148 mov_ var3,#2
857 000148 2D02 mov a, #2
858 000149 1F24 mov var3, a
859 00014A loop2ms00:
860 00014A mov_ var4,#0ffh
861 00014A 2DFF mov a, #0ffh
862 00014B 1F25 mov var4, a
863 00014C loop2ms01:
864 00014C 2625 decms var4
865 00014D 814C jmp loop2ms01
866 00014E 2624 decms var3
867 00014F 814A jmp loop2ms00
868 000150 0E00 ret
869 000151 ;---------
870 000151 delay20ms:
871 000151 mov_ var3,#15
872 000151 2D0F mov a, #15
873 000152 1F24 mov var3, a
874 000153 loop20ms00:
875 000153 mov_ var4,#0ffh
876 000153 2DFF mov a, #0ffh
877 000154 1F25 mov var4, a
878 000155 loop20ms01:
879 000155 2625 decms var4
880 000156 8155 jmp loop20ms01
881 000157 2624 decms var3
882 000158 8153 jmp loop20ms00
883 000159 0E00 ret
884 00015A
885 00015A include controll.asm
886 00015A ;******************************************************
887 00015A ;name:pwmcontroll
888 00015A ;function:用于控制负载电流
889 00015A ;input:
890 00015A ;output:
891 00015A ;influece:
892 00015A ;*******************************************************
893 00015A pwmcontroll:
894 00015A
895 00015A ;-----
896 00015A pwmcontroll90:
897 00015A 0E00 ret
898 00015B
899 00015B ;******************************************************
900 00015B ;name:Igbtcontroll
901 00015B ;function:用于控制IGBT脉冲
902 00015B ;input:
903 00015B ;output:
904 00015B ;influece:
905 00015B ;*******************************************************
906 00015B Igbtcontroll:
907 00015B
908 00015B ;-----
909 00015B Igbtcontroll90:
910 00015B 0E00 ret
911 00015C
912 00015C ;******************************************************
913 00015C ;name:buzzercontroll
914 00015C ;function:用于控制蜂鸣器输出
915 00015C ;input:
916 00015C ;output:
917 00015C ;influece:
918 00015C ;*******************************************************
919 00015C buzzercontroll:
920 00015C 7E17 b0bts1 buzzerflag
921 00015D 815E jmp buzzercontroll90
922 00015E
923 00015E ;-----
924 00015E buzzercontroll90:
925 00015E 0E00 ret
926 00015F
927 00015F ;******************************************************
928 00015F ;name:fancontroll
929 00015F ;function:用于控制风扇运转
930 00015F ;input:
931 00015F ;output:
932 00015F ;influece:
933 00015F ;*******************************************************
934 00015F fancontroll:
935 00015F 7F17 b0bts1 fanrunflag
936 000160 8161 jmp fancontroll90
937 000161 ;-----
938 000161 fancontroll90:
939 000161 0E00 ret
940 000162
941 000162 ;******************************************************
942 000162 ;name:malfunction
943 000162 ;function:故障控制程序
944 000162 ;input:
945 000162 ;output:
946 000162 ;influece:
947 000162 ;*******************************************************
948 000162 malfunction:
949 000162 7819 b0bts1 malfunctionflag
950 000163 8164 jmp malfunction90
951 000164 ;-----
952 000164 malfunction90:
953 000164 0E00 ret
954 000165
955 000165
956 000165
957 000165
958 000165 include display.asm
959 000165 ;**********************************************
960 000165 ;Name :mndisplay
961 000165 ;Function:
962 000165 ;Input :
963 000165 ;Output :
964 000165 ;Register Used:
965 000165 ;***********************************************
966 000165 mndisplay:
967 000165 7816 b0bts1 t10msflag ;如果显示闪动，时间改小(可以用跑一个循环显示一次）
968 000166 8188 jmp mndisplay90
969 000167 4016 bclr t10msflag
970 000168 C0DD call p2output
971 000169 ;--------------------------------
972 000169 7415 b0bts0 com1flag
973 00016A 8170 jmp displaycom2
974 00016B 1E15 mov a,combuf
975 00016C 29D4 and p4,a
976 00016D 1E11 mov a,seg1buf
977 00016E 1FD2 mov p2,a
978 00016F 8186 jmp mndisplay80
979 000170 ;--------------------------------
980 000170 displaycom2:
981 000170 7515 b0bts0 com2flag
982 000171 8177 jmp displaycom3
983 000172 1E15 mov a,combuf
984 000173 29D4 and p4,a
985 000174 1E12 mov a,seg2buf
986 000175 1FD2 mov p2,a
987 000176 8186 jmp mndisplay80
988 000177 ;--------------------------------
989 000177 displaycom3:
990 000177 7615 b0bts0 com3flag
991 000178 817E jmp displaycom4
992 000179 1E15 mov a,combuf
993 00017A 29D4 and p4,a
994 00017B 1E13 mov a,seg3buf
995 00017C 1FD2 mov p2,a
996 00017D 8186 jmp mndisplay80
997 00017E ;--------------------------------
998 00017E displaycom4:
999 00017E 7715 b0bts0 com4flag
1000 00017F 8188 jmp mndisplay90
1001 000180 1E15 mov a,combuf
1002 000181 29D4 and p4,a
1003 000182 1E14 mov a,seg4buf
1004 000183 1FD2 mov p2,a
1005 000184 mov_ combuf,#11110111b
1006 000184 2DF7 mov a, #11110111b
1007 000185 1F15 mov combuf, a
1008 000186 ;--------------------------------
1009 000186 mndisplay80:
1010 000186 4A86 bset fc
1011 000187 0B15 rlcm combuf
1012 000188 ;-----
1013 000188 mndisplay90:
1014 000188 0E00 ret
1015 000189
1016 000189
1017 000189 ;**********************************************
1018 000189 ;Name :mntwinkle
1019 000189 ;Function:
1020 000189 ;Input :
1021 000189 ;Output :
1022 000189 ;Register Used:
1023 000189 ;***********************************************
1024 000189 mntwinkle:
1025 000189
1026 000189 mntwinkle90:
1027 000189 0E00 ret
1028 00018A
1029 00018A ;**********************************************
1030 00018A ;Name :mngetdata
1031 00018A ;Function:
1032 00018A ;Input :
1033 00018A ;Output :
1034 00018A ;Register Used:
1035 00018A ;***********************************************
1036 00018A mngetdata:
1037 00018A 7516 b0bts0 refurbishflag
1038 00018B 81A1 jmp mngetdata70 ;刷新显示
1039 00018C 7D17 b0bts1 operateflag ;只有在使能工作下，进入该程序
1040 00018D 81B4 jmp mngetdata90
1041 00018E 7C19 b0bts1 settimeflag
1042 00018F 81B4 jmp mngetdata90
1043 000190 7A16 b0bts1 t1mflag
1044 000191 81B4 jmp mngetdata90
1045 000192 ;----
1046 000192 4216 bclr t1mflag ;一分钟到计时
1047 000193 1E05 mov a,timerbuf
1048 000194 7086 b0bts0 fz
1049 000195 81B4 jmp mngetdata80 ;定时到
1050 000196 ;----
1051 000196 1E05 mov a,timerbuf
1052 000197 2A0F and a,#0fh
1053 000198 2401 sub a,#1
1054 000199 7286 b0bts0 fc
1055 00019A 81A0 jmp mngetdata60
1056 00019B ;----
1057 00019B 1E05 mov a,timerbuf
1058 00019C 2410 sub a,#10h
1059 00019D 1A09 or a,#09h
1060 00019E 1F05 mov timerbuf,a
1061 00019F 81A1 jmp mngetdata70
1062 0001A0 ;----
1063 0001A0 mngetdata60:
1064 0001A0 1F05 mov timerbuf,a
1065 0001A1 ;----
1066 0001A1 mngetdata70:
1067 0001A1 ;----
1068 0001A1 ;求得个位值
1069 0001A1 3402 b0mov y,#font_tbl$m
1070 0001A2 330A b0mov z,#font_tbl$l
1071 0001A3 1E05 mov a,timerbuf
1072 0001A4 2A0F and a,#0fh
1073 0001A5 1383 add z,a
1074 0001A6 2D00 mov a,#0
1075 0001A7 1184 adc y,a
1076 0001A8 0D00 movc
1077 0001A9 1F11 mov seg1buf,a
1078 0001AA ;----
1079 0001AA ;求得十位值
1080 0001AA 3402 b0mov y,#font_tbl$m
1081 0001AB 330A b0mov z,#font_tbl$l
1082 0001AC 1705 swap timerbuf
1083 0001AD 2A0F and a,#0fh
1084 0001AE 1383 add z,a
1085 0001AF 2D00 mov a,#0
1086 0001B0 1184 adc y,a
1087 0001B1 0D00 movc
1088 0001B2 1F12 mov seg2buf,a
1089 0001B3 0E00 ret
1090 0001B4 ;------------------
1091 0001B4 mngetdata80:
1092 0001B4
1093 0001B4
1094 0001B4 mngetdata90:
1095 0001B4 0E00 ret
1096 0001B5
1097 0001B5 /*
1098 0001B5 ;********************************************
1099 0001B5 ;name:conv_hex_bcd
1100 0001B5 ;function:小于10000的十六进制转换BCD码(要作10000以上的加个条件判断)
1101 0001B5 ;input: hexh,hexl
1102 0001B5 ;output:bcdh,bcdl
1103 0001B5 ;register:
1104 0001B5 ;********************************************
1105 0001B5 conv_hex_bcd:
1106 0001B5 clr bcdl
1107 0001B5 clr bcdh
1108 0001B5 gethighnibble:
1109 0001B5 mov a,hexl
1110 0001B5 sub a,#100
1111 0001B5 mov hexl,a
1112 0001B5 b0bts1 fc
1113 0001B5 jmp getmidnibble10
1114 0001B5 ;----
1115 0001B5 highnibbleinc:
1116 0001B5 mov a,#1
1117 0001B5 add bcdh,a
1118 0001B5 mov a,bcdh
1119 0001B5 and a,#0fh
1120 0001B5 sub a,#0ah
1121 0001B5 b0bts1 fc
1122 0001B5 jmp gethighnibble
1123 0001B5 mov a,#06h
1124 0001B5 add bcdh,a
1125 0001B5 jmp gethighnibble
1126 0001B5 ;----
1127 0001B5 getmidnibble10:
1128 0001B5 mov a,hexh
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -