ads7843.asm

SED1335a和ADS7843的DEMO程序

ADS7843_BIT_IN	.MACRO	BIT_MEM
;	LOCAL	$1, $2
	JB	DO,+4
	CLR	BIT_MEM
	SJMP	+2
;$1:
	SETB	BIT_MEM
;$2:
	.ENDM


ENABLE_TOUCH .MACRO
	SETB	TOUCH
;	JB	TOUCH,TOUCH_NEXT#
;TOUCH_NEXT#:
	MOV	A,P1
	.ENDM

IO3SABLE_TOUCH .MACRO
	CLR	TOUCH
	.ENDM


ADS7843_CLOCK_OUT .MACRO
	SETB	IO2
	CLR	IO2
	.ENDM


ADS7843_INIT:
	SETB	IO1
	CLR	IO2
	IO3SABLE_TOUCH
	MOV	ADS7843_OUT_DATA, #10010000B
	CALL	ADS7843_IO
	ENABLE_TOUCH
	RET

ADS7843_IO0:
	CLR	IO2
	CLR	IO1
	MOV	A,ADS7843_OUT_DATA
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C

	CLR	IO3
	ADS7843_CLOCK_OUT

	ADS7843_BIT_IN	D11IN
	ADS7843_CLOCK_OUT
	ADS7843_BIT_IN	D10IN
	ADS7843_CLOCK_OUT
	ADS7843_BIT_IN	D9IN
	ADS7843_CLOCK_OUT
	ADS7843_BIT_IN	D8IN
	ADS7843_CLOCK_OUT
	ADS7843_BIT_IN	D7IN
	ADS7843_CLOCK_OUT
	ADS7843_BIT_IN	D6IN
	ADS7843_CLOCK_OUT
	ADS7843_BIT_IN	D5IN
	ADS7843_CLOCK_OUT
	ADS7843_BIT_IN	D4IN
	ADS7843_CLOCK_OUT
	ADS7843_BIT_IN	D3IN
	ADS7843_CLOCK_OUT
	ADS7843_BIT_IN	D2IN
	ADS7843_CLOCK_OUT
	ADS7843_BIT_IN	D1IN
	ADS7843_CLOCK_OUT
	ADS7843_BIT_IN	D0IN
	ADS7843_CLOCK_OUT
	ADS7843_CLOCK_OUT
	ADS7843_CLOCK_OUT
	ADS7843_CLOCK_OUT

	SETB	IO1
	CLR	IO2
	
	ANL	ADS7843_IN_DATA_H, #00001111B
	RET

ADS7843_IO:
	CLR	IO2
	CLR	IO1
	MOV	A,ADS7843_OUT_DATA
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	RLC	A
	CALL	ADS7843_OUT_C
	CLR	IO3
	ADS7843_CLOCK_OUT
	SETB	IO2
	ADS7843_BIT_IN	D11IN
	CLR	IO2
	SETB	IO2
	ADS7843_BIT_IN	D10IN
	CLR	IO2
	SETB	IO2
	ADS7843_BIT_IN	D9IN
	CLR	IO2
	SETB	IO2
	ADS7843_BIT_IN	D8IN
	CLR	IO2
	SETB	IO2
	ADS7843_BIT_IN	D7IN
	CLR	IO2
	SETB	IO2
	ADS7843_BIT_IN	D6IN
	CLR	IO2
	SETB	IO2
	ADS7843_BIT_IN	D5IN
	CLR	IO2
	SETB	IO2
	ADS7843_BIT_IN	D4IN
	CLR	IO2
	SETB	IO2
	ADS7843_BIT_IN	D3IN
	CLR	IO2
	SETB	IO2
	ADS7843_BIT_IN	D2IN
	CLR	IO2
	SETB	IO2
	ADS7843_BIT_IN	D1IN
	CLR	IO2
	SETB	IO2
	ADS7843_BIT_IN	D0IN
	CLR	IO2
	ADS7843_CLOCK_OUT
	ADS7843_CLOCK_OUT
	ADS7843_CLOCK_OUT
	SETB	IO1
	CLR	IO2
	ANL	ADS7843_IN_DATA_H, #00001111B
	RET
ADS7843_DELAY:
	NOP
	NOP
	NOP
	RET

ADS7843_OUT_C:
	JNC	C_OFF
	SETB	IO3
	JMP	C_TEST_OK
C_OFF:
	CLR	IO3
C_TEST_OK:
	ADS7843_CLOCK_OUT
	RET

ADS7843_OUT_BIT:
	JZ	BIT_OFF
	SETB	IO3
	JMP	BIT_TEST_OK
BIT_OFF:
	CLR	IO3
BIT_TEST_OK:
	ADS7843_CLOCK_OUT
	RET