📄 rd_data.asm
字号:
; MOV A,FL_NUM_BAK
; ADD A,#4
; MOV FL_NUM,A ;读取第?费率表底
; CALL RD_NOW_FL_DL
; CALL RD_TO_CAL
;RD_JL_NOW_FL_INT1:
; MOV FL_NUM,FL_NUM_BAK
; CALL RD_NOW_FL_DL
; CALL CAL_DL_SUM
; RET
;******************************************
;读当前总电量,FL2+FL3+FL4
; FL_NUM_BAK=2、3、4
;******************************************
RD_NOW_ZDL: CALL CAL_TO_0
RD_NOW_ZDL1: MOV FL_NUM,FL_NUM_BAK ;读取第2费率表底
CALL RD_NOW_FL_DL
CALL CAL_DL_SUM
INC FL_NUM ; 读取第3费率表底
CALL RD_NOW_FL_DL
CALL CAL_DL_SUM
INC FL_NUM ; 读取第4费率表底
CALL RD_NOW_FL_DL
CALL CAL_DL_SUM
RET
;******************************************
;按计量方式读当前总电量,FL2+FL3+FL4
; FL_NUM_BAK=2、3、4 05-11-30 LIHENG
;******************************************
;RD_JL_NOW_ZDL:
; CALL CAL_TO_0
; CALL RD_YG_JLFS
; MOV A,RD_BUF0
; CJNE A,#11H,RD_JL_NOW_ZDL1 ;=11 正+反
; MOV A,FL_NUM_BAK
; ADD A,#4
; MOV FL_NUM,A ;读取第6费率表底
; CALL RD_NOW_FL_DL
; CALL RD_TO_CAL
; INC FL_NUM ; 读取第7费率表底
; CALL RD_NOW_FL_DL
; CALL CAL_DL_SUM
; INC FL_NUM ; 读取第8费率表底
; CALL RD_NOW_FL_DL
; CALL CAL_DL_SUM
;RD_JL_NOW_ZDL1:
; CALL RD_NOW_ZDL1
; RET
;****************************************
;读当前无功电量整数 2005.8.10li
;****************************************
;EER_810: JMP RESET_SYS
;RD_NOW_W_INT:
; MOV ADDR_24,#QFL_INT_24
; MOV WR_ID,#WR_2410
; MOV RD_N,#5
; CALL RD24_DO_CHK
; RET
;****************************************
;读当前无功电量(含整数和小数) 2005-12-01 LLIHENG
;****************************************
;RD_NOW_W_DL:
; CALL RD_FLOAT_WG
; MOV RD_BUF6,RD_BUF0
; CALL RD_NOW_W_INT
; MOV RD_BUF0,RD_BUF6
; RET
;******************************************
;按计量方式读当前无功电量,
; FL_NUM_BAK=2、3、4 05-11-30 LIHENG
;******************************************
;RD_JL_NOW_W: CALL CAL_TO_0
; CALL RD_WG_JLFS
; MOV A,RD_BUF0
; CJNE A,#11H,RD_JL_NOW_W1 ;=11 正+反
; CALL RD_NOW_FX_W_DL
; CALL RD_TO_CAL
;RD_JL_NOW_W1:
; CALL RD_NOW_W_DL
; CALL CAL_DL_SUM
; RET
;****************************************
;读当前反相无功电量 2005.8.10li
;****************************************
;RD_NOW_FX_W_INT:
; MOV ADDR_24,#QFL_FX_INT_24
; MOV WR_ID,#WR_2410
; MOV RD_N,#5
; CALL RD24_DO_CHK
; RET
;****************************************
;读当前无功电量(含整数和小数) 2005-12-01 LLIHENG
;****************************************
;RD_NOW_FX_W_DL:
; CALL RD_FLOAT_FX_WG
; MOV RD_BUF6,RD_BUF0
; CALL RD_NOW_FX_W_INT
; MOV RD_BUF0,RD_BUF6
; RET
;****************************************
;读当前日最大需量
;****************************************
;RD_NOW_XL:
; MOV ADDR_24,#XL_INT_24
; MOV WR_ID,#WR_2410
; MOV RD_N,#4
; CALL RD24_DO_CHK
; RET
;****************************************
;读当前日最大需量发生时间
;****************************************
;RD_NOW_XL_TIME:
; MOV ADDR_24,#XL_TIME_24
; MOV WR_ID,#WR_2410
; MOV RD_N,#5
; CALL RD24_DO_CHK
; RET
;****************************************
;读当前月最大需量
;****************************************
;RD_NOW_Y_XL:
; MOV ADDR_24,#XL_INT_Y_24
; MOV WR_ID,#WR_2410
; MOV RD_N,#4
; CALL RD24_DO_CHK
; RET
;****************************************
;读当前月最大需量发生时间
;****************************************
;RD_NOW_Y_XL_TIME:
; MOV ADDR_24,#XL_TIME_Y_24
; MOV WR_ID,#WR_2410
; MOV RD_N,#5
; CALL RD24_DO_CHK
; RET
;*****************************************
;读上月无功冻结电量
;****************************************
;EER_814: JMP RESET_SYS
;RD_LAST_W_INT:
; MOV ADDR_24,#LAST_QFL_INT_24
; MOV WR_ID,#WR_2412
; MOV RD_N,#5
; CALL RD24_DO_CHK
; RET
;*****************************************
;读上月反相无功冻结电量
;****************************************
;RD_LAST_FX_W_INT:
; MOV ADDR_24,#LAST_QFL_FX_INT_24
; MOV WR_ID,#WR_2412
; MOV RD_N,#5
; CALL RD24_DO_CHK
; RET
;******************************************
;按计量方式读上月无功电量,
; FL_NUM_BAK=2、3、4 05-11-30 LIHENG
;******************************************
;RD_JL_LAST_W: CALL CAL_TO_0
; CALL RD_WG_JLFS
; MOV A,RD_BUF0
; CJNE A,#11H,RD_JL_LAST_W1 ;=11 正+反
; CALL RD_LAST_FX_W_INT
; CALL RD_TO_CAL
;RD_JL_LAST_W1:
; CALL RD_LAST_W_INT
; CALL CAL_DL_SUM
; RET
;***************************************************8
;读上月冻结总电量
;************************************************
;RD_LAST_ZDL: CALL CAL_TO_0
;RD_LAST_ZDL1: MOV FL_NUM,FL_NUM_BAK ; 读取第2费率表底
; CALL RD_LAST_FL_INT
; CALL CAL_DL_SUM
; INC FL_NUM ; 读取第3费率表底
; CALL RD_LAST_FL_INT
; CALL CAL_DL_SUM
; INC FL_NUM ;读取第4费率表底
; CALL RD_LAST_FL_INT
; CALL CAL_DL_SUM
; RET
;******************************************
;按计量方式读上月总电量,FL2+FL3+FL4
; FL_NUM_BAK=2、3、4 05-11-30 LIHENG
;******************************************
;RD_JL_LAST_ZDL:
; CALL CAL_TO_0
; CALL RD_YG_JLFS
; MOV A,RD_BUF0
; CJNE A,#11H,RD_JL_LAST_ZDL1 ;=11 正+反
; MOV A,FL_NUM_BAK
; ADD A,#4
; MOV FL_NUM,A ;读取第6费率表底
; CALL RD_LAST_FL_INT
; CALL RD_TO_CAL
; INC FL_NUM ; 读取第7费率表底
; CALL RD_LAST_FL_INT
; CALL CAL_DL_SUM
; INC FL_NUM ;读取第8费率表底
; CALL RD_LAST_FL_INT
; CALL CAL_DL_SUM
;RD_JL_LAST_ZDL1:
; CALL RD_LAST_ZDL1
; RET
;*****************************************
;读上月冻结电量
;****************************************
;EER_123: JMP RESET_SYS
;RD_LAST_FL_INT: CLR C
; MOV A,FL_NUM ;费率数为2,3,4，
; SUBB A,#2
; JC EER_123
; CJNE A,#3,RD_LAST_FL_INT1
; JMP EER_123
;RD_LAST_FL_INT1:CJNE A,#6,RD_LAST_FL_INT2
;RD_LAST_FL_INT3:MOV B,#08H
; MUL AB
; ADD A,#LAST_PFL2_INT_24
; MOV ADDR_24,A
; MOV WR_ID,#WR_2412
; MOV RD_N,#5
; CALL RD24_DO_CHK
; RET
;RD_LAST_FL_INT2:JC RD_LAST_FL_INT3
; JMP EER_123
;******************************************
;按计量方式读上月冻结电量
; FL_NUM_BAK=2、3、4 05-11-30 LIHENG
;******************************************
;RD_JL_LAST_FL_INT:
; CALL CAL_TO_0
; CALL RD_YG_JLFS
; MOV A,RD_BUF0
; CJNE A,#11H,RD_JL_LAST_FL_INT1 ;=11 正+反
; MOV A,FL_NUM_BAK
; ADD A,#4
; MOV FL_NUM,A ;读取第?费率表底
; CALL RD_LAST_FL_INT
; CALL RD_TO_CAL
;RD_JL_LAST_FL_INT1:
; MOV FL_NUM,FL_NUM_BAK
; CALL RD_LAST_FL_INT
; CALL CAL_DL_SUM
; RET
;****************************************
;读上月冻结月份
;****************************************
;RD_LAST_MON: MOV ADDR_24,#LAST_MON_24
; MOV WR_ID,#WR_2412
; MOV RD_N,#2
; CALL RD24_DO_CHK
; RET
;****************************************
;读上月最大需量
;****************************************
;RD_LAST_XL:
; MOV ADDR_24,#LAST_XL_INT_24
; MOV WR_ID,#WR_2412
; MOV RD_N,#4
; CALL RD24_DO_CHK
; RET
;****************************************
;读上月最大需量发生时间
;****************************************
;RD_LAST_XL_TIME:
; MOV ADDR_24,#LAST_XL_TIME_24
; MOV WR_ID,#WR_2412
; MOV RD_N,#5
; CALL RD24_DO_CHK
; RET
;*****************************************
;读昨日无功冻结电量
;****************************************
;EER_8141: JMP RESET_SYS
;RD_ZR_W_INT:
; MOV ADDR_24,#ZR_QFL_INT_24
; MOV WR_ID,#WR_2412
; MOV RD_N,#5
; CALL RD24_DO_CHK
; RET
;*****************************************
;读昨日反相无功冻结电量
;****************************************
;RD_ZR_FX_W_INT:
; MOV ADDR_24,#ZR_QFL_FX_INT_24
; MOV WR_ID,#WR_2412
; MOV RD_N,#5
; CALL RD24_DO_CHK
; RET
;******************************************
;按计量方式读昨日无功电量,
; FL_NUM_BAK=2、3、4 05-11-30 LIHENG
;******************************************
;RD_JL_ZR_W: CALL CAL_TO_0
; CALL RD_WG_JLFS
; MOV A,RD_BUF0
; CJNE A,#11H,RD_JL_ZR_W1 ;=11 正+反
; CALL RD_ZR_FX_W_INT
; CALL RD_TO_CAL
;RD_JL_ZR_W1:
; CALL RD_ZR_W_INT
; CALL CAL_DL_SUM
; RET
;***************************************************8
;读昨日冻结总电量
;************************************************
;RD_ZR_ZDL: CALL CAL_TO_0
;RD_ZR_ZDL1: MOV FL_NUM,FL_NUM_BAK ; 读取第2费率表底
; CALL RD_ZR_FL_INT
; CALL CAL_DL_SUM
; INC FL_NUM ; 读取第3费率表底
; CALL RD_ZR_FL_INT
; CALL CAL_DL_SUM
; INC FL_NUM ;读取第4费率表底
; CALL RD_ZR_FL_INT
; CALL CAL_DL_SUM
; RET
;******************************************
;按计量方式读昨日总电量,FL2+FL3+FL4
; FL_NUM_BAK=2、3、4 05-11-30 LIHENG
;******************************************
;RD_JL_ZR_ZDL:
; CALL CAL_TO_0
; CALL RD_YG_JLFS
; MOV A,RD_BUF0
; CJNE A,#11H,RD_JL_ZR_ZDL1 ;=11 正+反
; MOV A,FL_NUM_BAK
; ADD A,#4
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -