📄 9821h621.lst
字号:
0869 0238 C204 BCF STATUS,C ;0->Cy
0870 0239 3E8A RRF R_PubReg3,1 ;\
0871 023A 3E89 RRF R_PubReg2,1 ; | [R_PubReg3:R_PubReg0]右移1位
0872 023B 3E88 RRF R_PubReg1,1 ; | ->R_PubReg3:R_PubReg0
0873 023C 3E87 RRF R_PubReg0,1 ;/
0874 023D A231 GOTO L_CalcHeft4L1
0875 L_CalcHeft43:
0876 023E 4001 MOVLW 1
0877 023F 2284 MOVWF R_Count ;1->R_Count
0878 0240 8414 CALL S_RL1Bit ;[R_PubCnt3]+1->R_PubCnt3，[R_PubReg3:R_PubReg0]左移1位->R_PubReg3:R_PubReg0
0879 0241 A231 GOTO L_CalcHeft4L1
0880 L_DispHeft:
0881 0242 EA86 BTFSC R_PubFlag1,5
0882 0243 A24B GOTO L_DispHeft_11 ;[R_PubFlag1].5=1 (计量单位=lb) 转
0883 0244 4080 MOVLW 80H ;\
0884 0245 0488 ADDWF R_PubReg1,0 ; | 计量单位=kg,分度值=1
0885 0246 4000 MOVLW 0 ; | [R_PubReg3:R_PubReg2]+0.5
0886 0247 2689 ADDWFC R_PubReg2,1 ; | ->R_PubReg3:R_PubReg2
0887 0248 4000 MOVLW 0 ; | (四舍五入)
0888 0249 268A ADDWFC R_PubReg3,1 ;/
0889 024A A250 GOTO L_DispHeft_12
0890 L_DispHeft_11:
0891 024B 4001 MOVLW 1 ;\ 计量单位=lb,分度值=2
0892 024C 0689 ADDWF R_PubReg2,1 ; | [R_PubReg3:R_PubReg2]+1
0893 024D 4000 MOVLW 0 ; | ->R_PubReg3:R_PubReg2
0894 024E 268A ADDWFC R_PubReg3,1 ;/ (四舍五入)
0895 024F C089 BCF R_PubReg2,0 ;0->R_PubReg2.0
0896 L_DispHeft_12:
0897 0250 4001 MOVLW D_DecimalDigits
0898 0251 22C9 MOVWF R_DispMode ;D_DecimalDigits(小数位数)->R_DispMode
0899 0252 D4C9 BSF R_DispMode,2 ;1->R_DispMode.2 显示计量单位
0900 0253 F286 BTFSS R_PubFlag1,1
0901 0254 A25B GOTO L_DispHeft_2 ;[R_PubFlag1].1=0(未锁定) 转
0902 0255 D8CF BSF R_DispFlag,4 ;[R_PubFlag1].1=1(称重数据锁定),1->R_DispFlag.4 显示锁符
0903 0256 40A0 MOVLW 0A0H
0904 0257 228E MOVWF R_PubCnt1 ;0A0H->R_PubCnt1,定时10秒
0905 0258 40C0 MOVLW 0C0H
0906 0259 2282 MOVWF R_WorkStatus ;0C0H->R_WorkStatus,2秒后关机
0907 025A C81C BCF NETE,ENVS ;0->NETE.ENVS 关VS输出
0908 L_DispHeft_2:
0909 025B 851C CALL S_Hex2BCD ;将[R_PubReg3:R_PubReg2]转换为5位BCD码->R_DispBuff4:R_DispBuff0
0910 025C A49E GOTO S_Display ;去显示
0911 L_CalcHeftRet:
0912 025D 0003 RETURN
0913 ;
0914 S_RdMinDispV: ;读最小显示值
0915 025E 0008 ADDPCW
0916 025F 4802 RETLW 2 ;D_P21=0,最小显示值=0.2KG
0917 0260 4804 RETLW 4 ;D_P21=1,最小显示值=0.4KG
0918 0261 4805 RETLW 5 ;D_P21=2,最小显示值=0.5KG
0919 0262 4808 RETLW 8 ;D_P21=3,最小显示值=0.8KG
0920 0263 480A RETLW 10 ;D_P21=4,最小显示值=1.0KG
0921 0264 480C RETLW 12 ;D_P21=5,最小显示值=1.2KG
0922 0265 480F RETLW 15 ;D_P21=6,最小显示值=1.5KG
0923 0266 4814 RETLW 20 ;D_P21=7,最小显示值=2.0KG
0924 0267 4819 RETLW 25 ;D_P21=8,最小显示值=2.5KG
0925 0268 4832 RETLW 50 ;D_P21=9,最小显示值=5.0KG
0926 ;
0927 L_DispOverErr: ;显示超载错误
0928 0269 8482 CALL S_ClrDisp
0929 026A 400F MOVLW 0FH
0930 026B 22CD MOVWF R_DispBuff3 ;0FH("F")->R_DispBuff3
0931 026C 22CC MOVWF R_DispBuff2 ;0FH("F")->R_DispBuff2
0932 026D 22CB MOVWF R_DispBuff1 ;0FH("F")->R_DispBuff1
0933 026E 22CA MOVWF R_DispBuff0 ;0FH("F")->R_DispBuff0
0934 026F 4008 MOVLW 08H
0935 0270 22C9 MOVWF R_DispMode ;08H->R_DispMode,无小数点，16进制显示方式
0936 0271 A49E GOTO S_Display ;去显示
0937 ;------------------------------------------------------------------------------
0938 L_CaliProc: ;标定处理
0939 0272 4080 MOVLW 80H
0940 0273 2ACF ANDWF R_DispFlag,1 ;0->R_DispFlag.6:0
0941 0274 E682 BTFSC R_WorkStatus,3
0942 0275 A2E4 GOTO L_CaliOver ;[R_WorkStatus].3=1(标定完成) 转
0943 0276 EE92 BTFSC R_KeyStatus,7
0944 0277 A280 GOTO L_CaliProc_1 ;[R_KeyStatus].7=1 转
0945 0278 E892 BTFSC R_KeyStatus,4 ;[R_KeyStatus].7=0
0946 0279 A2F8 GOTO L_DispCaliCode ;[R_KeyStatus].4=1 转去显示内码
0947 027A 2093 MOVFW R_KeyCode
0948 027B 680F ANDLW 0FH
0949 027C 5806 SUBLW 06H
0950 027D E004 BTFSC STATUS,Z
0951 027E A307 GOTO L_DispDate ;[R_KeyCode].2:0=6("TARE"键按下)转去显示日期
0952 027F A2F8 GOTO L_DispCaliCode ;去显示内码
0953 L_CaliProc_1:
0954 0280 400C MOVLW 0CH
0955 0281 1893 SUBWF R_KeyCode,0
0956 0282 F004 BTFSS STATUS,Z
0957 0283 A2F7 GOTO L_CaliProcRet ;[R_KeyCode]≠0CH(不是"Cali"键短键释放) 转，返回
0958 0284 4070 MOVLW 70H
0959 0285 2E92 IORWF R_KeyStatus,1 ;7->R_KeyStatus.7:4
0960 0286 E082 BTFSC R_WorkStatus,0
0961 0287 A296 GOTO L_CaliProc_3 ;[R_WorkStatus].0=1 转
0962 0288 209E MOVFW R_ZeroCodeL ;\
0963 0289 22D1 MOVWF R_CaliCode0L ; | [R_ZeroCodeH:R_ZeroCodeL]
0964 028A 209F MOVFW R_ZeroCodeH ; | ->R_CaliCode0H:R_CaliCode0L
0965 028B 22D2 MOVWF R_CaliCode0H ;/ 暂存零点内码
0966 028C D082 BSF R_WorkStatus,0 ;1->R_WorkStatus.0
0967 028D 8482 CALL S_ClrDisp ;清显示，然后显示“0.0KG”
0968 L_CaliProc_2:
0969 028E 02CA CLRF R_DispBuff0 ;0->R_DispBuff0
0970 028F 02CB CLRF R_DispBuff1 ;0->R_DispBuff1
0971 0290 4005 MOVLW 05H
0972 0291 22C9 MOVWF R_DispMode ;05H->R_DispMode(显示计量单位、1位小数)
0973 0292 4010 MOVLW 10H
0974 0293 228E MOVWF R_PubCnt1 ;10H->R_PubCnt1,定时1秒
0975 0294 DE82 BSF R_WorkStatus,7 ;1->R_WorkStatus.7
0976 0295 A49E GOTO S_Display
0977 L_CaliProc_3:
0978 0296 40D1 MOVLW R_CaliCode0L
0979 0297 2202 MOVWF FSR0
0980 0298 F282 BTFSS R_WorkStatus,1
0981 0299 A2A0 GOTO L_CaliProc_31 ;[R_WorkStatus].1=0 转
0982 029A 0A02 INCF FSR0,1 ;[FSR0]+1->FSR
0983 029B 0A02 INCF FSR0,1 ;[FSR0]+1->FSR
0984 029C F482 BTFSS R_WorkStatus,2
0985 029D A2A0 GOTO L_CaliProc_31 ;[R_WorkStatus].2=0 转
0986 029E 0A02 INCF FSR0,1 ;[FSR0]+1->FSR
0987 029F 0A02 INCF FSR0,1 ;[FSR0]+1->FSR
0988 L_CaliProc_31:
0989 02A0 2000 MOVFW IND0
0990 02A1 2287 MOVWF R_PubReg0 ;[IND0]->R_PubReg0
0991 02A2 0A02 INCF FSR0,1 ;[FSR0]+1->FSR
0992 02A3 2000 MOVFW IND0
0993 02A4 2288 MOVWF R_PubReg1 ;[IND0]->R_PubReg1
0994 02A5 E482 BTFSC R_WorkStatus,2
0995 02A6 A2AD GOTO L_CaliProc_30 ;[R_WorkStatus].2=1(标定120KG) 转
0996 02A7 0A02 INCF FSR0,1 ;[FSR0]+1->FSR
0997 02A8 209E MOVFW R_ZeroCodeL
0998 02A9 2200 MOVWF IND0 ;保存标定内码低字节
0999 02AA 0A02 INCF FSR0,1 ;[FSR0]+1->FSR
1000 02AB 209F MOVFW R_ZeroCodeH
1001 02AC 2200 MOVWF IND0 ;保存标定内码高字节
1002 L_CaliProc_30:
1003 02AD 209E MOVFW R_ZeroCodeL ;\
1004 02AE 228B MOVWF R_PubReg4 ; | [R_ZeroCodeH:R_ZeroCodeL]
1005 02AF 209F MOVFW R_ZeroCodeH ; | ->R_PubReg5:R_PubReg4
1006 02B0 228C MOVWF R_PubReg5 ;/
1007 02B1 83F2 CALL S_CalcABS ;计算[R_PubReg5:R_PubReg4]-[R_PubReg1:R_PubReg0]绝对值->R_PubReg5:R_PubReg4
1008 02B2 E686 BTFSC R_PubFlag1,3
1009 02B3 A2F7 GOTO L_CaliProcErr ;[R_PubFlag1].3=1(减法结果为负数) 转 标定错误处理
1010 02B4 4090 MOVLW 90H ;\
1011 02B5 2289 MOVWF R_PubReg2 ; | 0190H->R_PubReg3:R_PubReg2
1012 02B6 4001 MOVLW 01H ; | 400->R_PubReg3:R_PubReg2
1013 02B7 228A MOVWF R_PubReg3 ;/
1014 02B8 208B MOVFW R_PubReg4
1015 02B9 1889 SUBWF R_PubReg2,0
1016 02BA 208C MOVFW R_PubReg5
1017 02BB 388A SUBWFC R_PubReg3,0
1018 02BC E204 BTFSC STATUS,C
1019 02BD A2F7 GOTO L_CaliProcErr ;[R_PubReg3:R_PubReg2]≥[R_PubReg5:R_PubReg4] 转，返回
1020 02BE 8500 CALL S_Divis ;[R_PubReg3:R_PubReg2]×65536÷[R_PubReg5:R_PubReg4]->R_PubReg1:R_PubReg0
1021 02BF EE88 BTFSC R_PubReg1,7
1022 02C0 A2F7 GOTO L_CaliProcErr ;[R_PubReg1]≥80H(每个内码对应的重量≥0.5d) 转，返回
1023 02C1 E482 BTFSC R_WorkStatus,2
1024 02C2 A2D9 GOTO L_CaliProc_33 ;[R_WorkStatus].2=1(标定120KG) 转
1025 02C3 E282 BTFSC R_WorkStatus,1
1026 02C4 A2D0 GOTO L_CaliProc_32 ;[R_WorkStatus].1=1(标定80KG) 转
1027 02C5 F082 BTFSS R_WorkStatus,0
1028 02C6 A2F7 GOTO L_CaliProcErr ;[R_WorkStatus].0=0(不是标定40KG) 转
1029 02C7 2087 MOVFW R_PubReg0 ;\
1030 02C8 22D7 MOVWF R_CaliData1L ; | [R_PubReg1:R_PubReg0]->R_CaliData1H:R_CaliData1L
1031 02C9 2088 MOVFW R_PubReg1 ; | 保存 40KG 标定数据
1032 02CA 22D8 MOVWF R_CaliData1H ;/
1033 02CB 8482 CALL S_ClrDisp
1034 02CC 4004 MOVLW 04H
1035 02CD 22CC MOVWF R_DispBuff2 ;4->R_DispBuff2 ;显示“40.0KG”
1036 02CE D282 BSF R_WorkStatus,1 ;1->R_WorkStatus.1
1037 02CF A28E GOTO L_CaliProc_2
1038 L_CaliProc_32:
1039 02D0 2087 MOVFW R_PubReg0 ;\
1040 02D1 22D9 MOVWF R_CaliData2L ; | [R_PubReg1:R_PubReg0]->R_CaliData2H:R_CaliData2L
1041 02D2 2088 MOVFW R_PubReg1 ; | 保存 80KG 标定数据
1042 02D3 22DA MOVWF R_CaliData2H ;/
1043 02D4 8482 CALL S_ClrDisp
1044 02D5 4008 MOVLW 08H
1045 02D6 22CC MOVWF R_DispBuff2 ;8->R_DispBuff2 ;显示“80.0KG”
1046 02D7 D482 BSF R_WorkStatus,2 ;1->R_WorkStatus.2
1047 02D8 A28E GOTO L_CaliProc_2
1048 L_CaliProc_33:
1049 02D9 2087 MOVFW R_PubReg0 ;\
1050 02DA 22DB MOVWF R_CaliData3L ; | [R_PubReg1:R_PubReg0]->R_CaliData3H:R_CaliData3L
1051 02DB 2088 MOVFW R_PubReg1 ; | 保存 120KG 标定数据
1052 02DC 22DC MOVWF R_CaliData3H ;/
1053 02DD 8482 CALL S_ClrDisp
1054 02DE 4002 MOVLW 02H
1055 02DF 22CC MOVWF R_DispBuff2 ;2->R_DispBuff2
1056 02E0 4001 MOVLW 01H
1057 02E1 22CD MOVWF R_DispBuff3 ;1->R_DispBuff3 ;显示“120.0KG”
1058 02E2 D682 BSF R_WorkStatus,3 ;1->R_WorkStatus.3
1059 02E3 A28E GOTO L_CaliProc_2
1060 ;
1061 L_CaliOver: ;标定完成处理
1062 02E4 8482 CALL S_ClrDisp ;清LCD显示缓冲区LCD1-LCD6
1063 02E5 40A5 MOVLW D_CaliMark
1064 02E6 22DD MOVWF R_CaliFlag ;D_CaliMark->R_CaliFlag
1065 02E7 85E8 CALL S_WrCaliData ;将[R_CaliChksumH:R_CaliPara]的8个16位数据写入到93LC46的00H-07H中
1066 02E8 4020 MOVLW 20H
1067 02E9 228E MOVWF R_PubCnt1 ;20H->R_PubCnt1,定时2秒
1068 02EA 40C1 MOVLW 0C1H
1069 02EB 2282 MOVWF R_WorkStatus ;0C1H->R_WorkStatus，显示版本号2秒后再显示修改日期2秒后关机。
1070 02EC 4015 MOVLW 15H ;"H" ;\
1071 02ED 22CD MOVWF R_DispBuff3 ;15H("H")->R_DispBuff3 ; |
1072 02EE 4006 MOVLW 06H ; | 显示版本号
1073 02EF 22CC MOVWF R_DispBuff2 ;06H("6")->R_DispBuff2 ; | "H621 "
1074 02F0 4002 MOVLW 02H ; |
1075 02F1 22CB MOVWF R_DispBuff1 ;02H("2")->R_DispBuff1 ; |
1076 02F2 4001 MOVLW 01H ; |
1077 02F3 22CA MOVWF R_DispBuff0 ;01H("0")->R_DispBuff0 ;/
1078 02F4 4008 MOVLW 08H
1079 02F5 22C9 MOVWF R_DispMode ;08H->R_DispMode,无小数点，16进制显示方式
1080 02F6 A49E GOTO S_Display ;去显示
1081 L_CaliProcErr: ;标定不成功，返回
1082 L_CaliProcRet:
1083 02F7 0003 RETURN
1084 ;
1085 S_DispCaliCode: ;显示内码
1086 L⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -