xl_prog.asm

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

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

NAME		XL_PROG
CODE_REG	SEGMENT	CODE
RSEG		CODE_REG
;PUBLIC          XL_PROG
;*******************************;调用子程序情况:
;EXTRN   CODE(GL_RD)
;EXTRN   CODE(RD24_DO_CHK)
;EXTRN   CODE(WR_PARA_TO_24)
;需量处理
;XL_PROG:
;                CALL   GL_RD
;                CALL   XL_MOV
;                CALL   XL_Y_MOV_1
;                CALL   RD_MAXXL
;                MOV    WR_BUF7,   #SY_N_XL_MAX
;                MOV    WR_BUF8,   #SY_N_XL_MAXTIME
;                CALL   MAXXL_COMP
;                CALL   XL_Y_MOV
;                CALL   RD_MAXXL_Y
;                MOV    WR_BUF7,   #SY_N_XL_MAX_Y
;                MOV    WR_BUF8,   #SY_N_XL_MAXTIME_Y
;                JMP    MAXXL_COMP

;XL_Y_MOV_1:     MOV    RD_BUF5, WR_BUF0
;                MOV    RD_BUF6, WR_BUF1
;                MOV    RD_BUF7, WR_BUF2
;                MOV    RD_BUF8, WR_BUF3
;                RET 
                                
;XL_Y_MOV:       MOV    WR_BUF0, RD_BUF5
;                MOV    WR_BUF1, RD_BUF6
;                MOV    WR_BUF2, RD_BUF7
;                MOV    WR_BUF3, RD_BUF8
;                RET                
                
;XL_MOV:         CALL    XL_MOV1
;                MOV     R0,     #WR_BUF4
;                CALL    XL_MOV2
;                MOV     DPTR,   #138H
;                MOV     R0,     #WR_BUF0
;                CALL    XL_MOV_LP0
;                MOV     DPTR,   #13CH
;                MOV     R0,     #WR_BUF4
;XL_MOV_LP0:     MOV     R2,     #4
;XL_MOV_LP:      MOV     A,      @R0
;                MOVX    @DPTR,  A
;                INC     R0
;                INC     DPTR
;                DJNZ    R2,     XL_MOV_LP
;                RET

;XL_MOV1:        MOV     R0,    #WR_BUF0
;XL_MOV2:        MOV     R2,    #2
;XL_MOV3:        MOV     A,     @R0
;                INC     R0
;XL_MOV1_LP:     ADD     A,     @R0
;               INC     R0
;                DJNZ    R2,    XL_MOV1_LP
;                ADD     A,     #'X'
;                MOV     @R0,   A
;                RET


;RD_MAXXL:       MOV	ADDR_24,#SY_N_XL_MAX
;RD_MAXXL1:      MOV	WR_ID,#WR_2410
;		MOV	RD_N,#4
;		JMP     RD24_DO_CHK

;RD_MAXXL_Y:     MOV	ADDR_24,#SY_N_XL_MAX_Y
;                LJMP    RD_MAXXL1           
;MAXXL_COMP_Y:

;MAXXL_COMP:     
;                MOV     A,    RD_BUF2
;                CJNE    A,    WR_BUF2,  MAXXL_COMP1
;                MOV     A,    RD_BUF1
;                CJNE    A,    WR_BUF1,  MAXXL_COMP1
;                MOV     A,    RD_BUF0
;                CJNE    A,    WR_BUF0,  MAXXL_COMP1
;                RET
;MAXXL_COMP1:    JC      MAXXL_SAVE
;                RET                               
;MAXXL_SAVE:     MOV	ADDR_24,WR_BUF7
;		MOV     WR_N,#4
;		MOV     A,#4
;		ADD     A,#'X'
;		MOV     WR_N_X,A
;                CALL    SAVE_INIT
;		CALL	WR_PARA_TO_24
;                MOV	EXT_ADR,#86H	      ;读月
;		MOV	WR_BUF3,EXT_DAT
;                MOV	EXT_ADR,#85H	      ;读日
;		MOV	WR_BUF2,EXT_DAT
;                MOV	EXT_ADR,#83H	      ;读时
;		MOV	WR_BUF1,EXT_DAT
;                MOV	EXT_ADR,#82H	      ;读分
;		MOV	WR_BUF0,EXT_DAT
                
;                MOV     R0,    #WR_BUF0
;                MOV     R2,    #3
;                CALL    XL_MOV3
;                MOV	ADDR_24,WR_BUF8
;		MOV     WR_N,#5
;		MOV     A,#5
;		ADD     A,#'X'
;		MOV     WR_N_X,A
;                CALL    SAVE_INIT
;                JMP     WR_PARA_TO_24
;                
;SAVE_INIT:      MOV	WR_ID,#WR_2410
;               MOV	WP_CTR,#'W'
;		CLR     WP
;                RET
END