程控ad转换.txt

来自「自己做的一个用ADC0809实现的ad转换」· 文本 代码 · 共 41 行

        ORG  0000H
        SJMP  START
        ORG  0013H
        LJMP  INT_1
        ORG  0030H

START:  MOV  A,#0FFH			
        MOV  P0,A				
		CLR 	A
	    MOV	SCON,#50H		；串口初始化方式1
	    MOV	TMOD,#20H		；T1工作方式2
	    MOV	TH1,#0F4H		；波特率2400(12M)
	    MOV	TL1,#0F4H		
	    SETB  TR1				；启动定时器1
        SETB  EA				；开中断
        SETB  EX1				；允许外部中断1
		SETB  IT1				；中断初始化
        MOV  DPTR,#7FF8H		；通道地址初始化
        MOVX  @DPTR,A		；启动转换
        SJMP  $					；等待中断
								
								
INT_1:  NOP				
        NOP					
        NOP					
        PUSH ACC				
        CLR EX1				
        MOV  DPTR,#7FF8H		
        MOVX  A,@DPTR		；读入转换结果
	    MOV  SBUF,A			；取出接收的转换值
	    JNB	 TI,$				；等待上一次发送结束
	    CLR	 TI					；清除发送结束标志
	    POP  ACC				
	    SETB EX1				；允许外部中断1
        MOV  DPTR,#7FF8H 		；再次写入通道地址
        MOVX  @DPTR,A  		；再次启动转换
        RETI
								
        END