📄 ask_hw_data.asm
字号:
;**************************************************************
;红外抄A相电流修整系数
;**************************************************************
ASK_I_A: CALL RD_I_A
JMP ASK_DATA_3
;*************************************************
;HW 读当前月最大需量
;在HW_BUF2----HW_BUF5中
;*************************************************
;ASK_NOW_XL: CALL RD_NOW_Y_XL
; JMP ASK_DATA_3
;*************************************************
;HW 读当前月最大需量发生时间
;在HW_BUF2----HW_BUF5中
;*************************************************
;ASK_NOW_XL_TIME:
; CALL RD_NOW_Y_XL_TIME
;ASK_DATA_5: MOV DPH,#3
; MOV DPL,#HW_BUF2
; MOV R1,#RD_BUF0
; MOV R7,#5
; CALL LOOP_R1_TO_DPTR
; RET
;*************************************************
;HW 读当前无功总电量
;在HW_BUF2----HW_BUF5中
;*************************************************
;ASK_NOW_W_Z:
; CALL RD_JL_NOW_W
; JMP ASK_CAL_4
;ASK_NOW_FX_W_Z:
; CALL RD_NOW_FX_W_DL
; JMP ASK_DATA_4
;***********************************************
;HW 读当前所有电量
; FL_NUM_BAK=2、3、4
;***********************************************
ASK_NOW_DL_ALL:
MOV FL_NUM,FL_NUM_BAK ;2004.6.21
CALL RD_NOW_ZDL
MOV DPH,#2
MOV DPL,#HW_BUF2
CALL LOOP_CAL_TO_DPTR
MOV FL_NUM,FL_NUM_BAK ;2004.6.21
CALL RD_NOW_FL_DL
MOV DPL,#HW_BUF6;发送数据填在HW_BUF6、7、8、9
CALL LOOP_RD_TO_DPTR
INC FL_NUM ;2004.6.21
CALL RD_NOW_FL_DL
MOV DPL,#HW_BUF10;发送数据填在HW_BUF10、11、12、13
CALL LOOP_RD_TO_DPTR
INC FL_NUM ;2004.6.21
CALL RD_NOW_FL_DL
MOV DPL,#HW_BUF14;发送数据填在HW_BUF14、15、16、17
CALL LOOP_RD_TO_DPTR
RET
;***********************************************
;HW 读当前所有电量
; FL_NUM_BAK=2、3、4
;***********************************************
;ASK_JL_NOW_DL_ALL:
; MOV FL_NUM,FL_NUM_BAK ;2004.6.21
; CALL RD_JL_NOW_ZDL
; MOV DPH,#2
; MOV DPL,#HW_BUF2
; CALL LOOP_CAL_TO_DPTR
; MOV FL_NUM,FL_NUM_BAK ;2004.6.21
; CALL RD_JL_NOW_FL_DL
; MOV DPL,#HW_BUF6;发送数据填在HW_BUF6、7、8、9
; CALL LOOP_CAL_TO_DPTR
; INC FL_NUM_BAK ;2004.6.21
; CALL RD_JL_NOW_FL_DL
; MOV DPL,#HW_BUF10;发送数据填在HW_BUF10、11、12、13
; CALL LOOP_CAL_TO_DPTR
; INC FL_NUM_BAK ;2004.6.21
; CALL RD_JL_NOW_FL_DL
; MOV DPL,#HW_BUF14;发送数据填在HW_BUF14、15、16、17
; CALL LOOP_CAL_TO_DPTR
; RET
;*************************************************
;HW 读上月最大需量
;在HW_BUF2----HW_BUF5中
;*************************************************
;ASK_LAST_XL: CALL RD_LAST_XL
; JMP ASK_DATA_3
;*************************************************
;HW 读上月最大需量发生时间
;在HW_BUF2----HW_BUF5中
;*************************************************
;ASK_LAST_XL_TIME:
; CALL RD_LAST_XL_TIME
; JMP ASK_DATA_5
;******************************************************
;2004.12.3 HW 读上月冻结所有电量,16字节，
;*****************************************************
;ASK_LAST_M_P_ALL:
; MOV FL_NUM,FL_NUM_BAK
; CALL RD_LAST_ZDL
; MOV DPH,#2
; MOV DPL,#HW_BUF2
; CALL LOOP_CAL_TO_DPTR
; MOV FL_NUM,FL_NUM_BAK
; CALL RD_LAST_FL_INT
; MOV DPL,#HW_BUF6 ;发送数据填在HW_BUF6、7、8、9
; CALL LOOP_RD_TO_DPTR
; INC FL_NUM
; CALL RD_LAST_FL_INT
; MOV DPL,#HW_BUF10 ;发送数据填在HW_BUF10、11、12、13
; CALL LOOP_RD_TO_DPTR
; INC FL_NUM
; CALL RD_LAST_FL_INT
; MOV DPL,#HW_BUF14;发送数据填在HW_BUF14、15、16、17
; CALL LOOP_RD_TO_DPTR
; RET
;******************************************************
;2004.12.3 HW 读上月冻结所有电量,16字节，
;*****************************************************
;ASK_JL_LAST_M_P_ALL:
; MOV FL_NUM,FL_NUM_BAK
; CALL RD_JL_LAST_ZDL
; MOV DPH,#2
; MOV DPL,#HW_BUF2
; CALL LOOP_CAL_TO_DPTR
; MOV FL_NUM,FL_NUM_BAK
; CALL RD_JL_LAST_FL_INT
; MOV DPL,#HW_BUF6 ;发送数据填在HW_BUF6、7、8、9
; CALL LOOP_CAL_TO_DPTR
; INC FL_NUM_BAK
; CALL RD_JL_LAST_FL_INT
; MOV DPL,#HW_BUF10 ;发送数据填在HW_BUF10、11、12、13
; CALL LOOP_CAL_TO_DPTR
; INC FL_NUM_BAK
; CALL RD_JL_LAST_FL_INT
; MOV DPL,#HW_BUF14;发送数据填在HW_BUF14、15、16、17
; CALL LOOP_CAL_TO_DPTR
; RET
;*************************************************
;HW 读上月无功总电量
;在HW_BUF2----HW_BUF5中
;*************************************************
;ASK_LAST_W_Z: CALL RD_JL_LAST_W
; JMP ASK_CAL_4
;ASK_LAST_FX_W_Z: CALL RD_LAST_FX_W_INT
; JMP ASK_DATA_4
;*************************************************
;HW 读昨日最大需量
;在HW_BUF2----HW_BUF5中
;*************************************************
;ASK_ZR_XL: CALL RD_ZR_XL
; JMP ASK_DATA_3
;*************************************************
;HW 读昨日最大需量发生时间
;在HW_BUF2----HW_BUF5中
;*************************************************
;ASK_ZR_XL_TIME:
; CALL RD_ZR_XL_TIME
; JMP ASK_DATA_5
;*************************************************
;HW 读昨日总电量
;在HW_BUF2----HW_BUF5中
;*************************************************
;ASK_ZR_M_P_Z: CALL RD_ZR_ZDL
;ASK_CAL_4: MOV DPH,#2
; MOV DPL,#HW_BUF2
; CALL LOOP_CAL_TO_DPTR
; RET
;******************************************************
; HW 读昨日冻结所有电量,16字节，
;*****************************************************
;ASK_ZR_M_P_ALL:
; MOV FL_NUM,FL_NUM_BAK
; CALL ASK_ZR_M_P_Z
; MOV FL_NUM,FL_NUM_BAK
; CALL RD_ZR_FL_INT
; MOV DPL,#HW_BUF6 ;发送数据填在HW_BUF6、7、8、9
; CALL LOOP_RD_TO_DPTR
; INC FL_NUM
; CALL RD_ZR_FL_INT
; MOV DPL,#HW_BUF10 ;发送数据填在HW_BUF10、11、12、13
; CALL LOOP_RD_TO_DPTR
; INC FL_NUM
; CALL RD_ZR_FL_INT
; MOV DPL,#HW_BUF14;发送数据填在HW_BUF14、15、16、17
; CALL LOOP_RD_TO_DPTR
; RET
;******************************************************
; HW 读昨日冻结所有电量,16字节，
;*****************************************************
;ASK_JL_ZR_M_P_ALL:
; MOV FL_NUM,FL_NUM_BAK
; CALL RD_JL_ZR_ZDL
; MOV DPH,#2
; MOV DPL,#HW_BUF2
; CALL LOOP_CAL_TO_DPTR
; MOV FL_NUM,FL_NUM_BAK
; CALL RD_JL_ZR_FL_INT
; MOV DPL,#HW_BUF6 ;发送数据填在HW_BUF6、7、8、9
; CALL LOOP_CAL_TO_DPTR
; INC FL_NUM_BAK
; CALL RD_JL_ZR_FL_INT
; MOV DPL,#HW_BUF10 ;发送数据填在HW_BUF10、11、12、13
; CALL LOOP_CAL_TO_DPTR
; INC FL_NUM_BAK
; CALL RD_JL_ZR_FL_INT
; MOV DPL,#HW_BUF14;发送数据填在HW_BUF14、15、16、17
; CALL LOOP_CAL_TO_DPTR
; RET
;*************************************************
;HW 读昨日无功总电量
;在HW_BUF2----HW_BUF5中
;*************************************************
;ASK_ZR_W_Z: CALL RD_JL_ZR_W
; JMP ASK_CAL_4
;ASK_ZR_FX_W_Z: CALL RD_ZR_FX_W_INT
; JMP ASK_DATA_4
;*************************************************
LOOP_RD_TO_DPTR:
MOV R1,#RD_BUF0
MOV R7,#4
CALL LOOP_R1_TO_DPTR
RET
;**************************************************
LOOP_CAL_TO_DPTR:
MOV R1,#CAL_BUF0
MOV R7,#4
LOOP_R1_TO_DPTR:
MOV A,@R1
MOVX @DPTR,A
INC DPTR
INC R1
DJNZ R7,LOOP_R1_TO_DPTR
RET
END⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -