ads1253.asm

本人编写的TI 24为ADC功能测试程序

;--------------------------------------------------------
;-----THIS PROGRAM DESIGED FOR ADS1253E_TEST-------------
;-----DATE:20060517--------------------------------------
;--------------------------------------------------------

;-----I/O DEFINATION-------------------------------------
	AD_A1		EQU	P1.3
	AD_A0		EQU	P1.4
	AD_DOUT		EQU	P1.5
	AD_SCLK		EQU	P1.6
	AD_OSC		EQU	P1.7
	
	AD_RAM_H	EQU	30H
	AD_RAM_M	EQU	31H
	AD_RAM_L	EQU	32H
	
	STACK		EQU	70H
	
;--------------------------------------------------------	
	ORG	0000H			
	LJMP	MAIN		
;--------------------------------------------------------		
		
	ORG	0030H
MAIN:
	MOV	R7,#00H
	DJNZ	R7,$
	MOV	R7,#00H
	DJNZ	R7,$
	
	LCALL	RAM_CLR
	MOV	SP,#STACK	
	NOP
	LCALL	IO_INIT
	NOP
	LCALL	AD_CONV
	SJMP	$
	
;--------------------------------------------------------	
RAM_CLR:
	NOP
	NOP	
	MOV	R0,#20H
	CLR	A
RAM_CLR_1:
	MOV	@R0,A
	INC	R0
	CJNE	R0,#80H,RAM_CLR_1
	NOP
	RET
	
;--------------------------------------------------------	
IO_INIT:
	NOP
	MOV	A,#0FFH       		;I/O INTIALIZA
    	MOV   	P1,A
    	MOV   	A,#0FFH
    	MOV   	P3,A	
	NOP
	RET
	
;--------------------------------------------------------
AD_CONV:
	CLR	AD_OSC
	CLR	C
	CLR	A
	NOP
	NOP
	CLR	AD_SCLK
	CLR	AD_DOUT
	NOP
	NOP
	
	MOV	R7,#24H
	SETB	AD_OSC
OSC_LOOP:
	LCALL	AD_OSC_LOOP
	DJNZ	R7,OSC_LOOP
	
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	CPL	AD_OSC
	NOP
	MOV	R6,#03H
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	MOV	R0,#AD_RAM_H
		
READ_LOOP_1:
	CPL	AD_OSC
	MOV	R7,#08H
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	CPL	AD_OSC
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
READ_LOOP_2:
	CPL	AD_OSC
	CLR	AD_SCLK
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	CPL	AD_OSC
	NOP
	SETB	AD_SCLK
	NOP
	MOV	C,AD_DOUT
	NOP
	RLC	A
	NOP
	DJNZ	R7,READ_LOOP_2
	
	CPL	AD_OSC
	NOP
	NOP
	NOP
	MOV	@R0,A
	NOP
	NOP
	NOP
	NOP
	NOP
	CPL	AD_OSC
	NOP
	NOP
	NOP
	INC	R0
	NOP
	NOP
	NOP
	DJNZ	R6,READ_LOOP_1
	
	
	CPL	AD_OSC
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	CPL	AD_OSC
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	RET
	
;--------------------------------------------------------	
AD_OSC_LOOP:	
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	CLR	AD_OSC
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	SETB	AD_OSC
	RET
	
;--------------------------------------------------------
	END
;--------------------------------------------------------