frz_last_mon_data.asm

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

;************************************************************
;文档类型: 原代码 
;项目编号: 
;文档编号: 
;修订版本: v1.0
;生成日期: 2004.12.3
;文档作者: LI
;审    核: 
;************************************************************
;相关文档: 上月冻结处理程序
;文档编号      说明 
;************************************************************
;修订版本:
;修订版本: 
;************************************************************
$INCLUDE	(RAML128.INC)
$INCLUDE	(RAMH128.INC)
$INCLUDE	(IO.INC)
$INCLUDE	(24ADDR.INC)
$INCLUDE	(PL3200.INC)

CODE_REG	SEGMENT	CODE
RSEG		CODE_REG
;PUBLIC          FRZ_LAST_MON_DATA
;PUBLIC          MOV_RD_TO_WR
;PUBLIC          WR_5_2412   ;修改程序压缩
;*******************************;调用子程序情况:
;EXTRN   CODE(RESET_SYS) 
;EXTRN   CODE(RD_NOW_FL_INT)
;EXTRN   CODE(RD_NOW_W_DL)
;EXTRN   CODE(WR_PARA_TO_24)
;EXTRN   CODE(RD_NOW_Y_XL)
;EXTRN   CODE(RD_NOW_Y_XL_TIME)
;EXTRN   CODE(CLR_XL3)
;EXTRN   CODE(RD_FLOAT_ZYG)
;EXTRN   CODE(RD_FLOAT_FYG)
;EXTRN   CODE(RD_FLOAT_WG)
;EXTRN   CODE(RD_FLOAT_FX_WG)
;EXTRN   CODE(RD_NOW_FX_W_DL)
;EXTRN   CODE(RD_NOW_FL_DL)
;**************************************************************
;保存上月冻结处理程序
;IN:,FL_NUM_BAK,   WR_BUF0,1,2
;OUT:
;**************************************************************
;FRZ_ERR:	JMP    RESET_SYS
;FRZ_LAST_MON_DATA: 
;                  MOV   A,DJ_LAST
;                  CJNE  A,#'L',FRZ_ERR 
;                MOV     FL_NUM,#2 
;                CALL	RD_NOW_FL_DL 
;                CALL    MOV_RD_TO_WR	
;		MOV     ADDR_24,#LAST_PFL2_INT_24
;	        CALL   WR_5_2412   ;修改程序压缩
 	        
; 	        MOV     FL_NUM,#3 
;                CALL	RD_NOW_FL_DL  
;                CALL    MOV_RD_TO_WR
;		MOV     ADDR_24,#LAST_PFL3_INT_24

;	        CALL   WR_5_2412   ;修改程序压缩
		
;		MOV     FL_NUM,#4 
;                CALL	RD_NOW_FL_DL 
;                CALL    MOV_RD_TO_WR
;		MOV     ADDR_24,#LAST_PFL4_INT_24

;	       CALL   WR_5_2412   ;修改程序压缩
		
;		MOV     FL_NUM,#6 
;                CALL	RD_NOW_FL_DL   
;                CALL    MOV_RD_TO_WR

;		MOV     ADDR_24,#LAST_PFL2_FX_INT_24

;	       CALL   WR_5_2412   ;修改程序压缩
 	        
; 	        MOV     FL_NUM,#7
;                CALL	RD_NOW_FL_DL  
;                CALL    MOV_RD_TO_WR
;		MOV     ADDR_24,#LAST_PFL3_FX_INT_24

;	       CALL   WR_5_2412   ;修改程序压缩
		
;		MOV     FL_NUM,#8 
;                CALL	RD_NOW_FL_DL 
;                CALL    MOV_RD_TO_WR

;		MOV     ADDR_24,#LAST_PFL4_FX_INT_24

;	       CALL   WR_5_2412   ;修改程序压缩
		
	  ;      CALL    RD_NOW_W_DL
	;	CALL    MOV_RD_TO_WR
	;	MOV     ADDR_24,#LAST_QFL_INT_24
	
	 ;      CALL   WR_5_2412   ;修改程序压缩
		
	;	CALL    RD_NOW_FX_W_DL
	;	CALL    MOV_RD_TO_WR
	;	MOV     ADDR_24,#LAST_QFL_FX_INT_24
	
	 ;      CALL   WR_5_2412   ;修改程序压缩
				
;	        CALL    RD_NOW_Y_XL
;		CALL    MOV_RD_TO_WR
;		MOV	WP_CTR,#'W'
;		CLR     WP
;		MOV     ADDR_24,#LAST_XL_INT_24
;		MOV     WR_N,#4
;		MOV     A,#4
;		ADD     A,#'X'
;		MOV     WR_N_X,A
;		MOV	WR_ID,#WR_2412
;		CALL	WR_PARA_TO_24
	
;		CALL    RD_NOW_Y_XL_TIME
;		CALL    MOV_RD_TO_WR
;		MOV     ADDR_24,#LAST_XL_TIME_24

;	       CALL   WR_5_2412   ;修改程序压缩
		
;		MOV     R7,#7
;                MOV     R0,#WR_BUF0
;Y_CLR_XL1:      MOV     @R0,#0
;                INC     R0
;                DJNZ    R7,Y_CLR_XL1
;		MOV     R6,#2
;         	MOV     R2,#0
;         	CALL    CLR_XL3;清除当前月最大需量及发生时间
		
;		CALL    FRZ_LAST_MON
;                RET
;**************************************************************
;修改程序压缩  2005-12-1  LIHENG
;WR_5_2412:	MOV	WP_CTR,#'W'
;		CLR     WP
;	        MOV     WR_N,#5
;		MOV     A,#5
;		ADD     A,#'X'
;		MOV     WR_N_X,A
;		MOV	WR_ID,#WR_2412
;		CALL	WR_PARA_TO_24               
;                RET
                                               
;**************************************************************
;MOV_RD_TO_WR:	
;		MOV	WR_BUF0,RD_BUF0
;		MOV	WR_BUF1,RD_BUF1
;		MOV	WR_BUF2,RD_BUF2
;		MOV	WR_BUF3,RD_BUF3
;		MOV	WR_BUF4,RD_BUF4
;		RET
;**************************************************************
;保存当前冻结月份
;**************************************************************
;FRZ_LAST_MON: 
;               	MOV	EXT_ADR,#86H	;读月,时钟
;		MOV	WR_BUF0,EXT_DAT
;		CLR     WP
;		MOV	WP_CTR,#'W'
;		MOV     ADDR_24,#LAST_MON_24
;		MOV     WR_N,#2
;		MOV     A,#2
;		ADD     A,#'X'
;		MOV     WR_N_X,A
;		MOV	WR_ID,#WR_2412
;		CALL	WR_PARA_TO_24
;                RET               	
		END