clr_dl.asm

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

;************************************************************
;文档类型: 原代码 
;项目编号: 
;文档编号: 
;修订版本: v1.0
;生成日期: 2005.8.16
;文档作者: LIHENG
;审    核: 
;************************************************************
;相关文档: 
;文档编号      
;************************************************************
;修订版本: 
;修订版本: 
;************************************************************
$INCLUDE	(RAML128.INC)
$INCLUDE	(RAMH128.INC)
$INCLUDE	(24ADDR.INC)
$INCLUDE	(IO.INC)
$INCLUDE	(RAM.INC)
$INCLUDE	(PL3200.INC)

CODE_REG	SEGMENT	CODE
RSEG		CODE_REG
PUBLIC          CLR_DL0
;PUBLIC          CLR_SJ0
;PUBLIC          CLR_XL0
;PUBLIC          CLR_XL2
;PUBLIC          CLR_XL3
PUBLIC          CLR_WRBUF
;*******************************;调用子程序情况:
EXTRN   CODE(WR_PARA_TO_24)
EXTRN   CODE(RESET_SYS)
;**************************************************************
;
;**************************************************************
ERR_919:         JMP     RESET_SYS
CLR_DL0:        MOV	A,HW_RS          
		CJNE	A,#'h',ERR_919

                CALL     CLR_WRBUF
         	
         	MOV     R6,#12
         	MOV     R2,#0
         	
CLR_1:         	MOV     A,R2
         	MOV     B,#8
         	MUL     AB
         	ADD     A,#PFL1_INT_24         	
		MOV	ADDR_24,A
		CLR	WP
		MOV     WP_CTR,#'W'
		MOV	WR_ID,#WR_2410
		MOV	WR_N,#8  
		MOV     A,#8
		ADD     A,#'X'
		MOV     WR_N_X,A          
		CALL    WR_PARA_TO_24
		INC     R2
		DJNZ    R6,CLR_1 
		
        	MOV     R6,#6
         	MOV     R2,#0
         	
CLR_3:         	MOV     A,R2
         	MOV     B,#8
         	MUL     AB
         	ADD     A,#PFL1_FLOAT_24         	
		MOV	ADDR_24,A
		CLR	WP
		MOV     WP_CTR,#'W'
		MOV	WR_ID,#WR_2410
		MOV	WR_N,#8 
		MOV     A,#8
		ADD     A,#'X'
		MOV     WR_N_X,A           
		CALL    WR_PARA_TO_24
		INC     R2
		DJNZ    R6,CLR_3 
		
	        MOV     R6,#32
         	MOV     R2,#0
         	
CLR_2:         	MOV     A,R2
         	MOV     B,#8
         	MUL     AB
         	ADD     A,#LAST_PFL1_INT_24         	
		MOV	ADDR_24,A
		CLR     WP
		MOV     WP_CTR,#'W'
		MOV	WR_ID,#WR_2412
		MOV	WR_N,#8   
		MOV     A,#8
		ADD     A,#'X'
		MOV     WR_N_X,A         
		CALL    WR_PARA_TO_24
		INC     R2
		DJNZ    R6,CLR_2 
	       	
		MOV     R0,#NOW_FLOAT_FWG
		MOV     @R0,#0
		INC     R0
		MOV     @R0,#'X'
		INC     R0
		MOV     @R0,#0
		INC     R0
		MOV     @R0,#'X'
		INC     R0
		MOV     @R0,#0
		INC     R0
		MOV     @R0,#'X'
		INC     R0
		MOV     @R0,#0
		INC     R0
		MOV     @R0,#'X'
			
		MOV     R0,#NOW_W_PLS_RAM
		MOV     @R0,#0
		INC     R0
		MOV     @R0,#'X'
		INC     R0
		MOV     @R0,#0
		INC     R0
		MOV     @R0,#'X'
		RET
		
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		
;CLR_XL0:        MOV	A,HW_RS          
;		CJNE	A,#'h',ERR_919_1
;                MOV     R7,#7
;                MOV     R0,#WR_BUF0
;CLR_XL1:        MOV     @R0,#0
;                INC     R0
;                DJNZ    R7,CLR_XL1
         	
;         	MOV     R6,#2
;         	MOV     R2,#0
;         	CALL    CLR_XL2
;         	MOV     R6,#2
;         	MOV     R2,#0
;         	CALL    CLR_XL3
;         	RET
         	
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;         	        	                 	
;CLR_XL2:        MOV     A,R2     ;清除当前日需量
;        	MOV     B,#8
;        	MUL     AB
;         	ADD     A,#XL_INT_24         	
;		MOV	ADDR_24,A
;		CLR	WP
;		MOV     WP_CTR,#'W'
;		MOV	WR_ID,#WR_2410
;		MOV	WR_N,#8  
;		MOV     A,#8
;		ADD     A,#'X'
;		MOV     WR_N_X,A          
;		CALL    WR_PARA_TO_24
;		INC     R2
;		DJNZ    R6,CLR_XL2 				
;		RET
				
;CLR_XL3:        MOV     A,R2    ;清除当前月需量
;        	MOV     B,#8
;         	MUL     AB
;         	ADD     A,#XL_INT_Y_24         	
;		MOV	ADDR_24,A
;		CLR	WP
;		MOV     WP_CTR,#'W'
;		MOV	WR_ID,#WR_2410
;		MOV	WR_N,#8    
;		MOV     A,#8
;		ADD     A,#'X'
;		MOV     WR_N_X,A        
;		CALL    WR_PARA_TO_24
;		INC     R2
;		DJNZ    R6,CLR_XL3 				
;		RET							
;**************************************************************
;
;**************************************************************
;ERR_919_1:         JMP     RESET_SYS
;CLR_SJ0:        MOV	A,HW_RS          
;		CJNE	A,#'h',ERR_919_1
;                CLR     WP
;                MOV     R7,#7
;                MOV     R0,#WR_BUF0
;CLR_SJ2:        MOV     @R0,#0
;                INC     R0
;                DJNZ    R7,CLR_SJ2
         	
;         	MOV     R6,#22
;         	MOV     R2,#0
         	
;CLR_SJ1:        MOV     A,R2
;        	MOV     B,#8
;         	MUL     AB
;         	ADD     A,#OPEN_JL_24         	
;		MOV	ADDR_24,A
;		CLR	WP
;		MOV     WP_CTR,#'W'
;		MOV	WR_ID,#WR_2416
;		MOV	WR_N,#8      
;		MOV     A,#8
;		ADD     A,#'X'
;		MOV     WR_N_X,A      
;		CALL    WR_PARA_TO_24
;		INC     R2
;		DJNZ    R6,CLR_SJ1 
;                RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;                
CLR_WRBUF:     
                MOV     R7,#7
                MOV     R0,#WR_BUF0
CLR_0:          MOV     @R0,#0
                INC     R0
                DJNZ    R7,CLR_0                
                RET
                END