0804.asm

说明：本文件夹一共提供各类编程实例200多个

;********************************************************************************
;0804的基本应用，转动电位器，P0口显示取到的数                                   *
;硬件连接：八路发光管接p0口  ad0804 wr接p3.6 rd接p3.7  ad0804数据接p1口，	*
;********************************************************************************
;*  日期:  2007-3-25                                                            *
;*  版本:  3.0                                                                  *
;*  作者:  深圳学林电子有限公司     专业8051单片机教学站                        *
;*  邮箱: [e-mail]                                                       *
;*  网站： http://www.51c51.com     http://www.8951.com    更多例程请登陆网站   *
;********************************************************************************
;*  硬件：此程序在本公司xlisp系列单片机实验仪运行通过                           *
;********************************************************************************
;* 【版权】 Copyright(C)深圳学林电子有限公司 www.51c51.com  All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
;********************************************************************************
;//定义ADC的连接端口
    ad_cs   equ P3.6
    ad_wr   equ P2.0
    ad_rd   equ P3.7
    ad_input_port   equ p1
    org 0000h
    ajmp    main
    org 0030h
main:
    lcall adc_demo
    ajmp    main
;//==========================================
;// 启动AD转换
;//==========================================
Adc_Start:
    clr ad_cs
    nop
    clr ad_wr
    nop
    setb    ad_wr
    nop
    setb    ad_cs
    nop
    ret
;//==========================================
;// 读AD转换
;//==========================================
Adc_Read:
    mov ad_input_port,#0ffh
    clr ad_cs
    nop
    clr ad_rd
    nop
    nop
    mov a,AD_INPUT_PORT
    nop
    setb    ad_rd
    nop
    setb    ad_cs
    ret
;//==========================================
;// AD转换读取延时程序，显示读到的数值
;//==========================================
Adc_Demo:
	lcall Adc_Start
	lcall delay1ms
	lcall adc_read
	clr p2.0
    clr p2.3
	mov p0,a
	ret

delay1ms:
	mov	r7,#10
tt1:
	mov	r6,#50
	djnz	r6,$		;2us
	djnz	r7,tt1
	ret
	end