do_sj.asm

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

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

CODE_REG	SEGMENT	CODE
RSEG		CODE_REG
;PUBLIC          DO_SJ
;*******************************;调用子程序情况:
;EXTRN   CODE(SAVE_OPEN_TIME)
;EXTRN   CODE(SAVE_STOP_TIME)
;EXTRN   CODE(SAVE_OPEN_JL)
;EXTRN   CODE(SAVE_STOP_JL)
;EXTRN   CODE(RD_STOP_JL)
;EXTRN   CODE(RD_OPEN_JL)
;EXTRN   CODE(RD_OPEN_TIME)
;EXTRN   CODE(RD_STOP_TIME)
;EXTRN   CODE(RD_STOP_ONE)
;*************************************************************************
;保存停电\来电时刻
;*************************************************************************
;DO_SJ:          CALL    RD_OPEN_JL
;		MOV     A,RD_BUF0
;		CLR     C
;		ADD     A,#1
;		DA      A
;		ANL     A,#0FH
;		MOV     WR_BUF0,A
;		CLR     WP
;		MOV     WP_CTR,#'W'
;		CALL    SAVE_OPEN_JL

;        	MOV	EXT_ADR,#82H	;读分,时钟
;		MOV     WR_BUF0,EXT_DAT
;		MOV	EXT_ADR,#83H	;读时,时钟
;		MOV	WR_BUF1,EXT_DAT		
;		MOV	EXT_ADR,#85H	;读日,时钟
;		MOV     WR_BUF2,EXT_DAT
;		MOV	EXT_ADR,#86H	;读月,时钟
;		MOV     WR_BUF3,EXT_DAT
;		MOV	EXT_ADR,#87H	;读年,时钟
;		MOV	WR_BUF4,EXT_DAT
;		CALL    RD_OPEN_JL
;		MOV     A,RD_BUF0
;		SWAP    A
;		ADD     A,#OPEN_TIME_24
;		CLR     WP
;		MOV     WP_CTR,#'W'
;		CALL    SAVE_OPEN_TIME   
			
;		CALL    RD_STOP_JL
;		MOV     A,RD_BUF0
;		CLR     C
;		ADD     A,#1
;		DA      A
;		ANL     A,#0FH
;		MOV     WR_BUF0,A
;		CLR     WP
;		MOV     WP_CTR,#'W'
;		CALL    SAVE_STOP_JL 
			
;		CALL    RD_STOP_ONE
;		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
		
;		CALL    RD_STOP_JL
;		MOV     A,RD_BUF0
;		SWAP    A
;		ADD     A,#STOP_TIME_24
;		CLR     WP
;		MOV     WP_CTR,#'W'
;		CALL    SAVE_STOP_TIME   
				
;		RET
		END