zr_data.asm

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

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

CODE_REG	SEGMENT	CODE
RSEG		CODE_REG
;PUBLIC          ZR_DATA
;*******************************;调用子程序情况:
;EXTRN   CODE(RESET_SYS) 
;EXTRN   CODE(RD_NOW_FL_INT)
;EXTRN   CODE(RD_NOW_W_DL)
;EXTRN   CODE(WR_PARA_TO_24)
;EXTRN   CODE(MOV_RD_TO_WR)
;EXTRN   CODE(RD_NOW_XL)
;EXTRN   CODE(RD_NOW_XL_TIME)
;EXTRN   CODE(CLR_XL2)
;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)
;EXTRN   CODE(WR_5_2412)   ;修改程序压缩
;**************************************************************
;保存昨日冻结处理程序
;IN:,FL_NUM_BAK,   WR_BUF0,1,2
;OUT:
;**************************************************************
;ZR_ERR:         JMP    RESET_SYS
;ZR_DATA:        MOV     A,DJ_ZR
;                CJNE    A,#'R',ZR_ERR 
;                MOV     FL_NUM,#2
;                CALL	RD_NOW_FL_DL
;                CALL    MOV_RD_TO_WR
;		MOV     ADDR_24,#ZR_PFL2_INT_24
;	 CALL   WR_5_2412   ;修改程序压缩
 ;	        
 ;	        MOV     FL_NUM,#3
;                CALL	RD_NOW_FL_DL  
;                CALL    MOV_RD_TO_WR
;		MOV     ADDR_24,#ZR_PFL3_INT_24
;	 CALL   WR_5_2412   ;修改程序压缩
;		
;		MOV     FL_NUM,#4 
 ;               CALL	RD_NOW_FL_DL 
  ;              CALL    MOV_RD_TO_WR
;		MOV     ADDR_24,#ZR_PFL4_INT_24
;	 CALL   WR_5_2412   ;修改程序压缩
;		
;		
;		MOV     FL_NUM,#6
;                CALL	RD_NOW_FL_DL  
;                CALL    MOV_RD_TO_WR
;		MOV     ADDR_24,#ZR_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,#ZR_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,#ZR_PFL4_FX_INT_24
;	 CALL   WR_5_2412   ;修改程序压缩
		
;		CALL    RD_NOW_W_DL
;		CALL    MOV_RD_TO_WR
;		MOV     ADDR_24,#ZR_QFL_INT_24
;	 CALL   WR_5_2412   ;修改程序压缩
				
;		CALL    RD_NOW_FX_W_DL
;		CALL    MOV_RD_TO_WR

;		MOV     ADDR_24,#ZR_QFL_FX_INT_24

;	 CALL   WR_5_2412   ;修改程序压缩		
		
;          	MOV     R7,#7
;                MOV     R0,#WR_BUF0
;R_CLR_XL1:      MOV     @R0,#0
;                INC     R0
;                DJNZ    R7,R_CLR_XL1		
;		MOV     R6,#2
;         	MOV     R2,#0
;         	CALL    CLR_XL2
						
;		CALL    ZR_DAY
;                RET

;**************************************************************
;保存当前冻结日期
;**************************************************************
;ZR_DAY: 
;               	MOV	EXT_ADR,#85H	;读日,时钟
;		MOV	WR_BUF0,EXT_DAT
;		CLR     WP
;		MOV	WP_CTR,#'W'
;		MOV     ADDR_24,#ZR_DAY_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