rd_kui_data.asm

基于PL3000芯片的单相复费率多功能电表的应用程序。

;************************************************************
$INCLUDE	(RAML128.INC)
$INCLUDE	(IO.INC)
$INCLUDE	(PL3200.INC)
$INCLUDE	(CONST.INC)
$INCLUDE	(RAM.INC)

NAME		  RD_KUI_DATA
CODE_REG	SEGMENT	CODE
RSEG	  	CODE_REG
PUBLIC    RD_KUI
;*******************************;调用子程序情况:
EXTRN   CODE(RD_V_A)           
EXTRN   CODE(RD_I_A)     

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;读取电流，电压系数
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RD_KUI:        NOP                    ;读A相取电流电压修正系数
               MOV     DPTR,#KUA_0
               MOVX    A,@DPTR
               MOV     KU_0,A
               MOV     B,A
               MOV     DPTR,#KUA_1
               MOVX    A,@DPTR
               MOV     KU_1,A
               ADD     A,B
               MOV     B,A
               MOV     DPTR,#KUA_2
               MOVX    A,@DPTR
               MOV     KU_2,A
               ADD     A,B
               ADD     A,#'X'
               MOV     B,A
               MOV     DPTR,#KUA_3
               MOVX    A,@DPTR
               CJNE    A,B,RD_KUA_24
               LJMP    RD_KI_A
RD_KUA_24:     NOP
               CALL    RD_V_A
               MOV     KU_0,RD_BUF0
               MOV     KU_1,RD_BUF1
               MOV     KU_2,RD_BUF2
               
RD_KI_A:       NOP
               MOV     DPTR,#KIA_0
               MOVX    A,@DPTR
               MOV     KI_0,A
               MOV     B,A
               MOV     DPTR,#KIA_1
               MOVX    A,@DPTR
               MOV     KI_1,A
               ADD     A,B
               MOV     B,A
               MOV     DPTR,#KIA_2
               MOVX    A,@DPTR
               MOV     KI_2,A
               ADD     A,B
               ADD     A,#'X'
               MOV     B,A
               MOV     DPTR,#KIA_3
               MOVX    A,@DPTR
               CJNE    A,B,RD_KIA_24
               RET
RD_KIA_24:     NOP
               CALL    RD_I_A
               MOV     KI_0,RD_BUF0
               MOV     KI_1,RD_BUF1
               MOV     KI_2,RD_BUF2
               RET


              END