time.asm

接收红外遥控,控制2314

;**********************************************************************
;			DELAY TIMES FROM ACC_SEN_VAL
;			ONT TIMES 50MS
.IF 0
Delay_50ms	proc	
.ENDIF
;**********************************************************************
Delay_50ms:
		cp	ACC_SEN_VAL,#00H
		jp	NE,CON_DELAY_50MS
		RET
CON_DELAY_50MS:
		push	ACC_SEN_VAL
		ld	ACC_SEN_VAL,#0FBH
		call	REMOTE_DELAY_200uS
		pop	ACC_SEN_VAL
		dec	ACC_SEN_VAL
		cp	ACC_SEN_VAL,#01H
		jp	UGE,CON_DELAY_50MS
		RET
;**********************************************************************


;**********************************************************************
;			DELAY TIMES FROM ACC_SEN_VAL
;			ONT TIMES 50MS
.IF 0
Delay_10ms	proc	
.ENDIF
;**********************************************************************
Delay_10ms:
		ld	ACC_SEN_VAL,#50
		call	REMOTE_DELAY_200uS
		RET
;**********************************************************************


.IF 0
DELAY_200MS	PROC
.ENDIF
DELAY_200MS:
		ld	ACC_SEN_VAL,#0F8H
		call	REMOTE_DELAY_200uS
		ld	ACC_SEN_VAL,#0F8H
		call	REMOTE_DELAY_200uS
		RET

;*************************************************************